Il Linguaggio Fortran 90/95

6.5 Array allocabili 319
Gli array allocabili sono spesso chiamati deferred-shape array poiché, quando essi vengono
dichiarati, la loro estensione lungo ciascuna dimensione non viene specificata, bensì rimandata
(deferred) ad una fase successiva.
Una cosa importante da osservare è che, contrariamente a quanto avviene con tutte le altre
forme di array, la dichiarazione di un array allocabile non alloca spazio alcuno per l’array
sicché non è possibile usare detto array fino a che esso non venga allocato. Difatti, un array
allocabile è detto avere uno stato di associazione per cui, fintanto che non venga allocato spazio
in memoria per i suoi elementi, il suo stato di allocazione è detto correntemente non allocato
o, più semplicemente, non allocato.
Un array non allocato può essere allocato a mezzo dell’istruzioneALLOCATE che ha la funzione
di riservare spazio in memoria per i suoi elementi. La sintassi dell’istruzione di allocazione è la
seguente:
ALLOCATE(lista_di_specificazioni_di_array [, STAT=variabile_di_stato])
in cui ogni specificazione_di_array consiste nel nome dell’array allocabile seguito dai limiti
degli indici, per ciascuna dimensione, racchiusi tra parentesi. La clausola opzionale:
STAT=variabile_di_stato
fa sì che il processore sia in grado di fornire indicazioni riguardo il successo o meno dell’operazione
di allocazione, allo stesso modo in cui la clausola IOSTAT=variabile_di_stato informa
circa la riuscita o meno di una operazione di I/O su file. Se l’allocazione dell’array ha avuto
successo variabile_di_stato assumerà valore nullo, in caso contrario essa assumerà un valore
positivo dipendente dal processore. Si noti che, pur essendo opzionale, l’uso della clausola
STAT= è sempre consigliabile poiché, in sua assenza, un eventuale fallimento nell’allocazione di
un array comporterebbe un inevitabile arresto del programma. A titolo di esempio, si guardi
la seguente istruzione:
ALLOCATE(arr1(20),arr2(10:30,-10:10),arr3(20,30:50,10),STAT=error)
Essa alloca tre vettori di cui uno (arr1) monodimensionale di 20 elementi, un altro (arr2)
bidimensionale di 21×21 elementi, l’ultimo (arr3) tridimensionale di 20×21×10 elementi. Si
noti che in una stessa istruzione ALLOCATE possono essere allocati array non solo di diversa
forma e dimensioni ma anche di tipo differente, come mostrato dal seguente frammento di
codice:
INTEGER, ALLOCATABLE :: matrix(:,:)
REAL, ALLOCATABLE :: vector(:)
...
ALLOCATE(matrix(3,5),vector(-2:N+2))
Il programma che segue mostra un esempio di impiego di array allocabili. Lo scopo del
programma è quello di verificare se un valore reale ed un vettore siano o meno un autovalore ed
il corrispondente autovettore di una matrice quadrata assegnata. Si ricorda che, detta A una