Télécharger idplas.eso

Retour à la liste

Numérotation des lignes :

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

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