Télécharger idvar6.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVAR6 SOURCE PV 16/09/13 13:11:47 9084
  2.  
  3. *_______________________________________________________________________
  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. *_______________________________________________________________________
  22.  
  23. SUBROUTINE IDVAR6 (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL,
  24. . NBRFAC)
  25.  
  26. IMPLICIT INTEGER(I-N)
  27. SEGMENT NOMID
  28. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  29. ENDSEGMENT
  30.  
  31. CHARACTER*4 NOMBET(17),NOMTUP(5)
  32. CHARACTER*4 NOMIN1(32),NOMIN2(6),NOMIN4(4),NOMI11(14)
  33.  
  34. DATA NOMBET/'EPSE','DAM1','DAM2','DAM3',
  35. . 'OUV1','OUV2','OUV3','LAMD',
  36. . 'VI1X','VI1Y','VI1Z',
  37. . 'VI2X','VI2Y','VI2Z',
  38. . 'VI3X','VI3Y','VI3Z'/
  39. DATA NOMTUP/'VAM1','VAM2','VHTA','VHJP','EPSE'/
  40.  
  41. DATA NOMIN1/'EPSE','TAN1','TAN2','IPL1','IFI2','RTM1',
  42. . 'RTM2','IFI1','JFI1','VHGL','JFI2','EQC1',
  43. . 'EPE1','EPT1','EPT2','EQC2','EPE2','EPC1',
  44. . 'EPC2','IPL2','OUV1','EDC1','EDC2','ETS1',
  45. . 'ETS2','EDT1','EDT2','OUV2','DFR1','DFR2',
  46. . 'VHAS','VHMP'/
  47. DATA NOMI11/'EQC3','EPE3','EPT3','EPC3','DFR3','RTM3',
  48. . 'EDC3','ETS3','EDT3','TAN3','OUV3','IPL3',
  49. . 'IFI3','JFI3'/
  50. DATA NOMIN2/'EP01','EP02','EP03','EP04','EP05','EP06'/
  51. DATA NOMIN4/'EPSE','EPT1','EPT2','EPT3'/
  52.  
  53. IPCOMP=0
  54. NBROBL=0
  55. NBRFAC=0
  56. NOMID=0
  57. C write(6,*) ' matepl ', matepl
  58. C Materiau ELASTIQUE : EPSE facultative
  59. IF (MATEPL.EQ.0) THEN
  60. NBRFAC = 1
  61. SEGINI,NOMID
  62. LESFAC(1)='EPSE'
  63. GOTO 666
  64. ENDIF
  65.  
  66.  
  67. C= Materiaux 'VISCO_EXTERNE' : le GOTO indexe ne marche pas car
  68. C= =========================== valeur negative de MATEPL
  69. IF (MATEPL.EQ.-101) THEN
  70. NBROBL=4
  71. SEGINI,NOMID
  72. LESOBL(1)='EC0 '
  73. LESOBL(2)='ESW0'
  74. LESOBL(3)='P '
  75. LESOBL(4)='QTLD'
  76. GOTO 666
  77. ENDIF
  78. C on ne traite ici que les 50 premiers matepl la suite
  79. C est dans idva6b, idva6c ...
  80. GOTO (1, 2, 1, 4, 1,97, 4,97, 9,97,97, 4,97,14, 1,16,17,97,97,97,
  81. . 97,97,97,97,97, 3,97,28,29,97,97,32,33,34,35,36,97,38,39,40,
  82. . 41,42,97,44,45,46,47,48,49,97,98,98,97,97,97,97,97,97,97,97,
  83. . 97,98,97,98,98,98,98,98,98,97,98,97,97,97,98,98,97,98,98,98,
  84. . 97,97,98,97,97,97,98,97,97,97,97,98,98,97,97,97,97,97,97,98,
  85. . 98,97,29,98,98,98,97,97,97,97,97,97,97,97,97,97,97,97,97,98,
  86. . 98,98,97,97,97,97,98,98, 1, 1, 1, 1,98, 1,98, 1, 1, 1, 1,98,
  87. . 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,
  88. . 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98),
  89. . MATEPL
  90. 98 CONTINUE
  91. CALL IDVA6b( MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL,
  92. . NBRFAC)
  93. RETURN
  94.  
  95. 1 CONTINUE
  96. NBROBL=1
  97. SEGINI,NOMID
  98. LESOBL(1)='EPSE'
  99. GOTO 666
  100.  
  101. 2 CONTINUE
  102. NBROBL=2
  103. SEGINI,NOMID
  104. LESOBL(1)='EPSE'
  105. LESOBL(2)=NOMTUP(4)
  106. GOTO 666
  107.  
  108. C 3 - MATERIAUX ENDOMMAGEMENT ET ECROUISSAGE ISOTROPES SI MATEPL=26
  109. C ===================================================================
  110. 3 CONTINUE
  111. C =====
  112. C 3.1 - Element MASSIF
  113. C =====
  114. IF (MFR.NE.1.AND.MFR.NE.31) GOTO 1201
  115. C= 3.1.1 - Cas des CONTRAINTES PLANES ou des DEFORMATIONS PLANES ou
  116. C= des DEFORMATIONS PLANES GENERALISEES
  117. IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) GOTO 1101
  118. NBROBL=7
  119. SEGINI,NOMID
  120. LESOBL(1)='EPSE'
  121. LESOBL(2)='VVIR'
  122. LESOBL(3)='VHWD'
  123. LESOBL(4)='VIXX'
  124. LESOBL(5)='VIYY'
  125. LESOBL(6)='VIZZ'
  126. LESOBL(7)='VIXY'
  127. GOTO 666
  128. C= 3.1.2 - Cas AXISYMETRIQUE
  129. 1101 IF (IFOUR.NE.0) GOTO 1111
  130. NBROBL=7
  131. SEGINI,NOMID
  132. LESOBL(1)='EPSE'
  133. LESOBL(2)='VVIR'
  134. LESOBL(3)='VHWD'
  135. LESOBL(4)='VIRR'
  136. LESOBL(5)='VIZZ'
  137. LESOBL(6)='VITT'
  138. LESOBL(7)='VIRZ'
  139. GOTO 666
  140. C= 3.1.3 - Cas des series de FOURIER
  141. 1111 IF (IFOUR.NE.1) GOTO 1121
  142. NBROBL=9
  143. SEGINI,NOMID
  144. LESOBL(1)='EPSE'
  145. LESOBL(2)='VVIR'
  146. LESOBL(3)='VHWD'
  147. LESOBL(4)='VIRR'
  148. LESOBL(5)='VIZZ'
  149. LESOBL(6)='VITT'
  150. LESOBL(7)='VIRZ'
  151. LESOBL(8)='VIRT'
  152. LESOBL(9)='VIZT'
  153. GOTO 666
  154. C= 3.1.4 - Cas TRIDIMENSIONNEL
  155. 1121 IF (IFOUR.NE.2) GOTO 1131
  156. NBROBL=9
  157. SEGINI,NOMID
  158. LESOBL(1)='EPSE'
  159. LESOBL(2)='VVIR'
  160. LESOBL(3)='VHWD'
  161. LESOBL(4)='VIXX'
  162. LESOBL(5)='VIYY'
  163. LESOBL(6)='VIZZ'
  164. LESOBL(7)='VIXY'
  165. LESOBL(8)='VIXZ'
  166. LESOBL(9)='VIYZ'
  167. GOTO 666
  168. C= 3.1.5 - Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  169. 1131 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1141
  170. NBROBL=6
  171. SEGINI,NOMID
  172. LESOBL(1)='EPSE'
  173. LESOBL(2)='VVIR'
  174. LESOBL(3)='VHWD'
  175. LESOBL(4)='VIXX'
  176. LESOBL(5)='VIYY'
  177. LESOBL(6)='VIZZ'
  178. GOTO 666
  179. C= 3.1.6 - Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  180. 1141 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999
  181. NBROBL=6
  182. SEGINI,NOMID
  183. LESOBL(1)='EPSE'
  184. LESOBL(2)='VVIR'
  185. LESOBL(3)='VHWD'
  186. LESOBL(4)='VIRR'
  187. LESOBL(5)='VIZZ'
  188. LESOBL(6)='VITT'
  189. GOTO 666
  190.  
  191. C COQUE
  192. C
  193. 1201 CONTINUE
  194. IF (NPINT.NE.0) THEN
  195. IF (MFR.EQ.3.AND.IFOUR.EQ.2) THEN
  196. NBROBL=7
  197. SEGINI NOMID
  198. LESOBL(1)='EPSE'
  199. LESOBL(2)='VVIR'
  200. LESOBL(3)='VHWD'
  201. LESOBL(4)='VISS'
  202. LESOBL(5)='VITT'
  203. LESOBL(6)='VINN'
  204. LESOBL(7)='VIST'
  205. GOTO 666
  206. ENDIF
  207. ENDIF
  208. GOTO 999
  209. C
  210. C MATERIAU GAUVAIN POUR LES POUTRES UNIQUEMENT
  211. C
  212. 16 CONTINUE
  213. IF (MFR.NE.7) GOTO 999
  214. NBROBL=13
  215. SEGINI NOMID
  216. LESOBL( 1)='EPSE'
  217. LESOBL( 2)='EPY0'
  218. LESOBL( 3)='SYIN'
  219. LESOBL( 4)='EYIN'
  220. LESOBL( 5)='SYSU'
  221. LESOBL( 6)='EYSU'
  222. LESOBL( 7)='NUMY'
  223. LESOBL( 8)='EPZ0'
  224. LESOBL( 9)='SZIN'
  225. LESOBL(10)='EZIN'
  226. LESOBL(11)='SZSU'
  227. LESOBL(12)='EZSU'
  228. LESOBL(13)='NUMZ'
  229. GOTO 666
  230. C
  231. 4 CONTINUE
  232. C
  233. 17 CONTINUE
  234. IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 1001
  235. C
  236. C ELEMENT MASSIF
  237. C
  238. IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) GOTO 1040
  239. C
  240. C CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  241. C OU DEFORMATIONS PLANES
  242. C
  243. NBROBL=5
  244. IF (MATEPL.EQ.12) NBROBL=9
  245. IF (MATEPL.EQ.17) NBROBL=22
  246. SEGINI NOMID
  247. LESOBL(1)='EPSE'
  248. LESOBL(2)='VMXX'
  249. LESOBL(3)='VMYY'
  250. LESOBL(4)='VMZZ'
  251. LESOBL(5)='VMXY'
  252. IF (MATEPL.EQ.12) THEN
  253. LESOBL(6)='XMXX'
  254. LESOBL(7)='XMYY'
  255. LESOBL(8)='XMZZ'
  256. LESOBL(9)='XMXY'
  257. ELSE IF (MATEPL.EQ.17) THEN
  258. LESOBL( 2)='VHP1'
  259. LESOBL( 3)='VLP2'
  260. LESOBL( 4)='VLP4'
  261. LESOBL( 5)='VMXX'
  262. LESOBL( 6)='VMYY'
  263. LESOBL( 7)='VMZZ'
  264. LESOBL( 8)='VMXY'
  265. LESOBL( 9)='VP1M'
  266. LESOBL(10)='VHWK'
  267. LESOBL(11)='VIXX'
  268. LESOBL(12)='VIYY'
  269. LESOBL(13)='VIZZ'
  270. LESOBL(14)='VIXY'
  271. LESOBL(15)='KVXX'
  272. LESOBL(16)='KVYY'
  273. LESOBL(17)='KVZZ'
  274. LESOBL(18)='KVXY'
  275. LESOBL(19)='KDXX'
  276. LESOBL(20)='KDYY'
  277. LESOBL(21)='KDZZ'
  278. LESOBL(22)='KDXY'
  279. ENDIF
  280. GOTO 666
  281. C
  282. 1040 IF (IFOUR.NE.0) GOTO 1041
  283. C
  284. C CAS AXISYMETRIQUE
  285. C
  286. NBROBL=5
  287. IF(MATEPL.EQ.12) NBROBL=9
  288. IF(MATEPL.EQ.17) NBROBL=22
  289. SEGINI NOMID
  290. LESOBL(1)='EPSE'
  291. LESOBL(2)='VMRR'
  292. LESOBL(3)='VMZZ'
  293. LESOBL(4)='VMTT'
  294. LESOBL(5)='VMRZ'
  295. IF (MATEPL.EQ.12) THEN
  296. LESOBL(6)='XMRR'
  297. LESOBL(7)='XMZZ'
  298. LESOBL(8)='XMTT'
  299. LESOBL(9)='XMRZ'
  300. ELSE IF (MATEPL.EQ.17) THEN
  301. LESOBL( 2)='VHP1'
  302. LESOBL( 3)='VLP2'
  303. LESOBL( 4)='VLP4'
  304. LESOBL( 5)='VMRR'
  305. LESOBL( 6)='VMZZ'
  306. LESOBL( 7)='VMTT'
  307. LESOBL( 8)='VMRZ'
  308. LESOBL( 9)='VP1M'
  309. LESOBL(10)='VHWK'
  310. LESOBL(11)='VIRR'
  311. LESOBL(12)='VIZZ'
  312. LESOBL(13)='VITT'
  313. LESOBL(14)='VIRZ'
  314. LESOBL(15)='KVRR'
  315. LESOBL(16)='KVZZ'
  316. LESOBL(17)='KVTT'
  317. LESOBL(18)='KVRZ'
  318. LESOBL(19)='KDRR'
  319. LESOBL(20)='KDZZ'
  320. LESOBL(21)='KDTT'
  321. LESOBL(22)='KDRZ'
  322. ENDIF
  323. GOTO 666
  324. C
  325. 1041 IF (IFOUR.NE.1) GOTO 1042
  326. C
  327. C CAS SERIE DE FOURIER
  328. C
  329. NBROBL=7
  330. IF (MATEPL.EQ.12) NBROBL=13
  331. IF (MATEPL.EQ.17) NBROBL=30
  332. SEGINI NOMID
  333. LESOBL(1)='EPSE'
  334. LESOBL(2)='VMRR'
  335. LESOBL(3)='VMZZ'
  336. LESOBL(4)='VMTT'
  337. LESOBL(5)='VMRZ'
  338. LESOBL(6)='VMRT'
  339. LESOBL(7)='VMZT'
  340. IF (MATEPL.EQ.12) THEN
  341. LESOBL( 8)='XMRR'
  342. LESOBL( 9)='XMZZ'
  343. LESOBL(10)='XMTT'
  344. LESOBL(11)='XMRZ'
  345. LESOBL(12)='XMRT'
  346. LESOBL(13)='XMZT'
  347. ELSE IF (MATEPL.EQ.17) THEN
  348. LESOBL( 2)='VHP1'
  349. LESOBL( 3)='VLP2'
  350. LESOBL( 4)='VLP4'
  351. LESOBL( 5)='VMRR'
  352. LESOBL( 6)='VMZZ'
  353. LESOBL( 7)='VMTT'
  354. LESOBL( 8)='VMRZ'
  355. LESOBL( 9)='VMRT'
  356. LESOBL(10)='VMZT'
  357. LESOBL(11)='VP1M'
  358. LESOBL(12)='VHWK'
  359. LESOBL(13)='VIRR'
  360. LESOBL(14)='VIZZ'
  361. LESOBL(15)='VITT'
  362. LESOBL(16)='VIRZ'
  363. LESOBL(17)='VIRT'
  364. LESOBL(18)='VIZT'
  365. LESOBL(19)='KVRR'
  366. LESOBL(20)='KVZZ'
  367. LESOBL(21)='KVTT'
  368. LESOBL(22)='KVRZ'
  369. LESOBL(23)='KVRT'
  370. LESOBL(24)='KVZT'
  371. LESOBL(25)='KDRR'
  372. LESOBL(26)='KDZZ'
  373. LESOBL(27)='KDTT'
  374. LESOBL(28)='KDRZ'
  375. LESOBL(29)='KDRT'
  376. LESOBL(30)='KDZT'
  377. ENDIF
  378. GOTO 666
  379. C
  380. 1042 IF(IFOUR.NE.2) GOTO 1043
  381. C
  382. C CAS TRIDIMENSIONNEL
  383. C
  384. NBROBL=7
  385. IF(MATEPL.EQ.12) NBROBL=13
  386. IF(MATEPL.EQ.17) NBROBL=30
  387. SEGINI NOMID
  388. LESOBL(1)='EPSE'
  389. LESOBL(2)='VMXX'
  390. LESOBL(3)='VMYY'
  391. LESOBL(4)='VMZZ'
  392. LESOBL(5)='VMXY'
  393. LESOBL(6)='VMXZ'
  394. LESOBL(7)='VMYZ'
  395. IF (MATEPL.EQ.12) THEN
  396. LESOBL( 8)='XMXX'
  397. LESOBL( 9)='XMYY'
  398. LESOBL(10)='XMZZ'
  399. LESOBL(11)='XMXY'
  400. LESOBL(12)='XMXZ'
  401. LESOBL(13)='XMYZ'
  402. ELSE IF (MATEPL.EQ.17) THEN
  403. LESOBL( 2)='VHP1'
  404. LESOBL( 3)='VLP2'
  405. LESOBL( 4)='VLP4'
  406. LESOBL( 5)='VMXX'
  407. LESOBL( 6)='VMYY'
  408. LESOBL( 7)='VMZZ'
  409. LESOBL( 8)='VMXY'
  410. LESOBL( 9)='VMXZ'
  411. LESOBL(10)='VMYZ'
  412. LESOBL(11)='VP1M'
  413. LESOBL(12)='VHWK'
  414. LESOBL(13)='VIXX'
  415. LESOBL(14)='VIYY'
  416. LESOBL(15)='VIZZ'
  417. LESOBL(16)='VIXY'
  418. LESOBL(17)='VIXZ'
  419. LESOBL(18)='VIYZ'
  420. LESOBL(19)='KVXX'
  421. LESOBL(20)='KVYY'
  422. LESOBL(21)='KVZZ'
  423. LESOBL(22)='KVXY'
  424. LESOBL(23)='KVXZ'
  425. LESOBL(24)='KVYZ'
  426. LESOBL(25)='KDXX'
  427. LESOBL(26)='KDYY'
  428. LESOBL(27)='KDZZ'
  429. LESOBL(28)='KDXY'
  430. LESOBL(29)='KDXZ'
  431. LESOBL(30)='KDYZ'
  432. ENDIF
  433. GOTO 666
  434. C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  435. 1043 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1044
  436. IF (MATEPL.EQ.12) THEN
  437. NBROBL=7
  438. SEGINI,NOMID
  439. LESOBL(1)='EPSE'
  440. LESOBL(2)='VMXX'
  441. LESOBL(3)='VMYY'
  442. LESOBL(4)='VMZZ'
  443. LESOBL(5)='XMXX'
  444. LESOBL(6)='XMYY'
  445. LESOBL(7)='XMZZ'
  446. ELSE IF (MATEPL.EQ.17) THEN
  447. NBROBL=18
  448. SEGINI,NOMID
  449. LESOBL( 1)='EPSE'
  450. LESOBL( 2)='VHP1'
  451. LESOBL( 3)='VLP2'
  452. LESOBL( 4)='VLP4'
  453. LESOBL( 5)='VMXX'
  454. LESOBL( 6)='VMYY'
  455. LESOBL( 7)='VMZZ'
  456. LESOBL( 8)='VP1M'
  457. LESOBL( 9)='VHWK'
  458. LESOBL(10)='VIXX'
  459. LESOBL(11)='VIYY'
  460. LESOBL(12)='VIZZ'
  461. LESOBL(13)='KVXX'
  462. LESOBL(14)='KVYY'
  463. LESOBL(15)='KVZZ'
  464. LESOBL(16)='KDXX'
  465. LESOBL(17)='KDYY'
  466. LESOBL(18)='KDZZ'
  467. ELSE
  468. NBROBL=4
  469. SEGINI,NOMID
  470. LESOBL(1)='EPSE'
  471. LESOBL(2)='VMXX'
  472. LESOBL(3)='VMYY'
  473. LESOBL(4)='VMZZ'
  474. ENDIF
  475. GOTO 666
  476. C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  477. 1044 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999
  478. IF (MATEPL.EQ.12) THEN
  479. NBROBL=7
  480. SEGINI,NOMID
  481. LESOBL(1)='EPSE'
  482. LESOBL(2)='VMRR'
  483. LESOBL(3)='VMZZ'
  484. LESOBL(4)='VMTT'
  485. LESOBL(5)='XMRR'
  486. LESOBL(6)='XMZZ'
  487. LESOBL(7)='XMTT'
  488. ELSE IF (MATEPL.EQ.17) THEN
  489. NBROBL=18
  490. SEGINI,NOMID
  491. LESOBL( 1)='EPSE'
  492. LESOBL( 2)='VHP1'
  493. LESOBL( 3)='VLP2'
  494. LESOBL( 4)='VLP4'
  495. LESOBL( 5)='VMRR'
  496. LESOBL( 6)='VMZZ'
  497. LESOBL( 7)='VMTT'
  498. LESOBL( 8)='VP1M'
  499. LESOBL( 9)='VHWK'
  500. LESOBL(10)='VIRR'
  501. LESOBL(11)='VIZZ'
  502. LESOBL(12)='VITT'
  503. LESOBL(13)='KVRR'
  504. LESOBL(14)='KVZZ'
  505. LESOBL(15)='KVTT'
  506. LESOBL(16)='KDRR'
  507. LESOBL(17)='KDZZ'
  508. LESOBL(18)='KDTT'
  509. ELSE
  510. NBROBL=4
  511. SEGINI,NOMID
  512. LESOBL(1)='EPSE'
  513. LESOBL(2)='VMRR'
  514. LESOBL(3)='VMZZ'
  515. LESOBL(4)='VMTT'
  516. ENDIF
  517. GOTO 666
  518. C
  519. 44 CONTINUE
  520. IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 999
  521. IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3)
  522. & GOTO 1330
  523. C
  524. C CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  525. C OU DEFORMATIONS PLANES GENERALISEES
  526. C
  527. NBROBL=6
  528. SEGINI,NOMID
  529. LESOBL(1)='EPSE'
  530. LESOBL(2)='VIXX'
  531. LESOBL(3)='VIYY'
  532. LESOBL(4)='VIZZ'
  533. LESOBL(5)='VIXY'
  534. LESOBL(6)='VHOR'
  535. GOTO 666
  536. C
  537. 1330 IF (IFOUR.NE.0) GOTO 1331
  538. C
  539. C CAS AXISYMETRIQUE
  540. C
  541. NBROBL=6
  542. SEGINI,NOMID
  543. LESOBL(1)='EPSE'
  544. LESOBL(2)='VIRR'
  545. LESOBL(3)='VIZZ'
  546. LESOBL(4)='VITT'
  547. LESOBL(5)='VIRZ'
  548. LESOBL(6)='VHOR'
  549. GOTO 666
  550. C
  551. 1331 IF(IFOUR.NE.2) GOTO 1332
  552. C
  553. C CAS TRIDIMENSIONNEL
  554. C
  555. NBROBL=8
  556. SEGINI NOMID
  557. LESOBL(1)='EPSE'
  558. LESOBL(2)='VIXX'
  559. LESOBL(3)='VIYY'
  560. LESOBL(4)='VIZZ'
  561. LESOBL(5)='VIXY'
  562. LESOBL(6)='VIXZ'
  563. LESOBL(7)='VIYZ'
  564. LESOBL(8)='VHOR'
  565. GOTO 666
  566. C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  567. 1332 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1333
  568. NBROBL=5
  569. SEGINI,NOMID
  570. LESOBL(1)='EPSE'
  571. LESOBL(2)='VIXX'
  572. LESOBL(3)='VIYY'
  573. LESOBL(4)='VIZZ'
  574. LESOBL(5)='VHOR'
  575. GOTO 666
  576. C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  577. 1333 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999
  578. NBROBL=5
  579. SEGINI,NOMID
  580. LESOBL(1)='EPSE'
  581. LESOBL(2)='VIRR'
  582. LESOBL(3)='VIZZ'
  583. LESOBL(4)='VITT'
  584. LESOBL(5)='VHOR'
  585. GOTO 666
  586. C
  587. 45 CONTINUE
  588. IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 999
  589. IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3)
  590. & GOTO 1430
  591. C
  592. C CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  593. C OU DEFORMATIONS PLANES GENERALISEES
  594. C
  595. NBROBL=8
  596. SEGINI NOMID
  597. LESOBL(1)='EPSE'
  598. LESOBL(2)='VIXX'
  599. LESOBL(3)='VIYY'
  600. LESOBL(4)='VIZZ'
  601. LESOBL(5)='VIXY'
  602. LESOBL(6)='GRAI'
  603. LESOBL(7)='DENE'
  604. LESOBL(8)='VHOR'
  605. GOTO 666
  606. C
  607. 1430 IF (IFOUR.NE.0) GOTO 1431
  608. C
  609. C CAS AXISYMETRIQUE
  610. C
  611. NBROBL=8
  612. SEGINI NOMID
  613. LESOBL(1)='EPSE'
  614. LESOBL(2)='VIRR'
  615. LESOBL(3)='VIZZ'
  616. LESOBL(4)='VITT'
  617. LESOBL(5)='VIRZ'
  618. LESOBL(6)='GRAI'
  619. LESOBL(7)='DENE'
  620. LESOBL(8)='VHOR'
  621. GOTO 666
  622. C
  623. 1431 IF(IFOUR.NE.2) GOTO 1432
  624. C
  625. C CAS TRIDIMENSIONNEL
  626. C
  627. NBROBL=1
  628. SEGINI NOMID
  629. LESOBL(1)='EPSE'
  630. LESOBL(2)='VIXX'
  631. LESOBL(3)='VIYY'
  632. LESOBL(4)='VIZZ'
  633. LESOBL(5)='VIXY'
  634. LESOBL(6)='VIXZ'
  635. LESOBL(7)='VIYZ'
  636. LESOBL(8)='GRAI'
  637. LESOBL(9)='DENE'
  638. LESOBL(10)='VHOR'
  639. GOTO 666
  640. C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  641. 1432 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1433
  642. NBROBL=7
  643. SEGINI,NOMID
  644. LESOBL(1)='EPSE'
  645. LESOBL(2)='VIXX'
  646. LESOBL(3)='VIYY'
  647. LESOBL(4)='VIZZ'
  648. LESOBL(5)='GRAI'
  649. LESOBL(6)='DENE'
  650. LESOBL(7)='VHOR'
  651. GOTO 666
  652. C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  653. 1433 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999
  654. NBROBL=7
  655. SEGINI,NOMID
  656. LESOBL(1)='EPSE'
  657. LESOBL(2)='VIRR'
  658. LESOBL(3)='VIZZ'
  659. LESOBL(4)='VITT'
  660. LESOBL(5)='GRAI'
  661. LESOBL(6)='DENE'
  662. LESOBL(7)='VHOR'
  663. GOTO 666
  664. C
  665. 1001 IF(MFR.NE.3) GOTO 1003
  666. C
  667. C COQUE
  668. C
  669. IF(NPINT.EQ.0)THEN
  670. C COQUE GLOBALE
  671. IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN
  672. C
  673. C CAS TRIDIMENSIONNEL FOURIER
  674. C
  675. NBROBL=7
  676. IF(MATEPL.EQ.12) NBROBL=13
  677. IF(MATEPL.EQ.17) NBROBL=19
  678. SEGINI NOMID
  679. LESOBL(1)='EPSE'
  680. LESOBL(2)='VN11'
  681. LESOBL(3)='VN22'
  682. LESOBL(4)='VN12'
  683. LESOBL(5)='VM11'
  684. LESOBL(6)='VM22'
  685. LESOBL(7)='VM12'
  686. IF(MATEPL.EQ.12) THEN
  687. LESOBL(8)='XN11'
  688. LESOBL(9)='XN22'
  689. LESOBL(10)='XN12'
  690. LESOBL(11)='XM11'
  691. LESOBL(12)='XM22'
  692. LESOBL(13)='XM12'
  693. ELSE IF(MATEPL.EQ.17) THEN
  694. LESOBL(2)='VHP1'
  695. LESOBL(3)='VLP2'
  696. LESOBL(4)='VLP4'
  697. LESOBL(5)='VN11'
  698. LESOBL(6)='VN22'
  699. LESOBL(7)='VN12'
  700. LESOBL(8)='VM11'
  701. LESOBL(9)='VM22'
  702. LESOBL(10)='VM12'
  703. LESOBL(11)='VP1M'
  704. LESOBL(12)='VHWK'
  705. LESOBL(13)='VEP1'
  706. LESOBL(14)='VISS'
  707. LESOBL(15)='VITT'
  708. LESOBL(16)='VIST'
  709. LESOBL(17)='VRSS'
  710. LESOBL(18)='VRTT'
  711. LESOBL(19)='VRST'
  712. ENDIF
  713. C
  714. ELSE IF(IFOUR.EQ.0) THEN
  715. C
  716. C CAS AXISYMETRIQUE
  717. C
  718. NBROBL=5
  719. IF(MATEPL.EQ.12) NBROBL=9
  720. IF(MATEPL.EQ.17) NBROBL=15
  721. SEGINI NOMID
  722. LESOBL(1)='EPSE'
  723. LESOBL(2)='VN11'
  724. LESOBL(3)='VN22'
  725. LESOBL(4)='VM11'
  726. LESOBL(5)='VM22'
  727. IF(MATEPL.EQ.12) THEN
  728. LESOBL(6)='XN11'
  729. LESOBL(7)='XN22'
  730. LESOBL(8)='XM11'
  731. LESOBL(9)='XM22'
  732. ELSE IF(MATEPL.EQ.17) THEN
  733. LESOBL(2)='VHP1'
  734. LESOBL(3)='VLP2'
  735. LESOBL(4)='VLP4'
  736. LESOBL(5)='VN11'
  737. LESOBL(6)='VN22'
  738. LESOBL(7)='VM11'
  739. LESOBL(8)='VM22'
  740. LESOBL(9)='VP1M'
  741. LESOBL(10)='VHWK'
  742. LESOBL(11)='VEP1'
  743. LESOBL(12)='VISS'
  744. LESOBL(13)='VITT'
  745. LESOBL(14)='VRSS'
  746. LESOBL(15)='VRTT'
  747. ENDIF
  748. C
  749. ELSE IF(IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN
  750. C
  751. C CAS CONTRAINTES OU DEFORMATIONS PLANES
  752. C OU DEFORMATIONS PLANES GENERALISEES
  753. C
  754. NBROBL=5
  755. IF(MATEPL.EQ.12) NBROBL=9
  756. IF(MATEPL.EQ.17) NBROBL=15
  757. SEGINI NOMID
  758. LESOBL(1)='VISE'
  759. LESOBL(2)='VN11'
  760. LESOBL(3)='VNZZ'
  761. LESOBL(4)='VM11'
  762. LESOBL(5)='VMZZ'
  763. IF(MATEPL.EQ.12) THEN
  764. LESOBL(6)='XN11'
  765. LESOBL(7)='NZZX'
  766. LESOBL(8)='XM11'
  767. LESOBL(9)='MZZX'
  768. ELSE IF (MATEPL.EQ.17) THEN
  769. LESOBL(2)='VHP1'
  770. LESOBL(3)='VLP2'
  771. LESOBL(4)='VLP4'
  772. LESOBL(5)='VN11'
  773. LESOBL(6)='VNZZ'
  774. LESOBL(7)='VM11'
  775. LESOBL(8)='VMZZ'
  776. LESOBL(9)='VP1M'
  777. LESOBL(10)='VHWK'
  778. LESOBL(11)='VEP1'
  779. LESOBL(12)='VISS'
  780. LESOBL(13)='VIZZ'
  781. LESOBL(14)='VRSS'
  782. LESOBL(15)='VRZZ'
  783. ENDIF
  784. ENDIF
  785. GOTO 666
  786. ELSE
  787. C COQUE INTEGREE
  788. IF(IFOUR.EQ.2)THEN
  789. NBROBL=5
  790. IF(MATEPL.EQ.12) NBROBL=9
  791. IF(MATEPL.EQ.17) NBROBL=15
  792. SEGINI NOMID
  793. LESOBL(1)='EPSE'
  794. LESOBL(2)='VMSS'
  795. LESOBL(3)='VMTT'
  796. LESOBL(4)='VMNN'
  797. LESOBL(5)='VMST'
  798. IF(MATEPL.EQ.12) THEN
  799. LESOBL(6)='XMSS'
  800. LESOBL(7)='XMTT'
  801. LESOBL(8)='XMNN'
  802. LESOBL(9)='XMST'
  803. ELSE IF (MATEPL.EQ.17) THEN
  804. LESOBL(2)='VHP1'
  805. LESOBL(3)='VLP2'
  806. LESOBL(4)='VLP4'
  807. LESOBL(5)='VMSS'
  808. LESOBL(6)='VMTT'
  809. LESOBL(7)='VMNN'
  810. LESOBL(8)='VMST'
  811. LESOBL(9)='VP1M'
  812. LESOBL(10)='VHWK'
  813. LESOBL(11)='VEP1'
  814. LESOBL(12)='VISS'
  815. LESOBL(13)='VITT'
  816. LESOBL(14)='VINN'
  817. LESOBL(15)='VIST'
  818. ENDIF
  819. GOTO 666
  820. ELSE
  821. GOTO 999
  822. ENDIF
  823. ENDIF
  824. C
  825. 1003 IF(MFR.NE.5) GOTO 1005
  826. C
  827. C COQUE EPAISSE
  828. C
  829. IF (IFOUR.NE.2) GOTO 999
  830. C
  831. C CAS TRIDIMENSIONNEL
  832. C
  833. NBROBL=6
  834. IF(MATEPL.EQ.12) NBROBL=11
  835. IF(MATEPL.EQ.17) NBROBL=30
  836. SEGINI NOMID
  837. LESOBL(1)='EPSE'
  838. LESOBL(2)='VMSS'
  839. LESOBL(3)='VMTT'
  840. LESOBL(4)='VMST'
  841. LESOBL(5)='VMSN'
  842. LESOBL(6)='VMTN'
  843. IF(MATEPL.EQ.12) THEN
  844. LESOBL(7)='XMSS'
  845. LESOBL(8)='XMTT'
  846. LESOBL(9)='XMST'
  847. LESOBL(10)='XMSN'
  848. LESOBL(11)='XMTN'
  849. ELSE IF(MATEPL.EQ.17) THEN
  850. LESOBL(2)='VHP1'
  851. LESOBL(3)='VLP2'
  852. LESOBL(4)='VLP4'
  853. LESOBL(5)='VMSS'
  854. LESOBL(6)='VMTT'
  855. LESOBL(7)='VMNN'
  856. LESOBL(8)='VMST'
  857. LESOBL(9)='VMSN'
  858. LESOBL(10)='VMTN'
  859. LESOBL(11)='VP1M'
  860. LESOBL(12)='VHWK'
  861. LESOBL(13)='VISS'
  862. LESOBL(14)='VITT'
  863. LESOBL(15)='VINN'
  864. LESOBL(16)='VIST'
  865. LESOBL(17)='VISN'
  866. LESOBL(18)='VITN'
  867. LESOBL(19)='KVSS'
  868. LESOBL(20)='KVTT'
  869. LESOBL(21)='KVNN'
  870. LESOBL(22)='KVST'
  871. LESOBL(23)='KVSN'
  872. LESOBL(24)='KVTN'
  873. LESOBL(25)='KDSS'
  874. LESOBL(26)='KDTT'
  875. LESOBL(27)='KDNN'
  876. LESOBL(28)='KDST'
  877. LESOBL(29)='KDSN'
  878. LESOBL(30)='KDTN'
  879. ENDIF
  880. GOTO 666
  881. C
  882. 1005 IF(MFR.NE.7.AND.MFR.NE.13) GOTO 1007
  883. C
  884. C POUTRE ET TUYAU
  885. C
  886. IF (IFOUR.NE.2) GOTO 999
  887. C
  888. C CAS TRIDIMENSIONNEL
  889. C
  890. NBROBL=7
  891. IF(MATEPL.EQ.12) NBROBL=13
  892. IF(MATEPL.EQ.17) NBROBL=19
  893. SEGINI NOMID
  894. LESOBL(1)='EPSE'
  895. LESOBL(2)='VFFX'
  896. LESOBL(3)='VFFY'
  897. LESOBL(4)='VFFZ'
  898. LESOBL(5)='VOMX'
  899. LESOBL(6)='VOMY'
  900. LESOBL(7)='VOMZ'
  901. IF(MATEPL.EQ.12) THEN
  902. LESOBL(8)='XEFX'
  903. LESOBL(9)='XEFY'
  904. LESOBL(10)='XEFZ'
  905. LESOBL(11)='XMOX'
  906. LESOBL(12)='XMOY'
  907. LESOBL(13)='XMOZ'
  908. ELSE IF(MATEPL.EQ.17) THEN
  909. LESOBL(2)='VHP1'
  910. LESOBL(3)='VLP2'
  911. LESOBL(4)='VLP4'
  912. LESOBL(5)='VFFX'
  913. LESOBL(6)='VFFY'
  914. LESOBL(7)='VFFZ'
  915. LESOBL(8)='VOMX'
  916. LESOBL(9)='VOMY'
  917. LESOBL(10)='VOMZ'
  918. LESOBL(11)='VP1M'
  919. LESOBL(12)='VHWK'
  920. LESOBL(13)='VEP1'
  921. LESOBL(14)='VEPS'
  922. LESOBL(15)='VGXY'
  923. LESOBL(16)='VGXZ'
  924. LESOBL(17)='VHCX'
  925. LESOBL(18)='VHCY'
  926. LESOBL(19)='VHCZ'
  927. ENDIF
  928. GOTO 666
  929. C
  930. 1007 IF(MFR.NE.9) GOTO 1009
  931. C
  932. C COQUE CISAILLEMENT TRANSVERSE
  933. C
  934. IF(NPINT.EQ.0)THEN
  935. IF (IFOUR.NE.2) GOTO 999
  936. C
  937. C CAS TRIDIMENSIONNEL
  938. C
  939. NBROBL=9
  940. IF(MATEPL.EQ.12) NBROBL=17
  941. IF(MATEPL.EQ.17) NBROBL=23
  942. SEGINI NOMID
  943. LESOBL(1)='EPSE'
  944. LESOBL(2)='VN11'
  945. LESOBL(3)='VN22'
  946. LESOBL(4)='VN12'
  947. LESOBL(5)='VM11'
  948. LESOBL(6)='VM22'
  949. LESOBL(7)='VM12'
  950. LESOBL(8)='VHV1'
  951. LESOBL(9)='VHV2'
  952. IF(MATEPL.EQ.12) THEN
  953. LESOBL(10)='XN11'
  954. LESOBL(11)='XN22'
  955. LESOBL(12)='XN12'
  956. LESOBL(13)='XM11'
  957. LESOBL(14)='XM22'
  958. LESOBL(15)='XM12'
  959. LESOBL(16)='VXV1'
  960. LESOBL(17)='VXV2'
  961. ELSE IF(MATEPL.EQ.17) THEN
  962. LESOBL(2)='VHP1'
  963. LESOBL(3)='VLP2'
  964. LESOBL(4)='VLP4'
  965. LESOBL(5)='VN11'
  966. LESOBL(6)='VN22'
  967. LESOBL(7)='VN12'
  968. LESOBL(8)='VM11'
  969. LESOBL(9)='VM22'
  970. LESOBL(10)='VM12'
  971. LESOBL(11)='VHV1'
  972. LESOBL(12)='VHV2'
  973. LESOBL(13)='VP1M'
  974. LESOBL(14)='VHWK'
  975. LESOBL(15)='VEP1'
  976. LESOBL(16)='VISS'
  977. LESOBL(17)='VITT'
  978. LESOBL(18)='VIST'
  979. LESOBL(19)='VRSS'
  980. LESOBL(20)='VRTT'
  981. LESOBL(21)='VRST'
  982. LESOBL(22)='VISN'
  983. LESOBL(23)='VITN'
  984. ENDIF
  985. GOTO 666
  986. ELSE
  987. GOTO 999
  988. ENDIF
  989. C
  990. 1009 CONTINUE
  991. C
  992. C FORMULATION MEMBRANE
  993. C
  994. IF(MFR.NE.25) GOTO 1025
  995. NBROBL=4
  996. IF(MATEPL.EQ.12) NBROBL=7
  997. IF(MATEPL.EQ.17) NBROBL=13
  998. SEGINI NOMID
  999. LESOBL(1)='EPSE'
  1000. LESOBL(2)='VMSS'
  1001. LESOBL(3)='VMTT'
  1002. LESOBL(4)='VMST'
  1003. IF(MATEPL.EQ.12) THEN
  1004. LESOBL(5)='XMSS'
  1005. LESOBL(6)='XMTT'
  1006. LESOBL(7)='XMST'
  1007. ELSE IF(MATEPL.EQ.17) THEN
  1008. LESOBL(2)='VHP1'
  1009. LESOBL(3)='VLP2'
  1010. LESOBL(4)='VLP4'
  1011. LESOBL(5)='VMSS'
  1012. LESOBL(6)='VMTT'
  1013. LESOBL(7)='VMST'
  1014. LESOBL(8)='VP1M'
  1015. LESOBL(9)='VHWK'
  1016. LESOBL(10)='VEP1'
  1017. LESOBL(11)='VISS'
  1018. LESOBL(12)='VITT'
  1019. LESOBL(13)='VIST'
  1020. ENDIF
  1021. GOTO 666
  1022. C
  1023. C FORMULATION UNIAXIALE
  1024. C
  1025. 1025 CONTINUE
  1026. IF(MFR.NE.27) GOTO 999
  1027. NBROBL=2
  1028. IF(MATEPL.EQ.12) NBROBL=3
  1029. IF(MATEPL.EQ.17) NBROBL=9
  1030. SEGINI NOMID
  1031. LESOBL(1)='EPSE'
  1032. LESOBL(2)='VFFX'
  1033. IF(MATEPL.EQ.12) THEN
  1034. LESOBL(3)='XEFX'
  1035. ELSE IF(MATEPL.EQ.17) THEN
  1036. LESOBL(2)='VHP1'
  1037. LESOBL(3)='VLP2'
  1038. LESOBL(4)='VLP4'
  1039. LESOBL(5)='VFFX'
  1040. LESOBL(6)='VP1M'
  1041. LESOBL(7)='VHWK'
  1042. LESOBL(8)='VEP1'
  1043. LESOBL(9)='VISS'
  1044. ENDIF
  1045. GOTO 666
  1046. C
  1047. 9 CONTINUE
  1048. NBRFAC=17
  1049. SEGINI NOMID
  1050. DO 991 I=1,NBRFAC
  1051. LESFAC(I)=NOMBET(I)
  1052. 991 CONTINUE
  1053. GOTO 666
  1054. C
  1055. 14 CONTINUE
  1056. NBROBL=5
  1057. SEGINI NOMID
  1058. LESOBL(1)=NOMTUP(1)
  1059. LESOBL(2)=NOMTUP(2)
  1060. LESOBL(3)=NOMTUP(3)
  1061. LESOBL(4)=NOMTUP(4)
  1062. LESOBL(5)=NOMTUP(5)
  1063. GOTO 666
  1064. C
  1065. C MATERIAU UBIQUITOUS
  1066. C
  1067. 28 CONTINUE
  1068. NBROBL=7
  1069. SEGINI NOMID
  1070. LESOBL(1)='EPSE'
  1071. LESOBL(2)='EPN1'
  1072. LESOBL(3)='GAP1'
  1073. LESOBL(4)='LAM1'
  1074. LESOBL(5)='EPN2'
  1075. LESOBL(6)='GAP2'
  1076. LESOBL(7)='LAM2'
  1077. GOTO 666
  1078. C
  1079. C MATERIAU VISCOPLASTIQUE ENDOMMAGEABLE
  1080. C
  1081. 29 CONTINUE
  1082. NBROBL=3
  1083. SEGINI NOMID
  1084. LESOBL(1)='EPSE'
  1085. LESOBL(2)='VVIR'
  1086. LESOBL(3)='VHWD'
  1087. GOTO 666
  1088. C
  1089. C MATERIAU GLOBAL POUR LES POUTRES UNIQUEMENT
  1090. C
  1091. 32 CONTINUE
  1092. IF(MFR.NE.7) GOTO 999
  1093. NBROBL=31
  1094. SEGINI NOMID
  1095. C
  1096. LESOBL(1)='EPSE'
  1097. C
  1098. LESOBL(2)='FLGC'
  1099. LESOBL(3)='RCIN'
  1100. LESOBL(4)='FMXC'
  1101. LESOBL(5)='DMXC'
  1102. LESOBL(6)='FMNC'
  1103. LESOBL(7)='DMNC'
  1104. LESOBL(8)='DEPC'
  1105. LESOBL(9)='XINT'
  1106. LESOBL(10)='PLAC'
  1107. C
  1108. LESOBL(11)='FLGF'
  1109. LESOBL(12)='RFIN'
  1110. LESOBL(13)='FMXF'
  1111. LESOBL(14)='DMXF'
  1112. LESOBL(15)='FMNF'
  1113. LESOBL(16)='DMNF'
  1114. LESOBL(17)='X00F'
  1115. LESOBL(18)='DEPF'
  1116. LESOBL(19)='PLAF'
  1117. C
  1118. LESOBL(20)='FLGT'
  1119. LESOBL(21)='RTIN'
  1120. LESOBL(22)='FMXT'
  1121. LESOBL(23)='DMXT'
  1122. LESOBL(24)='FMNT'
  1123. LESOBL(25)='DMNT'
  1124. LESOBL(26)='X01T'
  1125. LESOBL(27)='X02T'
  1126. LESOBL(28)='FINT'
  1127. LESOBL(29)='FLIMT'
  1128. LESOBL(30)='DEPT'
  1129. LESOBL(31)='PLAT'
  1130. GOTO 666
  1131. C
  1132. C CAM-CLAY
  1133. C
  1134. 33 CONTINUE
  1135. NBROBL=2
  1136. SEGINI NOMID
  1137. LESOBL(1)='EPSE'
  1138. LESOBL(2)='TRAP'
  1139. GOTO 666
  1140. C
  1141. C MATERIAU MOHR COULOMB
  1142. C
  1143. 34 CONTINUE
  1144. IF (MFR.EQ.35) THEN
  1145. NBROBL=4
  1146. SEGINI NOMID
  1147. LESOBL(1)='EPSE'
  1148. LESOBL(2)='EPOU'
  1149. LESOBL(3)='STAT'
  1150. LESOBL(4)='LAM1'
  1151. GOTO 666
  1152. ELSE IF (MFR.EQ.75) THEN
  1153. NBROBL=9
  1154. SEGINI NOMID
  1155. LESOBL(1)='EPSE'
  1156. LESOBL(2)='EPOU'
  1157. LESOBL(3)='STAT'
  1158. LESOBL(4)='LAM1'
  1159. LESOBL(5)='PLA1'
  1160. LESOBL(6)='PLA2'
  1161. LESOBL(7)='PLA3'
  1162. LESOBL(8)='EPCO'
  1163. LESOBL(9)='LAM3'
  1164. GOTO 666
  1165. ELSE
  1166. GOTO 999
  1167. ENDIF
  1168. C
  1169. C MATERIAU JOINT-DILATANT (FORMULATION JOINT 2D-PLAN)
  1170. C
  1171. 35 CONTINUE
  1172. IF(MFR.NE.35) GOTO 999
  1173. C
  1174. IF (IFOUR.NE.-2.AND.IFOUR.NE.-1) GOTO 999
  1175. C
  1176. NBROBL=10
  1177. SEGINI NOMID
  1178. LESOBL(1) ='VDS0'
  1179. LESOBL(2) ='VDN0'
  1180. LESOBL(3) ='VRSN'
  1181. LESOBL(4) ='VDRN'
  1182. LESOBL(5) ='DPSN'
  1183. LESOBL(6) ='VDPN'
  1184. LESOBL(7) ='HC11'
  1185. LESOBL(8) ='HC12'
  1186. LESOBL(9) ='HC21'
  1187. LESOBL(10)='HC22'
  1188. GOTO 666
  1189. C
  1190. C MATERIAU BETON_AXI
  1191. C
  1192. 36 CONTINUE
  1193. NBROBL=10
  1194. SEGINI NOMID
  1195. LESOBL(1) ='EPSE'
  1196. LESOBL(2) ='DAM1'
  1197. LESOBL(3) ='DAM2'
  1198. LESOBL(4) ='DAM3'
  1199. LESOBL(5) ='VHGL'
  1200. LESOBL(6) ='LAM1'
  1201. LESOBL(7) ='LAM2'
  1202. LESOBL(8) ='LAM3'
  1203. LESOBL(9) ='LAM4'
  1204. LESOBL(10)='LAM5'
  1205. GOTO 666
  1206. C
  1207. C MATERIAU DE GURSON
  1208. C
  1209. 38 CONTINUE
  1210. IF ((IFOUR.NE.0).AND.(IFOUR.NE.2)
  1211. & .AND.(IFOUR.NE.-1)) GOTO 999
  1212. NBROBL=3
  1213. SEGINI NOMID
  1214. LESOBL(1)='EPSE'
  1215. LESOBL(2)='VPOR'
  1216. LESOBL(3)='VHNS'
  1217. GOTO 666
  1218. C
  1219. C MATERIAU BETON_UNI
  1220. C
  1221. 39 CONTINUE
  1222. NBROBL=6
  1223. SEGINI NOMID
  1224. LESOBL( 1) ='EPSO'
  1225. LESOBL( 2) ='EMAX'
  1226. LESOBL( 3) ='EMIN'
  1227. LESOBL( 4) ='STMN'
  1228. LESOBL( 5) ='VHNG'
  1229. LESOBL( 6) ='VHND'
  1230. GOTO 666
  1231. C
  1232. C MATERIAU ACIER_UNI
  1233. C
  1234. 40 CONTINUE
  1235. NBROBL=12
  1236. SEGINI NOMID
  1237. LESOBL( 1) ='FLAG'
  1238. LESOBL( 2) ='EPSO'
  1239. LESOBL( 3) ='RFAC'
  1240. LESOBL( 4) ='VHNG'
  1241. LESOBL( 5) ='EPLR'
  1242. LESOBL( 6) ='EPIP'
  1243. LESOBL( 7) ='EPMP'
  1244. LESOBL( 8) ='EPMN'
  1245. LESOBL( 9) ='STLR'
  1246. LESOBL(10) ='STIP'
  1247. LESOBL(11) ='STMP'
  1248. LESOBL(12) ='STMN'
  1249. GO TO 666
  1250. C
  1251. C FORMULATION SECTION
  1252. C
  1253. 41 CONTINUE
  1254. NBROBL=2
  1255. SEGINI NOMID
  1256. LESOBL(1) ='VONS'
  1257. LESOBL(2) ='VAIS'
  1258. GOTO 666
  1259. C-----------------------------
  1260. C FORMULATION OTTOSEN
  1261. C-----------------------------
  1262. 42 CONTINUE
  1263. C
  1264. C-------CAS TRIDIMENSIONNEL MASSIF------
  1265. C
  1266. IF (IFOUR.EQ.2.AND.MFR.EQ.1) THEN
  1267. NBROBL=20
  1268. SEGINI NOMID
  1269. LESOBL(1) ='EPSE'
  1270. LESOBL(2) ='W1MA'
  1271. LESOBL(3) ='W2MA'
  1272. LESOBL(4) ='W3MA'
  1273. LESOBL(5) ='W1 '
  1274. LESOBL(6) ='W2 '
  1275. LESOBL(7) ='W3 '
  1276. LESOBL(8) ='VF1X'
  1277. LESOBL(9) ='VF1Y'
  1278. LESOBL(10)='VF1Z'
  1279. LESOBL(11)='VF2X'
  1280. LESOBL(12)='VF2Y'
  1281. LESOBL(13)='VF2Z'
  1282. LESOBL(14)='VF3X'
  1283. LESOBL(15)='VF3Y'
  1284. LESOBL(16)='VF3Z'
  1285. LESOBL(17)='IVL1'
  1286. LESOBL(18)='IVL2'
  1287. LESOBL(19)='IVL3'
  1288. LESOBL(20)='LBDC'
  1289. GOTO 666
  1290. ENDIF
  1291. C
  1292. C-------CAS DEFO PLANES/AXISYMETRIQUE--------
  1293. C
  1294. IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3
  1295. & .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  1296. NBROBL=15
  1297. SEGINI NOMID
  1298. LESOBL(1) ='EPSE'
  1299. LESOBL(2) ='W1MA'
  1300. LESOBL(3) ='W2MA'
  1301. LESOBL(4) ='EPSM'
  1302. LESOBL(5) ='W1 '
  1303. LESOBL(6) ='W2 '
  1304. LESOBL(7) ='VEPS'
  1305. LESOBL(8) ='VF1X'
  1306. LESOBL(9) ='VF1Y'
  1307. LESOBL(10)='VF2X'
  1308. LESOBL(11)='VF2Y'
  1309. LESOBL(12)='IVL1'
  1310. LESOBL(13)='IVL2'
  1311. LESOBL(14)='IVL3'
  1312. LESOBL(15)='LBDC'
  1313. GOTO 666
  1314. ENDIF
  1315. C
  1316. C-------CAS CONT PLANES--------
  1317. C -----OU CAS TRIDIMENSIONNEL COQUES------
  1318. C
  1319. IF (IFOUR.EQ.-2.OR.
  1320. . (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  1321. NBROBL=12
  1322. SEGINI NOMID
  1323. LESOBL(1) ='EPSE'
  1324. LESOBL(2) ='W1MA'
  1325. LESOBL(3) ='W2MA'
  1326. LESOBL(4) ='W1 '
  1327. LESOBL(5) ='W2 '
  1328. LESOBL(6) ='VF1X'
  1329. LESOBL(7) ='VF1Y'
  1330. LESOBL(8) ='VF2X'
  1331. LESOBL(9) ='VF2Y'
  1332. LESOBL(10)='IVL1'
  1333. LESOBL(11)='IVL2'
  1334. LESOBL(12)='LBDC'
  1335. GOTO 666
  1336. ENDIF
  1337. C*OF --> A voir pour le 1D
  1338. C
  1339. C MATERIAU MAZARS_FIB
  1340. C
  1341. 46 CONTINUE
  1342. NBROBL=5
  1343. SEGINI NOMID
  1344. LESOBL( 1) ='EPTI'
  1345. LESOBL( 2) ='VHNI'
  1346. LESOBL( 3) ='VISX'
  1347. LESOBL( 4) ='VISY'
  1348. LESOBL( 5) ='VISZ'
  1349. GOTO 666
  1350. C
  1351. C MATERIAU AMADEI_SAEB
  1352. C
  1353. 47 CONTINUE
  1354. IF (MFR.NE.35) GOTO 999
  1355. NBROBL=7
  1356. SEGINI NOMID
  1357. LESOBL( 1) ='EPSE'
  1358. LESOBL( 2) ='EPOU'
  1359. LESOBL( 3) ='STAT'
  1360. LESOBL( 4) ='UEQU'
  1361. LESOBL( 5) ='EPS1'
  1362. LESOBL( 6) ='EPS2'
  1363. LESOBL( 7) ='EPS3'
  1364. GOTO 666
  1365. C
  1366. C HUJEUX
  1367. C
  1368. 48 CONTINUE
  1369. NBROBL=2
  1370. SEGINI NOMID
  1371. LESOBL(1)='EPSE'
  1372. LESOBL(2)='TRAP'
  1373. GOTO 666
  1374. C
  1375. 49 CONTINUE
  1376. NBROBL=14
  1377. SEGINI NOMID
  1378. LESOBL(1)='EPSE'
  1379. LESOBL(2)='EPS1'
  1380. LESOBL(3)='EPS2'
  1381. LESOBL(4)='EPS3'
  1382. LESOBL(5)='EPS4'
  1383. LESOBL(6)='EPS5'
  1384. LESOBL(7)='EPS6'
  1385. LESOBL(8)='GTIN'
  1386. LESOBL(9)='EPP1'
  1387. LESOBL(10)='EPP2'
  1388. LESOBL(11)='EPP3'
  1389. LESOBL(12)='EPP4'
  1390. LESOBL(13)='EPP5'
  1391. LESOBL(14)='EPP6'
  1392. GOTO 666
  1393. C
  1394. C******************************************************
  1395. 97 continue
  1396. 999 CONTINUE
  1397. SEGINI,NOMID
  1398.  
  1399. 666 CONTINUE
  1400. IPCOMP=NOMID
  1401. SEGDES,NOMID
  1402.  
  1403. RETURN
  1404. END
  1405.  
  1406.  
  1407.  
  1408.  
  1409.  
  1410.  

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