Il Linguaggio Fortran 90/95

214 Operazioni di I/O interattive
READ(UNIT=*,FMT=100,IOSTAT=ioerror) x,y,z IF(ioerror/=0) THEN
... ! Si puo’ stampare un messaggio di errore
... ! e si possono prendere eventuali precauzioni
... ! prima di abortire l’operazione
END IF 100 FORMAT(...) ! Continua la normale esecuzione
Si noti che l’utilizzo dello specificatore IOSTAT non è limitato al controllo delle operazioni di
non-advancing I/O ma, al contrario, è di applicabilità del tutto generale. Anche per questo
motivo si ritornerà sull’argomento nel capitolo 8 dove si continuerà a parlare dei meccanismi di
I/O.
Nel caso in cui abbia avuto luogo una condizione di errore può risultare utile conoscere il
numero di caratteri che sono stati letti. Ciò può essere ottenuto a mezzo dello specificatore
SIZE il quale ha la seguente forma:
SIZE=contatore
in cui contatore è una variabile di tipo INTEGER. Al termine dell’operazione di lettura alla
variabile contatore viene assegnato il numero di caratteri letti ad eccezione dagli eventuali
caratteri blank. Così, ad esempio, dato il seguente frammento di programma:
! Esempio di lettura ’’non avanzante’’ INTEGER recsize,stato
CHARACTER(50) stringa
READ(UNIT=*,FMT=’(A15)’,ADVANCE=’NO’,SIZE=recsize,IOSTAT=stato)
stringa IF(stato==-2) THEN
PRINT*, "Ripeti l’immissione della stringa"
READ(*,’(A)’,ADVANCE=’NO’) stringa
END IF WRITE(*,*) stringa
se la lunghezza del record di ingresso fosse minore di cinquanta caratteri, l’istruzione READ
incontrerebbe una condizione di fine record, la variabile stato assumerebbe pertanto il valore
-2 mentre il valore della variabile recsize risulterebbe pari proprio al numero di caratteri
letti ossia all’effettiva lunghezza del record introdotto. Pertanto potrebbe avere luogo una
nuova operazione di lettura di un record di esattamente recsize caratteri che non genererebbe
alcuna condizione di errore. Come detto, la variabile contatore dello specificatore SIZE ignora
gli eventuali caratteri blank che contornano il record letto. Esiste, tuttavia, la possibilità
di rendere significativi tali caratteri, connettendo, cioè, il file di lavoro (nella fattispecie, il
dispositivo standard di lettura) e inserendo lo specificatore PAD posto pari a ’NO’. Questo
specificatore ha la forma:
PAD=modalità_di_padding
in cui modalità_di_avanzamento è una espressione carattere che può valere ’YES’ (il valore
di default) oppure ’NO’. Nel caso esso valga ’YES’ (oppure se è omesso) il processore aggiunge
nelle operazioni di input formattate dei ”bianchi di testa” ai record la cui lunghezza risulti
minore di quanto specificato dalla specificazione di formato. Se il valore di PAD è ’NO’ la
lunghezza del record di input deve essere pari almeno a quanto specificato dal formato. Così,
ad esempio, se un programma contiene le seguenti istruzioni: