Il Linguaggio Fortran 90/95

222 Unità di Programma
FUNCTION line(m,x,cost)
REAL :: line
REAL :: m, x, cost
line = m*x+cost
END FUNCTION line
Il nome della function,line, è trattato esattamente come una variabile: esso deve, perciò,
essere dichiarato con lo stesso tipo della variabile y che serve ad immagazzinare il valore
della funzione nell’unità chiamante.
Va sottolineato che ad ogni parametro formale di uscita deve corrispondere come parametro
attuale una variabile oppure un elemento di variabile dimensionata. In altri termini, una
costante o una espressione non devono essere usate come parametro attuale in corrispondenza
di un parametro formale il cui valore venga definito oppure modificato nel corpo del sottoprogramma.
Infatti, se l’argomento attuale è una costante, qualunque modifica del corrispondente
argomento fittizio provoca un cambiamento del valore della costante che, invece, per definizione
deve rimanere inalterato durante tutta l’esecuzione del programma. Il divieto di utilizzare
un’espressione in corrispondenza di un argomento fittizio di uscita deriva, invece, dal fatto che
l’associazione tra l’espressione ed il corrispondente parametro formale avviene mediante l’indirizzo
della locazione nella quale, al momento della chiamata della procedura, è memorizzato
il valore dell’espressione. Questo indirizzo viene trasmesso al sottoprogramma ma non è noto
all’unità di programma attivante che, pertanto, non lo può utilizzare. Si osservi, infine, che se
due parametri attuali coincidono, nessuno dei corrispondenti parametri formali può essere un
argomento di uscita.
5.2.4 Alcune note sull’utilizzo delle procedure
A volte è possibile migliorare l’efficienza di un programma semplicemente evitando di invocare
una procedura quando non strettamente necessario. Calcolare, infatti, il valore di una funzione
o degli argomenti di uscita di una subroutine è, di norma, un’operazione molto più lenta
rispetto alla valutazione di una comune espressione all’interno, ad esempio, del programma
principale. Ad esempio, se lo stesso valore di una funzione è richiesto più volte durante l’esecuzione
del programma, piuttosto che invocare ogni volta questa funzione può essere comodo
precomputarne i valori ”utili” e sostituire, nel corso del programma, le chiamate di procedura
con la lettura dei valori precalcolati immagazzinati in una opportuna struttura (table lookup).
Ciò, naturalmente, non deve essere visto soltanto in termini di tempo necessario affinché una
funzione venga calcolata ma anche riguardo al numero di volte che la stessa funzione viene
invocata con il medesimo input. C’è però da considerare il fatto che, nei computer di moderna
concezione, l’esecuzione di istruzioni semplici (quale è, ad esempio, una comune assegnazione)
è, di norma, notevolmente più rapida dell’acquisizione di un dato in memoria (talvolta questa
differenza si può quantificare in diversi ordini di grandezza). Per cui, se è richiesto un ”costoso”
accesso alla memoria ogni qualvolta si necessita di un valore di questo tipo (ad esempio se
l’accesso deve avvenire a dati contenuti su file esterni come quelli dell’hard disk) una soluzione