Télécharger idflua.eso

Retour à la liste

Numérotation des lignes :

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

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