Il Linguaggio Fortran 90/95

6.5 Array allocabili 325
consecutive allora sarà necessario lavorare con array allocabili. Se, invece, sono necessari array
di modeste dimensioni e non è richiesto che i loro valori vengano conservati, è da preferirsi la
maggiore semplicità associata all’uso degli array automatici.
Si noti che esistono tre limitazioni connesse all’uso degli array allocabili:
• Gli array allocabili non possono essere argomenti formali di una procedura.
• Il risultato di una funzione non può essere un array allocabile.
• Gli array allocabili non possono essere usati nella definizione di un tipo di dati derivato.
A causa della prima di tali restrizioni, un array allocabile deve essere allocato e deallocato
nella stessa unità di programma nella quale è stato dichiarato. Questo limite può, tuttavia,
essere aggirato dichiarando l’array allocabile in un modulo: ciascuna unità di programma che
usi quel modulo avrà la possibilità di usare, allocare e deallocare l’array. Se, invece, fosse
necessario avere un array dinamico come componente di un tipo di dati derivato, allora si dovrà
necessariamente fare uso dei puntatori.
E’ da precisare, inoltre, che un array allocabile che non risulti correntemente allocato non
può essere utilizzato come parametro attuale in una chiamata di procedura, potendo al più
essere usato come argomento di alcune funzioni intrinseche, come ALLOCATED (che, come detto,
fornisce lo stato di allocazione di un array allocabile), DIGITS (che dà informazioni circa il tipo),
KIND e LEN (che forniscono informazioni circa i parametri di kind).
Il seguente esempio mostra, a scopo di riepilogo, un uso combinato di array allocabili, automatici
e di forma presunta:
PROGRAM array
IMPLICIT NONE
REAL, ALLOCATABLE, DIMENSION(:,:) :: a
REAL :: res
INTEGER :: n, impos
INTERFACE
SUBROUTINE sub(a,res)
REAL, DIMENSION(:,:), INTENT(IN) :: a
REAL, DIMENSION(SIZE(a,1),SIZE(a,2)) :: work
END SUBROUTINE sub
END INTERFACE
...
READ (*,*) n
ALLOCATE (a(n,n),STAT=impos) ! allocatable array
IF (impos=0) THEN
CALL sub(a,res)
...
END IF
...