Télécharger la plaquette Cast3M


fr en

Télécharger idvar2.eso

Retour à la liste

Numérotation des lignes : 

idvar2

  1. C IDVAR2    SOURCE    FANDEUR   10/02/01    21:15:38     6603
  2.  
  3. C=======================================================================
  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 IFOUR 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 FACULTATIVES
  21. C=======================================================================
  22.  
  23.       SUBROUTINE IDVAR2 (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=  MODELES DE FLUAGE :   BLACKBURN (MATEPL=20)  RCCMR-316   (MATEPL=22)
  37. C= =====================  RCCMR-304 (MATEPL=23)  BLACKBURN_2 (MATEPL=61)
  38.  
  39. *  ELEMENT MASSIF
  40. ******************
  41.       IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN
  42. * CAS CONTRAINTES PLANES ou DEFORMATIONS PLANES ou
  43. *     DEFORMATIONS PLANES GENERALISEES
  44.         IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN
  45.           NBROBL=16
  46.           SEGINI,NOMID
  47.           LESOBL( 1)='PXX '
  48.           LESOBL( 2)='PYY '
  49.           LESOBL( 3)='PZZ '
  50.           LESOBL( 4)='PXY '
  51.           LESOBL( 5)='VNXX'
  52.           LESOBL( 6)='VNYY'
  53.           LESOBL( 7)='VNZZ'
  54.           LESOBL( 8)='VNXY'
  55.           LESOBL( 9)='EPCE'
  56.           LESOBL(10)='EPSH'
  57.           LESOBL(11)='LL  '
  58.           LESOBL(12)='EPSE'
  59.           LESOBL(13)='ECXX'
  60.           LESOBL(14)='ECYY'
  61.           LESOBL(15)='ECZZ'
  62.           LESOBL(16)='ECXY'
  63. * CAS AXISYMETRIQUE
  64.         ELSE IF (IFOUR.EQ.0) THEN
  65.           NBROBL=16
  66.           SEGINI,NOMID
  67.           LESOBL( 1)='PRR '
  68.           LESOBL( 2)='PZZ '
  69.           LESOBL( 3)='PTT '
  70.           LESOBL( 4)='PRZ '
  71.           LESOBL( 5)='VNRR'
  72.           LESOBL( 6)='VNZZ'
  73.           LESOBL( 7)='VNTT'
  74.           LESOBL( 8)='VNRZ'
  75.           LESOBL( 9)='EPCE'
  76.           LESOBL(10)='EPSH'
  77.           LESOBL(11)='LL  '
  78.           LESOBL(12)='EPSE'
  79.           LESOBL(13)='ECRR'
  80.           LESOBL(14)='ECZZ'
  81.           LESOBL(15)='ECTT'
  82.           LESOBL(16)='ECRZ'
  83. * CAS SERIE DE FOURIER
  84.         ELSE IF (IFOUR.EQ.1) THEN
  85.           NBROBL=22
  86.           SEGINI,NOMID
  87.           LESOBL( 1)='PRR '
  88.           LESOBL( 2)='PZZ '
  89.           LESOBL( 3)='PTT '
  90.           LESOBL( 4)='PRZ '
  91.           LESOBL( 5)='PRT '
  92.           LESOBL( 6)='PZT '
  93.           LESOBL( 7)='VNRR'
  94.           LESOBL( 8)='VNZZ'
  95.           LESOBL( 9)='VNTT'
  96.           LESOBL(10)='VNRZ'
  97.           LESOBL(11)='VNRT'
  98.           LESOBL(12)='VNZT'
  99.           LESOBL(13)='EPCE'
  100.           LESOBL(14)='EPSH'
  101.           LESOBL(15)='LL  '
  102.           LESOBL(16)='EPSE'
  103.           LESOBL(17)='ECRR'
  104.           LESOBL(18)='ECZZ'
  105.           LESOBL(19)='ECTT'
  106.           LESOBL(20)='ECRZ'
  107.           LESOBL(21)='ECRT'
  108.           LESOBL(22)='ECZT'
  109. * CAS TRIDIMENSIONNEL
  110.         ELSE IF (IFOUR.EQ.2) THEN
  111.           NBROBL=22
  112.           SEGINI,NOMID
  113.           LESOBL( 1)='PXX '
  114.           LESOBL( 2)='PYY '
  115.           LESOBL( 3)='PZZ '
  116.           LESOBL( 4)='PXY '
  117.           LESOBL( 5)='PYZ '
  118.           LESOBL( 6)='PZX '
  119.           LESOBL( 7)='VNXX'
  120.           LESOBL( 8)='VNYY'
  121.           LESOBL( 9)='VNZZ'
  122.           LESOBL(10)='VNXY'
  123.           LESOBL(11)='VNYZ'
  124.           LESOBL(12)='VNZX'
  125.           LESOBL(13)='EPCE'
  126.           LESOBL(14)='EPSH'
  127.           LESOBL(15)='LL  '
  128.           LESOBL(16)='EPSE'
  129.           LESOBL(17)='ECXX'
  130.           LESOBL(18)='ECYY'
  131.           LESOBL(19)='ECZZ'
  132.           LESOBL(20)='ECXY'
  133.           LESOBL(21)='ECYZ'
  134.           LESOBL(22)='ECZX'
  135. * CAS UNDIMENSIONNEL (1D) PLAN
  136.         ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN
  137.           NBROBL=13
  138.           SEGINI,NOMID
  139.           LESOBL( 1)='PXX '
  140.           LESOBL( 2)='PYY '
  141.           LESOBL( 3)='PZZ '
  142.           LESOBL( 4)='VNXX'
  143.           LESOBL( 5)='VNYY'
  144.           LESOBL( 6)='VNZZ'
  145.           LESOBL( 7)='EPCE'
  146.           LESOBL( 8)='EPSH'
  147.           LESOBL( 9)='LL  '
  148.           LESOBL(10)='EPSE'
  149.           LESOBL(11)='ECXX'
  150.           LESOBL(12)='ECYY'
  151.           LESOBL(13)='ECZZ'
  152. * CAS UNIDIMENSIONNEL (1D) AXISYMETRIQUE OU SPHERIQUE
  153.         ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN
  154.           NBROBL=13
  155.           SEGINI,NOMID
  156.           LESOBL( 1)='PRR '
  157.           LESOBL( 2)='PZZ '
  158.           LESOBL( 3)='PTT '
  159.           LESOBL( 4)='VNRR'
  160.           LESOBL( 5)='VNZZ'
  161.           LESOBL( 6)='VNTT'
  162.           LESOBL( 7)='EPCE'
  163.           LESOBL( 8)='EPSH'
  164.           LESOBL( 9)='LL  '
  165.           LESOBL(10)='EPSE'
  166.           LESOBL(11)='ECRR'
  167.           LESOBL(12)='ECZZ'
  168.           LESOBL(13)='ECTT'
  169.         ENDIF
  170.  
  171. *  ELEMENT COQUE
  172. *****************
  173.       ELSE IF (MFR.EQ.3) THEN
  174.         IF (NPINT.EQ.0) THEN
  175. * CAS TRIDIMENSIONNEL et FOURIER
  176.           IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN
  177.             NBROBL=28
  178.             SEGINI,NOMID
  179.             LESOBL( 1)='PN11'
  180.             LESOBL( 2)='PN22'
  181.             LESOBL( 3)='PN33'
  182.             LESOBL( 4)='PN12'
  183.             LESOBL( 5)='PM11'
  184.             LESOBL( 6)='PM22'
  185.             LESOBL( 7)='PM33'
  186.             LESOBL( 8)='PM12'
  187.             LESOBL( 9)='NN11'
  188.             LESOBL(10)='NN22'
  189.             LESOBL(11)='NN33'
  190.             LESOBL(12)='NN12'
  191.             LESOBL(13)='NM11'
  192.             LESOBL(14)='NM22'
  193.             LESOBL(15)='NM33'
  194.             LESOBL(16)='NM12'
  195.             LESOBL(17)='EPCE'
  196.             LESOBL(18)='EPSH'
  197.             LESOBL(19)='LL  '
  198.             LESOBL(20)='EPSE'
  199.             LESOBL(21)='EN11'
  200.             LESOBL(22)='EN22'
  201.             LESOBL(23)='EN33'
  202.             LESOBL(24)='EN12'
  203.             LESOBL(25)='EM11'
  204.             LESOBL(26)='EM22'
  205.             LESOBL(27)='EM23'
  206.             LESOBL(28)='EM12'
  207. * CAS AXISYMETRIQUE
  208.           ELSE IF (IFOUR.EQ.0) THEN
  209.             NBROBL=22
  210.             SEGINI,NOMID
  211.             LESOBL( 1)='PN11'
  212.             LESOBL( 2)='PN22'
  213.             LESOBL( 3)='PN33'
  214.             LESOBL( 4)='PM11'
  215.             LESOBL( 5)='PM22'
  216.             LESOBL( 6)='PM33'
  217.             LESOBL( 7)='NN11'
  218.             LESOBL( 8)='NN22'
  219.             LESOBL( 9)='NM33'
  220.             LESOBL(10)='NM11'
  221.             LESOBL(11)='NM22'
  222.             LESOBL(12)='NM33'
  223.             LESOBL(13)='EPCE'
  224.             LESOBL(14)='EPSH'
  225.             LESOBL(15)='LL  '
  226.             LESOBL(16)='EPSE'
  227.             LESOBL(17)='EN11'
  228.             LESOBL(18)='EN22'
  229.             LESOBL(19)='EN33'
  230.             LESOBL(20)='EM11'
  231.             LESOBL(21)='EM22'
  232.             LESOBL(22)='EM33'
  233. * CAS CONTRAINTES OU DEFORMATIONS PLANES ou
  234. *     DEFORMATIONS PLANES GENERALISEES
  235.           ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN
  236.             NBROBL=22
  237.             SEGINI,NOMID
  238.             LESOBL( 1)='PN11'
  239.             LESOBL( 2)='PN22'
  240.             LESOBL( 3)='PN33'
  241.             LESOBL( 4)='PM11'
  242.             LESOBL( 5)='PM22'
  243.             LESOBL( 6)='PM33'
  244.             LESOBL( 7)='NN11'
  245.             LESOBL( 8)='NN22'
  246.             LESOBL( 9)='NM33'
  247.             LESOBL(10)='NM11'
  248.             LESOBL(11)='NM22'
  249.             LESOBL(12)='NM33'
  250.             LESOBL(13)='EPCE'
  251.             LESOBL(14)='EPSH'
  252.             LESOBL(15)='LL  '
  253.             LESOBL(16)='EPSE'
  254.             LESOBL(17)='EN11'
  255.             LESOBL(18)='EN22'
  256.             LESOBL(19)='EN33'
  257.             LESOBL(20)='EM11'
  258.             LESOBL(21)='EM22'
  259.             LESOBL(22)='EM33'
  260.           ENDIF
  261.         ELSE
  262.           IF (IFOUR.EQ.2) THEN
  263.             NBROBL=16
  264.             SEGINI,NOMID
  265.             LESOBL( 1)='PMSS'
  266.             LESOBL( 2)='PMTT'
  267.             LESOBL( 3)='PMNN'
  268.             LESOBL( 4)='PMST'
  269.             LESOBL( 5)='NMSS'
  270.             LESOBL( 6)='NMTT'
  271.             LESOBL( 7)='NMNN'
  272.             LESOBL( 8)='NMST'
  273.             LESOBL( 9)='EPCE'
  274.             LESOBL(10)='EPSH'
  275.             LESOBL(11)='LL  '
  276.             LESOBL(12)='EPSE'
  277.             LESOBL(13)='EMSS'
  278.             LESOBL(14)='EMTT'
  279.             LESOBL(15)='EMNN'
  280.             LESOBL(16)='EMST'
  281.           ENDIF
  282.         ENDIF
  283.  
  284. *  ELEMENT COQUE EPAISSE
  285. *************************
  286.       ELSE IF (MFR.EQ.5) THEN
  287. * CAS TRIDIMENSIONNEL
  288.         IF (IFOUR.EQ.2) THEN
  289.           NBROBL=22
  290.           SEGINI,NOMID
  291.           LESOBL( 1)='PMSS'
  292.           LESOBL( 2)='PMTT'
  293.           LESOBL( 3)='PMNN'
  294.           LESOBL( 4)='PMST'
  295.           LESOBL( 5)='PMSN'
  296.           LESOBL( 6)='PMTN'
  297.           LESOBL( 7)='NMSS'
  298.           LESOBL( 8)='NMTT'
  299.           LESOBL( 9)='NMNN'
  300.           LESOBL(10)='NMST'
  301.           LESOBL(11)='NMSN'
  302.           LESOBL(12)='NMTN'
  303.           LESOBL(13)='EPCE'
  304.           LESOBL(14)='EPSH'
  305.           LESOBL(15)='LL  '
  306.           LESOBL(16)='EPSE'
  307.           LESOBL(17)='EMSS'
  308.           LESOBL(18)='EMTT'
  309.           LESOBL(19)='EMNN'
  310.           LESOBL(20)='EMST'
  311.           LESOBL(21)='EMSN'
  312.           LESOBL(22)='EMTN'
  313.         ENDIF
  314.  
  315. *  ELEMENTS POUTRE ET TUYAU
  316. ****************************
  317.       ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN
  318. * CAS TRIDIMENSIONNEL
  319.         IF (IFOUR.EQ.2) THEN
  320.           NBROBL=22
  321.           SEGINI,NOMID
  322.           LESOBL( 1)='PEFX'
  323.           LESOBL( 2)='PEFY'
  324.           LESOBL( 3)='PEFZ'
  325.           LESOBL( 4)='PMOX'
  326.           LESOBL( 5)='PMOY'
  327.           LESOBL( 6)='PMOZ'
  328.           LESOBL( 7)='NEFX'
  329.           LESOBL( 8)='NEFY'
  330.           LESOBL( 9)='NEFZ'
  331.           LESOBL(10)='NMOX'
  332.           LESOBL(11)='EMOY'
  333.           LESOBL(12)='EMOZ'
  334.           LESOBL(13)='EPCE'
  335.           LESOBL(14)='EPCF'
  336.           LESOBL(15)='LL  '
  337.           LESOBL(16)='EPSE'
  338.           LESOBL(17)='EEFX'
  339.           LESOBL(18)='EEFY'
  340.           LESOBL(19)='EEFZ'
  341.           LESOBL(20)='EMOX'
  342.           LESOBL(21)='ENOY'
  343.           LESOBL(22)='ENOZ'
  344.         ENDIF
  345.  
  346. *  ELEMENT COQUE CISAILLEMENT TRANSVERSE
  347. *****************************************
  348.       ELSE IF (MFR.EQ.9) THEN
  349.         IF (NPINT.EQ.0) THEN
  350.           IF (IFOUR.EQ.2) THEN
  351. * CAS TRIDIMENSIONNEL
  352.             NBROBL=28
  353.             SEGINI,NOMID
  354.             LESOBL( 1)='PN11'
  355.             LESOBL( 2)='PN22'
  356.             LESOBL( 3)='PN12'
  357.             LESOBL( 4)='PM11'
  358.             LESOBL( 5)='PM22'
  359.             LESOBL( 6)='PM12'
  360.             LESOBL( 7)='PV1 '
  361.             LESOBL( 8)='PV2 '
  362.             LESOBL( 9)='NN11'
  363.             LESOBL(10)='NN22'
  364.             LESOBL(11)='NN12'
  365.             LESOBL(12)='NM11'
  366.             LESOBL(13)='NM22'
  367.             LESOBL(14)='NM12'
  368.             LESOBL(15)='NV1 '
  369.             LESOBL(16)='NV2 '
  370.             LESOBL(17)='EPCE'
  371.             LESOBL(18)='EPSH'
  372.             LESOBL(19)='LL  '
  373.             LESOBL(20)='EPSE'
  374.             LESOBL(22)='EN11'
  375.             LESOBL(22)='EN22'
  376.             LESOBL(23)='EN12'
  377.             LESOBL(24)='EM11'
  378.             LESOBL(25)='EM22'
  379.             LESOBL(26)='EM12'
  380.             LESOBL(27)='EV1 '
  381.             LESOBL(28)='EV2 '
  382.           ENDIF
  383.         ENDIF
  384.  
  385. *  FORMULATION MEMBRANE
  386. ************************
  387.       ELSE IF (MFR.EQ.25) THEN
  388.         NBROBL=13
  389.         SEGINI,NOMID
  390.         LESOBL( 1)='PMSS'
  391.         LESOBL( 2)='PMTT'
  392.         LESOBL( 3)='PMST'
  393.         LESOBL( 4)='NMSS'
  394.         LESOBL( 5)='NMTT'
  395.         LESOBL( 6)='NMST'
  396.         LESOBL( 7)='EPCE'
  397.         LESOBL( 8)='EPSH'
  398.         LESOBL( 9)='LL  '
  399.         LESOBL(10)='EPSE'
  400.         LESOBL(11)='EMSS'
  401.         LESOBL(12)='EMTT'
  402.         LESOBL(13)='EMST'
  403.  
  404. *  FORMULATION UNIAXIALE
  405. *************************
  406.       ELSE IF (MFR.EQ.27) THEN
  407.         NBROBL=7
  408.         SEGINI,NOMID
  409.         LESOBL(1)='PEFX'
  410.         LESOBL(2)='NEFX'
  411.         LESOBL(3)='EPCE'
  412.         LESOBL(4)='EPSH'
  413.         LESOBL(5)='LL  '
  414.         LESOBL(6)='EPSE'
  415.         LESOBL(7)='EEFX'
  416.       ENDIF
  417.  
  418.       IPCOMP=NOMID
  419.       SEGDES,NOMID
  420.  
  421.       RETURN
  422.       END
  423.  
  424.  
  425.  
  426.  
  427.  

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