Il Linguaggio Fortran 90/95

324 Array Processing
In tal caso, l’array rimarrà allocato all’uscita dalla procedura ed i suoi elementi conserveranno il
loro valore. Se, invece, all’uscita dalla procedura l’array si trovasse già in uno stato deallocato,
esso manterrebbe questo stato.
Si noti che la possibilità di salvare un array allocabile fra due chiamate di procedura è
uno dei maggiori vantaggi che presenta l’array allocabile rispetto a quello automatico il quale
cessa sempre di esistere all’uscita dalla procedura nel quale è dichiarato. Inoltre, il maggiore
controllo offerto dagli array allocabili rispetto a quelli automatici consente di gestire la memoria
in maniera molto più dinamica ed efficiente, come mostrato dalla seguente procedura:
SUBROUTINE space(n)
IMPLICIT NONE
INTEGER, INTENT(IN) :: n
REAL, ALLOCATABLE, DIMENSION(:,:) :: a, b
...
ALLOCATE(a(2*n,6*n)) ! allocato spazio per a
... ! istruzioni che coinvolgono a
DEALLOCATE(a) ! liberato lo spazio occupato da a
ALLOCATE(b(3*n,4*n)) ! allocato spazio per b
... ! istruzioni che coinvolgono b
DEALLOCATE(b) ! liberato lo spazio occupato da b
END SUBROUTINE space
La subroutine space usa 12n 2 elementi per a durante l’esecuzione della prima parte della procedura,
successivamente libera lo spazio associato a questi elementi, usa ancora 12n 2 elementi per
b durante la seconda parte, infine libera anche questa memoria. Pertanto, durante l’esecuzione
della procedura, il massimo spazio di memoria usato dagli array a e b è quello richiesto per
immagazzinare 12n 2 valori reali. Se, invece, la subroutine space venisse riscritta in modo da
usare array automatici al posto di quelli allocabili:
SUBROUTINE space(n)
IMPLICIT NONE
INTEGER, INTENT(IN) :: n
REAL, DIMENSION(2*n,6*n) :: a
REAL, DIMENSION(3*n,4*n) :: b
... ! istruzioni che coinvolgono a
... ! istruzioni che coinvolgono b
END SUBROUTINE space
per tutta la durata dell’esecuzione della procedura sarebbero allocati 12n 2 elementi per a e
12n 2 elementi per b, per un totale (costante) di 24n 2 elementi creati quando il controllo del
programma entra nella procedura e rilasciati soltanto all’uscita dalla procedura stessa. In casi
come quello in esame, l’importanza di lavorare con array allocabili è, chiaramente, tanto più
avvertita quanto maggiore è il valore di n. In ogni caso, la decisione di usare array allocabili
o array automatici dipende essenzialmente dalle particolari condizioni. Infatti, nel caso in cui
siano richiesti dei grossi array o se essi devono essere conservati fra due chiamate di procedura