Télécharger la plaquette Cast3M


fr en

Télécharger idvar6.eso

Retour à la liste

Numérotation des lignes : 

idvar6

  1. C IDVAR6    SOURCE    MB234859  25/08/04    21:15:26     12339          
  2. *_______________________________________________________________________
  3. *      RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  4. *      --------------------------------------------------------
  5. *
  6. *  ENTREES :
  7. *  ---------
  8. *     MATEPL   NUMERO DU MATERIAU PLASTIQUE
  9. *     MFR      NUMERO DE FORMULATION
  10. *     IFOUR    VALEUR DE IFOU DANS CCOPTIO
  11. *     NPINT    NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  12. *              POUR LES ELEMENTS DE COQUE INTEGRES
  13. *
  14. *  SORTIES :
  15. *  ---------
  16. *     IPCOMP   POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  17. *              OBLIGATOIRES ET FACULTATIVES
  18. *     NBROBL   NOMBRE DE COMPOSANTES OBLIGATOIRES
  19. *     NBRFAC   NOMBRE DE COMPOSANTES FACTULTATIVES
  20. *_______________________________________________________________________
  21.  
  22.       SUBROUTINE IDVAR6 (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL,
  23.      .                   NBRFAC)
  24.  
  25.       IMPLICIT INTEGER(I-N)
  26.       SEGMENT NOMID
  27.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  28.       ENDSEGMENT
  29.  
  30.       CHARACTER*4 NOMBET(17),NOMTUP(5)
  31.       CHARACTER*4 NOMIN1(32),NOMIN2(6),NOMIN4(4),NOMI11(14)
  32.  
  33.       DATA NOMBET/'EPSE','DAM1','DAM2','DAM3',
  34.      .            'OUV1','OUV2','OUV3','LAMD',
  35.      .            'VI1X','VI1Y','VI1Z',
  36.      .            'VI2X','VI2Y','VI2Z',
  37.      .            'VI3X','VI3Y','VI3Z'/
  38.       DATA NOMTUP/'VAM1','VAM2','VHTA','VHJP','EPSE'/
  39.  
  40.       DATA NOMIN1/'EPSE','TAN1','TAN2','IPL1','IFI2','RTM1',
  41.      .            'RTM2','IFI1','JFI1','VHGL','JFI2','EQC1',
  42.      .            'EPE1','EPT1','EPT2','EQC2','EPE2','EPC1',
  43.      .            'EPC2','IPL2','OUV1','EDC1','EDC2','ETS1',
  44.      .            'ETS2','EDT1','EDT2','OUV2','DFR1','DFR2',
  45.      .            'VHAS','VHMP'/
  46.       DATA NOMI11/'EQC3','EPE3','EPT3','EPC3','DFR3','RTM3',
  47.      .            'EDC3','ETS3','EDT3','TAN3','OUV3','IPL3',
  48.      .            'IFI3','JFI3'/
  49.       DATA NOMIN2/'EP01','EP02','EP03','EP04','EP05','EP06'/
  50.       DATA NOMIN4/'EPSE','EPT1','EPT2','EPT3'/
  51.  
  52.       NBROBL=0
  53.       NBRFAC=0
  54.       NOMID=0
  55. C
  56. C=    Materiaux 'VISCO_EXTERNE'
  57.       IF (MATEPL.LT.-1) THEN
  58.         NBROBL=4
  59.         SEGINI,NOMID
  60.         LESOBL(1)='EC0 '
  61.         LESOBL(2)='ESW0'
  62.         LESOBL(3)='P   '
  63.         LESOBL(4)='QTLD'
  64.         GOTO 666
  65. C=    Materiau ELASTIQUE ou UTILISATEUR : EPSE facultative
  66.       ELSEIF (MATEPL.LE.0) THEN
  67.         NBRFAC = 1
  68.         SEGINI,NOMID
  69.         LESFAC(1)='EPSE'
  70.         GOTO 666
  71.       ENDIF
  72. C
  73. C on ne traite ici que les 50 premiers matepl la suite
  74. C  est dans idva6b, idva6c  ...
  75.       GOTO (1, 2, 1, 4, 1,97, 4,97, 9,97,97, 4,97,14, 1,16,17,97,97,97,
  76.      .     97,97,97,97,97, 3,97,28,29,97,97,32,33,34,35,36,97,38,39,40,
  77.      .     41,42,97,44,45,46,47,48,49, 1,98,98,97,97,97,97,97,97,97,97,
  78.      .     97,98,97,98,98,98,98,98,98,97,98,97,97,97,98,98,97,98,98,98,
  79.      .     97,97,98,97,97,97,98,97,97,97,97,98,98,97,97,97,97,97,97,98,
  80.      .     98,97,29,98,98,98,97,97,97,97,97,97,97,97,97,97,97,97,97,98,
  81.      .     98,98,97,97,97,97,98,98, 1, 1, 1, 1,98, 1,98, 1, 1, 1, 1,98,
  82.      .     98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,
  83.      .     98,98,98,98,98,98,98,98,98,98,98,98,98,98,98),
  84.      .     MATEPL
  85.    98 CONTINUE
  86.       CALL IDVA6b(MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC)
  87.       RETURN
  88.  
  89.    1  CONTINUE
  90.       NBROBL=1
  91.       SEGINI,NOMID
  92.       LESOBL(1)='EPSE'
  93.       GOTO 666
  94.  
  95.    2  CONTINUE
  96.       NBROBL=2
  97.       SEGINI,NOMID
  98.       LESOBL(1)='EPSE'
  99.       LESOBL(2)=NOMTUP(4)
  100.       GOTO 666
  101.  
  102. C  3 - MATERIAUX ENDOMMAGEMENT ET ECROUISSAGE ISOTROPES SI MATEPL=26
  103. C ===================================================================
  104.    3  CONTINUE
  105. C =====
  106. C  3.1 - Element MASSIF
  107. C =====
  108.       IF (MFR.NE.1.AND.MFR.NE.31) GOTO 1201
  109. C= 3.1.1 - Cas des CONTRAINTES PLANES ou des DEFORMATIONS PLANES ou
  110. C=         des DEFORMATIONS PLANES GENERALISEES
  111.       IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) GOTO 1101
  112.         NBROBL=7
  113.         SEGINI,NOMID
  114.         LESOBL(1)='EPSE'
  115.         LESOBL(2)='VVIR'
  116.         LESOBL(3)='VHWD'
  117.         LESOBL(4)='VIXX'
  118.         LESOBL(5)='VIYY'
  119.         LESOBL(6)='VIZZ'
  120.         LESOBL(7)='VIXY'
  121.         GOTO 666
  122. C= 3.1.2 - Cas AXISYMETRIQUE
  123.  1101 IF (IFOUR.NE.0) GOTO 1111
  124.         NBROBL=7
  125.         SEGINI,NOMID
  126.         LESOBL(1)='EPSE'
  127.         LESOBL(2)='VVIR'
  128.         LESOBL(3)='VHWD'
  129.         LESOBL(4)='VIRR'
  130.         LESOBL(5)='VIZZ'
  131.         LESOBL(6)='VITT'
  132.         LESOBL(7)='VIRZ'
  133.         GOTO 666
  134. C= 3.1.3 - Cas des series de FOURIER
  135.  1111 IF (IFOUR.NE.1) GOTO 1121
  136.         NBROBL=9
  137.         SEGINI,NOMID
  138.         LESOBL(1)='EPSE'
  139.         LESOBL(2)='VVIR'
  140.         LESOBL(3)='VHWD'
  141.         LESOBL(4)='VIRR'
  142.         LESOBL(5)='VIZZ'
  143.         LESOBL(6)='VITT'
  144.         LESOBL(7)='VIRZ'
  145.         LESOBL(8)='VIRT'
  146.         LESOBL(9)='VIZT'
  147.         GOTO 666
  148. C= 3.1.4 - Cas TRIDIMENSIONNEL
  149.  1121 IF (IFOUR.NE.2) GOTO 1131
  150.         NBROBL=9
  151.         SEGINI,NOMID
  152.         LESOBL(1)='EPSE'
  153.         LESOBL(2)='VVIR'
  154.         LESOBL(3)='VHWD'
  155.         LESOBL(4)='VIXX'
  156.         LESOBL(5)='VIYY'
  157.         LESOBL(6)='VIZZ'
  158.         LESOBL(7)='VIXY'
  159.         LESOBL(8)='VIXZ'
  160.         LESOBL(9)='VIYZ'
  161.         GOTO 666
  162. C= 3.1.5 - Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  163.  1131 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1141
  164.         NBROBL=6
  165.         SEGINI,NOMID
  166.         LESOBL(1)='EPSE'
  167.         LESOBL(2)='VVIR'
  168.         LESOBL(3)='VHWD'
  169.         LESOBL(4)='VIXX'
  170.         LESOBL(5)='VIYY'
  171.         LESOBL(6)='VIZZ'
  172.         GOTO 666
  173. C= 3.1.6 - Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  174.  1141 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999
  175.         NBROBL=6
  176.         SEGINI,NOMID
  177.         LESOBL(1)='EPSE'
  178.         LESOBL(2)='VVIR'
  179.         LESOBL(3)='VHWD'
  180.         LESOBL(4)='VIRR'
  181.         LESOBL(5)='VIZZ'
  182.         LESOBL(6)='VITT'
  183.         GOTO 666
  184.  
  185. C COQUE
  186. C
  187.  1201 CONTINUE
  188.       IF (NPINT.NE.0) THEN
  189.         IF (MFR.EQ.3.AND.IFOUR.EQ.2) THEN
  190.           NBROBL=7
  191.           SEGINI NOMID
  192.           LESOBL(1)='EPSE'
  193.           LESOBL(2)='VVIR'
  194.           LESOBL(3)='VHWD'
  195.           LESOBL(4)='VISS'
  196.           LESOBL(5)='VITT'
  197.           LESOBL(6)='VINN'
  198.           LESOBL(7)='VIST'
  199.           GOTO 666
  200.         ENDIF
  201.       ENDIF
  202.       GOTO 999
  203. C
  204. C  MATERIAU GAUVAIN POUR LES POUTRES UNIQUEMENT
  205. C
  206.   16  CONTINUE
  207.       IF (MFR.NE.7) GOTO 999
  208.       NBROBL=13
  209.       SEGINI NOMID
  210.       LESOBL( 1)='EPSE'
  211.       LESOBL( 2)='EPY0'
  212.       LESOBL( 3)='SYIN'
  213.       LESOBL( 4)='EYIN'
  214.       LESOBL( 5)='SYSU'
  215.       LESOBL( 6)='EYSU'
  216.       LESOBL( 7)='NUMY'
  217.       LESOBL( 8)='EPZ0'
  218.       LESOBL( 9)='SZIN'
  219.       LESOBL(10)='EZIN'
  220.       LESOBL(11)='SZSU'
  221.       LESOBL(12)='EZSU'
  222.       LESOBL(13)='NUMZ'
  223.       GOTO 666
  224. C
  225.    4  CONTINUE
  226. C
  227.   17  CONTINUE
  228.       IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33.AND.MFR.NE.63) GOTO 1001
  229. C
  230. C     ELEMENT MASSIF
  231. C
  232.       IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) GOTO 1040
  233. C
  234. C     CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  235. C      OU DEFORMATIONS PLANES
  236. C
  237.       NBROBL=5
  238.       IF (MATEPL.EQ.12) NBROBL=9
  239.       IF (MATEPL.EQ.17) NBROBL=22
  240.       SEGINI NOMID
  241.       LESOBL(1)='EPSE'
  242.       LESOBL(2)='VMXX'
  243.       LESOBL(3)='VMYY'
  244.       LESOBL(4)='VMZZ'
  245.       LESOBL(5)='VMXY'
  246.       IF (MATEPL.EQ.12) THEN
  247.         LESOBL(6)='XMXX'
  248.         LESOBL(7)='XMYY'
  249.         LESOBL(8)='XMZZ'
  250.         LESOBL(9)='XMXY'
  251.       ELSE IF (MATEPL.EQ.17) THEN
  252.         LESOBL( 2)='VHP1'
  253.         LESOBL( 3)='VLP2'
  254.         LESOBL( 4)='VLP4'
  255.         LESOBL( 5)='VMXX'
  256.         LESOBL( 6)='VMYY'
  257.         LESOBL( 7)='VMZZ'
  258.         LESOBL( 8)='VMXY'
  259.         LESOBL( 9)='VP1M'
  260.         LESOBL(10)='VHWK'
  261.         LESOBL(11)='VIXX'
  262.         LESOBL(12)='VIYY'
  263.         LESOBL(13)='VIZZ'
  264.         LESOBL(14)='VIXY'
  265.         LESOBL(15)='KVXX'
  266.         LESOBL(16)='KVYY'
  267.         LESOBL(17)='KVZZ'
  268.         LESOBL(18)='KVXY'
  269.         LESOBL(19)='KDXX'
  270.         LESOBL(20)='KDYY'
  271.         LESOBL(21)='KDZZ'
  272.         LESOBL(22)='KDXY'
  273.       ENDIF
  274.       GOTO 666
  275. C
  276.  1040 IF (IFOUR.NE.0)  GOTO 1041
  277. C
  278. C     CAS AXISYMETRIQUE
  279. C
  280.       NBROBL=5
  281.       IF(MATEPL.EQ.12) NBROBL=9
  282.       IF(MATEPL.EQ.17) NBROBL=22
  283.       SEGINI NOMID
  284.       LESOBL(1)='EPSE'
  285.       LESOBL(2)='VMRR'
  286.       LESOBL(3)='VMZZ'
  287.       LESOBL(4)='VMTT'
  288.       LESOBL(5)='VMRZ'
  289.       IF (MATEPL.EQ.12) THEN
  290.         LESOBL(6)='XMRR'
  291.         LESOBL(7)='XMZZ'
  292.         LESOBL(8)='XMTT'
  293.         LESOBL(9)='XMRZ'
  294.       ELSE IF (MATEPL.EQ.17) THEN
  295.         LESOBL( 2)='VHP1'
  296.         LESOBL( 3)='VLP2'
  297.         LESOBL( 4)='VLP4'
  298.         LESOBL( 5)='VMRR'
  299.         LESOBL( 6)='VMZZ'
  300.         LESOBL( 7)='VMTT'
  301.         LESOBL( 8)='VMRZ'
  302.         LESOBL( 9)='VP1M'
  303.         LESOBL(10)='VHWK'
  304.         LESOBL(11)='VIRR'
  305.         LESOBL(12)='VIZZ'
  306.         LESOBL(13)='VITT'
  307.         LESOBL(14)='VIRZ'
  308.         LESOBL(15)='KVRR'
  309.         LESOBL(16)='KVZZ'
  310.         LESOBL(17)='KVTT'
  311.         LESOBL(18)='KVRZ'
  312.         LESOBL(19)='KDRR'
  313.         LESOBL(20)='KDZZ'
  314.         LESOBL(21)='KDTT'
  315.         LESOBL(22)='KDRZ'
  316.       ENDIF
  317.       GOTO 666
  318. C
  319.  1041 IF (IFOUR.NE.1) GOTO 1042
  320. C
  321. C     CAS SERIE DE FOURIER
  322. C
  323.       NBROBL=7
  324.       IF (MATEPL.EQ.12) NBROBL=13
  325.       IF (MATEPL.EQ.17) NBROBL=30
  326.       SEGINI NOMID
  327.       LESOBL(1)='EPSE'
  328.       LESOBL(2)='VMRR'
  329.       LESOBL(3)='VMZZ'
  330.       LESOBL(4)='VMTT'
  331.       LESOBL(5)='VMRZ'
  332.       LESOBL(6)='VMRT'
  333.       LESOBL(7)='VMZT'
  334.       IF (MATEPL.EQ.12) THEN
  335.         LESOBL( 8)='XMRR'
  336.         LESOBL( 9)='XMZZ'
  337.         LESOBL(10)='XMTT'
  338.         LESOBL(11)='XMRZ'
  339.         LESOBL(12)='XMRT'
  340.         LESOBL(13)='XMZT'
  341.       ELSE IF (MATEPL.EQ.17) THEN
  342.         LESOBL( 2)='VHP1'
  343.         LESOBL( 3)='VLP2'
  344.         LESOBL( 4)='VLP4'
  345.         LESOBL( 5)='VMRR'
  346.         LESOBL( 6)='VMZZ'
  347.         LESOBL( 7)='VMTT'
  348.         LESOBL( 8)='VMRZ'
  349.         LESOBL( 9)='VMRT'
  350.         LESOBL(10)='VMZT'
  351.         LESOBL(11)='VP1M'
  352.         LESOBL(12)='VHWK'
  353.         LESOBL(13)='VIRR'
  354.         LESOBL(14)='VIZZ'
  355.         LESOBL(15)='VITT'
  356.         LESOBL(16)='VIRZ'
  357.         LESOBL(17)='VIRT'
  358.         LESOBL(18)='VIZT'
  359.         LESOBL(19)='KVRR'
  360.         LESOBL(20)='KVZZ'
  361.         LESOBL(21)='KVTT'
  362.         LESOBL(22)='KVRZ'
  363.         LESOBL(23)='KVRT'
  364.         LESOBL(24)='KVZT'
  365.         LESOBL(25)='KDRR'
  366.         LESOBL(26)='KDZZ'
  367.         LESOBL(27)='KDTT'
  368.         LESOBL(28)='KDRZ'
  369.         LESOBL(29)='KDRT'
  370.         LESOBL(30)='KDZT'
  371.       ENDIF
  372.       GOTO 666
  373. C
  374.  1042 IF(IFOUR.NE.2) GOTO 1043
  375. C
  376. C     CAS TRIDIMENSIONNEL
  377. C
  378.       NBROBL=7
  379.       IF(MATEPL.EQ.12) NBROBL=13
  380.       IF(MATEPL.EQ.17) NBROBL=30
  381.       SEGINI NOMID
  382.       LESOBL(1)='EPSE'
  383.       LESOBL(2)='VMXX'
  384.       LESOBL(3)='VMYY'
  385.       LESOBL(4)='VMZZ'
  386.       LESOBL(5)='VMXY'
  387.       LESOBL(6)='VMXZ'
  388.       LESOBL(7)='VMYZ'
  389.       IF (MATEPL.EQ.12) THEN
  390.          LESOBL( 8)='XMXX'
  391.          LESOBL( 9)='XMYY'
  392.          LESOBL(10)='XMZZ'
  393.          LESOBL(11)='XMXY'
  394.          LESOBL(12)='XMXZ'
  395.          LESOBL(13)='XMYZ'
  396.       ELSE IF (MATEPL.EQ.17) THEN
  397.          LESOBL( 2)='VHP1'
  398.          LESOBL( 3)='VLP2'
  399.          LESOBL( 4)='VLP4'
  400.          LESOBL( 5)='VMXX'
  401.          LESOBL( 6)='VMYY'
  402.          LESOBL( 7)='VMZZ'
  403.          LESOBL( 8)='VMXY'
  404.          LESOBL( 9)='VMXZ'
  405.          LESOBL(10)='VMYZ'
  406.          LESOBL(11)='VP1M'
  407.          LESOBL(12)='VHWK'
  408.          LESOBL(13)='VIXX'
  409.          LESOBL(14)='VIYY'
  410.          LESOBL(15)='VIZZ'
  411.          LESOBL(16)='VIXY'
  412.          LESOBL(17)='VIXZ'
  413.          LESOBL(18)='VIYZ'
  414.          LESOBL(19)='KVXX'
  415.          LESOBL(20)='KVYY'
  416.          LESOBL(21)='KVZZ'
  417.          LESOBL(22)='KVXY'
  418.          LESOBL(23)='KVXZ'
  419.          LESOBL(24)='KVYZ'
  420.          LESOBL(25)='KDXX'
  421.          LESOBL(26)='KDYY'
  422.          LESOBL(27)='KDZZ'
  423.          LESOBL(28)='KDXY'
  424.          LESOBL(29)='KDXZ'
  425.          LESOBL(30)='KDYZ'
  426.       ENDIF
  427.       GOTO 666
  428. C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  429.  1043 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1044
  430.         IF (MATEPL.EQ.12) THEN
  431.           NBROBL=7
  432.           SEGINI,NOMID
  433.           LESOBL(1)='EPSE'
  434.           LESOBL(2)='VMXX'
  435.           LESOBL(3)='VMYY'
  436.           LESOBL(4)='VMZZ'
  437.           LESOBL(5)='XMXX'
  438.           LESOBL(6)='XMYY'
  439.           LESOBL(7)='XMZZ'
  440.         ELSE IF (MATEPL.EQ.17) THEN
  441.           NBROBL=18
  442.           SEGINI,NOMID
  443.           LESOBL( 1)='EPSE'
  444.           LESOBL( 2)='VHP1'
  445.           LESOBL( 3)='VLP2'
  446.           LESOBL( 4)='VLP4'
  447.           LESOBL( 5)='VMXX'
  448.           LESOBL( 6)='VMYY'
  449.           LESOBL( 7)='VMZZ'
  450.           LESOBL( 8)='VP1M'
  451.           LESOBL( 9)='VHWK'
  452.           LESOBL(10)='VIXX'
  453.           LESOBL(11)='VIYY'
  454.           LESOBL(12)='VIZZ'
  455.           LESOBL(13)='KVXX'
  456.           LESOBL(14)='KVYY'
  457.           LESOBL(15)='KVZZ'
  458.           LESOBL(16)='KDXX'
  459.           LESOBL(17)='KDYY'
  460.           LESOBL(18)='KDZZ'
  461.         ELSE
  462.           NBROBL=4
  463.           SEGINI,NOMID
  464.           LESOBL(1)='EPSE'
  465.           LESOBL(2)='VMXX'
  466.           LESOBL(3)='VMYY'
  467.           LESOBL(4)='VMZZ'
  468.         ENDIF
  469.         GOTO 666
  470. C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  471.  1044 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999
  472.         IF (MATEPL.EQ.12) THEN
  473.           NBROBL=7
  474.           SEGINI,NOMID
  475.           LESOBL(1)='EPSE'
  476.           LESOBL(2)='VMRR'
  477.           LESOBL(3)='VMZZ'
  478.           LESOBL(4)='VMTT'
  479.           LESOBL(5)='XMRR'
  480.           LESOBL(6)='XMZZ'
  481.           LESOBL(7)='XMTT'
  482.         ELSE IF (MATEPL.EQ.17) THEN
  483.           NBROBL=18
  484.           SEGINI,NOMID
  485.           LESOBL( 1)='EPSE'
  486.           LESOBL( 2)='VHP1'
  487.           LESOBL( 3)='VLP2'
  488.           LESOBL( 4)='VLP4'
  489.           LESOBL( 5)='VMRR'
  490.           LESOBL( 6)='VMZZ'
  491.           LESOBL( 7)='VMTT'
  492.           LESOBL( 8)='VP1M'
  493.           LESOBL( 9)='VHWK'
  494.           LESOBL(10)='VIRR'
  495.           LESOBL(11)='VIZZ'
  496.           LESOBL(12)='VITT'
  497.           LESOBL(13)='KVRR'
  498.           LESOBL(14)='KVZZ'
  499.           LESOBL(15)='KVTT'
  500.           LESOBL(16)='KDRR'
  501.           LESOBL(17)='KDZZ'
  502.           LESOBL(18)='KDTT'
  503.         ELSE
  504.           NBROBL=4
  505.           SEGINI,NOMID
  506.           LESOBL(1)='EPSE'
  507.           LESOBL(2)='VMRR'
  508.           LESOBL(3)='VMZZ'
  509.           LESOBL(4)='VMTT'
  510.         ENDIF
  511.         GOTO 666
  512. C
  513.  44   CONTINUE
  514.       IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 999
  515.       IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3)
  516.      &    GOTO 1330
  517. C
  518. C     CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  519. C      OU DEFORMATIONS PLANES GENERALISEES
  520. C
  521.       NBROBL=6
  522.       SEGINI,NOMID
  523.       LESOBL(1)='EPSE'
  524.       LESOBL(2)='VIXX'
  525.       LESOBL(3)='VIYY'
  526.       LESOBL(4)='VIZZ'
  527.       LESOBL(5)='VIXY'
  528.       LESOBL(6)='VHOR'
  529.       GOTO 666
  530. C
  531.  1330 IF (IFOUR.NE.0)  GOTO 1331
  532. C
  533. C     CAS AXISYMETRIQUE
  534. C
  535.       NBROBL=6
  536.       SEGINI,NOMID
  537.       LESOBL(1)='EPSE'
  538.       LESOBL(2)='VIRR'
  539.       LESOBL(3)='VIZZ'
  540.       LESOBL(4)='VITT'
  541.       LESOBL(5)='VIRZ'
  542.       LESOBL(6)='VHOR'
  543.       GOTO 666
  544. C
  545.  1331 IF(IFOUR.NE.2) GOTO 1332
  546. C
  547. C     CAS TRIDIMENSIONNEL
  548. C
  549.       NBROBL=8
  550.       SEGINI NOMID
  551.       LESOBL(1)='EPSE'
  552.       LESOBL(2)='VIXX'
  553.       LESOBL(3)='VIYY'
  554.       LESOBL(4)='VIZZ'
  555.       LESOBL(5)='VIXY'
  556.       LESOBL(6)='VIXZ'
  557.       LESOBL(7)='VIYZ'
  558.       LESOBL(8)='VHOR'
  559.       GOTO 666
  560. C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  561.  1332 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1333
  562.         NBROBL=5
  563.         SEGINI,NOMID
  564.         LESOBL(1)='EPSE'
  565.         LESOBL(2)='VIXX'
  566.         LESOBL(3)='VIYY'
  567.         LESOBL(4)='VIZZ'
  568.         LESOBL(5)='VHOR'
  569.         GOTO 666
  570. C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  571.  1333 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999
  572.         NBROBL=5
  573.         SEGINI,NOMID
  574.         LESOBL(1)='EPSE'
  575.         LESOBL(2)='VIRR'
  576.         LESOBL(3)='VIZZ'
  577.         LESOBL(4)='VITT'
  578.         LESOBL(5)='VHOR'
  579.         GOTO 666
  580. C
  581.  45   CONTINUE
  582.       IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 999
  583.       IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3)
  584.      &    GOTO 1430
  585. C
  586. C     CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  587. C      OU DEFORMATIONS PLANES GENERALISEES
  588. C
  589.       NBROBL=8
  590.       SEGINI NOMID
  591.       LESOBL(1)='EPSE'
  592.       LESOBL(2)='VIXX'
  593.       LESOBL(3)='VIYY'
  594.       LESOBL(4)='VIZZ'
  595.       LESOBL(5)='VIXY'
  596.       LESOBL(6)='GRAI'
  597.       LESOBL(7)='DENE'
  598.       LESOBL(8)='VHOR'
  599.       GOTO 666
  600. C
  601.  1430 IF (IFOUR.NE.0)  GOTO 1431
  602. C
  603. C     CAS AXISYMETRIQUE
  604. C
  605.       NBROBL=8
  606.       SEGINI NOMID
  607.       LESOBL(1)='EPSE'
  608.       LESOBL(2)='VIRR'
  609.       LESOBL(3)='VIZZ'
  610.       LESOBL(4)='VITT'
  611.       LESOBL(5)='VIRZ'
  612.       LESOBL(6)='GRAI'
  613.       LESOBL(7)='DENE'
  614.       LESOBL(8)='VHOR'
  615.       GOTO 666
  616. C
  617.  1431 IF(IFOUR.NE.2) GOTO 1432
  618. C
  619. C     CAS TRIDIMENSIONNEL
  620. C
  621.       NBROBL=1
  622.       SEGINI NOMID
  623.       LESOBL(1)='EPSE'
  624.       LESOBL(2)='VIXX'
  625.       LESOBL(3)='VIYY'
  626.       LESOBL(4)='VIZZ'
  627.       LESOBL(5)='VIXY'
  628.       LESOBL(6)='VIXZ'
  629.       LESOBL(7)='VIYZ'
  630.       LESOBL(8)='GRAI'
  631.       LESOBL(9)='DENE'
  632.       LESOBL(10)='VHOR'
  633.       GOTO 666
  634. C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  635.  1432 IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1433
  636.         NBROBL=7
  637.         SEGINI,NOMID
  638.         LESOBL(1)='EPSE'
  639.         LESOBL(2)='VIXX'
  640.         LESOBL(3)='VIYY'
  641.         LESOBL(4)='VIZZ'
  642.         LESOBL(5)='GRAI'
  643.         LESOBL(6)='DENE'
  644.         LESOBL(7)='VHOR'
  645.         GOTO 666
  646. C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  647.  1433 IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 999
  648.         NBROBL=7
  649.         SEGINI,NOMID
  650.         LESOBL(1)='EPSE'
  651.         LESOBL(2)='VIRR'
  652.         LESOBL(3)='VIZZ'
  653.         LESOBL(4)='VITT'
  654.         LESOBL(5)='GRAI'
  655.         LESOBL(6)='DENE'
  656.         LESOBL(7)='VHOR'
  657.         GOTO 666
  658. C
  659.  1001 IF(MFR.NE.3)   GOTO 1003
  660. C
  661. C     COQUE
  662. C
  663.       IF(NPINT.EQ.0)THEN
  664. C     COQUE GLOBALE
  665.       IF (IFOUR.EQ.2.OR.IFOUR.EQ.1)  THEN
  666. C
  667. C     CAS TRIDIMENSIONNEL    FOURIER
  668. C
  669.       NBROBL=7
  670.       IF(MATEPL.EQ.12) NBROBL=13
  671.       IF(MATEPL.EQ.17) NBROBL=19
  672.       SEGINI NOMID
  673.       LESOBL(1)='EPSE'
  674.       LESOBL(2)='VN11'
  675.       LESOBL(3)='VN22'
  676.       LESOBL(4)='VN12'
  677.       LESOBL(5)='VM11'
  678.       LESOBL(6)='VM22'
  679.       LESOBL(7)='VM12'
  680.       IF(MATEPL.EQ.12) THEN
  681.          LESOBL(8)='XN11'
  682.          LESOBL(9)='XN22'
  683.          LESOBL(10)='XN12'
  684.          LESOBL(11)='XM11'
  685.          LESOBL(12)='XM22'
  686.          LESOBL(13)='XM12'
  687.       ELSE IF(MATEPL.EQ.17) THEN
  688.          LESOBL(2)='VHP1'
  689.          LESOBL(3)='VLP2'
  690.          LESOBL(4)='VLP4'
  691.          LESOBL(5)='VN11'
  692.          LESOBL(6)='VN22'
  693.          LESOBL(7)='VN12'
  694.          LESOBL(8)='VM11'
  695.          LESOBL(9)='VM22'
  696.          LESOBL(10)='VM12'
  697.          LESOBL(11)='VP1M'
  698.          LESOBL(12)='VHWK'
  699.          LESOBL(13)='VEP1'
  700.          LESOBL(14)='VISS'
  701.          LESOBL(15)='VITT'
  702.          LESOBL(16)='VIST'
  703.          LESOBL(17)='VRSS'
  704.          LESOBL(18)='VRTT'
  705.          LESOBL(19)='VRST'
  706.       ENDIF
  707. C
  708.       ELSE IF(IFOUR.EQ.0) THEN
  709. C
  710. C    CAS AXISYMETRIQUE
  711. C
  712.       NBROBL=5
  713.       IF(MATEPL.EQ.12) NBROBL=9
  714.       IF(MATEPL.EQ.17) NBROBL=15
  715.       SEGINI NOMID
  716.       LESOBL(1)='EPSE'
  717.       LESOBL(2)='VN11'
  718.       LESOBL(3)='VN22'
  719.       LESOBL(4)='VM11'
  720.       LESOBL(5)='VM22'
  721.       IF(MATEPL.EQ.12) THEN
  722.          LESOBL(6)='XN11'
  723.          LESOBL(7)='XN22'
  724.          LESOBL(8)='XM11'
  725.          LESOBL(9)='XM22'
  726.       ELSE IF(MATEPL.EQ.17) THEN
  727.          LESOBL(2)='VHP1'
  728.          LESOBL(3)='VLP2'
  729.          LESOBL(4)='VLP4'
  730.          LESOBL(5)='VN11'
  731.          LESOBL(6)='VN22'
  732.          LESOBL(7)='VM11'
  733.          LESOBL(8)='VM22'
  734.          LESOBL(9)='VP1M'
  735.          LESOBL(10)='VHWK'
  736.          LESOBL(11)='VEP1'
  737.          LESOBL(12)='VISS'
  738.          LESOBL(13)='VITT'
  739.          LESOBL(14)='VRSS'
  740.          LESOBL(15)='VRTT'
  741.       ENDIF
  742. C
  743.       ELSE IF(IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN
  744. C
  745. C    CAS CONTRAINTES OU DEFORMATIONS PLANES
  746. C     OU DEFORMATIONS PLANES GENERALISEES
  747. C
  748.       NBROBL=5
  749.       IF(MATEPL.EQ.12) NBROBL=9
  750.       IF(MATEPL.EQ.17) NBROBL=15
  751.       SEGINI NOMID
  752.       LESOBL(1)='VISE'
  753.       LESOBL(2)='VN11'
  754.       LESOBL(3)='VNZZ'
  755.       LESOBL(4)='VM11'
  756.       LESOBL(5)='VMZZ'
  757.       IF(MATEPL.EQ.12) THEN
  758.          LESOBL(6)='XN11'
  759.          LESOBL(7)='NZZX'
  760.          LESOBL(8)='XM11'
  761.          LESOBL(9)='MZZX'
  762.       ELSE IF (MATEPL.EQ.17) THEN
  763.          LESOBL(2)='VHP1'
  764.          LESOBL(3)='VLP2'
  765.          LESOBL(4)='VLP4'
  766.          LESOBL(5)='VN11'
  767.          LESOBL(6)='VNZZ'
  768.          LESOBL(7)='VM11'
  769.          LESOBL(8)='VMZZ'
  770.          LESOBL(9)='VP1M'
  771.          LESOBL(10)='VHWK'
  772.          LESOBL(11)='VEP1'
  773.          LESOBL(12)='VISS'
  774.          LESOBL(13)='VIZZ'
  775.          LESOBL(14)='VRSS'
  776.          LESOBL(15)='VRZZ'
  777.       ENDIF
  778.       ENDIF
  779.       GOTO 666
  780.       ELSE
  781. C     COQUE INTEGREE
  782.         IF(IFOUR.EQ.2)THEN
  783.          NBROBL=5
  784.          IF(MATEPL.EQ.12) NBROBL=9
  785.          IF(MATEPL.EQ.17) NBROBL=15
  786.          SEGINI NOMID
  787.          LESOBL(1)='EPSE'
  788.          LESOBL(2)='VMSS'
  789.          LESOBL(3)='VMTT'
  790.          LESOBL(4)='VMNN'
  791.          LESOBL(5)='VMST'
  792.          IF(MATEPL.EQ.12) THEN
  793.            LESOBL(6)='XMSS'
  794.            LESOBL(7)='XMTT'
  795.            LESOBL(8)='XMNN'
  796.            LESOBL(9)='XMST'
  797.          ELSE IF (MATEPL.EQ.17) THEN
  798.            LESOBL(2)='VHP1'
  799.            LESOBL(3)='VLP2'
  800.            LESOBL(4)='VLP4'
  801.            LESOBL(5)='VMSS'
  802.            LESOBL(6)='VMTT'
  803.            LESOBL(7)='VMNN'
  804.            LESOBL(8)='VMST'
  805.            LESOBL(9)='VP1M'
  806.            LESOBL(10)='VHWK'
  807.            LESOBL(11)='VEP1'
  808.            LESOBL(12)='VISS'
  809.            LESOBL(13)='VITT'
  810.            LESOBL(14)='VINN'
  811.            LESOBL(15)='VIST'
  812.          ENDIF
  813.          GOTO 666
  814.         ELSE
  815.          GOTO 999
  816.         ENDIF
  817.       ENDIF
  818. C
  819.  1003 IF(MFR.NE.5)   GOTO 1005
  820. C
  821. C     COQUE  EPAISSE
  822. C
  823.       IF (IFOUR.NE.2)  GOTO 999
  824. C
  825. C     CAS TRIDIMENSIONNEL
  826. C
  827.       NBROBL=6
  828.       IF(MATEPL.EQ.12) NBROBL=11
  829.       IF(MATEPL.EQ.17) NBROBL=30
  830.       SEGINI NOMID
  831.       LESOBL(1)='EPSE'
  832.       LESOBL(2)='VMSS'
  833.       LESOBL(3)='VMTT'
  834.       LESOBL(4)='VMST'
  835.       LESOBL(5)='VMSN'
  836.       LESOBL(6)='VMTN'
  837.       IF(MATEPL.EQ.12) THEN
  838.          LESOBL(7)='XMSS'
  839.          LESOBL(8)='XMTT'
  840.          LESOBL(9)='XMST'
  841.          LESOBL(10)='XMSN'
  842.          LESOBL(11)='XMTN'
  843.       ELSE IF(MATEPL.EQ.17) THEN
  844.          LESOBL(2)='VHP1'
  845.          LESOBL(3)='VLP2'
  846.          LESOBL(4)='VLP4'
  847.          LESOBL(5)='VMSS'
  848.          LESOBL(6)='VMTT'
  849.          LESOBL(7)='VMNN'
  850.          LESOBL(8)='VMST'
  851.          LESOBL(9)='VMSN'
  852.          LESOBL(10)='VMTN'
  853.          LESOBL(11)='VP1M'
  854.          LESOBL(12)='VHWK'
  855.          LESOBL(13)='VISS'
  856.          LESOBL(14)='VITT'
  857.          LESOBL(15)='VINN'
  858.          LESOBL(16)='VIST'
  859.          LESOBL(17)='VISN'
  860.          LESOBL(18)='VITN'
  861.          LESOBL(19)='KVSS'
  862.          LESOBL(20)='KVTT'
  863.          LESOBL(21)='KVNN'
  864.          LESOBL(22)='KVST'
  865.          LESOBL(23)='KVSN'
  866.          LESOBL(24)='KVTN'
  867.          LESOBL(25)='KDSS'
  868.          LESOBL(26)='KDTT'
  869.          LESOBL(27)='KDNN'
  870.          LESOBL(28)='KDST'
  871.          LESOBL(29)='KDSN'
  872.          LESOBL(30)='KDTN'
  873.       ENDIF
  874.       GOTO 666
  875. C
  876.  1005 IF(MFR.NE.7.AND.MFR.NE.13) GOTO 1007
  877. C
  878. C     POUTRE ET TUYAU
  879. C
  880.       IF (IFOUR.NE.2) GOTO 999
  881. C
  882. C     CAS TRIDIMENSIONNEL
  883. C
  884.       NBROBL=7
  885.       IF(MATEPL.EQ.12) NBROBL=13
  886.       IF(MATEPL.EQ.17) NBROBL=19
  887.       SEGINI NOMID
  888.       LESOBL(1)='EPSE'
  889.       LESOBL(2)='VFFX'
  890.       LESOBL(3)='VFFY'
  891.       LESOBL(4)='VFFZ'
  892.       LESOBL(5)='VOMX'
  893.       LESOBL(6)='VOMY'
  894.       LESOBL(7)='VOMZ'
  895.       IF(MATEPL.EQ.12) THEN
  896.          LESOBL(8)='XEFX'
  897.          LESOBL(9)='XEFY'
  898.          LESOBL(10)='XEFZ'
  899.          LESOBL(11)='XMOX'
  900.          LESOBL(12)='XMOY'
  901.          LESOBL(13)='XMOZ'
  902.       ELSE IF(MATEPL.EQ.17) THEN
  903.          LESOBL(2)='VHP1'
  904.          LESOBL(3)='VLP2'
  905.          LESOBL(4)='VLP4'
  906.          LESOBL(5)='VFFX'
  907.          LESOBL(6)='VFFY'
  908.          LESOBL(7)='VFFZ'
  909.          LESOBL(8)='VOMX'
  910.          LESOBL(9)='VOMY'
  911.          LESOBL(10)='VOMZ'
  912.          LESOBL(11)='VP1M'
  913.          LESOBL(12)='VHWK'
  914.          LESOBL(13)='VEP1'
  915.          LESOBL(14)='VEPS'
  916.          LESOBL(15)='VGXY'
  917.          LESOBL(16)='VGXZ'
  918.          LESOBL(17)='VHCX'
  919.          LESOBL(18)='VHCY'
  920.          LESOBL(19)='VHCZ'
  921.       ENDIF
  922.       GOTO 666
  923. C
  924.  1007 IF(MFR.NE.9) GOTO 1009
  925. C
  926. C     COQUE CISAILLEMENT TRANSVERSE
  927. C
  928.       IF(NPINT.EQ.0)THEN
  929.        IF (IFOUR.NE.2) GOTO 999
  930. C
  931. C     CAS TRIDIMENSIONNEL
  932. C
  933.        NBROBL=9
  934.        IF(MATEPL.EQ.12) NBROBL=17
  935.        IF(MATEPL.EQ.17) NBROBL=23
  936.        SEGINI NOMID
  937.        LESOBL(1)='EPSE'
  938.        LESOBL(2)='VN11'
  939.        LESOBL(3)='VN22'
  940.        LESOBL(4)='VN12'
  941.        LESOBL(5)='VM11'
  942.        LESOBL(6)='VM22'
  943.        LESOBL(7)='VM12'
  944.        LESOBL(8)='VHV1'
  945.        LESOBL(9)='VHV2'
  946.        IF(MATEPL.EQ.12) THEN
  947.          LESOBL(10)='XN11'
  948.          LESOBL(11)='XN22'
  949.          LESOBL(12)='XN12'
  950.          LESOBL(13)='XM11'
  951.          LESOBL(14)='XM22'
  952.          LESOBL(15)='XM12'
  953.          LESOBL(16)='VXV1'
  954.          LESOBL(17)='VXV2'
  955.        ELSE IF(MATEPL.EQ.17) THEN
  956.          LESOBL(2)='VHP1'
  957.          LESOBL(3)='VLP2'
  958.          LESOBL(4)='VLP4'
  959.          LESOBL(5)='VN11'
  960.          LESOBL(6)='VN22'
  961.          LESOBL(7)='VN12'
  962.          LESOBL(8)='VM11'
  963.          LESOBL(9)='VM22'
  964.          LESOBL(10)='VM12'
  965.          LESOBL(11)='VHV1'
  966.          LESOBL(12)='VHV2'
  967.          LESOBL(13)='VP1M'
  968.          LESOBL(14)='VHWK'
  969.          LESOBL(15)='VEP1'
  970.          LESOBL(16)='VISS'
  971.          LESOBL(17)='VITT'
  972.          LESOBL(18)='VIST'
  973.          LESOBL(19)='VRSS'
  974.          LESOBL(20)='VRTT'
  975.          LESOBL(21)='VRST'
  976.          LESOBL(22)='VISN'
  977.          LESOBL(23)='VITN'
  978.        ENDIF
  979.        GOTO 666
  980.       ELSE
  981.        GOTO 999
  982.       ENDIF
  983. C
  984.  1009 CONTINUE
  985. C
  986. C     FORMULATION MEMBRANE
  987. C
  988.       IF(MFR.NE.25) GOTO 1025
  989.       NBROBL=4
  990.       IF(MATEPL.EQ.12) NBROBL=7
  991.       IF(MATEPL.EQ.17) NBROBL=13
  992.       SEGINI NOMID
  993.       LESOBL(1)='EPSE'
  994.       LESOBL(2)='VMSS'
  995.       LESOBL(3)='VMTT'
  996.       LESOBL(4)='VMST'
  997.       IF(MATEPL.EQ.12) THEN
  998.          LESOBL(5)='XMSS'
  999.          LESOBL(6)='XMTT'
  1000.          LESOBL(7)='XMST'
  1001.       ELSE IF(MATEPL.EQ.17) THEN
  1002.          LESOBL(2)='VHP1'
  1003.          LESOBL(3)='VLP2'
  1004.          LESOBL(4)='VLP4'
  1005.          LESOBL(5)='VMSS'
  1006.          LESOBL(6)='VMTT'
  1007.          LESOBL(7)='VMST'
  1008.          LESOBL(8)='VP1M'
  1009.          LESOBL(9)='VHWK'
  1010.          LESOBL(10)='VEP1'
  1011.          LESOBL(11)='VISS'
  1012.          LESOBL(12)='VITT'
  1013.          LESOBL(13)='VIST'
  1014.       ENDIF
  1015.       GOTO 666
  1016. C
  1017. C     FORMULATION UNIAXIALE
  1018. C
  1019.  1025 CONTINUE
  1020.       IF(MFR.NE.27) GOTO 999
  1021.       NBROBL=2
  1022.       IF(MATEPL.EQ.12) NBROBL=3
  1023.       IF(MATEPL.EQ.17) NBROBL=9
  1024.       SEGINI NOMID
  1025.       LESOBL(1)='EPSE'
  1026.       LESOBL(2)='VFFX'
  1027.       IF(MATEPL.EQ.12) THEN
  1028.        LESOBL(3)='XEFX'
  1029.       ELSE IF(MATEPL.EQ.17) THEN
  1030.          LESOBL(2)='VHP1'
  1031.          LESOBL(3)='VLP2'
  1032.          LESOBL(4)='VLP4'
  1033.          LESOBL(5)='VFFX'
  1034.          LESOBL(6)='VP1M'
  1035.          LESOBL(7)='VHWK'
  1036.          LESOBL(8)='VEP1'
  1037.          LESOBL(9)='VISS'
  1038.       ENDIF
  1039.       GOTO 666
  1040. C
  1041.    9  CONTINUE
  1042.       NBRFAC=17
  1043.       SEGINI NOMID
  1044.       DO 991 I=1,NBRFAC
  1045.          LESFAC(I)=NOMBET(I)
  1046.  991  CONTINUE
  1047.       GOTO 666
  1048. C
  1049.   14  CONTINUE
  1050.       NBROBL=5
  1051.       SEGINI NOMID
  1052.       LESOBL(1)=NOMTUP(1)
  1053.       LESOBL(2)=NOMTUP(2)
  1054.       LESOBL(3)=NOMTUP(3)
  1055.       LESOBL(4)=NOMTUP(4)
  1056.       LESOBL(5)=NOMTUP(5)
  1057.       GOTO 666
  1058. C
  1059. C  MATERIAU UBIQUITOUS
  1060. C
  1061.   28  CONTINUE
  1062.       NBROBL=7
  1063.       SEGINI NOMID
  1064.       LESOBL(1)='EPSE'
  1065.       LESOBL(2)='EPN1'
  1066.       LESOBL(3)='GAP1'
  1067.       LESOBL(4)='LAM1'
  1068.       LESOBL(5)='EPN2'
  1069.       LESOBL(6)='GAP2'
  1070.       LESOBL(7)='LAM2'
  1071.       GOTO 666
  1072. C
  1073. C  MATERIAU VISCOPLASTIQUE ENDOMMAGEABLE
  1074. C
  1075.   29  CONTINUE
  1076.       NBROBL=3
  1077.       SEGINI NOMID
  1078.       LESOBL(1)='EPSE'
  1079.       LESOBL(2)='VVIR'
  1080.       LESOBL(3)='VHWD'
  1081.       GOTO 666
  1082. C
  1083. C  MATERIAU GLOBAL POUR LES POUTRES UNIQUEMENT
  1084. C
  1085. 32    CONTINUE
  1086.       IF(MFR.NE.7) GOTO 999
  1087.       NBROBL=31
  1088.       SEGINI NOMID
  1089. C
  1090.       LESOBL(1)='EPSE'
  1091. C
  1092.       LESOBL(2)='FLGC'
  1093.       LESOBL(3)='RCIN'
  1094.       LESOBL(4)='FMXC'
  1095.       LESOBL(5)='DMXC'
  1096.       LESOBL(6)='FMNC'
  1097.       LESOBL(7)='DMNC'
  1098.       LESOBL(8)='DEPC'
  1099.       LESOBL(9)='XINT'
  1100.       LESOBL(10)='PLAC'
  1101. C
  1102.       LESOBL(11)='FLGF'
  1103.       LESOBL(12)='RFIN'
  1104.       LESOBL(13)='FMXF'
  1105.       LESOBL(14)='DMXF'
  1106.       LESOBL(15)='FMNF'
  1107.       LESOBL(16)='DMNF'
  1108.       LESOBL(17)='X00F'
  1109.       LESOBL(18)='DEPF'
  1110.       LESOBL(19)='PLAF'
  1111. C
  1112.       LESOBL(20)='FLGT'
  1113.       LESOBL(21)='RTIN'
  1114.       LESOBL(22)='FMXT'
  1115.       LESOBL(23)='DMXT'
  1116.       LESOBL(24)='FMNT'
  1117.       LESOBL(25)='DMNT'
  1118.       LESOBL(26)='X01T'
  1119.       LESOBL(27)='X02T'
  1120.       LESOBL(28)='FINT'
  1121.       LESOBL(29)='FLIMT'
  1122.       LESOBL(30)='DEPT'
  1123.       LESOBL(31)='PLAT'
  1124.       GOTO 666
  1125. C
  1126. C   CAM-CLAY
  1127. C
  1128.   33  CONTINUE
  1129.       NBROBL=2
  1130.       SEGINI NOMID
  1131.       LESOBL(1)='EPSE'
  1132.       LESOBL(2)='TRAP'
  1133.       GOTO 666
  1134. C
  1135. C  MATERIAU MOHR COULOMB
  1136. C
  1137.   34  CONTINUE
  1138.       IF (MFR.EQ.35) THEN
  1139.        NBROBL=4
  1140.        SEGINI NOMID
  1141.        LESOBL(1)='EPSE'
  1142.        LESOBL(2)='EPOU'
  1143.        LESOBL(3)='STAT'
  1144.        LESOBL(4)='LAM1'
  1145.        GOTO 666
  1146.       ELSE IF (MFR.EQ.75) THEN
  1147.        NBROBL=9
  1148.        SEGINI NOMID
  1149.        LESOBL(1)='EPSE'
  1150.        LESOBL(2)='EPOU'
  1151.        LESOBL(3)='STAT'
  1152.        LESOBL(4)='LAM1'
  1153.        LESOBL(5)='PLA1'
  1154.        LESOBL(6)='PLA2'
  1155.        LESOBL(7)='PLA3'
  1156.        LESOBL(8)='EPCO'
  1157.        LESOBL(9)='LAM3'
  1158.        GOTO 666
  1159.       ELSE
  1160.        GOTO 999
  1161.       ENDIF
  1162. C
  1163. C  MATERIAU JOINT-DILATANT  (FORMULATION JOINT 2D-PLAN)
  1164. C
  1165.   35  CONTINUE
  1166.       IF(MFR.NE.35) GOTO 999
  1167. C
  1168.       IF (IFOUR.NE.-2.AND.IFOUR.NE.-1) GOTO 999
  1169. C
  1170.       NBROBL=10
  1171.       SEGINI NOMID
  1172.       LESOBL(1) ='VDS0'
  1173.       LESOBL(2) ='VDN0'
  1174.       LESOBL(3) ='VRSN'
  1175.       LESOBL(4) ='VDRN'
  1176.       LESOBL(5) ='DPSN'
  1177.       LESOBL(6) ='VDPN'
  1178.       LESOBL(7) ='HC11'
  1179.       LESOBL(8) ='HC12'
  1180.       LESOBL(9) ='HC21'
  1181.       LESOBL(10)='HC22'
  1182.       GOTO 666
  1183. C
  1184. C  MATERIAU BETON_AXI
  1185. C
  1186.   36  CONTINUE
  1187.       NBROBL=10
  1188.       SEGINI NOMID
  1189.       LESOBL(1) ='EPSE'
  1190.       LESOBL(2) ='DAM1'
  1191.       LESOBL(3) ='DAM2'
  1192.       LESOBL(4) ='DAM3'
  1193.       LESOBL(5) ='VHGL'
  1194.       LESOBL(6) ='LAM1'
  1195.       LESOBL(7) ='LAM2'
  1196.       LESOBL(8) ='LAM3'
  1197.       LESOBL(9) ='LAM4'
  1198.       LESOBL(10)='LAM5'
  1199.       GOTO 666
  1200. C
  1201. C  MATERIAU DE GURSON
  1202. C
  1203.   38  CONTINUE
  1204.       IF ((IFOUR.NE.0).AND.(IFOUR.NE.2)
  1205.      &                .AND.(IFOUR.NE.-1)) GOTO 999
  1206.       NBROBL=3
  1207.       SEGINI NOMID
  1208.       LESOBL(1)='EPSE'
  1209.       LESOBL(2)='VPOR'
  1210.       LESOBL(3)='VHNS'
  1211.       GOTO 666
  1212. C
  1213. C      MATERIAU BETON_UNI
  1214. C
  1215.   39  CONTINUE
  1216.       NBROBL=6
  1217.       SEGINI NOMID
  1218.       LESOBL( 1) ='EPSO'
  1219.       LESOBL( 2) ='EMAX'
  1220.       LESOBL( 3) ='EMIN'
  1221.       LESOBL( 4) ='STMN'
  1222.       LESOBL( 5) ='VHNG'
  1223.       LESOBL( 6) ='VHND'
  1224.       GOTO 666
  1225. C
  1226. C      MATERIAU ACIER_UNI
  1227. C
  1228.   40   CONTINUE
  1229.        NBROBL=12
  1230.        SEGINI NOMID
  1231.        LESOBL( 1) ='FLAG'
  1232.        LESOBL( 2) ='EPSO'
  1233.        LESOBL( 3) ='RFAC'
  1234.        LESOBL( 4) ='VHNG'
  1235.        LESOBL( 5) ='EPLR'
  1236.        LESOBL( 6) ='EPIP'
  1237.        LESOBL( 7) ='EPMP'
  1238.        LESOBL( 8) ='EPMN'
  1239.        LESOBL( 9) ='STLR'
  1240.        LESOBL(10) ='STIP'
  1241.        LESOBL(11) ='STMP'
  1242.        LESOBL(12) ='STMN'
  1243.        GO TO 666
  1244. C
  1245. C     FORMULATION SECTION
  1246. C
  1247.   41  CONTINUE
  1248.        NBROBL=2
  1249.        SEGINI NOMID
  1250.        LESOBL(1) ='VONS'
  1251.        LESOBL(2) ='VAIS'
  1252.        GOTO 666
  1253. C-----------------------------
  1254. C     FORMULATION OTTOSEN
  1255. C-----------------------------
  1256.   42  CONTINUE
  1257. C
  1258. C-------CAS TRIDIMENSIONNEL MASSIF------
  1259. C
  1260.       IF (IFOUR.EQ.2.AND.MFR.EQ.1) THEN
  1261.          NBROBL=20
  1262.          SEGINI NOMID
  1263.          LESOBL(1) ='EPSE'
  1264.          LESOBL(2) ='W1MA'
  1265.          LESOBL(3) ='W2MA'
  1266.          LESOBL(4) ='W3MA'
  1267.          LESOBL(5) ='W1  '
  1268.          LESOBL(6) ='W2  '
  1269.          LESOBL(7) ='W3  '
  1270.          LESOBL(8) ='VF1X'
  1271.          LESOBL(9) ='VF1Y'
  1272.          LESOBL(10)='VF1Z'
  1273.          LESOBL(11)='VF2X'
  1274.          LESOBL(12)='VF2Y'
  1275.          LESOBL(13)='VF2Z'
  1276.          LESOBL(14)='VF3X'
  1277.          LESOBL(15)='VF3Y'
  1278.          LESOBL(16)='VF3Z'
  1279.          LESOBL(17)='IVL1'
  1280.          LESOBL(18)='IVL2'
  1281.          LESOBL(19)='IVL3'
  1282.          LESOBL(20)='LBDC'
  1283.          GOTO 666
  1284.       ENDIF
  1285. C
  1286. C-------CAS DEFO PLANES/AXISYMETRIQUE--------
  1287. C
  1288.       IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3
  1289.      &         .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  1290.          NBROBL=15
  1291.          SEGINI NOMID
  1292.          LESOBL(1) ='EPSE'
  1293.          LESOBL(2) ='W1MA'
  1294.          LESOBL(3) ='W2MA'
  1295.          LESOBL(4) ='EPSM'
  1296.          LESOBL(5) ='W1  '
  1297.          LESOBL(6) ='W2  '
  1298.          LESOBL(7) ='VEPS'
  1299.          LESOBL(8) ='VF1X'
  1300.          LESOBL(9) ='VF1Y'
  1301.          LESOBL(10)='VF2X'
  1302.          LESOBL(11)='VF2Y'
  1303.          LESOBL(12)='IVL1'
  1304.          LESOBL(13)='IVL2'
  1305.          LESOBL(14)='IVL3'
  1306.          LESOBL(15)='LBDC'
  1307.          GOTO 666
  1308.       ENDIF
  1309. C
  1310. C-------CAS CONT PLANES--------
  1311. C -----OU CAS TRIDIMENSIONNEL COQUES------
  1312. C
  1313.       IF (IFOUR.EQ.-2.OR.
  1314.      .   (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  1315.          NBROBL=12
  1316.          SEGINI NOMID
  1317.          LESOBL(1) ='EPSE'
  1318.          LESOBL(2) ='W1MA'
  1319.          LESOBL(3) ='W2MA'
  1320.          LESOBL(4) ='W1  '
  1321.          LESOBL(5) ='W2  '
  1322.          LESOBL(6) ='VF1X'
  1323.          LESOBL(7) ='VF1Y'
  1324.          LESOBL(8) ='VF2X'
  1325.          LESOBL(9) ='VF2Y'
  1326.          LESOBL(10)='IVL1'
  1327.          LESOBL(11)='IVL2'
  1328.          LESOBL(12)='LBDC'
  1329.          GOTO 666
  1330.       ENDIF
  1331. C*OF --> A voir pour le 1D
  1332. C
  1333. C      MATERIAU MAZARS_FIB
  1334. C
  1335.   46  CONTINUE
  1336.       NBROBL=5
  1337.       SEGINI NOMID
  1338.       LESOBL( 1) ='EPTI'
  1339.       LESOBL( 2) ='VHNI'
  1340.       LESOBL( 3) ='VISX'
  1341.       LESOBL( 4) ='VISY'
  1342.       LESOBL( 5) ='VISZ'
  1343.       GOTO 666
  1344. C
  1345. C  MATERIAU AMADEI_SAEB
  1346. C
  1347.   47  CONTINUE
  1348.       IF (MFR.NE.35) GOTO 999
  1349.       NBROBL=7
  1350.       SEGINI NOMID
  1351.       LESOBL( 1) ='EPSE'
  1352.       LESOBL( 2) ='EPOU'
  1353.       LESOBL( 3) ='STAT'
  1354.       LESOBL( 4) ='UEQU'
  1355.       LESOBL( 5) ='EPS1'
  1356.       LESOBL( 6) ='EPS2'
  1357.       LESOBL( 7) ='EPS3'
  1358.       GOTO 666
  1359. C
  1360. C   HUJEUX
  1361. C
  1362.   48  CONTINUE
  1363.       NBROBL=2
  1364.       SEGINI NOMID
  1365.       LESOBL(1)='EPSE'
  1366.       LESOBL(2)='TRAP'
  1367.       GOTO 666
  1368. C
  1369.   49  CONTINUE
  1370.       NBROBL=14
  1371.       SEGINI NOMID
  1372.       LESOBL(1)='EPSE'
  1373.       LESOBL(2)='EPS1'
  1374.       LESOBL(3)='EPS2'
  1375.       LESOBL(4)='EPS3'
  1376.       LESOBL(5)='EPS4'
  1377.       LESOBL(6)='EPS5'
  1378.       LESOBL(7)='EPS6'
  1379.       LESOBL(8)='GTIN'
  1380.       LESOBL(9)='EPP1'
  1381.       LESOBL(10)='EPP2'
  1382.       LESOBL(11)='EPP3'
  1383.       LESOBL(12)='EPP4'
  1384.       LESOBL(13)='EPP5'
  1385.       LESOBL(14)='EPP6'
  1386.       GOTO 666
  1387. C
  1388. C******************************************************
  1389.   97  continue
  1390.  999  CONTINUE
  1391.       SEGINI,NOMID
  1392.  
  1393.   666 CONTINUE
  1394.       IPCOMP=NOMID
  1395.       SEGDES,NOMID
  1396.  
  1397.       RETURN
  1398.       END
  1399.  
  1400.  
  1401.  
  1402.  
  1403.  
  1404.  
  1405.  
  1406.  

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