Télécharger idvflo.eso

Retour à la liste

idvflo
C IDVFLO    SOURCE    FANDEUR   10/02/01    21:15:53     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 IDVFLO (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
 
*  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)='EPSE'
          LESOBL( 2)='EPSP'
          LESOBL( 3)='EPSS'
          LESOBL(12)='MARK'
          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(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)='EPSE'
          LESOBL( 2)='EPSP'
          LESOBL( 3)='EPSS'
          LESOBL(12)='MARK'
          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(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)='EPSE'
          LESOBL( 2)='EPSP'
          LESOBL( 3)='EPSS'
          LESOBL(12)='MARK'
          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(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)='EPSE'
          LESOBL( 2)='EPSP'
          LESOBL( 3)='EPSS'
          LESOBL(12)='MARK'
          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(13)='EPCE'
          LESOBL(14)='EP  '
          LESOBL(15)='LL  '
          LESOBL(16)='EPST'
          LESOBL(17)='ECXX'
          LESOBL(18)='ECYY'
          LESOBL(19)='ECZZ'
          LESOBL(20)='ECXY'
          LESOBL(21)='ECYZ'
          LESOBL(22)='ECZX'
* CAS UNIDIMENSIONNEL (1D) PLAN
        ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN
          NBROBL=13
          SEGINI,NOMID
          LESOBL( 1)='EPSE'
          LESOBL( 2)='EPSP'
          LESOBL( 3)='EPSS'
          LESOBL(12)='MARK'
          LESOBL( 4)='VNXX'
          LESOBL( 5)='VNYY'
          LESOBL( 6)='VNZZ'
          LESOBL( 7)='EPCE'
          LESOBL( 8)='EPSH'
          LESOBL( 9)='LL  '
          LESOBL(10)='ECXX'
          LESOBL(11)='ECYY'
          LESOBL(13)='ECZZ'
* CAS UNIDIMENSIONNEL (1D) AXISYMETRIQUES OU SPHERIQUE
        ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN
          NBROBL=13
          SEGINI,NOMID
          LESOBL( 1)='EPSE'
          LESOBL( 2)='EPSP'
          LESOBL( 3)='EPSS'
          LESOBL(12)='MARK'
          LESOBL( 4)='VNRR'
          LESOBL( 5)='VNZZ'
          LESOBL( 6)='VNTT'
          LESOBL( 7)='EPCE'
          LESOBL( 8)='EPSH'
          LESOBL( 9)='LL  '
          LESOBL(10)='ECRR'
          LESOBL(11)='ECZZ'
          LESOBL(13)='ECTT'
        ENDIF
 
*  ELEMENT COQUE
*****************
C*    ELSE IF (MFR.EQ.3) THEN
 
*  ELEMENT COQUE EPAISSE
*************************
C*    ELSE IF (MFR.EQ.5) THEN
 
*  ELEMENTS POUTRE ET TUYAU
****************************
C*    ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN
 
*  ELEMENT COQUE CISAILLEMENT TRANSVERSE
*****************************************
C*    ELSE IF (MFR.EQ.9) THEN
 
*  FORMULATION MEMBRANE
************************
C*    ELSE IF (MFR.EQ.25) THEN
 
*  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
 
 
 

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