Patrick Corde & Anne Fouilloux

Fichier texte à accès direct 136
7.3.2 – Fichier texte à accès direct
real, dimension(100) :: tab
integer ios, n
OPEN( UNIT=1,
&
FILE="data_txt_direct", &
FORM="formatted" &
ACCESS="direct", &
ACTION="read",
&
STATUS="old",
&
RECL=800,
&
IOSTAT=ios )
if ( ios /= 0 ) stop "Problème à l’ouverture!"
OPEN( UNIT=2,
&
FILE="data_txt_seq", &
ACTION="read", &
STATUS="old", &
IOSTAT=ios )
...
READ( UNIT=2, FMT=* ) n
READ( UNIT=1, REC=n, &
IOSTAT=ios, FMT=’(100F8.4)’ ) tab
if ( ios < 0 ) stop "enr. non existant!"
if ( ios > 0 ) stop "erreur à la lecture."
...
CLOSE( UNIT=2 )
CLOSE( UNIT=1 )
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux