Télécharger finfic.eso

Retour à la liste

Numérotation des lignes :

  1. C FINFIC SOURCE JC220346 12/06/18 21:15:00 7403
  2. ************************************************************************
  3. * NOM : finfic.eso
  4. * DESCRIPTION : Positionne la tete de lecture en fin de fichier
  5. ************************************************************************
  6. * HISTORIQUE : 7/06/2012 : JCARDO : création de la subroutine
  7. * HISTORIQUE :
  8. * HISTORIQUE :
  9. ************************************************************************
  10. SUBROUTINE FINFIC(IOP)
  11. IMPLICIT INTEGER(I-N)
  12.  
  13. * Lecture de tous les enregistrements et du marqueur EOF
  14. * /!\ le fichier doit etre ouvert en mode 'FORMATTED'
  15. 100 READ(IOP,*,END=200)
  16. GOTO 100
  17.  
  18. * Positionnement juste avant le marqueur EOF
  19. 200 BACKSPACE(IOP)
  20. CONTINUE
  21.  
  22. END
  23.  
  24.  

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