C IDVAR3    SOURCE    AM        16/06/08    21:15:10     8953           

C=======================================================================
*        RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
*        --------------------------------------------------------
*
*  ENTREES :
*  ---------
*     MATEPL   NUMERO DU MATERIAU PLASTIQUE
*     MFR      NUMERO DE FORMULATION
*     IFOUR    VALEUR DE IFOU DANS CCOPTIO
*
*  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 IDVAR3 (MATEPL,MFR,IFOUR,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  1 - Modele de LEMAITRE
C ========================
      IF (MATEPL.EQ.24) THEN
        NBROBL=2
        SEGINI,NOMID
        LESOBL(1)='XX  '
        LESOBL(2)='EPSE'

C  2 - Modele de MAXWELL
C =======================
      ELSE IF (MATEPL.EQ.74) THEN
        NBROBL=6
        NBRFAC=4
        SEGINI,NOMID
        LESOBL(1)='EPSE'
        LESOBL(2)='SM0 '
        LESOBL(3)='SM1 '
        LESOBL(4)='SM2 '
        LESOBL(5)='SM3 '
        LESOBL(6)='SM4 '
        LESFAC(1)='SM5 '
        LESFAC(2)='SM6 '
        LESFAC(3)='SM7 '
        LESFAC(4)='SM8 '

C  3 - Modele BPEL_RELAX
C =======================
      ELSE IF (MATEPL.EQ.95) THEN
        NBROBL=1
        SEGINI,NOMID
        LESOBL(1)='ERLX'
      
      
      IPCOMP=NOMID
      SEGDES,NOMID

C  4 - Modele KELVIN
C =======================
C MATEPL=174            
      ELSE IF (MATEPL.EQ.174) THEN              
       NBROBL=19                
       SEGINI,NOMID             
       LESOBL(1)        =       'EPF1'
       LESOBL(2)        =       'EPF2'
       LESOBL(3)        =       'EPF3'
       LESOBL(4)        =       'EPF4'
       LESOBL(5)        =       'EPF5'
       LESOBL(6)        =       'EPF6'
       LESOBL(7)        =       'SMR1'
       LESOBL(8)        =       'SMR2'
       LESOBL(9)        =       'SMR3'
       LESOBL(10)       =       'SMR4'
       LESOBL(11)       =       'SMR5'
       LESOBL(12)       =       'SMR6'
       LESOBL(13)       =       'EPE1'
       LESOBL(14)       =       'EPE2'
       LESOBL(15)       =       'EPE3'
       LESOBL(16)       =       'EPE4'
       LESOBL(17)       =       'EPE5'
       LESOBL(18)       =       'EPE6'     
       LESOBL(19)       =       'EPSE'
      ENDIF
      
      IPCOMP=NOMID
      SEGDES,NOMID
      
      RETURN
      END