Il Linguaggio Fortran 90/95

6.4 Array automatici 317
REAL, DIMENSION(n), INTENT(INOUT) :: x ! explicit-shape
REAL, DIMENSION(:), INTENT(INOUT) :: y ! assumed-shape
! Variabili Locali
REAL, DIMENSION(SIZE(y,1)) :: a ! automatico
REAL, DIMENSION(n,n) :: b ! automatico
REAL, DIMENSION(10) :: c ! explicit-shape
...
END SUBROUTINE mia_sub
In questa procedura, gli array a e b non sono parametri formali, tuttavia i limiti dei loro indici
non sono costanti (in particolare, il limite superiore di a dipende dalla forma del parametro
formale y, mentre entrambi i limiti di b sono pari al parametro formale n). Dunque, le variabili
(locali) a e b sono array automatici, mentre l’array c, avendo dimensioni costanti, non lo è.
Può giovare riportare un secondo esempio:
PROGRAM stringhe
CHARACTER(LEN=20), PARAMETER :: a="Questo e’ un esempio"
PRINT*, double(a)
CONTAINS
FUNCTION double(a)
CHARACTER(LEN=*), INTENT(IN) :: a
CHARACTER(LEN=2*LEN(a)) :: double
double=a//a
END FUNCTION double(a)
END PROGRAM stringhe
Gli array automatici sono utili quando in una procedura è richiesto, in forma temporanea,
spazio in memoria per un array la cui forma non è nota a priori. Per tale ragione gli array
automatici sono spesso chiamati array di lavoro. In tali situazioni l’uso degli array automatici
può notevolmente semplificare la sequenza di chiamata di una procedura eliminando la necessità
di passare, come argomenti, array di forma talvolta ”complicata”. Inoltre, gli array automatici
possono essere passati come argomenti ad altre procedure che vengano invocate dalla procedura
all’interno della quale detti array sono dichiarati.
E’ doveroso sottolineare che non è possibile inizializzare gli array automatici nelle istruzioni
di dichiarazione di tipo, ma è possibile farlo nelle istruzioni di assegnazione all’inizio della
procedura in cui gli array vengono creati. Inoltre, dal momento che un array automatico è,
per definizione, un oggetto temporaneo, non è possibile specificare per esso l’attributo SAVE.
Tuttavia, gli array automatici possono essere passati come argomenti ad altre procedure che
vengano invocate dalla procedura all’interno della quale detti array sono dichiarati.
Un ulteriore problema associato agli array automatici è che non esiste alcun modo per sapere
se un tale array sia stato creato con successo o meno. Infatti, se non c’è sufficiente memoria
per allocare un array automatico, il programma abortirà in maniera piuttosto subdola. In caso
di dubbio circa la capacità del processore di creare un array di dimensioni considerevoli, è bene
optare per la dichiarazione dei più complessi array allocabili i quali, al contrario, prevedono un
meccanismo di check riguardo la riuscita dell’operazione di allocazione.