Il Linguaggio Fortran 90/95

5.8 Argomenti delle Procedure 249
FUNCTION series(x,lower,upper)
IMPLICIT NONE
INTEGER :: i,istart,upper
REAL :: series,x
INTEGER, OPTIONAL :: lower
END FUNCTION series
Per una procedura così definita, istruzioni del tipo:
series(0.5,lower=1,upper=10)
series(0.5,upper=10)
sono validi esempi di istruzioni chiamanti.
5.8.4 Array come parametri formali
Come è noto, un argomento viene passato a una subroutine passando un puntatore che identifica
la locazione di memoria dell’argomento. Se l’argomento è un array, il puntatore identifica il
primo elemento dell’array. Tuttavia la procedura chiamata, per poter svolgere operazioni con
l’array, necessita di conoscerne le dimensioni. Una tecnica potrebbe consistere nel passare i
limiti di ogni dimensione dell’array sottoforma di argomenti nell’istruzione di chiamata, e di
dichiarare il corrispondente array fittizio con le stesse dimensioni. L’array facente parte della
lista di argomenti formali sarà, pertanto, un array fittizio di forma esplicita (explicit-shape
array) in quanto ogni suo limite è specificato in forma esplicita. In tal caso la procedura conosce
i limiti dell’array e il compilatore è in grado di identificare gli eventuali riferimenti alle locazioni
di memoria che superano questi confini. Inoltre, è possibile in questo caso utilizzare sezioni
di array o l’intero array per svolgere operazioni globali. Ad esempio, la seguente subroutine
dichiara due array, vet1 e vet2, di forma esplicita, di estensione n, e ne elabora nval elementi:
SUBROUTINE elabora(vet1,vet2,n,nval)
IMPLICIT NONE
INTEGER, INTENT(IN) n, nval
REAL, DIMENSION(n), INTENT(IN) :: vet1
REAL, DIMENSION(n), INTENT(OUT) :: vet2
vet2 = 3.*vet1
vet2(1:nval) = 1.
END SUBROUTINE elabora
Si noti che l’uso degli array fittizi di forma esplicita non richiede un’interfaccia esplicita. Questa
tecnica è, tuttavia, poco pratica e trova applicazione solo occasionalmente.
Esiste un’altra tecnica, più flessibile ed elegante, per passare un array ad una procedura.
Quando una procedura ha un’interfaccia esplicita, tutti i dettagli sul tipo, l’ordine, lo scopo
ed il rango degli argomenti fittizi della procedura sono noti all’unità chiamante e, allo stesso
tempo, la procedura conosce anche tutti i dettagli sugli argomenti effettivi dell’unità chiamante.
Di conseguenza, la procedura può conoscere la forma e la dimensione degli array effettivi che le