Il Linguaggio Fortran 90/95

420 Operazioni di I/O su file
1
L’ultima forma dell’istruzione INQUIRE, ossia l’inquire-by-output list consta di un solo
specificatore, IOLENGTH, e si presenta con la seguente sintassi:
INQUIRE(IOLENGTH=length) lista_di_output
in cui length rappresenta una variabile intera mentre lista_di_output è una lista di
entità che si presenta nella stessa forma di una lista di output per l’istruzione WRITE.
L’effetto di questa istruzione è quello di assegnare alla variabile length la lunghezza del
record che risulterebbe dall’uso della lista_di_output in una istruzione WRITE non formattata.
La conoscenza della suddetta lunghezza, che viene espressa in unità dipendenti
dal processore, può essere utile, ad esempio, per stabilire se una data lista di output è
troppo lunga per essere contenuta in un record la cui lunghezza sia stata imposta nella
istruzione OPEN con lo specificatore RECL=.
A titolo di esempio, si osservi la seguente istruzione:
INQUIRE (IOLENGTH=len) a, b
Il suo scopo potrebbe essere quello di calcolare il valore len da assegnare allo specificatore
RECL= in una istruzione OPEN che connetta un file per accesso diretto non formattato. Se,
invece, è stato già specificato un valore per la clausolaRECL=, è possibile fare un ”check” su
len per verificare che la lunghezza del record di uscita formato da a e b sia effettivamente
minore o uguale della lunghezza di record specificata.
Le tre forme dell’istruzione di interrogazione sono, probabilmente, fra le istruzioni più
ostiche da gestire, tuttavia esse forniscono un metodo molto potente e ”portabile” per gestire
le operazioni di allocazione e deallocazione dinamica di file, il tutto sotto il completo
controllo del programma.
8.2.4 Operazioni di lettura su file
L’istruzioneREAD ha lo scopo di leggere una lista di valori dal file associato ad una data unità logica,
convertire questi valori in accordo con un eventuale descrittore di formato e immagazzinarli
nelle variabili specificate nella lista di input.
L’istruzione si caratterizza per la seguente sintassi:
READ([UNIT=]u[,[FMT=]fmt][,IOSTAT=ios][,REC=rn] &
[,[NML=]lista][,ADVANCE=adv][,SIZE=size]) lista_di_input
dove, però, non tutti gli specificatori possono essere usati insieme, come si avrà modo di capire
tra breve. Il significato degli specificatori validi per l’istruzione READ è riassunto di seguito.
• La clausolaUNIT=u specifica l’unità logica associata al file i cui record devono essere sottoposti
a lettura; u è il numero identificativo dell’unità logica e rappresenta una espressione
intera non negativa. Questo specificatore deve essere obbligatoriamente presente, tuttavia