Sources Esope | Cast3M

extrac
C EXTRAC    SOURCE    CB215821  21/07/12    21:15:10     11074          
      SUBROUTINE EXTRAC (CHAINE,I,MMT)
 
      IMPLICIT INTEGER(I-N)
      CHARACTER *(*) CHAINE,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