Il Linguaggio Fortran 90/95

8.3 Gestione dei file ad accesso sequenziale 433
WRITE(11,’(A1)’,ADVANCE=’NO’) "-"
DO i=7,9
WRITE(11,’(I1)’,ADVANCE=’NO’) vet(i)
END DO
WRITE(11,’(A1)’,ADVANCE=’NO’) "-"
il quale produce, sul file connesso all’unità logica 11, il record 123-00-9886.
8.3.2 I/O con meccanismo namelist
Le istruzioni di I/O con meccanismo namelist servono a trasferire, con la medesima istruzione,
un intero gruppo di variabili senza l’obbligo di curare il formato e la modalità di presentazione.
Affinché ciò sia possibile è necessario che le suddette variabili siano specificate in una opportuna
lista dichiarate con una istruzione NAMELIST.
Le operazioni di I/O con meccanismo namelist sono utili per inizializzare lo stesso gruppo
di variabili in sessioni successive di uno stesso run o anche per cambiare, in maniera selettiva,
il valore di alcune variabili a cui sia stato già assegnato un valore iniziale.
I dettagli relativi all’istruzione NAMELIST sono stati già discussi nel capitolo 4 dove è stato
illustrato anche il funzionamento delle istruzioni di lettura e scrittura con meccanismo namelist
relativi ai dispositivi di I/O standard. Tutto quanto detto nel capitolo 4 si applica anche in
relazione alla gestione dei file esterni. Può risultare utile, tuttavia, riportare la sintassi delle
operazioni di connessione e di lettura/scrittura di un file ad accesso sequenziale per operazioni
di I/O di tipo namelist:
OPEN([UNIT=]u,FILE=fln[,ACCESS=’SEQUENTIAL’][,IOSTAT=ios] &
[,STATUS=st][,ACTION=act][,DELIM=del][,PAD=pad] &
[,POSITION=pos])
READ([UNIT=]u,[NML=]list[,IOSTAT=ios])
WRITE([UNIT=]u,[NML=]list[,IOSTAT=ios])
Si noti l’assenza, nelle istruzioni READ e WRITE, della clausola relativa al formato (FORMAT=) e
quella relativa all’avanzamento (ADVANCE), entrambe incompatibili con lo specificatore NML.
Tanto per fissare le idee, si può considerare il seguente esempio:
PROGRAM prova_namelist
IMPLICIT NONE
INTEGER :: m, n
TYPE persona
INTEGER :: matr
INTEGER :: level
CHARACTER(20) :: name
END TYPE persona
TYPE(persona) :: impiegato