C EXTRA8    SOURCE    CB215821  24/04/12    21:15:53     11897          
      SUBROUTINE EXTRA8(IPMODE,IPGEOM)
************************************************************************
*
*                             E X T R A 8
*                             -----------
*
* FONCTION:
* ---------
*
*     EXTRAIRE LE MAILLAGE CONTENU DANS UN OBJET "MODELE"
*
* MODULES UTILISES:
* -----------------
*
      IMPLICIT INTEGER(I-N)
-INC SMMODEL
*
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
* -----------
*
*     IPMODE  (E)  POINTEUR SUR L'OBJET MODELE
*     IPGEOM  (S)  POINTEUR SUR LE MAILLAGE EXTRAIT DE L'OBJET
*                  MODELE
*
* AUTEUR, DATE DE CREATION:
* -------------------------
*
*     DENIS ROBERT,LE 28 AVRIL 1988.
*
* LANGAGE:
* --------
*
*     ESOPE + FORTRAN77
*
************************************************************************
*

-INC PPARAM
-INC CCOPTIO
      logical ltelq
      MMODEL=IPMODE
      SEGACT,MMODEL
      NSOUMO=KMODEL(/1)
*
      IMODEL=KMODEL(1)
      SEGACT,IMODEL
      IPGEOM=IMAMOD
*
      DO 10 ISOUMO=2,NSOUMO
         IMODEL=KMODEL(ISOUMO)
         SEGACT,IMODEL
         IPGEO1=IMAMOD
         ltelq=.false.
         CALL FUSE(IPGEOM,IPGEO1,IPGEO2,ltelq)
         IF (IERR.NE.0) THEN
           IPGEOM=0
           RETURN
         ENDIF
         IPGEOM=IPGEO2
 10      CONTINUE

      END