Patrick Corde & Anne Fouilloux

Instruction INQUIRE 146
7.8 – Instruction INQUIRE
L’instruction d’interrogation INQUIRE permet de
récupérer un certain nombre d’informations concernant
un fichier ou un numéro d’unité logique.
Elle permet par exemple de tester si un fichier existe,
s’il est connecté et dans ce cas de connaître les valeurs
des paramètres positionnés lors de son ouverture via
OPEN.
Cette interrogation peut être faite en indiquant soit
le numéro d’unité logique soit le nom du fichier.
program inquire
LOGICAL existe
INTEGER ios
CHARACTER(len=3) :: form
CHARACTER(len=10) :: acces
INQUIRE( FILE="data_txt_seq", EXIST=existe )
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux