Télécharger idmeta.eso

Retour à la liste

Numérotation des lignes :

  1. C IDMETA SOURCE CB215821 17/09/28 21:15:05 9574
  2. SUBROUTINE IDMETA (MFR,TABOBL,TABFAC,JGOBL,JGFAC,ITA,IPLAC,IRET)
  3. *--------------------------------------------------------------------*
  4. * Noms de composantes des caracteristiques melange *
  5. *--------------------------------------------------------------------*
  6. * *
  7. * ENTREES: *
  8. * ------- *
  9. * MFR numero de formulation *
  10. * TABOBL Tableau des mots OBLIGATOIRES *
  11. * TABFAC Tableau des mots FACULTATIFS *
  12. * JGOBL Taille utilisee du tableau des mots OBLIGATOIRES *
  13. * JGFAC Taille utilisee du tableau des mots FACULTATIFS *
  14. * IPLAC numero du materiau *
  15. * *
  16. * SORTIE : *
  17. * ------- *
  18. * IRET : 0 SI PROBLEME 1, si tout est OK *
  19. * *
  20. *--------------------------------------------------------------------*
  21. *
  22. IMPLICIT INTEGER(I-N)
  23. IMPLICIT REAL*8(A-H,O-Z)
  24.  
  25. -INC CCOPTIO
  26. CHARACTER*8 TABOBL(ITA),TABFAC(ITA)
  27.  
  28. IRET = 1
  29.  
  30. *--------------------------------------------------------------------*
  31. * MODELE CEREM/M. MARTINEZ,H. BURLET, L.BRIOTTET,
  32. * changements de phase 16MND5
  33. *--------------------------------------------------------------------*
  34. IF (IPLAC.EQ.1) THEN
  35. JGM0=JGOBL
  36. JGOBL=JGM0+23
  37. TABOBL(JGM0+1)= 'AC1'
  38. TABOBL(JGM0+2)= 'AR1'
  39. TABOBL(JGM0+3)= 'MS0'
  40. TABOBL(JGM0+4)= 'BETA'
  41. TABOBL(JGM0+5)= 'AC'
  42. TABOBL(JGM0+6)= 'AA'
  43. TABOBL(JGM0+7)= 'ZS'
  44. TABOBL(JGM0+8)= 'TPLM'
  45. TABOBL(JGM0+9)= 'CARB'
  46. TABOBL(JGM0+10)= 'ACAR'
  47. TABOBL(JGM0+11)= 'DG0'
  48. TABOBL(JGM0+12)= 'AGRA'
  49. TABOBL(JGM0+13)= 'TIHT'
  50. TABOBL(JGM0+14)= 'TFHT'
  51. TABOBL(JGM0+15)= 'DTHT'
  52. TABOBL(JGM0+16)= 'NHTR'
  53. TABOBL(JGM0+17)= 'NLEB'
  54. TABOBL(JGM0+18)= 'AUST'
  55. TABOBL(JGM0+19)= 'FERR'
  56. TABOBL(JGM0+20)= 'BAIN'
  57. TABOBL(JGM0+21)= 'MART'
  58. TABOBL(JGM0+22)= 'MS'
  59. TABOBL(JGM0+23)= 'DTPS'
  60.  
  61. ELSE IF (IPLAC.EQ.2) THEN
  62. *
  63. * approche ztmax
  64. *
  65. JGM0=JGOBL
  66. JGOBL= JGM0+ 9
  67. TABOBL(JGM0+1)= 'PHA1'
  68. TABOBL(JGM0+2)= 'PHA2'
  69. TABOBL(JGM0+3)= 'VIPH'
  70. TABOBL(JGM0+4)= 'AC1'
  71. TABOBL(JGM0+5)= 'AC2'
  72. TABOBL(JGM0+6)= 'AC3'
  73. TABOBL(JGM0+7)= 'AC4'
  74. TABOBL(JGM0+8)= 'VDEH'
  75. TABOBL(JGM0+9)= 'VPAR'
  76. ELSE IF (IPLAC.EQ.6) THEN
  77. *
  78. * approche TMM_LMT2
  79. *
  80. JGM0=JGOBL
  81. JGOBL= JGM0+ 20
  82. TABOBL(JGM0+1)= 'PHA1'
  83. TABOBL(JGM0+2)= 'PHA2'
  84. TABOBL(JGM0+3)= 'PHA3'
  85. TABOBL(JGM0+4)= 'tinc'
  86. TABOBL(JGM0+5)= 'AC1'
  87. TABOBL(JGM0+6)= 'Ka'
  88. TABOBL(JGM0+7)= 'm'
  89. TABOBL(JGM0+8)= 'Kea'
  90. TABOBL(JGM0+9)= 'Eea'
  91. TABOBL(JGM0+10)= 'Ms'
  92. TABOBL(JGM0+11)= 'Ks'
  93. TABOBL(JGM0+12)= 'Ar'
  94. TABOBL(JGM0+13)= 'Br'
  95. TABOBL(JGM0+14)= 'Cr'
  96. TABOBL(JGM0+15)= 'Amax'
  97. TABOBL(JGM0+16)= 'n'
  98. TABOBL(JGM0+17)= 'TF1'
  99. TABOBL(JGM0+18)= 'TF2'
  100. TABOBL(JGM0+19)= 'PHA4'
  101. TABOBL(JGM0+20)= 'PHA5'
  102. *
  103. ELSE IF (IPLAC.EQ.3) THEN
  104. *
  105. * parallele
  106. *
  107. ELSE IF (IPLAC.EQ.4) THEN
  108. *
  109. * serie
  110. *
  111. ELSE IF (IPLAC.EQ.5) THEN
  112. *
  113. * utilisateur
  114. *
  115. ELSE IF (IPLAC.EQ.99) THEN
  116. *
  117. * modele de Leblond et Devaux
  118. *
  119. JGM0=JGOBL
  120. JGOBL=JGM0+13
  121. TABOBL(JGM0+1)= 'AC1'
  122. TABOBL(JGM0+2)= 'AC2'
  123. TABOBL(JGM0+3)= 'AC3'
  124. TABOBL(JGM0+4)= 'AC4'
  125. TABOBL(JGM0+5)= 'TAU1'
  126. TABOBL(JGM0+6)= 'TAU2'
  127. TABOBL(JGM0+7)= 'TAU3'
  128. TABOBL(JGM0+8)= 'TAU4'
  129. TABOBL(JGM0+9)= 'ZA'
  130. TABOBL(JGM0+10)= 'ZF'
  131. TABOBL(JGM0+11)= 'ZB'
  132. TABOBL(JGM0+12)= 'ZM'
  133. TABOBL(JGM0+13)= 'MS'
  134.  
  135. ELSE IF (IPLAC.EQ.99) THEN
  136. *
  137. * modele croissance de grain
  138. *
  139. JGM0=JGOBL
  140. JGOBL=JGM0+6
  141. TABOBL(JGM0+1)= 'L0'
  142. TABOBL(JGM0+2)= 'A'
  143. TABOBL(JGM0+3)= 'Q'
  144. TABOBL(JGM0+4)= 'QN'
  145. TABOBL(JGM0+5)= 'ZA'
  146. TABOBL(JGM0+6)= 'DG'
  147. *
  148. ELSE IF (IPLAC.EQ.99) THEN
  149. *
  150. * approche semt2
  151. *
  152. JGM0=JGOBL
  153. JGOBL=JGM0+6
  154. TABOBL(JGM0+1)= 'AC1'
  155. TABOBL(JGM0+2)= 'AC2'
  156. TABOBL(JGM0+3)= 'AC3'
  157. TABOBL(JGM0+4)= 'AC4'
  158. TABOBL(JGM0+5)= 'ZF'
  159. TABOBL(JGM0+6)= 'ZA'
  160.  
  161. JGM0 = JGFAC
  162. JGFAC = JGM0+2
  163. TABFAC(JGM0+1)= ' '
  164. TABFAC(JGM0+2)= ' '
  165. *-----------------------------------------------------------------------
  166. * SI PROBLEME , ON SORT AVEC IRET A 0
  167. *-----------------------------------------------------------------------
  168. ELSE
  169. IRET = 0
  170. CALL ERREUR(261)
  171. ENDIF
  172. RETURN
  173. END
  174.  
  175.  

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