Télécharger la plaquette Cast3M


fr en

Télécharger idva6b.eso

Retour à la liste

Numérotation des lignes : 

idva6b

  1. C IDVA6B    SOURCE    FD218221  20/01/10    21:15:04     10494          
  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 IDVA6B (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. C on ne traite ici que les 51 à 100 premiers matepl les
  57. C suivants sont dans idva6c
  58.       GOTO (97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,
  59.      .     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,51,52,97,97,97,97,97,97,97,97,
  61.      .     97,62,97,64,65,66,68,68,69,97,71,97,97,97,75,97,97,78,79,80,
  62.      .     97,97,83,97,97,97,87,97,97,97,97,92,93,97,97,97,97,97,99,100,
  63.      .     98,97,97,98,98,98,97,97,97,97,97,97,97,97,97,97,97,97,97,98,
  64.      .     98,98,97,97,97,97,98,98,97,97,97,97,98,97,98,97,97,97,97,98,
  65.      .     98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,
  66.      .     98,98,98,98,98,98,98,98,98,98,98,98,98,98,175),
  67.      .     MATEPL
  68.       IF (MATEPL.EQ.181) GOTO 181
  69.       IF (MATEPL.EQ.182) GOTO 182
  70.       IF (MATEPL.EQ.183) GOTO 183
  71.       IF (MATEPL.EQ.184) GOTO 184
  72.       IF (MATEPL.EQ.185) GOTO 185
  73.  
  74.  
  75.  
  76.   98  CALL IDVA6C (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,NBROBL,
  77.      .                   NBRFAC)
  78.        return
  79. C
  80. C      MATERIAU ANCRAGE_ACIER
  81. C
  82.   93   CONTINUE
  83.        NBROBL=18
  84.        SEGINI NOMID
  85.        LESOBL( 1) ='FLAG'
  86.        LESOBL( 2) ='EPSO'
  87.        LESOBL( 3) ='RFAC'
  88.        LESOBL( 4) ='VHNG'
  89.        LESOBL( 5) ='EPLR'
  90.        LESOBL( 6) ='EPIP'
  91.        LESOBL( 7) ='EPMP'
  92.        LESOBL( 8) ='EPMN'
  93.        LESOBL( 9) ='STLR'
  94.        LESOBL(10) ='STIP'
  95.        LESOBL(11) ='STMP'
  96.        LESOBL(12) ='STMN'
  97. C
  98.        LESOBL(13) ='EPPP'
  99.        LESOBL(14) ='EPPM'
  100.        LESOBL(15)= 'EPSA'
  101.        LESOBL(16)= 'KSTA'
  102.        LESOBL(17)='NITE'
  103.        LESOBL(18)='LAMB'
  104.        GOTO 666
  105. C +RP
  106. C
  107. C      MATERIAU OUGLOVA
  108. C
  109.   175  CONTINUE
  110.  
  111.        IF (IFOUR.EQ.2) THEN
  112. C         CAS TRIDIMENSIONNEL
  113.           NBROBL=17
  114.           SEGINI NOMID
  115.           LESOBL( 1) ='D   '
  116.           LESOBL( 2) ='R   '
  117.           LESOBL( 3) ='P   '
  118.           LESOBL( 4) ='ZT  '
  119.           LESOBL( 5) ='NRUP'
  120.           LESOBL( 6) ='ESP1'
  121.           LESOBL( 7) ='ESP2'
  122.           LESOBL( 8) ='ESP3'
  123.           LESOBL( 9) ='ESP4'
  124.           LESOBL(10) ='ESP5'
  125.           LESOBL(11) ='ESP6'
  126.           LESOBL(12) ='ESF1'
  127.           LESOBL(13) ='ESF2'
  128.           LESOBL(14) ='ESF3'
  129.           LESOBL(15) ='ESF4'
  130.           LESOBL(16) ='ESF5'
  131.           LESOBL(17) ='ESF6'
  132.        ELSEIF (IFOUR.EQ.-1) THEN
  133. C         CAS DEFORMATION PLANE
  134.           NBROBL=13
  135.           SEGINI NOMID
  136.           LESOBL( 1) ='D   '
  137.           LESOBL( 2) ='R   '
  138.           LESOBL( 3) ='P   '
  139.           LESOBL( 4) ='ZT  '
  140.           LESOBL( 5) ='NRUP'
  141.           LESOBL( 6) ='ESP1'
  142.           LESOBL( 7) ='ESP2'
  143.           LESOBL( 8) ='ESP3'
  144.           LESOBL( 9) ='ESP4'
  145.           LESOBL(10) ='ESF1'
  146.           LESOBL(11) ='ESF2'
  147.           LESOBL(12) ='ESF3'
  148.           LESOBL(13) ='ESF4'
  149.        ELSEIF (IFOUR.EQ.-2) THEN
  150. C         CAS CONTRAINTE PLANE
  151.           NBROBL=14
  152.           SEGINI NOMID
  153.           LESOBL( 1) ='D   '
  154.           LESOBL( 2) ='R   '
  155.           LESOBL( 3) ='P   '
  156.           LESOBL( 4) ='ZT  '
  157.           LESOBL( 5) ='NRUP'
  158.           LESOBL( 6) ='ESP1'
  159.           LESOBL( 7) ='ESP2'
  160.           LESOBL( 8) ='ESP3'
  161.           LESOBL( 9) ='ESP4'
  162.           LESOBL(10) ='ESF1'
  163.           LESOBL(11) ='ESF2'
  164.           LESOBL(12) ='ESF3'
  165.           LESOBL(13) ='ESF4'
  166.           LESOBL(14) ='ES33'
  167.        ENDIF
  168.  
  169.  
  170.        GOTO 666
  171.  
  172. C -RP
  173. C
  174. C
  175. C      MATERIAU NORTON (Fibre)
  176. C
  177.   181  CONTINUE
  178.        IF (IFOUR.EQ.2) THEN
  179. C         CAS TRIDIMENSIONNEL
  180.           NBROBL=1
  181.           SEGINI NOMID
  182.           LESOBL( 1)='EPSE'
  183.        ELSE
  184. C         DANS LES AUTRES CAS : NON PREVU
  185.        ENDIF
  186.        GOTO 666
  187.  
  188.  
  189.  
  190. C      MATERIAU POLYNOMIAL (Fibre)
  191. C
  192.   182  CONTINUE
  193.        IF (IFOUR.EQ.2) THEN
  194. C         CAS TRIDIMENSIONNEL
  195.           NBROBL=1
  196.           SEGINI NOMID
  197.           LESOBL( 1)='EPSE'
  198.        ELSE
  199. C         DANS LES AUTRES CAS : NON PREVU
  200.        ENDIF
  201.        GOTO 666
  202. C
  203. C
  204. C      MATERIAU BLACKBURN (Fibre)
  205. C
  206.   183  CONTINUE
  207.        IF (IFOUR.EQ.2) THEN
  208. C         CAS TRIDIMENSIONNEL
  209.           NBROBL=1
  210.           SEGINI NOMID
  211.           LESOBL( 1)='EPSE'
  212.        ELSE
  213. C         DANS LES AUTRES CAS : NON PREVU
  214.        ENDIF
  215.        GOTO 666
  216. C
  217. C
  218. C      MATERIAU BLACKBURN_2 (Fibre)
  219. C
  220.   184  CONTINUE
  221.        IF (IFOUR.EQ.2) THEN
  222. C         CAS TRIDIMENSIONNEL
  223.           NBROBL=1
  224.           SEGINI NOMID
  225.           LESOBL( 1)='EPSE'
  226.        ELSE
  227. C         DANS LES AUTRES CAS : NON PREVU
  228.        ENDIF
  229.        GOTO 666
  230. C
  231. C
  232. C      MATERIAU LEMAITRE (Fibre)
  233. C
  234.   185  CONTINUE
  235.        IF (IFOUR.EQ.2) THEN
  236. C         CAS TRIDIMENSIONNEL
  237.           NBROBL=2
  238.           SEGINI NOMID
  239.           LESOBL( 1)='XX'
  240.           LESOBL( 2)='EPSE'
  241.        ELSE
  242. C         DANS LES AUTRES CAS : NON PREVU
  243.        ENDIF
  244.        GOTO 666
  245.  
  246.  
  247. C  FRAGILE_UNI (Fibre et barre)
  248. C
  249.   78  CONTINUE
  250.       NBROBL=4
  251.       SEGINI NOMID
  252.       LESOBL(1)='EPSO'
  253.       LESOBL(2)='DAMC'
  254.       LESOBL(3)='DAMT'
  255.       LESOBL(4)='VHNG'
  256.       GOTO 666
  257. C
  258. C  BETON_BAEL (Fibre et barre)
  259. C
  260.   79  CONTINUE
  261.       NBROBL=3
  262.       SEGINI NOMID
  263.       LESOBL(1)='EPSE'
  264.       LESOBL(2)='EPSO'
  265.       LESOBL(3)='VHNG'
  266.       IPCOMP=NOMID
  267.       SEGDES NOMID
  268.       GOTO 666
  269. C
  270. C  PARFAIT_UNI (Fibre et barre)
  271. C
  272.   80  CONTINUE
  273.       NBROBL=2
  274.       SEGINI NOMID
  275.       LESOBL(1)='EPSE'
  276.       LESOBL(2)='VHNG'
  277.       IPCOMP=NOMID
  278.       SEGDES NOMID
  279.       GOTO 666
  280. C
  281. C  ANCRAGE_PARFAIT (Fibre et barre)
  282. C
  283.   92  CONTINUE
  284.       NBROBL=8
  285.       SEGINI NOMID
  286.       LESOBL(1)='EPSE'
  287.       LESOBL(2)='VHNG'
  288.       LESOBL(3)='EPPP'
  289.       LESOBL(4)='EPPM'
  290.       LESOBL(5)='EPSA'
  291.       LESOBL(6)='KSTA'
  292.       LESOBL(7)='NITE'
  293.       LESOBL(8)='LAMB'
  294.       IPCOMP=NOMID
  295.       SEGDES NOMID
  296.       GOTO 666
  297. C
  298. C  MATERIAU STRUT_UNI (Fibre)
  299. C
  300.   83  CONTINUE
  301.       NBROBL=37
  302.       SEGINI NOMID
  303.       LESOBL( 1) ='EPS1'
  304.       LESOBL( 2) ='EMX1'
  305.       LESOBL( 3) ='EMN1'
  306.       LESOBL( 4) ='STM1'
  307.       LESOBL( 5) ='STR1'
  308.       LESOBL( 6) ='TAD1'
  309. *
  310.       LESOBL( 7) ='EPS2'
  311.       LESOBL( 8) ='EMX2'
  312.       LESOBL( 9) ='EMN2'
  313.       LESOBL(10) ='STM2'
  314.       LESOBL(11) ='STR2'
  315.       LESOBL(12) ='TAD2'
  316. *
  317.       LESOBL(13) ='FLG3'
  318.       LESOBL(14) ='EPS3'
  319.       LESOBL(15) ='RFAC'
  320.       LESOBL(16) ='EPLR'
  321.       LESOBL(17) ='EPIP'
  322.       LESOBL(18) ='EPMP'
  323.       LESOBL(19) ='EPMN'
  324.       LESOBL(20) ='STLR'
  325.       LESOBL(21) ='STIP'
  326.       LESOBL(22) ='STMP'
  327.       LESOBL(23) ='STMN'
  328.       LESOBL(24) ='STR3'
  329. *
  330.       LESOBL(25) ='VIXY'
  331.       LESOBL(26) ='VIXZ'
  332. *
  333.       LESOBL(27) ='VHNG'
  334. *
  335.       LESOBL(28) ='EMD1'
  336.       LESOBL(29) ='EMD2'
  337. *
  338.       LESOBL(30) ='VHTA'
  339.       LESOBL(31) ='EPO3'
  340. *
  341.       LESOBL(32) ='DMG1'
  342.       LESOBL(33) ='DMG2'
  343. *
  344.       LESOBL(34) ='EAM1'
  345.       LESOBL(35) ='EAM2'
  346. *
  347.       LESOBL(36) ='VHET'
  348.       LESOBL(37) ='FRCO'
  349.       IPCOMP=NOMID
  350.       SEGDES NOMID
  351.       GOTO 666
  352.  
  353.   51  CONTINUE
  354.       NBROBL=7
  355.       SEGINI NOMID
  356.       LESOBL(1)='EPSE'
  357.       LESOBL(2)='VHHO'
  358.       LESOBL(3)='VHOF'
  359.       LESOBL(4)='VHWA'
  360.       LESOBL(5)='VHAX'
  361.       LESOBL(6)='VHWD'
  362.       LESOBL(7)='VHWG'
  363.       IPCOMP=NOMID
  364.       SEGDES NOMID
  365.       GOTO 666
  366. C
  367.   52  CONTINUE
  368.       NBROBL=14
  369.       SEGINI NOMID
  370.       LESOBL(1)='EPSE'
  371.       LESOBL(2)='EPS1'
  372.       LESOBL(3)='EPS2'
  373.       LESOBL(4)='EPS3'
  374.       LESOBL(5)='EPS4'
  375.       LESOBL(6)='EPS5'
  376.       LESOBL(7)='EPS6'
  377.       LESOBL(8)='GTIN'
  378.       LESOBL(9)='EPP1'
  379.       LESOBL(10)='EPP2'
  380.       LESOBL(11)='EPP3'
  381.       LESOBL(12)='EPP4'
  382.       LESOBL(13)='EPP5'
  383.       LESOBL(14)='EPP6'
  384.       GOTO 666
  385. C
  386.   62  CONTINUE
  387.       NBROBL=3
  388.       SEGINI NOMID
  389.       LESOBL(1)='EPSE'
  390.       LESOBL(2)='VHTA'
  391.       LESOBL(3)='VHOT'
  392.       GOTO 666
  393. C
  394.   64  CONTINUE
  395.       NBROBL=7
  396.       SEGINI NOMID
  397.       LESOBL(1)='EPSE'
  398.       LESOBL(2)='VHWF'
  399.       LESOBL(3)='VIGM'
  400.       LESOBL(4)='EPSM'
  401.       LESOBL(5)='VHOT'
  402.       LESOBL(6)='VFNS'
  403.       LESOBL(7)='VFNE'
  404.       GOTO 666
  405. C
  406. C*****************************************************
  407. C-----------------------------
  408. C     FORMULATION CERAMIQUE
  409. C-----------------------------
  410.   65  CONTINUE
  411. C
  412. C-------CAS TRIDIMENSIONNEL (IFOUR = 2) MASSIF (MFR = 1)------
  413. C
  414.       IF (IFOUR.EQ.2.AND.(MFR.EQ.1.OR.MFR.EQ.31)) THEN
  415.          NBROBL=37
  416.          SEGINI NOMID
  417.          LESOBL(1) ='EPSE'
  418.          LESOBL(2) ='W1MA'
  419.          LESOBL(3) ='W2MA'
  420.          LESOBL(4) ='W3MA'
  421.          LESOBL(5) ='W1  '
  422.          LESOBL(6) ='W2  '
  423.          LESOBL(7) ='W3  '
  424.          LESOBL(8) ='VF1X'
  425.          LESOBL(9) ='VF1Y'
  426.          LESOBL(10)='VF1Z'
  427.          LESOBL(11)='VF2X'
  428.          LESOBL(12)='VF2Y'
  429.          LESOBL(13)='VF2Z'
  430.          LESOBL(14)='VF3X'
  431.          LESOBL(15)='VF3Y'
  432.          LESOBL(16)='VF3Z'
  433.          LESOBL(17)='IVL1'
  434.          LESOBL(18)='IVL2'
  435.          LESOBL(19)='IVL3'
  436.          LESOBL(20)='LBDC'
  437.          LESOBL(21) ='VPXX'
  438.          LESOBL(22) ='VPYY'
  439.          LESOBL(23) ='VPZZ'
  440.          LESOBL(24) ='VPXY'
  441.          LESOBL(25) ='VPYZ'
  442.          LESOBL(26) ='VPZX'
  443.          LESOBL(27) ='VNXX'
  444.          LESOBL(28) ='VNYY'
  445.          LESOBL(20) ='VNZZ'
  446.          LESOBL(30)='VNXY'
  447.          LESOBL(31)='VNYZ'
  448.          LESOBL(32)='VNZX'
  449.          LESOBL(33)='EPCE'
  450.          LESOBL(34)='EPSH'
  451.          LESOBL(35)='VHLL'
  452.          LESOBL(36)='LENG'
  453.          LESOBL(37)='EPSF'
  454.          GOTO 666
  455.       ENDIF
  456. C
  457. C-------CAS DEFO PLANES OU DEFO PLANES GENERALISEES
  458. C
  459.       IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN
  460.          NBROBL=28
  461.          SEGINI NOMID
  462.          LESOBL(1) ='EPSE'
  463.          LESOBL(2) ='W1MA'
  464.          LESOBL(3) ='W2MA'
  465.          LESOBL(4) ='EPSM'
  466.          LESOBL(5) ='W1  '
  467.          LESOBL(6) ='W2  '
  468.          LESOBL(7) ='VEPS'
  469.          LESOBL(8) ='VF1X'
  470.          LESOBL(9) ='VF1Y'
  471.          LESOBL(10)='VF2X'
  472.          LESOBL(11)='VF2Y'
  473.          LESOBL(12)='IVL1'
  474.          LESOBL(13)='IVL2'
  475.          LESOBL(14)='IVL3'
  476.          LESOBL(15)='LBDC'
  477.          LESOBL(16) ='VPXX'
  478.          LESOBL(17) ='VPYY'
  479.          LESOBL(18) ='VPZZ'
  480.          LESOBL(19) ='VPXY'
  481.          LESOBL(20) ='VNXX'
  482.          LESOBL(21) ='VNYY'
  483.          LESOBL(22) ='VNZZ'
  484.          LESOBL(23) ='VNXY'
  485.          LESOBL(24) ='EPCE'
  486.          LESOBL(25)='EPSH'
  487.          LESOBL(26)='VHLL'
  488.          LESOBL(27)='LENG'
  489.          LESOBL(28)='EPSF'
  490.          GOTO 666
  491.       ENDIF
  492. *
  493. *     CAS AXISYMETRIQUE
  494. *
  495.       IF (IFOUR.EQ.0) THEN
  496.          NBROBL=28
  497.          SEGINI NOMID
  498.          LESOBL(1) ='EPSE'
  499.          LESOBL(2) ='W1MA'
  500.          LESOBL(3) ='W2MA'
  501.          LESOBL(4) ='EPSM'
  502.          LESOBL(5) ='W1  '
  503.          LESOBL(6) ='W2  '
  504.          LESOBL(7) ='VEPS'
  505.          LESOBL(8) ='VF1X'
  506.          LESOBL(9) ='VF1Y'
  507.          LESOBL(10)='VF2X'
  508.          LESOBL(11)='VF2Y'
  509.          LESOBL(12)='IVL1'
  510.          LESOBL(13)='IVL2'
  511.          LESOBL(14)='IVL3'
  512.          LESOBL(15)='LBDC'
  513.          LESOBL(16) ='VPRR'
  514.          LESOBL(17) ='VPZZ'
  515.          LESOBL(18) ='VPTT'
  516.          LESOBL(19) ='VPRZ'
  517.          LESOBL(20) ='VNRR'
  518.          LESOBL(21) ='VNZZ'
  519.          LESOBL(22) ='VNTT'
  520.          LESOBL(23) ='VNRZ'
  521.          LESOBL(24) ='EPCE'
  522.          LESOBL(25)='EPSH'
  523.          LESOBL(26)='VHLL'
  524.          LESOBL(27)='LENG'
  525.          LESOBL(28)='EPSF'
  526.          GOTO 666
  527.        ENDIF
  528.  
  529. C-------CAS CONT PLANES--------
  530.       IF (IFOUR.EQ.-2) THEN
  531.          NBROBL=25
  532.          SEGINI NOMID
  533.          LESOBL(1) ='EPSE'
  534.          LESOBL(2) ='W1MA'
  535.          LESOBL(3) ='W2MA'
  536.          LESOBL(4) ='W1  '
  537.          LESOBL(5) ='W2  '
  538.          LESOBL(6) ='VF1X'
  539.          LESOBL(7) ='VF1Y'
  540.          LESOBL(8) ='VF2X'
  541.          LESOBL(9) ='VF2Y'
  542.          LESOBL(10)='IVL1'
  543.          LESOBL(11)='IVL2'
  544.          LESOBL(12)='LBDC'
  545.          LESOBL(13) ='VPXX'
  546.          LESOBL(14) ='VPYY'
  547.          LESOBL(15) ='VPZZ'
  548.          LESOBL(16) ='VPXY'
  549.          LESOBL(17) ='VNXX'
  550.          LESOBL(18) ='VNYY'
  551.          LESOBL(19) ='VNZZ'
  552.          LESOBL(20) ='VNXY'
  553.          LESOBL(21) ='EPCE'
  554.          LESOBL(22)='EPSH'
  555.          LESOBL(23)='VHLL'
  556.          LESOBL(24)='LENG'
  557.          LESOBL(25)='EPSF'
  558.          GOTO 666
  559.       ENDIF
  560. C*OF --> A voir pour le 1D
  561. C ----- CAS TRIDIMENSIONNEL COQUES MINCES------
  562. C
  563.       IF (IFOUR.EQ.2.AND.(MFR.EQ.3)) THEN
  564.          IF(NPINT.EQ.0)THEN
  565.              NBROBL=33
  566.              SEGINI NOMID
  567.              LESOBL(1) ='EPSE'
  568.              LESOBL(2) ='W1MA'
  569.              LESOBL(3) ='W2MA'
  570.              LESOBL(4) ='W1  '
  571.              LESOBL(5) ='W2  '
  572.              LESOBL(6) ='VF1X'
  573.              LESOBL(7) ='VF1Y'
  574.              LESOBL(8) ='VF2X'
  575.              LESOBL(9) ='VF2Y'
  576.              LESOBL(10)='IVL1'
  577.              LESOBL(11)='IVL2'
  578.              LESOBL(12)='LBDC'
  579.              LESOBL(13) ='PN11'
  580.              LESOBL(14) ='PN22'
  581.              LESOBL(15) ='PN33'
  582.              LESOBL(16) ='PN12'
  583.              LESOBL(17) ='PM11'
  584.              LESOBL(18) ='PM22'
  585.              LESOBL(19) ='PM33'
  586.              LESOBL(20) ='PM12'
  587.              LESOBL(21) ='NN11'
  588.              LESOBL(22)='NN22'
  589.              LESOBL(23)='NN33'
  590.              LESOBL(24)='NN12'
  591.              LESOBL(25)='NM11'
  592.              LESOBL(26)='NM22'
  593.              LESOBL(27)='NM33'
  594.              LESOBL(28)='NM12'
  595.              LESOBL(29)='EPCE'
  596.              LESOBL(30)='EPSH'
  597.              LESOBL(31)='VHLL'
  598.              LESOBL(32)='LENG'
  599.              LESOBL(33)='EPSF'
  600.          ELSE
  601.              NBROBL=25
  602.              SEGINI NOMID
  603.              LESOBL(1) ='EPSE'
  604.              LESOBL(2) ='W1MA'
  605.              LESOBL(3) ='W2MA'
  606.              LESOBL(4) ='W1  '
  607.              LESOBL(5) ='W2  '
  608.              LESOBL(6) ='VF1X'
  609.              LESOBL(7) ='VF1Y'
  610.              LESOBL(8) ='VF2X'
  611.              LESOBL(9) ='VF2Y'
  612.              LESOBL(10)='IVL1'
  613.              LESOBL(11)='IVL2'
  614.              LESOBL(12)='LBDC'
  615.              LESOBL(13) ='PMSS'
  616.              LESOBL(14) ='PMTT'
  617.              LESOBL(15) ='PMNN'
  618.              LESOBL(16) ='PMST'
  619.              LESOBL(17) ='NMSS'
  620.              LESOBL(18) ='NMTT'
  621.              LESOBL(19) ='NMNN'
  622.              LESOBL(20) ='NMST'
  623.              LESOBL(21) ='EPCE'
  624.              LESOBL(22)='EPSH'
  625.              LESOBL(23)='VHLL'
  626.              LESOBL(24)='LENG'
  627.              LESOBL(25)='EPSF'
  628.          ENDIF
  629.          GOTO 666
  630.       ENDIF
  631. C
  632. C
  633. C  MODELE BETON_INSA_LYON CYCLIQUE : CONTRAINTES PLANES,
  634. C               DEFORMATION PLANES ET AXISYMETRIE
  635. C
  636.   66  CONTINUE
  637. C
  638.         IFOB1=IFOUR
  639.         IF(MELE.EQ.28.OR.MELE.EQ.93) IFOB1=-2
  640. C
  641.         NBRFC1 =32
  642.         NBRF11=14
  643.         NBRFC2=0
  644.         IF(IFOB1.EQ.-2.OR.IFOB1.EQ.-1) THEN
  645.                  IF(IFOB1.EQ.-2.AND.MFR.NE.9) THEN
  646.                    NBRFC2=3
  647.                    NBRFC3=3
  648.                  ELSE IF(IFOB1.EQ.-1.AND.MFR.NE.9) THEN
  649.                    NBRFC2=4
  650.                    NBRFC3=4
  651.                  ELSE IF(MFR.EQ.9) THEN
  652.                    NBRFC2=5
  653.                    NBRFC3=5
  654.                  ENDIF
  655.         ELSE IF(IFOB1.EQ.0) THEN
  656.                    NBRFC2=4
  657.                    NBRFC3=4
  658.         ELSE IF(IFOB1.EQ.2) THEN
  659.                  NBRFC2=6
  660.                    NBRFC3=6
  661.         ENDIF
  662. C
  663.       NBRFAC=NBRFC1
  664.       SEGINI NOMID
  665.       DO I=1,NBRFC1
  666.           LESFAC(I)=NOMIN1(I)
  667.       ENDDO
  668.       NN1=NBRFAC
  669. C
  670.       IF (IFOB1.EQ.-1.OR.IFOB1.EQ.0) THEN
  671.         NBRFAC=NN1+NBRF11
  672.         SEGADJ NOMID
  673.         DO I=1,NBRF11
  674.           LESFAC(NN1+I)=NOMI11(I)
  675.         ENDDO
  676.       ENDIF
  677. C
  678.       NBRFAC=NN1+NBRFC2
  679.       SEGADJ NOMID
  680.       DO I=1,NBRFC2
  681.         LESFAC(NN1+I)=NOMIN2(I)
  682.       ENDDO
  683.       NN1=NBRFAC
  684.       GOTO 666
  685. *
  686. *        MODELE ORTHOTROPE PLASTIQUE ECROUISSABLE DECOUPLE
  687. *    et  MODELE ORTHOTROPE PLASTIQUE PARFAIT DECOUPLE
  688. *
  689.   68  CONTINUE
  690. *
  691.       IF (MFR.NE.27.AND.MFR.NE.49) THEN
  692.         NBROBL=1
  693.         NBRFAC=1
  694.         SEGINI NOMID
  695.         LESOBL(1)='EPP1'
  696.         LESFAC(1)='EPP2'
  697.         GOTO 666
  698.       ELSE
  699.         NBROBL=1
  700.         SEGINI NOMID
  701.         LESOBL(1)='EPSE'
  702.         GOTO 666
  703.       ENDIF
  704. *
  705. *   MODELE D'ALONSO
  706. *
  707.   69  CONTINUE
  708.       NBROBL=4
  709.       SEGINI NOMID
  710.       LESOBL(1)='EPSE'
  711.       LESOBL(2)='VPC0'
  712.       LESOBL(3)='SLIM'
  713.       LESOBL(4)='SUCC'
  714.       GOTO 666
  715. *
  716. *   MODELE DE PAKZAD
  717. *
  718.   71  CONTINUE
  719.       NBROBL=22
  720.       SEGINI NOMID
  721.       LESOBL(1)='EPSE'
  722.       LESOBL(2)='VHSD'
  723.       LESOBL(3)='SUCC'
  724.       LESOBL(4)='VPCS'
  725.       LESOBL(5)='ADEC'
  726.       LESOBL(6)='AREC'
  727.       LESOBL(7)='PDEC'
  728.       LESOBL(8)='PREC'
  729.       LESOBL(9)='EP1D'
  730.       LESOBL(10)='EP2D'
  731.       LESOBL(11)='EP3D'
  732.       LESOBL(12)='EP4D'
  733.       LESOBL(13)='EP5D'
  734.       LESOBL(14)='EP6D'
  735.       LESOBL(15)='EP1R'
  736.       LESOBL(16)='EP2R'
  737.       LESOBL(17)='EP3R'
  738.       LESOBL(18)='EP4R'
  739.       LESOBL(19)='EP5R'
  740.       LESOBL(20)='EP6R'
  741.       LESOBL(21)='A1DE'
  742.       LESOBL(22)='A1RE'
  743.       GOTO 666
  744. C
  745.   75  CONTINUE
  746.       NBROBL=7
  747.       SEGINI NOMID
  748.       LESOBL(1)='EPSE'
  749.       LESOBL(2)='END1'
  750.       LESOBL(3)='END2'
  751.       LESOBL(4)='END3'
  752.       LESOBL(5)='END4'
  753.       LESOBL(6)='END5'
  754.       LESOBL(7)='END6'
  755.       GOTO 666
  756. C
  757.   87  CONTINUE
  758.       NBROBL=7
  759.       SEGINI NOMID
  760.       LESOBL(1)='EPSE'
  761.       LESOBL(2)='EPS1'
  762.       LESOBL(3)='EPS2'
  763.       LESOBL(4)='EPS3'
  764.       LESOBL(5)='EPS4'
  765.       LESOBL(6)='EPS5'
  766.       LESOBL(7)='EPS6'
  767.       GOTO 666
  768.  
  769.  
  770. *
  771. ***** BETON URGC plastique  *****
  772.  99   IF(MATEPL.NE.99) GOTO 999
  773.       NBROBL=7
  774.       SEGINI NOMID
  775.       LESOBL(1)='IFIS'
  776.       LESOBL(2)='ANGL'
  777.       LESOBL(3)='IPLA'
  778.       LESOBL(4)='SIG1'
  779.       LESOBL(5)='SIG2'
  780.       LESOBL(6)='EPS1'
  781.       LESOBL(7)='EPS2'
  782.       GOTO 666
  783. *
  784. ***** BETON URGC viscoplastique  *****
  785.  100  CONTINUE
  786.       NBROBL=17
  787.       SEGINI NOMID
  788.       LESOBL(1)='IFIS'
  789.       LESOBL(2)='ANGL'
  790.       LESOBL(3)='IPLA'
  791.       LESOBL(4)='SIG1'
  792.       LESOBL(5)='SIG2'
  793.       LESOBL(6)='EPS1'
  794.       LESOBL(7)='EPS2'
  795.       LESOBL(8)='TDEF'
  796.       LESOBL(9)='TCON'
  797.       LESOBL(10)='SP1'
  798.       LESOBL(11)='SP2'
  799.       LESOBL(12)='SP3'
  800.       LESOBL(13)='SP4'
  801.       LESOBL(14)='EPV1'
  802.       LESOBL(15)='EPV2'
  803.       LESOBL(16)='SIV1'
  804.       LESOBL(17)='SIV2'
  805.       GOTO 666
  806.  
  807. C
  808. C******************************************************
  809.   97  CONTINUE
  810.  999  CONTINUE
  811.       SEGINI,NOMID
  812.  
  813.   666 CONTINUE
  814.       IPCOMP=NOMID
  815.       SEGDES,NOMID
  816.  
  817.       RETURN
  818.       END
  819.  
  820.  
  821.  
  822.  
  823.  
  824.  
  825.  
  826.  

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