Télécharger la plaquette Cast3M


fr en

Télécharger idflua.eso

Retour à la liste

Numérotation des lignes : 

idflua

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

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