C ICHAXR    SOURCE    CHAT      11/03/16    21:25:06     6902           

      SUBROUTINE ICHAXR (IPMODL,ICHELX,MCHELX)

C-----------------------------------------------------------------------
C  SOUS-PROGRAMME DE RECUPERATION DU MCHAML D'ENRICHISSEMENT CONTENU
C  DANS LE MODELE ASSOCIE A DES ELEMENTS DE TYPE XFEM/RUPTURE
C-----------------------------------------------------------------------
C  IPMODL (E)  Modele elementaire de REFERENCE (complet) s'appyant sur 
C              des elements de type XFEM (formulation MFR=63), contenant
C              en particulier le MCHAML d'ENRICHISSEMENT
C              Segment IMODEL : ACTIF en Entree/Sortie & non modifie
C  ICHELX (S)  Indice dans le tableau IVAMOD du modele IPMODL du MCHAML
C              d'ENRICHISSEMENT, =0 si MCHAML n'existe pas
C  MCHELX (S)  MCHAML d'ENRICHISSEMENT contenu dans le modele
C              = 0 s'il n'est pas present dans le modele
C              Segment MCHELM : ACTIF en Sortie  (si present)
C-----------------------------------------------------------------------

      IMPLICIT INTEGER (I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC CCOPTIO

-INC SMCHAML
-INC SMMODEL

      IMODEL = IPMODL
      ICHELX = 0
      MCHELX = 0

C*      SEGACT,IMODEL
C*      IF (IPMODL.EQ.0) THEN
C*        WRITE(IOIMP,*) '#####  SOUS-PROGRAMME ICHAXR #####'
C*        CALL ERREUR(21)
C*        RETURN
C*      ENDIF

C- Recuperation du MCHAML d enrichissement dans IMODEL
      NOBMOD = IMODEL.IVAMOD(/1)
      DO i = 1, NOBMOD
        IF (IMODEL.TYMODE(i) .EQ. 'MCHAML') THEN
          MCHELM = IMODEL.IVAMOD(i)
          SEGACT,MCHELM
          IF (TITCHE .EQ. 'ENRICHIS') THEN
            ICHELX = i
            MCHELX = MCHELM
            GOTO 10
          ENDIF
          SEGDES,MCHELM
        ENDIF
      ENDDO
      IF (ICHELX .EQ. 0) THEN
        WRITE(IOIMP,*) 'Il n y a pas de MCHAML d ENRICHISsement ',
     &                 'dans le modele'
        RETURN
      ENDIF

 10   CONTINUE
C*      SEGDES,IMODEL

      RETURN
      END