Il Linguaggio Fortran 90/95

186 Operazioni di I/O interattive
4.4.3 Il descrittore F
Il descrittore di formato F è utilizzato per controllare il formato di rappresentazione dei valori
reali secondo la notazione decimale. La sua sintassi è:
Fw.d
dove w rappresenta la larghezza di campo, ossia il numero di caratteri da utilizzare per rappresentare
i dati di input e output, mentre d rappresenta il numero di cifre da visualizzare a
destra del punto decimale. Se necessario, il numero sarà arrotondato prima di essere rappresentato;
ciò accade, chiaramente, quando il numero rappresentato richiede meno cifre significative
della sua rappresentazione interna. Al contrario, se il numero rappresentato richiede più cifre
significative della sua rappresentazione interna, saranno aggiunti degli zeri extra alla destra del
numero.
La dimensione del campo w deve essere valutata con molta attenzione quando si fa uso del
descrittore F nelle operazioni di uscita; in particolare, detto n il numero di cifre della parte
intera del valore da produrre, si deve far sì che w e d soddisfino alla condizione:
w ≥ n + d + 2
ossia, fatte salve le n cifre per la parte intera, per stampare un valore con d cifre decimali
occorre un campo di almeno d+2 caratteri (infatti occorrono, oltre ai d caratteri per le cifre
che seguono la virgola, anche un carattere per l’eventuale segno, ed uno per il punto decimale).
Nel caso in cui questa condizione non sia soddisfatta, il campo destinato all’output del valore
reale sarà riempito di asterischi.
Un esempio di utilizzo del descrittore F in operazioni di uscita è fornito dalle seguenti
istruzioni:
REAL :: x = 12.34, y = -0.945, z = 100.0 ... WRITE(*,"(3F6.2)") x,
y, z
Il descrittore di formato utilizzato è 3F6.2 che è equivalente a (F6.2,F6.2,F6.2) per via
della presenza del contatore di ripetizione 3. Pertanto, ciascuna delle tre variabili reali verrà
stampata in accordo con lo specificatore F6.2 ossia nel formato a virgola fissa in un campo
di sei caratteri di cui due destinati ad ospitare le prime due cifre dopo la virgola. Il risultato
prodotto sarà, pertanto:
b12.34b-0.95100.00
dove, evidentemente, il valore di y viene troncato dell’ultima cifra decimale in accordo con
quanto imposto dallo specificatore di formato adottato, così come al valore di z viene aggiunto
”in coda” uno zero supplementare. Ancora una volta con il simbolo b si è voluto rappresentare
un carattere blank. Come ulteriore esempio di operazioni di uscita formattate che impieghino
il descrittore F si guardi il seguente frammento di codice:
REAL :: x=-12.3, y=.123, z=123.456 WRITE(*,100) x,y,z WRITE(*,200)
x,y,z WRITE(*,300) x,y,z 100 FORMAT(1X,2F6.3,F8.3) 200
FORMAT(1X,3F10.2) 300 FORMAT(1X,F7.2,F6.3,F5.0)