Télécharger la plaquette Cast3M


fr en

Télécharger hhonob.eso

Retour à la liste

Numérotation des lignes : 

hhonob

  1. C HHONOB    SOURCE    OF166741  24/05/06    21:15:12     11082          
  2. C HHONOB    SOURCE                                                      
  3.  
  4.       SUBROUTINE HHONOB (modHHO, nobHHO, iret)
  5.  
  6.       IMPLICIT INTEGER(I-N)
  7.       IMPLICIT REAL*8(A-H,O-Z)
  8.  
  9. -INC PPARAM
  10. c*-INC CCOPTIO
  11. -INC CCHHOPA
  12.  
  13. -INC SMMODEL
  14.  
  15.       CHARACTER*(LOCHAI) motHHO
  16.       LOGICAL b_z
  17.  
  18.       iret = 0
  19.       nobHHO = 0
  20.  
  21.       imodel = modHHO
  22. c*      segact,imodel*nomod (segment actif en entree)
  23.  
  24.       MELE = imodel.NEFMOD
  25.       IF (MELE .NE. HHO_NUM_ELEMENT) RETURN
  26.  
  27.       MFR = NUMMFR(MELE)
  28.       IF (MFR.NE.HHO_MFR_ELEMENT) THEN
  29.         nobHHO = -3
  30.         iret = 5
  31.         RETURN
  32.       END IF
  33.  
  34.       nobMOD = imodel.IVAMOD(/1)
  35.       DO in = 1, nobMOD
  36.         IF (imodel.TYMODE(in) .EQ. 'MOT   ')THEN
  37.           iva = imodel.IVAMOD(in)
  38.           CALL QUEVAL(iva,'MOT     ',iret,lgmot,r_z,motHHO,b_z,i_z)
  39.           if (iret .NE. 0) CALL ERREUR(5)
  40.           IF (motHHO(1:4) .EQ. 'hho_') THEN
  41.             nobHHO = in
  42.           END IF
  43.         END IF
  44.       END DO
  45.  
  46.       RETURN
  47.       END
  48.  
  49.  
  50.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales