Il Linguaggio Fortran 90/95

160 Array
In questo caso la lista degli argomenti contiene un solo elemento, a(i), e la lista stessa viene
ripetuta una volta per ogni valore assunto dalla variabile i che rappresenta un indice variabile
da 1 a 5.
Come tutti i normali cicli DO, anche i cicli impliciti possono essere annidati, la qual cosa
torna particolarmente utile quando si opera con array di rango maggiore di uno. Nel caso di due
cicli DO impliciti annidati, è necessario ricordare che il ciclo interno sarà eseguito completamente
ad ogni iterazione del ciclo esterno: quest’ordine viene osservato indipendentemente dal numero
di cicli nidificati. A titolo di esempio, si consideri il seguente frammento di programma:
INTEGER, DIMENSION(4,4) :: mat=(/(i=1,16)/)
mat=RESHAPE((/(i, i=1,SIZE(mat,DIM=1))/),SHAPE(mat))
...
WRITE(*,100) ((mat(i,j), j=1,3 ), i=1,2)
100 FORMAT(1X,I5,1X,I5)
in cui l’istruzione WRITE contiene due cicli impliciti nidificati. La variabile indice del ciclo
interno è j, mentre quella del ciclo esterno è i. Quando l’istruzione WRITE viene eseguita, la
variabile j assume i valori 1, 2 e 3 mentre i vale 1. Quindi, la variabile i assume valore 2 e il
ciclo interno viene ripetuto, con j che assume nuovamente i valori 1, 2 e 3. Pertanto l’output
di questo blocco di istruzioni sarà:
1 5 9
2 6 10
Le funzioni intrinseche SIZE e SHAPE usate nel precedente esempio forniscono, rispettivamente,
l’estensione (nella dimensione specificata), e la forma dell’array argomento. Per i dettagli
relativi al loro utilizzo si rimanda alla sezione del capitolo 6 dedicata alle funzioni intrinseche
di array.
3.10.2 Input e output con interi array o con sezioni di array
Oltre agli elementi di un array, anche un intero array o una sua sezione possono essere utilizzati
con le istruzioni READ, WRITE e PRINT. Se il nome di un array viene specificato senza indici in
un’istruzione di I/O, il compilatore suppone che tutti gli elementi dell’array debbano essere letti
o visualizzati. Analogamente, se ad essere specificata in una istruzione di I/O è una sezione di
array, allora il compilatore suppone che l’intera sezione debba essere letta o visualizzata.
Il seguente frammento di programma mostra un semplice esempio di utilizzo delle istruzioni
di scrittura per array in forma globale per sezioni:
REAL, DIMENSION(5) :: a=(/1.,2.,3.,20.,10./)
INTEGER, DIMENSION(4) :: vett=(/4,3,4,5/)
WRITE(*,100) a ! array globale
WRITE(*,100) a(2::2) ! sezione di array con tripletta di indici
WRITE(*,100) a(vett) ! sezione di array con indice vettoriale
100 FORMAT(1X,5F8.3)