Il Linguaggio Fortran 90/95

200 Operazioni di I/O interattive
al dispositivo di uscita [risp: di ingresso] e ”riutilizzerà” la lista degli specificatori di formato a
partire dalla parentesi aperta più a destra nell’istruzione FORMAT incluso, eventualmente, il suo
fattore di ripetizione. Per esempio, data la seguente istruzione di uscita:
INTEGER :: i=1, j=2, k=4, l=8 REAL :: x=1.1,
y=2.2, z=3.3, s=4.4 LOGICAL :: cond1,cond2
CHARACTER(LEN=20) :: FMT = "(1X,2(I3,F5.2),L1)" ... WRITE(*,FMT)
i,x,j,y,cond1,k,z,l,s,cond2
il suo output sarebbe:
1 1.10 2 2.20 T
4 3.30 8 4.40 F
in quanto, una volta terminata la lista dei descrittori, dal momento che la lista di uscita è
stata processata soltanto in parte, il programma deve riutilizzare la lista di FORMAT a partire
dal punto di riscansione che, come sempre, coincide con la parentesi aperta che si trova più a
destra nella lista di formato. Pertanto, una volta che il buffer contenete i valori dell variabili
della lista parziale:
i,x,j,y,cond1
viene inviato al dispositivo di uscita per essere rappresentato secondo il formato specificato
dalla lista:
(1X,I3,F5.2,I3,F5.2,L1)
il gruppo di descrittori 2(I3,F5.2),L1 dovrà essere riutilizzato per il processamento della
restante parte della lista di output:
k,z,l,s,cond2
Pertanto la lista di descrittori di formato:
(1X,2(I3,F5.2),L1)
è, nel caso in esame, del tutto equivalente a:
(1X,I3,F5.2,I3,F5.2,A /
I3,F5.2,I3,F5.2,A)
mentre, in generale, equivale a:
(1X,I3,F5.2,I3,F5.2,A /
I3,F5.2,I3,F5.2,A /
I3,F5.2,I3,F5.2,A /
...)