MODULE PROCEDURE

目的

MODULE PROCEDURE ステートメントは総称インターフェースを持つ モジュール・プロシージャーをリストします。

構文



>>-MODULE PROCEDURE--procedure_name_list-----------------------><
 
 

規則

+---------------------------------Fortran 95---------------------------------+

MODULE PROCEDURE ステートメントは、 総称仕様を持つ インターフェース・ブロック内のインターフェース本体の どこにでも置くことができます。

+-----------------------------End of Fortran 95------------------------------+

MODULE PROCEDURE は、モジュール・プロシージャー として procedure_name にアクセス可能な有効範囲単位に含まれていなければ なりません。また、この有効範囲単位にアクセス可能な名前でなければなりません。

procedure_name は、事前にインターフェース・ブロックの中で 名前を指定するか、あるいは使用関連付けやホスト関連付けを 使用して、それが指定されるインターフェース・ブロックの総称仕様と 事前に関連付けられていてはなりません。

モジュール・プロシージャーの特性は、インターフェース本体ではなく モジュール・プロシージャー定義により決定されます。

MODULE M
  CONTAINS
  SUBROUTINE S1(IARG)
    IARG=1
  END SUBROUTINE
  SUBROUTINE S2(RARG)
    RARG=1.1
  END SUBROUTINE
END MODULE
 
USE M
INTERFACE SS
  SUBROUTINE SS1(IARG,JARG)
  END SUBROUTINE
  MODULE PROCEDURE S1, S2
END INTERFACE
CALL SS(N)                   ! Calls subroutine S1 from M
CALL SS(I,J)                 ! Calls subroutine SS1
END

関連情報

IBM Copyright 2003