Il Linguaggio Fortran 90/95

4.4 Descrittori ripetibili 185
INTEGER :: i, j, k ... READ(*,’(2I5,I10)’)
l’inserimento del seguente record di ingresso:
10 25 50000
ha l’effetto di assegnare alle variabili i, j e k, rispettivamente, i valori 10, 25 e 50000.
4.4.2 I descrittori B, O e Z
I descrittori di formato B , O e Z definiscono un campo per dati da rappresentare in forma,
rispettivamente, binaria (ossia in termini delle sole cifre 0 e 1), esadecimale (ossia in termini
delle sole cifre da 0 a 7) oppure ottale (ossia in termini delle cifre da 0 a 9 o dei caratteri da A
ad F o da a ad f). Essi forniscono, così, una conversione fra la rappresentazione binaria interna
e le corrispondenti rappresentazioni esterne binaria, esadecimale oppure ottale. Le rispettive
forme di questi specificatori sono:
Bw [.m]
Ow [.m]
Zw [.m]
dove w rappresenta la larghezza di campo, ossia il numero di caratteri da utilizzare per rappresentare
i dati di input e output, mentre m rappresenta il numero minimo di cifre da visualizzare.
Il valore di m è ignorato in input ed ha effetto solo per operazioni di uscita. Se m non viene
specificato si assume per esso un valore di default unitario; se m è maggiore di w il campo sarà
riempito di asterischi.
Il campo di uscita relativo al descrittore Bw [risp. Ow, Zw] è una stringa di zero o più bianchi
di testa seguiti dalle cifre corrispondenti alla rappresentazione binaria [risp. esadecimale, ottale]
del valore da rappresentare esclusi gli zeri di testa.
Il campo di uscita relativo al descrittore Bw.m [risp. Ow.m, Zw.m] è identico a quello relativo
al corrispondente descrittore Bw [risp. Ow, Zw] salvo che per il fatto che la stringa di uscita è
composta di almeno m cifre; se necessario, detta stringa sarà riempita di zeri di testa.
Il prossimo frammento di programma rappresenta un esempio di istruzioni di output formattate
facenti uso degli specificatori in esame:
INTEGER :: a=21, b=-1 WRITE(*,100) "Formato binario: ", a, b
WRITE(*,200) "Formato ottale: ", a, b WRITE(*,300) "Formato
esadecimale: ", a, b 100 FORMAT(1X,A,2(1X,B12)) 200
FORMAT(1X,A,2(1X,O12.4)) 300 FORMAT(1X,A,2(1X,Z12))
Il corrispondente risultato è:
Formato binario: 10101 111111111111 Formato ottale:
0025 37777777777 Formato esadecimale: 15 FFFFFFFF