目的
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
関連情報