Il Linguaggio Fortran 90/95

4.9 Istruzioni di I/O con meccanismo namelist 209
• la lista di ingresso o di uscita è assente;
• l’identificatore di formato ([FMT=]formato ) è rimpiazzato dal nome della lista secondo
la sintassi:
[NML=]nome_della_lista
Così, ad esempio, l’istruzione:
WRITE(*,NML=gruppo)
invierà al dispositivo di uscita standard i valori di tutte le variabili facenti parte della lista con
nome gruppo, nell’ordine in cui, in fase dichiarativa, sono state inserite nella lista. L’output
prodotto ha la seguente forma:
• Il primo carattere prodotto è un ampersand (&), opzionalmente preceduto da un certo
numero di caratteri vuoti ed immediatamente seguito dal nome del gruppo NAMELIST.
Detto nome apparirà scritto sempre in maiuscolo.
• Per ogni variabile del gruppoNAMELIST verrà prodotta la coppianome -valore separati da
un segno di uguaglianza. Il segno = può essere opzionalmente preceduto o seguito da uno
o più spazi bianchi. Il formato di uscita dei dati è identico a quello che si avrebbe nel caso
di output guidato da lista. Se una delle variabili è un array, il segno di uguaglianza sarà
seguito dalla lista dei valori corrispondenti, ordinatamente, agli elementi dell’array. Se
due o più valori consecutivi sono identici, il processore può scegliere di rappresentarli nella
forma sintetica r*valore in cui valore è il valore da rappresentare mentrer rappresenta
il numero di ripetizioni. I valori della lista possono essere, opzionalmente, seguiti da una
virgola.
• L’ultimo carattere prodotto è uno slash (/).
Nel seguente esempio vengono dichiarate un certo numero di variabili e inserite all’interno
di una gruppo NAMELIST, successivamente vengono inizializzate e infine riprodotte a video (o
comunque inviate al dispositivo standard di uscita):
INTEGER :: int1, int2, int3 INTEGER, DIMENSION(3) :: array LOGICAL
:: log REAL(KIND=single) :: real1 REAL(KIND=double) :: real2 COMPLEX
:: z1, z2 CHARACTER(LEN=1) :: char1 CHARACTER(LEN=10) :: char2
NAMELIST /esempio/ int1,int2,int3,log1,real1,real2 &
& z1,z2,char1,char2,array
int1 = 11 int2 = 12 int3 = 14 log1 = .TRUE. real1 = 24.0 real2 =
28.0d0 z1 = (38.0,0.0) z2 = 2.0*z1 char1 = ’A’ char2 =
’0123456789’ array = (/41,42,43/) WRITE (*,esempio)
Un possibile output potrebbe essere il seguente: