Il Linguaggio Fortran 90/95

4.6 Alcune considerazioni sulle istruzioni di I/O formattate 199
subdoli in quanto tipicamente non vengono rilevati in fase di compilazione ma si manifestano
solo durante l’esecuzione del programma, provocando una inevitabile interruzione del run
all’atto dell’esecuzione dell’istruzione ”incriminata”.
Se un descrittore di formato è associato a un fattore di ripetizione r, il descrittore sarà
utilizzato il numero di volte specificato dal fattore di ripetizione, prima che venga utilizzato il
successivo descrittore. Nel seguente esempio il descrittore I3 è associato alle variabili i, j e k
mentre il descrittore F7.3 è associato alla sola variabile x:
INTEGER :: i,j,k REAL :: x ... WRITE(*,"(1X,3(I4),F7.3)")
i,j,k,x
Se un gruppo di descrittori di formato racchiusi fra parentesi è associato a un fattore di ripetizione
r, l’intero gruppo sarà utilizzato il numero di volte specificato dal fattore di ripetizione,
prima che venga utilizzato il successivo descrittore. Ogni descrittore all’interno del gruppo sarà
utilizzato ordinatamente da sinistra a destra durante ogni iterazione. Nel seguente esempio,
il descrittore F7.3 viene associato alla variabile x; poi viene utilizzato due volte il gruppo di
descrittori (I3,L2) e, quindi, I3 viene associato alla variabile i, L2 alla variabile y, di nuovo
I3 alla variabile j e L2 alla variabile cond2. Infine A10 viene associato alla variabile str.
INTEGER :: i, j REAL :: x LOGICAL
:: cond1, cond2 CHARACTER(LEN=10) :: str ...
WRITE(*,"(1X,F7.3,2(I3,L2),A10)") x,i,cond1,j,cond2,str
4.6.2 Lista di I/O più corta della lista di descrittori di formato
Se il numero di variabili della lista di I/O è minore del numero di descrittori di formato,
l’applicazione del formato termina al primo descrittore che non può essere associato ad una
variabile. In altre parole, una volta che tutte le variabili della lista di I/O sono state processate,
l’istruzione di I/O si conclude e tutti i descrittori di formato inutilizzati vengono semplicemente
ignorati. Così, ad esempio, la seguente istruzione di scrittura:
INTEGER :: a = 1, b = 2, c = 4 CHARACTER(LEN=20) :: FMT =
"(2I5,I3,F7.3,A10)" ... WRITE(*,FMT) a, b, c
si caratterizza per la presenza di tre variabili di uscita e di cinque descrittori di formato. Ebbene,
quando la lista di variabili di uscita è stata processata, il contenuto del buffer viene inviato al
dispositivo di uscita e gli ultimi tre descrittori vengono del tutto ignorati. La scansione della
lista diFORMAT si arresterà, pertanto, al descrittoreF7.3 che è il primo descrittore non associato
ad una variabile.
4.6.3 Lista di I/O più lunga della lista di descrittori di formato
Se il numero di variabili della lista di I/O è maggiore del numero di descrittori di formato, il
programma trasmette [risp: acquisisce] il contenuto corrente del buffer di output [risp: di input]