C EXTR37    SOURCE    PV        09/03/12    21:22:10     6325           
      SUBROUTINE EXTR37(MCHELM,MLMOTS)                                          
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
*-----------------------------------------------------------------------        
*                                                                               
*                             E X T R 37                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     EXTRAIT LES NOMS DES constituants D'UN MCHAML                              
*     ET LES RANGE DANS UN LISTMOTS MLMOTS      
*     signale les constituants 'nombre'                                
*                                                                               
* MODULES UTILISES:                                                             
* -----------------                                                             
*                                                                               
-INC SMCHAML                                                                    
-INC SMLMOTS                                                                    
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     MCHELM  (E)  POINTEUR SUR LE MCHAML                                       
*     MLMOTS  (S)  POINTEUR SUR LE LISTMOTS                                     
*                                                                               
*-----------------------------------------------------------------------        
*                                                                               
*                                                                               
      SEGACT MCHELM                                                             
      JGN=4                                                                     
      JGM=0                                                                     
      SEGINI MLMOTS                                                             
      IF (IMACHE(/1).EQ.0) GO TO 90                                             
*    
      JGM = 1
      SEGADJ MLMOTS
      if (conche(1)(1:4).eq.'    ') call erreur (-328)
      MOTS(JGM) = CONCHE(1)(1:4)            
*                                                                               
      IF (IMACHE(/1).NE.1) THEN                                                 
            DO 40 K=2,IMACHE(/1)                                               
               if (conche(k)(1:4).eq.'    ') call erreur (-328)
               DO 50 J=1,JGM                                                    
               IF (MOTS(J).EQ.CONCHE(K)(1:4)) GOTO 40                           
 50            CONTINUE                                                         
               JGM=JGM+1                                                        
               SEGADJ MLMOTS                                                    
               MOTS(JGM)=CONCHE(K)(1:4)                                         
 40         CONTINUE                                                            
      ENDIF                                                                     
*                                                                               
 90   SEGDES MLMOTS,MCHELM                                                
      RETURN                                                                    
      END