Il Linguaggio Fortran 90/95

286 Unità di Programma
SUBROUTINE swapcomplex(a,b)
REAL, INTENT(INOUT) :: a, b
END SUBROUTINE swapcomplex
END INTERFACE
per invertire due numeri x ed y sarà sufficiente invocare la procedura generica swap mediante
l’istruzione di chiamata swap(x,y) indipendentemente dal tipo (intero, reale o complesso) dei
parametri attuali.
Tutto quanto detto finora vale esclusivamente per funzioni esterne compilate separatamente
e non aventi una interfaccia esplicita. Un discorso a parte vale nel caso in cui le procedure
”individuali” fanno parte di un modulo e quindi hanno già una interfaccia esplicita. Sebbene sia
illegale inserire una procedura di modulo in un interface block, è, invece, perfettamente lecito
inserire una procedura di modulo in un generic interface block attraverso la speciale istruzione
MODULE PROCEDURE, la cui sintassi è:
MODULE PROCEDURE module_procedure1 [, module_procedure2, ...]
in cuimodule_procedure è una procedura di modulo resa disponibile attraverso una associazione
di USE. A titolo di esempio, se le procedure swapint, swapreal e swapcomplex dell’esempio
precedente non fossero state delle procedure esterne bensì delle procedure di modulo, allora il
generic interface block sarebbe dovuto essere il seguente:
INTERFACE swap
MODULE PROCEDURE swapint
MODULE PROCEDURE swapreal
MODULE PROCEDURE swapcomplex
END INTERFACE
5.17 Overloading
Il riferimento ad una procedura, facente parte di un certo insieme, attraverso un nome generico
è noto come overloading. Quale fra le diverse procedure sarà invocata dipende dagli argomenti
scambiati. Allo stesso modo che con i nomi di procedura è possibile ”generalizzare” i comuni
operatori aritmetici (+, -, *, /, **) al fine di definire un set di operatori che possano essere
applicati, ad esempio, a variabili di tipi di dati derivati.
Il Fortran 90/95 consente sia l’overloading degli operatori che l’overloading dell’assegnazione
e in entrambi i casi è necessario un interface block. Moduli sono spesso usati per fornire un
accesso globale ai nuovi operatori.
5.17.1 Overloading degli operatori
E’ possibile estendere il ”significato” di un operatore intrinseco per poterlo applicare a tipi di
dati supplementari. Questo richiede un interface block nella forma: