Il Linguaggio Fortran 90/95

3.10 Operazioni di I/O con array 159
3.10 Operazioni di I/O con array
Il Fortran 90/95 consente di effettuare operazioni di input/output sia sui singoli elementi di un
array sia, in forma globale, sull’intero array.
3.10.1 Input e output degli elementi di un array
Come è noto, un elemento di array è da riguardarsi come una comune variabile per cui è possibile
utilizzarlo nelle istruzioni READ, WRITE ePRINT nel modo consueto. Ad esempio, per visualizzare
il contenuto di determinati elementi di un array basta specificarli nella lista degli argomenti di
una istruzione WRITE, come dimostra il seguente blocco di istruzioni in cui l’istruzione WRITE è
utilizzata per riprodurre a video i primi cinque elementi dell’array reale a:
REAL, DIMENSION(10) :: a
...
WRITE(*,100) a(1),a(2),a(3),a(4),a(5)
100 FORMAT(1X,’a = ’,5F10.2)
Allo stesso modo, l’istruzione:
READ(*,*) a(3)
permette di inserire da tastiera il valore dell’elemento a(3).
Il ciclo DO implicito
Nelle istruzioni di I/O è possibile inserire un ciclo DO implicito. Questo costrutto permette di
visualizzare più volte una lista di argomenti in funzione di un indice. Ogni argomento della
lista viene visualizzato una volta per ogni valore dell’indice del ciclo implicito.
La forma generale di un’istruzione WRITE in presenza di un ciclo DO implicito è la seguente:
WRITE(...) (arg_1, arg_2, ..., indice = inizio, fine [, incremento])
dove gli argomentiarg_1 ,arg_2 , ...sono i valori da leggere in input o da visualizzare in output.
La variabile intera indice è l’indice del ciclo implicito, mentre inizio, fine e incremento
rappresentano, rispettivamente, il limite inferiore, superiore e l’incremento della variabile indice
(si noti che la variabile opzionale incremento è pari ad uno per default). Chiaramente, l’indice
e tutti i parametri di controllo del ciclo devono avere valori di tipo intero. (La sintassi è
perfettamente analoga nel caso di istruzione READ o PRINT).
Pertanto, facendo uso di un ciclo DO implicito, l’esempio precedente può essere riscritto in
forma più compatta al modo seguente:
REAL, DIMENSION(10) :: a
...
WRITE(*,100) (a(i), i=1,5 )
100 FORMAT(1X,’a = ’,5F10.2)