Il Linguaggio Fortran 90/95

314 Array Processing
6.2 Array di forma esplicita
Un array di forma esplicita (explicit-shape array) è un array che si caratterizza per avere estensioni
esplicitamente specificate per ciascuna delle sue dimensioni già all’atto della istruzione di
dichiarazione di tipo. In aggiunta, esso può, opzionalmente, avere limiti inferiori dichiarati per
alcune o tutte le sue dimensioni.
Quando un array di forma esplicita viene dichiarato, ciascuna dimensione viene specificata
come:
[limite_inferiore]:limite_superiore
in cui il limite_inferiore vale uno per default.
Ad esempio, le seguenti istruzioni:
INTEGER, DIMENSION(10,10,10) :: m
INTEGER, DIMENSION(-3:6,4:13,0:9) :: k
dichiarano due array,mek, entrambi di forma esplicita con un rango pari a3, un’ampiezza1000,
e forma (/10,10,10/). L’array m usa il limite inferiore di default (1) per ciascuna dimensione,
per cui nella sua dichiarazione compaiono soltanto i limiti superiori. Per ciascuna dimensione
di m, invece, sono specificati entrambi i limiti.
Un array di forma esplicita può essere dichiarato sia in un programma principale che in una
procedura.
I limiti inferiore e superiore di una dimensione di un’array di forma esplicita che sia dichiarato
all’interno di una procedura possono essere specificati anche a mezzo di variabili o espressioni
le quali verranno valutate ogni qualvolta il controllo del programma entri nella procedura. Successive
assegnazioni di queste variabili non avranno, tuttavia, alcun effetto sui limiti degli array.
Ad esempio, data la seguente subroutine:
SUBROUTINE esempio(n,r1,r2)
IMPLICIT NONE
DIMENSION(n,5) :: a
DIMENSION(10*n) :: b
...
n = r1+r2
...
END SUBROUTINE esempio
quando essa viene invocata, gli array a e b verranno dimensionati in relazione al valore attuale
del parametro formale n. La successiva istruzione di assegnazione che modifica il valore di n
non avrà alcun effetto sulle dimensioni degli array a e b.
Un explicit-shape array che venga dimensionato con variabili o espressioni deve necessariamente
essere un argomento formale di una procedura oppure il risultato di una funzione oppure
deve essere un array automatico. Un array automatico è un particolare array di forma esplicita
dichiarato in una procedura come variabile locale e con limiti non costanti. Gli array a e b