Télécharger model2.eso

Retour à la liste

Numérotation des lignes :

  1. C MODEL2 SOURCE PASCAL 20/10/07 21:15:11 10746
  2.  
  3. C=======================================================================
  4. C= Objet MODELE - Cas de la formulation 'MECANIQUE' =
  5. C= =
  6. C= Definition des noms de modeles de MATERIAU =
  7. C= et des noms de types d'ELEMENTS FINIS =
  8. C=======================================================================
  9.  
  10. SUBROUTINE MODEL2 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11.  
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8 (A-H,O-Z)
  14.  
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18.  
  19. CHARACTER*16 MOMODL(200)
  20. CHARACTER*16 LESPRO(*)
  21. CHARACTER*4 LESTEF(*)
  22.  
  23. C 1 - Noms des comportements LINEAIRES
  24. C --------------------------------------
  25. CALL MODLIN(MOMODL,NMOD)
  26. DO i=1,NMOD
  27. LESPRO(i)=MOMODL(i)
  28. ENDDO
  29. NBPRO=NMOD
  30.  
  31. C 2 - Noms des MATERIAUx pour le comportement LINEAIRE
  32. C ------------------------------------------------------
  33. CALL MODELA(MOMODL,NMOD)
  34. DO i=NBPRO+1,NBPRO+NMOD
  35. LESPRO(i)=MOMODL(i-NBPRO)
  36. ENDDO
  37. NBPRO=NBPRO+NMOD
  38.  
  39. C 3 - Noms des comportements NON LINEAIRES
  40. C ------------------------------------------
  41. CALL MODNLI(MOMODL,NMOD)
  42. DO i=NBPRO+1,NBPRO+NMOD
  43. LESPRO(i)=MOMODL(i-NBPRO)
  44. ENDDO
  45. NBPRO=NBPRO+NMOD
  46.  
  47. C 4 - Noms des modeles PLASTIQUES
  48. C ---------------------------------
  49. CALL MODPLA(MOMODL,NMOD)
  50. DO i=NBPRO+1,NBPRO+NMOD
  51. LESPRO(i)=MOMODL(i-NBPRO)
  52. ENDDO
  53. NBPRO=NBPRO+NMOD
  54.  
  55. C 5 - Noms des modeles de FLUAGE
  56. C --------------------------------
  57. CALL MODFLU(MOMODL,NMOD)
  58. DO i=NBPRO+1,NBPRO+NMOD
  59. LESPRO(i)=MOMODL(i-NBPRO)
  60. ENDDO
  61. NBPRO=NBPRO+NMOD
  62.  
  63. C 6 - Noms des modeles VISCOPLASTIQUES
  64. C --------------------------------------
  65. CALL MODVIS(MOMODL,NMOD)
  66. DO i=NBPRO+1,NBPRO+NMOD
  67. LESPRO(i)=MOMODL(i-NBPRO)
  68. ENDDO
  69. NBPRO=NBPRO+NMOD
  70.  
  71. C 7 - Noms des modeles ENDOMMAGEABLES
  72. C -------------------------------------
  73. CALL MODEND(MOMODL,NMOD)
  74. DO i=NBPRO+1,NBPRO+NMOD
  75. LESPRO(i)=MOMODL(i-NBPRO)
  76. ENDDO
  77. NBPRO=NBPRO+NMOD
  78.  
  79. C 8 - Noms des modeles PLASTIQUES ENDOMMAGEABLES
  80. C ------------------------------------------------
  81. CALL MODPLE(MOMODL,NMOD)
  82. DO i=NBPRO+1,NBPRO+NMOD
  83. LESPRO(i)=MOMODL(i-NBPRO)
  84. ENDDO
  85. NBPRO=NBPRO+NMOD
  86.  
  87. C 9 - Noms des modeles ELASTIQUES NON LINEAIRES
  88. C -----------------------------------------------
  89. CALL MODENL(MOMODL,NMOD)
  90. DO i=NBPRO+1,NBPRO+NMOD
  91. LESPRO(i)=MOMODL(i-NBPRO)
  92. ENDDO
  93. NBPRO=NBPRO+NMOD
  94.  
  95. C 10 - Noms des modeles VISCOPLASTIQUES EXTERNES
  96. C ------------------------------------------------
  97. CALL MODVIX(MOMODL,NMOD)
  98. DO i=NBPRO+1,NBPRO+NMOD
  99. LESPRO(i)=MOMODL(i-NBPRO)
  100. ENDDO
  101. NBPRO=NBPRO+NMOD
  102.  
  103. C 12 - Noms des modeles LIAISONS
  104. C ------------------------------------------------
  105. CALL MODLIA(MOMODL,NMOD)
  106. DO i=NBPRO+1,NBPRO+NMOD
  107. LESPRO(i)=MOMODL(i-NBPRO)
  108. ENDDO
  109. NBPRO=NBPRO+NMOD
  110.  
  111. C 13 - Noms des modeles IMPEDANCE
  112. C ------------------------------------------------
  113. CALL MODIMP(MOMODL,NMOD)
  114. DO i=NBPRO+1,NBPRO+NMOD
  115. LESPRO(i)=MOMODL(i-NBPRO)
  116. ENDDO
  117. NBPRO=NBPRO+NMOD
  118.  
  119. C restauration du comportement si FUSION
  120. LESPRO(NBPRO + 1) = 'FUSION'
  121. NBPRO = NBPRO + 1
  122.  
  123. C CRItere Pression
  124. LESPRO(NBPRO + 1) = 'CRIP'
  125. NBPRO = NBPRO + 1
  126.  
  127. IF (NBPRO.GT.N1MAX) GOTO 99
  128.  
  129. C 11 - Noms de types d'ELEMENTS FINIS
  130. C -------------------------------------
  131. C DIMENSION 1 :
  132. C ---------------
  133. IF (IDIM.EQ.1) THEN
  134. NBTEF=2
  135. IF (NBTEF.GT.N2MAX) GOTO 99
  136. LESTEF(1)='M1D2'
  137. LESTEF(2)='M1D3'
  138. C DIMENSION 2 :
  139. C ---------------
  140. C Les EF sont definis suivant la valeur de IFOUR
  141. ELSE IF (IDIM.EQ.2) THEN
  142. IF (IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  143. NBTEF=19
  144. IF (NBTEF.GT.N2MAX) GOTO 99
  145. LESTEF(1)='TRI3'
  146. LESTEF(2)='TRI6'
  147. LESTEF(3)='QUA4'
  148. LESTEF(4)='QUA8'
  149. LESTEF(5)='COQ2'
  150. LESTEF(6)='BARR'
  151. LESTEF(7)='TRIH'
  152. LESTEF(8)='CERC'
  153. LESTEF(9)='JOI2'
  154. LESTEF(10)='JOI3'
  155. LESTEF(11)='POLY'
  156. LESTEF(12)='BAR3'
  157. LESTEF(13)='QUAH'
  158. LESTEF(14)='Q4RI'
  159. LESTEF(15)='Q8RI'
  160. LESTEF(16)='XQ4R'
  161. LESTEF(17)='ZCO2'
  162. LESTEF(18)='COS2'
  163. LESTEF(19)='COA2'
  164. IF (IFOUR.EQ.0) THEN
  165. C Les elements incompressibles ne sont pas utilisables pour le calcul
  166. C en serie de FOURIER
  167. NBTEF=22
  168. IF (NBTEF.GT.N2MAX) GOTO 99
  169. LESTEF(18)='ICT3'
  170. LESTEF(19)='ICQ4'
  171. LESTEF(20)='ICT6'
  172. LESTEF(21)='ICQ8'
  173. LESTEF(22)='BBAR'
  174. ENDIF
  175. ELSE
  176. NBTEF=37
  177. IF (NBTEF.GT.N2MAX) GOTO 99
  178. LESTEF(1)='TRI3'
  179. LESTEF(2)='TRI6'
  180. LESTEF(3)='QUA4'
  181. LESTEF(4)='QUA8'
  182. LESTEF(5)='COQ2'
  183. LESTEF(6)='BARR'
  184. LESTEF(7)='TRIH'
  185. LESTEF(8)='JOI2'
  186. LESTEF(9)='POI1'
  187. LESTEF(10)='JOI3'
  188. LESTEF(11)='ICT3'
  189. LESTEF(12)='ICQ4'
  190. LESTEF(13)='ICT6'
  191. LESTEF(14)='ICQ8'
  192. LESTEF(15)='POLY'
  193. LESTEF(16)='BAR3'
  194. LESTEF(17)='QUAH'
  195. LESTEF(18)='TIMO'
  196. LESTEF(19)='POUT'
  197. LESTEF(20)='TRIS'
  198. LESTEF(21)='QUAS'
  199. LESTEF(22)='POIS'
  200. LESTEF(23)='TRH6'
  201. LESTEF(24)='SEGS'
  202. LESTEF(25)='POJS'
  203. LESTEF(26)='Q4RI'
  204. LESTEF(27)='Q8RI'
  205. LESTEF(28)='JCT3'
  206. LESTEF(29)='JCI4'
  207. LESTEF(30)='JGI2'
  208. LESTEF(31)='CIFL'
  209. LESTEF(32)='XQ4R'
  210. LESTEF(33)='JOI1'
  211. LESTEF(34)='ZCO2'
  212. LESTEF(35)='COS2'
  213. LESTEF(36)='COA2'
  214. LESTEF(37)='BBAR'
  215. ENDIF
  216. C DIMENSION 3 :
  217. C ---------------
  218. ELSE IF (IDIM.EQ.3) THEN
  219. NBTEF=54
  220. IF (NBTEF.GT.N2MAX) GOTO 99
  221. LESTEF( 1)='CUB8'
  222. LESTEF( 2)='CU20'
  223. LESTEF( 3)='PRI6'
  224. LESTEF( 4)='PR15'
  225. LESTEF( 5)='TET4'
  226. LESTEF( 6)='TE10'
  227. LESTEF( 7)='PYR5'
  228. LESTEF( 8)='PY13'
  229. LESTEF( 9)='COQ3'
  230. LESTEF(10)='COQ4'
  231. LESTEF(11)='COQ6'
  232. LESTEF(12)='COQ8'
  233. LESTEF(13)='DKT '
  234. LESTEF(14)='BARR'
  235. LESTEF(15)='POUT'
  236. LESTEF(16)='TUYA'
  237. LESTEF(17)='LISP'
  238. LESTEF(18)='TUFI'
  239. LESTEF(19)='DST '
  240. LESTEF(20)='JOI4'
  241. LESTEF(21)='TUYO'
  242. LESTEF(22)='TIMO'
  243. LESTEF(23)='TRIS'
  244. LESTEF(24)='QUAS'
  245. LESTEF(25)='POIS'
  246. LESTEF(26)='LISM'
  247. LESTEF(27)='JOT3'
  248. LESTEF(28)='BAR3'
  249. LESTEF(29)='BAEX'
  250. LESTEF(30)='LIA2'
  251. LESTEF(31)='CUBH'
  252. LESTEF(32)='POJS'
  253. LESTEF(33)='Q4RI'
  254. LESTEF(34)='Q8RI'
  255. LESTEF(35)='JGT3'
  256. LESTEF(36)='JGI4'
  257. LESTEF(37)='SEGS'
  258. LESTEF(38)='SHB8'
  259. LESTEF(39)='POI1'
  260. LESTEF(40)='XC8R'
  261. LESTEF(41)='JOI1'
  262. LESTEF(42)='ZCO3'
  263. LESTEF(43)='ZCO4'
  264. LESTEF(44)='COS2'
  265. LESTEF(45)='COA2'
  266. LESTEF(46)='ICC8'
  267. LESTEF(47)='ICT4'
  268. LESTEF(48)='ICP6'
  269. LESTEF(49)='IC20'
  270. LESTEF(50)='IC10'
  271. LESTEF(51)='IC15'
  272. LESTEF(52)='BBAR'
  273. LESTEF(53)='ICY5'
  274. LESTEF(54)='IC13'
  275. ENDIF
  276. RETURN
  277.  
  278. C 12 - Traitement des ERREURS
  279. C -----------------------------
  280. 99 CALL ERREUR(5)
  281. RETURN
  282.  
  283. END
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  

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