Il Linguaggio Fortran 90/95

4.4 Descrittori ripetibili 187
il cui risultato è, evidentemente, il seguente:
****** 0.123 123.456
-12.30 0.12 123.46
-12.30 0.123 123.
Il primo campo, riempito di asterischi, si spiega considerando che il valore da rappresentare,
-12.3 richiede tre caratteri per la rappresentazione della parte intera (-12) mentre il particolare
specificatore adottato dalla prima istruzione FORMAT ne riserva appena due (dei 6 associati allo
specificatore F6.3, infatti, ne vanno sottratti 3 per la parte decimale ed uno per il punto
decimale). L’ultimo valore prodotto, invece, si caratterizza per la totale assenza di una parte
decimale, in accordo con lo specificatore F5.0 che, per la stampa del valore cui è riferito, riserva
un campo di 5 caratteri di cui 0 per la parte decimale.
L’interpretazione dei dati reali in istruzioni di ingresso è lievemente più complessa. Il valore
di input in un un campo F può essere un numero reale qualsiasi espresso secondo la notazione
in virgola fissa o mobile o un numero senza punto decimale. In particolare, se il valore è
inserito nelle prime due forme, esso è interpretato sempre correttamente indipendentemente
dalla posizione che occupa all’interno del campo di input. Così, ad esempio, considerata la
seguente istruzione di input:
REAL :: x, y, z ... READ(*,150) x,y,z 150 FORMAT(3F10.4)
supponendo che il record di ingresso sia il seguente:
2.5 0.254E+01 25.E-01
tutte e tre le variabili di ingresso conterranno il valore 2.5 (ai piedi del precedente record
di ingresso si sono indicate schematicamente anche le dimensioni di ciascun campo, al fine di
rendere più evidente la formattazione del record). Se, invece, all’interno del campo appare
un numero senza un punto decimale, si suppone che questo occupi la posizione specificata
dal termine d del descrittore di formato. Ad esempio, se il descrittore di formato è F10.4, si
suppone che le quattro cifre più a destra del numero costituiscano la parte decimale del valore
di input mentre le restanti cifre sono considerate come la parte intera del valore di input. Così,
ad esempio, considerata la seguente istruzione di input:
REAL :: x, y, z ... READ(*,150) x,y,z 150 FORMAT(3F10.4)
supponendo che il record di ingresso sia il seguente:
25 250 25000
le variabili x, y e z conterrebbero, rispettivamente, i valori 0.0025, 0.0250 e 2.5000 Questo
semplice esempio dovrebbe essere sufficiente a far comprendere come l’impiego, nei record di
ingresso, di valori reali senza il punto decimale possa generare una notevole confusione per cui
non dovrebbe mai aver luogo.