Télécharger idva6c.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVA6C SOURCE BR232186 13/12/09 21:15:15 7841
  2. *_______________________________________________________________________
  3. * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  4. * --------------------------------------------------------
  5. *
  6. * ENTREES :
  7. * ---------
  8. * MATEPL NUMERO DU MATERIAU PLASTIQUE
  9. * MFR NUMERO DE FORMULATION
  10. * IFOUR VALEUR DE IFOU DANS CCOPTIO
  11. * NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  12. * POUR LES ELEMENTS DE COQUE INTEGRES
  13. *
  14. * SORTIES :
  15. * ---------
  16. * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  17. * OBLIGATOIRES ET FACULTATIVES
  18. * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES
  19. * NBRFAC NOMBRE DE COMPOSANTES FACTULTATIVES
  20. *_______________________________________________________________________
  21.  
  22. SUBROUTINE IDVA6C (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL,
  23. . NBRFAC)
  24.  
  25. IMPLICIT INTEGER(I-N)
  26. SEGMENT NOMID
  27. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  28. ENDSEGMENT
  29.  
  30. CHARACTER*4 NOMBET(17),NOMTUP(5)
  31. CHARACTER*4 NOMIN1(32),NOMIN2(6),NOMIN4(4),NOMI11(14)
  32.  
  33. DATA NOMBET/'EPSE','DAM1','DAM2','DAM3',
  34. . 'OUV1','OUV2','OUV3','LAMD',
  35. . 'VI1X','VI1Y','VI1Z',
  36. . 'VI2X','VI2Y','VI2Z',
  37. . 'VI3X','VI3Y','VI3Z'/
  38. DATA NOMTUP/'VAM1','VAM2','VHTA','VHJP','EPSE'/
  39.  
  40. DATA NOMIN1/'EPSE','TAN1','TAN2','IPL1','IFI2','RTM1',
  41. . 'RTM2','IFI1','JFI1','VHGL','JFI2','EQC1',
  42. . 'EPE1','EPT1','EPT2','EQC2','EPE2','EPC1',
  43. . 'EPC2','IPL2','OUV1','EDC1','EDC2','ETS1',
  44. . 'ETS2','EDT1','EDT2','OUV2','DFR1','DFR2',
  45. . 'VHAS','VHMP'/
  46. DATA NOMI11/'EQC3','EPE3','EPT3','EPC3','DFR3','RTM3',
  47. . 'EDC3','ETS3','EDT3','TAN3','OUV3','IPL3',
  48. . 'IFI3','JFI3'/
  49. DATA NOMIN2/'EP01','EP02','EP03','EP04','EP05','EP06'/
  50. DATA NOMIN4/'EPSE','EPT1','EPT2','EPT3'/
  51.  
  52. IPCOMP=0
  53. NBROBL=0
  54. NBRFAC=0
  55. NOMID=0
  56.  
  57. C on ne traite ici que les 101 à 150 premiers matepl
  58.  
  59. GOTO (97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  60. . 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  61. . 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  62. . 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  63. . 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  64. . 97,101,97,97,104,105,106,97,97,97,97,97,97,97,97,97,97,97,
  65. . 97,97,120,121,122,97,97,97,97,127,128,97,97,97,97,133,97,135,
  66. . 97,97,97,97,140,97,142,143,97,145,146,147),MATEPL
  67.  
  68. C
  69. C MATERIAU UNILATERAL (modèle à fibreFibre)
  70. C
  71. 104 CONTINUE
  72. NBROBL=8
  73. SEGINI NOMID
  74. LESOBL(1)='TANG'
  75. LESOBL(2)='D1 '
  76. LESOBL(3)='D2 '
  77. LESOBL(4)='YLI1'
  78. LESOBL(5)='YLI2'
  79. LESOBL(6)='EPS1'
  80. LESOBL(7)='EPS2'
  81. LESOBL(8)='EPS3'
  82. GOTO 666
  83.  
  84. *
  85. ***** BETON URGC fluage *****
  86. 101 CONTINUE
  87. NBROBL=43
  88. SEGINI NOMID
  89. LESOBL(1)='IFIS'
  90. LESOBL(2)='ANGL'
  91. LESOBL(3)='IPLA'
  92. LESOBL(4)='SIG1'
  93. LESOBL(5)='SIG2'
  94. LESOBL(6)='EPS1'
  95. LESOBL(7)='EPS2'
  96. LESOBL(8)='S1'
  97. LESOBL(9)='S2'
  98. LESOBL(10)='S3'
  99. LESOBL(11)='S4'
  100. LESOBL(12)='S5'
  101. LESOBL(13)='S6'
  102. LESOBL(14)='S7'
  103. LESOBL(15)='S8'
  104. LESOBL(16)='S9'
  105. LESOBL(17)='S10'
  106. LESOBL(18)='S11'
  107. LESOBL(19)='S12'
  108. LESOBL(20)='S13'
  109. LESOBL(21)='S14'
  110. LESOBL(22)='S15'
  111. LESOBL(23)='S16'
  112. LESOBL(24)='S17'
  113. LESOBL(25)='S18'
  114. LESOBL(26)='S19'
  115. LESOBL(27)='S20'
  116. LESOBL(28)='S21'
  117. LESOBL(29)='S22'
  118. LESOBL(30)='S23'
  119. LESOBL(31)='S24'
  120. LESOBL(32)='S25'
  121. LESOBL(33)='S26'
  122. LESOBL(34)='S27'
  123. LESOBL(35)='S28'
  124. LESOBL(36)='S29'
  125. LESOBL(37)='S30'
  126. LESOBL(38)='S31'
  127. LESOBL(39)='S32'
  128. LESOBL(40)='S33'
  129. LESOBL(41)='S34'
  130. LESOBL(42)='S35'
  131. LESOBL(43)='S36'
  132. GOTO 666
  133. C
  134. 105 CONTINUE
  135. NBROBL=2
  136. SEGINI NOMID
  137. LESOBL(1)='EPSE'
  138. LESOBL(2)='TFLC'
  139. GOTO 666
  140.  
  141. C-----------------------------
  142. C FORMULATION MAXOTT
  143. C-----------------------------
  144. 106 CONTINUE
  145. C
  146. C-------CAS TRIDIMENSIONNEL MASSIF------
  147. C
  148. IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN
  149. NBRFAC=4
  150. NBROBL=27
  151. SEGINI NOMID
  152. LESOBL(1) ='EPSE'
  153. LESOBL(2) ='W1MA'
  154. LESOBL(3) ='W2MA'
  155. LESOBL(4) ='W3MA'
  156. LESOBL(5) ='W1 '
  157. LESOBL(6) ='W2 '
  158. LESOBL(7) ='W3 '
  159. LESOBL(8) ='VF1X'
  160. LESOBL(9) ='VF1Y'
  161. LESOBL(10)='VF1Z'
  162. LESOBL(11)='VF2X'
  163. LESOBL(12)='VF2Y'
  164. LESOBL(13)='VF2Z'
  165. LESOBL(14)='VF3X'
  166. LESOBL(15)='VF3Y'
  167. LESOBL(16)='VF3Z'
  168. LESOBL(17)='IVL1'
  169. LESOBL(18)='IVL2'
  170. LESOBL(19)='IVL3'
  171. LESOBL(20)='LBDC'
  172. LESOBL(21)='ETIL'
  173. LESOBL(22)='EPSF'
  174. LESOBL(23)='SM0 '
  175. LESOBL(24)='SM1 '
  176. LESOBL(25)='SM2 '
  177. LESOBL(26)='SM3 '
  178. LESOBL(27)='SM4 '
  179. *
  180. LESFAC(1) ='SM5 '
  181. LESFAC(2) ='SM6 '
  182. LESFAC(3) ='SM7 '
  183. LESFAC(4) ='SM8 '
  184. GOTO 666
  185. ENDIF
  186. *
  187. C-------CAS DEFO PLANES/AXISYMETRIQUE--------
  188. C
  189. IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3
  190. & .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  191. NBRFAC=4
  192. NBROBL=22
  193. SEGINI NOMID
  194. LESOBL(1) ='EPSE'
  195. LESOBL(2) ='W1MA'
  196. LESOBL(3) ='W2MA'
  197. LESOBL(4) ='EPSM'
  198. LESOBL(5) ='W1 '
  199. LESOBL(6) ='W2 '
  200. LESOBL(7) ='VEPS'
  201. LESOBL(8) ='VF1X'
  202. LESOBL(9) ='VF1Y'
  203. LESOBL(10)='VF2X'
  204. LESOBL(11)='VF2Y'
  205. LESOBL(12)='IVL1'
  206. LESOBL(13)='IVL2'
  207. LESOBL(14)='IVL3'
  208. LESOBL(15)='LBDC'
  209. LESOBL(16)='ETIL'
  210. LESOBL(17)='EPSF'
  211. LESOBL(18)='SM0 '
  212. LESOBL(19)='SM1 '
  213. LESOBL(20)='SM2 '
  214. LESOBL(21)='SM3 '
  215. LESOBL(22)='SM4 '
  216. *
  217. LESFAC(1) ='SM5 '
  218. LESFAC(2) ='SM6 '
  219. LESFAC(3) ='SM7 '
  220. LESFAC(4) ='SM8 '
  221. GOTO 666
  222. ENDIF
  223. C
  224. C-------CAS CONT PLANES--------
  225. C -----OU CAS TRIDIMENSIONNEL COQUES------
  226. IF (IFOUR.EQ.-2.OR.
  227. . (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  228. NBRFAC=4
  229. NBROBL=19
  230. SEGINI NOMID
  231. LESOBL(1) ='EPSE'
  232. LESOBL(2) ='W1MA'
  233. LESOBL(3) ='W2MA'
  234. LESOBL(4) ='W1 '
  235. LESOBL(5) ='W2 '
  236. LESOBL(6) ='VF1X'
  237. LESOBL(7) ='VF1Y'
  238. LESOBL(8) ='VF2X'
  239. LESOBL(9) ='VF2Y'
  240. LESOBL(10)='IVL1'
  241. LESOBL(11)='IVL2'
  242. LESOBL(12)='LBDC'
  243. LESOBL(13)='ETIL'
  244. LESOBL(14)='EPSF'
  245. LESOBL(15)='SM0 '
  246. LESOBL(16)='SM1 '
  247. LESOBL(17)='SM2 '
  248. LESOBL(18)='SM3 '
  249. LESOBL(19)='SM4 '
  250. LESFAC(1) ='SM5 '
  251. LESFAC(2) ='SM6 '
  252. LESFAC(3) ='SM7 '
  253. LESFAC(4) ='SM8 '
  254. GOTO 666
  255. ENDIF
  256.  
  257. ***** BETON URGC plastique endo *****
  258. 120 CONTINUE
  259. NBROBL=9
  260. SEGINI NOMID
  261. LESOBL(1)='IFIS'
  262. LESOBL(2)='ANGL'
  263. LESOBL(3)='IPLA'
  264. LESOBL(4)='SIG1'
  265. LESOBL(5)='SIG2'
  266. LESOBL(6)='EPS1'
  267. LESOBL(7)='EPS2'
  268. LESOBL(8)='ENDO'
  269. LESOBL(9)='DECO'
  270. GO TO 666
  271.  
  272. ***** BETON INSA plastique endo 3D*****
  273. 121 CONTINUE
  274. NBROBL=9
  275. SEGINI NOMID
  276. LESOBL(1)='IFIS'
  277. LESOBL(2)='IPLA'
  278. LESOBL(3)='SEQT'
  279. LESOBL(4)='SEQC'
  280. LESOBL(5)='DKT'
  281. LESOBL(6)='DKC'
  282. LESOBL(7)='ENDT'
  283. LESOBL(8)='ENDC'
  284. LESOBL(9)='RAND'
  285. GO TO 666
  286. C
  287. ***** BETON INSA viscoplastique endo *****
  288. 122 CONTINUE
  289. NBROBL=19
  290. SEGINI NOMID
  291. LESOBL(1)='IFIS'
  292. LESOBL(2)='ANGL'
  293. LESOBL(3)='IPLA'
  294. LESOBL(4)='SIG1'
  295. LESOBL(5)='SIG2'
  296. LESOBL(6)='EPS1'
  297. LESOBL(7)='EPS2'
  298. LESOBL(8)='TDEF'
  299. LESOBL(9)='TCON'
  300. LESOBL(10)='SP1'
  301. LESOBL(11)='SP2'
  302. LESOBL(12)='SP3'
  303. LESOBL(13)='SP4'
  304. LESOBL(14)='EPV1'
  305. LESOBL(15)='EPV2'
  306. LESOBL(16)='SIV1'
  307. LESOBL(17)='SIV2'
  308. LESOBL(18)='ENDO'
  309. LESOBL(19)='ENDV'
  310. GOTO 666
  311. C
  312. ***** FBB1 *****
  313. 127 CONTINUE
  314. C
  315. C-------CAS TRIDIMENSIONNEL MASSIF------
  316. C
  317. IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN
  318. NBROBL=21
  319. SEGINI NOMID
  320. LESOBL( 1)='EPSE'
  321. LESOBL( 2)='ERSP'
  322. LESOBL( 3)='EISP'
  323. LESOBL( 4)='ERD1'
  324. LESOBL( 5)='EID1'
  325. LESOBL( 6)='ERD2'
  326. LESOBL( 7)='EID2'
  327. LESOBL( 8)='ERD3'
  328. LESOBL( 9)='EID3'
  329. LESOBL(10)='EFD1'
  330. LESOBL(11)='EFD2'
  331. LESOBL(12)='EFD3'
  332. LESOBL(13)='DR12'
  333. LESOBL(14)='DI12'
  334. LESOBL(15)='DR13'
  335. LESOBL(16)='DI13'
  336. LESOBL(17)='DR23'
  337. LESOBL(18)='DI23'
  338. LESOBL(19)='FD12'
  339. LESOBL(20)='FD13'
  340. LESOBL(21)='FD23'
  341. GOTO 666
  342. ENDIF
  343. C
  344. C-------CAS DEFO PLANES/AXISYMETRIQUE--------
  345. C
  346. IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3
  347. & .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  348. NBROBL=15
  349. SEGINI NOMID
  350. LESOBL( 1)='EPSE'
  351. LESOBL( 2)='ERSP'
  352. LESOBL( 3)='EISP'
  353. LESOBL( 4)='ERD1'
  354. LESOBL( 5)='EID1'
  355. LESOBL( 6)='ERD2'
  356. LESOBL( 7)='EID2'
  357. LESOBL( 8)='ERD3'
  358. LESOBL( 9)='EID3'
  359. LESOBL(10)='EFD1'
  360. LESOBL(11)='EFD2'
  361. LESOBL(12)='EFD3'
  362. LESOBL(13)='DR12'
  363. LESOBL(14)='DI12'
  364. LESOBL(15)='FD12'
  365. GOTO 666
  366. ENDIF
  367. C
  368. C-------CAS CONT PLANES--------
  369. C -----OU CAS TRIDIMENSIONNEL COQUES------
  370. C
  371. IF (IFOUR.EQ.-2.OR.
  372. . (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  373. NBROBL=15
  374. SEGINI NOMID
  375. LESOBL( 1)='EPSE'
  376. LESOBL( 2)='ERSP'
  377. LESOBL( 3)='EISP'
  378. LESOBL( 4)='ERD1'
  379. LESOBL( 5)='EID1'
  380. LESOBL( 6)='ERD2'
  381. LESOBL( 7)='EID2'
  382. LESOBL( 8)='ERD3'
  383. LESOBL( 9)='EID3'
  384. LESOBL(10)='EFD1'
  385. LESOBL(11)='EFD2'
  386. LESOBL(12)='EFD3'
  387. LESOBL(13)='DR12'
  388. LESOBL(14)='DI12'
  389. LESOBL(15)='FD12'
  390. GOTO 666
  391. ENDIF
  392. C
  393. ***** FBB2 *****
  394. 128 CONTINUE
  395. C
  396. C-------CAS TRIDIMENSIONNEL MASSIF------
  397. C
  398. IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN
  399. NBROBL=40
  400. SEGINI NOMID
  401. LESOBL(1) ='EPSE'
  402. LESOBL(2)='ERSP'
  403. LESOBL(3)='EISP'
  404. LESOBL(4)='ERD1'
  405. LESOBL(5)='EID1'
  406. LESOBL(6)='ERD2'
  407. LESOBL(7)='EID2'
  408. LESOBL(8)='ERD3'
  409. LESOBL(9)='EID3'
  410. LESOBL(10)='EFD1'
  411. LESOBL(11)='EFD2'
  412. LESOBL(12)='EFD3'
  413. LESOBL(13)='DR12'
  414. LESOBL(14)='DI12'
  415. LESOBL(15)='DR13'
  416. LESOBL(16)='DI13'
  417. LESOBL(17)='DR23'
  418. LESOBL(18)='DI23'
  419. LESOBL(19)='FD12'
  420. LESOBL(20)='FD13'
  421. LESOBL(21)='FD23'
  422. LESOBL(22) ='W1MA'
  423. LESOBL(23) ='W2MA'
  424. LESOBL(24) ='W3MA'
  425. LESOBL(25) ='W1 '
  426. LESOBL(26) ='W2 '
  427. LESOBL(27) ='W3 '
  428. LESOBL(28) ='VF1X'
  429. LESOBL(29) ='VF1Y'
  430. LESOBL(30)='VF1Z'
  431. LESOBL(31)='VF2X'
  432. LESOBL(32)='VF2Y'
  433. LESOBL(33)='VF2Z'
  434. LESOBL(34)='VF3X'
  435. LESOBL(35)='VF3Y'
  436. LESOBL(36)='VF3Z'
  437. LESOBL(37)='IVL1'
  438. LESOBL(38)='IVL2'
  439. LESOBL(39)='IVL3'
  440. LESOBL(40)='LBDC'
  441. GOTO 666
  442. ENDIF
  443. C
  444. C-------CAS DEFO PLANES/AXISYMETRIQUE--------
  445. C
  446. IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3
  447. & .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  448. NBROBL=29
  449. SEGINI NOMID
  450. LESOBL(1) ='EPSE'
  451. LESOBL(2)='ERSP'
  452. LESOBL(3)='EISP'
  453. LESOBL(4)='ERD1'
  454. LESOBL(5)='EID1'
  455. LESOBL(6)='ERD2'
  456. LESOBL(7)='EID2'
  457. LESOBL(8)='ERD3'
  458. LESOBL(9)='EID3'
  459. LESOBL(10)='EFD1'
  460. LESOBL(11)='EFD2'
  461. LESOBL(12)='EFD3'
  462. LESOBL(13)='DR12'
  463. LESOBL(14)='DI12'
  464. LESOBL(15)='FD12'
  465. LESOBL(16) ='W1MA'
  466. LESOBL(17) ='W2MA'
  467. LESOBL(18) ='EPSM'
  468. LESOBL(19) ='W1 '
  469. LESOBL(20) ='W2 '
  470. LESOBL(21) ='VEPS'
  471. LESOBL(22) ='VF1X'
  472. LESOBL(23) ='VF1Y'
  473. LESOBL(24)='VF2X'
  474. LESOBL(25)='VF2Y'
  475. LESOBL(26)='IVL1'
  476. LESOBL(27)='IVL2'
  477. LESOBL(28)='IVL3'
  478. LESOBL(29)='LBDC'
  479. GOTO 666
  480. ENDIF
  481. C
  482. C-------CAS CONT PLANES--------
  483. C -----OU CAS TRIDIMENSIONNEL COQUES------
  484. C
  485. IF (IFOUR.EQ.-2.OR.
  486. . (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  487. NBROBL=26
  488. SEGINI NOMID
  489. LESOBL(1) ='EPSE'
  490. LESOBL(2)='ERSP'
  491. LESOBL(3)='EISP'
  492. LESOBL(4)='ERD1'
  493. LESOBL(5)='EID1'
  494. LESOBL(6)='ERD2'
  495. LESOBL(7)='EID2'
  496. LESOBL(8)='ERD3'
  497. LESOBL(9)='EID3'
  498. LESOBL(10)='EFD1'
  499. LESOBL(11)='EFD2'
  500. LESOBL(12)='EFD3'
  501. LESOBL(13)='DR12'
  502. LESOBL(14)='DI12'
  503. LESOBL(15)='FD12'
  504. LESOBL(16) ='W1MA'
  505. LESOBL(17) ='W2MA'
  506. LESOBL(18) ='W1 '
  507. LESOBL(19) ='W2 '
  508. LESOBL(20) ='VF1X'
  509. LESOBL(21) ='VF1Y'
  510. LESOBL(22) ='VF2X'
  511. LESOBL(23) ='VF2Y'
  512. LESOBL(24)='IVL1'
  513. LESOBL(25)='IVL2'
  514. LESOBL(26)='LBDC'
  515. GOTO 666
  516. ENDIF
  517. C
  518. ***** BETON LMT Cachan viscoplastique viscoendo pour la dynamique rapide *****
  519. 133 CONTINUE
  520. NBROBL=12
  521. SEGINI NOMID
  522. LESOBL(1)='D '
  523. LESOBL(2)='F '
  524. LESOBL(3)='EPV1'
  525. LESOBL(4)='EPV2'
  526. LESOBL(5)='EPV3'
  527. LESOBL(6)='EPV4'
  528. LESOBL(7)='EPV5'
  529. LESOBL(8)='EPV6'
  530. LESOBL(9)='SIGM'
  531. LESOBL(10)='DTRA'
  532. LESOBL(11)='DCOM'
  533. LESOBL(12)='ES '
  534. GOTO 666
  535. C debut modif dp2
  536. 140 CONTINUE
  537. NBROBL=5
  538. SEGINI NOMID
  539. LESOBL(1)='EPS1'
  540. LESOBL(2)='EPS2'
  541. LESOBL(3)='EPSE'
  542. LESOBL(4)='EPA1'
  543. LESOBL(5)='EPA2'
  544. IPCOMP=NOMID
  545. SEGDES NOMID
  546. GO TO 666
  547. * fin modif DP2
  548. 135 CONTINUE
  549. NBROBL=9
  550. SEGINI,NOMID
  551. LESOBL(1)='EPTI'
  552. LESOBL(2)='D '
  553. LESOBL(3)='CI11'
  554. LESOBL(4)='CI22'
  555. LESOBL(5)='CI33'
  556. LESOBL(6)='CI23'
  557. LESOBL(7)='CI13'
  558. LESOBL(8)='CI12'
  559. LESOBL(9)='KH '
  560. GO TO 666
  561. C*****************************************************
  562. C
  563. C MATERIAU VISCOPLASTIQUE ENDOMMAGEABLE2
  564. C
  565. 142 CONTINUE
  566. NBROBL=8
  567. SEGINI NOMID
  568. LESOBL(1)='EPSE'
  569. * tenseur d'endommagement
  570. LESOBL(2)='VH11'
  571. LESOBL(3)='VH22'
  572. LESOBL(4)='VH33'
  573. LESOBL(5)='VH12'
  574. LESOBL(6)='VH13'
  575. LESOBL(7)='VH23'
  576. * endommagement principal maximal
  577. LESOBL(8) ='DMAX'
  578. GOTO 666
  579. C******************************************************
  580. C
  581. C MATERIAU FLUTRA
  582. C
  583. 143 CONTINUE
  584. NBROBL=56
  585. SEGINI NOMID
  586. C
  587. LESOBL(1)='EPSTIM'
  588. LESOBL(2)='D'
  589. C
  590. C Contraintes effectives
  591. C
  592. LESOBL(3)='SEXX'
  593. LESOBL(4)='SEYY'
  594. LESOBL(5)='SEXY'
  595. LESOBL(6)='SEZZ'
  596. LESOBL(7)='SEZX'
  597. LESOBL(8)='SEYZ'
  598. C
  599. C Fluage propre Chaine 1
  600. C
  601. LESOBL(9)='EXX1'
  602. LESOBL(10)='EYY1'
  603. LESOBL(11)='EZZ1'
  604. LESOBL(12)='EXY1'
  605. LESOBL(13)='EXZ1'
  606. LESOBL(14)='EYZ1'
  607. C
  608. C Fluage propre Chaine 2
  609. C
  610. LESOBL(15)='EXX2'
  611. LESOBL(16)='EYY2'
  612. LESOBL(17)='EZZ2'
  613. LESOBL(18)='EXY2'
  614. LESOBL(19)='EXZ2'
  615. LESOBL(20)='EYZ2'
  616. C
  617. C Fluage propre Chaine 3
  618. C
  619. LESOBL(21)='EXX3'
  620. LESOBL(22)='EYY3'
  621. LESOBL(23)='EZZ3'
  622. LESOBL(24)='EXY3'
  623. LESOBL(25)='EXZ3'
  624. LESOBL(26)='EYZ3'
  625. C
  626. C Fluage propre Chaine 4
  627. C
  628. LESOBL(27)='EXX4'
  629. LESOBL(28)='EYY4'
  630. LESOBL(29)='EZZ4'
  631. LESOBL(30)='EXY4'
  632. LESOBL(31)='EXZ4'
  633. LESOBL(32)='EYZ4'
  634. C
  635. C Fluage propre Chaine 5
  636. C
  637. LESOBL(33)='EXX5'
  638. LESOBL(34)='EYY5'
  639. LESOBL(35)='EZZ5'
  640. LESOBL(36)='EXY5'
  641. LESOBL(37)='EXZ5'
  642. LESOBL(38)='EYZ5'
  643. C
  644. C Fluage propre Chaine 6
  645. C
  646. LESOBL(39)='EXX6'
  647. LESOBL(40)='EYY6'
  648. LESOBL(41)='EZZ6'
  649. LESOBL(42)='EXY6'
  650. LESOBL(43)='EXZ6'
  651. LESOBL(44)='EYZ6'
  652. C
  653. C Amortisseur
  654. C
  655. LESOBL(45)='EXX7'
  656. LESOBL(46)='EYY7'
  657. LESOBL(47)='EZZ7'
  658. LESOBL(48)='EXY7'
  659. LESOBL(49)='EXZ7'
  660. LESOBL(50)='EYZ7'
  661. C
  662. C Fluage dessiccation
  663. C
  664. LESOBL(51)='EDXX'
  665. LESOBL(52)='EDYY'
  666. LESOBL(53)='EDZZ'
  667. LESOBL(54)='EDXY'
  668. LESOBL(55)='EDXZ'
  669. LESOBL(56)='EDYZ'
  670. GO TO 666
  671. C******************************************************
  672. C
  673. C MATERIAU INTIMP
  674. C
  675. 145 CONTINUE
  676. write(6,*) 'on passe bien ici'
  677. NBROBL=25
  678. SEGINI NOMID
  679. LESOBL( 1)='ENDS'
  680. LESOBL( 2)='PVAR'
  681. LESOBL( 3)='DEPP'
  682. LESOBL( 4)='RVAR'
  683. LESOBL( 5)='SIGS'
  684. LESOBL( 6)='EPSP'
  685. LESOBL( 7)='NA1 '
  686. LESOBL( 8)='NA2 '
  687. LESOBL( 9)='NA3 '
  688. LESOBL(10)='NA4 '
  689.  
  690. LESOBL(11)='ENDI'
  691. LESOBL(12)='OLPH'
  692. LESOBL(13)='EPSF'
  693. LESOBL(14)='XVAR'
  694. LESOBL(15)='ZVAR'
  695. LESOBL(16)='EINT'
  696. LESOBL(17)='SIGF'
  697. LESOBL(18)='NA5 '
  698. LESOBL(19)='NA6 '
  699. LESOBL(20)='NA7 '
  700.  
  701. LESOBL(21)='XLAM'
  702. LESOBL(22)='EPTO'
  703. LESOBL(23)='INTE'
  704. LESOBL(24)='FINT'
  705. LESOBL(25)='FACI'
  706. GOTO 666
  707. C******************************************************
  708. C
  709. C MATERIAU INTJOI
  710. C
  711. 146 CONTINUE
  712. if(ifour.ne.2) then
  713. NBROBL=13
  714. SEGINI NOMID
  715. LESOBL(1 ) = 'DINT'
  716. LESOBL(2 ) = 'EPSF'
  717. LESOBL(3 ) = 'EC '
  718. LESOBL(4 ) = 'EPST'
  719. LESOBL(5 ) = 'EPSN'
  720. LESOBL(6 ) = 'CINE'
  721. LESOBL(7 ) = 'EPSR'
  722. LESOBL(8 ) = 'IFLA'
  723. LESOBL(9 ) = 'FVAR'
  724. LESOBL(10) = 'SIGM'
  725. LESOBL(11) = 'KSAC'
  726. LESOBL(12) = 'KNAC'
  727. LESOBL(13) = 'COUN'
  728. GOTO 666
  729.  
  730. else
  731. NBROBL=17
  732. SEGINI NOMID
  733. LESOBL(1 ) = 'DINT'
  734. LESOBL(2 ) = 'EPF1'
  735. LESOBL(3 ) = 'EPF2'
  736. LESOBL(4 ) = 'EC1 '
  737. LESOBL(5 ) = 'EC2 '
  738. LESOBL(6 ) = 'EPS1'
  739. LESOBL(7 ) = 'EPS2'
  740. LESOBL(8 ) = 'EPSN'
  741. LESOBL(9 ) = 'CIN1'
  742. LESOBL(10) = 'CIN2'
  743. LESOBL(11) = 'EPSR'
  744. LESOBL(12) = 'IFLA'
  745. LESOBL(13) = 'FVAR'
  746. LESOBL(14) = 'SIGM'
  747. LESOBL(15) = 'KSAC'
  748. LESOBL(16) = 'KNAC'
  749. LESOBL(17) = 'COUN'
  750. GOTO 666
  751. endif
  752. C******************************************************
  753. C
  754. C MATERIAU BA1D
  755. C
  756. 147 CONTINUE
  757. NBROBL=16
  758. SEGINI NOMID
  759. LESOBL( 1)='DP0 '
  760. LESOBL( 2)='ZP0 '
  761. LESOBL( 3)='DM0 '
  762. LESOBL( 4)='ZM0 '
  763. LESOBL( 5)='XPP '
  764. LESOBL( 6)='UPP '
  765. LESOBL( 7)='ALPP'
  766. LESOBL( 8)='XPM '
  767. LESOBL( 9)='UPM '
  768. LESOBL(10)='ALPM'
  769. LESOBL(11)='XPI '
  770. LESOBL(12)='UPI '
  771. LESOBL(13)='ALPI'
  772. LESOBL(14)='U1 '
  773. LESOBL(15)='U2 '
  774. LESOBL(16)='U3 '
  775. GOTO 666
  776. C******************************************************
  777. 97 continue
  778. 999 CONTINUE
  779. SEGINI,NOMID
  780.  
  781. 666 CONTINUE
  782. IPCOMP=NOMID
  783. SEGDES,NOMID
  784.  
  785. RETURN
  786. END
  787.  
  788.  
  789.  
  790.  
  791.  
  792.  
  793.  
  794.  
  795.  

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