Télécharger idva6b.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVA6B SOURCE PV 16/09/13 13:11:46 9084
  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 IDVA6B (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. C on ne traite ici que les 51 à 100 premiers matepl les
  57. C suivants sont dans idva6c
  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,51,52,97,97,97,97,97,97,97,97,
  62. . 97,62,97,64,65,66,68,68,69,97,71,97,97,97,75,97,97,78,79,80,
  63. . 97,97,83,97,97,97,87,97,97,97,97,92,93,97,97,97,97,97,99,100,
  64. . 98,97,97,98,98,98,97,97,97,97,97,97,97,97,97,97,97,97,97,98,
  65. . 98,98,97,97,97,97,98,98,97,97,97,97,98,97,98,97,97,97,97,98,
  66. . 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,
  67. . 98,98,98,98,98,98,98,98,98,98,98,98,98,98,175),
  68. . MATEPL
  69.  
  70. 98 CALL IDVA6C (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL,
  71. . NBRFAC)
  72. return
  73. C
  74. C MATERIAU ANCRAGE_ACIER
  75. C
  76. 93 CONTINUE
  77. NBROBL=18
  78. SEGINI NOMID
  79. LESOBL( 1) ='FLAG'
  80. LESOBL( 2) ='EPSO'
  81. LESOBL( 3) ='RFAC'
  82. LESOBL( 4) ='VHNG'
  83. LESOBL( 5) ='EPLR'
  84. LESOBL( 6) ='EPIP'
  85. LESOBL( 7) ='EPMP'
  86. LESOBL( 8) ='EPMN'
  87. LESOBL( 9) ='STLR'
  88. LESOBL(10) ='STIP'
  89. LESOBL(11) ='STMP'
  90. LESOBL(12) ='STMN'
  91. C
  92. LESOBL(13) ='EPPP'
  93. LESOBL(14) ='EPPM'
  94. LESOBL(15)= 'EPSA'
  95. LESOBL(16)= 'KSTA'
  96. LESOBL(17)='NITE'
  97. LESOBL(18)='LAMB'
  98. GOTO 666
  99. C +RP
  100. C
  101. C MATERIAU OUGLOVA
  102. C
  103. 175 CONTINUE
  104.  
  105. IF (IFOUR.EQ.2) THEN
  106. C CAS TRIDIMENSIONNEL
  107. NBROBL=17
  108. SEGINI NOMID
  109. LESOBL( 1) ='D '
  110. LESOBL( 2) ='R '
  111. LESOBL( 3) ='P '
  112. LESOBL( 4) ='ZT '
  113. LESOBL( 5) ='NRUP'
  114. LESOBL( 6) ='ESP1'
  115. LESOBL( 7) ='ESP2'
  116. LESOBL( 8) ='ESP3'
  117. LESOBL( 9) ='ESP4'
  118. LESOBL(10) ='ESP5'
  119. LESOBL(11) ='ESP6'
  120. LESOBL(12) ='ESF1'
  121. LESOBL(13) ='ESF2'
  122. LESOBL(14) ='ESF3'
  123. LESOBL(15) ='ESF4'
  124. LESOBL(16) ='ESF5'
  125. LESOBL(17) ='ESF6'
  126. ELSEIF (IFOUR.EQ.-1) THEN
  127. C CAS DEFORMATION PLANE
  128. NBROBL=13
  129. SEGINI NOMID
  130. LESOBL( 1) ='D '
  131. LESOBL( 2) ='R '
  132. LESOBL( 3) ='P '
  133. LESOBL( 4) ='ZT '
  134. LESOBL( 5) ='NRUP'
  135. LESOBL( 6) ='ESP1'
  136. LESOBL( 7) ='ESP2'
  137. LESOBL( 8) ='ESP3'
  138. LESOBL( 9) ='ESP4'
  139. LESOBL(10) ='ESF1'
  140. LESOBL(11) ='ESF2'
  141. LESOBL(12) ='ESF3'
  142. LESOBL(13) ='ESF4'
  143. ELSEIF (IFOUR.EQ.-2) THEN
  144. C CAS CONTRAINTE PLANE
  145. NBROBL=14
  146. SEGINI NOMID
  147. LESOBL( 1) ='D '
  148. LESOBL( 2) ='R '
  149. LESOBL( 3) ='P '
  150. LESOBL( 4) ='ZT '
  151. LESOBL( 5) ='NRUP'
  152. LESOBL( 6) ='ESP1'
  153. LESOBL( 7) ='ESP2'
  154. LESOBL( 8) ='ESP3'
  155. LESOBL( 9) ='ESP4'
  156. LESOBL(10) ='ESF1'
  157. LESOBL(11) ='ESF2'
  158. LESOBL(12) ='ESF3'
  159. LESOBL(13) ='ESF4'
  160. LESOBL(14) ='ES33'
  161. ENDIF
  162.  
  163.  
  164. GOTO 666
  165.  
  166. C -RP
  167. C
  168. C FRAGILE_UNI (Fibre et barre)
  169. C
  170. 78 CONTINUE
  171. NBROBL=4
  172. SEGINI NOMID
  173. LESOBL(1)='EPSO'
  174. LESOBL(2)='DAMC'
  175. LESOBL(3)='DAMT'
  176. LESOBL(4)='VHNG'
  177. GOTO 666
  178. C
  179. C BETON_BAEL (Fibre et barre)
  180. C
  181. 79 CONTINUE
  182. NBROBL=3
  183. SEGINI NOMID
  184. LESOBL(1)='EPSE'
  185. LESOBL(2)='EPSO'
  186. LESOBL(3)='VHNG'
  187. IPCOMP=NOMID
  188. SEGDES NOMID
  189. GOTO 666
  190. C
  191. C PARFAIT_UNI (Fibre et barre)
  192. C
  193. 80 CONTINUE
  194. NBROBL=2
  195. SEGINI NOMID
  196. LESOBL(1)='EPSE'
  197. LESOBL(2)='VHNG'
  198. IPCOMP=NOMID
  199. SEGDES NOMID
  200. GOTO 666
  201. C
  202. C ANCRAGE_PARFAIT (Fibre et barre)
  203. C
  204. 92 CONTINUE
  205. NBROBL=8
  206. SEGINI NOMID
  207. LESOBL(1)='EPSE'
  208. LESOBL(2)='VHNG'
  209. LESOBL(3)='EPPP'
  210. LESOBL(4)='EPPM'
  211. LESOBL(5)='EPSA'
  212. LESOBL(6)='KSTA'
  213. LESOBL(7)='NITE'
  214. LESOBL(8)='LAMB'
  215. IPCOMP=NOMID
  216. SEGDES NOMID
  217. GOTO 666
  218. C
  219. C MATERIAU STRUT_UNI (Fibre)
  220. C
  221. 83 CONTINUE
  222. NBROBL=37
  223. SEGINI NOMID
  224. LESOBL( 1) ='EPS1'
  225. LESOBL( 2) ='EMX1'
  226. LESOBL( 3) ='EMN1'
  227. LESOBL( 4) ='STM1'
  228. LESOBL( 5) ='STR1'
  229. LESOBL( 6) ='TAD1'
  230. *
  231. LESOBL( 7) ='EPS2'
  232. LESOBL( 8) ='EMX2'
  233. LESOBL( 9) ='EMN2'
  234. LESOBL(10) ='STM2'
  235. LESOBL(11) ='STR2'
  236. LESOBL(12) ='TAD2'
  237. *
  238. LESOBL(13) ='FLG3'
  239. LESOBL(14) ='EPS3'
  240. LESOBL(15) ='RFAC'
  241. LESOBL(16) ='EPLR'
  242. LESOBL(17) ='EPIP'
  243. LESOBL(18) ='EPMP'
  244. LESOBL(19) ='EPMN'
  245. LESOBL(20) ='STLR'
  246. LESOBL(21) ='STIP'
  247. LESOBL(22) ='STMP'
  248. LESOBL(23) ='STMN'
  249. LESOBL(24) ='STR3'
  250. *
  251. LESOBL(25) ='VIXY'
  252. LESOBL(26) ='VIXZ'
  253. *
  254. LESOBL(27) ='VHNG'
  255. *
  256. LESOBL(28) ='EMD1'
  257. LESOBL(29) ='EMD2'
  258. *
  259. LESOBL(30) ='VHTA'
  260. LESOBL(31) ='EPO3'
  261. *
  262. LESOBL(32) ='DMG1'
  263. LESOBL(33) ='DMG2'
  264. *
  265. LESOBL(34) ='EAM1'
  266. LESOBL(35) ='EAM2'
  267. *
  268. LESOBL(36) ='VHET'
  269. LESOBL(37) ='FRCO'
  270. IPCOMP=NOMID
  271. SEGDES NOMID
  272. GOTO 666
  273.  
  274. 51 CONTINUE
  275. NBROBL=7
  276. SEGINI NOMID
  277. LESOBL(1)='EPSE'
  278. LESOBL(2)='VHHO'
  279. LESOBL(3)='VHOF'
  280. LESOBL(4)='VHWA'
  281. LESOBL(5)='VHAX'
  282. LESOBL(6)='VHWD'
  283. LESOBL(7)='VHWG'
  284. IPCOMP=NOMID
  285. SEGDES NOMID
  286. GOTO 666
  287. C
  288. 52 CONTINUE
  289. NBROBL=14
  290. SEGINI NOMID
  291. LESOBL(1)='EPSE'
  292. LESOBL(2)='EPS1'
  293. LESOBL(3)='EPS2'
  294. LESOBL(4)='EPS3'
  295. LESOBL(5)='EPS4'
  296. LESOBL(6)='EPS5'
  297. LESOBL(7)='EPS6'
  298. LESOBL(8)='GTIN'
  299. LESOBL(9)='EPP1'
  300. LESOBL(10)='EPP2'
  301. LESOBL(11)='EPP3'
  302. LESOBL(12)='EPP4'
  303. LESOBL(13)='EPP5'
  304. LESOBL(14)='EPP6'
  305. GOTO 666
  306. C
  307. 62 CONTINUE
  308. NBROBL=3
  309. SEGINI NOMID
  310. LESOBL(1)='EPSE'
  311. LESOBL(2)='VHTA'
  312. LESOBL(3)='VHOT'
  313. GOTO 666
  314. C
  315. 64 CONTINUE
  316. NBROBL=7
  317. SEGINI NOMID
  318. LESOBL(1)='EPSE'
  319. LESOBL(2)='VHWF'
  320. LESOBL(3)='VIGM'
  321. LESOBL(4)='EPSM'
  322. LESOBL(5)='VHOT'
  323. LESOBL(6)='VFNS'
  324. LESOBL(7)='VFNE'
  325. GOTO 666
  326. C
  327. C*****************************************************
  328. C-----------------------------
  329. C FORMULATION CERAMIQUE
  330. C-----------------------------
  331. 65 CONTINUE
  332. C
  333. C-------CAS TRIDIMENSIONNEL (IFOUR = 2) MASSIF (MFR = 1)------
  334. C
  335. IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN
  336. NBROBL=37
  337. SEGINI NOMID
  338. LESOBL(1) ='EPSE'
  339. LESOBL(2) ='W1MA'
  340. LESOBL(3) ='W2MA'
  341. LESOBL(4) ='W3MA'
  342. LESOBL(5) ='W1 '
  343. LESOBL(6) ='W2 '
  344. LESOBL(7) ='W3 '
  345. LESOBL(8) ='VF1X'
  346. LESOBL(9) ='VF1Y'
  347. LESOBL(10)='VF1Z'
  348. LESOBL(11)='VF2X'
  349. LESOBL(12)='VF2Y'
  350. LESOBL(13)='VF2Z'
  351. LESOBL(14)='VF3X'
  352. LESOBL(15)='VF3Y'
  353. LESOBL(16)='VF3Z'
  354. LESOBL(17)='IVL1'
  355. LESOBL(18)='IVL2'
  356. LESOBL(19)='IVL3'
  357. LESOBL(20)='LBDC'
  358. LESOBL(21) ='VPXX'
  359. LESOBL(22) ='VPYY'
  360. LESOBL(23) ='VPZZ'
  361. LESOBL(24) ='VPXY'
  362. LESOBL(25) ='VPYZ'
  363. LESOBL(26) ='VPZX'
  364. LESOBL(27) ='VNXX'
  365. LESOBL(28) ='VNYY'
  366. LESOBL(20) ='VNZZ'
  367. LESOBL(30)='VNXY'
  368. LESOBL(31)='VNYZ'
  369. LESOBL(32)='VNZX'
  370. LESOBL(33)='EPCE'
  371. LESOBL(34)='EPSH'
  372. LESOBL(35)='VHLL'
  373. LESOBL(36)='LENG'
  374. LESOBL(37)='EPSF'
  375. GOTO 666
  376. ENDIF
  377. C
  378. C-------CAS DEFO PLANES OU DEFO PLANES GENERALISEES
  379. C
  380. IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN
  381. NBROBL=28
  382. SEGINI NOMID
  383. LESOBL(1) ='EPSE'
  384. LESOBL(2) ='W1MA'
  385. LESOBL(3) ='W2MA'
  386. LESOBL(4) ='EPSM'
  387. LESOBL(5) ='W1 '
  388. LESOBL(6) ='W2 '
  389. LESOBL(7) ='VEPS'
  390. LESOBL(8) ='VF1X'
  391. LESOBL(9) ='VF1Y'
  392. LESOBL(10)='VF2X'
  393. LESOBL(11)='VF2Y'
  394. LESOBL(12)='IVL1'
  395. LESOBL(13)='IVL2'
  396. LESOBL(14)='IVL3'
  397. LESOBL(15)='LBDC'
  398. LESOBL(16) ='VPXX'
  399. LESOBL(17) ='VPYY'
  400. LESOBL(18) ='VPZZ'
  401. LESOBL(19) ='VPXY'
  402. LESOBL(20) ='VNXX'
  403. LESOBL(21) ='VNYY'
  404. LESOBL(22) ='VNZZ'
  405. LESOBL(23) ='VNXY'
  406. LESOBL(24) ='EPCE'
  407. LESOBL(25)='EPSH'
  408. LESOBL(26)='VHLL'
  409. LESOBL(27)='LENG'
  410. LESOBL(28)='EPSF'
  411. GOTO 666
  412. ENDIF
  413. *
  414. * CAS AXISYMETRIQUE
  415. *
  416. IF (IFOUR.EQ.0) THEN
  417. NBROBL=28
  418. SEGINI NOMID
  419. LESOBL(1) ='EPSE'
  420. LESOBL(2) ='W1MA'
  421. LESOBL(3) ='W2MA'
  422. LESOBL(4) ='EPSM'
  423. LESOBL(5) ='W1 '
  424. LESOBL(6) ='W2 '
  425. LESOBL(7) ='VEPS'
  426. LESOBL(8) ='VF1X'
  427. LESOBL(9) ='VF1Y'
  428. LESOBL(10)='VF2X'
  429. LESOBL(11)='VF2Y'
  430. LESOBL(12)='IVL1'
  431. LESOBL(13)='IVL2'
  432. LESOBL(14)='IVL3'
  433. LESOBL(15)='LBDC'
  434. LESOBL(16) ='VPRR'
  435. LESOBL(17) ='VPZZ'
  436. LESOBL(18) ='VPTT'
  437. LESOBL(19) ='VPRZ'
  438. LESOBL(20) ='VNRR'
  439. LESOBL(21) ='VNZZ'
  440. LESOBL(22) ='VNTT'
  441. LESOBL(23) ='VNRZ'
  442. LESOBL(24) ='EPCE'
  443. LESOBL(25)='EPSH'
  444. LESOBL(26)='VHLL'
  445. LESOBL(27)='LENG'
  446. LESOBL(28)='EPSF'
  447. GOTO 666
  448. ENDIF
  449.  
  450. C-------CAS CONT PLANES--------
  451. IF (IFOUR.EQ.-2) THEN
  452. NBROBL=25
  453. SEGINI NOMID
  454. LESOBL(1) ='EPSE'
  455. LESOBL(2) ='W1MA'
  456. LESOBL(3) ='W2MA'
  457. LESOBL(4) ='W1 '
  458. LESOBL(5) ='W2 '
  459. LESOBL(6) ='VF1X'
  460. LESOBL(7) ='VF1Y'
  461. LESOBL(8) ='VF2X'
  462. LESOBL(9) ='VF2Y'
  463. LESOBL(10)='IVL1'
  464. LESOBL(11)='IVL2'
  465. LESOBL(12)='LBDC'
  466. LESOBL(13) ='VPXX'
  467. LESOBL(14) ='VPYY'
  468. LESOBL(15) ='VPZZ'
  469. LESOBL(16) ='VPXY'
  470. LESOBL(17) ='VNXX'
  471. LESOBL(18) ='VNYY'
  472. LESOBL(19) ='VNZZ'
  473. LESOBL(20) ='VNXY'
  474. LESOBL(21) ='EPCE'
  475. LESOBL(22)='EPSH'
  476. LESOBL(23)='VHLL'
  477. LESOBL(24)='LENG'
  478. LESOBL(25)='EPSF'
  479. GOTO 666
  480. ENDIF
  481. C*OF --> A voir pour le 1D
  482. C ----- CAS TRIDIMENSIONNEL COQUES MINCES------
  483. C
  484. IF (IFOUR.EQ.2.AND.(MFR.EQ.3)) THEN
  485. IF(NPINT.EQ.0)THEN
  486. NBROBL=33
  487. SEGINI NOMID
  488. LESOBL(1) ='EPSE'
  489. LESOBL(2) ='W1MA'
  490. LESOBL(3) ='W2MA'
  491. LESOBL(4) ='W1 '
  492. LESOBL(5) ='W2 '
  493. LESOBL(6) ='VF1X'
  494. LESOBL(7) ='VF1Y'
  495. LESOBL(8) ='VF2X'
  496. LESOBL(9) ='VF2Y'
  497. LESOBL(10)='IVL1'
  498. LESOBL(11)='IVL2'
  499. LESOBL(12)='LBDC'
  500. LESOBL(13) ='PN11'
  501. LESOBL(14) ='PN22'
  502. LESOBL(15) ='PN33'
  503. LESOBL(16) ='PN12'
  504. LESOBL(17) ='PM11'
  505. LESOBL(18) ='PM22'
  506. LESOBL(19) ='PM33'
  507. LESOBL(20) ='PM12'
  508. LESOBL(21) ='NN11'
  509. LESOBL(22)='NN22'
  510. LESOBL(23)='NN33'
  511. LESOBL(24)='NN12'
  512. LESOBL(25)='NM11'
  513. LESOBL(26)='NM22'
  514. LESOBL(27)='NM33'
  515. LESOBL(28)='NM12'
  516. LESOBL(29)='EPCE'
  517. LESOBL(30)='EPSH'
  518. LESOBL(31)='VHLL'
  519. LESOBL(32)='LENG'
  520. LESOBL(33)='EPSF'
  521. ELSE
  522. NBROBL=25
  523. SEGINI NOMID
  524. LESOBL(1) ='EPSE'
  525. LESOBL(2) ='W1MA'
  526. LESOBL(3) ='W2MA'
  527. LESOBL(4) ='W1 '
  528. LESOBL(5) ='W2 '
  529. LESOBL(6) ='VF1X'
  530. LESOBL(7) ='VF1Y'
  531. LESOBL(8) ='VF2X'
  532. LESOBL(9) ='VF2Y'
  533. LESOBL(10)='IVL1'
  534. LESOBL(11)='IVL2'
  535. LESOBL(12)='LBDC'
  536. LESOBL(13) ='PMSS'
  537. LESOBL(14) ='PMTT'
  538. LESOBL(15) ='PMNN'
  539. LESOBL(16) ='PMST'
  540. LESOBL(17) ='NMSS'
  541. LESOBL(18) ='NMTT'
  542. LESOBL(19) ='NMNN'
  543. LESOBL(20) ='NMST'
  544. LESOBL(21) ='EPCE'
  545. LESOBL(22)='EPSH'
  546. LESOBL(23)='VHLL'
  547. LESOBL(24)='LENG'
  548. LESOBL(25)='EPSF'
  549. ENDIF
  550. GOTO 666
  551. ENDIF
  552. C
  553. C
  554. C MODELE BETON_INSA_LYON CYCLIQUE : CONTRAINTES PLANES,
  555. C DEFORMATION PLANES ET AXISYMETRIE
  556. C
  557. 66 CONTINUE
  558. C
  559. IFOB1=IFOUR
  560. IF(MELE.EQ.28.OR.MELE.EQ.93) IFOB1=-2
  561. C
  562. NBRFC1 =32
  563. NBRF11=14
  564. NBRFC2=0
  565. IF(IFOB1.EQ.-2.OR.IFOB1.EQ.-1) THEN
  566. IF(IFOB1.EQ.-2.AND.MFR.NE.9) THEN
  567. NBRFC2=3
  568. NBRFC3=3
  569. ELSE IF(IFOB1.EQ.-1.AND.MFR.NE.9) THEN
  570. NBRFC2=4
  571. NBRFC3=4
  572. ELSE IF(MFR.EQ.9) THEN
  573. NBRFC2=5
  574. NBRFC3=5
  575. ENDIF
  576. ELSE IF(IFOB1.EQ.0) THEN
  577. NBRFC2=4
  578. NBRFC3=4
  579. ELSE IF(IFOB1.EQ.2) THEN
  580. NBRFC2=6
  581. NBRFC3=6
  582. ENDIF
  583. C
  584. NBRFAC=NBRFC1
  585. SEGINI NOMID
  586. DO I=1,NBRFC1
  587. LESFAC(I)=NOMIN1(I)
  588. ENDDO
  589. NN1=NBRFAC
  590. C
  591. IF (IFOB1.EQ.-1.OR.IFOB1.EQ.0) THEN
  592. NBRFAC=NN1+NBRF11
  593. SEGADJ NOMID
  594. DO I=1,NBRF11
  595. LESFAC(NN1+I)=NOMI11(I)
  596. ENDDO
  597. ENDIF
  598. C
  599. NBRFAC=NN1+NBRFC2
  600. SEGADJ NOMID
  601. DO I=1,NBRFC2
  602. LESFAC(NN1+I)=NOMIN2(I)
  603. ENDDO
  604. NN1=NBRFAC
  605. GOTO 666
  606. *
  607. * MODELE ORTHOTROPE PLASTIQUE ECROUISSABLE DECOUPLE
  608. * et MODELE ORTHOTROPE PLASTIQUE PARFAIT DECOUPLE
  609. *
  610. 68 CONTINUE
  611. *
  612. IF (MFR.NE.27.AND.MFR.NE.49) THEN
  613. NBROBL=1
  614. NBRFAC=1
  615. SEGINI NOMID
  616. LESOBL(1)='EPP1'
  617. LESFAC(1)='EPP2'
  618. GOTO 666
  619. ELSE
  620. NBROBL=1
  621. SEGINI NOMID
  622. LESOBL(1)='EPSE'
  623. GOTO 666
  624. ENDIF
  625. *
  626. * MODELE D'ALONSO
  627. *
  628. 69 CONTINUE
  629. NBROBL=4
  630. SEGINI NOMID
  631. LESOBL(1)='EPSE'
  632. LESOBL(2)='VPC0'
  633. LESOBL(3)='SLIM'
  634. LESOBL(4)='SUCC'
  635. GOTO 666
  636. *
  637. * MODELE DE PAKZAD
  638. *
  639. 71 CONTINUE
  640. NBROBL=22
  641. SEGINI NOMID
  642. LESOBL(1)='EPSE'
  643. LESOBL(2)='VHSD'
  644. LESOBL(3)='SUCC'
  645. LESOBL(4)='VPCS'
  646. LESOBL(5)='ADEC'
  647. LESOBL(6)='AREC'
  648. LESOBL(7)='PDEC'
  649. LESOBL(8)='PREC'
  650. LESOBL(9)='EP1D'
  651. LESOBL(10)='EP2D'
  652. LESOBL(11)='EP3D'
  653. LESOBL(12)='EP4D'
  654. LESOBL(13)='EP5D'
  655. LESOBL(14)='EP6D'
  656. LESOBL(15)='EP1R'
  657. LESOBL(16)='EP2R'
  658. LESOBL(17)='EP3R'
  659. LESOBL(18)='EP4R'
  660. LESOBL(19)='EP5R'
  661. LESOBL(20)='EP6R'
  662. LESOBL(21)='A1DE'
  663. LESOBL(22)='A1RE'
  664. GOTO 666
  665. C
  666. 75 CONTINUE
  667. NBROBL=7
  668. SEGINI NOMID
  669. LESOBL(1)='EPSE'
  670. LESOBL(2)='END1'
  671. LESOBL(3)='END2'
  672. LESOBL(4)='END3'
  673. LESOBL(5)='END4'
  674. LESOBL(6)='END5'
  675. LESOBL(7)='END6'
  676. GOTO 666
  677. C
  678. 87 CONTINUE
  679. NBROBL=7
  680. SEGINI NOMID
  681. LESOBL(1)='EPSE'
  682. LESOBL(2)='EPS1'
  683. LESOBL(3)='EPS2'
  684. LESOBL(4)='EPS3'
  685. LESOBL(5)='EPS4'
  686. LESOBL(6)='EPS5'
  687. LESOBL(7)='EPS6'
  688. GOTO 666
  689.  
  690.  
  691. *
  692. ***** BETON URGC plastique *****
  693. 99 IF(MATEPL.NE.99) GOTO 999
  694. NBROBL=7
  695. SEGINI NOMID
  696. LESOBL(1)='IFIS'
  697. LESOBL(2)='ANGL'
  698. LESOBL(3)='IPLA'
  699. LESOBL(4)='SIG1'
  700. LESOBL(5)='SIG2'
  701. LESOBL(6)='EPS1'
  702. LESOBL(7)='EPS2'
  703. GOTO 666
  704. *
  705. ***** BETON URGC viscoplastique *****
  706. 100 CONTINUE
  707. NBROBL=17
  708. SEGINI NOMID
  709. LESOBL(1)='IFIS'
  710. LESOBL(2)='ANGL'
  711. LESOBL(3)='IPLA'
  712. LESOBL(4)='SIG1'
  713. LESOBL(5)='SIG2'
  714. LESOBL(6)='EPS1'
  715. LESOBL(7)='EPS2'
  716. LESOBL(8)='TDEF'
  717. LESOBL(9)='TCON'
  718. LESOBL(10)='SP1'
  719. LESOBL(11)='SP2'
  720. LESOBL(12)='SP3'
  721. LESOBL(13)='SP4'
  722. LESOBL(14)='EPV1'
  723. LESOBL(15)='EPV2'
  724. LESOBL(16)='SIV1'
  725. LESOBL(17)='SIV2'
  726. GOTO 666
  727.  
  728. C
  729. C******************************************************
  730. 97 CONTINUE
  731. 999 CONTINUE
  732. SEGINI,NOMID
  733.  
  734. 666 CONTINUE
  735. IPCOMP=NOMID
  736. SEGDES,NOMID
  737.  
  738. RETURN
  739. END
  740.  
  741.  
  742.  
  743.  
  744.  
  745.  

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