Il Linguaggio Fortran 90/95

4.3 Specificazioni di formato 179
CHARACTER(LEN=12) :: formato ... formato=’(1X,F5.2,1X)’
WRITE(*,’(3X//formato(4:11)//’,I3)’) x,m
il cui risultato è analogo a quello che si avrebbe con l’uso della frase FORMAT:
WRITE(*,250) x,m 250 FORMAT(3X,F5.2,1X,I3)
Se, invece, l’identificatore di formato in una frase di I/O è il nome di un array di caratteri,
allora la specificazione di formato è il risultato della concatenazione dei valori dei singoli elementi
presi secondo l’ordinamento degli array. Un esempio, seppur banale, potrebbe essere il seguente:
CHARACTER(LEN=7), DIMENSION(2) :: a ... a(1)=’(E10.3,’ a(2)=’1X,I5)’
WRITE(*,a) x,m ! identico a WRITE(*,’(E10.3,1X,I5)’)
Si noti, infine, che le costanti intere presenti negli specificatori di formato visti finora possono
anche essere sostituite dal nome simbolico di opportune variabili intere (con valore definito), a
patto che questi nomi siano racchiusi fra i simboli. Così, ad esempio, il seguente frammento
di programma:
INTEGER :: m=7, n=3, val=50 REAL :: x=3.14 WRITE(*,100) val, x 100
FORMAT(1X,I,1X,F.)
risulta perfettamente equivalente a:
INTEGER :: val=50 REAL :: x=3.14 WRITE(*,100) val, x 100
FORMAT(1X,I3,1X,F7.3)
Dagli esempi proposti si evince che il formato contestuale può risultare molto utile limitatamente
a casi di formati semplici oppure in applicazioni sofisticate qualora occorra definire
formati variabili.
4.3 Specificazioni di formato
Le informazioni trasmesse durante una operazione di I/O sono rappresentate su record. La
struttura di tali record può essere determinata mediante una specificazione di formato che, in
particolare, individua una suddivisione di ciascun record in uno o più campi, ossia gruppi di
caratteri ciascuno dei quali contiene un singolo dato; l’ampiezza di un campo rappresenta il
numero di caratteri che lo compongono. La specificazione di formato descrive completamente
il modo in cui ogni dato deve essere scritto (o letto) nel campo che gli è destinato e può inoltre
contenere altre informazioni utili per l’interpretazione dei record.
Una specificazione di formato ha la seguente forma:
(e 1,e 2,...,e n)
in cui ciascun termine e i può essere del tipo:
• [r]d r