Télécharger la plaquette Cast3M


fr en

Télécharger idplas.eso

Retour à la liste

Numérotation des lignes : 

idplas

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

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