Télécharger la plaquette Cast3M


fr en

Télécharger fimvf2.eso

Retour à la liste

Numérotation des lignes : 

fimvf2

  1. C FIMVF2    SOURCE    CB215821  20/11/25    13:28:55     10792          
  2.       SUBROUTINE FIMVF2(ILIINC,ICEN,IRO,IROVIT,IGRAV,
  3.      &     IRES)
  4. C************************************************************************
  5. C
  6. C PROJET            :  CASTEM 2000
  7. C
  8. C NOM               :  FIMVF2
  9. C
  10. C DESCRIPTION       :  VOIR FIMVF1
  11. C
  12. C                      Gaz ideal mono-espece:
  13. C                      residu lié à la gravité.
  14. C
  15. C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec extensions CISI)
  16. C
  17. C AUTEUR            :  A. BECCANTINI, DEN/DM2S/SFME/LTMF
  18. C
  19. C************************************************************************
  20. C
  21. C ENTREES  :
  22. C
  23. C            ILIINC  : LISTMOTS, noms des inconnues
  24. C
  25. C            ICEN    : SPG geometrique
  26. C
  27. C            IRO     : CHPOINT, densité
  28. C
  29. C            IROVIT  : CHPOINT  qdm
  30. C
  31. C            IGRAV   : CHPOINT  gravité
  32. C
  33. C
  34. C SORTIES  : IRES    : CHPOINT  residu
  35. C
  36. C
  37. C************************************************************************
  38. C
  39. C HISTORIQUE (Anomalies et modifications éventuelles)
  40. C
  41. C HISTORIQUE :  Créée le 24.1.03
  42. C
  43. C************************************************************************
  44. C
  45. C
  46. C**** Variables de COOPTIO
  47. C
  48. C      INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  49. C     &        ,IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
  50. C     &        ,IOPER,   IOSGB,  IOGRA,     IOSAU,  IORES
  51. C     &        ,IECHO,   IIMPI,  IOSPI
  52. C     &        ,IDIM
  53. C     &        ,MCOORD
  54. C     &        ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  55. C     &        ,NGMAXY, IZROSF, ISOTYP, IOSCR, LTEXLU
  56. C     &        ,NORINC, NORVAL, NORIND, NORVAD
  57. C     &        ,NUCROU, IPSAUV, IFICLE, IPREFI
  58. C
  59. C**** Les variables
  60. C
  61.       IMPLICIT INTEGER(I-N)
  62.       INTEGER ILIINC,ICEN,IRO,IROVIT,IGRAV,IRES,N1,NLCE
  63.      &     ,IGEOM
  64.       CHARACTER*8 TYPE
  65.       REAL*8 RO, RVX, RVY, RVZ, GX, GY, GZ
  66. C
  67. C**** Les includes
  68. C
  69.  
  70. -INC PPARAM
  71. -INC CCOPTIO
  72. -INC SMCHPOI
  73. -INC SMELEME
  74. C
  75.       IPT1 = ICEN
  76.       SEGACT IPT1
  77.       N1 = IPT1.NUM(/2)
  78.       SEGDES IPT1
  79. C
  80. C**** Creation de CHPOINT IRES
  81. C
  82.       TYPE='        '
  83.       CALL KRCHP1(TYPE,ICEN,IRES,ILIINC)
  84. C
  85. C
  86. C**** Lecture de MPOVALs
  87. C
  88.       CALL LICHT(IRO,MPOVA1,TYPE,IGEOM)
  89.       CALL LICHT(IROVIT,MPOVA2,TYPE,IGEOM)
  90.       CALL LICHT(IGRAV,MPOVA3,TYPE,IGEOM)
  91.       CALL LICHT(IRES,MPOVA4,TYPE,IGEOM)
  92. C
  93. C**** LICHT active les MPOVALs en *MOD
  94. C
  95. C     i.e.
  96. C
  97. C     SEGACT MPOVA1*MOD
  98. C     SEGACT MPOVA2*MOD
  99. C     SEGACT MPOVA3*MOD
  100. C     SEGACT MPOVA4*MOD
  101. C
  102. C
  103.       GZ=0.0D0
  104.       RVZ=0.0D0
  105.       DO NLCE = 1, N1, 1
  106. C
  107. C******* Les differents variables a chaque centre
  108. C
  109.          RO = MPOVA1.VPOCHA(NLCE,1)
  110.          RVX = MPOVA2.VPOCHA(NLCE,1)
  111.          RVY = MPOVA2.VPOCHA(NLCE,2)
  112.          GX = MPOVA3.VPOCHA(NLCE,1)
  113.          GY = MPOVA3.VPOCHA(NLCE,2)
  114.          IF(IDIM .EQ. 3)THEN
  115.             RVZ = MPOVA2.VPOCHA(NLCE,3)
  116.             GZ = MPOVA3.VPOCHA(NLCE,3)
  117.          ENDIF
  118.          MPOVA4.VPOCHA(NLCE,1) = 0.0D0
  119.          MPOVA4.VPOCHA(NLCE,2) = RO*GX
  120.          MPOVA4.VPOCHA(NLCE,3) = RO*GY
  121.          IF(IDIM .EQ. 3)THEN
  122.             MPOVA4.VPOCHA(NLCE,4) = RO*GZ
  123.          ENDIF
  124.          MPOVA4.VPOCHA(NLCE,IDIM+2)=(RVX*GX)+(RVY*GY)+(RVZ*GZ)
  125.       ENDDO
  126. C
  127.       SEGDES MPOVA1
  128.       SEGDES MPOVA2
  129.       SEGDES MPOVA3
  130.       SEGDES MPOVA4
  131. C
  132.       RETURN
  133.       END
  134.  
  135.  
  136.  
  137.  
  138.  

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