Télécharger idplas.eso

Retour à la liste

Numérotation des lignes :

  1. C IDPLAS SOURCE AF221230 16/11/22 21:15:06 9185
  2. SUBROUTINE IDPLAS (MFR,MOOBL,MOFAC,IPLAC,IRET)
  3. *--------------------------------------------------------------------*
  4. * Noms de composantes de mat{riaux plastiques *
  5. *--------------------------------------------------------------------*
  6. * *
  7. * ENTREES: *
  8. * ------- *
  9. * MFR num{ro de formulation *
  10. * IPMODL objet mod}le {l{mentaire ( segment actif ) *
  11. * MOOBL pointeur sur les mots obligatoires *
  12. * MOFAC pointeur sur les mots facultatif *
  13. * IPLAC numero du materiau dans MODPLA *
  14. * *
  15. * SORTIE : *
  16. * ------- *
  17. * *
  18. * IRET : 0 SI PROBLEME *
  19. * *
  20. *--------------------------------------------------------------------*
  21. *
  22. IMPLICIT INTEGER(I-N)
  23. -INC SMLMOTS
  24. -INC CCOPTIO
  25. *
  26. JGN=8
  27. IRET=1
  28. *
  29. *--------------------------------------------------------------------*
  30. * *
  31. * T Y P E P L A S T I Q U E *
  32. * *
  33. *--------------------------------------------------------------------*
  34. IF (IPLAC.EQ.1) THEN
  35. *
  36. * MODELE DE VON MISES ECROUISSAGE ISOTROPE
  37. *
  38. IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
  39. MLMOTS=MOOBL
  40. JGA=MOTS(/2)
  41. JGM=JGA+1
  42. SEGADJ MLMOTS
  43. MOOBL=MLMOTS
  44. MOTS(JGA+1)='TRAC'
  45. GOTO 9999
  46. ELSE IF (IPLAC.EQ.2) THEN
  47. *
  48. * MODELE PLASTIQUE PARFAIT
  49. *
  50. IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
  51. MLMOTS=MOOBL
  52. JGA=MOTS(/2)
  53. JGM=JGA+1
  54. SEGADJ MLMOTS
  55. MOOBL=MLMOTS
  56. MOTS(JGA+1)='SIGY'
  57. GOTO 9999
  58. ELSE IF (IPLAC.EQ.3) THEN
  59. *
  60. * MODELE DE VON MISES ECROUISSAGE CINEMATIQUE BILIEAIRE
  61. *
  62. IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
  63. MLMOTS=MOOBL
  64. JGA=MOTS(/2)
  65. JGM=JGA+2
  66. SEGADJ MLMOTS
  67. MOOBL=MLMOTS
  68. MOTS(JGA+1)='SIGY'
  69. MOTS(JGA+2)='H '
  70. GOTO 9999
  71. ELSE IF (IPLAC.EQ.4) THEN
  72. *
  73. * MODELE PLASTIQUE DRUCKER GENERAL A ECOULEMENT NON ASSOCIER
  74. *
  75. MLMOTS=MOOBL
  76. JGA=MOTS(/2)
  77. JGM=JGA+9
  78. SEGADJ MLMOTS
  79. MOOBL=MLMOTS
  80. MOTS(JGA+1)='ALFA'
  81. MOTS(JGA+2)='BETA'
  82. MOTS(JGA+3)='K '
  83. MOTS(JGA+4)='GAMM'
  84. MOTS(JGA+5)='DELT'
  85. MOTS(JGA+6)='ETA '
  86. MOTS(JGA+7)='MU '
  87. MOTS(JGA+8)='KL '
  88. MOTS(JGA+9)='H '
  89. GOTO 9999
  90. ELSE IF (IPLAC.EQ.5) THEN
  91. *
  92. * MODELE PLASTIQUE DRUCKER PRAGER
  93. *
  94. MLMOTS=MOOBL
  95. JGA=MOTS(/2)
  96. JGM=JGA+2
  97. SEGADJ MLMOTS
  98. MOOBL=MLMOTS
  99. MOTS(JGA+1)= 'LTR '
  100. MOTS(JGA+2)= 'LCS '
  101. GOTO 9999
  102. ELSE IF (IPLAC.EQ.6) THEN
  103. *
  104. * MODELE PLASTIQUE BETON
  105. * TOUS LES PARAMETRES DU MODELE SONT EN FACULTATIF
  106. *
  107. MLMOTS=MOFAC
  108. JGA=MOTS(/2)
  109. JGM=JGA+28
  110. SEGADJ MLMOTS
  111. MOFAC=MLMOTS
  112. MOTS(JGA+1 )='LTR1'
  113. MOTS(JGA+2 )='ETR1'
  114. MOTS(JGA+3 )='LTT1'
  115. MOTS(JGA+4 )='ETT1'
  116. MOTS(JGA+5 )='ERS1'
  117. MOTS(JGA+6 )='LTR2'
  118. MOTS(JGA+7 )='ETR2'
  119. MOTS(JGA+8 )='LTT2'
  120. MOTS(JGA+9 )='ETT2'
  121. MOTS(JGA+10)='ERS2'
  122. MOTS(JGA+11)='LTR3'
  123. MOTS(JGA+12)='ETR3'
  124. MOTS(JGA+13)='LTT3'
  125. MOTS(JGA+14)='ETT3'
  126. MOTS(JGA+15)='ERS3'
  127. MOTS(JGA+16)='BETR'
  128. MOTS(JGA+17)='LCS '
  129. MOTS(JGA+18)='ECS '
  130. MOTS(JGA+19)='LBIC'
  131. MOTS(JGA+20)='VF1X'
  132. MOTS(JGA+21)='VF1Y'
  133. MOTS(JGA+22)='VF1Z'
  134. MOTS(JGA+23)='VF2X'
  135. MOTS(JGA+24)='VF2Y'
  136. MOTS(JGA+25)='VF2Z'
  137. MOTS(JGA+26)='VF3X'
  138. MOTS(JGA+27)='VF3Y'
  139. MOTS(JGA+28)='VF3Z'
  140. GOTO 9999
  141. ELSE IF (IPLAC.EQ.7) THEN
  142. *
  143. * MODELE PLASTIQUE CHABOCHE A UN CENTRE ET ECROUISSAGE ISOTROPE
  144. *
  145. IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
  146. MLMOTS=MOOBL
  147. JGA=MOTS(/2)
  148. JGM=JGA+5
  149. SEGADJ MLMOTS
  150. MOOBL=MLMOTS
  151. MOTS(JGA+1)='A '
  152. MOTS(JGA+2)='C '
  153. MOTS(JGA+3)='R0 '
  154. MOTS(JGA+4)='PSI '
  155. MOTS(JGA+5)='OMEG'
  156. *
  157. MLMOTS=MOFAC
  158. JGA=MOTS(/2)
  159. JGM=JGA+2
  160. SEGADJ MLMOTS
  161. MOFAC=MLMOTS
  162. JGM=JGA
  163. SEGINI MLMOT1
  164. DO 10 IC=1,JGA
  165. MLMOT1.MOTS(IC)=MOTS(IC)
  166. 10 CONTINUE
  167. DO 11 IC=1,JGA
  168. MOTS(IC+2)=MLMOT1.MOTS(IC)
  169. 11 CONTINUE
  170. SEGSUP MLMOT1
  171. MOTS(1)='RM '
  172. MOTS(2)='B '
  173. GOTO 9999
  174. ELSE IF (IPLAC.EQ.8) THEN
  175. *
  176. * MODELE PLASTIQUE CHABOCHE A DEUX CENTRES (ET ECROUISSAGE ISOTRO
  177. *
  178. IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
  179. MLMOTS=MOOBL
  180. JGA=MOTS(/2)
  181. JGM=JGA+7
  182. SEGADJ MLMOTS
  183. MOOBL=MLMOTS
  184. MOTS(JGA+1)='A1 '
  185. MOTS(JGA+2)='C1 '
  186. MOTS(JGA+3)='A2 '
  187. MOTS(JGA+4)='C2 '
  188. MOTS(JGA+5)='R0 '
  189. MOTS(JGA+6)='PSI '
  190. MOTS(JGA+7)='OMEG'
  191. *
  192. MLMOTS=MOFAC
  193. JGA=MOTS(/2)
  194. JGM=JGA+2
  195. SEGADJ MLMOTS
  196. MOFAC=MLMOTS
  197. JGM=JGA
  198. SEGINI MLMOT1
  199. DO 20 IC=1,JGA
  200. MLMOT1.MOTS(IC)=MOTS(IC)
  201. 20 CONTINUE
  202. DO 21 IC=1,JGA
  203. MOTS(IC+2)=MLMOT1.MOTS(IC)
  204. 21 CONTINUE
  205. SEGSUP MLMOT1
  206. MOTS(1)='RM '
  207. MOTS(2)='B '
  208. GOTO 9999
  209. ELSE IF (IPLAC.EQ.9) THEN
  210. *
  211. * MODELE PLASTIQUE PARFAIT ET ECROUISSAGE POUR L'ELEMENT TUYAU FI
  212. *
  213. IF (MFR.NE.17) GOTO 99
  214. MLMOTS=MOFAC
  215. JGA=MOTS(/2)
  216. JGM=JGA+5
  217. SEGADJ MLMOTS
  218. MOFAC=MLMOTS
  219. JGM=JGA
  220. SEGINI MLMOT1
  221. DO 30 IC=1,JGA
  222. MLMOT1.MOTS(IC)=MOTS(IC)
  223. 30 CONTINUE
  224. DO 31 IC=1,JGA
  225. MOTS(IC+5)=MLMOT1.MOTS(IC)
  226. 31 CONTINUE
  227. SEGSUP MLMOT1
  228. MOTS(1)='SIGF'
  229. MOTS(2)='J1C '
  230. MOTS(3)='TMAT'
  231. MOTS(4)='TRAC'
  232. MOTS(5)='JDA '
  233. GOTO 9999
  234. ELSE IF (IPLAC.EQ.10) THEN
  235. *
  236. * ECROUISSAGE ET ENDOMMAGEMENT ISOTROPES - PLAST. ASS.- VON MISES
  237. *
  238. MLMOTS=MOOBL
  239. JGA=MOTS(/2)
  240. JGM=JGA+4
  241. SEGADJ MLMOTS
  242. MOOBL=MLMOTS
  243. MOTS(JGA+1)='TRAC'
  244. MOTS(JGA+2)='EPSD'
  245. MOTS(JGA+3)='DC '
  246. MOTS(JGA+4)='EPSR'
  247. GOTO 9999
  248. ELSE IF (IPLAC.EQ.11) THEN
  249. *
  250. * MODELE DE GAUVAIN
  251. *
  252. MLMOTS=MOOBL
  253. JGA=MOTS(/2)
  254. JGM=JGA+3
  255. SEGADJ MLMOTS
  256. MOOBL=MLMOTS
  257. MOTS(JGA+1)='TRAC'
  258. MOTS(JGA+2)='STOR'
  259. MOTS(JGA+3)='SCOM'
  260. GOTO 9999
  261. ELSE IF (IPLAC.EQ.12) THEN
  262. *
  263. * PLASTIQUE PARFAIT ET ECROUISSAGE POUR L'ELEMENT LINESPRING
  264. *
  265. IF (MFR.NE.15) GOTO 99
  266. MLMOTS=MOFAC
  267. JGA=MOTS(/2)
  268. JGM=JGA+2
  269. SEGADJ MLMOTS
  270. MOFAC=MLMOTS
  271. JGM=JGA
  272. SEGINI MLMOT1
  273. DO 40 IC=1,JGA
  274. MLMOT1.MOTS(IC)=MOTS(IC)
  275. 40 CONTINUE
  276. DO 41 IC=1,JGA
  277. MOTS(IC+2)=MLMOT1.MOTS(IC)
  278. 41 CONTINUE
  279. SEGSUP MLMOT1
  280. MOTS(1)='SIGF'
  281. MOTS(2)='TRAC'
  282. GOTO 9999
  283. ELSE IF (IPLAC.EQ.13) THEN
  284. *
  285. * MODELE UBIQUITOUS
  286. *
  287. MLMOTS=MOOBL
  288. JGA=MOTS(/2)
  289. JGM=JGA+5
  290. SEGADJ MLMOTS
  291. MOOBL=MLMOTS
  292. MOTS(JGA+1)='NCRI'
  293. MOTS(JGA+2)='ANG1'
  294. MOTS(JGA+3)='TRA1'
  295. MOTS(JGA+4)='PHI1'
  296. MOTS(JGA+5)='PSI1'
  297. *
  298. MLMOTS=MOFAC
  299. JGA=MOTS(/2)
  300. JGM=JGA+4
  301. SEGADJ MLMOTS
  302. MOFAC=MLMOTS
  303. MOTS(JGA+1)='ANG2'
  304. MOTS(JGA+2)='TRA2'
  305. MOTS(JGA+3)='PHI2'
  306. MOTS(JGA+4)='PSI2'
  307. GOTO 9999
  308. ELSE IF (IPLAC.EQ.14) THEN
  309. *
  310. * MODELE GLOBAL
  311. *
  312. MLMOTS=MOFAC
  313. JGA=MOTS(/2)
  314. JGM=JGA+5
  315. SEGADJ MLMOTS
  316. MOFAC=MLMOTS
  317. MOTS(JGA+1)='COMP'
  318. MOTS(JGA+2)='FLXY'
  319. MOTS(JGA+3)='FLXZ'
  320. MOTS(JGA+4)='CISY'
  321. MOTS(JGA+5)='CISZ'
  322. GOTO 9999
  323. ELSE IF (IPLAC.EQ.15) THEN
  324. *
  325. * MODELE CAM-CLAY
  326. *
  327. MLMOTS=MOOBL
  328. JGA=MOTS(/2)
  329. JGM=JGA+7
  330. SEGADJ MLMOTS
  331. MOOBL=MLMOTS
  332. MOTS(JGA+1)='E0 '
  333. MOTS(JGA+2)='P0 '
  334. MOTS(JGA+3)='COHE'
  335. MOTS(JGA+4)='M '
  336. MOTS(JGA+5)='LAMD'
  337. MOTS(JGA+6)='KAPA'
  338. MOTS(JGA+7)='G1 '
  339. GOTO 9999
  340. ELSE IF (IPLAC.EQ.16) THEN
  341. *
  342. * MODELE MOHR-COULOMB POUR LES JOINTS
  343. *
  344. IF (MFR.NE.35.AND.MFR.NE.75) GO TO 99
  345. MLMOTS=MOOBL
  346. JGA=MOTS(/2)
  347. IF(MFR.EQ.35) THEN
  348. JGM=JGA+4
  349. ELSE IF (MFR.EQ.75) THEN
  350. JGM=JGA+5
  351. ENDIF
  352. SEGADJ MLMOTS
  353. MOOBL=MLMOTS
  354. IF(MFR.EQ.35) THEN
  355. MOTS(JGA+1)='EF '
  356. MOTS(JGA+2)='ECN '
  357. ELSE IF (MFR.EQ.75) THEN
  358. MOTS(JGA+1)='QT '
  359. MOTS(JGA+2)='FNE '
  360. ENDIF
  361. MOTS(JGA+3)='COHE'
  362. MOTS(JGA+4)='FRIC'
  363. IF (MFR.EQ.75) MOTS(JGA+5)='TYPE'
  364. MLMOTS=MOFAC
  365. JGA=MOTS(/2)
  366. JGM=JGA+1
  367. SEGADJ MLMOTS
  368. MOFAC=MLMOTS
  369. MOTS(JGA+1) ='FTRC'
  370. GOTO 9999
  371. ELSE IF (IPLAC.EQ.17) THEN
  372. *
  373. * MODELE COULOMB_DILATANT POUR LES JOINTS
  374. *
  375. IF (MFR.NE.35) GO TO 99
  376. MLMOTS=MOOBL
  377. JGA=MOTS(/2)
  378. JGM=JGA+3
  379. SEGADJ MLMOTS
  380. MOOBL=MLMOTS
  381. MOTS(JGA+1)='PHI '
  382. MOTS(JGA+2)='MU '
  383. MOTS(JGA+3)='FTRC'
  384. GOTO 9999
  385. ELSE IF (IPLAC.EQ.18) THEN
  386. *
  387. * MODELE BETON_AXI
  388. *
  389. MLMOTS=MOFAC
  390. JGA=MOTS(/2)
  391. JGM=JGA+13
  392. SEGADJ MLMOTS
  393. MOFAC=MLMOTS
  394. MOTS(JGA+1) ='LTR1'
  395. MOTS(JGA+2) ='LTR2'
  396. MOTS(JGA+3) ='LTR3'
  397. MOTS(JGA+4) ='ANGL'
  398. MOTS(JGA+5) ='LCS '
  399. MOTS(JGA+6) ='ECS '
  400. MOTS(JGA+7) ='LCT '
  401. MOTS(JGA+8) ='PCT '
  402. MOTS(JGA+9) ='LCD '
  403. MOTS(JGA+10)='PCD '
  404. MOTS(JGA+11)='ECD '
  405. MOTS(JGA+12)='LPH '
  406. MOTS(JGA+13)='PENT'
  407. GOTO 9999
  408. ELSE IF (IPLAC.EQ.19) THEN
  409. *
  410. * MODELE DE GURSON POUR LA RUPTURE DUCTILE
  411. *
  412. MLMOTS=MOOBL
  413. JGA=MOTS(/2)
  414. JGM=JGA+4
  415. SEGADJ MLMOTS
  416. MOOBL=MLMOTS
  417. MOTS(JGA+1)= 'SIGY'
  418. MOTS(JGA+2)= 'H '
  419. MOTS(JGA+3)= 'SBAR'
  420. MOTS(JGA+4)= 'PORO'
  421. GOTO 9999
  422. *
  423. * MODELE BETON LIBRE ET BETON CONFINE (MODELE A FIBRE ET ELEMENTS BARRE)
  424. *
  425. ELSE IF (IPLAC.EQ.20) THEN
  426. MLMOTS=MOOBL
  427. JGA=MOTS(/2)
  428. JGM=JGA+13
  429. SEGADJ MLMOTS
  430. MOOBL=MLMOTS
  431. MOTS(JGA+1)= 'STFC'
  432. MOTS(JGA+2)= 'EZER'
  433. MOTS(JGA+3)= 'STFT'
  434. MOTS(JGA+4)= 'ALF1'
  435. MOTS(JGA+5)= 'OME1'
  436. MOTS(JGA+6)= 'ZETA'
  437. MOTS(JGA+7)= 'ST85'
  438. MOTS(JGA+8)= 'TRAF'
  439. MOTS(JGA+9)= 'FACL'
  440. MOTS(JGA+10)= 'FAMX'
  441. MOTS(JGA+11)= 'STPT'
  442. MOTS(JGA+12)= 'FAM1'
  443. MOTS(JGA+13)= 'FAM2'
  444.  
  445. GOTO 9999
  446. ELSE IF (IPLAC.EQ.21) THEN
  447. *
  448. * MODELE ACIER_UNI (MODELE A FIBRE ET ELEMENTS BARRE)
  449. *
  450. MLMOTS=MOOBL
  451. JGA=MOTS(/2)
  452. JGM=JGA+12
  453. SEGADJ MLMOTS
  454. MOOBL=MLMOTS
  455. MOTS(JGA+ 1)= 'STSY'
  456. MOTS(JGA+ 2)= 'STSU'
  457. MOTS(JGA+ 3)= 'EPSH'
  458. MOTS(JGA+ 4)= 'EPSU'
  459. MOTS(JGA+ 5)= 'ROFA'
  460. MOTS(JGA+ 6)= 'BFAC'
  461. MOTS(JGA+ 7)= 'A1FA'
  462. MOTS(JGA+ 8)= 'A2FA'
  463. MOTS(JGA+ 9)= 'FALD'
  464. MOTS(JGA+10)= 'A6FA'
  465. MOTS(JGA+11)= 'CFAC'
  466. MOTS(JGA+12)= 'AFAC'
  467. GOTO 9999
  468. *
  469. ELSE IF (IPLAC.EQ.51) THEN
  470. *
  471. * MODELE ACIER_ANCRAGE AVEC LES LOIS ELIGEHAUSEN ET ACIER_UNI
  472. *
  473. MLMOTS=MOOBL
  474. JGA=MOTS(/2)
  475. C
  476. IF (MFR.EQ.47) THEN
  477. C
  478. C Modele à fibre
  479. C
  480. JGM=JGA+21
  481. ELSE
  482. C
  483. C Elements de barre
  484. C
  485. JGM=JGA+20
  486. C
  487. ENDIF
  488. C
  489. SEGADJ MLMOTS
  490. MOOBL=MLMOTS
  491. MOTS(JGA+ 1)= 'STSY'
  492. MOTS(JGA+ 2)= 'STSU'
  493. MOTS(JGA+ 3)= 'EPSH'
  494. MOTS(JGA+ 4)= 'EPSU'
  495. MOTS(JGA+ 5)= 'ROFA'
  496. MOTS(JGA+ 6)= 'BFAC'
  497. MOTS(JGA+ 7)= 'A1FA'
  498. MOTS(JGA+ 8)= 'A2FA'
  499. MOTS(JGA+ 9)= 'FALD'
  500. MOTS(JGA+10)= 'A6FA'
  501. MOTS(JGA+11)= 'CFAC'
  502. MOTS(JGA+12)= 'AFAC'
  503. MOTS(JGA+13)= 'G12 '
  504. MOTS(JGA+14)= 'S1T '
  505. MOTS(JGA+15)= 'S2T '
  506. MOTS(JGA+16)= 'S3T '
  507. MOTS(JGA+17)= 'T1T '
  508. MOTS(JGA+18)= 'T3T '
  509. MOTS(JGA+19)= 'ALFA'
  510. MOTS(JGA+20)= 'LANC'
  511. C
  512. IF (MFR.EQ.47) THEN
  513. C
  514. C Modele à fibre
  515. C
  516. MOTS(JGA+21)= 'SECB'
  517. ENDIF
  518. C
  519. GOTO 9999
  520. *
  521. ELSE IF (IPLAC.EQ.44) THEN
  522. *
  523. * MODELE FRAGILE_UNI (MODELE A FIBRE)
  524. *
  525. MLMOTS=MOOBL
  526. JGA=MOTS(/2)
  527. JGM=JGA+6
  528. SEGADJ MLMOTS
  529. MOOBL=MLMOTS
  530. MOTS(JGA+ 1)= 'FC '
  531. MOTS(JGA+ 2)= 'FC_R'
  532. MOTS(JGA+ 3)= 'STRC'
  533. MOTS(JGA+ 4)= 'FT '
  534. MOTS(JGA+ 5)= 'FT_R'
  535. MOTS(JGA+ 6)= 'STRT'
  536. GOTO 9999
  537. *
  538. ELSE IF (IPLAC.EQ.45) THEN
  539. *
  540. * MODELE BETON_BAEL (MODELE A FIBRE)
  541. *
  542. MLMOTS=MOOBL
  543. JGA=MOTS(/2)
  544. JGM=JGA+1
  545. SEGADJ MLMOTS
  546. MOOBL=MLMOTS
  547. MOTS(JGA+ 1)= 'FC '
  548. GOTO 9999
  549. *
  550. ELSE IF (IPLAC.EQ.46) THEN
  551. *
  552. * MODELE PARFAIT_UNI (MODELE A FIBRE)
  553. *
  554. MLMOTS=MOOBL
  555. JGA=MOTS(/2)
  556. JGM=JGA+2
  557. SEGADJ MLMOTS
  558. MOOBL=MLMOTS
  559. MOTS(JGA+ 1)= 'SIGY'
  560. MOTS(JGA+ 2)= 'H '
  561. GOTO 9999
  562. *
  563. ELSE IF (IPLAC.EQ.50) THEN
  564. *
  565. * MODELE PARFAIT_ANCRAGE AVEC LES LOIS ELIGEHAUSEN ET PARFAIT_UNI
  566. *
  567. MLMOTS=MOOBL
  568. JGA=MOTS(/2)
  569. C
  570. IF (MFR.EQ.47) THEN
  571. C
  572. C Modele à fibre
  573. C
  574. JGM=JGA+11
  575. ELSE
  576. C
  577. C Elements de barre
  578. C
  579. JGM=JGA+10
  580. C
  581. ENDIF
  582. SEGADJ MLMOTS
  583. MOOBL=MLMOTS
  584. MOTS(JGA+ 1)= 'SIGY'
  585. MOTS(JGA+ 2)= 'H '
  586. MOTS(JGA+ 3)= 'G12 '
  587. MOTS(JGA+ 4)= 'S1T '
  588. MOTS(JGA+ 5)= 'S2T '
  589. MOTS(JGA+ 6)= 'S3T '
  590. MOTS(JGA+ 7)= 'T1T '
  591. MOTS(JGA+ 8)= 'T3T '
  592. MOTS(JGA+ 9)= 'ALFA'
  593. MOTS(JGA+10)= 'LANC'
  594. C
  595. IF (MFR.EQ.47) THEN
  596. C
  597. C Modele à fibre
  598. C
  599. MOTS(JGA+11)= 'SECB'
  600. ENDIF
  601. C
  602. GOTO 9999
  603. C
  604. ELSE IF (IPLAC.EQ.53) THEN
  605. C
  606. C MODELE UNILATERAL (MODELE A FIBRE)
  607. C
  608. MLMOTS=MOOBL
  609. JGA=MOTS(/2)
  610. JGM=JGA+9
  611. SEGADJ MLMOTS
  612. MOOBL=MLMOTS
  613. MOTS(JGA+ 1)= 'YS1 '
  614. MOTS(JGA+ 2)= 'YS2 '
  615. MOTS(JGA+ 3)= 'A1 '
  616. MOTS(JGA+ 4)= 'A2 '
  617. MOTS(JGA+ 5)= 'B1 '
  618. MOTS(JGA+ 6)= 'B2 '
  619. MOTS(JGA+ 7)= 'BET1'
  620. MOTS(JGA+ 8)= 'BET2'
  621. MOTS(JGA+ 9)= 'SIGF'
  622. GOTO 9999
  623. C
  624. ELSE IF (IPLAC.EQ.47) THEN
  625. C
  626. C MODELE STRUT_UNI (MODELE A FIBRE)
  627. C
  628. MLMOTS=MOOBL
  629. JGA=MOTS(/2)
  630. JGM=JGA+23
  631. SEGADJ MLMOTS
  632. MOOBL=MLMOTS
  633. * Beton
  634. MOTS(JGA+1)= 'STFC'
  635. MOTS(JGA+2)= 'EZER'
  636. MOTS(JGA+3)= 'STFT'
  637. MOTS(JGA+4)= 'ALF1'
  638. MOTS(JGA+5)= 'OME1'
  639. MOTS(JGA+6)= 'ZETA'
  640. MOTS(JGA+7)= 'ST85'
  641. MOTS(JGA+8)= 'TRAF'
  642. MOTS(JGA+21)= 'STPT'
  643. MOTS(JGA+22)= 'FACL'
  644. MOTS(JGA+23)= 'FAMX'
  645. * Acier
  646. MOTS(JGA+ 9)= 'YOUS'
  647. MOTS(JGA+10)= 'STSY'
  648. MOTS(JGA+11)= 'STSU'
  649. MOTS(JGA+12)= 'EPSH'
  650. MOTS(JGA+13)= 'EPSU'
  651. MOTS(JGA+14)= 'ROFA'
  652. MOTS(JGA+15)= 'BFAC'
  653. MOTS(JGA+16)= 'A1FA'
  654. MOTS(JGA+17)= 'A2FA'
  655. * Diagonale
  656. MOTS(JGA+18)= 'ROST'
  657. MOTS(JGA+19)= 'THET'
  658. MOTS(JGA+20)= 'EULT'
  659. *
  660. GOTO 9999
  661. *
  662. *
  663. ELSE IF (IPLAC.EQ.22) THEN
  664. *
  665. * MODELE SECTION
  666. *
  667. * RIEN DE SPECIAL A FAIRE
  668. GOTO 9999
  669. ELSE IF (IPLAC.EQ.23) THEN
  670. C
  671. C=========================================================
  672. C MODELE BETON OTTOSEN
  673. C=========================================================
  674. C
  675. C Formulation DEFORMATIONS PLANES /AXISYMETRIQUE
  676. IF ((IFOMOD.EQ.-1.AND.IFOUR.NE.-2).OR.
  677. & (IFOMOD.EQ.0.OR.IFOMOD.EQ.1)) THEN
  678. *
  679. MLMOTS=MOOBL
  680. JGA=MOTS(/2)
  681. JGM=JGA+7
  682. SEGADJ MLMOTS
  683. MOOBL=MLMOTS
  684. IF (IFOMOD.EQ.-1.AND.IFOUR.NE.-2) THEN
  685. MOTS(JGA+1)='LXX '
  686. MOTS(JGA+2)='LYY '
  687. MOTS(JGA+3)='LXY '
  688. MOTS(JGA+4)='LZZ '
  689. MOTS(JGA+5)='PXX '
  690. MOTS(JGA+6)='PYY '
  691. MOTS(JGA+7)='PXY '
  692. *
  693. ELSE IF (IFOMOD.EQ.0.OR.IFOMOD.EQ.1) THEN
  694. MOTS(JGA+1)='LRR '
  695. MOTS(JGA+2)='LZZ '
  696. MOTS(JGA+3)='LRZ '
  697. MOTS(JGA+4)='LOO '
  698. MOTS(JGA+5)='PRR '
  699. MOTS(JGA+6)='PZZ '
  700. MOTS(JGA+7)='PRZ '
  701. ENDIF
  702. *
  703. MLMOTS=MOFAC
  704. JGA=MOTS(/2)
  705. JGM=JGA+30
  706. SEGADJ MLMOTS
  707. MOFAC=MLMOTS
  708. MOTS(JGA+1) ='GFTR'
  709. MOTS(JGA+2) ='LTR '
  710. MOTS(JGA+3) ='GFCS'
  711. MOTS(JGA+4) ='LCS '
  712. MOTS(JGA+5) ='GS '
  713. MOTS(JGA+6) ='BTR '
  714. MOTS(JGA+7) ='BCS '
  715. MOTS(JGA+8) ='WRUP'
  716. MOTS(JGA+9) ='BILI'
  717. MOTS(JGA+10)='EPSR'
  718. MOTS(JGA+11)='GFT1'
  719. MOTS(JGA+12)='GFT2'
  720. MOTS(JGA+13)='GFT3'
  721. MOTS(JGA+14)='GS1 '
  722. MOTS(JGA+15)='GS2 '
  723. MOTS(JGA+16)='GS3 '
  724. MOTS(JGA+17)='LTR1'
  725. MOTS(JGA+18)='LTR2'
  726. MOTS(JGA+19)='LTR3'
  727. MOTS(JGA+20)='EPCM'
  728. MOTS(JGA+21)='EPCU'
  729. MOTS(JGA+22)='LCBI'
  730. MOTS(JGA+23)='XK2 '
  731. MOTS(JGA+24)='XGB '
  732. MOTS(JGA+25)='XPA '
  733. MOTS(JGA+26)='WRU1'
  734. MOTS(JGA+27)='WRU2'
  735. MOTS(JGA+28)='BIL1'
  736. MOTS(JGA+29)='BIL2'
  737. MOTS(JGA+30)='EPSB'
  738. GOTO 9999
  739. ENDIF
  740. C
  741. C Formulation CONTRAINTES PLANES / 3D COQUES MINCES
  742. IF ((IFOMOD.EQ.-1.AND.IFOUR.EQ.-2).OR.
  743. & (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  744. *
  745. MLMOTS=MOOBL
  746. JGA=MOTS(/2)
  747. JGM=JGA+7
  748. SEGADJ MLMOTS
  749. MOOBL=MLMOTS
  750. IF (IFOMOD.EQ.-1.AND.IFOUR.EQ.-2) THEN
  751. MOTS(JGA+1)='LXX '
  752. MOTS(JGA+2)='LYY '
  753. MOTS(JGA+3)='LXY '
  754. MOTS(JGA+4)='LZZ '
  755. MOTS(JGA+5)='PXX '
  756. MOTS(JGA+6)='PYY '
  757. MOTS(JGA+7)='PXY '
  758. *
  759. ELSE IF (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN
  760. MOTS(JGA+1)='LSS '
  761. MOTS(JGA+2)='LTT '
  762. MOTS(JGA+3)='LST '
  763. MOTS(JGA+4)='LNN '
  764. MOTS(JGA+5)='PSS '
  765. MOTS(JGA+6)='PTT '
  766. MOTS(JGA+7)='PST '
  767. ENDIF
  768. *
  769. MLMOTS=MOFAC
  770. JGA=MOTS(/2)
  771. JGM=JGA+25
  772. SEGADJ MLMOTS
  773. MOFAC=MLMOTS
  774. MOTS(JGA+1) ='GFTR'
  775. MOTS(JGA+2) ='LTR '
  776. MOTS(JGA+3) ='GFCS'
  777. MOTS(JGA+4) ='LCS '
  778. MOTS(JGA+5) ='GS '
  779. MOTS(JGA+6) ='BTR '
  780. MOTS(JGA+7) ='BCS '
  781. MOTS(JGA+8) ='WRUP'
  782. MOTS(JGA+9) ='BILI'
  783. MOTS(JGA+10)='GFT1'
  784. MOTS(JGA+11)='GFT2'
  785. MOTS(JGA+12)='GS1 '
  786. MOTS(JGA+13)='GS2 '
  787. MOTS(JGA+14)='LTR1'
  788. MOTS(JGA+15)='LTR2'
  789. MOTS(JGA+16)='EPCM'
  790. MOTS(JGA+17)='EPCU'
  791. MOTS(JGA+18)='LCBI'
  792. MOTS(JGA+19)='XK2 '
  793. MOTS(JGA+20)='XGB '
  794. MOTS(JGA+21)='XPA '
  795. MOTS(JGA+22)='WRU1'
  796. MOTS(JGA+23)='WRU2'
  797. MOTS(JGA+24)='BIL1'
  798. MOTS(JGA+25)='BIL2'
  799. GOTO 9999
  800. ENDIF
  801. C
  802. C Formulation TRIDIMENSIONNELLE MASSIVE
  803. IF (IFOMOD.EQ.2.AND.MFR.EQ.1) THEN
  804. MLMOTS=MOOBL
  805. JGA=MOTS(/2)
  806. JGM=JGA+12
  807. SEGADJ MLMOTS
  808. MOOBL=MLMOTS
  809. MOTS(JGA+1) ='LXX '
  810. MOTS(JGA+2) ='LYY '
  811. MOTS(JGA+3) ='LZZ '
  812. MOTS(JGA+4) ='LXY '
  813. MOTS(JGA+5) ='LXZ '
  814. MOTS(JGA+6) ='LYZ '
  815. MOTS(JGA+7) ='PXX '
  816. MOTS(JGA+8) ='PYY '
  817. MOTS(JGA+9) ='PZZ '
  818. MOTS(JGA+10)='PXY '
  819. MOTS(JGA+11)='PXZ '
  820. MOTS(JGA+12)='PYZ '
  821. MLMOTS=MOFAC
  822. JGA=MOTS(/2)
  823. JGM=JGA+30
  824. SEGADJ MLMOTS
  825. MOFAC=MLMOTS
  826. MOTS(JGA+1)='GFTR'
  827. MOTS(JGA+2)='LTR '
  828. MOTS(JGA+3)='GFCS'
  829. MOTS(JGA+4)='LCS '
  830. MOTS(JGA+5)='GS '
  831. MOTS(JGA+6)='BTR '
  832. MOTS(JGA+7)='BCS '
  833. MOTS(JGA+8)='WRUP'
  834. MOTS(JGA+9)='BILI'
  835. MOTS(JGA+10)='GFT1'
  836. MOTS(JGA+11)='GFT2'
  837. MOTS(JGA+12)='GFT3'
  838. MOTS(JGA+13)='GS1 '
  839. MOTS(JGA+14)='GS2 '
  840. MOTS(JGA+15)='GS3 '
  841. MOTS(JGA+16)='LTR1'
  842. MOTS(JGA+17)='LTR2'
  843. MOTS(JGA+18)='LTR3'
  844. MOTS(JGA+19)='EPCM'
  845. MOTS(JGA+20)='EPCU'
  846. MOTS(JGA+21)='LCBI'
  847. MOTS(JGA+22)='XK2 '
  848. MOTS(JGA+23)='XGB '
  849. MOTS(JGA+24)='XPA '
  850. MOTS(JGA+25)='WRU1'
  851. MOTS(JGA+26)='WRU2'
  852. MOTS(JGA+27)='WRU3'
  853. MOTS(JGA+28)='BIL1'
  854. MOTS(JGA+29)='BIL2'
  855. MOTS(JGA+30)='BIL3'
  856. GOTO 9999
  857. ENDIF
  858. *
  859. ELSE IF (IPLAC.EQ.24) THEN
  860. *
  861. * MODELE MAZARS_FIB (MODELE A FIBRE)
  862. *
  863. MLMOTS=MOOBL
  864. JGA=MOTS(/2)
  865. JGM=JGA+6
  866. SEGADJ MLMOTS
  867. MOTS(JGA+1)= 'KTR0'
  868. MOTS(JGA+2)= 'ACOM'
  869. MOTS(JGA+3)= 'BCOM'
  870. MOTS(JGA+4)= 'ATRA'
  871. MOTS(JGA+5)= 'BTRA'
  872. MOTS(JGA+6)= 'BETA'
  873. GOTO 9999
  874. *
  875. ELSE IF (IPLAC.EQ.25) THEN
  876. *
  877. * MODELE AMADEI-SAEB POUR LES JOINTS
  878. *
  879. IF (MFR.NE.35) GO TO 99
  880. MLMOTS=MOOBL
  881. JGA=MOTS(/2)
  882. JGM=JGA+10
  883. SEGADJ MLMOTS
  884. MOOBL=MLMOTS
  885. MOTS(JGA+1)='FIMU'
  886. MOTS(JGA+2)='SGMT'
  887. MOTS(JGA+3)='I0 '
  888. MOTS(JGA+4)='S0 '
  889. MOTS(JGA+5)='B0 '
  890. MOTS(JGA+6)='UR '
  891. MOTS(JGA+7)='UP '
  892. MOTS(JGA+8)='KNI '
  893. MOTS(JGA+9)='FI0 '
  894. MOTS(JGA+10)='VM '
  895. GOTO 9999
  896. *
  897. ELSE IF (IPLAC.EQ.26) THEN
  898. *
  899. * MODELE HUJEUX
  900. *
  901. MLMOTS=MOOBL
  902. JGA=MOTS(/2)
  903. JGM=JGA+10
  904. SEGADJ MLMOTS
  905. MOOBL=MLMOTS
  906. MOTS(JGA+1)='P0 '
  907. MOTS(JGA+2)='COHE'
  908. MOTS(JGA+3)='M '
  909. MOTS(JGA+4)='BETA'
  910. MOTS(JGA+5)='A '
  911. MOTS(JGA+6)='B '
  912. MOTS(JGA+7)='R0 '
  913. MOTS(JGA+8)='P1 '
  914. MOTS(JGA+9)='N '
  915. MOTS(JGA+10)='E1 '
  916. GOTO 9999
  917. *
  918. ELSE IF (IPLAC.EQ.27) THEN
  919. *
  920. * MODELE STEINBERG COCHRAN GUINAN
  921. *
  922. * IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
  923. MLMOTS=MOOBL
  924. JGA=MOTS(/2)
  925. JGM=JGA+9
  926. SEGADJ MLMOTS
  927. MOOBL=MLMOTS
  928. MOTS(JGA+1)='SIGY'
  929. MOTS(JGA+2)='BETA'
  930. MOTS(JGA+3)='N'
  931. MOTS(JGA+4)='EPSI'
  932. MOTS(JGA+5)='GP'
  933. MOTS(JGA+6)='GT'
  934. MOTS(JGA+7)='YMAX'
  935. MOTS(JGA+8)='TMO'
  936. MOTS(JGA+9)='MU'
  937. GOTO 9999
  938. *
  939. ELSE IF (IPLAC.EQ.28) THEN
  940. *
  941. * MODELE ZERILLI ARMSTRONG
  942. *
  943. MLMOTS=MOOBL
  944. JGA=MOTS(/2)
  945. JGM=JGA+10
  946. SEGADJ MLMOTS
  947. MOOBL=MLMOTS
  948. MOTS(JGA+1)='DYG'
  949. MOTS(JGA+2)='C1'
  950. MOTS(JGA+3)='C2'
  951. MOTS(JGA+4)='C3'
  952. MOTS(JGA+5)='C4'
  953. MOTS(JGA+6)='C5'
  954. MOTS(JGA+7)='N'
  955. MOTS(JGA+8)='K'
  956. MOTS(JGA+9)='L'
  957. MOTS(JGA+10)='TYPE'
  958. GOTO 9999
  959. *
  960. ELSE IF (IPLAC.EQ.29) THEN
  961. *
  962. * MODELE PRESTON TONKS WALLACE
  963. *
  964. MLMOTS=MOOBL
  965. JGA=MOTS(/2)
  966. JGM=JGA+15
  967. SEGADJ MLMOTS
  968. MOOBL=MLMOTS
  969. MOTS(JGA+1)='TAU'
  970. MOTS(JGA+2)='P'
  971. MOTS(JGA+3)='S0'
  972. MOTS(JGA+4)='SINF'
  973. MOTS(JGA+5)='K'
  974. MOTS(JGA+6)='G'
  975. MOTS(JGA+7)='Y0'
  976. MOTS(JGA+8)='YINF'
  977. MOTS(JGA+9)='Y1'
  978. MOTS(JGA+10)='Y2'
  979. MOTS(JGA+11)='BETA'
  980. MOTS(JGA+12)='GP'
  981. MOTS(JGA+13)='GT'
  982. MOTS(JGA+14)='MU'
  983. MOTS(JGA+15)='TMO'
  984. GOTO 9999
  985. *
  986. ELSE IF (IPLAC.EQ.30) THEN
  987. *
  988. * MODELE BETOCYCL EN CONTRAINTE PLANE
  989. *
  990. MLMOTS=MOOBL
  991. JGA=MOTS(/2)
  992. JGM=JGA+11
  993. SEGADJ MLMOTS
  994. MOOBL=MLMOTS
  995. MOTS(JGA+1)='HHH1'
  996. MOTS(JGA+2)='FTPE'
  997. MOTS(JGA+3)='FCPE'
  998. MOTS(JGA+4)='FTGR'
  999. MOTS(JGA+5)='FCGR'
  1000. MOTS(JGA+6)='EPSO'
  1001. MOTS(JGA+7)='WOR0'
  1002. MOTS(JGA+8)='TREV'
  1003. MOTS(JGA+9)='COEV'
  1004. MOTS(JGA+10)='LCAT'
  1005. MOTS(JGA+11)='LCAC'
  1006. GOTO 9999
  1007. *
  1008. ELSE IF (IPLAC.EQ.31) THEN
  1009. C
  1010. C MODELE ROTATING CRACK EN CONTRAINTE PLANE
  1011. C
  1012. MLMOTS=MOOBL
  1013. JGA=MOTS(/2)
  1014. JGM=JGA+4
  1015. SEGADJ MLMOTS
  1016. MOOBL=MLMOTS
  1017. MOTS(JGA+1)= 'FTRA'
  1018. MOTS(JGA+2)= 'EPSR'
  1019. MOTS(JGA+3)= 'FRES'
  1020. MOTS(JGA+4)= 'BETA'
  1021. GOTO 9999
  1022. *
  1023. ELSE IF (IPLAC.EQ.32) THEN
  1024. *
  1025. * MODELE JOINT_SOFT POUR LES JOINTS
  1026. *
  1027. IF (MFR.NE.35) GO TO 99
  1028. MLMOTS=MOOBL
  1029. JGA=MOTS(/2)
  1030. *
  1031. JGM=JGA+6
  1032. SEGADJ MLMOTS
  1033. MOOBL=MLMOTS
  1034. MOTS(JGA+1)='PNOR'
  1035. MOTS(JGA+2)='CPLG'
  1036. MOTS(JGA+3)='BETA'
  1037. MOTS(JGA+4)='SJCB'
  1038. MOTS(JGA+5)='SJSB'
  1039. MOTS(JGA+6)='SJTB'
  1040. *
  1041. GOTO 9999
  1042. *
  1043. ELSE IF (IPLAC.EQ.49) THEN
  1044. *
  1045. * MODELE ANCRAGE_ELIGEHAUSEN POUR LES JOINTS
  1046. *
  1047. IF (MFR.NE.35) GO TO 99
  1048. MLMOTS=MOOBL
  1049. JGA=MOTS(/2)
  1050. JGM=JGA+7
  1051. SEGADJ MLMOTS
  1052. MOOBL=MLMOTS
  1053. MOTS(JGA+1)='S1T '
  1054. MOTS(JGA+2)='S2T '
  1055. MOTS(JGA+3)='S3T '
  1056. MOTS(JGA+4)='T1T '
  1057. MOTS(JGA+5)='T3T '
  1058. MOTS(JGA+6)='ALFA'
  1059. MOTS(JGA+7)='PERI'
  1060. GOTO 9999
  1061. *
  1062. ELSE IF (IPLAC.EQ.33) THEN
  1063. *
  1064. * MODELE BILINEAIRE MOMY
  1065. *
  1066. MLMOTS=MOOBL
  1067. JGA=MOTS(/2)
  1068. JGM=JGA+2
  1069. SEGADJ MLMOTS
  1070. MOTS(JGA+1)='EAYI'
  1071. MOTS(JGA+2)='YMOM'
  1072. GOTO 9999
  1073. *
  1074. ELSE IF (IPLAC.EQ.34) THEN
  1075. *
  1076. * MODELE BILINEAIRE EFFZ
  1077. *
  1078. MLMOTS=MOOBL
  1079. JGA=MOTS(/2)
  1080. JGM=JGA+2
  1081. SEGADJ MLMOTS
  1082. MOTS(JGA+1)='EAYI'
  1083. MOTS(JGA+2)='YEFF'
  1084. GOTO 9999
  1085. *
  1086. ELSE IF ((IPLAC.EQ.35).OR.(IPLAC.EQ.36)) THEN
  1087. *
  1088. * MODELE PLASTIQUE TAKEMO_MOMY OU TAKEMO_EFFZ
  1089. *
  1090. MLMOTS=MOOBL
  1091. JGA=MOTS(/2)
  1092. JGM=JGA+7
  1093. SEGADJ MLMOTS
  1094. MOTS(JGA+1)='TRAC'
  1095. MOTS(JGA+2)='SFDP'
  1096. MOTS(JGA+3)='SFDN'
  1097. MOTS(JGA+4)='PINP'
  1098. MOTS(JGA+5)='PINN'
  1099. MOTS(JGA+6)='SRDP'
  1100. MOTS(JGA+7)='SRDN'
  1101. GOTO 9999
  1102. C
  1103. ELSE IF(IPLAC.EQ.37) THEN
  1104. *
  1105. * MODELE BETON_INSA
  1106. *
  1107. MLMOTS=MOFAC
  1108. JGA=MOTS(/2)
  1109. JGM=JGA+12
  1110. SEGADJ MLMOTS
  1111. MOFAC=MLMOTS
  1112. MOTS(JGA+1 )='ALFA'
  1113. MOTS(JGA+2 )='LCS '
  1114. MOTS(JGA+3 )='EMAX'
  1115. MOTS(JGA+4 )='EPUT'
  1116. MOTS(JGA+5 )='FTC '
  1117. MOTS(JGA+6 )='ICOM'
  1118. MOTS(JGA+7 )='GFTR'
  1119. *
  1120. MOTS(JGA+8 )='IFLU'
  1121. MOTS(JGA+9 )='RMOY'
  1122. MOTS(JGA+10)='PHIF'
  1123. MOTS(JGA+11)='TEM1'
  1124. MOTS(JGA+12)='POAR'
  1125. GOTO 9999
  1126. *
  1127. ELSE IF (IPLAC.EQ.38.AND.(MFR.EQ.27.OR.MFR.EQ.49)) THEN
  1128. *
  1129. * ECROUIS_INSA (MATERIAU ECROUISSABLE UNIDIRECTIONEL)
  1130. *
  1131. MLMOTS=MOOBL
  1132. JGA=MOTS(/2)
  1133. JGM=JGA+1
  1134. SEGADJ MLMOTS
  1135. MOOBL=MLMOTS
  1136. MOTS(JGA+1)='TRAC'
  1137. GOTO 9999
  1138. *
  1139. ELSE IF (IPLAC.EQ.38.AND.MFR.NE.27.AND.MFR.NE.49) THEN
  1140. *
  1141. * ECROUIS_INSA (MATERIAU ORTHOTROPE ECROUISSABLE DECOUPLE)
  1142. *
  1143. MLMOTS=MOOBL
  1144. JGA=MOTS(/2)
  1145. JGM=JGA+2
  1146. SEGADJ MLMOTS
  1147. MOOBL=MLMOTS
  1148. MOTS(JGA+1)='TRA1'
  1149. MOTS(JGA+2)='TRA2'
  1150. GOTO 9999
  1151. *
  1152. ELSE IF (IPLAC.EQ.39.AND.(MFR.EQ.27.OR.MFR.EQ.49)) THEN
  1153. *
  1154. * PARFAIT_INSA (MATERIAU PLASTIQUE PARFAIT UNIDIRECTIONEL)
  1155. *
  1156. MLMOTS=MOOBL
  1157. JGA=MOTS(/2)
  1158. JGM=JGA+1
  1159. SEGADJ MLMOTS
  1160. MOOBL=MLMOTS
  1161. MOTS(JGA+1)='SIGY'
  1162. GOTO 9999
  1163. *
  1164. ELSE IF (IPLAC.EQ.39.AND.MFR.NE.27.AND.MFR.NE.49) THEN
  1165. *
  1166. * PARFAIT_INSA (MATERIAU ORTHOTROPE PLASTIQUE PARFAIT DECOUPLE)
  1167. *
  1168. MLMOTS=MOOBL
  1169. JGA=MOTS(/2)
  1170. JGM=JGA+2
  1171. SEGADJ MLMOTS
  1172. MOOBL=MLMOTS
  1173. MOTS(JGA+1)='SIG1'
  1174. MOTS(JGA+2)='SIG2'
  1175. GOTO 9999
  1176. *
  1177. ELSE IF (IPLAC.EQ.40) THEN
  1178. *
  1179. * ALONSO
  1180. *
  1181. MLMOTS=MOOBL
  1182. JGA=MOTS(/2)
  1183. JGM=JGA+12
  1184. SEGADJ MLMOTS
  1185. MOOBL=MLMOTS
  1186. MOTS(JGA+1)='KS'
  1187. MOTS(JGA+2)='LAMS'
  1188. MOTS(JGA+3)='M'
  1189. MOTS(JGA+4)='KK'
  1190. MOTS(JGA+5)='PC0'
  1191. MOTS(JGA+6)='P0'
  1192. MOTS(JGA+7)='LAM1'
  1193. MOTS(JGA+8)='T0'
  1194. MOTS(JGA+9)='TAU'
  1195. MOTS(JGA+10)='GTAN'
  1196. MOTS(JGA+11)='KTAN'
  1197. MOTS(JGA+12)='E0'
  1198. *
  1199. MLMOTS=MOFAC
  1200. JGA=MOTS(/2)
  1201. JGM=JGA+4
  1202. SEGADJ MLMOTS
  1203. MOFAC=MLMOTS
  1204. MOTS(JGA+1 )='KALF'
  1205. MOTS(JGA+2 )='KBET'
  1206. MOTS(JGA+3 )='KGAM'
  1207. MOTS(JGA+4 )='PREF'
  1208. GOTO 9999
  1209. *
  1210. ELSE IF (IPLAC.EQ.41) THEN
  1211. *
  1212. * PAKZAD
  1213. *
  1214. MLMOTS=MOOBL
  1215. JGA=MOTS(/2)
  1216. JGM=JGA+15
  1217. SEGADJ MLMOTS
  1218. MOOBL=MLMOTS
  1219. MOTS(JGA+1)='N'
  1220. MOTS(JGA+2)='KA'
  1221. MOTS(JGA+3)='GA'
  1222. MOTS(JGA+4)='PATM'
  1223. MOTS(JGA+5)='PC0'
  1224. MOTS(JGA+6)='M'
  1225. MOTS(JGA+7)='BETA'
  1226. MOTS(JGA+8)='A0'
  1227. MOTS(JGA+9)='PREF'
  1228. MOTS(JGA+10)='S0'
  1229. MOTS(JGA+11)='M1'
  1230. MOTS(JGA+12)='M2'
  1231. MOTS(JGA+13)='M3'
  1232. MOTS(JGA+14)='BSEC'
  1233. MOTS(JGA+15)='TAU'
  1234. GOTO 9999
  1235. *
  1236. ELSE IF (IPLAC.EQ.42) THEN
  1237. *
  1238. * MODELE PLASTIQUE INFILL_UNI
  1239. *
  1240. MLMOTS=MOOBL
  1241. JGA=MOTS(/2)
  1242. JGM=JGA+8
  1243. SEGADJ MLMOTS
  1244. MOTS(JGA+1)='DELA'
  1245. MOTS(JGA+2)='DMAX'
  1246. MOTS(JGA+3)='BETA'
  1247. MOTS(JGA+4)='GAMM'
  1248. MOTS(JGA+5)='GAMP'
  1249. MOTS(JGA+6)='ALFA'
  1250. MOTS(JGA+7)='TETA'
  1251. * MOTS(JGA+8)='NETA'
  1252. MOTS(JGA+8)='MONO'
  1253. GOTO 9999
  1254. *
  1255. ELSE IF (IPLAC.EQ.43) THEN
  1256. *
  1257. * MODELE PLASTIQUE CISAIL_NL
  1258. *
  1259. MLMOTS=MOOBL
  1260. JGA=MOTS(/2)
  1261. JGM=JGA+9
  1262. SEGADJ MLMOTS
  1263. MOTS(JGA+1)='DELP'
  1264. MOTS(JGA+2)='DELN'
  1265. MOTS(JGA+3)='DMAP'
  1266. MOTS(JGA+4)='DMAN'
  1267. MOTS(JGA+5)='BETA'
  1268. MOTS(JGA+6)='ALFA'
  1269. MOTS(JGA+7)='TETA'
  1270. MOTS(JGA+8)='MONP'
  1271. MOTS(JGA+9)='MONN'
  1272. GOTO 9999
  1273.  
  1274. ELSE IF (IPLAC.EQ.48) THEN
  1275. *
  1276. *+++++++++++++++++++++++++++++++++
  1277. * MODELE HINTE
  1278. *+++++++++++++++++++++++++++++++++++
  1279. *
  1280. MLMOTS=MOOBL
  1281. JGA=MOTS(/2)
  1282. JGM=JGA+6
  1283. SEGADJ MLMOTS
  1284. MOOBL=MLMOTS
  1285. MOTS(JGA+1)='GAM1'
  1286. MOTS(JGA+2)='AL '
  1287. MOTS(JGA+3)='DCRI'
  1288. MOTS(JGA+4)='NN '
  1289. MOTS(JGA+5)='YO '
  1290. MOTS(JGA+6)='YC '
  1291. GOTO 9999
  1292.  
  1293. ELSE IF (IPLAC.EQ.52) THEN
  1294. *
  1295. * MODELE PLASTIQUE BETON_URGC
  1296. *
  1297. MLMOTS=MOOBL
  1298. JGA=MOTS(/2)
  1299. JGM=JGA+9
  1300. SEGADJ MLMOTS
  1301. MOTS(JGA+1)='ALFA'
  1302. MOTS(JGA+2)='BETA'
  1303. MOTS(JGA+3)='LCS '
  1304. MOTS(JGA+4)='GFC'
  1305. MOTS(JGA+5)='GFT'
  1306. MOTS(JGA+6)='ITON'
  1307. MOTS(JGA+7)='IMOD'
  1308. MOTS(JGA+8)='ICT '
  1309. MOTS(JGA+9)='ICC'
  1310. GOTO 9999
  1311. * BCN
  1312. ELSE IF (IPLAC.EQ.54) THEN
  1313. CCC
  1314. CCC MRS-Lade model
  1315. CCC
  1316. MLMOTS=MOOBL
  1317. JGA=MOTS(/2)
  1318. JGM=JGA+18
  1319. SEGADJ MLMOTS
  1320. MOOBL=MLMOTS
  1321. MOTS(JGA+1)='PC'
  1322. MOTS(JGA+2)='PA'
  1323. MOTS(JGA+3)='QA'
  1324. MOTS(JGA+4)='EXPM'
  1325. MOTS(JGA+5)='E'
  1326. MOTS(JGA+6)='K1'
  1327. MOTS(JGA+7)='K2'
  1328. MOTS(JGA+8)='ETAB'
  1329. MOTS(JGA+9)='EXPV'
  1330. MOTS(JGA+10)='EPSI'
  1331. MOTS(JGA+11)='N'
  1332. MOTS(JGA+12)='CCON'
  1333. MOTS(JGA+13)='EXPL'
  1334. MOTS(JGA+14)='PCAP'
  1335. MOTS(JGA+15)='EXPR'
  1336. MOTS(JGA+16)='CCAP'
  1337. MOTS(JGA+17)='PHI'
  1338. MOTS(JGA+18)='ALP'
  1339. GOTO 9999
  1340.  
  1341. ELSE IF (IPLAC.EQ.55) THEN
  1342. CCC
  1343. CCC J2 model
  1344. CCC
  1345. MLMOTS=MOOBL
  1346. JGA=MOTS(/2)
  1347. JGM=JGA+4
  1348. SEGADJ MLMOTS
  1349. MOOBL=MLMOTS
  1350. MOTS(JGA+1)='SIG0'
  1351. MOTS(JGA+2)='SIGI'
  1352. MOTS(JGA+3)='KISO'
  1353. MOTS(JGA+4)='VELO'
  1354. GOTO 9999
  1355. ELSE IF ((IPLAC.EQ.56).or.(IPLAC.EQ.58)) THEN
  1356. CCC
  1357. CCC Rounded Hyperbolic Mohr_coulomb model
  1358. CCC
  1359. MLMOTS=MOOBL
  1360. JGA=MOTS(/2)
  1361. JGM=JGA+2
  1362. SEGADJ MLMOTS
  1363. MOOBL=MLMOTS
  1364. MOTS(JGA+1)='COHE'
  1365. MOTS(JGA+2)='PHI'
  1366. GOTO 9999
  1367. ELSE IF (IPLAC.EQ.57) THEN
  1368. CCC
  1369. CCC VMT_FEFP model
  1370. CCC
  1371. MLMOTS=MOOBL
  1372. JGA=MOTS(/2)
  1373. JGM=JGA+5
  1374. SEGADJ MLMOTS
  1375. MOOBL=MLMOTS
  1376. MOTS(JGA+1)='SIG0'
  1377. MOTS(JGA+2)='SIGI'
  1378. MOTS(JGA+3)='KISO'
  1379. MOTS(JGA+4)='VELO'
  1380. MOTS(JGA+5)='MSHA'
  1381. GOTO 9999
  1382. ELSE IF (IPLAC.EQ.59) THEN
  1383. CCC
  1384. CCC POWDER_FEFP model
  1385. CCC
  1386. MLMOTS=MOOBL
  1387. JGA=MOTS(/2)
  1388. JGM=JGA+4
  1389. SEGADJ MLMOTS
  1390. MOOBL=MLMOTS
  1391. MOTS(JGA+1)='SIGY'
  1392. MOTS(JGA+2)='NNN1'
  1393. MOTS(JGA+3)='NNN2'
  1394. MOTS(JGA+4)='ETA0'
  1395. GOTO 9999
  1396. ELSE IF (IPLAC.EQ.60) THEN
  1397. CCC
  1398. CCC POWDERCAP_FEFP model
  1399. CCC
  1400. MLMOTS=MOOBL
  1401. JGA=MOTS(/2)
  1402. JGM=JGA+8
  1403. SEGADJ MLMOTS
  1404. MOOBL=MLMOTS
  1405. MOTS(JGA+1)='COHE'
  1406. MOTS(JGA+2)='PHI'
  1407. MOTS(JGA+3)='ETA0'
  1408. MOTS(JGA+4)='PHI0'
  1409. MOTS(JGA+5)='NNNC'
  1410. MOTS(JGA+6)='SIGY'
  1411. MOTS(JGA+7)='NNN1'
  1412. MOTS(JGA+8)='NNN2'
  1413. GOTO 9999
  1414. * BCN
  1415. ELSE IF (IPLAC.EQ.61) THEN
  1416. *
  1417. * MODELE JOINT_COAT POUR LES JOINTS CISAILLEMENT
  1418. *
  1419. IF (MFR.NE.53) GO TO 99
  1420. MLMOTS=MOOBL
  1421. JGA=MOTS(/2)
  1422. JGM=JGA+2
  1423. SEGADJ MLMOTS
  1424. MOOBL=MLMOTS
  1425. MOTS(JGA+1)='SJSB'
  1426. MOTS(JGA+2)='BETA'
  1427. GOTO 9999
  1428. *
  1429. ELSE IF (IPLAC.EQ.62) THEN
  1430. *
  1431. * MODELE JOINT_COAT POUR LES JOINTS CISAILLEMENT
  1432. *
  1433. MLMOTS=MOOBL
  1434. JGA=MOTS(/2)
  1435. JGM=JGA+13
  1436. SEGADJ MLMOTS
  1437. MOOBL=MLMOTS
  1438. MOTS(JGA+1 )='SIT0'
  1439. MOTS(JGA+2 )='SIFC'
  1440. MOTS(JGA+3 )='SIGT'
  1441. MOTS(JGA+4 )='EPTU'
  1442. MOTS(JGA+5 )='SIGC'
  1443. MOTS(JGA+6 )='EPSC'
  1444. MOTS(JGA+7 )='SICU'
  1445. MOTS(JGA+8 )='EPCU'
  1446. MOTS(JGA+9 )='COED'
  1447. MOTS(JGA+10)='COER'
  1448. MOTS(JGA+11)='BETA'
  1449. MOTS(JGA+12)='BET1'
  1450. MOTS(JGA+13)='COEU'
  1451. GOTO 9999
  1452. C+PPf
  1453. C+PPm
  1454. *
  1455. ELSE IF (IPLAC.EQ.63) THEN
  1456. *
  1457. * MODELE MUR_SHEAR POUR LES JOINTS CISAILLEMENT
  1458. *
  1459. IF(MFR.NE.7.AND.MFR.NE.61) GO TO 99
  1460. MLMOTS=MOOBL
  1461. JGA=MOTS(/2)
  1462. JGM=JGA+13
  1463. SEGADJ MLMOTS
  1464. MOOBL=MLMOTS
  1465. MOTS(JGA+1 )='CUFP'
  1466. MOTS(JGA+2 )='CUKP'
  1467. MOTS(JGA+3 )='CULP'
  1468. MOTS(JGA+4 )='CUFM'
  1469. MOTS(JGA+5 )='CUKM'
  1470. MOTS(JGA+6 )='CULM'
  1471. MOTS(JGA+7 )='DTRP'
  1472. MOTS(JGA+8 )='DTRM'
  1473. MOTS(JGA+9 )='BETA'
  1474. MOTS(JGA+10)='NELA'
  1475. MOTS(JGA+11)='TRFA'
  1476. MOTS(JGA+12)='DOCP'
  1477. MOTS(JGA+13)='DOCM'
  1478. *
  1479. C+2004 !!!!!!!!!! RHO et ALPH doivent etre a la fin! voir defmat!!!
  1480. MLMOTS=MOFAC
  1481. JGA=MOTS(/2)
  1482. JGM=JGA+3
  1483. SEGADJ MLMOTS
  1484. MOFAC=MLMOTS
  1485. DO ie1=1,JGA
  1486. MOTS(JGM+1-ie1)=MOTS(JGA+1-ie1)
  1487. ENDDO
  1488. MOTS(1)='EXPN'
  1489. MOTS(2)='FNRF'
  1490. MOTS(3)='FTDI'
  1491. C+2004
  1492. GOTO 9999
  1493. *
  1494. ELSE IF (IPLAC.EQ.64) THEN
  1495. *
  1496. * MODELE INCO
  1497. *
  1498. IF (MFR.NE.35) GO TO 99
  1499. MLMOTS=MOOBL
  1500. JGA=MOTS(/2)
  1501. JGM=JGA+4
  1502. SEGADJ MLMOTS
  1503. MOOBL=MLMOTS
  1504. MOTS(JGA+1)='LTR '
  1505. MOTS(JGA+2)='GFTR'
  1506. MOTS(JGA+3)='HS '
  1507. MOTS(JGA+4)='DINT'
  1508. MLMOTS=MOFAC
  1509. JGA=MOTS(/2)
  1510. JGM=JGA+1
  1511. SEGADJ MLMOTS
  1512. MOFAC=MLMOTS
  1513. MOTS(JGA+1) ='FTRC'
  1514. GOTO 9999
  1515.  
  1516. * modif DP2
  1517. ELSE IF (IPLAC.EQ.65) THEN
  1518. *
  1519. * MODELE PLASTIQUE DRUCKER PRAGER A DEUX SURFACES
  1520. *
  1521. MLMOTS=MOOBL
  1522. JGA=MOTS(/2)
  1523. JGM=JGA+7
  1524. SEGADJ MLMOTS
  1525. MOOBL=MLMOTS
  1526. MOTS(JGA+1)='LTR'
  1527. MOTS(JGA+2)='LCS'
  1528. MOTS(JGA+3)='LBI'
  1529. MOTS(JGA+4)='SIGY'
  1530. MOTS(JGA+5)='EPM'
  1531. MOTS(JGA+6)='EPU'
  1532. MOTS(JGA+7)='LCAR'
  1533. MLMOTS=MOFAC
  1534. JGA=MOTS(/2)
  1535. JGM=JGA+1
  1536. SEGADJ MLMOTS
  1537. MOFAC=MLMOTS
  1538. JGM=JGA
  1539. SEGINI MLMOT1
  1540. DO IC=1,JGA
  1541. MLMOT1.MOTS(IC)=MOTS(IC)
  1542. ENDDO
  1543. DO IC=1,JGA
  1544. MOTS(IC+1)=MLMOT1.MOTS(IC)
  1545. ENDDO
  1546. SEGSUP MLMOT1
  1547. MOTS(1)='GF '
  1548. GOTO 9999
  1549. ELSE IF (IPLAC.EQ.69) THEN
  1550. *
  1551. * MODELE PLASTIQUE BILIN_EFFX
  1552. *
  1553. MLMOTS=MOOBL
  1554. JGA=MOTS(/2)
  1555. JGM=JGA+2
  1556. SEGADJ MLMOTS
  1557. MOTS(JGA+1)='ETAN'
  1558. MOTS(JGA+2)='YIEF'
  1559. GOTO 9999
  1560. ELSE IF (IPLAC.EQ.67) THEN
  1561. *
  1562. * MODELE PLASTIQUE INTIMP
  1563. *
  1564. MLMOTS=MOOBL
  1565. JGA=MOTS(/2)
  1566. JGM=JGA+14
  1567. SEGADJ MLMOTS
  1568. MOTS(JGA+ 1)= 'SOCT'
  1569. MOTS(JGA+ 2)= 'DCS '
  1570. MOTS(JGA+ 3)= 'SOGS'
  1571. MOTS(JGA+ 4)= 'TCS '
  1572. MOTS(JGA+ 5)= 'MS '
  1573. MOTS(JGA+ 6)= 'KS '
  1574. MOTS(JGA+ 7)= 'GCEO'
  1575. MOTS(JGA+ 8)= 'AD '
  1576. MOTS(JGA+ 9)= 'ACOE'
  1577. MOTS(JGA+10)= 'GAMC'
  1578. MOTS(JGA+11)= 'LCCO'
  1579. MOTS(JGA+12)= 'EPSC'
  1580. MOTS(JGA+13)= 'TCI '
  1581. MOTS(JGA+14)= 'CALA'
  1582. GOTO 9999
  1583.  
  1584. ELSE IF (IPLAC.EQ.68) THEN
  1585. *
  1586. * MODELE PLASTIQUE INTJOI2D
  1587. *
  1588. IF (MFR.NE.35) GO TO 99
  1589. MLMOTS=MOOBL
  1590. JGA=MOTS(/2)
  1591. JGM=JGA+13
  1592. SEGADJ MLMOTS
  1593. MOOBL=MLMOTS
  1594. MOTS(JGA+1 )='AD '
  1595. MOTS(JGA+2 )='Y0 '
  1596. MOTS(JGA+3 )='ALPA'
  1597. MOTS(JGA+4 )='GAIN'
  1598. MOTS(JGA+5 )='AAIN'
  1599. MOTS(JGA+6 )='Q1CO'
  1600. MOTS(JGA+7 )='Q2CO'
  1601. MOTS(JGA+8 )='Q3CO'
  1602. MOTS(JGA+9 )='SYCO'
  1603. MOTS(JGA+10)='NCOE'
  1604. MOTS(JGA+11)='KCOE'
  1605. MOTS(JGA+12)='TC '
  1606. MOTS(JGA+13)='GONF'
  1607. GOTO 9999
  1608.  
  1609. *
  1610. ELSE IF (IPLAC.EQ.70) THEN
  1611. *
  1612. * MODELE PLASTIQUE ISS_GRANGE
  1613. *
  1614. MLMOTS=MOOBL
  1615. JGA=MOTS(/2)
  1616. JGM=JGA+15
  1617. SEGADJ MLMOTS
  1618. MOOBL=MLMOTS
  1619. MOTS(JGA+1 )='DIAM '
  1620. MOTS(JGA+2 )='LX '
  1621. MOTS(JGA+3 )='LY '
  1622. C MOTS(JGA+4 )='KELZ '
  1623. C MOTS(JGA+5 )='KELH '
  1624. C MOTS(JGA+6 )='KERY '
  1625. C MOTS(JGA+7 )='KERX '
  1626. C MOTS(JGA+8 )='KELT '
  1627. MOTS(JGA+4 )='XA '
  1628. MOTS(JGA+5 )='XB '
  1629. MOTS(JGA+6 )='XC '
  1630. MOTS(JGA+7 )='XD '
  1631. MOTS(JGA+8 )='XE '
  1632. MOTS(JGA+9 )='XF '
  1633. MOTS(JGA+10)='QMAX '
  1634. MOTS(JGA+11)='A9 '
  1635. MOTS(JGA+12)='A6 '
  1636. MOTS(JGA+13)='ETA3 '
  1637. MOTS(JGA+14)='XTIM '
  1638. MOTS(JGA+15)='A8 '
  1639. GOTO 9999
  1640.  
  1641. *
  1642. ELSE IF (IPLAC.EQ.71) THEN
  1643. *
  1644. * MODELE PLASTIQUE RUP_THER
  1645. *
  1646. MLMOTS=MOOBL
  1647. JGA=MOTS(/2)
  1648. JGM=JGA+10
  1649. SEGADJ MLMOTS
  1650. MOOBL=MLMOTS
  1651. MOTS(JGA+1 )='KB '
  1652. MOTS(JGA+2 )='YBO '
  1653. MOTS(JGA+3 )='C1 '
  1654. MOTS(JGA+4 )='D1 '
  1655. MOTS(JGA+5 )='ALPB'
  1656. MOTS(JGA+6 )='BETB'
  1657. MOTS(JGA+7 )='KA '
  1658. MOTS(JGA+8 )='YAO '
  1659. MOTS(JGA+9 )='ALPA'
  1660. MOTS(JGA+10 )='BETA'
  1661. GOTO 9999
  1662. C +BR
  1663. ELSE IF (IPLAC.EQ.72) THEN
  1664. *
  1665. * MODELE PLASTIQUE RICBET_UNI
  1666. *
  1667. MLMOTS=MOOBL
  1668. JGA=MOTS(/2)
  1669. JGM=JGA+12
  1670. SEGADJ MLMOTS
  1671. MOOBL=MLMOTS
  1672. MOTS(JGA+1 )='FT '
  1673. MOTS(JGA+2 )='ALDI'
  1674. MOTS(JGA+3 )='GAM1'
  1675. MOTS(JGA+4 )='A1 '
  1676. MOTS(JGA+5 )='SIGF'
  1677. MOTS(JGA+6 )='FC '
  1678. MOTS(JGA+7 )='AF '
  1679. MOTS(JGA+8 )='AG '
  1680. MOTS(JGA+9 )='AC '
  1681. MOTS(JGA+10)='BC '
  1682. MOTS(JGA+11)='SIGU'
  1683. MOTS(JGA+12)='HYST'
  1684. GOTO 9999
  1685.  
  1686. ELSE IF (IPLAC.EQ.73) THEN
  1687. *
  1688. * MODELE RAGMOUT
  1689. *
  1690. MLMOTS=MOOBL
  1691. JGA=MOTS(/2)
  1692. JGM=JGA+7
  1693. SEGADJ MLMOTS
  1694. MOOBL=MLMOTS
  1695. MOTS(JGA+1 )='UELA'
  1696. MOTS(JGA+2 )='FPLA'
  1697. MOTS(JGA+3 )='PFIS'
  1698. MOTS(JGA+4 )='HCIN'
  1699. MOTS(JGA+5 )='QFRA'
  1700. MOTS(JGA+6 )='APIH'
  1701. MOTS(JGA+7 )='BPIH'
  1702. GOTO 9999
  1703. c cccccc
  1704. ELSE IF (IPLAC.EQ.74) THEN
  1705. *
  1706. * modele liaison acier beton (LIAISON_ACBE)
  1707. *
  1708. MLMOTS=MOOBL
  1709. JGA=MOTS(/2)
  1710. JGM=JGA+2
  1711. SEGADJ MLMOTS
  1712. MOOBL=MLMOTS
  1713. MOTS(JGA+1)='PULO'
  1714. MOTS(JGA+2)=' '
  1715. GOTO 9999
  1716. c cccccc
  1717. C -BR
  1718. ELSE IF (IPLAC.EQ.75) THEN
  1719. *
  1720. * DP_SOL
  1721. *
  1722. MLMOTS=MOOBL
  1723. JGA=MOTS(/2)
  1724. JGM=JGA+6
  1725. SEGADJ MLMOTS
  1726. MOOBL=MLMOTS
  1727. MOTS(JGA+1)='ALPA'
  1728. MOTS(JGA+2)='SIGY'
  1729. MOTS(JGA+3)='SIGI'
  1730. MOTS(JGA+4)='BETA'
  1731. MOTS(JGA+5)='GAMA'
  1732. MOTS(JGA+6)='DELT'
  1733. GOTO 9999
  1734. C +RP
  1735. ELSE IF (IPLAC.EQ.76) THEN
  1736. *
  1737. * OUGLOVA
  1738. *
  1739. MLMOTS=MOOBL
  1740. JGA=MOTS(/2)
  1741. JGM=JGA+5
  1742. SEGADJ MLMOTS
  1743. MOOBL=MLMOTS
  1744. MOTS(JGA+1)='SIGY'
  1745. MOTS(JGA+2)='K '
  1746. MOTS(JGA+3)='M '
  1747. MOTS(JGA+4)='TC '
  1748. MOTS(JGA+5)='DC '
  1749. GOTO 9999
  1750. C -RP
  1751. *
  1752. *
  1753. ELSE IF (IPLAC.EQ.77) THEN
  1754. *
  1755. * IWPR3D_SOL
  1756. *
  1757. MLMOTS=MOOBL
  1758. JGA=MOTS(/2)
  1759. JGM=JGA+61
  1760. SEGADJ MLMOTS
  1761. MOOBL=MLMOTS
  1762. MOTS(JGA+1 )='E0'
  1763. MOTS(JGA+2 )='ALP0'
  1764. MOTS(JGA+3 )='C '
  1765. MOTS(JGA+4 )='N1 '
  1766. MOTS(JGA+5 )='PREF'
  1767. MOTS(JGA+6 )='K1 '
  1768. MOTS(JGA+7 )='M1 '
  1769. MOTS(JGA+8 )='M2 '
  1770. MOTS(JGA+9 )='M3 '
  1771. MOTS(JGA+10)='M4 '
  1772. MOTS(JGA+11)='M5 '
  1773. MOTS(JGA+12)='M6 '
  1774. MOTS(JGA+13)='M7 '
  1775. MOTS(JGA+14)='M8 '
  1776. MOTS(JGA+15)='M9 '
  1777. MOTS(JGA+16)='M10 '
  1778. MOTS(JGA+17)='HC1 '
  1779. MOTS(JGA+18)='HC2 '
  1780. MOTS(JGA+19)='HC3 '
  1781. MOTS(JGA+20)='HC4 '
  1782. MOTS(JGA+21)='HC5 '
  1783. MOTS(JGA+22)='HC6 '
  1784. MOTS(JGA+23)='HC7 '
  1785. MOTS(JGA+24)='HC8 '
  1786. MOTS(JGA+25)='HC9 '
  1787. MOTS(JGA+26)='HE1 '
  1788. MOTS(JGA+27)='HE2 '
  1789. MOTS(JGA+28)='HE3 '
  1790. MOTS(JGA+29)='HE4 '
  1791. MOTS(JGA+30)='HE5 '
  1792. MOTS(JGA+31)='HE6 '
  1793. MOTS(JGA+32)='HE7 '
  1794. MOTS(JGA+33)='HE8 '
  1795. MOTS(JGA+34)='HE9 '
  1796. MOTS(JGA+35)='DA1 '
  1797. MOTS(JGA+36)='DA2 '
  1798. MOTS(JGA+37)='DA3 '
  1799. MOTS(JGA+38)='DA4 '
  1800. MOTS(JGA+39)='DA5 '
  1801. MOTS(JGA+40)='DA6 '
  1802. MOTS(JGA+41)='DA7 '
  1803. MOTS(JGA+42)='DA8 '
  1804. MOTS(JGA+43)='DA9 '
  1805. MOTS(JGA+44)='E_C1'
  1806. MOTS(JGA+45)='E_C2'
  1807. MOTS(JGA+46)='E_C3'
  1808. MOTS(JGA+47)='E_C4'
  1809. MOTS(JGA+48)='E_C5'
  1810. MOTS(JGA+49)='E_C6'
  1811. MOTS(JGA+50)='E_C7'
  1812. MOTS(JGA+51)='E_C8'
  1813. MOTS(JGA+52)='E_C9'
  1814. MOTS(JGA+53)='E_E1'
  1815. MOTS(JGA+54)='E_E2'
  1816. MOTS(JGA+55)='E_E3'
  1817. MOTS(JGA+56)='E_E4'
  1818. MOTS(JGA+57)='E_E5'
  1819. MOTS(JGA+58)='E_E6'
  1820. MOTS(JGA+59)='E_E7'
  1821. MOTS(JGA+60)='E_E8'
  1822. MOTS(JGA+61)='E_E9'
  1823. GOTO 9999
  1824. *
  1825. *
  1826. ENDIF
  1827. GOTO 99
  1828. *
  1829. 9999 CONTINUE
  1830. IRET=1
  1831. RETURN
  1832. *
  1833. * SI PROBLEME , ON SORT AVEC IRET A 0
  1834. *
  1835. 99 CONTINUE
  1836. IRET=0
  1837. CALL ERREUR(261)
  1838. RETURN
  1839. END
  1840.  
  1841.  

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