C EXTR11    SOURCE    CHAT      05/01/12    23:51:48     5004           
      SUBROUTINE EXTR11(ICHP,MLMOTS)                                            
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
*-----------------------------------------------------------------------        
*                                                                               
*                             E X T R 1 1                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     EXTRAIT LES COMPOSANTES DU CHPOINT "ICHP" ET LES RANGE DANS               
*       UN LISTMOTS MLMOTS                                                      
*                                                                               
* MODULES UTILISES:                                                             
* -----------------                                                             
*                                                                               
-INC SMCHPOI                                                                    
-INC SMLMOTS                                                                    
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     ICHP    (E)  POINTEUR SUR LE CHPOINT                                      
*     MLMOTS  (S)  POINTEUR SUR LE LISTMOTS                                     
*                                                                               
*-----------------------------------------------------------------------        
*                                                                               
*                                                                               
      JGN=4                                                                     
      MCHPOI = ICHP                                                             
      SEGACT MCHPOI                                                             
      JGM=0                                                                     
      SEGINI MLMOTS                                                             
      IF (IPCHP(/1).EQ.0) GO TO 90                                              
      DO 10 I=1,IPCHP(/1)                                                       
         MSOUPO=IPCHP(I)                                                        
         SEGACT MSOUPO                                                          
 10   CONTINUE                                                                  
*                                                                               
      MSOUPO=IPCHP(1)                                                           
      JGM=NOCOMP(/2)                                                            
      SEGADJ MLMOTS                                                             
      DO 20 I=1,JGM                                                             
         MOTS(I)=NOCOMP(I)                                                      
 20   CONTINUE                                                                  
      SEGDES MSOUPO                                                       
*                                                                               
      IF (IPCHP(/1).NE.1) THEN                                                  
         DO 30 I=2,IPCHP(/1)                                                    
            MSOUPO=IPCHP(I)                                                     
            DO 40 K=1,NOCOMP(/2)                                                
               DO 50 J=1,JGM                                                    
                  IF (MOTS(J).EQ.NOCOMP(K)) GOTO 40                             
 50            CONTINUE                                                         
               JGM=JGM+1                                                        
               SEGADJ MLMOTS                                                    
               MOTS(JGM)=NOCOMP(K)                                              
 40         CONTINUE                                                            
            SEGDES MSOUPO                                                 
 30      CONTINUE                                                               
      ENDIF                                                                     
*                                                                               
 90   SEGDES MLMOTS,MCHPOI                                                
      RETURN                                                                    
      END