Télécharger la plaquette Cast3M


fr en

Télécharger idva6c.eso

Retour à la liste

Numérotation des lignes : 

idva6c

  1. C IDVA6C    SOURCE    FD218221  21/06/10    21:15:27     11030          
  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 IDVA6C (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.       IPCOMP=0
  53.       NBROBL=0
  54.       NBRFAC=0
  55.       NOMID=0
  56.  
  57. C on ne traite ici que les 101 à 150   premiers matepl
  58.  
  59.       GOTO (97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  60.      .      97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  61.      .      97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  62.      .      97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  63.      .      97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  64.      .      101,97,97,104,105,106,97,97,97,97,97,97,97,97,97,97,97,
  65.      .      97,97,120,121,122,97,97,97,97,127,128,97,97,97,97,133,97,
  66.      .      135,97,97,97,97,140,97,142,143,97,145,146,147,148),
  67.      .      MATEPL
  68.  
  69. C
  70. C      MATERIAU UNILATERAL (modèle à fibreFibre)
  71. C
  72.   104 CONTINUE
  73.       NBROBL=8
  74.       SEGINI NOMID
  75.       LESOBL(1)='TANG'
  76.       LESOBL(2)='D1  '
  77.       LESOBL(3)='D2  '
  78.       LESOBL(4)='YLI1'
  79.       LESOBL(5)='YLI2'
  80.       LESOBL(6)='EPS1'
  81.       LESOBL(7)='EPS2'
  82.       LESOBL(8)='EPS3'
  83.       GOTO 666
  84.  
  85. *
  86. ***** BETON URGC fluage  *****
  87.  101  CONTINUE
  88.       NBROBL=43
  89.       SEGINI NOMID
  90.       LESOBL(1)='IFIS'
  91.       LESOBL(2)='ANGL'
  92.       LESOBL(3)='IPLA'
  93.       LESOBL(4)='SIG1'
  94.       LESOBL(5)='SIG2'
  95.       LESOBL(6)='EPS1'
  96.       LESOBL(7)='EPS2'
  97.       LESOBL(8)='S1'
  98.       LESOBL(9)='S2'
  99.       LESOBL(10)='S3'
  100.       LESOBL(11)='S4'
  101.       LESOBL(12)='S5'
  102.       LESOBL(13)='S6'
  103.       LESOBL(14)='S7'
  104.       LESOBL(15)='S8'
  105.       LESOBL(16)='S9'
  106.       LESOBL(17)='S10'
  107.       LESOBL(18)='S11'
  108.       LESOBL(19)='S12'
  109.       LESOBL(20)='S13'
  110.       LESOBL(21)='S14'
  111.       LESOBL(22)='S15'
  112.       LESOBL(23)='S16'
  113.       LESOBL(24)='S17'
  114.       LESOBL(25)='S18'
  115.       LESOBL(26)='S19'
  116.       LESOBL(27)='S20'
  117.       LESOBL(28)='S21'
  118.       LESOBL(29)='S22'
  119.       LESOBL(30)='S23'
  120.       LESOBL(31)='S24'
  121.       LESOBL(32)='S25'
  122.       LESOBL(33)='S26'
  123.       LESOBL(34)='S27'
  124.       LESOBL(35)='S28'
  125.       LESOBL(36)='S29'
  126.       LESOBL(37)='S30'
  127.       LESOBL(38)='S31'
  128.       LESOBL(39)='S32'
  129.       LESOBL(40)='S33'
  130.       LESOBL(41)='S34'
  131.       LESOBL(42)='S35'
  132.       LESOBL(43)='S36'
  133.       GOTO 666
  134. C
  135.  105  CONTINUE
  136.       NBROBL=2
  137.       SEGINI NOMID
  138.       LESOBL(1)='EPSE'
  139.       LESOBL(2)='TFLC'
  140.       GOTO 666
  141.  
  142. C-----------------------------
  143. C     FORMULATION MAXOTT
  144. C-----------------------------
  145.  106  CONTINUE
  146. C
  147. C-------CAS TRIDIMENSIONNEL MASSIF------
  148. C
  149.       IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN
  150.          NBRFAC=4
  151.          NBROBL=27
  152.          SEGINI NOMID
  153.          LESOBL(1) ='EPSE'
  154.          LESOBL(2) ='W1MA'
  155.          LESOBL(3) ='W2MA'
  156.          LESOBL(4) ='W3MA'
  157.          LESOBL(5) ='W1  '
  158.          LESOBL(6) ='W2  '
  159.          LESOBL(7) ='W3  '
  160.          LESOBL(8) ='VF1X'
  161.          LESOBL(9) ='VF1Y'
  162.          LESOBL(10)='VF1Z'
  163.          LESOBL(11)='VF2X'
  164.          LESOBL(12)='VF2Y'
  165.          LESOBL(13)='VF2Z'
  166.          LESOBL(14)='VF3X'
  167.          LESOBL(15)='VF3Y'
  168.          LESOBL(16)='VF3Z'
  169.          LESOBL(17)='IVL1'
  170.          LESOBL(18)='IVL2'
  171.          LESOBL(19)='IVL3'
  172.          LESOBL(20)='LBDC'
  173.          LESOBL(21)='ETIL'
  174.          LESOBL(22)='EPSF'
  175.          LESOBL(23)='SM0 '
  176.          LESOBL(24)='SM1 '
  177.          LESOBL(25)='SM2 '
  178.          LESOBL(26)='SM3 '
  179.          LESOBL(27)='SM4 '
  180. *
  181.          LESFAC(1) ='SM5 '
  182.          LESFAC(2) ='SM6 '
  183.          LESFAC(3) ='SM7 '
  184.          LESFAC(4) ='SM8 '
  185.          GOTO 666
  186.       ENDIF
  187. *
  188. C-------CAS DEFO PLANES/AXISYMETRIQUE--------
  189. C
  190.       IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3
  191.      &         .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  192.          NBRFAC=4
  193.          NBROBL=22
  194.          SEGINI NOMID
  195.          LESOBL(1) ='EPSE'
  196.          LESOBL(2) ='W1MA'
  197.          LESOBL(3) ='W2MA'
  198.          LESOBL(4) ='EPSM'
  199.          LESOBL(5) ='W1  '
  200.          LESOBL(6) ='W2  '
  201.          LESOBL(7) ='VEPS'
  202.          LESOBL(8) ='VF1X'
  203.          LESOBL(9) ='VF1Y'
  204.          LESOBL(10)='VF2X'
  205.          LESOBL(11)='VF2Y'
  206.          LESOBL(12)='IVL1'
  207.          LESOBL(13)='IVL2'
  208.          LESOBL(14)='IVL3'
  209.          LESOBL(15)='LBDC'
  210.          LESOBL(16)='ETIL'
  211.          LESOBL(17)='EPSF'
  212.          LESOBL(18)='SM0 '
  213.          LESOBL(19)='SM1 '
  214.          LESOBL(20)='SM2 '
  215.          LESOBL(21)='SM3 '
  216.          LESOBL(22)='SM4 '
  217. *
  218.          LESFAC(1) ='SM5 '
  219.          LESFAC(2) ='SM6 '
  220.          LESFAC(3) ='SM7 '
  221.          LESFAC(4) ='SM8 '
  222.          GOTO 666
  223.       ENDIF
  224. C
  225. C-------CAS CONT PLANES--------
  226. C -----OU CAS TRIDIMENSIONNEL COQUES------
  227.       IF (IFOUR.EQ.-2.OR.
  228.      .   (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  229.          NBRFAC=4
  230.          NBROBL=19
  231.          SEGINI NOMID
  232.          LESOBL(1) ='EPSE'
  233.          LESOBL(2) ='W1MA'
  234.          LESOBL(3) ='W2MA'
  235.          LESOBL(4) ='W1  '
  236.          LESOBL(5) ='W2  '
  237.          LESOBL(6) ='VF1X'
  238.          LESOBL(7) ='VF1Y'
  239.          LESOBL(8) ='VF2X'
  240.          LESOBL(9) ='VF2Y'
  241.          LESOBL(10)='IVL1'
  242.          LESOBL(11)='IVL2'
  243.          LESOBL(12)='LBDC'
  244.          LESOBL(13)='ETIL'
  245.          LESOBL(14)='EPSF'
  246.          LESOBL(15)='SM0 '
  247.          LESOBL(16)='SM1 '
  248.          LESOBL(17)='SM2 '
  249.          LESOBL(18)='SM3 '
  250.          LESOBL(19)='SM4 '
  251.          LESFAC(1) ='SM5 '
  252.          LESFAC(2) ='SM6 '
  253.          LESFAC(3) ='SM7 '
  254.          LESFAC(4) ='SM8 '
  255.          GOTO 666
  256.       ENDIF
  257.  
  258. ***** BETON URGC plastique endo *****
  259.  120  CONTINUE
  260.       NBROBL=9
  261.       SEGINI NOMID
  262.       LESOBL(1)='IFIS'
  263.       LESOBL(2)='ANGL'
  264.       LESOBL(3)='IPLA'
  265.       LESOBL(4)='SIG1'
  266.       LESOBL(5)='SIG2'
  267.       LESOBL(6)='EPS1'
  268.       LESOBL(7)='EPS2'
  269.       LESOBL(8)='ENDO'
  270.       LESOBL(9)='DECO'
  271.       GO TO 666
  272.  
  273. ***** BETON INSA plastique endo 3D*****
  274.  121  CONTINUE
  275.       NBROBL=9
  276.       SEGINI NOMID
  277.       LESOBL(1)='IFIS'
  278.       LESOBL(2)='IPLA'
  279.       LESOBL(3)='SEQT'
  280.       LESOBL(4)='SEQC'
  281.       LESOBL(5)='DKT'
  282.       LESOBL(6)='DKC'
  283.       LESOBL(7)='ENDT'
  284.       LESOBL(8)='ENDC'
  285.       LESOBL(9)='RAND'
  286.       GO TO 666
  287. C
  288. ***** BETON INSA viscoplastique endo *****
  289.  122  CONTINUE
  290.       NBROBL=19
  291.       SEGINI NOMID
  292.       LESOBL(1)='IFIS'
  293.       LESOBL(2)='ANGL'
  294.       LESOBL(3)='IPLA'
  295.       LESOBL(4)='SIG1'
  296.       LESOBL(5)='SIG2'
  297.       LESOBL(6)='EPS1'
  298.       LESOBL(7)='EPS2'
  299.       LESOBL(8)='TDEF'
  300.       LESOBL(9)='TCON'
  301.       LESOBL(10)='SP1'
  302.       LESOBL(11)='SP2'
  303.       LESOBL(12)='SP3'
  304.       LESOBL(13)='SP4'
  305.       LESOBL(14)='EPV1'
  306.       LESOBL(15)='EPV2'
  307.       LESOBL(16)='SIV1'
  308.       LESOBL(17)='SIV2'
  309.       LESOBL(18)='ENDO'
  310.       LESOBL(19)='ENDV'
  311.       GOTO 666
  312. C
  313. ***** FBB1  *****
  314.  127  CONTINUE
  315. C
  316. C-------CAS TRIDIMENSIONNEL MASSIF------
  317. C
  318.       IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN
  319.         NBROBL=21
  320.         SEGINI NOMID
  321.         LESOBL( 1)='EPSE'
  322.         LESOBL( 2)='ERSP'
  323.         LESOBL( 3)='EISP'
  324.         LESOBL( 4)='ERD1'
  325.         LESOBL( 5)='EID1'
  326.         LESOBL( 6)='ERD2'
  327.         LESOBL( 7)='EID2'
  328.         LESOBL( 8)='ERD3'
  329.         LESOBL( 9)='EID3'
  330.         LESOBL(10)='EFD1'
  331.         LESOBL(11)='EFD2'
  332.         LESOBL(12)='EFD3'
  333.         LESOBL(13)='DR12'
  334.         LESOBL(14)='DI12'
  335.         LESOBL(15)='DR13'
  336.         LESOBL(16)='DI13'
  337.         LESOBL(17)='DR23'
  338.         LESOBL(18)='DI23'
  339.         LESOBL(19)='FD12'
  340.         LESOBL(20)='FD13'
  341.         LESOBL(21)='FD23'
  342.         GOTO 666
  343.       ENDIF
  344. C
  345. C-------CAS DEFO PLANES/AXISYMETRIQUE--------
  346. C
  347.       IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3
  348.      &         .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  349.         NBROBL=15
  350.         SEGINI NOMID
  351.         LESOBL( 1)='EPSE'
  352.         LESOBL( 2)='ERSP'
  353.         LESOBL( 3)='EISP'
  354.         LESOBL( 4)='ERD1'
  355.         LESOBL( 5)='EID1'
  356.         LESOBL( 6)='ERD2'
  357.         LESOBL( 7)='EID2'
  358.         LESOBL( 8)='ERD3'
  359.         LESOBL( 9)='EID3'
  360.         LESOBL(10)='EFD1'
  361.         LESOBL(11)='EFD2'
  362.         LESOBL(12)='EFD3'
  363.         LESOBL(13)='DR12'
  364.         LESOBL(14)='DI12'
  365.         LESOBL(15)='FD12'
  366.         GOTO 666
  367.       ENDIF
  368. C
  369. C-------CAS CONT PLANES--------
  370. C -----OU CAS TRIDIMENSIONNEL COQUES------
  371. C
  372.       IF (IFOUR.EQ.-2.OR.
  373.      .   (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  374.         NBROBL=15
  375.         SEGINI NOMID
  376.         LESOBL( 1)='EPSE'
  377.         LESOBL( 2)='ERSP'
  378.         LESOBL( 3)='EISP'
  379.         LESOBL( 4)='ERD1'
  380.         LESOBL( 5)='EID1'
  381.         LESOBL( 6)='ERD2'
  382.         LESOBL( 7)='EID2'
  383.         LESOBL( 8)='ERD3'
  384.         LESOBL( 9)='EID3'
  385.         LESOBL(10)='EFD1'
  386.         LESOBL(11)='EFD2'
  387.         LESOBL(12)='EFD3'
  388.         LESOBL(13)='DR12'
  389.         LESOBL(14)='DI12'
  390.         LESOBL(15)='FD12'
  391.         GOTO 666
  392.       ENDIF
  393. C
  394. ***** FBB2  *****
  395.  128  CONTINUE
  396. C
  397. C-------CAS TRIDIMENSIONNEL MASSIF------
  398. C
  399.       IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN
  400.          NBROBL=40
  401.          SEGINI NOMID
  402.          LESOBL(1) ='EPSE'
  403.          LESOBL(2)='ERSP'
  404.          LESOBL(3)='EISP'
  405.          LESOBL(4)='ERD1'
  406.          LESOBL(5)='EID1'
  407.          LESOBL(6)='ERD2'
  408.          LESOBL(7)='EID2'
  409.          LESOBL(8)='ERD3'
  410.          LESOBL(9)='EID3'
  411.          LESOBL(10)='EFD1'
  412.          LESOBL(11)='EFD2'
  413.          LESOBL(12)='EFD3'
  414.          LESOBL(13)='DR12'
  415.          LESOBL(14)='DI12'
  416.          LESOBL(15)='DR13'
  417.          LESOBL(16)='DI13'
  418.          LESOBL(17)='DR23'
  419.          LESOBL(18)='DI23'
  420.          LESOBL(19)='FD12'
  421.          LESOBL(20)='FD13'
  422.          LESOBL(21)='FD23'
  423.          LESOBL(22) ='W1MA'
  424.          LESOBL(23) ='W2MA'
  425.          LESOBL(24) ='W3MA'
  426.          LESOBL(25) ='W1  '
  427.          LESOBL(26) ='W2  '
  428.          LESOBL(27) ='W3  '
  429.          LESOBL(28) ='VF1X'
  430.          LESOBL(29) ='VF1Y'
  431.          LESOBL(30)='VF1Z'
  432.          LESOBL(31)='VF2X'
  433.          LESOBL(32)='VF2Y'
  434.          LESOBL(33)='VF2Z'
  435.          LESOBL(34)='VF3X'
  436.          LESOBL(35)='VF3Y'
  437.          LESOBL(36)='VF3Z'
  438.          LESOBL(37)='IVL1'
  439.          LESOBL(38)='IVL2'
  440.          LESOBL(39)='IVL3'
  441.          LESOBL(40)='LBDC'
  442.          GOTO 666
  443.       ENDIF
  444. C
  445. C-------CAS DEFO PLANES/AXISYMETRIQUE--------
  446. C
  447.       IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3
  448.      &         .OR.IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  449.          NBROBL=29
  450.          SEGINI NOMID
  451.          LESOBL(1) ='EPSE'
  452.          LESOBL(2)='ERSP'
  453.          LESOBL(3)='EISP'
  454.          LESOBL(4)='ERD1'
  455.          LESOBL(5)='EID1'
  456.          LESOBL(6)='ERD2'
  457.          LESOBL(7)='EID2'
  458.          LESOBL(8)='ERD3'
  459.          LESOBL(9)='EID3'
  460.          LESOBL(10)='EFD1'
  461.          LESOBL(11)='EFD2'
  462.          LESOBL(12)='EFD3'
  463.          LESOBL(13)='DR12'
  464.          LESOBL(14)='DI12'
  465.          LESOBL(15)='FD12'
  466.          LESOBL(16) ='W1MA'
  467.          LESOBL(17) ='W2MA'
  468.          LESOBL(18) ='EPSM'
  469.          LESOBL(19) ='W1  '
  470.          LESOBL(20) ='W2  '
  471.          LESOBL(21) ='VEPS'
  472.          LESOBL(22) ='VF1X'
  473.          LESOBL(23) ='VF1Y'
  474.          LESOBL(24)='VF2X'
  475.          LESOBL(25)='VF2Y'
  476.          LESOBL(26)='IVL1'
  477.          LESOBL(27)='IVL2'
  478.          LESOBL(28)='IVL3'
  479.          LESOBL(29)='LBDC'
  480.          GOTO 666
  481.       ENDIF
  482. C
  483. C-------CAS CONT PLANES--------
  484. C -----OU CAS TRIDIMENSIONNEL COQUES------
  485. C
  486.       IF (IFOUR.EQ.-2.OR.
  487.      .   (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
  488.          NBROBL=26
  489.          SEGINI NOMID
  490.          LESOBL(1) ='EPSE'
  491.          LESOBL(2)='ERSP'
  492.          LESOBL(3)='EISP'
  493.          LESOBL(4)='ERD1'
  494.          LESOBL(5)='EID1'
  495.          LESOBL(6)='ERD2'
  496.          LESOBL(7)='EID2'
  497.          LESOBL(8)='ERD3'
  498.          LESOBL(9)='EID3'
  499.          LESOBL(10)='EFD1'
  500.          LESOBL(11)='EFD2'
  501.          LESOBL(12)='EFD3'
  502.          LESOBL(13)='DR12'
  503.          LESOBL(14)='DI12'
  504.          LESOBL(15)='FD12'
  505.          LESOBL(16) ='W1MA'
  506.          LESOBL(17) ='W2MA'
  507.          LESOBL(18) ='W1  '
  508.          LESOBL(19) ='W2  '
  509.          LESOBL(20) ='VF1X'
  510.          LESOBL(21) ='VF1Y'
  511.          LESOBL(22) ='VF2X'
  512.          LESOBL(23) ='VF2Y'
  513.          LESOBL(24)='IVL1'
  514.          LESOBL(25)='IVL2'
  515.          LESOBL(26)='LBDC'
  516.          GOTO 666
  517.       ENDIF
  518. C
  519. ***** BETON LMT Cachan  viscoplastique viscoendo pour la dynamique rapide *****
  520.  133  CONTINUE
  521.       NBROBL=12
  522.       SEGINI NOMID
  523.       LESOBL(1)='D   '
  524.       LESOBL(2)='F   '
  525.       LESOBL(3)='EPV1'
  526.       LESOBL(4)='EPV2'
  527.       LESOBL(5)='EPV3'
  528.       LESOBL(6)='EPV4'
  529.       LESOBL(7)='EPV5'
  530.       LESOBL(8)='EPV6'
  531.       LESOBL(9)='SIGM'
  532.       LESOBL(10)='DTRA'
  533.       LESOBL(11)='DCOM'
  534.       LESOBL(12)='ES  '
  535.       GOTO 666
  536. C debut modif dp2
  537.  140  CONTINUE
  538.       NBROBL=5
  539.       SEGINI NOMID
  540.       LESOBL(1)='EPS1'
  541.       LESOBL(2)='EPS2'
  542.       LESOBL(3)='EPSE'
  543.       LESOBL(4)='EPA1'
  544.       LESOBL(5)='EPA2'
  545.       IPCOMP=NOMID
  546.       SEGDES NOMID
  547.       GO TO 666
  548. * fin modif DP2
  549.  135  CONTINUE
  550.       NBROBL=9
  551.       SEGINI,NOMID
  552.       LESOBL(1)='EPTI'
  553.       LESOBL(2)='D   '
  554.       LESOBL(3)='CI11'
  555.       LESOBL(4)='CI22'
  556.       LESOBL(5)='CI33'
  557.       LESOBL(6)='CI23'
  558.       LESOBL(7)='CI13'
  559.       LESOBL(8)='CI12'
  560.       LESOBL(9)='KH  '
  561.       GO TO 666
  562. C*****************************************************
  563. C
  564. C  MATERIAU VISCOPLASTIQUE ENDOMMAGEABLE2
  565. C
  566.  142  CONTINUE
  567.       NBROBL=8
  568.       SEGINI NOMID
  569.       LESOBL(1)='EPSE'
  570. *  tenseur d'endommagement
  571.       LESOBL(2)='VH11'
  572.       LESOBL(3)='VH22'
  573.       LESOBL(4)='VH33'
  574.       LESOBL(5)='VH12'
  575.       LESOBL(6)='VH13'
  576.       LESOBL(7)='VH23'
  577. *  endommagement principal maximal
  578.       LESOBL(8) ='DMAX'
  579.       GOTO 666
  580. C******************************************************
  581. C
  582. C  MATERIAU FLUTRA
  583. C
  584.  143  CONTINUE
  585.       NBROBL=56
  586.       SEGINI NOMID
  587. C
  588.       LESOBL(1)='EPSTIM'
  589.       LESOBL(2)='D'
  590. C
  591. C      Contraintes effectives
  592. C
  593.       LESOBL(3)='SEXX'
  594.       LESOBL(4)='SEYY'
  595.       LESOBL(5)='SEXY'
  596.       LESOBL(6)='SEZZ'
  597.       LESOBL(7)='SEZX'
  598.       LESOBL(8)='SEYZ'
  599. C
  600. C      Fluage propre Chaine 1
  601. C
  602.       LESOBL(9)='EXX1'
  603.       LESOBL(10)='EYY1'
  604.       LESOBL(11)='EZZ1'
  605.       LESOBL(12)='EXY1'
  606.       LESOBL(13)='EXZ1'
  607.       LESOBL(14)='EYZ1'
  608. C
  609. C      Fluage propre Chaine 2
  610. C
  611.       LESOBL(15)='EXX2'
  612.       LESOBL(16)='EYY2'
  613.       LESOBL(17)='EZZ2'
  614.       LESOBL(18)='EXY2'
  615.       LESOBL(19)='EXZ2'
  616.       LESOBL(20)='EYZ2'
  617. C
  618. C      Fluage propre Chaine 3
  619. C
  620.       LESOBL(21)='EXX3'
  621.       LESOBL(22)='EYY3'
  622.       LESOBL(23)='EZZ3'
  623.       LESOBL(24)='EXY3'
  624.       LESOBL(25)='EXZ3'
  625.       LESOBL(26)='EYZ3'
  626. C
  627. C      Fluage propre Chaine 4
  628. C
  629.       LESOBL(27)='EXX4'
  630.       LESOBL(28)='EYY4'
  631.       LESOBL(29)='EZZ4'
  632.       LESOBL(30)='EXY4'
  633.       LESOBL(31)='EXZ4'
  634.       LESOBL(32)='EYZ4'
  635. C
  636. C      Fluage propre Chaine 5
  637. C
  638.       LESOBL(33)='EXX5'
  639.       LESOBL(34)='EYY5'
  640.       LESOBL(35)='EZZ5'
  641.       LESOBL(36)='EXY5'
  642.       LESOBL(37)='EXZ5'
  643.       LESOBL(38)='EYZ5'
  644. C
  645. C      Fluage propre Chaine 6
  646. C
  647.       LESOBL(39)='EXX6'
  648.       LESOBL(40)='EYY6'
  649.       LESOBL(41)='EZZ6'
  650.       LESOBL(42)='EXY6'
  651.       LESOBL(43)='EXZ6'
  652.       LESOBL(44)='EYZ6'
  653. C
  654. C      Amortisseur
  655. C
  656.       LESOBL(45)='EXX7'
  657.       LESOBL(46)='EYY7'
  658.       LESOBL(47)='EZZ7'
  659.       LESOBL(48)='EXY7'
  660.       LESOBL(49)='EXZ7'
  661.       LESOBL(50)='EYZ7'
  662. C
  663. C      Fluage dessiccation
  664. C
  665.       LESOBL(51)='EDXX'
  666.       LESOBL(52)='EDYY'
  667.       LESOBL(53)='EDZZ'
  668.       LESOBL(54)='EDXY'
  669.       LESOBL(55)='EDXZ'
  670.       LESOBL(56)='EDYZ'
  671.       GO TO 666
  672. C******************************************************
  673. C
  674. C  MATERIAU INTIMP
  675. C
  676.   145 CONTINUE
  677.       write(6,*) 'on passe bien ici'
  678.       NBROBL=25
  679.       SEGINI NOMID
  680.       LESOBL( 1)='ENDS'
  681.       LESOBL( 2)='PVAR'
  682.       LESOBL( 3)='DEPP'
  683.       LESOBL( 4)='RVAR'
  684.       LESOBL( 5)='SIGS'
  685.       LESOBL( 6)='EPSP'
  686.       LESOBL( 7)='NA1 '
  687.       LESOBL( 8)='NA2 '
  688.         LESOBL( 9)='NA3 '
  689.       LESOBL(10)='NA4 '
  690.  
  691.       LESOBL(11)='ENDI'
  692.       LESOBL(12)='OLPH'
  693.       LESOBL(13)='EPSF'
  694.       LESOBL(14)='XVAR'
  695.       LESOBL(15)='ZVAR'
  696.       LESOBL(16)='EINT'
  697.       LESOBL(17)='SIGF'
  698.         LESOBL(18)='NA5 '
  699.       LESOBL(19)='NA6 '
  700.       LESOBL(20)='NA7 '
  701.  
  702.       LESOBL(21)='XLAM'
  703.       LESOBL(22)='EPTO'
  704.       LESOBL(23)='INTE'
  705.       LESOBL(24)='FINT'
  706.       LESOBL(25)='FACI'
  707.       GOTO 666
  708. C******************************************************
  709. C
  710. C  MATERIAU INTJOI
  711. C
  712.   146 CONTINUE
  713.       if(ifour.ne.2) then
  714.         NBROBL=13
  715.         SEGINI NOMID
  716.         LESOBL(1 ) = 'DINT'
  717.         LESOBL(2 ) = 'EPSF'
  718.         LESOBL(3 ) = 'EC  '
  719.         LESOBL(4 ) = 'EPST'
  720.         LESOBL(5 ) = 'EPSN'
  721.         LESOBL(6 ) = 'CINE'
  722.         LESOBL(7 ) = 'EPSR'
  723.         LESOBL(8 ) = 'IFLA'
  724.         LESOBL(9 ) = 'FVAR'
  725.         LESOBL(10) = 'SIGM'
  726.         LESOBL(11) = 'KSAC'
  727.         LESOBL(12) = 'KNAC'
  728.         LESOBL(13) = 'COUN'
  729.         GOTO 666
  730.  
  731.       else
  732.         NBROBL=17
  733.         SEGINI NOMID
  734.         LESOBL(1 ) = 'DINT'
  735.         LESOBL(2 ) = 'EPF1'
  736.         LESOBL(3 ) = 'EPF2'
  737.         LESOBL(4 ) = 'EC1 '
  738.         LESOBL(5 ) = 'EC2 '
  739.         LESOBL(6 ) = 'EPS1'
  740.         LESOBL(7 ) = 'EPS2'
  741.         LESOBL(8 ) = 'EPSN'
  742.         LESOBL(9 ) = 'CIN1'
  743.         LESOBL(10) = 'CIN2'
  744.         LESOBL(11) = 'EPSR'
  745.         LESOBL(12) = 'IFLA'
  746.         LESOBL(13) = 'FVAR'
  747.         LESOBL(14) = 'SIGM'
  748.         LESOBL(15) = 'KSAC'
  749.         LESOBL(16) = 'KNAC'
  750.         LESOBL(17) = 'COUN'
  751.         GOTO 666
  752.       endif
  753. C******************************************************
  754. C
  755. C  MATERIAU BA1D
  756. C
  757.   147 CONTINUE
  758.       NBROBL=16
  759.       SEGINI NOMID
  760.       LESOBL( 1)='DP0 '
  761.       LESOBL( 2)='ZP0 '
  762.       LESOBL( 3)='DM0 '
  763.       LESOBL( 4)='ZM0 '
  764.       LESOBL( 5)='XPP '
  765.       LESOBL( 6)='UPP '
  766.       LESOBL( 7)='ALPP'
  767.       LESOBL( 8)='XPM '
  768.       LESOBL( 9)='UPM '
  769.       LESOBL(10)='ALPM'
  770.       LESOBL(11)='XPI '
  771.       LESOBL(12)='UPI '
  772.       LESOBL(13)='ALPI'
  773.       LESOBL(14)='U1  '
  774.       LESOBL(15)='U2  '
  775.       LESOBL(16)='U3  '
  776.       GOTO 666
  777. C******************************************************
  778.  
  779.  
  780.  
  781. C-----------------------------
  782. C     FORMULATION OTTOVARI
  783. C-----------------------------
  784.   148  CONTINUE
  785. C-------CAS TRIDIMENSIONNEL MASSIF------
  786.       IF (IFOUR.EQ.2.AND.MFR.EQ.1) THEN
  787.          NBROBL=19
  788.          SEGINI NOMID
  789.          LESOBL(1) ='W1  '
  790.          LESOBL(2) ='W1MA'
  791.          LESOBL(3) ='VF1X'
  792.          LESOBL(4) ='VF1Y'
  793.          LESOBL(5) ='VF1Z'
  794.          LESOBL(6) ='W2  '
  795.          LESOBL(7) ='W2MA'
  796.          LESOBL(8) ='VF2X'
  797.          LESOBL(9) ='VF2Y'
  798.          LESOBL(10)='VF2Z'
  799.          LESOBL(11)='W3  '
  800.          LESOBL(12)='W3MA'
  801.          LESOBL(13)='VF3X'
  802.          LESOBL(14)='VF3Y'
  803.          LESOBL(15)='VF3Z'
  804.          LESOBL(16)='LBDC'
  805.          LESOBL(17)='IVL1'
  806.          LESOBL(18)='IVL2'
  807.          LESOBL(19)='IVL3'
  808.          GOTO 666
  809.       ENDIF
  810. C
  811.  
  812.   97  continue
  813.  999  CONTINUE
  814.       SEGINI,NOMID
  815.  
  816.   666 CONTINUE
  817.       IPCOMP=NOMID
  818.       SEGDES,NOMID
  819.  
  820.       RETURN
  821.       END
  822.  
  823.  
  824.  
  825.  
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  

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