Il Linguaggio Fortran 90/95

48 Tipi ed espressioni
L’istruzione PRINT si comporta analogamente a WRITE salvo per il fatto che il dispositivo di
uscita è sempre quello standard del sistema di calcolo utilizzato.
E’ possibile semplificare ulteriormente queste istruzioni sostituendo un asterisco (”*”) agli
argomenti unità_logica e formato , riferendosi in tal modo ai dispositivi standard di ingresso/uscita
e formattando i dati con impostazioni di default previsti dalla specifica implementazione:
READ(*,*) lista_di_variabili
WRITE(*,*) lista_di_espressioni
PRINT* lista_di_espressioni
In generale, però, il parametro formato avrà come valore una etichetta cui è riferita una
istruzione FORMAT la quale rappresenta una particolare istruzione non eseguibile avente lo scopo
di descrivere la specificazione di formato da utilizzare. Di tutto questo, però si parlerà
diffusamente nel seguito.
Come esempio si consideri il seguente frammento di programma:
INTEGER :: m, n
...
READ(*,*) m, n
WRITE(*,*) "Il risultato e’: ", m + 2*n
La prima istruzione eseguibile legge due valori dal dispositivo standard di input (ad esempio,
la tastiera) e ne assegna i valori ordinatamente alle variabili elencate nella lista di ingresso. Si
noti che i valori introdotti devono essere separati da virgole o da spazi bianchi. La seconda
istruzione, invece, valuta le espressioni della lista di uscita e ne produce i valori ordinatamente
sul dispositivo standard di output (ad esempio, il terminale video). Così, se il record di ingresso
fosse il seguente:
3 4
il risultato a video sarebbe:
Il risultato e’: 11
Come si nota, il record di uscita è formattato piuttosto male, con un numero eccessivo di caratteri
bianchi fra il primo elemento della lista di uscita (la stringa Il risultato e’: ) ed
il secondo (il valore dell’espressione intera m+2*n). Una migliore formattazione si otterrebbe ricorrendo
ad una esplicita specificazione di formato, ad esempio, mediante un’istruzione FORMAT,
come suggerito dal seguente esempio:
WRITE(*,100) "Il risultato e’: ", m+2*n
100 FORMAT(1X,A17,I2)
che serve a strutturare il record di uscita in modo tale che il primo carattere sia uno spazio
bianco (1X), seguito da una stringa di diciassette caratteri (A17) seguita, a sua volta, da un
intero di due cifre (I2). Il risultato a video apparirebbe, allora, in questo modo: