Télécharger idvar7.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVAR7 SOURCE AF221230 16/11/22 21:15:08 9185
  2. SUBROUTINE IDVAR7(MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC)
  3. *_______________________________________________________________________
  4. *
  5. * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  6. * --------------------------------------------------------
  7. *
  8. * ENTREES :
  9. * ---------
  10. *
  11. * MATEPL NUMERO DU MATERIAU PLASTIQUE
  12. * MFR NUMERO DE FORMULATION
  13. * IFOUR VALEUR DE IFOU DANS CCOPTIO
  14. * NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  15. * POUR LES ELEMENTS DE COQUE INTEGRES
  16. *
  17. *
  18. * SORTIES :
  19. * ---------
  20. *
  21. * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  22. * OBLIGATOIRES ET FACULTATIVES
  23. * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES
  24. * NBRFAC NOMBRE DE COMPOSANTES FACTULTATIVES
  25. *
  26. * LOT ISPRA
  27. *_______________________________________________________________________
  28. *
  29. IMPLICIT INTEGER(I-N)
  30. SEGMENT NOMID
  31. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  32. ENDSEGMENT
  33. *
  34. PARAMETER(LBIL=4,LTAK=21)
  35. CHARACTER*4 NOMBIL(LBIL),NOMTAK(LTAK),NOMBIF(LBIL),NOMTAF(LTAK)
  36. DATA NOMBIL/'EPSE','EITA','MOEY','COUY'/
  37. DATA NOMBIF/'EPSE','GATA','EFEZ','CISZ'/
  38. DATA NOMTAK/'IFR1','EITA','UEP1','PEP1','UEN1','PEN1','UCP1',
  39. . 'UCN1','E1P1','E1N1','E2P1','E2N1','USP1','USN1',
  40. . 'UTP1','PTP1','UTN1','PTN1','EP11','EN11','COUY'/
  41. DATA NOMTAF/'IFR1','GATA','UEP1','PEP1','UEN1','PEN1','UCP1',
  42. . 'UCN1','E1P1','E1N1','E2P1','E2N1','USP1','USN1',
  43. . 'UTP1','PTP1','UTN1','PTN1','EP11','EN11','CISZ'/
  44. *
  45. NBROBL=0
  46. NBRFAC=0
  47. NOMID =0
  48. *
  49.  
  50. print*,MATEPL
  51.  
  52. IF(MATEPL.EQ.54) THEN
  53. C
  54. C MATERIAU BETOCYCL
  55. C
  56. 1 CONTINUE
  57. NBROBL=14
  58. SEGINI NOMID
  59. LESOBL( 1) ='SIH1'
  60. LESOBL( 2) ='SIH2'
  61. LESOBL( 3) ='EPS1'
  62. LESOBL( 4) ='EPS2'
  63. LESOBL( 5) ='CPHI'
  64. LESOBL( 6) ='SPHI'
  65. LESOBL( 7) ='CON1'
  66. LESOBL( 8) ='CON2'
  67. LESOBL( 9) ='CON3'
  68. LESOBL(10) ='CON4'
  69. LESOBL(11) ='CAS1'
  70. LESOBL(12) ='CAS2'
  71. LESOBL(13) ='LAM1'
  72. LESOBL(14) ='LAM2'
  73. GO TO 666
  74. C
  75. ELSE IF(MATEPL.EQ.55) THEN
  76. C
  77. C ROTATING CRACK
  78. C
  79. 2 CONTINUE
  80. NBROBL=7
  81. SEGINI,NOMID
  82. LESOBL(1) = 'CPHI'
  83. LESOBL(2) = 'SPHI'
  84. LESOBL(3) = 'EPS1'
  85. LESOBL(4) = 'EPS2'
  86. LESOBL(5) = 'EPN1'
  87. LESOBL(6) = 'EPN2'
  88. LESOBL(7) = 'ICAS'
  89. GO TO 666
  90. C
  91. ELSE IF(MATEPL.EQ.56) THEN
  92. C
  93. C MATERIAU JOINT_SOFT
  94. C
  95. 3 CONTINUE
  96. NBROBL=6
  97. SEGINI NOMID
  98. LESOBL( 1) ='EPSS'
  99. LESOBL( 2) ='EPST'
  100. LESOBL( 3) ='HC11'
  101. LESOBL( 4) ='HC12'
  102. LESOBL( 5) ='HC22'
  103. LESOBL( 6) ='ETTO'
  104. GO TO 666
  105. C
  106. ELSE IF(MATEPL.EQ.119) THEN
  107. C
  108. C MATERIAU JOINT_COAT
  109. C
  110. NBROBL=1
  111. SEGINI NOMID
  112. LESOBL( 1) ='EPSS'
  113. GO TO 666
  114. C
  115. ELSE IF(MATEPL.EQ.91) THEN
  116. C
  117. C MATERIAU ANCRAGE_ELIGEHAUSEN
  118. C
  119. 31 CONTINUE
  120. NBROBL=5
  121. SEGINI NOMID
  122. LESOBL( 1) ='EPPP'
  123. LESOBL( 2) ='EPPM'
  124. LESOBL( 3) ='EPSO'
  125. LESOBL( 4) ='KSTA'
  126. LESOBL( 5) ='KNEL'
  127. GO TO 666
  128. C
  129. ELSE IF(MATEPL.EQ.150) THEN
  130. C
  131. C MATERIAU BILIN_EFFX POUR LES POUTRES UNIQUEMENT
  132. C
  133. IF(MFR.NE.7) GO TO 99
  134. NBROBL=LBIL
  135. SEGINI NOMID
  136. DO 40 I=1,LBIL
  137. LESOBL(I)=NOMBIL(I)
  138. 40 CONTINUE
  139. GO TO 666
  140. C
  141. ELSE IF(MATEPL.EQ.57) THEN
  142. C
  143. C MATERIAU BILI_MOMY POUR LES POUTRES UNIQUEMENT
  144. C
  145. 4 CONTINUE
  146. IF(MFR.NE.7) GO TO 99
  147. NBROBL=LBIL
  148. SEGINI NOMID
  149. DO 41 I=1,LBIL
  150. LESOBL(I)=NOMBIL(I)
  151. 41 CONTINUE
  152. GO TO 666
  153. C
  154. ELSE IF(MATEPL.EQ.58) THEN
  155. C
  156. C MATERIAU BILI_EFFZ POUR LES POUTRES UNIQUEMENT
  157. C
  158. IF(MFR.NE.7) GO TO 99
  159. NBROBL=LBIL
  160. SEGINI NOMID
  161. DO 51 I=1,LBIL
  162. LESOBL(I)=NOMBIF(I)
  163. 51 CONTINUE
  164. GO TO 666
  165. C
  166. ELSE IF(MATEPL.EQ.59) THEN
  167. C
  168. C MATERIAU TAKEMO_MOMY POUR LES POUTRES UNIQUEMENT
  169. C
  170. IF(MFR.NE.7) GO TO 99
  171. NBROBL=LTAK
  172. SEGINI NOMID
  173. DO 61 I=1,LTAK
  174. LESOBL(I)=NOMTAK(I)
  175. 61 CONTINUE
  176. GO TO 666
  177. C
  178. ELSE IF(MATEPL.EQ.60) THEN
  179. C
  180. C MATERIAU TAKEMO_EFFY POUR LES POUTRES UNIQUEMENT
  181. C
  182. IF(MFR.NE.7) GO TO 99
  183. NBROBL=LTAK
  184. SEGINI NOMID
  185. DO 71 I=1,LTAK
  186. LESOBL(I)=NOMTAF(I)
  187. 71 CONTINUE
  188. GO TO 666
  189. C
  190. ELSE IF(MATEPL.EQ.72) THEN
  191. C
  192. C BARRE POUR LES MURS DE REMPLISSAGE-INFILL_UNI
  193. C
  194. IF(MFR.NE.27) GO TO 99
  195. NBROBL=6
  196. SEGINI NOMID
  197. LESOBL(1) = 'DAM'
  198. LESOBL(2) = 'DEPM'
  199. LESOBL(3) = 'DEPA'
  200. LESOBL(4) = 'DEPI'
  201. LESOBL(5) = 'DEPC'
  202. LESOBL(6) = 'ICAS'
  203. GO TO 666
  204. C
  205. ELSE IF(MATEPL.EQ.73) THEN
  206. C
  207. C MODELE CISAIL_NL (TIMO - Effort tranchant/Cisaillement)
  208. C
  209. IF((MFR.NE.7).AND.(MFR.NE.47)) GO TO 99
  210. NBROBL=8
  211. SEGINI NOMID
  212. LESOBL(1) = 'DAMP'
  213. LESOBL(2) = 'DAMN'
  214. LESOBL(3) = 'DEMP'
  215. LESOBL(4) = 'DEMN'
  216. LESOBL(5) = 'DEPA'
  217. LESOBL(6) = 'DECP'
  218. LESOBL(7) = 'DECN'
  219. LESOBL(8) = 'ICAS'
  220. GO TO 666
  221. C
  222. ELSE IF(MATEPL.EQ.126) THEN
  223. C
  224. C MATERIAU MUR_SHEAR
  225. C
  226. NBROBL=13
  227. SEGINI NOMID
  228. LESOBL( 1) ='ICAS'
  229. LESOBL( 2) ='DEPT'
  230. LESOBL( 3) ='EPLU'
  231. LESOBL( 4) ='EMOI'
  232. LESOBL( 5) ='DPLU'
  233. LESOBL( 6) ='DMOI'
  234. LESOBL( 7) ='FCIN'
  235. LESOBL( 8) ='FCAM'
  236. LESOBL( 9) ='KCIN'
  237. LESOBL(10) ='APLU'
  238. LESOBL(11) ='AMOI'
  239. LESOBL(12) ='OPLU'
  240. LESOBL(13) ='OMOI'
  241. GO TO 666
  242. C
  243. ELSE IF(MATEPL.EQ.151) THEN
  244. C
  245. C MATERIAU ISS_GRANGE
  246. C
  247. NBROBL=22
  248. SEGINI NOMID
  249. LESOBL( 1) ='EPSE'
  250. LESOBL( 2) ='UP11'
  251. LESOBL( 3) ='UP12'
  252. LESOBL( 4) ='UP13'
  253. LESOBL( 5) ='UP14'
  254. LESOBL( 6) ='UP15'
  255. LESOBL( 7) ='Q11'
  256. LESOBL( 8) ='Q12'
  257. LESOBL( 9) ='Q13'
  258. LESOBL(10) ='Q14'
  259. LESOBL(11) ='Q15'
  260. C LESOBL(12) ='FP1'
  261. C LESOBL(13) ='FP2'
  262. C LESOBL(14) ='FP3'
  263. C LESOBL(15) ='FP4'
  264. C LESOBL(16) ='FP5'
  265. LESOBL(12) ='DLP'
  266. LESOBL(13) ='KPP'
  267. LESOBL(14) ='KSP'
  268. LESOBL(15) ='DISM'
  269. LESOBL(16) ='DELM'
  270. LESOBL(17) ='UP21'
  271. LESOBL(18) ='UP22'
  272. LESOBL(19) ='UP23'
  273. LESOBL(20) ='UP24'
  274. LESOBL(21) ='UP25'
  275. LESOBL(22) ='Q21'
  276. GO TO 666
  277. C
  278. ELSE IF(MATEPL.EQ.152) THEN
  279. C
  280. C MATERIAU RUP_THER
  281. C
  282. NBROBL=12
  283. SEGINI NOMID
  284. LESOBL( 1) ='EPSE'
  285. LESOBL( 2) ='DPLS'
  286. LESOBL( 3) ='DMOI'
  287. LESOBL( 4) ='DH '
  288. LESOBL( 5) ='ZPLS'
  289. LESOBL( 6) ='ZMOI'
  290. LESOBL( 7) ='UP '
  291. LESOBL( 8) ='ECRB'
  292. LESOBL( 9) ='FP '
  293. LESOBL(10) ='UA '
  294. LESOBL(11) ='ECRA'
  295. LESOBL(12) ='FA '
  296. GO TO 666
  297. C
  298. ELSE IF(MATEPL.EQ.129) THEN
  299. C
  300. C MATERIAU INCO
  301. C
  302. NBROBL=4
  303. SEGINI NOMID
  304. LESOBL( 1) ='EPSE'
  305. LESOBL( 2) ='EPS1'
  306. LESOBL( 3) ='EPS2'
  307. LESOBL( 4) ='EPN '
  308. GO TO 666
  309. C
  310. ELSE IF(MATEPL.EQ.155) THEN
  311. C
  312. C MATERIAU GERNAY
  313. C
  314. NBROBL=32
  315. SEGINI NOMID
  316. LESOBL( 1) ='KAPT'
  317. LESOBL( 2) ='KAPC'
  318. LESOBL( 3) ='DAMT'
  319. LESOBL( 4) ='DAMC'
  320. LESOBL( 5) ='EPL1'
  321. LESOBL( 6) ='EPL2'
  322. LESOBL( 7) ='EPL3'
  323. LESOBL( 8) ='EPL4'
  324. LESOBL( 9) ='EPL5'
  325. LESOBL(10) ='EPL6'
  326. LESOBL(11) ='ETR1'
  327. LESOBL(12) ='ETR2'
  328. LESOBL(13) ='ETR3'
  329. LESOBL(14) ='ETR4'
  330. LESOBL(15) ='ETR5'
  331. LESOBL(16) ='ETR6'
  332. LESOBL(17) ='SEF1'
  333. LESOBL(18) ='SEF2'
  334. LESOBL(19) ='SEF3'
  335. LESOBL(20) ='SEF4'
  336. LESOBL(21) ='SEF5'
  337. LESOBL(22) ='SEF6'
  338. LESOBL(23) ='EPSE'
  339. LESOBL(24) ='SET1'
  340. LESOBL(25) ='SET2'
  341. LESOBL(26) ='SET3'
  342. LESOBL(27) ='SET4'
  343. LESOBL(28) ='SET5'
  344. LESOBL(29) ='SET6'
  345. LESOBL(30) ='TMAX'
  346. LESOBL(31) ='PHI0'
  347. LESOBL(32) ='EPTH'
  348. GO TO 666
  349. C
  350. ELSE IF(MATEPL.EQ.156) THEN
  351. C
  352. C MATERIAU WELLS
  353. C
  354. IF(IFOUR.LE.0) THEN
  355. NBROBL=3
  356. SEGINI NOMID
  357. LESOBL( 1) ='EPSE'
  358. LESOBL( 2) ='EPS1'
  359. LESOBL( 3) ='EPN'
  360. ELSE
  361. NBROBL=4
  362. SEGINI NOMID
  363. LESOBL( 1) ='EPSE'
  364. LESOBL( 2) ='EPS1'
  365. LESOBL( 3) ='EPS2'
  366. LESOBL( 4) ='EPN'
  367. ENDIF
  368. GO TO 666
  369. ELSE IF(MATEPL.EQ.160) THEN
  370. C
  371. C MATERIAU RICBET_UNI
  372. C
  373.  
  374. NBROBL=10
  375. SEGINI NOMID
  376. LESOBL( 1) ='EPSX'
  377. LESOBL( 2) ='EPSY'
  378. LESOBL( 3) ='EPSZ'
  379. LESOBL( 4) ='XDT '
  380. LESOBL( 5) ='XZT '
  381. LESOBL( 6) ='EPSP'
  382. LESOBL( 7) ='XEC '
  383. LESOBL( 8) ='REC '
  384. LESOBL( 9) ='EPPP'
  385. LESOBL(10) ='PCUM'
  386. GO TO 666
  387. C
  388. ELSE IF(MATEPL.EQ.162) THEN
  389. C
  390. C MATERIAU DP_SOL
  391. C
  392. NBROBL=8
  393. SEGINI NOMID
  394. LESOBL(1)='EP11'
  395. LESOBL(2)='EP22'
  396. LESOBL(3)='EP33'
  397. LESOBL(4)='EP12'
  398. LESOBL(5)='EP13'
  399. LESOBL(6)='EP23'
  400. LESOBL(7)='XI '
  401. LESOBL(8)='GAMM'
  402. GO TO 666
  403. C
  404. C
  405. ELSE IF(MATEPL.EQ.164) THEN
  406. C
  407. C MATERIAU IWPR3D_SOL
  408. C
  409. NBROBL=61
  410. SEGINI NOMID
  411. LESOBL( 1) ='GAM1'
  412. LESOBL( 2) ='B1_1'
  413. LESOBL( 3) ='B1_2'
  414. LESOBL( 4) ='B1_3'
  415. LESOBL( 5) ='B1_4'
  416. LESOBL( 6) ='B1_5'
  417. LESOBL( 7) ='B1_6'
  418. LESOBL( 8) ='B2_1'
  419. LESOBL( 9) ='B2_2'
  420. LESOBL(10) ='B2_3'
  421. LESOBL(11) ='B2_4'
  422. LESOBL(12) ='B2_5'
  423. LESOBL(13) ='B2_6'
  424. LESOBL(14) ='B3_1'
  425. LESOBL(15) ='B3_2'
  426. LESOBL(16) ='B3_3'
  427. LESOBL(17) ='B3_4'
  428. LESOBL(18) ='B3_5'
  429. LESOBL(19) ='B3_6'
  430. LESOBL(20) ='B4_1'
  431. LESOBL(21) ='B4_2'
  432. LESOBL(22) ='B4_3'
  433. LESOBL(23) ='B4_4'
  434. LESOBL(24) ='B4_5'
  435. LESOBL(25) ='B4_6'
  436. LESOBL(26) ='B5_1'
  437. LESOBL(27) ='B5_2'
  438. LESOBL(28) ='B5_3'
  439. LESOBL(29) ='B5_4'
  440. LESOBL(30) ='B5_5'
  441. LESOBL(31) ='B5_6'
  442. LESOBL(32) ='B6_1'
  443. LESOBL(33) ='B6_2'
  444. LESOBL(34) ='B6_3'
  445. LESOBL(35) ='B6_4'
  446. LESOBL(36) ='B6_5'
  447. LESOBL(37) ='B6_6'
  448. LESOBL(38) ='B7_1'
  449. LESOBL(39) ='B7_2'
  450. LESOBL(40) ='B7_3'
  451. LESOBL(41) ='B7_4'
  452. LESOBL(42) ='B7_5'
  453. LESOBL(43) ='B7_6'
  454. LESOBL(44) ='B8_1'
  455. LESOBL(45) ='B8_2'
  456. LESOBL(46) ='B8_3'
  457. LESOBL(47) ='B8_4'
  458. LESOBL(48) ='B8_5'
  459. LESOBL(49) ='B8_6'
  460. LESOBL(50) ='B9_1'
  461. LESOBL(51) ='B9_2'
  462. LESOBL(52) ='B9_3'
  463. LESOBL(53) ='B9_4'
  464. LESOBL(54) ='B9_5'
  465. LESOBL(55) ='B9_6'
  466. LESOBL(56) ='BF_1'
  467. LESOBL(57) ='BF_2'
  468. LESOBL(58) ='BF_3'
  469. LESOBL(59) ='BF_4'
  470. LESOBL(60) ='BF_5'
  471. LESOBL(61) ='BF_6'
  472. GO TO 666
  473. C
  474. ENDIF
  475. C
  476. 99 CONTINUE
  477. SEGINI NOMID
  478.  
  479. 666 CONTINUE
  480. IPCOMP=NOMID
  481. SEGDES NOMID
  482. C
  483. RETURN
  484. END
  485.  
  486.  
  487.  
  488.  
  489.  
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  

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