Télécharger la plaquette Cast3M


fr en

Télécharger idvar7.eso

Retour à la liste

Numérotation des lignes : 

idvar7

  1. C IDVAR7    SOURCE    AF221230  16/11/22    21:15:08     9185           
  2.       SUBROUTINE IDVAR7(MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC)
  3. *_______________________________________________________________________
  4. *
  5. *      RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  6. *      --------------------------------------------------------
  7. *
  8. *  ENTREES :
  9. *  ---------
  10. *
  11. *     MATEPL   NUMERO DU MATERIAU PLASTIQUE
  12. *     MFR      NUMERO DE FORMULATION
  13. *     IFOUR    VALEUR DE IFOU DANS CCOPTIO
  14. *     NPINT  NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  15. *            POUR LES ELEMENTS DE COQUE INTEGRES
  16. *
  17. *
  18. *  SORTIES :
  19. *  ---------
  20. *
  21. *     IPCOMP   POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  22. *              OBLIGATOIRES ET FACULTATIVES
  23. *     NBROBL   NOMBRE DE COMPOSANTES OBLIGATOIRES
  24. *     NBRFAC   NOMBRE DE COMPOSANTES FACTULTATIVES
  25. *
  26. *     LOT ISPRA
  27. *_______________________________________________________________________
  28. *
  29.       IMPLICIT INTEGER(I-N)
  30.       SEGMENT NOMID
  31.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  32.       ENDSEGMENT
  33. *
  34.       PARAMETER(LBIL=4,LTAK=21)
  35.       CHARACTER*4 NOMBIL(LBIL),NOMTAK(LTAK),NOMBIF(LBIL),NOMTAF(LTAK)
  36.       DATA NOMBIL/'EPSE','EITA','MOEY','COUY'/
  37.       DATA NOMBIF/'EPSE','GATA','EFEZ','CISZ'/
  38.       DATA NOMTAK/'IFR1','EITA','UEP1','PEP1','UEN1','PEN1','UCP1',
  39.      .            'UCN1','E1P1','E1N1','E2P1','E2N1','USP1','USN1',
  40.      .            'UTP1','PTP1','UTN1','PTN1','EP11','EN11','COUY'/
  41.       DATA NOMTAF/'IFR1','GATA','UEP1','PEP1','UEN1','PEN1','UCP1',
  42.      .            'UCN1','E1P1','E1N1','E2P1','E2N1','USP1','USN1',
  43.      .            'UTP1','PTP1','UTN1','PTN1','EP11','EN11','CISZ'/
  44. *
  45.       NBROBL=0
  46.       NBRFAC=0
  47.       NOMID =0
  48. *
  49.  
  50.       print*,MATEPL
  51.  
  52.       IF(MATEPL.EQ.54) THEN
  53. C
  54. C      MATERIAU BETOCYCL
  55. C
  56.    1  CONTINUE
  57.       NBROBL=14
  58.       SEGINI NOMID
  59.       LESOBL( 1) ='SIH1'
  60.       LESOBL( 2) ='SIH2'
  61.       LESOBL( 3) ='EPS1'
  62.       LESOBL( 4) ='EPS2'
  63.       LESOBL( 5) ='CPHI'
  64.       LESOBL( 6) ='SPHI'
  65.       LESOBL( 7) ='CON1'
  66.       LESOBL( 8) ='CON2'
  67.       LESOBL( 9) ='CON3'
  68.       LESOBL(10) ='CON4'
  69.       LESOBL(11) ='CAS1'
  70.       LESOBL(12) ='CAS2'
  71.       LESOBL(13) ='LAM1'
  72.       LESOBL(14) ='LAM2'
  73.       GO TO 666
  74. C
  75.       ELSE IF(MATEPL.EQ.55) THEN
  76. C
  77. C      ROTATING CRACK
  78. C
  79.    2  CONTINUE
  80.       NBROBL=7
  81.       SEGINI,NOMID
  82.       LESOBL(1) = 'CPHI'
  83.       LESOBL(2) = 'SPHI'
  84.       LESOBL(3) = 'EPS1'
  85.       LESOBL(4) = 'EPS2'
  86.       LESOBL(5) = 'EPN1'
  87.       LESOBL(6) = 'EPN2'
  88.       LESOBL(7) = 'ICAS'
  89.       GO TO 666
  90. C
  91.       ELSE IF(MATEPL.EQ.56) THEN
  92. C
  93. C      MATERIAU JOINT_SOFT
  94. C
  95.    3  CONTINUE
  96.       NBROBL=6
  97.       SEGINI NOMID
  98.       LESOBL( 1) ='EPSS'
  99.       LESOBL( 2) ='EPST'
  100.       LESOBL( 3) ='HC11'
  101.       LESOBL( 4) ='HC12'
  102.       LESOBL( 5) ='HC22'
  103.       LESOBL( 6) ='ETTO'
  104.       GO TO 666
  105. C
  106.       ELSE IF(MATEPL.EQ.119) THEN
  107. C
  108. C      MATERIAU JOINT_COAT
  109. C
  110.       NBROBL=1
  111.       SEGINI NOMID
  112.       LESOBL( 1) ='EPSS'
  113.       GO TO 666
  114. C
  115.       ELSE IF(MATEPL.EQ.91) THEN
  116. C
  117. C      MATERIAU ANCRAGE_ELIGEHAUSEN
  118. C
  119.   31  CONTINUE
  120.       NBROBL=5
  121.       SEGINI NOMID
  122.       LESOBL( 1) ='EPPP'
  123.       LESOBL( 2) ='EPPM'
  124.       LESOBL( 3) ='EPSO'
  125.       LESOBL( 4) ='KSTA'
  126.       LESOBL( 5) ='KNEL'
  127.       GO TO 666
  128. C
  129.       ELSE IF(MATEPL.EQ.150) THEN
  130. C
  131. C      MATERIAU BILIN_EFFX POUR LES POUTRES UNIQUEMENT
  132. C
  133.       IF(MFR.NE.7) GO TO 99
  134.       NBROBL=LBIL
  135.       SEGINI NOMID
  136.       DO 40 I=1,LBIL
  137.         LESOBL(I)=NOMBIL(I)
  138.   40  CONTINUE
  139.       GO TO 666
  140. C
  141.       ELSE IF(MATEPL.EQ.57) THEN
  142. C
  143. C  MATERIAU BILI_MOMY POUR LES POUTRES UNIQUEMENT
  144. C
  145.    4  CONTINUE
  146.       IF(MFR.NE.7) GO TO 99
  147.       NBROBL=LBIL
  148.       SEGINI NOMID
  149.       DO 41 I=1,LBIL
  150.         LESOBL(I)=NOMBIL(I)
  151.   41  CONTINUE
  152.       GO TO 666
  153. C
  154.       ELSE IF(MATEPL.EQ.58) THEN
  155. C
  156. C  MATERIAU BILI_EFFZ POUR LES POUTRES UNIQUEMENT
  157. C
  158.       IF(MFR.NE.7) GO TO 99
  159.       NBROBL=LBIL
  160.       SEGINI NOMID
  161.       DO 51 I=1,LBIL
  162.         LESOBL(I)=NOMBIF(I)
  163.   51  CONTINUE
  164.       GO TO 666
  165. C
  166.       ELSE IF(MATEPL.EQ.59) THEN
  167. C
  168. C  MATERIAU TAKEMO_MOMY POUR LES POUTRES UNIQUEMENT
  169. C
  170.       IF(MFR.NE.7) GO TO 99
  171.       NBROBL=LTAK
  172.       SEGINI NOMID
  173.       DO 61 I=1,LTAK
  174.         LESOBL(I)=NOMTAK(I)
  175.   61  CONTINUE
  176.       GO TO 666
  177. C
  178.       ELSE IF(MATEPL.EQ.60) THEN
  179. C
  180. C  MATERIAU TAKEMO_EFFY POUR LES POUTRES UNIQUEMENT
  181. C
  182.       IF(MFR.NE.7) GO TO 99
  183.       NBROBL=LTAK
  184.       SEGINI NOMID
  185.       DO 71 I=1,LTAK
  186.         LESOBL(I)=NOMTAF(I)
  187.   71  CONTINUE
  188.       GO TO 666
  189. C
  190.       ELSE IF(MATEPL.EQ.72) THEN
  191. C
  192. C  BARRE POUR LES MURS DE REMPLISSAGE-INFILL_UNI
  193. C
  194.       IF(MFR.NE.27) GO TO 99
  195.       NBROBL=6
  196.       SEGINI NOMID
  197.       LESOBL(1) = 'DAM'
  198.       LESOBL(2) = 'DEPM'
  199.       LESOBL(3) = 'DEPA'
  200.       LESOBL(4) = 'DEPI'
  201.       LESOBL(5) = 'DEPC'
  202.       LESOBL(6) = 'ICAS'
  203.       GO TO 666
  204. C
  205.       ELSE IF(MATEPL.EQ.73) THEN
  206. C
  207. C  MODELE CISAIL_NL (TIMO - Effort tranchant/Cisaillement)
  208. C
  209.       IF((MFR.NE.7).AND.(MFR.NE.47)) GO TO 99
  210.       NBROBL=8
  211.       SEGINI NOMID
  212.       LESOBL(1) = 'DAMP'
  213.       LESOBL(2) = 'DAMN'
  214.       LESOBL(3) = 'DEMP'
  215.       LESOBL(4) = 'DEMN'
  216.       LESOBL(5) = 'DEPA'
  217.       LESOBL(6) = 'DECP'
  218.       LESOBL(7) = 'DECN'
  219.       LESOBL(8) = 'ICAS'
  220.       GO TO 666
  221. C
  222.       ELSE IF(MATEPL.EQ.126) THEN
  223. C
  224. C      MATERIAU MUR_SHEAR
  225. C
  226.       NBROBL=13
  227.       SEGINI NOMID
  228.       LESOBL( 1) ='ICAS'
  229.       LESOBL( 2) ='DEPT'
  230.       LESOBL( 3) ='EPLU'
  231.       LESOBL( 4) ='EMOI'
  232.       LESOBL( 5) ='DPLU'
  233.       LESOBL( 6) ='DMOI'
  234.       LESOBL( 7) ='FCIN'
  235.       LESOBL( 8) ='FCAM'
  236.       LESOBL( 9) ='KCIN'
  237.       LESOBL(10) ='APLU'
  238.       LESOBL(11) ='AMOI'
  239.       LESOBL(12) ='OPLU'
  240.       LESOBL(13) ='OMOI'
  241.       GO TO 666
  242. C
  243.       ELSE IF(MATEPL.EQ.151) THEN
  244. C
  245. C      MATERIAU ISS_GRANGE
  246. C
  247.       NBROBL=22
  248.       SEGINI NOMID
  249.       LESOBL( 1) ='EPSE'
  250.       LESOBL( 2) ='UP11'
  251.       LESOBL( 3) ='UP12'
  252.       LESOBL( 4) ='UP13'
  253.       LESOBL( 5) ='UP14'
  254.       LESOBL( 6) ='UP15'
  255.       LESOBL( 7) ='Q11'
  256.       LESOBL( 8) ='Q12'
  257.       LESOBL( 9) ='Q13'
  258.       LESOBL(10) ='Q14'
  259.       LESOBL(11) ='Q15'
  260. C      LESOBL(12) ='FP1'
  261. C      LESOBL(13) ='FP2'
  262. C      LESOBL(14) ='FP3'
  263. C      LESOBL(15) ='FP4'
  264. C      LESOBL(16) ='FP5'
  265.       LESOBL(12) ='DLP'
  266.       LESOBL(13) ='KPP'
  267.       LESOBL(14) ='KSP'
  268.       LESOBL(15) ='DISM'
  269.       LESOBL(16) ='DELM'
  270.       LESOBL(17) ='UP21'
  271.       LESOBL(18) ='UP22'
  272.       LESOBL(19) ='UP23'
  273.       LESOBL(20) ='UP24'
  274.       LESOBL(21) ='UP25'
  275.       LESOBL(22) ='Q21'
  276.       GO TO 666
  277. C
  278.       ELSE IF(MATEPL.EQ.152) THEN
  279. C
  280. C      MATERIAU RUP_THER
  281. C
  282.       NBROBL=12
  283.       SEGINI NOMID
  284.       LESOBL( 1) ='EPSE'
  285.       LESOBL( 2) ='DPLS'
  286.       LESOBL( 3) ='DMOI'
  287.       LESOBL( 4) ='DH  '
  288.       LESOBL( 5) ='ZPLS'
  289.       LESOBL( 6) ='ZMOI'
  290.       LESOBL( 7) ='UP  '
  291.       LESOBL( 8) ='ECRB'
  292.       LESOBL( 9) ='FP  '
  293.       LESOBL(10) ='UA  '
  294.       LESOBL(11) ='ECRA'
  295.       LESOBL(12) ='FA  '
  296.       GO TO 666
  297. C
  298.       ELSE IF(MATEPL.EQ.129) THEN
  299. C
  300. C      MATERIAU INCO
  301. C
  302.       NBROBL=4
  303.       SEGINI NOMID
  304.       LESOBL( 1) ='EPSE'
  305.       LESOBL( 2) ='EPS1'
  306.       LESOBL( 3) ='EPS2'
  307.       LESOBL( 4) ='EPN '
  308.       GO TO 666
  309. C
  310.       ELSE IF(MATEPL.EQ.155) THEN
  311. C
  312. C      MATERIAU GERNAY
  313. C
  314.       NBROBL=32
  315.       SEGINI NOMID
  316.       LESOBL( 1) ='KAPT'
  317.       LESOBL( 2) ='KAPC'
  318.       LESOBL( 3) ='DAMT'
  319.       LESOBL( 4) ='DAMC'
  320.       LESOBL( 5) ='EPL1'
  321.       LESOBL( 6) ='EPL2'
  322.       LESOBL( 7) ='EPL3'
  323.       LESOBL( 8) ='EPL4'
  324.       LESOBL( 9) ='EPL5'
  325.       LESOBL(10) ='EPL6'
  326.       LESOBL(11) ='ETR1'
  327.       LESOBL(12) ='ETR2'
  328.       LESOBL(13) ='ETR3'
  329.       LESOBL(14) ='ETR4'
  330.       LESOBL(15) ='ETR5'
  331.       LESOBL(16) ='ETR6'
  332.       LESOBL(17) ='SEF1'
  333.       LESOBL(18) ='SEF2'
  334.       LESOBL(19) ='SEF3'
  335.       LESOBL(20) ='SEF4'
  336.       LESOBL(21) ='SEF5'
  337.       LESOBL(22) ='SEF6'
  338.       LESOBL(23) ='EPSE'
  339.       LESOBL(24) ='SET1'
  340.       LESOBL(25) ='SET2'
  341.       LESOBL(26) ='SET3'
  342.       LESOBL(27) ='SET4'
  343.       LESOBL(28) ='SET5'
  344.       LESOBL(29) ='SET6'
  345.       LESOBL(30) ='TMAX'
  346.       LESOBL(31) ='PHI0'
  347.       LESOBL(32) ='EPTH'
  348.       GO TO 666
  349. C
  350.       ELSE IF(MATEPL.EQ.156) THEN
  351. C
  352. C      MATERIAU WELLS
  353. C
  354.       IF(IFOUR.LE.0) THEN
  355.         NBROBL=3
  356.         SEGINI NOMID
  357.         LESOBL( 1) ='EPSE'
  358.         LESOBL( 2) ='EPS1'
  359.         LESOBL( 3) ='EPN'
  360.       ELSE
  361.         NBROBL=4
  362.         SEGINI NOMID
  363.         LESOBL( 1) ='EPSE'
  364.         LESOBL( 2) ='EPS1'
  365.         LESOBL( 3) ='EPS2'
  366.         LESOBL( 4) ='EPN'
  367.       ENDIF
  368.       GO TO 666
  369.       ELSE IF(MATEPL.EQ.160) THEN
  370. C
  371. C      MATERIAU RICBET_UNI
  372. C
  373.  
  374.       NBROBL=10
  375.       SEGINI NOMID
  376.       LESOBL( 1) ='EPSX'
  377.       LESOBL( 2) ='EPSY'
  378.       LESOBL( 3) ='EPSZ'
  379.       LESOBL( 4) ='XDT '
  380.       LESOBL( 5) ='XZT '
  381.       LESOBL( 6) ='EPSP'
  382.       LESOBL( 7) ='XEC '
  383.       LESOBL( 8) ='REC '
  384.       LESOBL( 9) ='EPPP'
  385.       LESOBL(10) ='PCUM'
  386.       GO TO 666
  387. C
  388.       ELSE IF(MATEPL.EQ.162) THEN
  389. C
  390. C      MATERIAU DP_SOL
  391. C
  392.       NBROBL=8
  393.       SEGINI NOMID
  394.       LESOBL(1)='EP11'
  395.       LESOBL(2)='EP22'
  396.       LESOBL(3)='EP33'
  397.       LESOBL(4)='EP12'
  398.       LESOBL(5)='EP13'
  399.       LESOBL(6)='EP23'
  400.       LESOBL(7)='XI  '
  401.       LESOBL(8)='GAMM'
  402.       GO TO 666
  403. C
  404. C
  405.       ELSE IF(MATEPL.EQ.164) THEN
  406. C
  407. C      MATERIAU IWPR3D_SOL
  408. C
  409.       NBROBL=61
  410.       SEGINI NOMID
  411.       LESOBL( 1) ='GAM1'
  412.       LESOBL( 2) ='B1_1'
  413.       LESOBL( 3) ='B1_2'
  414.       LESOBL( 4) ='B1_3'
  415.       LESOBL( 5) ='B1_4'
  416.       LESOBL( 6) ='B1_5'
  417.       LESOBL( 7) ='B1_6'
  418.       LESOBL( 8) ='B2_1'
  419.       LESOBL( 9) ='B2_2'
  420.       LESOBL(10) ='B2_3'
  421.       LESOBL(11) ='B2_4'
  422.       LESOBL(12) ='B2_5'
  423.       LESOBL(13) ='B2_6'
  424.       LESOBL(14) ='B3_1'
  425.       LESOBL(15) ='B3_2'
  426.       LESOBL(16) ='B3_3'
  427.       LESOBL(17) ='B3_4'
  428.       LESOBL(18) ='B3_5'
  429.       LESOBL(19) ='B3_6'
  430.       LESOBL(20) ='B4_1'
  431.       LESOBL(21) ='B4_2'
  432.       LESOBL(22) ='B4_3'
  433.       LESOBL(23) ='B4_4'
  434.       LESOBL(24) ='B4_5'
  435.       LESOBL(25) ='B4_6'
  436.       LESOBL(26) ='B5_1'
  437.       LESOBL(27) ='B5_2'
  438.       LESOBL(28) ='B5_3'
  439.       LESOBL(29) ='B5_4'
  440.       LESOBL(30) ='B5_5'
  441.       LESOBL(31) ='B5_6'
  442.       LESOBL(32) ='B6_1'
  443.       LESOBL(33) ='B6_2'
  444.       LESOBL(34) ='B6_3'
  445.       LESOBL(35) ='B6_4'
  446.       LESOBL(36) ='B6_5'
  447.       LESOBL(37) ='B6_6'
  448.       LESOBL(38) ='B7_1'
  449.       LESOBL(39) ='B7_2'
  450.       LESOBL(40) ='B7_3'
  451.       LESOBL(41) ='B7_4'
  452.       LESOBL(42) ='B7_5'
  453.       LESOBL(43) ='B7_6'
  454.       LESOBL(44) ='B8_1'
  455.       LESOBL(45) ='B8_2'
  456.       LESOBL(46) ='B8_3'
  457.       LESOBL(47) ='B8_4'
  458.       LESOBL(48) ='B8_5'
  459.       LESOBL(49) ='B8_6'
  460.       LESOBL(50) ='B9_1'
  461.       LESOBL(51) ='B9_2'
  462.       LESOBL(52) ='B9_3'
  463.       LESOBL(53) ='B9_4'
  464.       LESOBL(54) ='B9_5'
  465.       LESOBL(55) ='B9_6'
  466.       LESOBL(56) ='BF_1'
  467.       LESOBL(57) ='BF_2'
  468.       LESOBL(58) ='BF_3'
  469.       LESOBL(59) ='BF_4'
  470.       LESOBL(60) ='BF_5'
  471.       LESOBL(61) ='BF_6'
  472.       GO TO 666
  473. C
  474.       ENDIF
  475. C
  476.   99  CONTINUE
  477.       SEGINI NOMID
  478.  
  479.   666 CONTINUE
  480.       IPCOMP=NOMID
  481.       SEGDES NOMID
  482. C
  483.       RETURN
  484.       END
  485.  
  486.  
  487.  
  488.  
  489.  
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  

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