Il Linguaggio Fortran 90/95

4.2 Istruzioni di lettura e scrittura 177
dove:
• unità_logica rappresenta il ”puntatore” ad una unità di input o di output e può essere:
– un valore intero, nel qual caso le istruzioni READ e WRITE utilizzeranno le unità di
ingresso e di uscita associate a tale numero;
– il simbolo asterisco (”*”), nel qual caso le operazioni di I/O verranno effettuate
utilizzando i dispositivi di I/O standard definiti dal sistema di elaborazione utilizzato.
Si noti che alcuni numeri validi per l’unità logica sono riservati proprio alle unità standard
(tipicamente l’unità 5 è associata al dispositivo standard di input, 6 al dispositivo
standard di output). Ma dal momento che queste associazioni possono variare da un
sistema all’altro è bene utilizzare sempre l’asterisco quando si vuole operare con i dispositivi
standard, in modo da garantire il corretto funzionamento delle istruzioni di I/O
indipendentemente dal sistema di elaborazione adottato.
• formato è un identificatore di formato che può essere:
– un asterisco (”*”), in questo caso si dice che la frase di I/O è guidata da lista;
– l’etichetta di una istruzione FORMAT che sia presente nella stessa unità di programma
in cui compare la frase di I/O;
– una espressione carattere;
– il nome di un array di tipo carattere.
La frase FORMAT è una istruzione non eseguibile che si presenta con la seguente sintassi:
label FORMAT(sf)
• label è l’etichetta, obbligatoria, dell’istruzione;
• sf è una specificazione di formato che risulta associata a tutte le istruzioni di ingresso/uscita
della stessa unità di programma in cui figura label come identificatore di
formato.
Alle regole relative alla creazione e ad un uso ”maturo” delle specificazioni di formato sarà
dedicato il prossimo paragrafo, prima però si anticiperanno alcuni esempi allo scopo di illustrare
come sia possibile associare una istruzione di I/O ad una specificazione di formato.
L’effetto della esecuzione di una istruzione READ è quello di leggere tanti valori quanti sono i
nomi simbolici presenti nella lista_di_ingresso e di assegnare gli stessi, ordinatamente, ciascuno
alla variabile cui corrisponde secondo la modalità imposta dalla specificazione di formato
(quando presente). Così, ad esempio, l’esecuzione del seguente frammento di programma:
REAL :: x, y INTEGER :: m ... READ(*,100) m, x, y 100
FORMAT(I2,2(1X,F4.2))