Télécharger la plaquette Cast3M


fr en

Télécharger idvar8.eso

Retour à la liste

Numérotation des lignes : 

idvar8

  1. C IDVAR8    SOURCE    PASCAL    18/12/19    21:15:01     10046          
  2.  
  3. C=======================================================================
  4. C=     RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  5. C=     --------------------------------------------------------
  6. C=
  7. C=  ENTREES :
  8. C=  ---------
  9. C=    MATEPL   NUMERO DU MATERIAU PLASTIQUE
  10. C=    MFR      NUMERO DE FORMULATION
  11. C=    IFOUR    VALEUR DE IFOU DANS CCOPTIO
  12. C=    NPINT    NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  13. C=             POUR LES ELEMENTS DE COQUE INTEGRES
  14. C=
  15. C=  SORTIES :
  16. C=  ---------
  17. C=    IPCOMP   POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  18. C=             OBLIGATOIRES ET FACULTATIVES
  19. C=    NBROBL   NOMBRE DE COMPOSANTES OBLIGATOIRES
  20. C=    NBRFAC   NOMBRE DE COMPOSANTES FACTULTATIVES
  21. C=======================================================================
  22.  
  23.       SUBROUTINE IDVAR8 (MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC)
  24.  
  25.       IMPLICIT INTEGER(I-N)
  26.       IMPLICIT REAL*8 (A-H,O-Z)
  27.  
  28.       SEGMENT NOMID
  29.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  30.       ENDSEGMENT
  31.  
  32.       NBROBL=0
  33.       NBRFAC=0
  34.       NOMID=0
  35.  
  36. C=   Modele de NOUAILHAS_A
  37. C=  ========================
  38.       IF (MATEPL.EQ.76) THEN
  39.  
  40. *     ELEMENT MASSIF
  41. ********************
  42.       IF (MFR.NE.1.AND.MFR.NE.31.AND.MFR.NE.33) GOTO 1001
  43. *
  44. *     CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  45. *      OU DEFORMATIONS PLANES GENERALISEES
  46. *
  47.         IF (IFOUR.NE.-2.AND.IFOUR.NE.-1.AND.IFOUR.NE.-3) GOTO 1040
  48.           NBROBL=20
  49.           SEGINI,NOMID
  50.           LESOBL( 1)='A1XX'
  51.           LESOBL( 2)='A1YY'
  52.           LESOBL( 3)='A1ZZ'
  53.           LESOBL( 4)='A1XY'
  54.           LESOBL( 5)='A2XX'
  55.           LESOBL( 6)='A2YY'
  56.           LESOBL( 7)='A2ZZ'
  57.           LESOBL( 8)='A2XY'
  58.           LESOBL( 9)='GPXX'
  59.           LESOBL(10)='GPYY'
  60.           LESOBL(11)='GPZZ'
  61.           LESOBL(12)='GPXY'
  62.           LESOBL(13)='VHXX'
  63.           LESOBL(14)='VHYY'
  64.           LESOBL(15)='VHZZ'
  65.           LESOBL(16)='VHXY'
  66.           LESOBL(17)='EPSE'
  67.           LESOBL(18)='VHEI'
  68.           LESOBL(19)='VQQQ'
  69.           LESOBL(20)='VHQQ'
  70. *
  71. *     CAS AXISYMETRIQUE
  72. *
  73.  1040   IF (IFOUR.NE.0) GOTO 1041
  74.           NBROBL=20
  75.           SEGINI,NOMID
  76.           LESOBL( 1)='A1RR'
  77.           LESOBL( 2)='A1ZZ'
  78.           LESOBL( 3)='A1TT'
  79.           LESOBL( 4)='A1RZ'
  80.           LESOBL( 5)='A2RR'
  81.           LESOBL( 6)='A2ZZ'
  82.           LESOBL( 7)='A2TT'
  83.           LESOBL( 8)='A2RZ'
  84.           LESOBL( 9)='GPRR'
  85.           LESOBL(10)='GPZZ'
  86.           LESOBL(11)='GPTT'
  87.           LESOBL(12)='GPRZ'
  88.           LESOBL(13)='VHRR'
  89.           LESOBL(14)='VHZZ'
  90.           LESOBL(15)='VHTT'
  91.           LESOBL(16)='VHRZ'
  92.           LESOBL(17)='EPSE'
  93.           LESOBL(18)='VHEI'
  94.           LESOBL(19)='VQQQ'
  95.           LESOBL(20)='VHQQ'
  96. *
  97. *     CAS SERIE DE FOURIER
  98. *
  99.  1041   IF (IFOUR.NE.1) GOTO 1042
  100.           NBROBL=28
  101.           SEGINI,NOMID
  102.           LESOBL( 1)='A1RR'
  103.           LESOBL( 2)='A1ZZ'
  104.           LESOBL( 3)='A1TT'
  105.           LESOBL( 4)='A1RZ'
  106.           LESOBL( 5)='A1RT'
  107.           LESOBL( 6)='A1ZT'
  108.           LESOBL( 7)='A2RR'
  109.           LESOBL( 8)='A2ZZ'
  110.           LESOBL( 9)='A2TT'
  111.           LESOBL(10)='A2RZ'
  112.           LESOBL(11)='A2RT'
  113.           LESOBL(12)='A2ZT'
  114.           LESOBL(13)='GPRR'
  115.           LESOBL(14)='GPZZ'
  116.           LESOBL(15)='GPTT'
  117.           LESOBL(16)='GPRZ'
  118.           LESOBL(17)='GPRT'
  119.           LESOBL(18)='GPZT'
  120.           LESOBL(19)='VHRR'
  121.           LESOBL(20)='VHZZ'
  122.           LESOBL(21)='VHTT'
  123.           LESOBL(22)='VHRZ'
  124.           LESOBL(23)='VHRT'
  125.           LESOBL(24)='VHZT'
  126.           LESOBL(25)='EPSE'
  127.           LESOBL(26)='VHEI'
  128.           LESOBL(27)='VQQQ'
  129.           LESOBL(28)='VHQQ'
  130. *
  131. *     CAS TRIDIMENSIONNEL
  132. *
  133.  1042   IF (IFOUR.NE.2) GOTO 1043
  134.           NBROBL=28
  135.           SEGINI,NOMID
  136.           LESOBL( 1)='A1XX'
  137.           LESOBL( 2)='A1YY'
  138.           LESOBL( 3)='A1ZZ'
  139.           LESOBL( 4)='A1XY'
  140.           LESOBL( 5)='A1YZ'
  141.           LESOBL( 6)='A1ZX'
  142.           LESOBL( 7)='A2XX'
  143.           LESOBL( 8)='A2YY'
  144.           LESOBL( 9)='A2ZZ'
  145.           LESOBL(10)='A2XY'
  146.           LESOBL(11)='A2YZ'
  147.           LESOBL(12)='A2ZX'
  148.           LESOBL(13)='GPXX'
  149.           LESOBL(14)='GPYY'
  150.           LESOBL(15)='GPZZ'
  151.           LESOBL(16)='GPXY'
  152.           LESOBL(17)='GPYZ'
  153.           LESOBL(18)='GPZX'
  154.           LESOBL(19)='VHXX'
  155.           LESOBL(20)='VHYY'
  156.           LESOBL(21)='VHZZ'
  157.           LESOBL(22)='VHXY'
  158.           LESOBL(23)='VHYZ'
  159.           LESOBL(24)='VHZX'
  160.           LESOBL(25)='EPSE'
  161.           LESOBL(26)='VHEI'
  162.           LESOBL(27)='VQQQ'
  163.           LESOBL(28)='VHQQ'
  164. C= Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  165.  1043   IF (IFOUR.LT.3.OR.IFOUR.GT.11) GOTO 1044
  166.           NBROBL=16
  167.           SEGINI,NOMID
  168.           LESOBL( 1)='A1XX'
  169.           LESOBL( 2)='A1YY'
  170.           LESOBL( 3)='A1ZZ'
  171.           LESOBL( 4)='A2XX'
  172.           LESOBL( 5)='A2YY'
  173.           LESOBL( 6)='A2ZZ'
  174.           LESOBL( 7)='GPXX'
  175.           LESOBL( 8)='GPYY'
  176.           LESOBL( 9)='GPZZ'
  177.           LESOBL(10)='VHXX'
  178.           LESOBL(11)='VHYY'
  179.           LESOBL(12)='VHZZ'
  180.           LESOBL(13)='EPSE'
  181.           LESOBL(14)='VHEI'
  182.           LESOBL(15)='VQQQ'
  183.           LESOBL(16)='VHQQ'
  184. C= Modes de calcul UNIDIMENSIONNELS (1D) AXIS et SPHE
  185.  1044   IF (IFOUR.LT.12.OR.IFOUR.GT.15) GOTO 99
  186.           NBROBL=16
  187.           SEGINI,NOMID
  188.           LESOBL( 1)='A1XX'
  189.           LESOBL( 2)='A1YY'
  190.           LESOBL( 3)='A1ZZ'
  191.           LESOBL( 4)='A2XX'
  192.           LESOBL( 5)='A2YY'
  193.           LESOBL( 6)='A2ZZ'
  194.           LESOBL( 7)='GPXX'
  195.           LESOBL( 8)='GPYY'
  196.           LESOBL( 9)='GPZZ'
  197.           LESOBL(10)='VHXX'
  198.           LESOBL(11)='VHYY'
  199.           LESOBL(12)='VHZZ'
  200.           LESOBL(13)='EPSE'
  201.           LESOBL(14)='VHEI'
  202.           LESOBL(15)='VQQQ'
  203.           LESOBL(16)='VHQQ'
  204.  
  205. *     COQUE
  206. ***********
  207.  1001 IF (MFR.NE.3) GOTO 1003
  208.         IF (NPINT.EQ.0) THEN
  209. *
  210. *        CAS TRIDIMENSIONNEL - FOURIER
  211. *
  212.           IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN
  213.             NBROBL=36
  214.             SEGINI,NOMID
  215.             LESOBL( 1)='A1N1'
  216.             LESOBL( 2)='A1N2'
  217.             LESOBL( 3)='A1N3'
  218.             LESOBL( 4)='A1N4'
  219.             LESOBL( 5)='A1M1'
  220.             LESOBL( 6)='A1M2'
  221.             LESOBL( 7)='A1M3'
  222.             LESOBL( 8)='A1M4'
  223.             LESOBL( 9)='A2N1'
  224.             LESOBL(10)='A2N2'
  225.             LESOBL(11)='A2N3'
  226.             LESOBL(12)='A2N4'
  227.             LESOBL(13)='A2M1'
  228.             LESOBL(14)='A2M2'
  229.             LESOBL(15)='A2M3'
  230.             LESOBL(16)='A2M4'
  231.             LESOBL(17)='GPN1'
  232.             LESOBL(18)='GPN2'
  233.             LESOBL(19)='GPN3'
  234.             LESOBL(20)='GPN4'
  235.             LESOBL(21)='GPM1'
  236.             LESOBL(22)='GPM2'
  237.             LESOBL(23)='GPM3'
  238.             LESOBL(24)='GPM4'
  239.             LESOBL(25)='EPN1'
  240.             LESOBL(26)='EPN2'
  241.             LESOBL(27)='EPN3'
  242.             LESOBL(28)='EPN4'
  243.             LESOBL(29)='EPM1'
  244.             LESOBL(30)='EPM2'
  245.             LESOBL(31)='EPM3'
  246.             LESOBL(32)='EPM4'
  247.             LESOBL(33)='EPSE'
  248.             LESOBL(34)='VHEI'
  249.             LESOBL(35)='VQQQ'
  250.             LESOBL(36)='VHQQ'
  251. *
  252. *       CAS AXISYMETRIQUE
  253. *
  254.           ELSE IF (IFOUR.EQ.0) THEN
  255.             NBROBL=28
  256.             SEGINI NOMID
  257.             LESOBL( 1)='A1N1'
  258.             LESOBL( 2)='A1N2'
  259.             LESOBL( 3)='A1N3'
  260.             LESOBL( 4)='A1M1'
  261.             LESOBL( 5)='A1M2'
  262.             LESOBL( 6)='A1M3'
  263.             LESOBL( 7)='A2N1'
  264.             LESOBL( 8)='A2N2'
  265.             LESOBL( 9)='A2N3'
  266.             LESOBL(10)='A2M1'
  267.             LESOBL(11)='A2M2'
  268.             LESOBL(12)='A2M3'
  269.             LESOBL(13)='GPN1'
  270.             LESOBL(14)='GPN2'
  271.             LESOBL(15)='GPN3'
  272.             LESOBL(16)='GPM1'
  273.             LESOBL(17)='GPM2'
  274.             LESOBL(18)='GPM3'
  275.             LESOBL(19)='EPN1'
  276.             LESOBL(20)='EPN2'
  277.             LESOBL(21)='EPN3'
  278.             LESOBL(22)='EPM1'
  279.             LESOBL(23)='EPM2'
  280.             LESOBL(24)='EPM3'
  281.             LESOBL(25)='EPSE'
  282.             LESOBL(26)='VHEI'
  283.             LESOBL(27)='VQQQ'
  284.             LESOBL(28)='VHQQ'
  285. *
  286. *        CAS CONTRAINTES OU DEFORMATIONS PLANES
  287. *         OU DEFORMATIONS PLANES GENERALISEES
  288. *
  289.           ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN
  290.             NBROBL=28
  291.             SEGINI NOMID
  292.             LESOBL(1) ='A1N1'
  293.             LESOBL(2) ='A1N2'
  294.             LESOBL(3) ='A1N3'
  295.             LESOBL(4) ='A1M1'
  296.             LESOBL(5) ='A1M2'
  297.             LESOBL(6) ='A1M3'
  298.             LESOBL(7) ='A2N1'
  299.             LESOBL(8) ='A2N2'
  300.             LESOBL(9) ='A2N3'
  301.             LESOBL(10)='A2M1'
  302.             LESOBL(11)='A2M2'
  303.             LESOBL(12)='A2M3'
  304.             LESOBL(13)='GPN1'
  305.             LESOBL(14)='GPN2'
  306.             LESOBL(15)='GPN3'
  307.             LESOBL(16)='GPM1'
  308.             LESOBL(17)='GPM2'
  309.             LESOBL(18)='GPM3'
  310.             LESOBL(19)='EPN1'
  311.             LESOBL(20)='EPN2'
  312.             LESOBL(21)='EPN3'
  313.             LESOBL(22)='EPM1'
  314.             LESOBL(23)='EPM2'
  315.             LESOBL(24)='EPM3'
  316.             LESOBL(25)='EPSE'
  317.             LESOBL(26)='VHEI'
  318.             LESOBL(27)='VQQQ'
  319.             LESOBL(28)='VHQQ'
  320.           ENDIF
  321.         ELSE
  322.           IF (IFOUR.EQ.2) THEN
  323.             NBROBL=20
  324.             SEGINI NOMID
  325.             LESOBL(1) ='A1SS'
  326.             LESOBL(2) ='A1TT'
  327.             LESOBL(3) ='A1NN'
  328.             LESOBL(4) ='A1ST'
  329.             LESOBL(5) ='A2SS'
  330.             LESOBL(6) ='A2TT'
  331.             LESOBL(7) ='A2NN'
  332.             LESOBL(8) ='A2ST'
  333.             LESOBL(9) ='GPSS'
  334.             LESOBL(10)='GPTT'
  335.             LESOBL(11)='GPNN'
  336.             LESOBL(12)='GPST'
  337.             LESOBL(13)='VHSS'
  338.             LESOBL(14)='VHTT'
  339.             LESOBL(15)='VHNN'
  340.             LESOBL(16)='VHST'
  341.             LESOBL(17)='EPSE'
  342.             LESOBL(18)='VHEI'
  343.             LESOBL(19)='VQQQ'
  344.             LESOBL(20)='VHQQ'
  345.           ENDIF
  346.         ENDIF
  347.  
  348. *     COQUE  EPAISSE
  349. ********************
  350.  1003 IF (MFR.NE.5) GOTO 1005
  351.       IF (IFOUR.NE.2) GOTO 99
  352. *     CAS TRIDIMENSIONNEL
  353.       NBROBL=28
  354.       SEGINI NOMID
  355.       LESOBL(1) ='A1SS'
  356.       LESOBL(2) ='A1TT'
  357.       LESOBL(3) ='A1NN'
  358.       LESOBL(4) ='A1ST'
  359.       LESOBL(5) ='A1SN'
  360.       LESOBL(6) ='A1TN'
  361.       LESOBL(7) ='A2SS'
  362.       LESOBL(8) ='A2TT'
  363.       LESOBL(9) ='A2NN'
  364.       LESOBL(10)='A2ST'
  365.       LESOBL(11)='A2SN'
  366.       LESOBL(12)='A2TN'
  367.       LESOBL(13)='GPSS'
  368.       LESOBL(14)='GPTT'
  369.       LESOBL(15)='GPNN'
  370.       LESOBL(16)='GPST'
  371.       LESOBL(17)='GPSN'
  372.       LESOBL(18)='GPTN'
  373.       LESOBL(19)='VHSS'
  374.       LESOBL(20)='VHTT'
  375.       LESOBL(21)='VHNN'
  376.       LESOBL(22)='VHST'
  377.       LESOBL(23)='VHSN'
  378.       LESOBL(24)='VHTN'
  379.       LESOBL(25)='EPSE'
  380.       LESOBL(26)='VHEI'
  381.       LESOBL(27)='VQQQ'
  382.       LESOBL(28)='VHQQ'
  383.  
  384. *     POUTRE ET TUYAU
  385. *********************
  386.  1005 IF (MFR.NE.7.AND.MFR.NE.13) GOTO 1007
  387. *
  388. *     CAS TRIDIMENSIONNEL
  389. *
  390.       IF (IFOUR.NE.2) GOTO 99
  391.       NBROBL=28
  392.       SEGINI NOMID
  393.       LESOBL(1) ='A1FX'
  394.       LESOBL(2) ='A1FY'
  395.       LESOBL(3) ='A1FZ'
  396.       LESOBL(4) ='A1MX'
  397.       LESOBL(5) ='A1MY'
  398.       LESOBL(6) ='A1MZ'
  399.       LESOBL(7) ='A2FX'
  400.       LESOBL(8) ='A2FY'
  401.       LESOBL(9) ='A2FZ'
  402.       LESOBL(10)='A2MX'
  403.       LESOBL(11)='A2MY'
  404.       LESOBL(12)='A2MZ'
  405.       LESOBL(13)='GPFX'
  406.       LESOBL(14)='GPFY'
  407.       LESOBL(15)='GPFZ'
  408.       LESOBL(16)='GPMX'
  409.       LESOBL(17)='GPMY'
  410.       LESOBL(18)='GPMZ'
  411.       LESOBL(19)='EPFX'
  412.       LESOBL(20)='EPFY'
  413.       LESOBL(21)='EPFZ'
  414.       LESOBL(22)='EPMX'
  415.       LESOBL(23)='EPMY'
  416.       LESOBL(24)='EPMZ'
  417.       LESOBL(25)='EPSE'
  418.       LESOBL(26)='VHEI'
  419.       LESOBL(27)='VQQQ'
  420.       LESOBL(28)='VHQQ'
  421.  
  422. *     COQUE CISAILLEMENT TRANSVERSE
  423. ***********************************
  424.  1007 IF (MFR.NE.9) GOTO 1009
  425.       IF (NPINT.EQ.0) THEN
  426. *     CAS TRIDIMENSIONNEL
  427.         IF (IFOUR.EQ.2) THEN
  428.           NBROBL=36
  429.           SEGINI,NOMID
  430.           LESOBL(1) ='A1N1'
  431.           LESOBL(2) ='A1N2'
  432.           LESOBL(3) ='A1N3'
  433.           LESOBL(4) ='A1M1'
  434.           LESOBL(5) ='A1M2'
  435.           LESOBL(6) ='A1M3'
  436.           LESOBL(7) ='A1V1'
  437.           LESOBL(8) ='A1V2'
  438.           LESOBL(9) ='A2N1'
  439.           LESOBL(10)='A2N2'
  440.           LESOBL(11)='A2N3'
  441.           LESOBL(12)='A2M1'
  442.           LESOBL(13)='A2M2'
  443.           LESOBL(14)='A2M3'
  444.           LESOBL(15)='A2V1'
  445.           LESOBL(16)='A2V2'
  446.           LESOBL(17)='GPN1'
  447.           LESOBL(18)='GPN2'
  448.           LESOBL(19)='GPN3'
  449.           LESOBL(20)='GPM1'
  450.           LESOBL(21)='GPM2'
  451.           LESOBL(22)='GPM3'
  452.           LESOBL(23)='GPV1'
  453.           LESOBL(24)='GPV2'
  454.           LESOBL(25)='EPN1'
  455.           LESOBL(26)='EPN2'
  456.           LESOBL(27)='EPN3'
  457.           LESOBL(28)='EPM1'
  458.           LESOBL(29)='EPM2'
  459.           LESOBL(30)='EPM3'
  460.           LESOBL(31)='EPV1'
  461.           LESOBL(32)='EPV2'
  462.           LESOBL(33)='EPSE'
  463.           LESOBL(34)='VHEI'
  464.           LESOBL(35)='VQQQ'
  465.           LESOBL(36)='VHQQ'
  466.         ENDIF
  467.       ENDIF
  468.  
  469. *     FORMULATION MEMBRANE
  470. **************************
  471.  1009 CONTINUE
  472.       IF(MFR.NE.25) GOTO 1025
  473.       NBROBL=16
  474.       SEGINI,NOMID
  475.       LESOBL( 1)='A1SS'
  476.       LESOBL( 2)='A1TT'
  477.       LESOBL( 3)='A1ST'
  478.       LESOBL( 4)='A2SS'
  479.       LESOBL( 5)='A2TT'
  480.       LESOBL( 6)='A2ST'
  481.       LESOBL( 7)='GPSS'
  482.       LESOBL( 8)='GPTT'
  483.       LESOBL( 9)='GPST'
  484.       LESOBL(10)='VHSS'
  485.       LESOBL(11)='VHTT'
  486.       LESOBL(12)='VHST'
  487.       LESOBL(13)='EPSE'
  488.       LESOBL(14)='VHEI'
  489.       LESOBL(15)='VQQQ'
  490.       LESOBL(16)='VHQQ'
  491.  
  492. *     FORMULATION UNIAXIALE
  493. ***************************
  494.  1025 IF (MFR.EQ.27) THEN
  495.         NBROBL=8
  496.         SEGINI,NOMID
  497.         LESOBL(1)='A1FX'
  498.         LESOBL(2)='A2FX'
  499.         LESOBL(3)='GPFX'
  500.         LESOBL(4)='EPFX'
  501.         LESOBL(5)='EPSE'
  502.         LESOBL(6)='VHEI'
  503.         LESOBL(7)='VQQQ'
  504.         LESOBL(8)='VHQQ'
  505.       ENDIF
  506.  
  507.       ENDIF
  508.  
  509.  99   IPCOMP=NOMID
  510.       SEGDES,NOMID
  511.  
  512.       RETURN
  513.       END
  514.  
  515.  
  516.  
  517.  
  518.  
  519.  

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