C EXISCO    SOURCE    PV        09/03/12    21:21:58     6325           
      SUBROUTINE EXISCO(MOTYP,IVAL,MACOMP,IRET)                                 
C----------------------------------------------------------------------         
C    EXISTENCE D'UNE COMPOSANTE DANS UN CHPOINT OU UN MCHAML                    
C----------------------------------------------------------------------         
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
-INC SMCHPOI                                                                    
-INC SMCHAML                                                                    
      CHARACTER*8 MOTYP                                                         
      CHARACTER*4 MACOMP                                                        
      LOGICAL IRET                                                              
      IF(MOTYP.EQ.'MCHAML  ') THEN                                              
      ICHAM=1                                                                   
      GO TO 1                                                                   
      ELSE IF(MOTYP.EQ.'CHPOINT ') THEN                                         
      ICHAM=2                                                                   
      GO TO 1                                                                   
      ENDIF                                                                     
      CALL ERREUR(21)                                                           
      RETURN                                                                    
 1    CONTINUE                                                                  
C                                                                               
      GO TO (600,700),ICHAM                                                     
C----------------------------                                                   
C     CAS DU MCHAML                                                             
C----------------------------                                                   
 600  CONTINUE                                                                  
      MCHELM=IVAL                                                               
      SEGACT MCHELM                                                             
      NSOUS=IMACHE(/1)                                                          
C                                                                               
C     BOUCLE SUR LES SOUS PAQUETS DE MCHELM                                     
C                                                                               
      DO 100 IA=1,NSOUS                                                         
      MCHAML=ICHAML(IA)                                                         
      SEGACT MCHAML                                                             
      NCP=NOMCHE(/2)                                                            
      DO 110 IB=1,NCP                                                           
      IF(MACOMP.NE.NOMCHE(IB))GOTO 110                                          
      SEGDES MCHAML                                                             
      IRET=.TRUE.                                                               
      GO TO 120                                                                 
  110 CONTINUE                                                                  
      SEGDES MCHAML                                                             
 100  CONTINUE                                                                  
      IRET=.FALSE.                                                              
C                                                                               
 120  CONTINUE                                                                  
      SEGDES MCHELM                                                             
      GO TO 800                                                                 
C-------------------------                                                      
C     CAS DU CHPOINT                                                            
C-------------------------                                                      
 700  CONTINUE                                                                  
      MCHPOI=IVAL                                                               
        SEGACT MCHPOI                                                           
        NBSOUS=IPCHP(/1)                                                        
C                                                                               
C    BOUCLE SUR LES SOUS-ZONES DU CHPOINT                                       
C                                                                               
        DO 11 I=1,NBSOUS                                                        
        MSOUPO=IPCHP(I)                                                         
        SEGACT MSOUPO                                                           
        DO 12 IC=1,NOCOMP(/2)                                                   
           IF(NOCOMP(IC).NE.MACOMP) GO TO 12                                    
           SEGDES MSOUPO                                                        
           IRET=.TRUE.                                                          
           GO TO 15                                                             
12      CONTINUE                                                                
        SEGDES MSOUPO                                                           
11      CONTINUE                                                                
        IRET=.FALSE.                                                            
15    CONTINUE                                                                  
      SEGDES MCHPOI                                                             
C                                                                               
 800  RETURN                                                                    
      END