Il Linguaggio Fortran 90/95

192 Operazioni di I/O interattive
LOGICAL :: cond1,cond2 ... READ(*,"(2L10)") cond1, cond2
mostra un esempio di utilizzo del descrittore L in istruzioni di ingresso. In tal caso sono attesi
due valori logici in altrettanti campi di ampiezza 10 così, ad esempio, ciascuno dei seguenti
record di ingresso è formalmente valido ed ha lo scopo di assegnare a cond1 il valore .TRUE. e
a cond2 il valore .FALSE.
T February
.TRUE. .FALSE.
Truman falso
.T. .F.
4.4.9 Il descrittore A
Il descrittore di formato A controlla la rappresentazione esterna dei dati di tipo carattere. Il
suo formato è:
A [.w]
Il descrittore A rappresenta i caratteri in un campo la cui lunghezza è pari al numero di caratteri
da rappresentare. Il descrittore A.w rappresenta i caratteri in un campo di lunghezza fissa
pari a w. Se la larghezza w del campo è maggiore della lunghezza della variabile stringa da
rappresentare, la variabile viene rappresentata con i caratteri allineati a destra all’interno del
campo. Se, invece, la larghezza w del campo è minore della lunghezza della variabile, vengono
rappresentati all’interno del campo soltanto i primi w caratteri della variabile. Quanto detto si
applica sia in fase di ingresso che in fase di uscita.
Il descrittore A in cui non compare l’ampiezza del campo può risultare molto utile per
l’output di dati di tipo carattere il cui valore viene riprodotto per intero sul record di uscita.
Nelle istruzioni di ingresso, invece, il descrittore A legge esattamente tanti caratteri quanti ne
può contenere la variabile letta.
L’esempio che segue aiuterà a comprendere meglio l’utilizzo dello specificatore A nelle frasi
di uscita:
CHARACTER(LEN=17) :: stringa="Ecco una stringa" WRITE(*,10) stringa
WRITE(*,11) stringa WRITE(*,12) stringa 10 FORMAT(1X,A) 11
FORMAT(1X,A20) 12 FORMAT(1X,A6)
Il corrispondente output è:
Ecco una stringa
Ecco una stringa
Ecco u