Télécharger la plaquette Cast3M


fr en

Télécharger idvar9.eso

Retour à la liste

Numérotation des lignes : 

idvar9

  1. C IDVAR9    SOURCE    PASCAL    18/12/19    21:15:04     10046          
  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 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. C=======================================================================
  22.  
  23.       SUBROUTINE IDVAR9 (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_B
  37. C= =======================
  38.       IF (MATEPL.EQ.77) THEN
  39.  
  40. *     ELEMENT MASSIF
  41. ********************
  42.         IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN
  43. *
  44. *     CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES
  45. *      OU DEFORMATIONS PLANES GENERALISEES
  46. *
  47.           IF (IFOUR.EQ.-2.OR.IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN
  48.             NBROBL=13
  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)='VLXX'
  59.             LESOBL(10)='VLYY'
  60.             LESOBL(11)='VLZZ'
  61.             LESOBL(12)='VLXY'
  62.             LESOBL(13)='EPSE'
  63. *
  64. *     CAS AXISYMETRIQUE
  65. *
  66.           ELSE IF (IFOUR.EQ.0) THEN
  67.             NBROBL=13
  68.             SEGINI,NOMID
  69.             LESOBL( 1)='A1RR'
  70.             LESOBL( 2)='A1ZZ'
  71.             LESOBL( 3)='A1TT'
  72.             LESOBL( 4)='A1RZ'
  73.             LESOBL( 5)='A2RR'
  74.             LESOBL( 6)='A2ZZ'
  75.             LESOBL( 7)='A2TT'
  76.             LESOBL( 8)='A2RZ'
  77.             LESOBL( 9)='VLRR'
  78.             LESOBL(10)='VLZZ'
  79.             LESOBL(11)='VLTT'
  80.             LESOBL(12)='VLRZ'
  81.             LESOBL(13)='EPSE'
  82. *
  83. *     CAS SERIE DE FOURIER
  84. *
  85.           ELSE IF (IFOUR.EQ.1) THEN
  86.             NBROBL=19
  87.             SEGINI,NOMID
  88.             LESOBL( 1)='A1RR'
  89.             LESOBL( 2)='A1ZZ'
  90.             LESOBL( 3)='A1TT'
  91.             LESOBL( 4)='A1RZ'
  92.             LESOBL( 5)='A1RT'
  93.             LESOBL( 6)='A1ZT'
  94.             LESOBL( 7)='A2RR'
  95.             LESOBL( 8)='A2ZZ'
  96.             LESOBL( 9)='A2TT'
  97.             LESOBL(10)='A2RZ'
  98.             LESOBL(11)='A2RT'
  99.             LESOBL(12)='A2ZT'
  100.             LESOBL(13)='VLRR'
  101.             LESOBL(14)='VLZZ'
  102.             LESOBL(15)='VLTT'
  103.             LESOBL(16)='VLRZ'
  104.             LESOBL(17)='VLRT'
  105.             LESOBL(18)='VLZT'
  106.             LESOBL(19)='EPSE'
  107. *
  108. *     CAS TRIDIMENSIONNEL
  109. *
  110.           ELSE IF (IFOUR.EQ.2) THEN
  111.             NBROBL=19
  112.             SEGINI,NOMID
  113.             LESOBL( 1)='A1XX'
  114.             LESOBL( 2)='A1YY'
  115.             LESOBL( 3)='A1ZZ'
  116.             LESOBL( 4)='A1XY'
  117.             LESOBL( 5)='A1YZ'
  118.             LESOBL( 6)='A1ZX'
  119.             LESOBL( 7)='A2XX'
  120.             LESOBL( 8)='A2YY'
  121.             LESOBL( 9)='A2ZZ'
  122.             LESOBL(10)='A2XY'
  123.             LESOBL(11)='A2YZ'
  124.             LESOBL(12)='A2ZX'
  125.             LESOBL(13)='VLXX'
  126.             LESOBL(14)='VLYY'
  127.             LESOBL(15)='VLZZ'
  128.             LESOBL(16)='VLXY'
  129.             LESOBL(17)='VLYZ'
  130.             LESOBL(18)='VLZX'
  131.             LESOBL(19)='EPSE'
  132.             NBROBL=13
  133. *
  134. *     CAS UNIDIMENSIONNELS (1D) PLAN
  135. *
  136.           ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN
  137.             NBROBL=10
  138.             SEGINI,NOMID
  139.             LESOBL( 1)='A1XX'
  140.             LESOBL( 2)='A1YY'
  141.             LESOBL( 3)='A1ZZ'
  142.             LESOBL( 4)='A2XX'
  143.             LESOBL( 5)='A2YY'
  144.             LESOBL( 6)='A2ZZ'
  145.             LESOBL( 7)='VLXX'
  146.             LESOBL( 8)='VLYY'
  147.             LESOBL( 9)='VLZZ'
  148.             LESOBL(10)='EPSE'
  149. *
  150. *     CAS UNIDIMENSIONNELS (1D) AXIS et SPHE
  151. *
  152.           ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN
  153.             NBROBL=10
  154.             SEGINI,NOMID
  155.             LESOBL( 1)='A1RR'
  156.             LESOBL( 2)='A1ZZ'
  157.             LESOBL( 3)='A1TT'
  158.             LESOBL( 4)='A2RR'
  159.             LESOBL( 5)='A2ZZ'
  160.             LESOBL( 6)='A2TT'
  161.             LESOBL( 7)='VLRR'
  162.             LESOBL( 8)='VLZZ'
  163.             LESOBL( 9)='VLTT'
  164.             LESOBL(10)='EPSE'
  165.           ENDIF
  166.  
  167. *     COQUE
  168. ***********
  169.         ELSE IF (MFR.EQ.3) THEN
  170. *
  171.           IF (NPINT.EQ.0) THEN
  172. *
  173. *        CAS TRIDIMENSIONNEL    FOURIER
  174. *
  175.             IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN
  176.               NBROBL=25
  177.               SEGINI,NOMID
  178.               LESOBL( 1)='A1N1'
  179.               LESOBL( 2)='A1N2'
  180.               LESOBL( 3)='A1N3'
  181.               LESOBL( 4)='A1N4'
  182.               LESOBL( 5)='A1M1'
  183.               LESOBL( 6)='A1M2'
  184.               LESOBL( 7)='A1M3'
  185.               LESOBL( 8)='A1M4'
  186.               LESOBL( 9)='A2N1'
  187.               LESOBL(10)='A2N2'
  188.               LESOBL(11)='A2N3'
  189.               LESOBL(12)='A2N4'
  190.               LESOBL(13)='A2M1'
  191.               LESOBL(14)='A2M2'
  192.               LESOBL(15)='A2M3'
  193.               LESOBL(16)='A2M4'
  194.               LESOBL(17)='EPN1'
  195.               LESOBL(18)='EPN2'
  196.               LESOBL(19)='EPN3'
  197.               LESOBL(20)='EPN4'
  198.               LESOBL(21)='EPM1'
  199.               LESOBL(22)='EPM2'
  200.               LESOBL(23)='EPM3'
  201.               LESOBL(24)='EPM4'
  202.               LESOBL(25)='EPSE'
  203. *
  204. *       CAS AXISYMETRIQUE
  205. *
  206.             ELSE IF (IFOUR.EQ.0) THEN
  207.               NBROBL=19
  208.               SEGINI,NOMID
  209.               LESOBL( 1)='A1N1'
  210.               LESOBL( 2)='A1N2'
  211.               LESOBL( 3)='A1N3'
  212.               LESOBL( 4)='A1M1'
  213.               LESOBL( 5)='A1M2'
  214.               LESOBL( 6)='A1M3'
  215.               LESOBL( 7)='A2N1'
  216.               LESOBL( 8)='A2N2'
  217.               LESOBL( 9)='A2N3'
  218.               LESOBL(10)='A2M1'
  219.               LESOBL(11)='A2M2'
  220.               LESOBL(12)='A2M3'
  221.               LESOBL(13)='EPN1'
  222.               LESOBL(14)='EPN2'
  223.               LESOBL(15)='EPN3'
  224.               LESOBL(16)='EPM1'
  225.               LESOBL(17)='EPM2'
  226.               LESOBL(18)='EPM3'
  227.               LESOBL(19)='EPSE'
  228. *
  229. *        CAS CONTRAINTES OU DEFORMATIONS PLANES
  230. *         OU DEFORMATIONS PLANES GENERALISEES
  231. *
  232.             ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN
  233.               NBROBL=19
  234.               SEGINI,NOMID
  235.               LESOBL( 1)='A1N1'
  236.               LESOBL( 2)='A1N2'
  237.               LESOBL( 3)='A1N3'
  238.               LESOBL( 4)='A1M1'
  239.               LESOBL( 5)='A1M2'
  240.               LESOBL( 6)='A1M3'
  241.               LESOBL( 7)='A2N1'
  242.               LESOBL( 8)='A2N2'
  243.               LESOBL( 9)='A2N3'
  244.               LESOBL(10)='A2M1'
  245.               LESOBL(11)='A2M2'
  246.               LESOBL(12)='A2M3'
  247.               LESOBL(13)='EPN1'
  248.               LESOBL(14)='EPN2'
  249.               LESOBL(15)='EPN3'
  250.               LESOBL(16)='EPM1'
  251.               LESOBL(17)='EPM2'
  252.               LESOBL(18)='EPM3'
  253.               LESOBL(19)='EPSE'
  254.             ENDIF
  255.           ELSE
  256.             IF (IFOUR.EQ.2) THEN
  257.               NBROBL=13
  258.               SEGINI,NOMID
  259.               LESOBL( 1)='A1SS'
  260.               LESOBL( 2)='A1TT'
  261.               LESOBL( 3)='A1NN'
  262.               LESOBL( 4)='A1ST'
  263.               LESOBL( 5)='A2SS'
  264.               LESOBL( 6)='A2TT'
  265.               LESOBL( 7)='A2NN'
  266.               LESOBL( 8)='A2ST'
  267.               LESOBL( 9)='VLSS'
  268.               LESOBL(10)='VLTT'
  269.               LESOBL(11)='VLNN'
  270.               LESOBL(12)='VLST'
  271.               LESOBL(13)='EPSE'
  272.             ENDIF
  273.           ENDIF
  274.  
  275. *
  276. *     COQUE  EPAISSE
  277. ********************
  278.         ELSE IF (MFR.EQ.5) THEN
  279. *
  280. *     CAS TRIDIMENSIONNEL
  281. *
  282.           IF (IFOUR.EQ.2) THEN
  283.             NBROBL=19
  284.             SEGINI,NOMID
  285.             LESOBL( 1)='A1SS'
  286.             LESOBL( 2)='A1TT'
  287.             LESOBL( 3)='A1NN'
  288.             LESOBL( 4)='A1ST'
  289.             LESOBL( 5)='A1SN'
  290.             LESOBL( 6)='A1TN'
  291.             LESOBL( 7)='A2SS'
  292.             LESOBL( 8)='A2TT'
  293.             LESOBL( 9)='A2NN'
  294.             LESOBL(10)='A2ST'
  295.             LESOBL(11)='A2SN'
  296.             LESOBL(12)='A2TN'
  297.             LESOBL(13)='VLSS'
  298.             LESOBL(14)='VLTT'
  299.             LESOBL(15)='VLNN'
  300.             LESOBL(16)='VLST'
  301.             LESOBL(17)='VLSN'
  302.             LESOBL(18)='VLTN'
  303.             LESOBL(19)='EPSE'
  304.           ENDIF
  305.  
  306. *     POUTRE ET TUYAU
  307. *********************
  308.         ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN
  309. *
  310. *     CAS TRIDIMENSIONNEL
  311. *
  312.           IF (IFOUR.EQ.2) THEN
  313.             NBROBL=19
  314.             SEGINI NOMID
  315.             LESOBL( 1)='A1FX'
  316.             LESOBL( 2)='A1FY'
  317.             LESOBL( 3)='A1FZ'
  318.             LESOBL( 4)='A1MX'
  319.             LESOBL( 5)='A1MY'
  320.             LESOBL( 6)='A1MZ'
  321.             LESOBL( 7)='A2FX'
  322.             LESOBL( 8)='A2FY'
  323.             LESOBL( 9)='A2FZ'
  324.             LESOBL(10)='A2MX'
  325.             LESOBL(11)='A2MY'
  326.             LESOBL(12)='A2MZ'
  327.             LESOBL(13)='EPFX'
  328.             LESOBL(14)='EPFY'
  329.             LESOBL(15)='EPFZ'
  330.             LESOBL(16)='EPMX'
  331.             LESOBL(17)='EPMY'
  332.             LESOBL(18)='EPMZ'
  333.             LESOBL(19)='EPSE'
  334.           ENDIF
  335.  
  336. *     COQUE CISAILLEMENT TRANSVERSE
  337. ***********************************
  338.         ELSE IF (MFR.EQ.9) THEN
  339.           IF (NPINT.EQ.0) THEN
  340. *
  341. *     CAS TRIDIMENSIONNEL
  342. *
  343.             IF (IFOUR.EQ.2) THEN
  344.               NBROBL=25
  345.               SEGINI NOMID
  346.               LESOBL( 1)='A1N1'
  347.               LESOBL( 2)='A1N2'
  348.               LESOBL( 3)='A1N3'
  349.               LESOBL( 4)='A1M1'
  350.               LESOBL( 5)='A1M2'
  351.               LESOBL( 6)='A1M3'
  352.               LESOBL( 7)='A1V1'
  353.               LESOBL( 8)='A1V2'
  354.               LESOBL( 9)='A2N1'
  355.               LESOBL(10)='A2N2'
  356.               LESOBL(11)='A2N3'
  357.               LESOBL(12)='A2M1'
  358.               LESOBL(13)='A2M2'
  359.               LESOBL(14)='A2M3'
  360.               LESOBL(15)='A2V1'
  361.               LESOBL(16)='A2V2'
  362.               LESOBL(17)='EPN1'
  363.               LESOBL(18)='EPN2'
  364.               LESOBL(19)='EPN3'
  365.               LESOBL(20)='EPM1'
  366.               LESOBL(21)='EPM2'
  367.               LESOBL(22)='EPM3'
  368.               LESOBL(23)='EPV1'
  369.               LESOBL(24)='EPV2'
  370.               LESOBL(25)='EPSE'
  371.             ENDIF
  372.           ENDIF
  373.  
  374. *     FORMULATION MEMBRANE
  375. **************************
  376.         ELSE IF (MFR.EQ.25) THEN
  377.           NBROBL=10
  378.           SEGINI,NOMID
  379.           LESOBL( 1)='A1SS'
  380.           LESOBL( 2)='A1TT'
  381.           LESOBL( 3)='A1ST'
  382.           LESOBL( 4)='A2SS'
  383.           LESOBL( 5)='A2TT'
  384.           LESOBL( 6)='A2ST'
  385.           LESOBL( 7)='VLSS'
  386.           LESOBL( 8)='VLTT'
  387.           LESOBL( 9)='VLST'
  388.           LESOBL(10)='EPSE'
  389.  
  390. *     FORMULATION UNIAXIALE
  391. ***************************
  392.         ELSE IF (MFR.EQ.27) THEN
  393.           NBROBL=4
  394.           SEGINI,NOMID
  395.           LESOBL(1)='A1FX'
  396.           LESOBL(2)='A2FX'
  397.           LESOBL(3)='EPFX'
  398.           LESOBL(4)='EPSE'
  399.         ENDIF
  400.  
  401.       ENDIF
  402.  
  403.       IPCOMP=NOMID
  404.       SEGDES,NOMID
  405.  
  406.       RETURN
  407.       END
  408.  
  409.  
  410.  
  411.  

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