Il Linguaggio Fortran 90/95

210 Operazioni di I/O interattive
&ESEMPIO INT1=11,INT2=12,INT3=14,LOG=T,REAL1=24.0000,REAL2=
28.0000000000000,Z1=(38.0000,0.000000),Z2=(76.0000,0.000000),CHAR1=A,
CHAR2=0123456789,ARRAY=41,42,43 /
come anche possibile è la seguente forma di uscita:
&ESEMPIO INT1 = 11 INT2 = 12 INT3 = 14
LOG = T REAL1 = 24.000000 REAL2 = 28.000000000000000
Z1 = (38.000000,0.000000E+00) Z2 =
(76.000000,0.000000E+00) CHAR1 = A CHAR2 = 0123456789 ARRAY =
41 42 43 /
la scelta dipende dalla specifica implementazione.
Dall’esempio precedente si può osservare come, in fase di output, normalmente le stringhe
vengano riprodotte senza delimitatori. Si può, tuttavia, forzare, l’uso di delimitatori utilizzando
lo specificatore DELIM nell’istruzione di connessione del file di lavoro. Ciò verrà spiegato in
dettaglio nel capitolo 8 quando si parlerà proprio della gestione dei file, per ora si anticipa
soltanto che è possibile connettere anche un file preconnesso allo scopo di modificarne alcune
impostazioni. Ad esempio, supponendo che al terminale video, inteso come dispositivo standard
di uscita, sia assegnato dal compilatore l’unità logica 6, l’istruzione:
OPEN(UNIT=6,specificatore=valore)
consente di impostare a valore il valore di specificatore . Per quanto concerne, in particolare,
lo specificatore DELIM, esso indica quali caratteri devono (eventualmente) delimitare
una costante di tipo CHARACTER nelle operazioni di uscita dirette da lista o con meccanismo
namelist. I suoi possibili valori sono:
• ’NONE’: è il valore di default ed indica che nessun delimitatore ”contornerà” le stringhe
in uscita;
• ’APOSTROPHE’: indica che tutte le costanti stringa prodotte in output saranno delimitate
da apici (”apostrofi”) per cui gli eventuali apostrofi presenti nella stringa verranno
raddoppiati;
• ’QUOTE’: indica che tutte le costanti stringa prodotte in output saranno delimitate da
doppi apici (quotation marks) per cui gli eventuali doppi apici presenti nella stringa
verranno raddoppiati.
Si osservi che lo specificatore DELIM ha effetto unicamente nelle operazioni di output mentre
viene semplicemente ignorato in fase di input. Ponendo, pertanto, il valore di DELIM pari ad
’APOSTROPHE’ o a ’QUOTE’, in uscita verranno prodotte stringhe delimitate, rispettivamente,
da apici singoli o doppi. Così, ad esempio, se l’istruzione di lettura dell’esempio precedente
fosse stata:
OPEN(UNIT=6,DELIM=’QUOTE’) WRITE(*,NML=esempio)