Specifies module procedures in a generic interface.
Syntax
MODULE PROCEDURE module-procedure-name-list |
- module-procedure-name-list
is a comma-separated list of module-procedure-names.
Description
A MODULE
PROCEDURE statement
appears within an interface block. It is used when the specification
is generic and a specific procedure is defined within the module
rather than as an external procedure. The MODULE
PROCEDURE statement
only names the subprograms; it does not contain the definition of
the interface. The named subprograms must be defined within the
current module or within another module that is accessible by use
association.
Examples
MODULE path
! module data environment; module procedures contained in this
! module have access to this data environment
REAL x, y, z
! Generic name substance for procedures air and water
INTERFACE substance
MODULE PROCEDURE air, water
END INTERFACE
INTERFACE OPERATOR (*)
MODULE PROCEDURE rational_multiply
END INTERFACE
...
! Module procedures are preceded by CONTAINS
CONTAINS
SUBROUTINE air (contents)
...
END SUBROUTINE air
SUBROUTINE water (x, a, z)
! x is a dummy argument, y is from the module data
! environment
a = x + y
...
END SUBROUTINE water
FUNCTION rational_multiply (x, y)
TYPE (rational) :: rational_multiply
TYPE (rational), INTENT (IN) :: x, y
rational_multiply = ...
...
END FUNCTION rational_multiply
END MODULE path |
Related statements
FUNCTION,
SUBROUTINE, and
INTERFACE
Related concepts
For information about module procedures, see “Module program unit”.
Printable version
