Il Linguaggio Fortran 90/95

8.2 Le specifiche di I/O 415
oppure il numero di caratteri dei record formattati. Per file ad accesso diretto questo
specificatore specifica la lunghezza dei record ed è obbligatorio. Per file ad accesso sequenziale
esso è opzionale e specifica la lunghezza massima per un record, con un valore
di default che dipende dal processore.
Un esempio di istruzione OPEN è il seguente:
OPEN(UNIT=11,IOSTAT=ios,FILE=’archivio’,STATUS=’NEW’, &
ACCESS=’DIRECT’,RECL=100)
Un’operazione perfettamente equivalente è realizzata dalle seguenti istruzioni:
k = 5
dim = 100
filename = "archivio"
OPEN(UNIT=2*k+1,IOSTAT=ios,FILE=filename,STATUS=’NEW’, &
ACCESS=’DIRECT’,RECL=dim)
In entrambi i casi si ha l’effetto di creare un file ad accesso diretto, non formattato, con nome
esterno archivio, caratterizzato da record di lunghezza 100. Il file così creato è connesso
all’unità logica 11. Un eventuale fallimento nella connessione del file può essere rilevato dal
valore della variabile intera ios (che, nel caso, assumerebbe valore positivo dipendente dal
processore) e, pertanto, non provocherà un arresto del sistema. La clausola IOSTAT= può
tornare molto utile al fine di evitare di riscrivere su un file già esistente:
OPEN(UNIT=ilun,FILE=infile,FORM=’FORMATTED’, &
ACCESS=’SEQUENTIAL’, STATUS=’NEW’,IOSTAT=rstat)
IF(rstat/=0) THEN
PRINT*, "Errore durante l’apertura del file: ", infile
PRINT*, "Assicurarsi che il file non esista gia’!"
END IF
Si noti che uno stesso file non può risultare connesso contemporaneamente a due distinte
unità logiche. Nulla vieta, però, che un file possa essere riconnesso alla stessa o ad un’altra
unità dopo essere stato sconnesso.
8.2.2 Sconnessione di un file
Al termine dell’esecuzione di un programma ogni file che sia stato connesso viene automaticamente
sconnesso (”chiuso”). Se, tuttavia, si desidera operare tale sconnessione prima della
fine del programma, ad esempio per riconnettere quel file ad altra unità, è possibile utilizzare
l’istruzione CLOSE la cui sintassi è:
CLOSE([UNIT=]u[,IOSTAT=ios][,STATUS=st])
in cui gli specificatori possono apparire in qualsiasi ordine, a meno che la parola chiave UNIT=
non sia assente, nel qual caso l’unità logica u deve essere specificata per prima.
Di seguito viene elencato il significato di ciascuno specificatore.