Télécharger idplen.eso

Retour à la liste

Numérotation des lignes :

  1. C IDPLEN SOURCE CB215821 17/09/28 21:15:06 9574
  2. SUBROUTINE IDPLEN (MFR,TABOBL,TABFAC,JGOBL,JGFAC,ITA,IPLAC,IRET)
  3. *--------------------------------------------------------------------*
  4. * Noms de composantes de materiaux plastique endommageables *
  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 dans MODPLA *
  15. * *
  16. * SORTIE : *
  17. * ------- *
  18. * *
  19. * IRET : 0 SI PROBLEME *
  20. * *
  21. *--------------------------------------------------------------------*
  22. *
  23. IMPLICIT INTEGER(I-N)
  24. IMPLICIT REAL*8(A-H,O-Z)
  25.  
  26. -INC CCOPTIO
  27. CHARACTER*8 TABOBL(ITA),TABFAC(ITA)
  28.  
  29. IRET=1
  30. *
  31. *--------------------------------------------------------------------*
  32. * *
  33. * T Y P E P L A S T I Q U E E N D O M M A G E A B L E *
  34. * *
  35. *--------------------------------------------------------------------*
  36. IF (IPLAC.EQ.1) THEN
  37. *
  38. * MODELE D'ENDOMMAGEMENT P/Y
  39. *
  40. IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
  41. JGM0=JGOBL
  42. JGOBL=JGM0+3
  43. TABOBL(JGM0+1)='TRAC'
  44. TABOBL(JGM0+2)='EVOL'
  45. TABOBL(JGM0+3)='COMP'
  46. GOTO 9999
  47. *
  48. ELSE IF (IPLAC.EQ.2) THEN
  49. *
  50. * MODELE ROUSSELIER
  51. *
  52. JGM0=JGOBL
  53. JGOBL=JGM0+5
  54. TABOBL(JGM0+1)='TRAC'
  55. TABOBL(JGM0+2)='F '
  56. TABOBL(JGM0+3)='D '
  57. TABOBL(JGM0+4)='SIG1'
  58. TABOBL(JGM0+5)='FC '
  59. GOTO 9999
  60. *
  61. ELSE IF (IPLAC.EQ.3) THEN
  62. *
  63. * MODELE GURSON2
  64. *
  65. JGM0=JGOBL
  66. JGOBL=JGM0+12
  67. TABOBL(JGM0+1)='TRAC'
  68. TABOBL(JGM0+2)='Q '
  69. TABOBL(JGM0+3)='FU '
  70. TABOBL(JGM0+4)='FF '
  71. TABOBL(JGM0+5)='FC '
  72. TABOBL(JGM0+6)='FNS0'
  73. TABOBL(JGM0+7)='FNE0'
  74. TABOBL(JGM0+8)='SNS '
  75. TABOBL(JGM0+9)='SNE '
  76. TABOBL(JGM0+10)='SIGN'
  77. TABOBL(JGM0+11)='EPSN'
  78. TABOBL(JGM0+12)='F0 '
  79.  
  80. JGM0=JGFAC
  81. JGFAC=JGM0+1
  82. TABFAC(JGM0+1)='SRMA'
  83. GOTO 9999
  84. *
  85. ELSE IF (IPLAC.EQ.4) THEN
  86. *
  87. * MODELE DRAGON
  88. *
  89. JGM0=JGOBL
  90. JGOBL=JGM0+6
  91. TABOBL(JGM0+1)='g '
  92. TABOBL(JGM0+2)='ALFA'
  93. TABOBL(JGM0+3)='BETA'
  94. TABOBL(JGM0+4)='C0 '
  95. TABOBL(JGM0+5)='C1 '
  96. TABOBL(JGM0+6)='B '
  97. GOTO 9999
  98. *
  99. ELSE IF (IPLAC.EQ.5) THEN
  100. *
  101. * MODELE ENDOMMAGEMENT BETON_URGC
  102. *
  103. JGM0=JGOBL
  104. JGOBL=JGM0+11
  105. TABOBL(JGM0+1 )='ALFA'
  106. TABOBL(JGM0+2 )='BETA'
  107. TABOBL(JGM0+3 )='LCS '
  108. TABOBL(JGM0+4 )='GFC '
  109. TABOBL(JGM0+5 )='GFT '
  110. TABOBL(JGM0+6 )='ITON'
  111. TABOBL(JGM0+7 )='IMOD'
  112. TABOBL(JGM0+8 )='DC '
  113. TABOBL(JGM0+9 )='DT '
  114. TABOBL(JGM0+10)='IASO'
  115. TABOBL(JGM0+11)='ICOU'
  116. GOTO 9999
  117. *
  118. ELSE IF (IPLAC.EQ.6) THEN
  119. *
  120. * MODELE ENDOMMAGEMENT BETON_INSA 3D
  121. *
  122. JGM0=JGOBL
  123. JGOBL=JGM0+4
  124. TABOBL(JGM0+1 )='RT'
  125. TABOBL(JGM0+2 )='RC'
  126. TABOBL(JGM0+3 )='GFT'
  127. TABOBL(JGM0+4 )='GFC'
  128. GOTO 9999
  129. *
  130. ELSE IF (IPLAC.EQ.7) THEN
  131. *
  132. * MODELE ENDOMMAGEMENT BETON_DYNAR_LMT
  133. *
  134. JGM0=JGOBL
  135. JGOBL=JGM0+18
  136. TABOBL(JGM0+1 )='F0'
  137. TABOBL(JGM0+2 )='Q1'
  138. TABOBL(JGM0+3 )='Q2'
  139. TABOBL(JGM0+4 )='Q3'
  140. TABOBL(JGM0+5 )='SGM0'
  141. TABOBL(JGM0+6 )='XN'
  142. TABOBL(JGM0+7 )='NVP'
  143. TABOBL(JGM0+8 )='MVP'
  144. TABOBL(JGM0+9 )='K'
  145. TABOBL(JGM0+10)='MDT'
  146. TABOBL(JGM0+11)='NDT'
  147. TABOBL(JGM0+12)='AT'
  148. TABOBL(JGM0+13)='BT'
  149. TABOBL(JGM0+14)='MDC'
  150. TABOBL(JGM0+15)='NDC'
  151. TABOBL(JGM0+16)='AC'
  152. TABOBL(JGM0+17)='BC'
  153. TABOBL(JGM0+18)='ED0'
  154. GOTO 9999
  155. *
  156. ELSE IF (IPLAC.EQ.8) THEN
  157. * MODELE Plastique endommageable Mazars + Sheffield
  158. *
  159. JGM0=JGOBL
  160. JGOBL=JGM0+16
  161. TABOBL(JGM0+1)='AC'
  162. TABOBL(JGM0+2)='AT'
  163. TABOBL(JGM0+3)='BC'
  164. TABOBL(JGM0+4)='BT'
  165. TABOBL(JGM0+5)='EPD0'
  166. TABOBL(JGM0+6)='RC'
  167. TABOBL(JGM0+7)='RT'
  168. TABOBL(JGM0+8)='P'
  169. TABOBL(JGM0+9)='AH'
  170. TABOBL(JGM0+10)='BH'
  171. TABOBL(JGM0+11)='CH'
  172. TABOBL(JGM0+12)='GAMA'
  173. TABOBL(JGM0+13)='ALFA'
  174. TABOBL(JGM0+14)='A'
  175. TABOBL(JGM0+15)='K0'
  176. TABOBL(JGM0+16)='BETA'
  177. GOTO 9999
  178.  
  179. ELSE IF (IPLAC.EQ.9) THEN
  180. * MODELE GERNAY
  181. *
  182. JGM0=JGOBL
  183. JGOBL=JGM0+8
  184. TABOBL(JGM0+1)='RC'
  185. TABOBL(JGM0+2)='RT'
  186. TABOBL(JGM0+3)='RB'
  187. TABOBL(JGM0+4)='EPS1'
  188. TABOBL(JGM0+5)='DILA'
  189. TABOBL(JGM0+6)='DAM1'
  190. TABOBL(JGM0+7)='XC'
  191. TABOBL(JGM0+8)='GT'
  192. GOTO 9999
  193.  
  194. ELSE IF (IPLAC.EQ.10) THEN
  195. * MODELE WELLS
  196. *
  197. JGM0=JGOBL
  198. JGOBL=JGM0+4
  199. TABOBL(JGM0+1)='LTR'
  200. TABOBL(JGM0+2)='GFTR'
  201. TABOBL(JGM0+3)='HS'
  202. TABOBL(JGM0+4)='DINT'
  203. GOTO 9999
  204.  
  205. ENDIF
  206. GOTO 99
  207. *
  208. 9999 CONTINUE
  209. IRET=1
  210. RETURN
  211. *
  212. * SI PROBLEME , ON SORT AVEC IRET A 0
  213. *
  214. 99 CONTINUE
  215. IRET=0
  216. CALL ERREUR(261)
  217. RETURN
  218. END
  219.  
  220.  

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