Télécharger model2.eso

Retour à la liste

Numérotation des lignes :

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

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