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

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