Il Linguaggio Fortran 90/95

5.17 Overloading 289
addizione_intervalli%lower = a%lower + b%lower
addizione_intervalli%upper = a%upper + b%upper
END FUNCTION addizione_intervalli
FUNCTION sottrazione_intervalli(a,b)
TYPE(intervallo), INTENT(IN) :: a, b
TYPE (intervallo) :: sottrazione_intervalli
sottrazione_intervalli%lower = a%lower - b%upper
sottrazione_intervalli%upper = a%upper - b%lower
END FUNCTION sottrazione_intervalli
FUNCTION moltiplicazione_intervalli(a,b)
TYPE(intervallo), INTENT(IN) :: a, b
TYPE (intervallo) :: moltiplicazione_intervalli
moltiplicazione_intervalli%lower = a%lower * b%lower
moltiplicazione_intervalli%upper = a%upper * b%upper
END FUNCTION moltiplicazione_intervalli
FUNCTION divisione_intervalli(a,b)
TYPE(intervallo), INTENT(IN) :: a, b
TYPE(intervallo) :: divisione_intervalli
divisione_intervalli%lower = a%lower / b%upper
divisione_intervalli%upper = a%upper / b%lower
END FUNCTION divisione_intervalli
END MODULE aritmetica_intervalli
Il seguente programma fornisce un esempio di applicazione del moduloaritmetica_intervalli.
PROGRAM abc
USE aritmetica_intervalli
IMPLICIT NONE
TYPE (intervallo) :: a, b, c, d, e, f
a%lower = 6.9
a%upper = 7.1
b%lower = 10.9
b%upper = 11.1
WRITE (*,*) a,b
c = a+b
d = a-b
e = a*b
f = a/b
WRITE(*,*) c,d
WRITE(*,*) e,f
END
Chiaramente l’output di questo programma di test è il seguente:
6.9000001 7.0999999 10.8999996 11.1000004