Il Linguaggio Fortran 90/95

4.10 Non-advancing I/O 215
INTEGER :: int1, int2 ... OPEN(UNIT=6,PAD=’YES’) READ(*,FMT=’(2I6)’)
int1,int2
e il record di ingresso è inserito come:
12bbbb34
il risultato sarebbe l’assegnazione del valore 12 alla variabile int1 e del valore 34 alla variabile
int2 (naturalmente lo stesso effetto si avrebbe omettendo lo specificatore PAD ed assumendo
per esso il valore di default). Se, invece l’istruzione di connessione fosse:
OPEN(UNIT=6,PAD=’NO’)
la successiva istruzione di lettura fallirebbe in quanto la lunghezza del record di ingresso, di
otto caratteri, risulta minore dei dodici caratteri che è quanto imposto dalla specificazione di
formato.
Pertanto, connettere il dispositivo di ingresso standard specificandoPAD=’NO’ fa in modo che
gli eventuali caratteri bianchi inseriti come padding vengano tenuti in conto dallo specificatore
SIZE in una eventuale istruzione di lettura non-advancing. Si fa notare, tuttavia, che l’uso
dello specificatore PAD risulta poco significativo nelle operazioni di lettura da tastiera mentre
può risultare utile nelle operazioni di lettura da file esterno scritti, ad esempio, da un altro
programma; in tal caso, infatti, porre uguale a ’NO’ il valore di PAD può fornire uno strumento
per verificare se la lettura dei dati avviene correttamente.
Per quanto concerne, infine, le operazioni di output non-advancing, esse sono molto più
semplici rispetto a quelle di input. E’ necessario prevedere soltanto due possibilità:
• Se non viene riscontrata alcuna condizione di errore, l’operazione di scritture continua sul
medesimo record a partire dall’ultimo carattere inserito.
• Se viene incontrata una condizione di errore, il file viene posizionato immediatamente
dopo il record appena scritto.
L’utilizzo più frequente di una istruzione di uscita non-advancing è quello di scrivere un prompt
sul terminale video e di leggere il record di input sulla stessa riga dello schermo. Ad esempio,
la seguente coppia di operazioni di I/O:
WRITE(*,’("Inserisci il valore di m: ")’,ADVANCE=’NO’)
READ(*,’(I5)’) m
visualizza sul terminale video la stringa:
Inserisci il valore di m: _
in cui il simbolo underscore è rappresentativo della posizione del cursore che si posiziona immediatamente
dopo l’ultimo carattere della stringa rappresentata e corrisponde al punto dove
comincerà l’inserimento del record di input.