Il Linguaggio Fortran 90/95

202 Operazioni di I/O interattive
ha come punto di riscansione il descrittore I2 e, pertanto, è equivalente alla seguente specificazione:
(1X,I1,I2,I3 /
I2,I3 /
I2,I3 /
...)
mentre la stessa specificazione, in assenza di parentesi:
(1X,I1,I2,I3)
sarebbe equivalente a:
(1X,I1,I2,I3 /
1X,I1,I2,I3 /
...)
e avrebbe, pertanto, un significato totalmente diverso.
4.6.4 Sovrapposizione fra campi di input ed interpretazione dei blank
E’ molto importante, in presenza di istruzioni di input formattate, rispettare il vincolo dell’ampiezza
w dei vari campi di ingresso nella preparazione del record di input. Nel caso, infatti, in
cui esistesse un overlap i campi della lista ingresso e i valori del record di input, l’operazione
di lettura potrebbe dar luogo a risultati davvero inaspettati (se non a condizioni di errore allorquando
si perdesse la corrispondenza fra specificatore di formato e tipo della variabile). Ad
esempio, il seguente record di input:
1234 56 78 90
verrebbe interpretato in maniera completamente diversa dalle istruzioni:
READ(*,100) a,b,c,d READ(*,200) a,b,c,d 100 FORMAT(I6,I5,I4,I3) 200
FORMAT(I3,I4,I5,I6)
producendo, nel primo caso, le assegnazioni:
a=1234; b=56; c=78; d=90
e nel secondo caso le assegnazioni:
a=123; b=4; c=567; d=890
Si noti che, generalmente, tutti gli eventuali spazi bianchi presenti nel campo di ampiezza
w vengono ignorati, per cui essi vengono del tutto rimossi dalla stringa di cifre introdotta.
Pertanto, data la seguente istruzione di ingresso:
INTEGER :: a, b, c, d ... READ(*,"(4I7)") a, b, c, d
ed il seguente record di input:
1 3 5 1 35 135 13 5
l’effetto che si ottiene equivale ad assegnare il valore 135 a tutte e quattro le variabili della lista
di ingresso.