Télécharger idmeta.eso

Retour à la liste

Numérotation des lignes :

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

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