Il Linguaggio Fortran 90/95

5.8 Argomenti delle Procedure 255
nel caso in cui il parametro formale sia una function, la dichiarazione del tipo della funzione
dovrà includere l’attributo EXTERNAL, al modo seguente:
tipo, EXTERNAL :: nome_function
Questa dichiarazione serve a specificare che il parametro formale è il nome di una funzione e non
il nome di una variabile. Anche il corrispondente argomento attuale dovrà essere dichiarato,
nell’unità di programma chiamante, con l’attributo EXTERNAL o, se è il nome di una funzione
intrinseca, con l’attributo INTRINSIC:
tipo, EXTERNAL :: nome_function
tipo, INTRINSIC :: nome_function_intrinseca
Le seguenti dichiarazioni forniscono un esempio di quanto detto:
INTEGER, EXTERNAL :: func
REAL, INTRINSIC :: sin
Si noti che non tutte le funzioni intrinseche possono essere passate come parametri attuali in
una chiamata di procedura. In particolare è illegale l’uso delle funzioni di conversione di tipo
(REAL, DBLE, ...).
Il seguente codice di calcolo mostra un esempio di funzione di modulo usata come parametro
attuale in una chiamata di procedura. Lo scopo del programma è quello di valutare l’integrale
della suddetta funzione, f(x), fra due estremi a e b con il metodo del trapezio secondo un
approccio di tipo iterativo.
MODULE function_mod
IMPLICIT NONE
CONTAINS
FUNCTION f(x) RESULT(f_result)
IMPLICIT NONE
REAL, INTENT (IN) :: x
REAL :: f_result
f_result = EXP(-x**2) ! Funzione integranda
END FUNCTION f
END MODULE function_mod
MODULE integral_mod
IMPLICIT NONE
CONTAINS
RECURSIVE FUNCTION integral(f,a,b,epsilon) RESULT(integral_result)
IMPLICIT NONE
REAL, INTENT (IN) :: a, b, epsilon
REAL :: integral_result, f
EXTERNAL f
REAL :: h, mid