Il Linguaggio Fortran 90/95

5.2 Procedure 221
Quando una procedura viene invocata, l’unità chiamante passa, per ciascun parametro
formale, l’indirizzo di memoria del corrispondente parametro attuale. Pertanto diventano direttamente
utilizzabili dal sottoprogramma gli indirizzi delle locazioni in cui sono memorizzati
i valori dei parametri attuali. In altre parole, gli argomenti fittizi di una procedura sono completamente
definiti soltanto al momento dell’attivazione della procedura, quando ognuno di
essi identifica la stessa locazione di memoria del corrispondente argomento effettivo. Questa
modalità di scambio delle informazioni dall’unità chiamante alla procedura chiamata è detto
passaggio di dati per riferimento in quanto all’atto della chiamata ciò che viene effettivamente
passato sono i puntatori ai valori attuali e non i valori in sé.
Quando un elemento della lista di argomenti è un array, ciò che viene passato dall’unità
chiamante alla procedura invocata è la locazione di memoria del primo elemento dell’array. Gli
indirizzi dei successivi elementi dell’array vengono determinati, a partire dal primo, in base al
numero di dimensioni ed ai limiti di tali dimensioni, secondo le modalità di immagazzinamento
delle variabili dimensionate tipica del Fortran.
Infine, nel caso in cui il parametro effettivo sia un’espressione, essa viene calcolata prima
della chiamata di procedura ed il suo valore viene assegnato ad una variabile interna del
programma chiamante. Tale variabile interna rappresenta il parametro effettivo al quale la
procedura accede. Quanto detto si applica anche quando il parametro effettivo sia una costante
senza nome.
E’ chiaro che, alterando il valore di un argomento fittizio, una procedura può cambiare il
valore di un argomento attuale.
• Una subroutine è usata per cambiare il valore di uno o più argomenti. Nel seguente
esempio, la subroutine swap scambia i valori di due array reali:
REAL, DIMENSION(10) :: x, y
...
CALL swap(x,y)
SUBROUTINE swap(a,b)
REAL, DIMENSION(10) :: a, b, temp
temp = a
a = b
b = temp
END SUBROUTINE swap
• Una function è usata per generare un singolo risultato in funzione dei suoi argomenti.
Nel seguente esempio la funzione line calcola il valore dell’ordinata, nota l’ascissa, di un
punto di una retta:
REAL :: y, x, c
...
x=1.0; c=2.5
y=line(3.4,x,c)