Esope source files

   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 :