C IDVA12    SOURCE    MB234859  25/08/04    21:15:23     12339          
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=======================================================================
* BCN
*     New source:   four material models added:
*                   MRS-Lade                         (MATEPL=111)
*                   J2                               (MATEPL=112)
*                   Rounded Hyperbolic Mohr-Coulomb  (MATEPL=113)
*                   von Mises - Tresca FeFp          (MATEPL=114)
*                   RH Mohr-Coulomb FeFp             (MATEPL=115)
*                   Powder model FeFp                (MATEPL=116)
*                   Powder cap model FeFp            (MATEPL=117)
C=======================================================================

      SUBROUTINE IDVA12 (MATEPL,MFR,MELE,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 - MODELE MRS-Lade
C =====================
C= EPSE : cone internal variable
C= KCAP : cap internal variable
C= LCON : cone d(plastic multiplier) (for Consistent Tangent Matrix)
C= LCAP : cap d(plastic multiplier) (for Consistent Tangent Matrix)
C= NSAC : number of substeps of the last iteration
C= SSII : relative size of the last substep of each iteration
      IF (MATEPL.EQ.111) THEN
        NBROBL=6
        SEGINI,NOMID
        LESOBL(1)='EPSE'
        LESOBL(2)='KCAP'
        LESOBL(3)='LCON'
        LESOBL(4)='LCAP'
        LESOBL(5)='NSST'
        LESOBL(6)='SSII'

C  2 - MODELES J2 et Rounded Hyperbolic Mohr-Coulomb
C ===================================================
C= EPSE :
C= AUX1 : auxiliary variable (for Consistent Tangent Matrix),
C=        used without substepping
C= NSAC : number of substeps of the last iteration
C= SSII : relative size of the last substep of each iteration
      ELSE IF (MATEPL.EQ.112.OR.MATEPL.EQ.113) THEN
        NBROBL=4
        SEGINI,NOMID
        LESOBL(1)='EPSE'
        LESOBL(2)='AUX1'
        LESOBL(3)='NSST'
        LESOBL(4)='SSII'

C  3 - VMT_FEFP, RHMC_FEFP, RHMCrho_FEFP, POWDER_FEFP, POWDERCAP_FEFP
C ====================================================================
C= EPSE :
C= AUX1 : plastic multiplier / equal to -1 means elastic step
C= NITE : number of iterations
C= XDEN : relative density (used in Update Lagrangian formulation)
      ELSE IF (MATEPL.EQ.114.OR.MATEPL.EQ.115.OR.
     .         MATEPL.EQ.116.OR.MATEPL.EQ.117) THEN
        NBROBL=4
        SEGINI,NOMID
        LESOBL(1)='EPSE'
        LESOBL(2)='AUX1'
        LESOBL(3)='NITE'
        LESOBL(4)='XDEN'
c
c modele de liaison acier-beton (LIAISON_ACBE)
c
      ELSE IF (MATEPL.EQ.171) THEN
        NBROBL = 6
        SEGINI,NOMID
        LESOBL(1)='GDEP'
        LESOBL(2)='TDEP'
        LESOBL(3)='GDEN'
        LESOBL(4)='TDEN'
        LESOBL(5)='KPEN'
        LESOBL(6)='EPSE'
c cccccc
C  Par DEFAUT : SEGMENT VIDE
C ===========================
      ELSE
        SEGINI,NOMID
      ENDIF

      IPCOMP=NOMID
      SEGDES,NOMID

      RETURN
      END