Télécharger idvar8.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVAR8 SOURCE FANDEUR 16/06/13 21:15:00 8964
  2.  
  3. C=======================================================================
  4. C= RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  5. C= --------------------------------------------------------
  6. C=
  7. C= ENTREES :
  8. C= ---------
  9. C= MATEPL NUMERO DU MATERIAU PLASTIQUE
  10. C= MFR NUMERO DE FORMULATION
  11. C= IFOUR VALEUR DE IFOU DANS CCOPTIO
  12. C= NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  13. C= POUR LES ELEMENTS DE COQUE INTEGRES
  14. C=
  15. C= SORTIES :
  16. C= ---------
  17. C= IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  18. C= OBLIGATOIRES ET FACULTATIVES
  19. C= NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES
  20. C= NBRFAC NOMBRE DE COMPOSANTES FACTULTATIVES
  21. C=======================================================================
  22.  
  23. SUBROUTINE IDVAR8 (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_A
  37. C= ========================
  38. IF (MATEPL.EQ.76) THEN
  39.  
  40. * ELEMENT MASSIF
  41. ********************
  42. IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 1001
  43. *
  44. * CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  45. * OU DEFORMATIONS PLANES GENERALISEES
  46. *
  47. IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) GOTO 1040
  48. NBROBL=20
  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)='GPXX'
  59. LESOBL(10)='GPYY'
  60. LESOBL(11)='GPZZ'
  61. LESOBL(12)='GPXY'
  62. LESOBL(13)='VHXX'
  63. LESOBL(14)='VHYY'
  64. LESOBL(15)='VHZZ'
  65. LESOBL(16)='VHXY'
  66. LESOBL(17)='EPSE'
  67. LESOBL(18)='VHEI'
  68. LESOBL(19)='VQQQ'
  69. LESOBL(20)='VHQQ'
  70. *
  71. * CAS AXISYMETRIQUE
  72. *
  73. 1040 IF (IFOUR.NE.0) GOTO 1041
  74. NBROBL=20
  75. SEGINI,NOMID
  76. LESOBL( 1)='A1RR'
  77. LESOBL( 2)='A1ZZ'
  78. LESOBL( 3)='A1TT'
  79. LESOBL( 4)='A1RZ'
  80. LESOBL( 5)='A2RR'
  81. LESOBL( 6)='A2ZZ'
  82. LESOBL( 7)='A2TT'
  83. LESOBL( 8)='A2RZ'
  84. LESOBL( 9)='GPRR'
  85. LESOBL(10)='GPZZ'
  86. LESOBL(11)='GPTT'
  87. LESOBL(12)='GPRZ'
  88. LESOBL(13)='VHRR'
  89. LESOBL(14)='VHZZ'
  90. LESOBL(15)='VHTT'
  91. LESOBL(16)='VHRZ'
  92. LESOBL(17)='EPSE'
  93. LESOBL(18)='VHEI'
  94. LESOBL(19)='VQQQ'
  95. LESOBL(20)='VHQQ'
  96. *
  97. * CAS SERIE DE FOURIER
  98. *
  99. 1041 IF (IFOUR.NE.1) GOTO 1042
  100. NBROBL=28
  101. SEGINI,NOMID
  102. LESOBL( 1)='A1RR'
  103. LESOBL( 2)='A1ZZ'
  104. LESOBL( 3)='A1TT'
  105. LESOBL( 4)='A1RZ'
  106. LESOBL( 5)='A1RT'
  107. LESOBL( 6)='A1ZT'
  108. LESOBL( 7)='A2RR'
  109. LESOBL( 8)='A2ZZ'
  110. LESOBL( 9)='A2TT'
  111. LESOBL(10)='A2RZ'
  112. LESOBL(11)='A2RT'
  113. LESOBL(12)='A2ZT'
  114. LESOBL(13)='GPRR'
  115. LESOBL(14)='GPZZ'
  116. LESOBL(15)='GPTT'
  117. LESOBL(16)='GPRZ'
  118. LESOBL(17)='GPRT'
  119. LESOBL(18)='GPZT'
  120. LESOBL(19)='VHRR'
  121. LESOBL(20)='VHZZ'
  122. LESOBL(21)='VHTT'
  123. LESOBL(22)='VHRZ'
  124. LESOBL(23)='VHRT'
  125. LESOBL(24)='VHZT'
  126. LESOBL(25)='EPSE'
  127. LESOBL(26)='VHEI'
  128. LESOBL(27)='VQQQ'
  129. LESOBL(28)='VHQQ'
  130. *
  131. * CAS TRIDIMENSIONNEL
  132. *
  133. 1042 IF (IFOUR.NE.2) GOTO 1043
  134. NBROBL=28
  135. SEGINI,NOMID
  136. LESOBL( 1)='A1XX'
  137. LESOBL( 2)='A1YY'
  138. LESOBL( 3)='A1ZZ'
  139. LESOBL( 4)='A1XY'
  140. LESOBL( 5)='A1YZ'
  141. LESOBL( 6)='A1ZX'
  142. LESOBL( 7)='A2XX'
  143. LESOBL( 8)='A2YY'
  144. LESOBL( 9)='A2ZZ'
  145. LESOBL(10)='A2XY'
  146. LESOBL(11)='A2YZ'
  147. LESOBL(12)='A2ZX'
  148. LESOBL(13)='GPXX'
  149. LESOBL(14)='GPYY'
  150. LESOBL(15)='GPZZ'
  151. LESOBL(16)='GPXY'
  152. LESOBL(17)='GPYZ'
  153. LESOBL(18)='GPZX'
  154. LESOBL(19)='VHXX'
  155. LESOBL(20)='VHYY'
  156. LESOBL(21)='VHZZ'
  157. LESOBL(22)='VHXY'
  158. LESOBL(23)='VHYZ'
  159. LESOBL(24)='VHZX'
  160. LESOBL(25)='EPSE'
  161. LESOBL(26)='VHEI'
  162. LESOBL(27)='VQQQ'
  163. LESOBL(28)='VHQQ'
  164. C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  165. 1043 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1044
  166. NBROBL=16
  167. SEGINI,NOMID
  168. LESOBL( 1)='A1XX'
  169. LESOBL( 2)='A1YY'
  170. LESOBL( 3)='A1ZZ'
  171. LESOBL( 4)='A2XX'
  172. LESOBL( 5)='A2YY'
  173. LESOBL( 6)='A2ZZ'
  174. LESOBL( 7)='GPXX'
  175. LESOBL( 8)='GPYY'
  176. LESOBL( 9)='GPZZ'
  177. LESOBL(10)='VHXX'
  178. LESOBL(11)='VHYY'
  179. LESOBL(12)='VHZZ'
  180. LESOBL(13)='EPSE'
  181. LESOBL(14)='VHEI'
  182. LESOBL(15)='VQQQ'
  183. LESOBL(16)='VHQQ'
  184. C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  185. 1044 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 99
  186. NBROBL=16
  187. SEGINI,NOMID
  188. LESOBL( 1)='A1XX'
  189. LESOBL( 2)='A1YY'
  190. LESOBL( 3)='A1ZZ'
  191. LESOBL( 4)='A2XX'
  192. LESOBL( 5)='A2YY'
  193. LESOBL( 6)='A2ZZ'
  194. LESOBL( 7)='GPXX'
  195. LESOBL( 8)='GPYY'
  196. LESOBL( 9)='GPZZ'
  197. LESOBL(10)='VHXX'
  198. LESOBL(11)='VHYY'
  199. LESOBL(12)='VHZZ'
  200. LESOBL(13)='EPSE'
  201. LESOBL(14)='VHEI'
  202. LESOBL(15)='VQQQ'
  203. LESOBL(16)='VHQQ'
  204.  
  205. * COQUE
  206. ***********
  207. 1001 IF (MFR.NE.3) GOTO 1003
  208. IF (NPINT.EQ.0) THEN
  209. *
  210. * CAS TRIDIMENSIONNEL - FOURIER
  211. *
  212. IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN
  213. NBROBL=36
  214. SEGINI,NOMID
  215. LESOBL( 1)='A1N1'
  216. LESOBL( 2)='A1N2'
  217. LESOBL( 3)='A1N3'
  218. LESOBL( 4)='A1N4'
  219. LESOBL( 5)='A1M1'
  220. LESOBL( 6)='A1M2'
  221. LESOBL( 7)='A1M3'
  222. LESOBL( 8)='A1M4'
  223. LESOBL( 9)='A2N1'
  224. LESOBL(10)='A2N2'
  225. LESOBL(11)='A2N3'
  226. LESOBL(12)='A2N4'
  227. LESOBL(13)='A2M1'
  228. LESOBL(14)='A2M2'
  229. LESOBL(15)='A2M3'
  230. LESOBL(16)='A2M4'
  231. LESOBL(17)='GPN1'
  232. LESOBL(18)='GPN2'
  233. LESOBL(19)='GPN3'
  234. LESOBL(20)='GPN4'
  235. LESOBL(21)='GPM1'
  236. LESOBL(22)='GPM2'
  237. LESOBL(23)='GPM3'
  238. LESOBL(24)='GPM4'
  239. LESOBL(25)='EPN1'
  240. LESOBL(26)='EPN2'
  241. LESOBL(27)='EPN3'
  242. LESOBL(28)='EPN4'
  243. LESOBL(29)='EPM1'
  244. LESOBL(30)='EPM2'
  245. LESOBL(31)='EPM3'
  246. LESOBL(32)='EPM4'
  247. LESOBL(33)='EPSE'
  248. LESOBL(34)='VHEI'
  249. LESOBL(35)='VQQQ'
  250. LESOBL(36)='VHQQ'
  251. *
  252. * CAS AXISYMETRIQUE
  253. *
  254. ELSE IF (IFOUR.EQ.0) THEN
  255. NBROBL=28
  256. SEGINI NOMID
  257. LESOBL( 1)='A1N1'
  258. LESOBL( 2)='A1N2'
  259. LESOBL( 3)='A1N3'
  260. LESOBL( 4)='A1M1'
  261. LESOBL( 5)='A1M2'
  262. LESOBL( 6)='A1M3'
  263. LESOBL( 7)='A2N1'
  264. LESOBL( 8)='A2N2'
  265. LESOBL( 9)='A2N3'
  266. LESOBL(10)='A2M1'
  267. LESOBL(11)='A2M2'
  268. LESOBL(12)='A2M3'
  269. LESOBL(13)='GPN1'
  270. LESOBL(14)='GPN2'
  271. LESOBL(15)='GPN3'
  272. LESOBL(16)='GPM1'
  273. LESOBL(17)='GPM2'
  274. LESOBL(18)='GPM3'
  275. LESOBL(19)='EPN1'
  276. LESOBL(20)='EPN2'
  277. LESOBL(21)='EPN3'
  278. LESOBL(22)='EPM1'
  279. LESOBL(23)='EPM2'
  280. LESOBL(24)='EPM3'
  281. LESOBL(25)='EPSE'
  282. LESOBL(26)='VHEI'
  283. LESOBL(27)='VQQQ'
  284. LESOBL(28)='VHQQ'
  285. *
  286. * CAS CONTRAINTES OU DEFORMATIONS PLANES
  287. * OU DEFORMATIONS PLANES GENERALISEES
  288. *
  289. ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN
  290. NBROBL=28
  291. SEGINI NOMID
  292. LESOBL(1) ='A1N1'
  293. LESOBL(2) ='A1N2'
  294. LESOBL(3) ='A1N3'
  295. LESOBL(4) ='A1M1'
  296. LESOBL(5) ='A1M2'
  297. LESOBL(6) ='A1M3'
  298. LESOBL(7) ='A2N1'
  299. LESOBL(8) ='A2N2'
  300. LESOBL(9) ='A2N3'
  301. LESOBL(10)='A2M1'
  302. LESOBL(11)='A2M2'
  303. LESOBL(12)='A2M3'
  304. LESOBL(13)='GPN1'
  305. LESOBL(14)='GPN2'
  306. LESOBL(15)='GPN3'
  307. LESOBL(16)='GPM1'
  308. LESOBL(17)='GPM2'
  309. LESOBL(18)='GPM3'
  310. LESOBL(19)='EPN1'
  311. LESOBL(20)='EPN2'
  312. LESOBL(21)='EPN3'
  313. LESOBL(22)='EPM1'
  314. LESOBL(23)='EPM2'
  315. LESOBL(24)='EPM3'
  316. LESOBL(25)='EPSE'
  317. LESOBL(26)='VHEI'
  318. LESOBL(27)='VQQQ'
  319. LESOBL(28)='VHQQ'
  320. ENDIF
  321. ELSE
  322. IF (IFOUR.EQ.2) THEN
  323. NBROBL=20
  324. SEGINI NOMID
  325. LESOBL(1) ='A1SS'
  326. LESOBL(2) ='A1TT'
  327. LESOBL(3) ='A1NN'
  328. LESOBL(4) ='A1ST'
  329. LESOBL(5) ='A2SS'
  330. LESOBL(6) ='A2TT'
  331. LESOBL(7) ='A2NN'
  332. LESOBL(8) ='A2ST'
  333. LESOBL(9) ='GPSS'
  334. LESOBL(10)='GPTT'
  335. LESOBL(11)='GPNN'
  336. LESOBL(12)='GPST'
  337. LESOBL(13)='VHSS'
  338. LESOBL(14)='VHTT'
  339. LESOBL(15)='VHNN'
  340. LESOBL(16)='VHST'
  341. LESOBL(17)='EPSE'
  342. LESOBL(18)='VHEI'
  343. LESOBL(19)='VQQQ'
  344. LESOBL(20)='VHQQ'
  345. ENDIF
  346. ENDIF
  347.  
  348. * COQUE EPAISSE
  349. ********************
  350. 1003 IF (MFR.NE.5) GOTO 1005
  351. IF (IFOUR.NE.2) GOTO 99
  352. * CAS TRIDIMENSIONNEL
  353. NBROBL=28
  354. SEGINI NOMID
  355. LESOBL(1) ='A1SS'
  356. LESOBL(2) ='A1TT'
  357. LESOBL(3) ='A1NN'
  358. LESOBL(4) ='A1ST'
  359. LESOBL(5) ='A1SN'
  360. LESOBL(6) ='A1TN'
  361. LESOBL(7) ='A2SS'
  362. LESOBL(8) ='A2TT'
  363. LESOBL(9) ='A2NN'
  364. LESOBL(10)='A2ST'
  365. LESOBL(11)='A2SN'
  366. LESOBL(12)='A2TN'
  367. LESOBL(13)='GPSS'
  368. LESOBL(14)='GPTT'
  369. LESOBL(15)='GPNN'
  370. LESOBL(16)='GPST'
  371. LESOBL(17)='GPSN'
  372. LESOBL(18)='GPTN'
  373. LESOBL(19)='VHSS'
  374. LESOBL(20)='VHTT'
  375. LESOBL(21)='VHNN'
  376. LESOBL(22)='VHST'
  377. LESOBL(23)='VHSN'
  378. LESOBL(24)='VHTN'
  379. LESOBL(25)='EPSE'
  380. LESOBL(26)='VHEI'
  381. LESOBL(27)='VQQQ'
  382. LESOBL(28)='VHQQ'
  383.  
  384. * POUTRE ET TUYAU
  385. *********************
  386. 1005 IF (MFR.NE.7.AND.MFR.NE.13) GOTO 1007
  387. *
  388. * CAS TRIDIMENSIONNEL
  389. *
  390. IF (IFOUR.NE.2) GOTO 99
  391. NBROBL=28
  392. SEGINI NOMID
  393. LESOBL(1) ='A1FX'
  394. LESOBL(2) ='A1FY'
  395. LESOBL(3) ='A1FZ'
  396. LESOBL(4) ='A1MX'
  397. LESOBL(5) ='A1MY'
  398. LESOBL(6) ='A1MZ'
  399. LESOBL(7) ='A2FX'
  400. LESOBL(8) ='A2FY'
  401. LESOBL(9) ='A2FZ'
  402. LESOBL(10)='A2MX'
  403. LESOBL(11)='A2MY'
  404. LESOBL(12)='A2MZ'
  405. LESOBL(13)='GPFX'
  406. LESOBL(14)='GPFY'
  407. LESOBL(15)='GPFZ'
  408. LESOBL(16)='GPMX'
  409. LESOBL(17)='GPMY'
  410. LESOBL(18)='GPMZ'
  411. LESOBL(19)='EPFX'
  412. LESOBL(20)='EPFY'
  413. LESOBL(21)='EPFZ'
  414. LESOBL(22)='EPMX'
  415. LESOBL(23)='EPMY'
  416. LESOBL(24)='EPMZ'
  417. LESOBL(25)='EPSE'
  418. LESOBL(26)='VHEI'
  419. LESOBL(27)='VQQQ'
  420. LESOBL(28)='VHQQ'
  421.  
  422. * COQUE CISAILLEMENT TRANSVERSE
  423. ***********************************
  424. 1007 IF (MFR.NE.9) GOTO 1009
  425. IF (NPINT.EQ.0) THEN
  426. * CAS TRIDIMENSIONNEL
  427. IF (IFOUR.EQ.2) THEN
  428. NBROBL=36
  429. SEGINI,NOMID
  430. LESOBL(1) ='A1N1'
  431. LESOBL(2) ='A1N2'
  432. LESOBL(3) ='A1N3'
  433. LESOBL(4) ='A1M1'
  434. LESOBL(5) ='A1M2'
  435. LESOBL(6) ='A1M3'
  436. LESOBL(7) ='A1V1'
  437. LESOBL(8) ='A1V2'
  438. LESOBL(9) ='A2N1'
  439. LESOBL(10)='A2N2'
  440. LESOBL(11)='A2N3'
  441. LESOBL(12)='A2M1'
  442. LESOBL(13)='A2M2'
  443. LESOBL(14)='A2M3'
  444. LESOBL(15)='A2V1'
  445. LESOBL(16)='A2V2'
  446. LESOBL(17)='GPN1'
  447. LESOBL(18)='GPN2'
  448. LESOBL(19)='GPN3'
  449. LESOBL(20)='GPM1'
  450. LESOBL(21)='GPM2'
  451. LESOBL(22)='GPM3'
  452. LESOBL(23)='GPV1'
  453. LESOBL(24)='GPV2'
  454. LESOBL(25)='EPN1'
  455. LESOBL(26)='EPN2'
  456. LESOBL(27)='EPN3'
  457. LESOBL(28)='EPM1'
  458. LESOBL(29)='EPM2'
  459. LESOBL(30)='EPM3'
  460. LESOBL(31)='EPV1'
  461. LESOBL(32)='EPV2'
  462. LESOBL(33)='EPSE'
  463. LESOBL(34)='VHEI'
  464. LESOBL(35)='VQQQ'
  465. LESOBL(36)='VHQQ'
  466. ENDIF
  467. ENDIF
  468.  
  469. * FORMULATION MEMBRANE
  470. **************************
  471. 1009 CONTINUE
  472. IF(MFR.NE.25) GOTO 1025
  473. NBROBL=16
  474. SEGINI,NOMID
  475. LESOBL( 1)='A1SS'
  476. LESOBL( 2)='A1TT'
  477. LESOBL( 3)='A1ST'
  478. LESOBL( 4)='A2SS'
  479. LESOBL( 5)='A2TT'
  480. LESOBL( 6)='A2ST'
  481. LESOBL( 7)='GPSS'
  482. LESOBL( 8)='GPTT'
  483. LESOBL( 9)='GPST'
  484. LESOBL(10)='VHSS'
  485. LESOBL(11)='VHTT'
  486. LESOBL(12)='VHST'
  487. LESOBL(13)='EPSE'
  488. LESOBL(14)='VHEI'
  489. LESOBL(15)='VQQQ'
  490. LESOBL(16)='VHQQ'
  491.  
  492. * FORMULATION UNIAXIALE
  493. ***************************
  494. 1025 IF (MFR.EQ.27) THEN
  495. NBROBL=8
  496. SEGINI,NOMID
  497. LESOBL(1)='A1FX'
  498. LESOBL(2)='A2FX'
  499. LESOBL(3)='GPFX'
  500. LESOBL(4)='EPFX'
  501. LESOBL(5)='EPSE'
  502. LESOBL(6)='VHEI'
  503. LESOBL(7)='VQQQ'
  504. LESOBL(8)='VHQQ'
  505. ENDIF
  506.  
  507. ENDIF
  508.  
  509. 99 IPCOMP=NOMID
  510. SEGDES,NOMID
  511.  
  512. RETURN
  513. END
  514.  
  515.  
  516.  
  517.  
  518.  

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