Il Linguaggio Fortran 90/95

288 Unità di Programma
IF(s(i:i)== c) num = num+1
END DO
END FUNCTION num
END MODULE overloading_divisione
Normalmente il comune operatore di divisione non è definito per variabili carattere o stringhe ma
il modulo overloading_divisione contiene una function che definisce una simile operazione,
ed un’interfaccia ad essa. Così, ad esempio, la divisione fra la stringa ’hello world’ ed un
carattere potrà essere effettuata al seguente modo:
USE overloading_divisione
...
i = "hello world"/"l" ! i = 3
i = "hello world"/"o" ! i = 2
i = "hello world"/"z" ! i = 0
Per rendere ancora più chiara la versatilità e la generalità dell’overloading degli operatori, si
farà ora un esempio un pò più complesso. Si immagini di lavorare con un tipo di dati derivato,
intervallo, i cui elementi, lower e upper, rappresentino gli estremi inferiore e superiore di
un intervallo numerico, e si supponga di voler creare una ”aritmetica” degli intervalli definita
in modo tale che, dati due ”intervalli”, un comune operatore aritmetico binario applicato alla
coppia restituisca una nuova variabile intervallo i cui componenti (gli estremi dell’intervallo
risultante) siano ottenuti applicando l’operatore aritmetico ”intrinseco” alle coppie formate dai
componenti omologhi. Il modulo seguente, evidentemente, è quanto occorre allo scopo:
MODULE aritmetica_intervalli
TYPE intervallo
REAL lower, upper
END TYPE intervallo
INTERFACE OPERATOR (+)
MODULE PROCEDURE addizione_intervalli
END INTERFACE
INTERFACE OPERATOR (-)
MODULE PROCEDURE sottrazione_intervalli
END INTERFACE
INTERFACE OPERATOR (*)
MODULE PROCEDURE moltiplicazione_intervalli
END INTERFACE
INTERFACE OPERATOR (/)
MODULE PROCEDURE divisione_intervalli
END INTERFACE
CONTAINS
FUNCTION addizione_intervalli(a,b)
TYPE(intervallo), INTENT(IN) :: a, b
TYPE(intervallo) :: addizione_intervalli