C EXTRAC    SOURCE    CHAT      05/01/12    23:53:29     5004           
      SUBROUTINE EXTRAC (CHAINE,I,MMT)                                          
      IMPLICIT INTEGER(I-N)
      CHARACTER *72 CHAINE                                                      
      CHARACTER *(*) MMT                                                         
*                                                                               
*     CHAINE : LISTE D'OU ON EXTRAIT LES MOTS ENCADRES DE ' '                   
*     I : INDICE A PARTIR DUQUEL SE FAIT L'EXTRACTION                           
*     MMT : EN RETOUR MOT EXTRAIT                                               
*                                                                               
*     
      LENT=LEN(MMT)                                                                          
      MMT=''''                                                                  
      L=LEN(CHAINE)                                                             
1     IF ((I .LE. L) .AND. (CHAINE(I:I).EQ.' ')) THEN                           
         I=I+1                                                                  
         GOTO1                                                                  
      ENDIF                                                                     
      IF (I .GT. L) GOTO 20                                                     
      J=1                                                                       
      MMT(1:1)=CHAINE(I:I)                                                      
      I=I+1                                                                     
2     IF ((I.LE.L) .AND. (CHAINE(I:I).NE.' ') .AND. (J.LT.LENT)) THEN             
         J=J+1                                                                  
         MMT(J:J)=CHAINE(I:I)                                                   
         I=I+1                                                                  
         GOTO 2                                                                 
      ENDIF                                                                     
3     IF ((I .LE. L) .AND. (CHAINE(I:I).EQ.' ')) THEN                           
         I=I+1                                                                  
         GOTO 3                                                                 
      ENDIF                                                                     
20    CONTINUE                                                                  
      END