Il Linguaggio Fortran 90/95

204 Operazioni di I/O interattive
• I valori interi vanno denotati a mezzo di una stringa di cifre, gli eventuali spazi bianchi
iniziali o finali vengono ignorati.
• I valori di tipo reale possono essere introdotti indifferentemente nella notazione fissa o
scientifica.
• I valori di tipo complesso devono essere introdotti nella forma:
(parte_reale,parte_immaginaria)
dove parte_reale e parte_immaginaria sono entrambi valori reali.
• I valori di tipo stringa possono essere rappresentati o meno racchiusi da una coppia di
apici o doppi apici.
• I valori logici devono essere rappresentati con una delle lettere T o F eventualmente
precedute da un punto e seguite da uno o più caratteri.
• I valori di un oggetto di un tipo di dati derivato devono essere introdotti inserendo il valore
di ciascun componente dell’oggetto, nello stesso ordine in cui esso figura nella definizione
del tipo.
E’, inoltre, ammessa una notazione sintetica per valori identici ripetuti, nella forma:
n*valore
in cui n è una costante intera positiva senza segno. Ad esempio, data la seguente istruzione di
lettura:
INTEGER :: n REAL :: x, y, z LOGICAL :: vero ... READ(*,*) n, x, y,
z, vero
il seguente record di input:
10 3*3.14 .T
produce le seguenti assegnazioni di valore:
n=10; x=3.14; y=3.14; z=3.14; vero=.TRUE.
Le istruzioni di lettura guidate da lista hanno, oltre al vantaggio della semplicità connessa al fatto
di non richiedere alcuna istruzione FORMAT e alla libertà offerta all’utente di poter introdurre
i dati di ingresso a partire da una qualsiasi colonna, la caratteristica di supportare i cosiddetti
valori nulli. Se un record di input contiene due virgole consecutive allora la corrispondente
variabile nella lista di input non sarà soggetta ad assegnazione. Questa caratteristica consente
all’utente di lasciare inalterati i valori di una o più variabili. Si consideri il seguente esempio:
INTEGER :: i=1, j=2, k=3 WRITE(*,*) "Introduci i valori di i, j e k:
" READ(*,*) i,j,k WRITE(*,*) "i, j, k = ", i,j,k