Separate HTML for Basic Foil 14 MODULEs INTERFACES and Overloaded Operators in Fortran90

Basic HTML version of Foils prepared 17 Sept 1996

Foil 14 MODULEs INTERFACES and Overloaded Operators in Fortran90

From New CPS615HPF and Fortran90 Discussion Sept 17 96 Basic Simulation Track for Computational Science CPS615 -- Fall Semester 96. by Geoffrey C. Fox, Tom Haupt

MODULE INTERVAL_ARITHMETIC

TYPE INTERVAL
- REAL LOWER, UPPER
END TYPE INTERVAL
INTERFACE OPERATOR(+) define overloaded + operator
- MODULE PROCEDURE ADD_INTERVALS
END INTERFACE

CONTAINS

FUNCTION ADD_INTERVALS(A,B)
- TYPE(INTERVAL) ADD_INTERVALS, A, B
- ADD_INTERVALS%LOWER = A%LOWER + B%LOWER
- ADD_INTERVALS%UPPER = A%UPPER + B%UPPER
END FUNCTION ADD_INTERVALS(A,B)

END MODULE INTERVAL_ARITHMETIC