Il Linguaggio Fortran 90/95

4.5 Descrittori non ripetibili 197
4.5.5 I descrittori Tn, TRn e TLn
I descrittori Tn , TRn , TLn sono chiamati descrittori di tabulazione in quanto permettono di
specificare, mediante il valore della costante n (un intero positivo senza segno) che in essi compare,
la posizione sul record corrente del successivo dato da trasmettere in I/O. In particolare,
il descrittore Tn indica che l’operazione di lettura/scrittura deve continuare a partire dalla
n _ma colonna del record corrente. Questo descrittore viene, pertanto, utilizzato per raggiungere
direttamente una determinata posizione all’interno del buffer. Si noti che il descrittore Tn
permette di raggiungere una posizione qualsiasi nella riga di output, anche oltre la posizione
specificata dall’istruzione FORMAT. E’, tuttavia, necessario fare attenzione a non sovrapporre accidentalmente
i campi dei dati da rappresentare. In fase di lettura il descrittore di formato Tn
permette, così come anche nX, di ignorare, all’interno di un campo di input, quei dati che non
si vogliono leggere; esso, inoltre, può permettere di leggere gli stessi dati due volte in formati
diversi. Ad esempio il seguente frammento di programma legge due volte i dati dalla prima alla
sesta colonna del buffer di input, una volta come intero e una volta come stringa di caratteri:
INTEGER :: numero CHARACTER(LEN=6) :: parola READ(*,100) numero,
parola 100 FORMAT(I6,T1,A6)
In fase di scrittura, lo specificatore Tn consente di regolare la spaziatura e la posizione dei
risultati prodotti nel record di uscita. Così, ad esempio, il seguente frammento di programma:
INTEGER :: a = 9, b = 99, c = 999 CHARACTER(LEN=5) :: str = "ciao!"
... WRITE(*,"(T8,I1,T5,I2,T1,I3,T25,A5)") a, b, c, str
produce la stampa del record:
999 99 9 ciao! ......................... 1 5 8
25
(per motivi di chiarezza nel record precedente si sono riportati graficamente anche i punti iniziali
di ciascun valore prodotto).
Il descrittore TRn [risp: TLn ], invece, fa sì che l’operazione di lettura/scrittura continui n
colonne dopo [risp: prima di] quella attuale. In altre parole, detta p la posizione sul record
corrente del carattere finale dell’ultimo campo utilizzato, il descrittore TRn indica che il campo
destinato al prossimo dato inizia dalla posizione p +1+n mentre il descrittore TRn indica che il
campo destinato al prossimo dato inizia dalla posizione p +1−n . Dunque TRn eTLn specificano
di quante posizioni deve essere spostato, a destra e a sinistra rispettivamente, l’inizio del campo
successivo rispetto alla posizione (p +1)_ma. Il descrittore TRn è, pertanto, equivalente ad nX
mentre TLn è equivalente a T1 se risulta p +1−n ≤ 1. Si deve precisare che se il codice TL
indica uno spostamento a sinistra oltre il primo carattere del record, si produce comunque lo
spostamento del puntatore sul primo carattere de record.
A titolo di esempio, si supponga che i sia una variabile intera e che char sia una variabile
stringa di caratteri di lunghezza sette; l’istruzione di lettura:
READ(*,250) i,string 250 FORMAT(T5,I4,TL4,A7)