Il Linguaggio Fortran 90/95

434 Operazioni di I/O su file
NAMELIST/lista1/m,n,impiegato
! ...
impiegato = persona(20,4,’John Smith’)
! ...
OPEN(UNIT=7,FILE=’dati.dat’)
READ(UNIT=7,NML=lista1)
! ...
END PROGRAM prova_namelist
In questo breve programma di prova vengono dichiarate due variabili intere, m ed n ed una
struttura, impiegato e tutte e tre vengono inserite nella lista con nome lista1. L’oggetto di
tipo derivato, impiegato, viene inizializzato, dopodiché all’unità logica 7 viene connesso il file
dati.dat nel quale vengono letti i valori di alcune (o tutte) le variabili della lista. Un valido
esempio per il file dati.dat potrebbe essere:
&LISTA1
m = 3
n = 12
smith%level = 6
/
nel qual caso, della struttura impiegato, soltanto il valore della componente level verrebbe
aggiornato mentre le componenti matr e name resterebbero inalterate.
Una utile innovazione apportata dal Fortran 95 riguarda la possibilità di documentare linea
per linea i record di input per NAMELIST con opportuni commenti. Questi commenti vanno
inseriti così come si farebbe nel codice sorgente, ossia come stringhe precedute da un punto
esclamativo. Pertanto, ritornando all’esempio precedente, un file di input meglio documentato
e più autoesplicativo potrebbe essere:
&LISTA1
m = 3 ! numero di figli
n = 12 ! anni di servizio
smith%level = 6
/
8.4 Gestione dei file ad accesso diretto
Esistono molte situazioni, come l’interrogazione di un database, in cui risulta più efficiente
effettuare operazioni di lettura/scrittura di record in maniera non sequenziale ma casuale. Ciò
può ottenersi connettendo il file di lavoro ad accesso diretto, ossia specificando la clausola
ACCESS=’DIRECT’ nella lista degli specificatori di OPEN.
I record in un file connesso ad accesso diretto si caratterizzano per il fatto che possono
essere letti e scritti in qualsiasi ordine. Tuttavia, un vincolo che deve essere rispettato consiste
nel fatto che i record del file devono avere tutti la stessa lunghezza specificata dalla clausola