Il Linguaggio Fortran 90/95

6.3 Array fittizi di forma presunta 315
dell’esempio precedente sono array automatici. A questa classe di array sarà dedicato uno dei
prossimi paragrafi.
Un aspetto importante da osservare è che, quando degli array di forma esplicita vengono
”passati” in istruzioni di chiamata di procedura, non è necessario che i limiti degli array
corrispondenti nelle liste dei parametri attuali e formali coincidano perfettamente, essendo necessario
unicamente una coincidenza delle estensioni lungo ciascuna dimensione. Ad esempio,
considerata la seguente subroutine:
SUBROUTINE explicit(a,b,m,n)
IMPLICIT NONE
INTEGER, INTENT(IN) :: m, n
REAL, DIMENSION(m,n*n+1), INTENT(INOUT) :: a
REAL, DIMENSION(-n:n,m,INT(m/n)), INTENT(OUT) :: b
...
END SUBROUTINE explicit
il seguente frammento di procedura chiamante è perfettamente valido:
REAL, DIMENSION(15,50) :: p
REAL, DIMENSION(15,15,2) :: q
...
CALL explicit(p,q,15,7)
sebbene soltanto il primo array, p, coincida in estensione e limiti (1:15 e 1:50) con il parametro
formale a, mentre per quanto riguarda il secondo array, q, oltre alle estensioni coincidono
soltanto i limiti delle ultime due dimensioni.
Una delle maggiori difficoltà associate all’uso di array di forma esplicita in chiamate di
procedura è rappresentato dalla necessità di fornire informazioni necessarie alla valutazione dei
limiti degli array; tipicamente ciò viene fatto, come visto, incrementando la lista dei parametri
formali. Una soluzione più efficace ed elegante è quella di utilizzare array di forma presunta,
come sarà spiegato nel prossimo paragrafo.
6.3 Array fittizi di forma presunta
Un array fittizio di forma presunta (assumed shape array) è un particolare array la cui forma
non è nota in fase di compilazione, bensì gli viene attribuita a mezzo di una istruzione di
chiamata di procedura.
Quando un array di forma presunta viene dichiarato, ciascuna dimensione viene specificata
come:
[limite_inferiore]:
in cui il limite_inferiore vale uno per default.
Gli assumed shape array rendono possibile il trasferimento di array tra diverse unità di programma
senza la necessità di doverne passare, nella lista degli argomenti, anche le dimensioni.