Il Linguaggio Fortran 90/95

4.10 Non-advancing I/O 213
disposizione una forma speciale di I/O chiamata, appunto, non-advancing. Questa particolare
forma di ingresso/uscita può avere luogo soltanto con file esterni connessi ad accesso sequenziale
(inclusi i dispositivi standard di I/O) di tipo formattato e con formato esplicito (quindi non
può essere usato nelle operazioni di I/O guidate da lista o con meccanismo namelist).
Le operazioni di I/O possono essere rese non-advancing includendo lo specificatore ADVANCE
nelle istruzioni READ o WRITE. Questo specificatore ha la seguente forma:
ADVANCE=modalità_di_avanzamento
in cui modalità_di_avanzamento è una espressione carattere che può valere ’YES’ (che è il
valore di default) oppure ’NO’.
Una operazione di I/O di tipo advancing può essere scelta esplicitamente inserendo lo specificatore
ADVANCE=’YES’ nella frase READ o WRITE, sebbene il risultato è lo stesso anche se si
omette lo specificatore. Una operazione di I/O non-advancing, invece, ha luogo inserendo lo
specificatore ADVANCE=’NO’ nella frase READ o WRITE.
Per quanto concerne le operazioni di input non-advancing, è bene precisare quanto segue:
• Una operazione di lettura continua sul record corrente fino a che non viene incontrata
una condizione di fine record.
• Se una istruzione READ non-advancing tenta di leggere dati oltre il marker di fine record
viene generato un errore di run-time. In questo caso l’esecuzione del programma si arresta,
a meno che l’istruzione di lettura non sia stata descritta con lo specificatore IOSTAT,
nel qual caso l’esecuzione del programma non viene interrotta e il file viene posizionato
immediatamente dopo il record appena letto.
Come facilmente intuibile, l’uso dello specificatore IOSTAT può risultare particolarmente
utile per controllare una condizione di errore. La sua sintassi è:
IOSTAT=stato
in cui stato è una variabile di tipo INTEGER. Al termine dell’operazione di lettura alla variabile
stato viene assegnato un valore rappresentativo dell’occorrenza e della tipologia di un eventuale
errore. I possibili casi che possono presentarsi sono:
• La variabile stato vale zero: ciò sta ad indicare che l’operazione di lettura è avvenuta
con successo.
• La variabile stato ha un valore positivo (dipendente dal processore): l’operazione di
lettura è stata ”abortita”.
• La variabile stato vale -1: è stata incontrata una condizione di fine file.
• La variabile stato vale -2: è stata incontrata una condizione di fine record in una
operazione di I/O non-advancing.
Un uso particolarmente semplice dello specificatore IOSTAT è il seguente: