Il Linguaggio Fortran 90/95

3.2 Dichiarazione di un array. Terminologia 125
CHARACTER(LEN=20), DIMENSION(50) :: cognome
Un modo alternativo per dichiarare un array è di ”accoppiarne” le dimensioni direttamente
al nome, esemplificativamente:
REAL :: array1(10), array2(50), array3(50,50)
oppure, di sostituire l’attributo DIMENSION con la corrispondente istruzione:
REAL :: array1, array2, array3
DIMENSION array1(10), array2(50), array3(50,50)
Si tratta, comunque, di due forme di dichiarazione abbastanza ”arcaiche” per cui se ne sconsiglia
vivamente l’adozione, favorendo in tal modo l’impiego di istruzioni di dichiarazione separate
per array di dimensioni differenti.
Gli interi usati come limiti delle estensioni lungo le dimensioni di un array possono essere
definiti come costanti con nome, mediante l’attributo PARAMETER, come nel seguente esempio:
INTEGER, PARAMETER :: max_size=100
LOGICAL, DIMENSION(1:max_size) :: answer
...
INTEGER, PARAMETER :: lower_bound=-10
INTEGER, PARAMETER :: upper_bound=10
REAL, DIMENSION(lower_bound:upper_bound) :: score, mark
In questo caso, il range dell’array logico answer è compreso tra 1 e 100, mentre il range degli
array reali score e mark spazia da -10 a +10.
Per default, gli indici di un array partono sempre da1, tuttavia, come si sarà già intuito dagli
esempi precedenti, si può specificare un intervallo differente una volta forniti i limiti (bound)
inferiore e superiore. Ad esempio, le seguenti istruzioni:
REAL, DIMENSION(50) :: w
REAL, DIMENSION(5:54) :: x
LOGICAL, DIMENSION(50) :: y
INTEGER, DIMENSION(11:60) :: z
dichiarano quattro array monodimensionali (w, x, y e z) ciascuno contenente 50 elementi.
In generale, il numero di elementi di un array in una data dimensione può essere determinato
mediante la seguente espressione:
estensione = limite_superiore − limite_inferiore + 1
Il Fortran 90/95 consente ad un array di avere fino a sette indici, ognuno dei quali relativo
ad una dimensione dell’array. Le dimensioni di un array devono essere specificate a mezzo
dell’attributo DIMENSION. Gli array aventi più di una dimensione sono particolarmente utili per
rappresentare dati organizzati in forma tabellare.