Il Linguaggio Fortran 90/95

4.9 Istruzioni di I/O con meccanismo namelist 211
le variabili char1 e char2 sarebbero state riprodotte come:
CHAR1 = "A" CHAR2 = "0123456789"
Le operazioni di ingresso con NAMELIST avvengono in maniera molto simile a quanto visto
per il meccanismo di uscita. La differenza sostanziale rispetto al caso precedente, tuttavia,
è rappresentata dal fatto che l’utente non ha l’obbligo di inserire i valori di tutte le variabili
della lista, in tal caso i valori delle variabili non introdotte resterà inalterato. Dunque, nelle
operazioni di lettura vengono definiti soltanto gli oggetti specificati nel file di input mentre
tutti gli eventuali altri elementi della lista restano nel loro preesistente stato di definizione (o,
eventualmente, restano indefiniti). Allo stesso modo, è possibile definire il valore di un elemento
di array o di un suo sottoinsieme senza alterare il valore delle altre porzioni dell’array. E’ anche
possibile inserire due o più volte il valore di una stessa variabile, con il risultato che il valore
effettivamente attribuito alla variabile sarà l’ultimo introdotto. Nel caso di input di valori
complessi o di tipo definito dall’utente è importante che il numero delle componenti introdotte
non superi quello previsto per il tipo in esame (sebbene esso possa essere minore con il solito
risultato che il valore delle componenti non introdotte resta inalterato).
Per quanto concerne il formato dei dati da introdurre in input e le regole di scrittura valgono,
fatta salva qualche eccezione, le stesse considerazioni svolte a proposito dell’uso di NAMELIST
nelle operazioni di uscita. Si ha, pertanto, quanto segue:
• Il primo carattere da introdurre deve essere un ampersand (&) immediatamente seguito dal
nome della lista (senza blank interposti). Detto nome può essere scritto indifferentemente
in caratteri maiuscoli o minuscoli.
• Per ogni variabile della lista deve essere riprodotta la coppianome -valore . Non ha, tuttavia,
importanza l’ordine con cui si inseriscono le coppie nome -valore né ha importanza
il modo con cui le coppie vengono separate, potendo scegliere indifferentemente come
separatori virgole o spazi bianchi, così come è possibile anche disporle su righe differenti.
• L’ultimo carattere da introdurre deve essere il carattere slash (/).
Si noti che, contrariamente a quanto avviene con le istruzioni di uscita, in fase di lettura gli
oggetti stringa di caratteri devono essere delimitati da apici (indifferentemente singoli o doppi).
Un esempio di input con NAMELIST può essere il seguente:
INTEGER :: a, b CHARACTER(LEN=10) str NAMELIST /mynml/ a, b, str
...
READ(*,NML=mynml)
e tutte le seguenti possibilità rappresentano valide alternative per l’inserimento dei dati:
&mynml a=1, b=3, str="tutto ok"\
&MYNML a=1 b=3 str="tutto ok" \
&mynml str="tutto ok" b=3 a=1\