Esope source files

   1 : C IDVAR3    SOURCE    CHAT      05/01/13    00:31:11     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 : *
  13 : *  SORTIES :
  14 : *  ---------
  15 : *     IPCOMP   POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  16 : *              OBLIGATOIRES ET FACULTATIVES
  17 : *     NBROBL   NOMBRE DE COMPOSANTES OBLIGATOIRES
  18 : *     NBRFAC   NOMBRE DE COMPOSANTES FACULTATIVES
  19 : C=======================================================================
  20 : 
  21 :       SUBROUTINE IDVAR3 (MATEPL,MFR,IFOUR,IPCOMP,NBROBL,NBRFAC)
  22 : 
  23 :       IMPLICIT INTEGER(I-N)
  24 :       IMPLICIT REAL*8 (A-H,O-Z)
  25 : 
  26 :       SEGMENT NOMID
  27 :         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  28 :       ENDSEGMENT
  29 : 
  30 :       NBROBL=0
  31 :       NBRFAC=0
  32 :       NOMID=0
  33 : 
  34 : C  1 - Modele de LEMAITRE
  35 : C ========================
  36 :       IF (MATEPL.EQ.24) THEN
  37 :         NBROBL=2
  38 :         SEGINI,NOMID
  39 :         LESOBL(1)='XX  '
  40 :         LESOBL(2)='EPSE'
  41 : 
  42 : C  2 - Modele de MAXWELL
  43 : C =======================
  44 :       ELSE IF (MATEPL.EQ.74) THEN
  45 :         NBROBL=6
  46 :         NBRFAC=4
  47 :         SEGINI,NOMID
  48 :         LESOBL(1)='EPSE'
  49 :         LESOBL(2)='SM0 '
  50 :         LESOBL(3)='SM1 '
  51 :         LESOBL(4)='SM2 '
  52 :         LESOBL(5)='SM3 '
  53 :         LESOBL(6)='SM4 '
  54 :         LESFAC(1)='SM5 '
  55 :         LESFAC(2)='SM6 '
  56 :         LESFAC(3)='SM7 '
  57 :         LESFAC(4)='SM8 '
  58 : 
  59 : C  3 - Modele BPEL_RELAX
  60 : C =======================
  61 :       ELSE IF (MATEPL.EQ.95) THEN
  62 :         NBROBL=1
  63 :         SEGINI,NOMID
  64 :         LESOBL(1)='ERLX'
  65 :       ENDIF
  66 : 
  67 :       IPCOMP=NOMID
  68 :       SEGDES,NOMID
  69 : 
  70 :       RETURN
  71 :       END
  72 : 
  73 :  
  74 :