C CCON      SOURCE    JC220346  16/11/18    21:15:26     9187           
************************************************************************
* NOM         : CCON
* DESCRIPTION : Separation d'un maillage en composantes connexes
*               (inspire de la subrotine numop2)
************************************************************************
* /!\ ATTENTION, CET OPERATEUR EST OBSOLETE ET DISPARAITRA PROCHAINEMENT
************************************************************************
* APPELE PAR : pilot.eso
************************************************************************
* ENTREES :: aucune
* SORTIES :: aucune
************************************************************************
* SYNTAXE (GIBIANE) :
*
*                TAB1 = CCON ( | 'STR1' | ) MAIL1 ;
*                              | 'STR2' | 
*
************************************************************************
      SUBROUTINE CCON
      
      IMPLICIT INTEGER(I-N)


-INC PPARAM
-INC CCOPTIO
      
      PARAMETER(NMOT=2)
      CHARACTER*4 LMOT(NMOT)
      DATA LMOT/'STR2','STR1'/      
      
*     LECTURE D'UN EVENTUEL MOT-CLE
      CALL LIRMOT(LMOT,NMOT,IMOT,0)
         
*     LECTURE DE L'OBJET MAILLAGE
      CALL LIROBJ('MAILLAGE',MEL,1,IRET)
      IF (IERR.NE.0) RETURN

*     APPEL A PART7 (OPERATEUR PART QUI REMPLACE CCON)
      KLI=0
      KFA=0
      IF (IMOT.EQ.2) KLI=1
      IF (IMOT.EQ.1) KFA=1
      CALL PART7(MEL,KLI,KFA,0,0,0,0.D0,0,ITAB,0)
      IF (IERR.NE.0) RETURN

*     FIN DE LA SUBROUTINE
      CALL ECROBJ('TABLE',ITAB)
      
      RETURN

      END