Patrick Corde & Anne Fouilloux

Instructions de positionnement 145
READ( UNIT=1, FMT=’(100F6.3)’, IOSTAT=ios ) tab
DO WHILE( ios == 0 )
if ( flag ) then
BACKSPACE( UNIT=1 )
ENDFILE( UNIT=1 )
BACKSPACE( UNIT=1 )
END IF
...
READ( UNIT=1, FMT=’(100F6.3)’,IOSTAT=ios ) tab
END DO
CLOSE( UNIT=1 )
end program troncature
Ensuite on relit le fichier et si la variable flag
contient la valeur .TRUE. on le tronque avant le
dernier enregistrement lu. (Instructions BACKSPACE et
ENDFILE).
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux