C EXTR37    SOURCE    KICH      22/02/17    21:15:02     11282          
      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
*
*-----------------------------------------------------------------------
*
*
      PARAMETER (NCONCS=16)
      
      
            SEGACT MCHELM
      JGN=NCONCS
      JGM=0
      SEGINI MLMOTS
      IF (IMACHE(/1).EQ.0) GO TO 90
*
      JGM = 1
      SEGADJ MLMOTS
      if (conche(1)(1:NCONCS).eq.'    ') call erreur (-328)
      MOTS(JGM) = CONCHE(1)(1:NCONCS)
*
      IF (IMACHE(/1).NE.1) THEN
            DO 40 K=2,IMACHE(/1)
               if (conche(k)(1:NCONCS).eq.'    ') call erreur (-328)
               DO 50 J=1,JGM
               IF (MOTS(J).EQ.CONCHE(K)(1:NCONCS)) GOTO 40
 50            CONTINUE
               JGM=JGM+1
               SEGADJ MLMOTS
               MOTS(JGM)=CONCHE(K)(1:NCONCS)
 40         CONTINUE
      ENDIF
*
 90   SEGDES MLMOTS,MCHELM
      RETURN
      END