Esope source files

   1 : C IDVA10    SOURCE    FANDEUR   10/02/01    21:15:30     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 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 IDVA10 (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,
  24 :      .                   NBROBL,NBRFAC)
  25 : 
  26 :       IMPLICIT INTEGER(I-N)
  27 :       IMPLICIT REAL*8 (A-H,O-Z)
  28 : 
  29 :       SEGMENT NOMID
  30 :         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  31 :       ENDSEGMENT
  32 : 
  33 :       NBROBL=0
  34 :       NBRFAC=0
  35 :       IPCOMP=0
  36 :       NOMID=0
  37 : 
  38 : C  1 - MODELE VISK2
  39 : C ==================
  40 :       IF (MATEPL.NE.82) RETURN
  41 : C =====
  42 : C  1.1 - Element MASSIF
  43 : C =====
  44 :       IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN
  45 : C= 1.1.1 - Cas des CONTRAINTES PLANES ou DEFORMATIONS PLANES ou
  46 : C=         DEFORMATIONS PLANES GENERALISEES
  47 :         IF (IFOUR.EQ.-2.OR.IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN
  48 :           NBROBL=9
  49 :           SEGINI,NOMID
  50 :           LESOBL(1)='EPSE'
  51 :           LESOBL(2)='SPXX'
  52 :           LESOBL(3)='SPYY'
  53 :           LESOBL(4)='SPZZ'
  54 :           LESOBL(5)='SPXY'
  55 :           LESOBL(6)='SVXX'
  56 :           LESOBL(7)='SVYY'
  57 :           LESOBL(8)='SVZZ'
  58 :           LESOBL(9)='SVXY'
  59 : C= 1.1.2 - Cas AXISYMETRIQUE
  60 :         ELSE IF (IFOUR.EQ.0) THEN
  61 :           NBROBL=9
  62 :           SEGINI,NOMID
  63 :           LESOBL(1)='EPSE'
  64 :           LESOBL(2)='SPRR'
  65 :           LESOBL(3)='SPZZ'
  66 :           LESOBL(4)='SPTT'
  67 :           LESOBL(5)='SPRZ'
  68 :           LESOBL(6)='SVRR'
  69 :           LESOBL(7)='SVZZ'
  70 :           LESOBL(8)='SVTT'
  71 :           LESOBL(9)='SVRZ'
  72 : C= 1.1.3 - Cas des series de FOURIER
  73 :         ELSE IF (IFOUR.EQ.1) THEN
  74 :           NBROBL=13
  75 :           SEGINI,NOMID
  76 :           LESOBL( 1)='EPSE'
  77 :           LESOBL( 2)='SPRR'
  78 :           LESOBL( 3)='SPZZ'
  79 :           LESOBL( 4)='SPTT'
  80 :           LESOBL( 5)='SPRZ'
  81 :           LESOBL( 6)='SPRT'
  82 :           LESOBL( 7)='SPZT'
  83 :           LESOBL( 8)='SVRR'
  84 :           LESOBL( 9)='SVZZ'
  85 :           LESOBL(10)='SVTT'
  86 :           LESOBL(11)='SVRZ'
  87 :           LESOBL(12)='SVRT'
  88 :           LESOBL(13)='SVZT'
  89 : C= 1.1.4 - Cas TRIDIMENSIONNEL
  90 :         ELSE IF (IFOUR.EQ.2) THEN
  91 :           NBROBL=13
  92 :           SEGINI,NOMID
  93 :           LESOBL( 1)='EPSE'
  94 :           LESOBL( 2)='SPXX'
  95 :           LESOBL( 3)='SPYY'
  96 :           LESOBL( 4)='SPZZ'
  97 :           LESOBL( 5)='SPXY'
  98 :           LESOBL( 6)='SPXZ'
  99 :           LESOBL( 7)='SPYZ'
 100 :           LESOBL( 8)='SVXX'
 101 :           LESOBL( 9)='SVYY'
 102 :           LESOBL(10)='SVZZ'
 103 :           LESOBL(11)='SVXY'
 104 :           LESOBL(12)='SVXZ'
 105 :           LESOBL(13)='SVYZ'
 106 : C= 1.1.5 - Modes de calcul UNIDIMENSIONNELS (1D) PLAN
 107 :         ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN
 108 :           NBROBL=7
 109 :           SEGINI,NOMID
 110 :           LESOBL(1)='EPSE'
 111 :           LESOBL(2)='SPXX'
 112 :           LESOBL(3)='SPYY'
 113 :           LESOBL(4)='SPZZ'
 114 :           LESOBL(5)='SVXX'
 115 :           LESOBL(6)='SVYY'
 116 :           LESOBL(7)='SVZZ'
 117 : C= 1.1.6.- Modes de calcul UNDIMENSIONNELs (1D) AXIS et SPHE
 118 :         ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN
 119 :           NBROBL=7
 120 :           SEGINI,NOMID
 121 :           LESOBL(1)='EPSE'
 122 :           LESOBL(2)='SPRR'
 123 :           LESOBL(3)='SPZZ'
 124 :           LESOBL(4)='SPTT'
 125 :           LESOBL(5)='SVRR'
 126 :           LESOBL(6)='SVZZ'
 127 :           LESOBL(7)='SVTT'
 128 :         ENDIF
 129 :       ENDIF
 130 : 
 131 :       IPCOMP=NOMID
 132 :       IF (IPCOMP.EQ.0) THEN
 132 :         CALL ERREUR(896)
 133 :       ELSE
 134 :         SEGDES,NOMID
 135 :       ENDIF
 136 : 
 137 :       RETURN
 138 :       END
 139 :  
 140 :