Il Linguaggio Fortran 90/95

432 Operazioni di I/O su file
8.3.1 I/O non advancing
Quando un’istruzione di I/O advancing viene eseguita, l’operazione di lettura o di scrittura
comincia sempre dal record successivo a quello corrente e lascia il file posizionato alla fine del
reord processato. Inoltre, nelle operazioni di ingresso, la lista di input non deve specificare più
caratteri (o valori) di quanti stabiliti con la eventuale specificazione della lunghezza del record.
Nel caso, invece, in cui, per file formattati, il numero di caratteri prodotti in input sono inferiori
alla specificazione della lunghezza del record, la restante parte del record viene completata con
spazi bianchi a meno che nella lista di OPEN non sia stato inserito lo specificatore PAD=’NO’, nel
qual caso il comportamento adottato può variare da processore a processore.
Le operazioni di I/O formattate non advancing danno la possibilità di leggere o scrivere
anche solo una parte di un record, lasciando il file posizionato dopo l’ultimo carattere letto
o scritto piuttosto che saltare alla fine del record. Una peculiarità delle istruzioni di input
non advancing è la possibilità di leggere record di lunghezza variabile e di determinarne la
lunghezza. Si noti che le istruzioni di I/O non advancing possono essere utilizzate soltanto con
file esterni sequenziali formattati e con formato esplicitamente dichiarato (in altre parole non è
possibile avere istruzioni di I/O non advancing con formato guidato da lista o con meccanismo
namelist).
La sintassi per le operazioni di connessione e di lettura/scrittura di un file ad accesso
sequenziale e formattato di tipo non advancing è le seguente:
OPEN([UNIT=]u,FILE=fln[,FORM=’FORMATTED’],[ACCESS=’SEQUENTIAL’] &
[,RECL=rl][,IOSTAT=ios][,STATUS=st][,ACTION=act] &
[,DELIM=del][,PAD=pad][,POSITION=pos])
READ([UNIT=]u,[FMT=]fmt[,IOSTAT=ios],ADVANCE=’NO’)
WRITE([UNIT=]u,[FMT=]fmt[,IOSTAT=ios][,SIZE=size],ADVANCE=’NO’)
dove alla variabile size , quando è presente il relativo specificatore, è assegnato come valore
il numero dei caratteri letti in input mentre l’espressione fmt può essere l’etichetta di una
istruzione FORMAT o una espressione stringa specificante una formato contestuale, ma non può
essere un asterisco.
Come esempio di istruzione di I/O formattata non advancing si può considerare il seguente
frammento di programma:
INTEGER, DIMENSION(9) :: vett=(/1,2,3,0,0,9,8,8,6/)
...
DO i=1,3
WRITE(11,’(I1)’,ADVANCE=’NO’) vet(i)
END DO
WRITE(11,’(A1)’,ADVANCE=’NO’) "-"
DO i=4,6
WRITE(11,’(I1)’,ADVANCE=’NO’) vet(i)
END DO