C FUCHXR    SOURCE    CHAT      11/03/16    21:24:00     6902           

      SUBROUTINE FUCHXR (IMODLA,IMODLB, IMODLS)

C-----------------------------------------------------------------------
C     SOUS-PROGRAMME REALISANT LA FUSION DES MCHAMLS D'ENRICHISSEMENT 
C     ISSUS DE DEUX MODELES CONTENANT DES ELEMENTS DE TYPE XFEM/RUPTURE
C-----------------------------------------------------------------------
C     IMODLA   1er modele elementaire contenant des elements XFEM
C              Segment IMODEL : ACTIF en Entree/Sortie
C     IMODLB   2e modele elementaire contenant des elements XFEM
C              Segment IMODEL : ACTIF en Entree/Sortie
C     IMODLS   Modele elementaire contenant le MCHAML d'ENRICHISSMENT
C              resultant de la fusion des MCHAMLs de IMODLA et IMODLB
C              Segment IMODEL : ACTIF en Sortie
C-----------------------------------------------------------------------
C     ON SUPPOSE QUE LES MAILLAGES ASSOCIES AUX SOUS-MODELES ONT ETE 
C     FUSIONNES ET QUE LE RESULTAT EST STOCKE DANS IMODLA.IMAMOD.
C-----------------------------------------------------------------------

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

-INC CCOPTIO

C*-INC SMELEME
-INC SMMODEL

      IMODE1 = IMODLA
      IMODE2 = IMODLB
C*    SEGACT,IMODE1,IMODE2
C- Recuperation du MCHAML d enrichissement dans IMODE1
      CALL ICHAXR(IMODE1, ICHAX1,MCHAM1)
      IF (ICHAX1 .EQ. 0) GOTO 900
C- Recuperation du MCHAML d enrichissement dans IMODE2
      CALL ICHAXR(IMODE2, ICHAX2,MCHAM2)
      IF (ICHAX2 .EQ. 0) GOTO 900

      IF (IMODLS.GT.0) THEN
        IMODEL = IMODLS
        SEGACT,IMODEL*MOD
C- Recuperation du MCHAML d enrichissement dans IMODEL
        CALL ICHAXR(IMODEL, ICHAXS,MCHAMS)
        IF (ICHAXS .EQ. 0) GOTO 900
      ELSE
        IMODEL = IMODLA
        ICHAXS = ICHAX1
      ENDIF

C- Fusion des MCHAMLs d'enrichissement
      CALL FUSCHL(MCHAM1,MCHAM2, MCHAMS)
      IF (IERR.NE.0) GOTO 900
      IMODEL.IVAMOD(ICHAXS) = MCHAMS
C*C- Reactivation du maillage support du modele suite a fusion
C*      MELEME = IMODEL.IMAMOD
C*      SEGACT,MELEME
C* Pour l'instant inutile de reactiver le maillage support car il 
C* correspond deja au maillage fusionne (equivalent a celui du
C* MCHAML fusionne ci-dessus mais de pointeur different).
C* Le MCHAML d'enrichissement fusionne sera mis en correspondance 
C* avec le maillage fusionne a la fin (appel a PARTXR).

 900  CONTINUE
C*    SEGDES,IMODE1,IMODE2
C*    IF (IMODLS.GT.0) SEGDES,IMODEL

      RETURN
      END