C IDVAR3    SOURCE    CHAT      05/01/13    00:31:11     5004           

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'
      ENDIF

      IPCOMP=NOMID
      SEGDES,NOMID

      RETURN
      END