MODULE PROCEDURE

:総称名を指定するインタフェース宣言中のモジュール手続を識別します。詳細は,「INTERFACE」と「MODULE」を参照してください。

	! 非基本整数と非基本実数を基本整数と基本実数に変更するプログラム
	PROGRAM CHANGE_KIND
	  USE Module1
	  INTERFACE DEFAULT
	    MODULE PROCEDURE Sub1, Sub2
	  END INTERFACE

	  integer(2) in
	  integer indef
	  indef = DEFAULT(in)
	END PROGRAM
	! 手続 sub1 と sub2 は以下のように定義します:
	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