Télécharger idplen.eso

Retour à la liste

Numérotation des lignes :

  1. C IDPLEN SOURCE AM 12/02/06 21:15:56 7281
  2. SUBROUTINE IDPLEN (MFR,MOOBL,MOFAC,IPLAC,IRET)
  3. *--------------------------------------------------------------------*
  4. * Noms de composantes de mat{riaux plastique endommageables *
  5. *--------------------------------------------------------------------*
  6. * *
  7. * ENTREES: *
  8. * ------- *
  9. * MFR num{ro de formulation *
  10. * IPMODL objet mod}le {l{mentaire ( segment actif ) *
  11. * MOOBL pointeur sur les mots obligatoires *
  12. * MOFAC pointeur sur les mots facultatif *
  13. * IPLAC numero du materiau dans MODPLA *
  14. * *
  15. * SORTIE : *
  16. * ------- *
  17. * *
  18. * IRET : 0 SI PROBLEME *
  19. * *
  20. *--------------------------------------------------------------------*
  21. *
  22. IMPLICIT INTEGER(I-N)
  23. -INC SMLMOTS
  24. -INC CCOPTIO
  25. *
  26. JGN=8
  27. IRET=1
  28. *
  29. *--------------------------------------------------------------------*
  30. * *
  31. * 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 *
  32. * *
  33. *--------------------------------------------------------------------*
  34. IF (IPLAC.EQ.1) THEN
  35. *
  36. * MODELE D'ENDOMMAGEMENT P/Y
  37. *
  38. IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
  39. MLMOTS=MOOBL
  40. JGA=MOTS(/2)
  41. JGM=JGA+3
  42. SEGADJ MLMOTS
  43. MOOBL=MLMOTS
  44. MOTS(JGA+1)='TRAC'
  45. MOTS(JGA+2)='EVOL'
  46. MOTS(JGA+3)='COMP'
  47. GOTO 9999
  48. *
  49. ELSE IF (IPLAC.EQ.2) THEN
  50. *
  51. * MODELE ROUSSELIER
  52. *
  53. MLMOTS=MOOBL
  54. JGA=MOTS(/2)
  55. JGM=JGA+5
  56. SEGADJ MLMOTS
  57. MOOBL=MLMOTS
  58. MOTS(JGA+1)='TRAC'
  59. MOTS(JGA+2)='F '
  60. MOTS(JGA+3)='D '
  61. MOTS(JGA+4)='SIG1'
  62. MOTS(JGA+5)='FC '
  63. GOTO 9999
  64. *
  65. ELSE IF (IPLAC.EQ.3) THEN
  66. *
  67. * MODELE GURSON2
  68. *
  69. MLMOTS=MOOBL
  70. JGA=MOTS(/2)
  71. JGM=JGA+12
  72. SEGADJ MLMOTS
  73. MOOBL=MLMOTS
  74. MOTS(JGA+1)='TRAC'
  75. MOTS(JGA+2)='Q '
  76. MOTS(JGA+3)='FU '
  77. MOTS(JGA+4)='FF '
  78. MOTS(JGA+5)='FC '
  79. MOTS(JGA+6)='FNS0'
  80. MOTS(JGA+7)='FNE0'
  81. MOTS(JGA+8)='SNS '
  82. MOTS(JGA+9)='SNE '
  83. MOTS(JGA+10)='SIGN'
  84. MOTS(JGA+11)='EPSN'
  85. MOTS(JGA+12)='F0 '
  86. MLMOTS=MOFAC
  87. JGM=MOTS(/2)+1
  88. SEGADJ MLMOTS
  89. MOTS(JGM)='SRMA'
  90. GOTO 9999
  91. *
  92. ELSE IF (IPLAC.EQ.4) THEN
  93. *
  94. * MODELE DRAGON
  95. *
  96. MLMOTS=MOOBL
  97. JGA=MOTS(/2)
  98. JGM=JGA+6
  99. SEGADJ MLMOTS
  100. MOOBL=MLMOTS
  101. MOTS(JGA+1)='g '
  102. MOTS(JGA+2)='ALFA'
  103. MOTS(JGA+3)='BETA'
  104. MOTS(JGA+4)='C0 '
  105. MOTS(JGA+5)='C1 '
  106. MOTS(JGA+6)='B '
  107. GOTO 9999
  108. *
  109. ELSE IF (IPLAC.EQ.5) THEN
  110. *
  111. * MODELE ENDOMMAGEMENT BETON_URGC
  112. *
  113. MLMOTS=MOOBL
  114. JGA=MOTS(/2)
  115. JGM=JGA+11
  116. SEGADJ MLMOTS
  117. MOTS(JGA+1 )='ALFA'
  118. MOTS(JGA+2 )='BETA'
  119. MOTS(JGA+3 )='LCS '
  120. MOTS(JGA+4 )='GFC '
  121. MOTS(JGA+5 )='GFT '
  122. MOTS(JGA+6 )='ITON'
  123. MOTS(JGA+7 )='IMOD'
  124. MOTS(JGA+8 )='DC '
  125. MOTS(JGA+9 )='DT '
  126. MOTS(JGA+10)='IASO'
  127. MOTS(JGA+11)='ICOU'
  128. GOTO 9999
  129. *
  130. ELSE IF (IPLAC.EQ.6) THEN
  131. *
  132. * MODELE ENDOMMAGEMENT BETON_INSA 3D
  133. *
  134. MLMOTS=MOOBL
  135. JGA=MOTS(/2)
  136. JGM=JGA+4
  137. SEGADJ MLMOTS
  138. MOTS(JGA+1 )='RT'
  139. MOTS(JGA+2 )='RC'
  140. MOTS(JGA+3 )='GFT'
  141. MOTS(JGA+4 )='GFC'
  142. GOTO 9999
  143. *
  144. ELSE IF (IPLAC.EQ.7) THEN
  145. *
  146. * MODELE ENDOMMAGEMENT BETON_DYNAR_LMT
  147. *
  148. MLMOTS=MOOBL
  149. JGA=MOTS(/2)
  150. JGM=JGA+18
  151. SEGADJ MLMOTS
  152. MOTS(JGA+1 )='F0'
  153. MOTS(JGA+2 )='Q1'
  154. MOTS(JGA+3 )='Q2'
  155. MOTS(JGA+4 )='Q3'
  156. MOTS(JGA+5 )='SGM0'
  157. MOTS(JGA+6 )='XN'
  158. MOTS(JGA+7 )='NVP'
  159. MOTS(JGA+8 )='MVP'
  160. MOTS(JGA+9 )='K'
  161. MOTS(JGA+10)='MDT'
  162. MOTS(JGA+11)='NDT'
  163. MOTS(JGA+12)='AT'
  164. MOTS(JGA+13)='BT'
  165. MOTS(JGA+14)='MDC'
  166. MOTS(JGA+15)='NDC'
  167. MOTS(JGA+16)='AC'
  168. MOTS(JGA+17)='BC'
  169. MOTS(JGA+18)='ED0'
  170. GOTO 9999
  171. *
  172. ELSE IF (IPLAC.EQ.8) THEN
  173. * MODELE Plastique endommageable Mazars + Sheffield
  174. *
  175. MLMOTS=MOOBL
  176. JGA=MOTS(/2)
  177. JGM=JGA+16
  178. SEGADJ MLMOTS
  179. MOOBL=MLMOTS
  180. MOTS(JGA+1)='AC'
  181. MOTS(JGA+2)='AT'
  182. MOTS(JGA+3)='BC'
  183. MOTS(JGA+4)='BT'
  184. MOTS(JGA+5)='EPD0'
  185. MOTS(JGA+6)='RC'
  186. MOTS(JGA+7)='RT'
  187. MOTS(JGA+8)='P'
  188. MOTS(JGA+9)='AH'
  189. MOTS(JGA+10)='BH'
  190. MOTS(JGA+11)='CH'
  191. MOTS(JGA+12)='GAMA'
  192. MOTS(JGA+13)='ALFA'
  193. MOTS(JGA+14)='A'
  194. MOTS(JGA+15)='K0'
  195. MOTS(JGA+16)='BETA'
  196. GOTO 9999
  197.  
  198. ELSE IF (IPLAC.EQ.9) THEN
  199. * MODELE GERNAY
  200. *
  201. MLMOTS=MOOBL
  202. JGA=MOTS(/2)
  203. JGM=JGA+8
  204. SEGADJ MLMOTS
  205. MOOBL=MLMOTS
  206. MOTS(JGA+1)='RC'
  207. MOTS(JGA+2)='RT'
  208. MOTS(JGA+3)='RB'
  209. MOTS(JGA+4)='EPS1'
  210. MOTS(JGA+5)='DILA'
  211. MOTS(JGA+6)='DAM1'
  212. MOTS(JGA+7)='XC'
  213. MOTS(JGA+8)='GT'
  214. GOTO 9999
  215.  
  216. ELSE IF (IPLAC.EQ.10) THEN
  217. * MODELE WELLS
  218. *
  219. MLMOTS=MOOBL
  220. JGA=MOTS(/2)
  221. JGM=JGA+4
  222. SEGADJ MLMOTS
  223. MOOBL=MLMOTS
  224. MOTS(JGA+1)='LTR'
  225. MOTS(JGA+2)='GFTR'
  226. MOTS(JGA+3)='HS'
  227. MOTS(JGA+4)='DINT'
  228. GOTO 9999
  229.  
  230. ENDIF
  231. GOTO 99
  232. *
  233. 9999 CONTINUE
  234. IRET=1
  235. RETURN
  236. *
  237. * SI PROBLEME , ON SORT AVEC IRET A 0
  238. *
  239. 99 CONTINUE
  240. IRET=0
  241. CALL ERREUR(261)
  242. RETURN
  243. END
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  

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