Developer Guide and Reference

ID 767251
Date 10/31/2024
Public
Document Table of Contents

MODULE PROCEDURE

Statement: Identifies module procedures in an interface block that specifies a generic name.

Example

!A program that changes non-default integers and reals
! into default integers and reals
   PROGRAM CHANGE_KIND
   USE Module1
   integer(2) in
   integer indef
   indef = DEFAULT(in)
   END PROGRAM

! procedures sub1 and sub2 defined as follows:
   MODULE Module1
    INTERFACE DEFAULT
      MODULE PROCEDURE Sub1, Sub2
    END INTERFACE
    CONTAINS
      FUNCTION Sub1(y)
        REAL(8) y
        sub1 = REAL(y)
      END FUNCTION
      FUNCTION Sub2(z)
        INTEGER Sub2
        INTEGER(2) z
        sub2 = INT(z)
      END FUNCTION
    END MODULE