MODULE PROCEDURE

Statement: Identifies module procedures in an interface block that specifies a generic name. For more information, see INTERFACE and MODULE.

Example

!A program that changes non-default integers and reals !into default integers and reals
   PROGRAM CHANGE_KIND
   USE Module1
   INTERFACE DEFAULT
     MODULE PROCEDURE Sub1, Sub2
   END INTERFACE

   integer(2) in
   integer indef
   indef = DEFAULT(in)
   END PROGRAM
! procedures sub1 and sub2 defined as follows:
    MODULE Module1
    CONTAINS
      FUNCTION Sub1(y)
        REAL(8) y
        sub1 = REAL(y)
      END FUNCTION
      FUNCTION Sub2(z)
        INTEGER(2) z
        sub2 = INT(z)
      END FUNCTION
    END MODULE