Il Linguaggio Fortran 90/95

198 Operazioni di I/O interattive
viene eseguita al modo seguente. Il descrittore T5 causa un salto al quinto carattere del record
corrente; il descrittore I4 viene poi associato alla variabile i il cui valore viene letto nel campo
che va dal quinto all’ottavo carattere del record. Il descrittore TL4 indica che il campo relativo
al dato successivo inizia a partire dalla quinta posizione del record corrente in quanto si ha
p =8 e n =4. Il descrittore A7 viene poi associato alla variabile string il cui valore viene letto
nel campo che va dal quinto all’undicesimo carattere del record. In questo modo i caratteri
presenti sul record nelle posizioni dalla quinta all’ottava colonna vengono letti due volte e
vengono interpretati nei due casi in modi completamente diversi. Se, ad esempio, il record letto
è composto dalle successioni di caratteri:
12342001/02ABCD
i valori assegnati alle variabili i e string sono, rispettivamente, il numero intero 2001 e la
stringa di caratteri 2001/02.
4.6 Alcune considerazioni sulle istruzioni di I/O formattate
4.6.1 Corrispondenza fra la lista di I/O e la lista di FORMAT
Come è noto, mentre il programma esamina da sinistra a destra la lista delle variabili di I/O,
contemporaneamente scansiona nello stesso verso la corrispondente istruzione FORMAT (sia essa
esplicita o contestuale). Così, il primo descrittore di formato ripetibile incontrato all’interno
dell’istruzione FORMAT viene associato al primo valore della lista di I/O, il secondo descrittore al
secondo valore e così via. Naturalmente, il tipo di un descrittore di formato deve corrispondere
al tipo di dato di ingresso o di uscita. Nel seguente esempio, il descrittore I3 è associato alla
variabile intera Age, il descrittoreF10.2 alla variabile reale Salary, il descrittoreAalla variabile
stringa State e, infine, il descrittore L2 alla variabile logica InState:
CHARACTER(LEN=8) :: State = "Michigan" INTEGER :: Age
= 30 REAL :: Salary = 32165.99 LOGICAL ::
InState = .TRUE. ... WRITE(*,"(I4,F10.2,A,L2)")
Age,Salary,State,InState
Nel caso in cui le variabili nella lista di I/O non dovessero corrispondere nel tipo (o nell’ordine)
ai corrispondenti descrittori di formato si verificherà un errore di run-time. Un caso del genere
è rappresentato dal prossimo esempio ottenuto apportando una lieve (ma significativa) modifica
al precedente frammento di programma:
CHARACTER(LEN=8) :: State = "Michigan" INTEGER :: Age
= 30 REAL :: Salary = 32165.99 LOGICAL ::
InState = .TRUE. ... WRITE(*,"(I4,F10.2,A,L2)") Age, State, Salary,
InState
In questo caso, infatti, l’istruzione WRITE tenterà di stampare una variabile stringa con un
descrittore valido per dati di tipo reale, ed un valore reale con il descrittore A valido esclusivamente
per gli oggetti di tipo carattere. Si badi che errori di questo tipo sono abbastanza