Esope source files

   1 : C EXTRAC    SOURCE    CHAT      05/01/12    23:53:29     5004           
   2 :       SUBROUTINE EXTRAC (CHAINE,I,MMT)                                          
   3 :       IMPLICIT INTEGER(I-N)
   4 :       CHARACTER *72 CHAINE                                                      
   5 :       CHARACTER *(*) MMT                                                         
   6 : *                                                                               
   7 : *     CHAINE : LISTE D'OU ON EXTRAIT LES MOTS ENCADRES DE ' '                   
   8 : *     I : INDICE A PARTIR DUQUEL SE FAIT L'EXTRACTION                           
   9 : *     MMT : EN RETOUR MOT EXTRAIT                                               
  10 : *                                                                               
  11 : *     
  12 :       LENT=LEN(MMT)                                                                          
  13 :       MMT=''''                                                                  
  14 :       L=LEN(CHAINE)                                                             
  15 : 1     IF ((I .LE. L) .AND. (CHAINE(I:I).EQ.' ')) THEN                           
  16 :          I=I+1                                                                  
  17 :          GOTO1                                                                  
  18 :       ENDIF                                                                     
  19 :       IF (I .GT. L) GOTO 20                                                     
  20 :       J=1                                                                       
  21 :       MMT(1:1)=CHAINE(I:I)                                                      
  22 :       I=I+1                                                                     
  23 : 2     IF ((I.LE.L) .AND. (CHAINE(I:I).NE.' ') .AND. (J.LT.LENT)) THEN             
  24 :          J=J+1                                                                  
  25 :          MMT(J:J)=CHAINE(I:I)                                                   
  26 :          I=I+1                                                                  
  27 :          GOTO 2                                                                 
  28 :       ENDIF                                                                     
  29 : 3     IF ((I .LE. L) .AND. (CHAINE(I:I).EQ.' ')) THEN                           
  30 :          I=I+1                                                                  
  31 :          GOTO 3                                                                 
  32 :       ENDIF                                                                     
  33 : 20    CONTINUE                                                                  
  34 :       END                                                                       
  35 :  
  36 :