Il Linguaggio Fortran 90/95

178 Operazioni di I/O interattive
consente di inserire, attraverso il dispositivo di ingresso standard (ad esempio la tastiera), tre
valori numerici (uno intero e due reali) che verranno interpretati secondo quanto specificato
dalla istruzione FORMAT ed assegnati ordinatamente alle variabili m, x e y. Così, se ad esempio,
i dati forniti dall’utente rappresentassero la seguente linea (o record) di ingresso:
11, 3.14, 2.71
allora l’istruzione di lettura avrebbe, ai fini della definizione dei valori di m, x e y, lo stesso
effetto delle tre istruzioni di assegnazione:
m = 11 x = 3.14 y = 2.71
Allo stesso modo, l’effetto della esecuzione di una istruzione WRITE o PRINT è quello di valutare
tante espressioni quante ne compaiono nella lista_di_uscita e di produrre poi detti valori,
ordinatamente, sul mezzo di uscita standard (ad esempio il terminale video) in un formato che
dipende dal tipo di ciascuno di essi ed in accordo con la specificazione di formato (quando
presente). Così, ad esempio, l’esecuzione del seguente frammento di programma:
REAL :: x=3.14, y=2.17 CHARACTER(LEN=4) :: str1, str2 str1="Star"
str2="Wars" WRITE(UNIT=*,FMT=100) x, y, x-2*y, str1//str2 100
FORMAT(1X,2(1X,F6.3),1X,E9.2/,A)
produce il seguente output:
3.140 2.170 -0.12E+01 StarWars
Come precedentemente anticipato, un identificatore di formato può essere costituito non
solo dalla etichetta di una istruzione FORMAT ma anche da una espressione carattere o da un
array di caratteri. Si parla in questi casi di formato contestuale in quanto la specificazione di
formato viene mutuata direttamente dal contesto della istruzione di I/O, senza che venga fatto
alcun riferimento ad una apposita frase FORMAT. In particolare, se l’identificatore di formato è
una espressione carattere, il valore dell’espressione viene valutato in fase di esecuzione e detto
valore deve costituire una specificazione di formato valida. Un possibile esempio è il seguente:
READ(*,’(I3)’) m ! formato contestuale ’’costante’’
che è una forma perfettamente equivalente alla coppia di istruzioni:
READ(*,100) m 100 FORMAT(I3)
mentre un ulteriore esempio potrebbe essere questo:
CHARACTER(LEN=10) :: formato ... formato = ’(1X,F5.2)’
WRITE(*,formato) x ! formato contestuale ’’variabile’’
Si noti che un formato contestuale variabile è molto più flessibile di quanto possa apparire
dal precedente esempio, basti pensare al fatto che la variabile formato, che assume il valore
(1X,F5.2) sul ramo di programma mostrato, su altri rami potrebbe assumere valori diversi.
Naturalmente è possibile costruire una lista di specificatori di formato anche attraverso
l’esecuzione di operazioni su stringhe: