C IDVA11    SOURCE    CHAT      05/01/13    00:30:53     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
*     NPINT  NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
*            POUR LES ELEMENTS DE COQUE INTEGRES
*
*  SORTIES :
*  ---------
*     IPCOMP   POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
*              OBLIGATOIRES ET FACULTATIVES
*     NBROBL   NOMBRE DE COMPOSANTES OBLIGATOIRES
*     NBRFAC   NOMBRE DE COMPOSANTES FACTULTATIVES
C=======================================================================

      SUBROUTINE IDVA11 (MATEPL,MFR,IFOUR,NPINT,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 - MATERIAU HINTE contraintes planes
C =======================================
      IF (MATEPL.EQ.89) THEN
        NBROBL=5
        SEGINI,NOMID
        LESOBL(1)='EPSE'
        LESOBL(2)='D3  '
        LESOBL(3)='D2  '
        LESOBL(4)='D1  '
        LESOBL(5)='YDB '

C  2 - MATERIAU VISCOHINTE contraintes planes
C ============================================
      ELSE IF (MATEPL.EQ.90) THEN
        NBROBL=5
        SEGINI,NOMID
        LESOBL(1)='EPSE'
        LESOBL(2)='D3  '
        LESOBL(3)='D2  '
        LESOBL(4)='D1  '
        LESOBL(5)='YDB '
      ENDIF

      IPCOMP=NOMID
      SEGDES,NOMID

      RETURN
      END