Il Linguaggio Fortran 90/95

284 Unità di Programma
IMPLICIT NONE
REAL :: yval
REAL, DIMENSION(2) :: xbounds, ybounds
CONTAINS
FUNCTION f(xval)
REAL :: f
REAL, INTENT(IN) :: xval
r = ... ! Espressione che coinvolge xval e yval
END FUNCTION f
END MODULE func
e, quindi, integrare su x per un particolare valore di y al modo seguente:
FUNCTION fy(y)
USE func
IMPLICIT NONE
REAL :: fy
REAL, INTENT(IN) :: y
yval = y
r = integrate(f,xbounds)
END FUNCTION fy
L’integrazione sull’intero rettangolo potrebbe, così, avvenire a mezzo dell’unica chiamata di
procedura:
volume = integrate(fy,ybounds)
5.16 Procedure generiche
Accade spesso che le operazioni eseguite da una procedura su un particolare tipo di dati possano
essere eseguite in un modo formalmente analogo anche su tipi di dati differenti. Ad esempio, una
procedura scritta per ordinare in senso crescente gli elementi di un array reale sarà formalmente
identica ad una procedura che, invece, sia stata scritta per ordinare gli elementi di un array
intero: l’unica differenza fra le due procedure sarà il tipo dei parametri formali. Per comodità,
il Fortran 90/95 permette a due o più procedure di essere chiamate con lo stesso nome generico:
quale delle due (o più) procedure verrà effettivamente invocata in una istruzione di chiamata
dipenderà esclusivamente dal tipo (e/o dal rango) degli argomenti attuali. Questa proprietà è
nota come polimorfismo.
Una procedura generica è definita usando un generic interface block che specifichi il nome
comune per tutte le procedure definite nel blocco. La forma generale di questo costrutto è la
seguente:
INTERFACE nome_generico
corpo dell’interfaccia
END INTERFACE