Il Linguaggio Fortran 90/95

190 Operazioni di I/O interattive
Viceversa, nelle operazioni di output i descrittori reali non sono fra loro equivalenti in
quanto definiscono modalità diverse di rappresentazione esterna di un numero reale nel campo
di ampiezza w. In ogni caso, indipendentemente dal tipo di rappresentazione interna del dato,
la sua rappresentazione esterna contiene d cifre dopo il punto decimale di cui l’ultima ottenuta
per arrotondamento.
4.4.6 Il descrittore ES
Il descrittore di formato ES è utilizzato per controllare il formato di rappresentazione dei valori
reali secondo la notazione scientifica. Secondo questa notazione un numero viene espresso con
una mantissa compresa tra 1.0 e 10.0 per una potenza di 10 mentre, come si ricorderà, secondo
la notazione esponenziale guidata dal descrittore E, un numero viene espresso con una mantissa
compresa tra 0.1 e 1.0 per una potenza di 10. Fatta salva questa eccezione, non vi è altra
differenza fra i descrittori ES ed E. Il descrittore di formato ES ha la seguente forma generale:
ESw.d [Ee]
dove, come sempre, w rappresenta la larghezza di campo, ossia il numero di caratteri da utilizzare
per rappresentare i dati di input e output, d è il numero di cifre da visualizzare a destra del
punto decimale mentre e rappresenta il numero di cifre nell’esponente (pari a due per default).
La formula per ottenere la larghezza minima di un campo con formato ES è uguale a quella del
descrittore E, con la differenza che ES può rappresentare una cifra significativa in più a parità
di lunghezza dal momento che lo zero a sinistra del punto decimale viene sostituito da una cifra
significativa. La larghezza del campo, w, deve soddisfare alla seguente condizione:
w ≥ d + 7
in caso contrario il campo sarà riempito di asterischi. Se il numero da rappresentare è positivo,
la condizione è ”rilassata” nel senso che la larghezza e del campo deve risultare di almeno sei
caratteri più grande di d. Chiaramente se il descrittore è presente nella sua forma completa
con il suffisso Ee la nuova condizione cui deve soddisfare la larghezza del campo w diventa:
w ≥ d +e+5
A titolo di esempio, si guardino le istruzioni:
REAL :: a=1.2345E6, b=0.01, c=-77.7E10 WRITE(*,100) a,b,c 100
FORMAT(1X,2ES14.4,ES12.6)
le quali forniscono il seguente output:
1.2345E+06 1.0000E-02************