C IDVAR2 SOURCE FANDEUR 10/02/01 21:15:38 6603 C======================================================================= * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES * -------------------------------------------------------- * * ENTREES : * --------- * MATEPL NUMERO DU MATERIAU PLASTIQUE * MFR NUMERO DE FORMULATION * IFOUR VALEUR DE IFOUR DANS CCOPTIO * NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR * POUR LES ELEMENTS DE COQUE INTEGRES * * SORTIES : * --------- * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES * OBLIGATOIRES ET FACULTATIVES * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES * NBRFAC NOMBRE DE COMPOSANTES FACULTATIVES C======================================================================= SUBROUTINE IDVAR2 (MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC) IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) SEGMENT NOMID CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC) ENDSEGMENT NBROBL=0 NBRFAC=0 NOMID=0 C= MODELES DE FLUAGE : BLACKBURN (MATEPL=20) RCCMR-316 (MATEPL=22) C= ===================== RCCMR-304 (MATEPL=23) BLACKBURN_2 (MATEPL=61) * ELEMENT MASSIF ****************** IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN * CAS CONTRAINTES PLANES ou DEFORMATIONS PLANES ou * DEFORMATIONS PLANES GENERALISEES IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN NBROBL=16 SEGINI,NOMID LESOBL( 1)='PXX ' LESOBL( 2)='PYY ' LESOBL( 3)='PZZ ' LESOBL( 4)='PXY ' LESOBL( 5)='VNXX' LESOBL( 6)='VNYY' LESOBL( 7)='VNZZ' LESOBL( 8)='VNXY' LESOBL( 9)='EPCE' LESOBL(10)='EPSH' LESOBL(11)='LL ' LESOBL(12)='EPSE' LESOBL(13)='ECXX' LESOBL(14)='ECYY' LESOBL(15)='ECZZ' LESOBL(16)='ECXY' * CAS AXISYMETRIQUE ELSE IF (IFOUR.EQ.0) THEN NBROBL=16 SEGINI,NOMID LESOBL( 1)='PRR ' LESOBL( 2)='PZZ ' LESOBL( 3)='PTT ' LESOBL( 4)='PRZ ' LESOBL( 5)='VNRR' LESOBL( 6)='VNZZ' LESOBL( 7)='VNTT' LESOBL( 8)='VNRZ' LESOBL( 9)='EPCE' LESOBL(10)='EPSH' LESOBL(11)='LL ' LESOBL(12)='EPSE' LESOBL(13)='ECRR' LESOBL(14)='ECZZ' LESOBL(15)='ECTT' LESOBL(16)='ECRZ' * CAS SERIE DE FOURIER ELSE IF (IFOUR.EQ.1) THEN NBROBL=22 SEGINI,NOMID LESOBL( 1)='PRR ' LESOBL( 2)='PZZ ' LESOBL( 3)='PTT ' LESOBL( 4)='PRZ ' LESOBL( 5)='PRT ' LESOBL( 6)='PZT ' LESOBL( 7)='VNRR' LESOBL( 8)='VNZZ' LESOBL( 9)='VNTT' LESOBL(10)='VNRZ' LESOBL(11)='VNRT' LESOBL(12)='VNZT' LESOBL(13)='EPCE' LESOBL(14)='EPSH' LESOBL(15)='LL ' LESOBL(16)='EPSE' LESOBL(17)='ECRR' LESOBL(18)='ECZZ' LESOBL(19)='ECTT' LESOBL(20)='ECRZ' LESOBL(21)='ECRT' LESOBL(22)='ECZT' * CAS TRIDIMENSIONNEL ELSE IF (IFOUR.EQ.2) THEN NBROBL=22 SEGINI,NOMID LESOBL( 1)='PXX ' LESOBL( 2)='PYY ' LESOBL( 3)='PZZ ' LESOBL( 4)='PXY ' LESOBL( 5)='PYZ ' LESOBL( 6)='PZX ' LESOBL( 7)='VNXX' LESOBL( 8)='VNYY' LESOBL( 9)='VNZZ' LESOBL(10)='VNXY' LESOBL(11)='VNYZ' LESOBL(12)='VNZX' LESOBL(13)='EPCE' LESOBL(14)='EPSH' LESOBL(15)='LL ' LESOBL(16)='EPSE' LESOBL(17)='ECXX' LESOBL(18)='ECYY' LESOBL(19)='ECZZ' LESOBL(20)='ECXY' LESOBL(21)='ECYZ' LESOBL(22)='ECZX' * CAS UNDIMENSIONNEL (1D) PLAN ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN NBROBL=13 SEGINI,NOMID LESOBL( 1)='PXX ' LESOBL( 2)='PYY ' LESOBL( 3)='PZZ ' LESOBL( 4)='VNXX' LESOBL( 5)='VNYY' LESOBL( 6)='VNZZ' LESOBL( 7)='EPCE' LESOBL( 8)='EPSH' LESOBL( 9)='LL ' LESOBL(10)='EPSE' LESOBL(11)='ECXX' LESOBL(12)='ECYY' LESOBL(13)='ECZZ' * CAS UNIDIMENSIONNEL (1D) AXISYMETRIQUE OU SPHERIQUE ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN NBROBL=13 SEGINI,NOMID LESOBL( 1)='PRR ' LESOBL( 2)='PZZ ' LESOBL( 3)='PTT ' LESOBL( 4)='VNRR' LESOBL( 5)='VNZZ' LESOBL( 6)='VNTT' LESOBL( 7)='EPCE' LESOBL( 8)='EPSH' LESOBL( 9)='LL ' LESOBL(10)='EPSE' LESOBL(11)='ECRR' LESOBL(12)='ECZZ' LESOBL(13)='ECTT' ENDIF * ELEMENT COQUE ***************** ELSE IF (MFR.EQ.3) THEN IF (NPINT.EQ.0) THEN * CAS TRIDIMENSIONNEL et FOURIER IF (IFOUR.EQ.2.OR.IFOUR.EQ.1) THEN NBROBL=28 SEGINI,NOMID LESOBL( 1)='PN11' LESOBL( 2)='PN22' LESOBL( 3)='PN33' LESOBL( 4)='PN12' LESOBL( 5)='PM11' LESOBL( 6)='PM22' LESOBL( 7)='PM33' LESOBL( 8)='PM12' LESOBL( 9)='NN11' LESOBL(10)='NN22' LESOBL(11)='NN33' LESOBL(12)='NN12' LESOBL(13)='NM11' LESOBL(14)='NM22' LESOBL(15)='NM33' LESOBL(16)='NM12' LESOBL(17)='EPCE' LESOBL(18)='EPSH' LESOBL(19)='LL ' LESOBL(20)='EPSE' LESOBL(21)='EN11' LESOBL(22)='EN22' LESOBL(23)='EN33' LESOBL(24)='EN12' LESOBL(25)='EM11' LESOBL(26)='EM22' LESOBL(27)='EM23' LESOBL(28)='EM12' * CAS AXISYMETRIQUE ELSE IF (IFOUR.EQ.0) THEN NBROBL=22 SEGINI,NOMID LESOBL( 1)='PN11' LESOBL( 2)='PN22' LESOBL( 3)='PN33' LESOBL( 4)='PM11' LESOBL( 5)='PM22' LESOBL( 6)='PM33' LESOBL( 7)='NN11' LESOBL( 8)='NN22' LESOBL( 9)='NM33' LESOBL(10)='NM11' LESOBL(11)='NM22' LESOBL(12)='NM33' LESOBL(13)='EPCE' LESOBL(14)='EPSH' LESOBL(15)='LL ' LESOBL(16)='EPSE' LESOBL(17)='EN11' LESOBL(18)='EN22' LESOBL(19)='EN33' LESOBL(20)='EM11' LESOBL(21)='EM22' LESOBL(22)='EM33' * CAS CONTRAINTES OU DEFORMATIONS PLANES ou * DEFORMATIONS PLANES GENERALISEES ELSE IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN NBROBL=22 SEGINI,NOMID LESOBL( 1)='PN11' LESOBL( 2)='PN22' LESOBL( 3)='PN33' LESOBL( 4)='PM11' LESOBL( 5)='PM22' LESOBL( 6)='PM33' LESOBL( 7)='NN11' LESOBL( 8)='NN22' LESOBL( 9)='NM33' LESOBL(10)='NM11' LESOBL(11)='NM22' LESOBL(12)='NM33' LESOBL(13)='EPCE' LESOBL(14)='EPSH' LESOBL(15)='LL ' LESOBL(16)='EPSE' LESOBL(17)='EN11' LESOBL(18)='EN22' LESOBL(19)='EN33' LESOBL(20)='EM11' LESOBL(21)='EM22' LESOBL(22)='EM33' ENDIF ELSE IF (IFOUR.EQ.2) THEN NBROBL=16 SEGINI,NOMID LESOBL( 1)='PMSS' LESOBL( 2)='PMTT' LESOBL( 3)='PMNN' LESOBL( 4)='PMST' LESOBL( 5)='NMSS' LESOBL( 6)='NMTT' LESOBL( 7)='NMNN' LESOBL( 8)='NMST' LESOBL( 9)='EPCE' LESOBL(10)='EPSH' LESOBL(11)='LL ' LESOBL(12)='EPSE' LESOBL(13)='EMSS' LESOBL(14)='EMTT' LESOBL(15)='EMNN' LESOBL(16)='EMST' ENDIF ENDIF * ELEMENT COQUE EPAISSE ************************* ELSE IF (MFR.EQ.5) THEN * CAS TRIDIMENSIONNEL IF (IFOUR.EQ.2) THEN NBROBL=22 SEGINI,NOMID LESOBL( 1)='PMSS' LESOBL( 2)='PMTT' LESOBL( 3)='PMNN' LESOBL( 4)='PMST' LESOBL( 5)='PMSN' LESOBL( 6)='PMTN' LESOBL( 7)='NMSS' LESOBL( 8)='NMTT' LESOBL( 9)='NMNN' LESOBL(10)='NMST' LESOBL(11)='NMSN' LESOBL(12)='NMTN' LESOBL(13)='EPCE' LESOBL(14)='EPSH' LESOBL(15)='LL ' LESOBL(16)='EPSE' LESOBL(17)='EMSS' LESOBL(18)='EMTT' LESOBL(19)='EMNN' LESOBL(20)='EMST' LESOBL(21)='EMSN' LESOBL(22)='EMTN' ENDIF * ELEMENTS POUTRE ET TUYAU **************************** ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN * CAS TRIDIMENSIONNEL IF (IFOUR.EQ.2) THEN NBROBL=22 SEGINI,NOMID LESOBL( 1)='PEFX' LESOBL( 2)='PEFY' LESOBL( 3)='PEFZ' LESOBL( 4)='PMOX' LESOBL( 5)='PMOY' LESOBL( 6)='PMOZ' LESOBL( 7)='NEFX' LESOBL( 8)='NEFY' LESOBL( 9)='NEFZ' LESOBL(10)='NMOX' LESOBL(11)='EMOY' LESOBL(12)='EMOZ' LESOBL(13)='EPCE' LESOBL(14)='EPCF' LESOBL(15)='LL ' LESOBL(16)='EPSE' LESOBL(17)='EEFX' LESOBL(18)='EEFY' LESOBL(19)='EEFZ' LESOBL(20)='EMOX' LESOBL(21)='ENOY' LESOBL(22)='ENOZ' ENDIF * ELEMENT COQUE CISAILLEMENT TRANSVERSE ***************************************** ELSE IF (MFR.EQ.9) THEN IF (NPINT.EQ.0) THEN IF (IFOUR.EQ.2) THEN * CAS TRIDIMENSIONNEL NBROBL=28 SEGINI,NOMID LESOBL( 1)='PN11' LESOBL( 2)='PN22' LESOBL( 3)='PN12' LESOBL( 4)='PM11' LESOBL( 5)='PM22' LESOBL( 6)='PM12' LESOBL( 7)='PV1 ' LESOBL( 8)='PV2 ' LESOBL( 9)='NN11' LESOBL(10)='NN22' LESOBL(11)='NN12' LESOBL(12)='NM11' LESOBL(13)='NM22' LESOBL(14)='NM12' LESOBL(15)='NV1 ' LESOBL(16)='NV2 ' LESOBL(17)='EPCE' LESOBL(18)='EPSH' LESOBL(19)='LL ' LESOBL(20)='EPSE' LESOBL(22)='EN11' LESOBL(22)='EN22' LESOBL(23)='EN12' LESOBL(24)='EM11' LESOBL(25)='EM22' LESOBL(26)='EM12' LESOBL(27)='EV1 ' LESOBL(28)='EV2 ' ENDIF ENDIF * FORMULATION MEMBRANE ************************ ELSE IF (MFR.EQ.25) THEN NBROBL=13 SEGINI,NOMID LESOBL( 1)='PMSS' LESOBL( 2)='PMTT' LESOBL( 3)='PMST' LESOBL( 4)='NMSS' LESOBL( 5)='NMTT' LESOBL( 6)='NMST' LESOBL( 7)='EPCE' LESOBL( 8)='EPSH' LESOBL( 9)='LL ' LESOBL(10)='EPSE' LESOBL(11)='EMSS' LESOBL(12)='EMTT' LESOBL(13)='EMST' * FORMULATION UNIAXIALE ************************* ELSE IF (MFR.EQ.27) THEN NBROBL=7 SEGINI,NOMID LESOBL(1)='PEFX' LESOBL(2)='NEFX' LESOBL(3)='EPCE' LESOBL(4)='EPSH' LESOBL(5)='LL ' LESOBL(6)='EPSE' LESOBL(7)='EEFX' ENDIF IPCOMP=NOMID SEGDES,NOMID RETURN END