Esope source files

   1 : C IDVA11    SOURCE    CHAT      05/01/13    00:30:53     5004           
   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 IDVA11 (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  1 - MATERIAU HINTE contraintes planes
  37 : C =======================================
  38 :       IF (MATEPL.EQ.89) THEN
  39 :         NBROBL=5
  40 :         SEGINI,NOMID
  41 :         LESOBL(1)='EPSE'
  42 :         LESOBL(2)='D3  '
  43 :         LESOBL(3)='D2  '
  44 :         LESOBL(4)='D1  '
  45 :         LESOBL(5)='YDB '
  46 : 
  47 : C  2 - MATERIAU VISCOHINTE contraintes planes
  48 : C ============================================
  49 :       ELSE IF (MATEPL.EQ.90) THEN
  50 :         NBROBL=5
  51 :         SEGINI,NOMID
  52 :         LESOBL(1)='EPSE'
  53 :         LESOBL(2)='D3  '
  54 :         LESOBL(3)='D2  '
  55 :         LESOBL(4)='D1  '
  56 :         LESOBL(5)='YDB '
  57 :       ENDIF
  58 : 
  59 :       IPCOMP=NOMID
  60 :       SEGDES,NOMID
  61 : 
  62 :       RETURN
  63 :       END
  64 :  
  65 :