Patrick Corde & Anne Fouilloux

Destruction d’un fichier 139
7.5 – Destruction d’un fichier
L’instruction CLOSE admet le paramètre à mot-clé
STATUS qui par défaut (pour un fichier non temporaire)
prend la valeur KEEP permettant ainsi de conserver
le fichier après fermeture. Si on désire le supprimer il
suffira de préciser la valeur DELETE pour ce paramètre.
real, dimension(100) :: tab
integer ios
OPEN( UNIT=1,
&
FILE="data_seq", &
ACTION="read",
&
STATUS="old",
&
IOSTAT=ios )
if ( ios /= 0 ) then ! Problème à l’ouverture
...
end if
...
if ( condition ) then
CLOSE( UNIT=1, STATUS="delete" )
else
CLOSE( UNIT=1 )
end if
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux