Télécharger idflua.eso

Retour à la liste

Numérotation des lignes :

  1. C IDFLUA SOURCE CB215821 17/09/28 21:15:03 9574
  2. SUBROUTINE IDFLUA (MFR,TABOBL,TABFAC,JGOBL,JGFAC,ITA,IPLAC,IRET)
  3. *--------------------------------------------------------------------*
  4. * Noms de composantes de materiaux fluages *
  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 MODFLU *
  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 F L U A G E *
  34. * *
  35. *--------------------------------------------------------------------*
  36. IF (IPLAC.EQ.1) THEN
  37. *
  38. * MODELE FLUAGE-1 NORTON
  39. *
  40.  
  41. JGM0=JGOBL
  42. JGOBL=JGM0+4
  43. TABOBL(JGM0+1)= 'SMAX'
  44. TABOBL(JGM0+2)= 'AF1 '
  45. TABOBL(JGM0+3)= 'AF2 '
  46. TABOBL(JGM0+4)= 'AF3 '
  47. GOTO 9999
  48. ELSE IF (IPLAC.EQ.2) THEN
  49. *
  50. * MODELE FLUAGE-2 BLACKBURN
  51. *
  52.  
  53. JGM0=JGOBL
  54. JGOBL=JGM0+14
  55. TABOBL(JGM0+1)= 'SMAX'
  56. TABOBL(JGM0+2)= 'AF1 '
  57. TABOBL(JGM0+3)= 'AF2 '
  58. TABOBL(JGM0+4)= 'AF3 '
  59. TABOBL(JGM0+5)= 'AF4 '
  60. TABOBL(JGM0+6)= 'RF1 '
  61. TABOBL(JGM0+7)= 'RF2 '
  62. TABOBL(JGM0+8)= 'RF3 '
  63. TABOBL(JGM0+9)= 'RF4 '
  64. TABOBL(JGM0+10)= 'BF1 '
  65. TABOBL(JGM0+11)= 'BF2 '
  66. TABOBL(JGM0+12)= 'BF3 '
  67. TABOBL(JGM0+13)= 'BF4 '
  68. TABOBL(JGM0+14)= 'BF5 '
  69. GOTO 9999
  70. ELSE IF (IPLAC.EQ.3) THEN
  71. *
  72. * MODELE FLUAGE-3 RCC-MR FOR 1S MATERIAL (SS 316 LN)
  73. *
  74.  
  75. JGM0=JGOBL
  76. JGOBL=JGM0+8
  77. TABOBL(JGM0+1)= 'SMAX'
  78. TABOBL(JGM0+2)= 'AF1 '
  79. TABOBL(JGM0+3)= 'AF3 '
  80. TABOBL(JGM0+4)= 'AF2 '
  81. TABOBL(JGM0+5)= 'TF1 '
  82. TABOBL(JGM0+6)= 'TF2 '
  83. TABOBL(JGM0+7)= 'BF1 '
  84. TABOBL(JGM0+8)= 'BF2 '
  85. GOTO 9999
  86. ELSE IF (IPLAC.EQ.4) THEN
  87. *
  88. * MODELE FLUAGE-4 RCC-MR FOR 2S MATERIAL (SS 304 LN)
  89. *
  90.  
  91. JGM0=JGOBL
  92. JGOBL=JGM0+12
  93. TABOBL(JGM0+1)= 'SMAX'
  94. TABOBL(JGM0+2)= 'BF1 '
  95. TABOBL(JGM0+3)= 'BF2 '
  96. TABOBL(JGM0+4)= 'BF3 '
  97. TABOBL(JGM0+5)= 'RF1 '
  98. TABOBL(JGM0+6)= 'RF2 '
  99. TABOBL(JGM0+7)= 'RF3 '
  100. TABOBL(JGM0+8)= 'AF1 '
  101. TABOBL(JGM0+9)= 'SF1 '
  102. TABOBL(JGM0+10)= 'AF2 '
  103. TABOBL(JGM0+11)= 'AF3 '
  104. TABOBL(JGM0+12)= 'SF2 '
  105. GOTO 9999
  106. ELSE IF (IPLAC.EQ.5) THEN
  107. *
  108. * MODELE FLUAGE-5 LEMAITRE/TIJANI MODEL (ROCK SALT)
  109. *
  110.  
  111. JGM0=JGOBL
  112. JGOBL=JGM0+7
  113. TABOBL(JGM0+1)= 'SMAX'
  114. TABOBL(JGM0+2)= 'AF1 '
  115. TABOBL(JGM0+3)= 'AF2 '
  116. TABOBL(JGM0+4)= 'AF3 '
  117. TABOBL(JGM0+5)= 'KXF '
  118. TABOBL(JGM0+6)= 'KYF '
  119. TABOBL(JGM0+7)= 'AF4 '
  120. GOTO 9999
  121. ELSE IF (IPLAC.EQ.6) THEN
  122. *
  123. * MODELE FLUAGE-6 POLYNOMIAL
  124. *
  125.  
  126. JGM0=JGOBL
  127. JGOBL=JGM0+8
  128. TABOBL(JGM0+1)= 'SMAX'
  129. TABOBL(JGM0+2)= 'AF0 '
  130. TABOBL(JGM0+3)= 'AF1 '
  131. TABOBL(JGM0+4)= 'AF2 '
  132. TABOBL(JGM0+5)= 'AF3 '
  133. TABOBL(JGM0+6)= 'AF4 '
  134. TABOBL(JGM0+7)= 'AF5 '
  135. TABOBL(JGM0+8)= 'AF6 '
  136. GOTO 9999
  137. ELSE IF (IPLAC.EQ.7) THEN
  138. *
  139. * MODELE FLUAGE-7 BLACKBURN_2
  140. *
  141.  
  142. JGM0=JGOBL
  143. JGOBL=JGM0+14
  144.  
  145.  
  146. TABOBL(JGM0+1)= 'SMAX'
  147. TABOBL(JGM0+2)= 'AF1 '
  148. TABOBL(JGM0+3)= 'AF2 '
  149. TABOBL(JGM0+4)= 'AF3 '
  150. TABOBL(JGM0+5)= 'AF4 '
  151. TABOBL(JGM0+6)= 'RF1 '
  152. TABOBL(JGM0+7)= 'RF2 '
  153. TABOBL(JGM0+8)= 'RF3 '
  154. TABOBL(JGM0+9)= 'RF4 '
  155. TABOBL(JGM0+10)= 'BF1 '
  156. TABOBL(JGM0+11)= 'BF2 '
  157. TABOBL(JGM0+12)= 'BF3 '
  158. TABOBL(JGM0+13)= 'BF4 '
  159. TABOBL(JGM0+14)= 'BF5 '
  160. GOTO 9999
  161. C
  162. ELSE IF (IPLAC.EQ.8) THEN
  163. *****************************************************
  164. C
  165. C=========================================================
  166. C MODELE CERAMIC = BETON OTTOSEN + FLUAGE NORTON
  167. C=========================================================
  168. C Formulation DEFORMATIONS PLANES /AXISYMETRIQUE
  169. IF ((IFOMOD.EQ.-1.AND.IFOUR.NE.-2).OR.
  170. & (IFOMOD.EQ.0.OR.IFOMOD.EQ.1)) THEN
  171. *
  172. JGM0=JGOBL
  173. JGOBL=JGM0+13
  174. IF (IFOMOD.EQ.-1.AND.IFOUR.NE.-2) THEN
  175. TABOBL(JGM0+1)='LXX '
  176. TABOBL(JGM0+2)='LYY '
  177. TABOBL(JGM0+3)='LXY '
  178. TABOBL(JGM0+4)='LZZ '
  179. TABOBL(JGM0+5)='PXX '
  180. TABOBL(JGM0+6)='PYY '
  181. TABOBL(JGM0+7)='PXY '
  182. TABOBL(JGM0+8)= 'SMAX'
  183. TABOBL(JGM0+9)= 'AF1 '
  184. TABOBL(JGM0+10)= 'AF2 '
  185. TABOBL(JGM0+11)= 'AF3 '
  186. TABOBL(JGM0+12)= 'TTRA '
  187. TABOBL(JGM0+13)= 'ENDG '
  188. *
  189. ELSE IF (IFOMOD.EQ.0.OR.IFOMOD.EQ.1) THEN
  190. TABOBL(JGM0+1)='LRR '
  191. TABOBL(JGM0+2)='LZZ '
  192. TABOBL(JGM0+3)='LRZ '
  193. TABOBL(JGM0+4)='LOO '
  194. TABOBL(JGM0+5)='PRR '
  195. TABOBL(JGM0+6)='PZZ '
  196. TABOBL(JGM0+7)='PRZ '
  197. TABOBL(JGM0+8)= 'SMAX'
  198. TABOBL(JGM0+9)= 'AF1 '
  199. TABOBL(JGM0+10)= 'AF2 '
  200. TABOBL(JGM0+11)= 'AF3 '
  201. TABOBL(JGM0+12)= 'TTRA '
  202. TABOBL(JGM0+13)= 'ENDG '
  203. ENDIF
  204. *
  205. JGM0=JGFAC
  206. JGFAC=JGM0+30
  207. TABFAC(JGM0+1) ='GFTR'
  208. TABFAC(JGM0+2) ='LTR '
  209. TABFAC(JGM0+3) ='GFCS'
  210. TABFAC(JGM0+4) ='LCS '
  211. TABFAC(JGM0+5) ='GS '
  212. TABFAC(JGM0+6) ='BTR '
  213. TABFAC(JGM0+7) ='BCS '
  214. TABFAC(JGM0+8) ='WRUP'
  215. TABFAC(JGM0+9) ='BILI'
  216. TABFAC(JGM0+10)='EPSR'
  217. TABFAC(JGM0+11)='GFT1'
  218. TABFAC(JGM0+12)='GFT2'
  219. TABFAC(JGM0+13)='GFT3'
  220. TABFAC(JGM0+14)='GS1 '
  221. TABFAC(JGM0+15)='GS2 '
  222. TABFAC(JGM0+16)='GS3 '
  223. TABFAC(JGM0+17)='LTR1'
  224. TABFAC(JGM0+18)='LTR2'
  225. TABFAC(JGM0+19)='LTR3'
  226. TABFAC(JGM0+20)='EPCM'
  227. TABFAC(JGM0+21)='EPCU'
  228. TABFAC(JGM0+22)='LCBI'
  229. TABFAC(JGM0+23)='XK2 '
  230. TABFAC(JGM0+24)='XGB '
  231. TABFAC(JGM0+25)='XPA '
  232. TABFAC(JGM0+26)='WRU1'
  233. TABFAC(JGM0+27)='WRU2'
  234. TABFAC(JGM0+28)='BIL1'
  235. TABFAC(JGM0+29)='BIL2'
  236. TABFAC(JGM0+30)='EPSB'
  237. GOTO 9999
  238. ENDIF
  239. C
  240. C Formulation CONTRAINTES PLANES / 3D COQUES MINCES
  241. IF ((IFOMOD.EQ.-1.AND.IFOUR.EQ.-2).OR.
  242. & (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  243. *
  244. JGM0=JGOBL
  245. JGOBL=JGM0+13
  246. IF (IFOMOD.EQ.-1.AND.IFOUR.EQ.-2) THEN
  247. TABOBL(JGM0+1)='LXX '
  248. TABOBL(JGM0+2)='LYY '
  249. TABOBL(JGM0+3)='LXY '
  250. TABOBL(JGM0+4)='LZZ '
  251. TABOBL(JGM0+5)='PXX '
  252. TABOBL(JGM0+6)='PYY '
  253. TABOBL(JGM0+7)='PXY '
  254. TABOBL(JGM0+8)= 'SMAX'
  255. TABOBL(JGM0+9)= 'AF1 '
  256. TABOBL(JGM0+10)= 'AF2 '
  257. TABOBL(JGM0+11)= 'AF3 '
  258. TABOBL(JGM0+12)= 'TTRA '
  259. TABOBL(JGM0+13)= 'ENDG'
  260. *
  261. ELSE IF (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN
  262. TABOBL(JGM0+1)='LSS '
  263. TABOBL(JGM0+2)='LTT '
  264. TABOBL(JGM0+3)='LST '
  265. TABOBL(JGM0+4)='LNN '
  266. TABOBL(JGM0+5)='PSS '
  267. TABOBL(JGM0+6)='PTT '
  268. TABOBL(JGM0+7)='PST '
  269. TABOBL(JGM0+8)= 'SMAX'
  270. TABOBL(JGM0+9)= 'AF1 '
  271. TABOBL(JGM0+10)= 'AF2 '
  272. TABOBL(JGM0+11)= 'AF3 '
  273. TABOBL(JGM0+12)= 'TTRA '
  274. TABOBL(JGM0+13)= 'ENDG'
  275. ENDIF
  276. *
  277. JGM0=JGFAC
  278. JGFAC=JGM0+25
  279. TABFAC(JGM0+1) ='GFTR'
  280. TABFAC(JGM0+2) ='LTR '
  281. TABFAC(JGM0+3) ='GFCS'
  282. TABFAC(JGM0+4) ='LCS '
  283. TABFAC(JGM0+5) ='GS '
  284. TABFAC(JGM0+6) ='BTR '
  285. TABFAC(JGM0+7) ='BCS '
  286. TABFAC(JGM0+8) ='WRUP'
  287. TABFAC(JGM0+9) ='BILI'
  288. TABFAC(JGM0+10)='GFT1'
  289. TABFAC(JGM0+11)='GFT2'
  290. TABFAC(JGM0+12)='GS1 '
  291. TABFAC(JGM0+13)='GS2 '
  292. TABFAC(JGM0+14)='LTR1'
  293. TABFAC(JGM0+15)='LTR2'
  294. TABFAC(JGM0+16)='EPCM'
  295. TABFAC(JGM0+17)='EPCU'
  296. TABFAC(JGM0+18)='LCBI'
  297. TABFAC(JGM0+19)='XK2 '
  298. TABFAC(JGM0+20)='XGB '
  299. TABFAC(JGM0+21)='XPA '
  300. TABFAC(JGM0+22)='WRU1'
  301. TABFAC(JGM0+23)='WRU2'
  302. TABFAC(JGM0+24)='BIL1'
  303. TABFAC(JGM0+25)='BIL2'
  304. GOTO 9999
  305. ENDIF
  306. C
  307. C Formulation TRIDIMENSIONNELLE MASSIVE
  308. IF (IFOMOD.EQ.2.AND.MFR.EQ.1) THEN
  309. JGM0=JGOBL
  310. JGOBL=JGM0+18
  311. TABOBL(JGM0+1) ='LXX '
  312. TABOBL(JGM0+2) ='LYY '
  313. TABOBL(JGM0+3) ='LZZ '
  314. TABOBL(JGM0+4) ='LXY '
  315. TABOBL(JGM0+5) ='LXZ '
  316. TABOBL(JGM0+6) ='LYZ '
  317. TABOBL(JGM0+7) ='PXX '
  318. TABOBL(JGM0+8) ='PYY '
  319. TABOBL(JGM0+9) ='PZZ '
  320. TABOBL(JGM0+10)='PXY '
  321. TABOBL(JGM0+11)='PXZ '
  322. TABOBL(JGM0+12)='PYZ '
  323. TABOBL(JGM0+13)= 'SMAX'
  324. TABOBL(JGM0+14)= 'AF1 '
  325. TABOBL(JGM0+15)= 'AF2 '
  326. TABOBL(JGM0+16)= 'AF3 '
  327. TABOBL(JGM0+17)= 'TTRA '
  328. TABOBL(JGM0+18)= 'ENDG'
  329.  
  330. JGM0=JGFAC
  331. JGFAC=JGM0+30
  332. TABFAC(JGM0+1)='GFTR'
  333. TABFAC(JGM0+2)='LTR '
  334. TABFAC(JGM0+3)='GFCS'
  335. TABFAC(JGM0+4)='LCS '
  336. TABFAC(JGM0+5)='GS '
  337. TABFAC(JGM0+6)='BTR '
  338. TABFAC(JGM0+7)='BCS '
  339. TABFAC(JGM0+8)='WRUP'
  340. TABFAC(JGM0+9)='BILI'
  341. TABFAC(JGM0+10)='GFT1'
  342. TABFAC(JGM0+11)='GFT2'
  343. TABFAC(JGM0+12)='GFT3'
  344. TABFAC(JGM0+13)='GS1 '
  345. TABFAC(JGM0+14)='GS2 '
  346. TABFAC(JGM0+15)='GS3 '
  347. TABFAC(JGM0+16)='LTR1'
  348. TABFAC(JGM0+17)='LTR2'
  349. TABFAC(JGM0+18)='LTR3'
  350. TABFAC(JGM0+19)='EPCM'
  351. TABFAC(JGM0+20)='EPCU'
  352. TABFAC(JGM0+21)='LCBI'
  353. TABFAC(JGM0+22)='XK2 '
  354. TABFAC(JGM0+23)='XGB '
  355. TABFAC(JGM0+24)='XPA '
  356. TABFAC(JGM0+25)='WRU1'
  357. TABFAC(JGM0+26)='WRU2'
  358. TABFAC(JGM0+27)='WRU3'
  359. TABFAC(JGM0+28)='BIL1'
  360. TABFAC(JGM0+29)='BIL2'
  361. TABFAC(JGM0+30)='BIL3'
  362. GOTO 9999
  363. ENDIF
  364. C
  365. ELSE IF (IPLAC.EQ.9) THEN
  366. C=========================================================
  367. C MODELE DE MAXWELL
  368. C=========================================================
  369. JGM0=JGOBL
  370. JGOBL=JGM0+9
  371. TABOBL(JGM0+1)='EM0 '
  372. TABOBL(JGM0+2)='EM1 '
  373. TABOBL(JGM0+3)='TR1 '
  374. TABOBL(JGM0+4)='EM2 '
  375. TABOBL(JGM0+5)='TR2 '
  376. TABOBL(JGM0+6)='EM3 '
  377. TABOBL(JGM0+7)='TR3 '
  378. TABOBL(JGM0+8)='EM4 '
  379. TABOBL(JGM0+9)='TR4 '
  380.  
  381. JGM0=JGFAC
  382. JGFAC=JGM0+8
  383. TABFAC(JGM0+1)='EM5 '
  384. TABFAC(JGM0+2)='TR5 '
  385. TABFAC(JGM0+3)='EM6 '
  386. TABFAC(JGM0+4)='TR6 '
  387. TABFAC(JGM0+5)='EM7 '
  388. TABFAC(JGM0+6)='TR7 '
  389. TABFAC(JGM0+7)='EM8 '
  390. TABFAC(JGM0+8)='TR8 '
  391. GO TO 9999
  392. *
  393. ELSE IF (IPLAC.EQ.10) THEN
  394. *
  395. * MODELE COMETE
  396. *
  397. JGM0=JGOBL
  398. JGOBL=JGM0+9
  399. TABOBL(JGM0+1)= 'SMAX'
  400. TABOBL(JGM0+2)= 'AF1 '
  401. TABOBL(JGM0+3)= 'AF2 '
  402. TABOBL(JGM0+4)= 'AF3 '
  403. TABOBL(JGM0+5)= 'BF1 '
  404. TABOBL(JGM0+6)= 'BF2 '
  405. TABOBL(JGM0+7)= 'BF3 '
  406. TABOBL(JGM0+8)= 'BF4 '
  407. TABOBL(JGM0+9)= 'FII '
  408. GOTO 9999
  409. ELSE IF (IPLAC.EQ.11) THEN
  410. *
  411. * MODELE CCPL
  412. *
  413. JGM0=JGOBL
  414. JGOBL=JGM0+15
  415. TABOBL(JGM0+1)= 'SMAX'
  416. TABOBL(JGM0+2)= 'AF1 '
  417. TABOBL(JGM0+3)= 'AF2 '
  418. TABOBL(JGM0+4)= 'AF3 '
  419. TABOBL(JGM0+5)= 'BF1 '
  420. TABOBL(JGM0+6)= 'BF2 '
  421. TABOBL(JGM0+7)= 'BF3 '
  422. TABOBL(JGM0+8)= 'CF1 '
  423. TABOBL(JGM0+9)= 'CF2 '
  424. TABOBL(JGM0+10)= 'CF3 '
  425. TABOBL(JGM0+11)= 'DF1 '
  426. TABOBL(JGM0+12)= 'DF2 '
  427. TABOBL(JGM0+13)= 'DF3 '
  428. TABOBL(JGM0+14)= 'FII '
  429. TABOBL(JGM0+15)= 'AL1 '
  430.  
  431. GOTO 9999
  432. ELSE IF (IPLAC.EQ.12) THEN
  433.  
  434. *
  435. * MODELE X11
  436. *
  437. JGM0=JGOBL
  438. JGOBL=JGM0+13
  439. TABOBL(JGM0+1)= 'SMAX'
  440. TABOBL(JGM0+2)= 'VPF0'
  441. TABOBL(JGM0+3)= 'VPF1'
  442. TABOBL(JGM0+4)= 'VPF2'
  443. TABOBL(JGM0+5)= 'VSF0'
  444. TABOBL(JGM0+6)= 'VSF1'
  445. TABOBL(JGM0+7)= 'VS01'
  446. TABOBL(JGM0+8)= 'VS02'
  447. TABOBL(JGM0+9)= 'VP01'
  448. TABOBL(JGM0+10)= 'VP02'
  449. TABOBL(JGM0+11)= 'EP01'
  450. TABOBL(JGM0+12)= 'EP02'
  451. TABOBL(JGM0+13)= 'FII '
  452. GOTO 9999
  453. *
  454. ELSE IF (IPLAC.EQ.13) THEN
  455. C
  456. C=========================================================
  457. C MODELE DE BPEL
  458. C=========================================================
  459. C
  460. JGM0=JGOBL
  461. JGOBL=JGM0+3
  462. TABOBL(JGM0+1)='RMIL'
  463. TABOBL(JGM0+2)='FPRG'
  464. TABOBL(JGM0+3)='TCHA'
  465. GO TO 9999
  466. *
  467. ELSE IF (IPLAC.EQ.14) THEN
  468. *
  469. * VISCOELASTIQUE BETON_URGC
  470. *
  471. JGM0=JGOBL
  472. JGOBL=JGM0+15
  473. TABOBL(JGM0+1)='ALFA'
  474. TABOBL(JGM0+2)='BETA'
  475. TABOBL(JGM0+3)='LCS '
  476. TABOBL(JGM0+4)='GFC'
  477. TABOBL(JGM0+5)='GFT'
  478. TABOBL(JGM0+6)='ITON'
  479. TABOBL(JGM0+7)='IMOD'
  480. TABOBL(JGM0+8)='ICT'
  481. TABOBL(JGM0+9)='ICC'
  482. TABOBL(JGM0+10)='DATC'
  483. TABOBL(JGM0+11)='NBRC'
  484. TABOBL(JGM0+12)='IFOR'
  485. TABOBL(JGM0+13)='IMFL'
  486. TABOBL(JGM0+14)='DATU'
  487. TABOBL(JGM0+15)='DATS'
  488. GOTO 9999
  489.  
  490. ELSE IF (IPLAC.EQ.15) THEN
  491. *
  492. * MODELE SODERBERG
  493. *
  494. JGM0=JGOBL
  495. JGOBL=JGM0+21
  496. TABOBL(JGM0+1)= 'SMAX'
  497. TABOBL(JGM0+2)= 'AF1 '
  498. TABOBL(JGM0+3)= 'AF2 '
  499. TABOBL(JGM0+4)= 'AF3 '
  500. TABOBL(JGM0+5)= 'BF1 '
  501. TABOBL(JGM0+6)= 'BF2 '
  502. TABOBL(JGM0+7)= 'BF3 '
  503. TABOBL(JGM0+8)= 'CF1 '
  504. TABOBL(JGM0+9)= 'CF2 '
  505. TABOBL(JGM0+10)= 'CF3 '
  506. TABOBL(JGM0+11)= 'DF1 '
  507. TABOBL(JGM0+12)= 'DF2 '
  508. TABOBL(JGM0+13)= 'DF3 '
  509. TABOBL(JGM0+14)= 'FII '
  510. TABOBL(JGM0+15)= 'AL1 '
  511. TABOBL(JGM0+16)= 'EF1 '
  512. TABOBL(JGM0+17)= 'EF2 '
  513. TABOBL(JGM0+18)= 'EF3 '
  514. TABOBL(JGM0+19)= 'RF1 '
  515. TABOBL(JGM0+20)= 'RF2 '
  516. TABOBL(JGM0+21)= 'RF3 '
  517. GOTO 9999
  518.  
  519. ELSE IF (IPLAC.EQ.16) THEN
  520. *
  521. * MODELE MAXOTT
  522. *
  523.  
  524. * Formulation DEFORMATIONS PLANES /AXISYMETRIQUE
  525. IF ((IFOMOD.EQ.-1.AND.IFOUR.NE.-2).OR.
  526. & (IFOMOD.EQ.0.OR.IFOMOD.EQ.1)) THEN
  527. *
  528. JGM0=JGOBL
  529. JGOBL=JGM0+16
  530.  
  531. IF (IFOMOD.EQ.-1.AND.IFOUR.NE.-2) THEN
  532. TABOBL(JGM0+1)='LXX '
  533. TABOBL(JGM0+2)='LYY '
  534. TABOBL(JGM0+3)='LXY '
  535. TABOBL(JGM0+4)='LZZ '
  536. TABOBL(JGM0+5)='PXX '
  537. TABOBL(JGM0+6)='PYY '
  538. TABOBL(JGM0+7)='PXY '
  539.  
  540. ELSE IF (IFOMOD.EQ.0.OR.IFOMOD.EQ.1) THEN
  541. TABOBL(JGM0+1)='LRR '
  542. TABOBL(JGM0+2)='LZZ '
  543. TABOBL(JGM0+3)='LRZ '
  544. TABOBL(JGM0+4)='LOO '
  545. TABOBL(JGM0+5)='PRR '
  546. TABOBL(JGM0+6)='PZZ '
  547. TABOBL(JGM0+7)='PRZ '
  548. ENDIF
  549.  
  550. TABOBL(JGM0+8)='EM0 '
  551. TABOBL(JGM0+9)='EM1 '
  552. TABOBL(JGM0+10)='TR1 '
  553. TABOBL(JGM0+11)='EM2 '
  554. TABOBL(JGM0+12)='TR2 '
  555. TABOBL(JGM0+13)='EM3 '
  556. TABOBL(JGM0+14)='TR3 '
  557. TABOBL(JGM0+15)='EM4 '
  558. TABOBL(JGM0+16)='TR4 '
  559.  
  560. JGM0=JGFAC
  561. JGFAC=JGM0+38
  562. TABFAC(JGM0+1) ='GFTR'
  563. TABFAC(JGM0+2) ='LTR '
  564. TABFAC(JGM0+3) ='GFCS'
  565. TABFAC(JGM0+4) ='LCS '
  566. TABFAC(JGM0+5) ='GS '
  567. TABFAC(JGM0+6) ='BTR '
  568. TABFAC(JGM0+7) ='BCS '
  569. TABFAC(JGM0+8) ='WRUP'
  570. TABFAC(JGM0+9) ='BILI'
  571. TABFAC(JGM0+10)='EPSR'
  572. TABFAC(JGM0+11)='GFT1'
  573. TABFAC(JGM0+12)='GFT2'
  574. TABFAC(JGM0+13)='GFT3'
  575. TABFAC(JGM0+14)='GS1 '
  576. TABFAC(JGM0+15)='GS2 '
  577. TABFAC(JGM0+16)='GS3 '
  578. TABFAC(JGM0+17)='LTR1'
  579. TABFAC(JGM0+18)='LTR2'
  580. TABFAC(JGM0+19)='LTR3'
  581. TABFAC(JGM0+20)='EPCM'
  582. TABFAC(JGM0+21)='EPCU'
  583. TABFAC(JGM0+22)='LCBI'
  584. TABFAC(JGM0+23)='XK2 '
  585. TABFAC(JGM0+24)='XGB '
  586. TABFAC(JGM0+25)='XPA '
  587. TABFAC(JGM0+26)='WRU1'
  588. TABFAC(JGM0+27)='WRU2'
  589. TABFAC(JGM0+28)='BIL1'
  590. TABFAC(JGM0+29)='BIL2'
  591. TABFAC(JGM0+30)='EPSB'
  592. TABFAC(JGM0+31)='EM5 '
  593. TABFAC(JGM0+32)='TR5 '
  594. TABFAC(JGM0+33)='EM6 '
  595. TABFAC(JGM0+34)='TR6 '
  596. TABFAC(JGM0+35)='EM7 '
  597. TABFAC(JGM0+36)='TR7 '
  598. TABFAC(JGM0+37)='EM8 '
  599. TABFAC(JGM0+38)='TR8 '
  600. GOTO 9999
  601. ENDIF
  602. *
  603. * Formulation CONTRAINTES PLANES / 3D COQUES MINCES
  604. IF ((IFOMOD.EQ.-1.AND.IFOUR.EQ.-2).OR.
  605. & (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  606. *
  607. JGM0=JGOBL
  608. JGOBL=JGM0+16
  609. IF (IFOMOD.EQ.-1.AND.IFOUR.EQ.-2) THEN
  610. TABOBL(JGM0+1)='LXX '
  611. TABOBL(JGM0+2)='LYY '
  612. TABOBL(JGM0+3)='LXY '
  613. TABOBL(JGM0+4)='LZZ '
  614. TABOBL(JGM0+5)='PXX '
  615. TABOBL(JGM0+6)='PYY '
  616. TABOBL(JGM0+7)='PXY '
  617. *
  618. ELSE IF (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN
  619. TABOBL(JGM0+1)='LSS '
  620. TABOBL(JGM0+2)='LTT '
  621. TABOBL(JGM0+3)='LST '
  622. TABOBL(JGM0+4)='LNN '
  623. TABOBL(JGM0+5)='PSS '
  624. TABOBL(JGM0+6)='PTT '
  625. TABOBL(JGM0+7)='PST '
  626. ENDIF
  627. TABOBL(JGM0+8)='EM0 '
  628. TABOBL(JGM0+9)='EM1 '
  629. TABOBL(JGM0+10)='TR1 '
  630. TABOBL(JGM0+11)='EM2 '
  631. TABOBL(JGM0+12)='TR2 '
  632. TABOBL(JGM0+13)='EM3 '
  633. TABOBL(JGM0+14)='TR3 '
  634. TABOBL(JGM0+15)='EM4 '
  635. TABOBL(JGM0+16)='TR4 '
  636. *
  637. JGM0=JGFAC
  638. JGFAC=JGM0+33
  639. TABFAC(JGM0+1) ='GFTR'
  640. TABFAC(JGM0+2) ='LTR '
  641. TABFAC(JGM0+3) ='GFCS'
  642. TABFAC(JGM0+4) ='LCS '
  643. TABFAC(JGM0+5) ='GS '
  644. TABFAC(JGM0+6) ='BTR '
  645. TABFAC(JGM0+7) ='BCS '
  646. TABFAC(JGM0+8) ='WRUP'
  647. TABFAC(JGM0+9) ='BILI'
  648. TABFAC(JGM0+10)='GFT1'
  649. TABFAC(JGM0+11)='GFT2'
  650. TABFAC(JGM0+12)='GS1 '
  651. TABFAC(JGM0+13)='GS2 '
  652. TABFAC(JGM0+14)='LTR1'
  653. TABFAC(JGM0+15)='LTR2'
  654. TABFAC(JGM0+16)='EPCM'
  655. TABFAC(JGM0+17)='EPCU'
  656. TABFAC(JGM0+18)='LCBI'
  657. TABFAC(JGM0+19)='XK2 '
  658. TABFAC(JGM0+20)='XGB '
  659. TABFAC(JGM0+21)='XPA '
  660. TABFAC(JGM0+22)='WRU1'
  661. TABFAC(JGM0+23)='WRU2'
  662. TABFAC(JGM0+24)='BIL1'
  663. TABFAC(JGM0+25)='BIL2'
  664. TABFAC(JGM0+26)='EM5 '
  665. TABFAC(JGM0+27)='TR5 '
  666. TABFAC(JGM0+28)='EM6 '
  667. TABFAC(JGM0+29)='TR6 '
  668. TABFAC(JGM0+30)='EM7 '
  669. TABFAC(JGM0+31)='TR7 '
  670. TABFAC(JGM0+32)='EM8 '
  671. TABFAC(JGM0+33)='TR8 '
  672. GOTO 9999
  673. ENDIF
  674. *
  675. * Formulation TRIDIMENSIONNELLE MASSIVE
  676. IF (IFOMOD.EQ.2.AND.MFR.EQ.1) THEN
  677. JGM0=JGOBL
  678. JGOBL=JGM0+21
  679. TABOBL(JGM0+1) ='LXX '
  680. TABOBL(JGM0+2) ='LYY '
  681. TABOBL(JGM0+3) ='LZZ '
  682. TABOBL(JGM0+4) ='LXY '
  683. TABOBL(JGM0+5) ='LXZ '
  684. TABOBL(JGM0+6) ='LYZ '
  685. TABOBL(JGM0+7) ='PXX '
  686. TABOBL(JGM0+8) ='PYY '
  687. TABOBL(JGM0+9) ='PZZ '
  688. TABOBL(JGM0+10)='PXY '
  689. TABOBL(JGM0+11)='PXZ '
  690. TABOBL(JGM0+12)='PYZ '
  691. TABOBL(JGM0+13)='EM0 '
  692. TABOBL(JGM0+14)='EM1 '
  693. TABOBL(JGM0+15)='TR1 '
  694. TABOBL(JGM0+16)='EM2 '
  695. TABOBL(JGM0+17)='TR2 '
  696. TABOBL(JGM0+18)='EM3 '
  697. TABOBL(JGM0+19)='TR3 '
  698. TABOBL(JGM0+20)='EM4 '
  699. TABOBL(JGM0+21)='TR4 '
  700.  
  701. JGM0=JGFAC
  702. JGFAC=JGM0+38
  703. TABFAC(JGM0+1)='GFTR'
  704. TABFAC(JGM0+2)='LTR '
  705. TABFAC(JGM0+3)='GFCS'
  706. TABFAC(JGM0+4)='LCS '
  707. TABFAC(JGM0+5)='GS '
  708. TABFAC(JGM0+6)='BTR '
  709. TABFAC(JGM0+7)='BCS '
  710. TABFAC(JGM0+8)='WRUP'
  711. TABFAC(JGM0+9)='BILI'
  712. TABFAC(JGM0+10)='GFT1'
  713. TABFAC(JGM0+11)='GFT2'
  714. TABFAC(JGM0+12)='GFT3'
  715. TABFAC(JGM0+13)='GS1 '
  716. TABFAC(JGM0+14)='GS2 '
  717. TABFAC(JGM0+15)='GS3 '
  718. TABFAC(JGM0+16)='LTR1'
  719. TABFAC(JGM0+17)='LTR2'
  720. TABFAC(JGM0+18)='LTR3'
  721. TABFAC(JGM0+19)='EPCM'
  722. TABFAC(JGM0+20)='EPCU'
  723. TABFAC(JGM0+21)='LCBI'
  724. TABFAC(JGM0+22)='XK2 '
  725. TABFAC(JGM0+23)='XGB '
  726. TABFAC(JGM0+24)='XPA '
  727. TABFAC(JGM0+25)='WRU1'
  728. TABFAC(JGM0+26)='WRU2'
  729. TABFAC(JGM0+27)='WRU3'
  730. TABFAC(JGM0+28)='BIL1'
  731. TABFAC(JGM0+29)='BIL2'
  732. TABFAC(JGM0+30)='BIL3'
  733. TABFAC(JGM0+31)='EM5 '
  734. TABFAC(JGM0+32)='TR5 '
  735. TABFAC(JGM0+33)='EM6 '
  736. TABFAC(JGM0+34)='TR6 '
  737. TABFAC(JGM0+35)='EM7 '
  738. TABFAC(JGM0+36)='TR7 '
  739. TABFAC(JGM0+37)='EM8 '
  740. TABFAC(JGM0+38)='TR8 '
  741. GOTO 9999
  742. ENDIF
  743. *
  744. ELSE IF (IPLAC.EQ.17) THEN
  745. *
  746. * MODELE FBB1
  747. *
  748. JGM0=JGOBL
  749. JGOBL=JGM0+12
  750. TABOBL(JGM0+1)='KRSP'
  751. TABOBL(JGM0+2)='VRSP'
  752. TABOBL(JGM0+3)='KISP'
  753. TABOBL(JGM0+4)='VISP'
  754. TABOBL(JGM0+5)='KRDV'
  755. TABOBL(JGM0+6)='VRDV'
  756. TABOBL(JGM0+7)='VIDV'
  757. TABOBL(JGM0+8)='KDES'
  758. TABOBL(JGM0+9)='VDES'
  759. TABOBL(JGM0+10)='IFPO'
  760. TABOBL(JGM0+11)='IDES'
  761. TABOBL(JGM0+12)='ICOU'
  762. GOTO 9999
  763. *
  764. ELSE IF (IPLAC.EQ.18) THEN
  765. *
  766. * MODELE FBB2
  767. *
  768. C= 18.1 - Modes de calcul PLAN DEFO, PLAN GENE, Axisymetrie, Fourier
  769. IF (IFOUR.EQ.-3.OR.IFOUR.EQ.-1.OR.
  770. . IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  771.  
  772. JGM0=JGOBL
  773. JGOBL=JGM0+19
  774. TABOBL(JGM0+1)='KRSP'
  775. TABOBL(JGM0+2)='VRSP'
  776. TABOBL(JGM0+3)='KISP'
  777. TABOBL(JGM0+4)='VISP'
  778. TABOBL(JGM0+5)='KRDV'
  779. TABOBL(JGM0+6)='VRDV'
  780. TABOBL(JGM0+7)='VIDV'
  781. TABOBL(JGM0+8)='KDES'
  782. TABOBL(JGM0+9)='VDES'
  783. TABOBL(JGM0+10)='IFPO'
  784. TABOBL(JGM0+11)='IDES'
  785. TABOBL(JGM0+12)='ICOU'
  786. IF (IFOUR.EQ.-3.OR.IFOUR.EQ.-1) THEN
  787. TABOBL(JGM0+13)='LXX '
  788. TABOBL(JGM0+14)='LYY '
  789. TABOBL(JGM0+15)='LXY '
  790. TABOBL(JGM0+16)='LZZ '
  791. TABOBL(JGM0+17)='PXX '
  792. TABOBL(JGM0+18)='PYY '
  793. TABOBL(JGM0+19)='PXY '
  794. C* ELSE IF (IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  795. ELSE
  796. TABOBL(JGM0+13)='LRR '
  797. TABOBL(JGM0+14)='LZZ '
  798. TABOBL(JGM0+15)='LRZ '
  799. TABOBL(JGM0+16)='LOO '
  800. TABOBL(JGM0+17)='PRR '
  801. TABOBL(JGM0+18)='PZZ '
  802. TABOBL(JGM0+19)='PRZ '
  803. ENDIF
  804. *
  805. JGM0=JGFAC
  806. JGFAC=JGM0+30
  807. TABFAC(JGM0+1) ='GFTR'
  808. TABFAC(JGM0+2) ='LTR '
  809. TABFAC(JGM0+3) ='GFCS'
  810. TABFAC(JGM0+4) ='LCS '
  811. TABFAC(JGM0+5) ='GS '
  812. TABFAC(JGM0+6) ='BTR '
  813. TABFAC(JGM0+7) ='BCS '
  814. TABFAC(JGM0+8) ='WRUP'
  815. TABFAC(JGM0+9) ='BILI'
  816. TABFAC(JGM0+10)='EPSR'
  817. TABFAC(JGM0+11)='GFT1'
  818. TABFAC(JGM0+12)='GFT2'
  819. TABFAC(JGM0+13)='GFT3'
  820. TABFAC(JGM0+14)='GS1 '
  821. TABFAC(JGM0+15)='GS2 '
  822. TABFAC(JGM0+16)='GS3 '
  823. TABFAC(JGM0+17)='LTR1'
  824. TABFAC(JGM0+18)='LTR2'
  825. TABFAC(JGM0+19)='LTR3'
  826. TABFAC(JGM0+20)='EPCM'
  827. TABFAC(JGM0+21)='EPCU'
  828. TABFAC(JGM0+22)='LCBI'
  829. TABFAC(JGM0+23)='XK2 '
  830. TABFAC(JGM0+24)='XGB '
  831. TABFAC(JGM0+25)='XPA '
  832. TABFAC(JGM0+26)='WRU1'
  833. TABFAC(JGM0+27)='WRU2'
  834. TABFAC(JGM0+28)='BIL1'
  835. TABFAC(JGM0+29)='BIL2'
  836. TABFAC(JGM0+30)='EPSB'
  837. GO TO 9999
  838. C= 18.2 - Modes de calcul PLAN CONT et TRIDimensionnel COQUEs minces
  839. ELSE IF ((IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)).OR.
  840. . IFOUR.EQ.-2) THEN
  841. JGM0=JGOBL
  842. JGOBL=JGM0+19
  843. TABOBL(JGM0+1)='KRSP'
  844. TABOBL(JGM0+2)='VRSP'
  845. TABOBL(JGM0+3)='KISP'
  846. TABOBL(JGM0+4)='VISP'
  847. TABOBL(JGM0+5)='KRDV'
  848. TABOBL(JGM0+6)='VRDV'
  849. TABOBL(JGM0+7)='VIDV'
  850. TABOBL(JGM0+8)='KDES'
  851. TABOBL(JGM0+9)='VDES'
  852. TABOBL(JGM0+10)='IFPO'
  853. TABOBL(JGM0+11)='IDES'
  854. TABOBL(JGM0+12)='ICOU'
  855. IF (IFOUR.EQ.-2) THEN
  856. TABOBL(JGM0+13)='LXX '
  857. TABOBL(JGM0+14)='LYY '
  858. TABOBL(JGM0+15)='LXY '
  859. TABOBL(JGM0+16)='LZZ '
  860. TABOBL(JGM0+17)='PXX '
  861. TABOBL(JGM0+18)='PYY '
  862. TABOBL(JGM0+19)='PXY '
  863. C* ELSE IF (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN
  864. ELSE
  865. TABOBL(JGM0+13)='LSS '
  866. TABOBL(JGM0+14)='LTT '
  867. TABOBL(JGM0+15)='LST '
  868. TABOBL(JGM0+16)='LNN '
  869. TABOBL(JGM0+17)='PSS '
  870. TABOBL(JGM0+18)='PTT '
  871. TABOBL(JGM0+19)='PST '
  872. ENDIF
  873. *
  874. JGM0=JGFAC
  875. JGFAC=JGM0+25
  876. TABFAC(JGM0+1) ='GFTR'
  877. TABFAC(JGM0+2) ='LTR '
  878. TABFAC(JGM0+3) ='GFCS'
  879. TABFAC(JGM0+4) ='LCS '
  880. TABFAC(JGM0+5) ='GS '
  881. TABFAC(JGM0+6) ='BTR '
  882. TABFAC(JGM0+7) ='BCS '
  883. TABFAC(JGM0+8) ='WRUP'
  884. TABFAC(JGM0+9) ='BILI'
  885. TABFAC(JGM0+10)='GFT1'
  886. TABFAC(JGM0+11)='GFT2'
  887. TABFAC(JGM0+12)='GS1 '
  888. TABFAC(JGM0+13)='GS2 '
  889. TABFAC(JGM0+14)='LTR1'
  890. TABFAC(JGM0+15)='LTR2'
  891. TABFAC(JGM0+16)='EPCM'
  892. TABFAC(JGM0+17)='EPCU'
  893. TABFAC(JGM0+18)='LCBI'
  894. TABFAC(JGM0+19)='XK2 '
  895. TABFAC(JGM0+20)='XGB '
  896. TABFAC(JGM0+21)='XPA '
  897. TABFAC(JGM0+22)='WRU1'
  898. TABFAC(JGM0+23)='WRU2'
  899. TABFAC(JGM0+24)='BIL1'
  900. TABFAC(JGM0+25)='BIL2'
  901. GO TO 9999
  902. C= 18.3 - Formulation TRIDIMENSIONNELLE MASSIVE
  903. ELSE IF (IFOUR.EQ.2.AND.MFR.EQ.1) THEN
  904.  
  905. JGM0=JGOBL
  906. JGOBL=JGM0+24
  907. TABOBL(JGM0+1)='KRSP'
  908. TABOBL(JGM0+2)='VRSP'
  909. TABOBL(JGM0+3)='KISP'
  910. TABOBL(JGM0+4)='VISP'
  911. TABOBL(JGM0+5)='KRDV'
  912. TABOBL(JGM0+6)='VRDV'
  913. TABOBL(JGM0+7)='VIDV'
  914. TABOBL(JGM0+8)='KDES'
  915. TABOBL(JGM0+9)='VDES'
  916. TABOBL(JGM0+10)='IFPO'
  917. TABOBL(JGM0+11)='IDES'
  918. TABOBL(JGM0+12)='ICOU'
  919. TABOBL(JGM0+13)='LXX '
  920. TABOBL(JGM0+14)='LYY '
  921. TABOBL(JGM0+15)='LZZ '
  922. TABOBL(JGM0+16)='LXY '
  923. TABOBL(JGM0+17)='LXZ '
  924. TABOBL(JGM0+18)='LYZ '
  925. TABOBL(JGM0+19)='PXX '
  926. TABOBL(JGM0+20)='PYY '
  927. TABOBL(JGM0+21)='PZZ '
  928. TABOBL(JGM0+22)='PXY '
  929. TABOBL(JGM0+23)='PXZ '
  930. TABOBL(JGM0+24)='PYZ '
  931. *
  932. JGM0=JGFAC
  933. JGFAC=JGM0+30
  934. TABFAC(JGM0+1)='GFTR'
  935. TABFAC(JGM0+2)='LTR '
  936. TABFAC(JGM0+3)='GFCS'
  937. TABFAC(JGM0+4)='LCS '
  938. TABFAC(JGM0+5)='GS '
  939. TABFAC(JGM0+6)='BTR '
  940. TABFAC(JGM0+7)='BCS '
  941. TABFAC(JGM0+8)='WRUP'
  942. TABFAC(JGM0+9)='BILI'
  943. TABFAC(JGM0+10)='GFT1'
  944. TABFAC(JGM0+11)='GFT2'
  945. TABFAC(JGM0+12)='GFT3'
  946. TABFAC(JGM0+13)='GS1 '
  947. TABFAC(JGM0+14)='GS2 '
  948. TABFAC(JGM0+15)='GS3 '
  949. TABFAC(JGM0+16)='LTR1'
  950. TABFAC(JGM0+17)='LTR2'
  951. TABFAC(JGM0+18)='LTR3'
  952. TABFAC(JGM0+19)='EPCM'
  953. TABFAC(JGM0+20)='EPCU'
  954. TABFAC(JGM0+21)='LCBI'
  955. TABFAC(JGM0+22)='XK2 '
  956. TABFAC(JGM0+23)='XGB '
  957. TABFAC(JGM0+24)='XPA '
  958. TABFAC(JGM0+25)='WRU1'
  959. TABFAC(JGM0+26)='WRU2'
  960. TABFAC(JGM0+27)='WRU3'
  961. TABFAC(JGM0+28)='BIL1'
  962. TABFAC(JGM0+29)='BIL2'
  963. TABFAC(JGM0+30)='BIL3'
  964. GO TO 9999
  965. ENDIF
  966. *
  967. *****************************************************
  968. ELSE IF (IPLAC.EQ.19) THEN
  969. *KELVIN
  970.  
  971. JGM0=JGOBL
  972. JGOBL=JGM0+6
  973. TABOBL(JGM0+1)='YF1'
  974. TABOBL(JGM0+2)='TF1'
  975. TABOBL(JGM0+3)='YF2'
  976. TABOBL(JGM0+4)='TF2'
  977. TABOBL(JGM0+5)='YF3'
  978. TABOBL(JGM0+6)='TF3'
  979. GO TO 9999
  980. *****************************************************
  981. *****************************************************
  982. ENDIF
  983. GOTO 99
  984. *
  985. 9999 CONTINUE
  986. IRET=1
  987. RETURN
  988. *
  989. * SI PROBLEME , ON SORT AVEC IRET A 0
  990. *
  991. 99 CONTINUE
  992. IRET=0
  993. CALL ERREUR(261)
  994. RETURN
  995. END
  996.  
  997.  

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