Il Linguaggio Fortran 90/95

4.4 Descrittori ripetibili 193
Come ulteriore esempio si può considerare il seguente blocco di istruzioni:
CHARACTER(LEN=7), PARAMETER :: form="(A5,A2)" CHARACTER(LEN=4) ::
parola CHARACTER(LEN=1) :: lettera !... parola = "casa" lettera =
"y" WRITE(*,form) parola, lettera
cui consegue la stampa del record:
bcasaby
dove, come di consueto, il simbolo b rappresenta un blank.
Analogamente a quanto avviene con le istruzioni di uscita, anche nelle operazioni di ingresso
se la larghezzawdel campo è maggiore della lunghezza della variabile di caratteri, nella variabile
vengono registrati soltanto i caratteri più a destra del campo di input. Se, invece, la larghezza
del campo è minore della lunghezza della variabile di caratteri, i caratteri del campo vengono
registrati a partire da sinistra nella variabile e lo spazio restante sarà riempito di spazi bianchi.
Ad esempio, date le seguenti istruzioni:
CHARACTER(LEN=6) :: str1 CHARACTER(LEN=8) :: str2
CHARACTER(LEN=10) :: str3 CHARACTER(LEN=12) :: str4 ...
READ(*,’(A)’) str1 READ(*,’(A10)’) str2 READ(*,’(A10)’) str3
READ(*,’(A10)’) str4
nel caso in cui i rispettivi record di ingresso fossero:
abcdefghij abcdefghij abcdefghij abcdefghij
l’effetto delle frasi di ingresso sarebbe equivalente a quello delle seguenti istruzioni di assegnazione:
str1="abcdef" str2="cdefghij" str3="abcdefghij" str4="abcdefghij "
4.4.10 Il descrittore G
Il descrittore di formato G è un particolare descrittore (generalizzato) atto ad individuare un
campo destinato alla rappresentazione di un dato di tipo qualsiasi. Per dati di tipo INTEGER,
LOGICAL o CHARACTER, non c’è nessuna differenza fra il descrittore Gw.d e, rispettivamente, i
descrittori Iw, Lw e Aw. Per quanto concerne, invece, la rappresentazione di dati di tipo REAL
(o COMPLEX) le cose appaiono un pò più complicate. Nelle operazioni di ingresso il descrittore
G è del tutto equivalente ai descrittori F ed E; in uscita, invece, esso si comporta in maniera
differente a seconda dell’ordine di grandezza del valore numerico x da rappresentare nel campo
di ampiezza w. In particolare:
• Se risulta 10 d < |x| < 0.1, i descrittori Gw.d e Gw.dEe sono equivalenti a Ew.d ed Ew.dEe,
rispettivamente.