Télécharger extrac.eso

Retour à la liste

Numérotation des lignes :

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

© Cast3M 2003 - Tous droits réservés.
Mentions légales