Patrick Corde & Anne Fouilloux

Instruction INQUIRE 147
if ( existe ) then
OPEN( UNIT=1,
&
FILE="data_txt_seq", &
POSITION="rewind", &
ACTION="read", &
IOSTAT=ios )
if ( ios /= 0 ) then ! erreur à l’ouverture
...
else
INQUIRE( UNIT=1, &
FORMATTED=form, &
ACCESS=acces )
end if
...
CLOSE( UNIT=1 )
end if
end program inquire
Dans les variables caractères form et acces on
récupère respectivement les valeurs YES et SEQUENTIAL
(si le fichier data_txt_seq existe).
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux