Il Linguaggio Fortran 90/95

254 Unità di Programma
Un semplice esempio di applicazione delle procedure testé sviluppate potrebbe essere il seguente:
PROGRAM m
TYPE(grid2D) :: g
...
g%xmin = 0.0
g%xmax = 10.0
WRITE(*,*) "dx = " dx(g)
...
END PROGRAM m
5.8.7 Procedure come argomenti
E’ possibile usare una procedura come un argomento attuale in un’istruzione di chiamata ad
un’altra procedura. Una procedura può essere usata come un argomento di scambio solo se è
una procedura esterna oppure una procedura di modulo: pertanto non è consentito usare come
argomento una procedura interna. Un esempio assai comune è il caso in cui un argomento
attuale sia il risultato di una funzione:
PROGRAM test_func
INTERFACE
FUNCTION func(x)
REAL, INTENT(IN) :: x
END FUNCTION func
END INTERFACE
...
CALL sub(a,b,func(3))
...
END PROGRAM test_func
REAL FUNCTION func(x) ! N.B.: funzione ’’esterna’’
REAL, INTENT(IN) :: x
func = x**2+1.0
END FUNCTION func
Quando la subroutine sub viene invocata, ad essa vengono passati i valori dei parametri a
e b, ed il risultato della funzione func (nel caso in esame pari a 10). Pertanto, una procedura
che sia usata come argomento verrà sempre eseguita prima di essere passata alla procedura
chiamata. Come si è potuto evincere dall’esempio precedente, quando una procedura viene
usata come argomento di un’altra procedura è necessario che abbia una interfaccia esplicita
nell’unità chiamante. Naturalmente l’interfaccia è, come noto, da considerarsi esplicita per
default quando si lavori con procedure di modulo.
Un’altra possibilità che il Fortran mette a disposizione per utilizzare una procedura come
argomento è quella di definire la procedura argomento con l’attributo EXTERNAL. Ad esempio,