Télécharger idvar9.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVAR9 SOURCE FANDEUR 10/02/01 21:15:52 6603
  2.  
  3. C=======================================================================
  4. * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  5. * --------------------------------------------------------
  6. *
  7. * ENTREES :
  8. * ---------
  9. * MATEPL NUMERO DU MATERIAU PLASTIQUE
  10. * MFR NUMERO DE FORMULATION
  11. * IFOUR VALEUR DE IFOU DANS CCOPTIO
  12. * NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  13. * POUR LES ELEMENTS DE COQUE INTEGRES
  14. *
  15. * SORTIES :
  16. * ---------
  17. * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  18. * OBLIGATOIRES ET FACULTATIVES
  19. * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES
  20. * NBRFAC NOMBRE DE COMPOSANTES FACTULTATIVES
  21. C=======================================================================
  22.  
  23. SUBROUTINE IDVAR9 (MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC)
  24.  
  25. IMPLICIT INTEGER(I-N)
  26. IMPLICIT REAL*8 (A-H,O-Z)
  27.  
  28. SEGMENT NOMID
  29. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  30. ENDSEGMENT
  31.  
  32. NBROBL=0
  33. NBRFAC=0
  34. NOMID=0
  35.  
  36. C= Modele de NOUAILLAS_B
  37. C= =======================
  38. IF (MATEPL.EQ.77) THEN
  39.  
  40. * ELEMENT MASSIF
  41. ********************
  42. IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN
  43. *
  44. * CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  45. * OU DEFORMATIONS PLANES GENERALISEES
  46. *
  47. IF (IFOUR.EQ.-2.OR.IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN
  48. NBROBL=13
  49. SEGINI,NOMID
  50. LESOBL( 1)='A1XX'
  51. LESOBL( 2)='A1YY'
  52. LESOBL( 3)='A1ZZ'
  53. LESOBL( 4)='A1XY'
  54. LESOBL( 5)='A2XX'
  55. LESOBL( 6)='A2YY'
  56. LESOBL( 7)='A2ZZ'
  57. LESOBL( 8)='A2XY'
  58. LESOBL( 9)='VLXX'
  59. LESOBL(10)='VLYY'
  60. LESOBL(11)='VLZZ'
  61. LESOBL(12)='VLXY'
  62. LESOBL(13)='EPSE'
  63. *
  64. * CAS AXISYMETRIQUE
  65. *
  66. ELSE IF (IFOUR.EQ.0) THEN
  67. NBROBL=13
  68. SEGINI,NOMID
  69. LESOBL( 1)='A1RR'
  70. LESOBL( 2)='A1ZZ'
  71. LESOBL( 3)='A1TT'
  72. LESOBL( 4)='A1RZ'
  73. LESOBL( 5)='A2RR'
  74. LESOBL( 6)='A2ZZ'
  75. LESOBL( 7)='A2TT'
  76. LESOBL( 8)='A2RZ'
  77. LESOBL( 9)='VLRR'
  78. LESOBL(10)='VLZZ'
  79. LESOBL(11)='VLTT'
  80. LESOBL(12)='VLRZ'
  81. LESOBL(13)='EPSE'
  82. *
  83. * CAS SERIE DE FOURIER
  84. *
  85. ELSE IF (IFOUR.EQ.1) THEN
  86. NBROBL=19
  87. SEGINI,NOMID
  88. LESOBL( 1)='A1RR'
  89. LESOBL( 2)='A1ZZ'
  90. LESOBL( 3)='A1TT'
  91. LESOBL( 4)='A1RZ'
  92. LESOBL( 5)='A1RT'
  93. LESOBL( 6)='A1ZT'
  94. LESOBL( 7)='A2RR'
  95. LESOBL( 8)='A2ZZ'
  96. LESOBL( 9)='A2TT'
  97. LESOBL(10)='A2RZ'
  98. LESOBL(11)='A2RT'
  99. LESOBL(12)='A2ZT'
  100. LESOBL(13)='VLRR'
  101. LESOBL(14)='VLZZ'
  102. LESOBL(15)='VLTT'
  103. LESOBL(16)='VLRZ'
  104. LESOBL(17)='VLRT'
  105. LESOBL(18)='VLZT'
  106. LESOBL(19)='EPSE'
  107. *
  108. * CAS TRIDIMENSIONNEL
  109. *
  110. ELSE IF (IFOUR.EQ.2) THEN
  111. NBROBL=19
  112. SEGINI,NOMID
  113. LESOBL( 1)='A1XX'
  114. LESOBL( 2)='A1YY'
  115. LESOBL( 3)='A1ZZ'
  116. LESOBL( 4)='A1XY'
  117. LESOBL( 5)='A1YZ'
  118. LESOBL( 6)='A1ZX'
  119. LESOBL( 7)='A2XX'
  120. LESOBL( 8)='A2YY'
  121. LESOBL( 9)='A2ZZ'
  122. LESOBL(10)='A2XY'
  123. LESOBL(11)='A2YZ'
  124. LESOBL(12)='A2ZX'
  125. LESOBL(13)='VLXX'
  126. LESOBL(14)='VLYY'
  127. LESOBL(15)='VLZZ'
  128. LESOBL(16)='VLXY'
  129. LESOBL(17)='VLYZ'
  130. LESOBL(18)='VLZX'
  131. LESOBL(19)='EPSE'
  132. NBROBL=13
  133. *
  134. * CAS UNIDIMENSIONNELS (1D) PLAN
  135. *
  136. ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN
  137. NBROBL=10
  138. SEGINI,NOMID
  139. LESOBL( 1)='A1XX'
  140. LESOBL( 2)='A1YY'
  141. LESOBL( 3)='A1ZZ'
  142. LESOBL( 4)='A2XX'
  143. LESOBL( 5)='A2YY'
  144. LESOBL( 6)='A2ZZ'
  145. LESOBL( 7)='VLXX'
  146. LESOBL( 8)='VLYY'
  147. LESOBL( 9)='VLZZ'
  148. LESOBL(10)='EPSE'
  149. *
  150. * CAS UNIDIMENSIONNELS (1D) AXIS et SPHE
  151. *
  152. ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN
  153. NBROBL=10
  154. SEGINI,NOMID
  155. LESOBL( 1)='A1RR'
  156. LESOBL( 2)='A1ZZ'
  157. LESOBL( 3)='A1TT'
  158. LESOBL( 4)='A2RR'
  159. LESOBL( 5)='A2ZZ'
  160. LESOBL( 6)='A2TT'
  161. LESOBL( 7)='VLRR'
  162. LESOBL( 8)='VLZZ'
  163. LESOBL( 9)='VLTT'
  164. LESOBL(10)='EPSE'
  165. ENDIF
  166.  
  167. * COQUE
  168. ***********
  169. ELSE IF (MFR.EQ.3) THEN
  170. *
  171. IF (NPINT.EQ.0) THEN
  172. *
  173. * CAS TRIDIMENSIONNEL FOURIER
  174. *
  175. IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN
  176. NBROBL=25
  177. SEGINI,NOMID
  178. LESOBL( 1)='A1N1'
  179. LESOBL( 2)='A1N2'
  180. LESOBL( 3)='A1N3'
  181. LESOBL( 4)='A1N4'
  182. LESOBL( 5)='A1M1'
  183. LESOBL( 6)='A1M2'
  184. LESOBL( 7)='A1M3'
  185. LESOBL( 8)='A1M4'
  186. LESOBL( 9)='A2N1'
  187. LESOBL(10)='A2N2'
  188. LESOBL(11)='A2N3'
  189. LESOBL(12)='A2N4'
  190. LESOBL(13)='A2M1'
  191. LESOBL(14)='A2M2'
  192. LESOBL(15)='A2M3'
  193. LESOBL(16)='A2M4'
  194. LESOBL(17)='EPN1'
  195. LESOBL(18)='EPN2'
  196. LESOBL(19)='EPN3'
  197. LESOBL(20)='EPN4'
  198. LESOBL(21)='EPM1'
  199. LESOBL(22)='EPM2'
  200. LESOBL(23)='EPM3'
  201. LESOBL(24)='EPM4'
  202. LESOBL(25)='EPSE'
  203. *
  204. * CAS AXISYMETRIQUE
  205. *
  206. ELSE IF (IFOUR.EQ.0) THEN
  207. NBROBL=19
  208. SEGINI,NOMID
  209. LESOBL( 1)='A1N1'
  210. LESOBL( 2)='A1N2'
  211. LESOBL( 3)='A1N3'
  212. LESOBL( 4)='A1M1'
  213. LESOBL( 5)='A1M2'
  214. LESOBL( 6)='A1M3'
  215. LESOBL( 7)='A2N1'
  216. LESOBL( 8)='A2N2'
  217. LESOBL( 9)='A2N3'
  218. LESOBL(10)='A2M1'
  219. LESOBL(11)='A2M2'
  220. LESOBL(12)='A2M3'
  221. LESOBL(13)='EPN1'
  222. LESOBL(14)='EPN2'
  223. LESOBL(15)='EPN3'
  224. LESOBL(16)='EPM1'
  225. LESOBL(17)='EPM2'
  226. LESOBL(18)='EPM3'
  227. LESOBL(19)='EPSE'
  228. *
  229. * CAS CONTRAINTES OU DEFORMATIONS PLANES
  230. * OU DEFORMATIONS PLANES GENERALISEES
  231. *
  232. ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN
  233. NBROBL=19
  234. SEGINI,NOMID
  235. LESOBL( 1)='A1N1'
  236. LESOBL( 2)='A1N2'
  237. LESOBL( 3)='A1N3'
  238. LESOBL( 4)='A1M1'
  239. LESOBL( 5)='A1M2'
  240. LESOBL( 6)='A1M3'
  241. LESOBL( 7)='A2N1'
  242. LESOBL( 8)='A2N2'
  243. LESOBL( 9)='A2N3'
  244. LESOBL(10)='A2M1'
  245. LESOBL(11)='A2M2'
  246. LESOBL(12)='A2M3'
  247. LESOBL(13)='EPN1'
  248. LESOBL(14)='EPN2'
  249. LESOBL(15)='EPN3'
  250. LESOBL(16)='EPM1'
  251. LESOBL(17)='EPM2'
  252. LESOBL(18)='EPM3'
  253. LESOBL(19)='EPSE'
  254. ENDIF
  255. ELSE
  256. IF (IFOUR.EQ.2) THEN
  257. NBROBL=13
  258. SEGINI,NOMID
  259. LESOBL( 1)='A1SS'
  260. LESOBL( 2)='A1TT'
  261. LESOBL( 3)='A1NN'
  262. LESOBL( 4)='A1ST'
  263. LESOBL( 5)='A2SS'
  264. LESOBL( 6)='A2TT'
  265. LESOBL( 7)='A2NN'
  266. LESOBL( 8)='A2ST'
  267. LESOBL( 9)='VLSS'
  268. LESOBL(10)='VLTT'
  269. LESOBL(11)='VLNN'
  270. LESOBL(12)='VLST'
  271. LESOBL(13)='EPSE'
  272. ENDIF
  273. ENDIF
  274.  
  275. *
  276. * COQUE EPAISSE
  277. ********************
  278. ELSE IF (MFR.EQ.5) THEN
  279. *
  280. * CAS TRIDIMENSIONNEL
  281. *
  282. IF (IFOUR.EQ.2) THEN
  283. NBROBL=19
  284. SEGINI,NOMID
  285. LESOBL( 1)='A1SS'
  286. LESOBL( 2)='A1TT'
  287. LESOBL( 3)='A1NN'
  288. LESOBL( 4)='A1ST'
  289. LESOBL( 5)='A1SN'
  290. LESOBL( 6)='A1TN'
  291. LESOBL( 7)='A2SS'
  292. LESOBL( 8)='A2TT'
  293. LESOBL( 9)='A2NN'
  294. LESOBL(10)='A2ST'
  295. LESOBL(11)='A2SN'
  296. LESOBL(12)='A2TN'
  297. LESOBL(13)='VLSS'
  298. LESOBL(14)='VLTT'
  299. LESOBL(15)='VLNN'
  300. LESOBL(16)='VLST'
  301. LESOBL(17)='VLSN'
  302. LESOBL(18)='VLTN'
  303. LESOBL(19)='EPSE'
  304. ENDIF
  305.  
  306. * POUTRE ET TUYAU
  307. *********************
  308. ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN
  309. *
  310. * CAS TRIDIMENSIONNEL
  311. *
  312. IF (IFOUR.EQ.2) THEN
  313. NBROBL=19
  314. SEGINI NOMID
  315. LESOBL( 1)='A1FX'
  316. LESOBL( 2)='A1FY'
  317. LESOBL( 3)='A1FZ'
  318. LESOBL( 4)='A1MX'
  319. LESOBL( 5)='A1MY'
  320. LESOBL( 6)='A1MZ'
  321. LESOBL( 7)='A2FX'
  322. LESOBL( 8)='A2FY'
  323. LESOBL( 9)='A2FZ'
  324. LESOBL(10)='A2MX'
  325. LESOBL(11)='A2MY'
  326. LESOBL(12)='A2MZ'
  327. LESOBL(13)='EPFX'
  328. LESOBL(14)='EPFY'
  329. LESOBL(15)='EPFZ'
  330. LESOBL(16)='EPMX'
  331. LESOBL(17)='EPMY'
  332. LESOBL(18)='EPMZ'
  333. LESOBL(19)='EPSE'
  334. ENDIF
  335.  
  336. * COQUE CISAILLEMENT TRANSVERSE
  337. ***********************************
  338. ELSE IF (MFR.EQ.9) THEN
  339. IF (NPINT.EQ.0) THEN
  340. *
  341. * CAS TRIDIMENSIONNEL
  342. *
  343. IF (IFOUR.EQ.2) THEN
  344. NBROBL=25
  345. SEGINI NOMID
  346. LESOBL( 1)='A1N1'
  347. LESOBL( 2)='A1N2'
  348. LESOBL( 3)='A1N3'
  349. LESOBL( 4)='A1M1'
  350. LESOBL( 5)='A1M2'
  351. LESOBL( 6)='A1M3'
  352. LESOBL( 7)='A1V1'
  353. LESOBL( 8)='A1V2'
  354. LESOBL( 9)='A2N1'
  355. LESOBL(10)='A2N2'
  356. LESOBL(11)='A2N3'
  357. LESOBL(12)='A2M1'
  358. LESOBL(13)='A2M2'
  359. LESOBL(14)='A2M3'
  360. LESOBL(15)='A2V1'
  361. LESOBL(16)='A2V2'
  362. LESOBL(17)='EPN1'
  363. LESOBL(18)='EPN2'
  364. LESOBL(19)='EPN3'
  365. LESOBL(20)='EPM1'
  366. LESOBL(21)='EPM2'
  367. LESOBL(22)='EPM3'
  368. LESOBL(23)='EPV1'
  369. LESOBL(24)='EPV2'
  370. LESOBL(25)='EPSE'
  371. ENDIF
  372. ENDIF
  373.  
  374. * FORMULATION MEMBRANE
  375. **************************
  376. ELSE IF (MFR.EQ.25) THEN
  377. NBROBL=10
  378. SEGINI,NOMID
  379. LESOBL( 1)='A1SS'
  380. LESOBL( 2)='A1TT'
  381. LESOBL( 3)='A1ST'
  382. LESOBL( 4)='A2SS'
  383. LESOBL( 5)='A2TT'
  384. LESOBL( 6)='A2ST'
  385. LESOBL( 7)='VLSS'
  386. LESOBL( 8)='VLTT'
  387. LESOBL( 9)='VLST'
  388. LESOBL(10)='EPSE'
  389.  
  390. * FORMULATION UNIAXIALE
  391. ***************************
  392. ELSE IF (MFR.EQ.27) THEN
  393. NBROBL=4
  394. SEGINI,NOMID
  395. LESOBL(1)='A1FX'
  396. LESOBL(2)='A2FX'
  397. LESOBL(3)='EPFX'
  398. LESOBL(4)='EPSE'
  399. ENDIF
  400.  
  401. ENDIF
  402.  
  403. IPCOMP=NOMID
  404. SEGDES,NOMID
  405.  
  406. RETURN
  407. END
  408.  
  409.  
  410.  

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