目的
MODULE ステートメントはモジュール・プログラム単位の最初のステートメントです。これには、他のプログラム単位へのアクセスを可能にする仕様と定義が含まれます。
構文
>>-MODULE--module_name----------------------------------------->< |
規則
モジュール名は、モジュール共通エンティティーにアクセスするために他のプログラム単位の中で USE ステートメントを使用して参照される、グローバル・エンティティーです。モジュール名として、他のプログラム単位の名前、外部プロシージャーの名前、あるいはプログラム内の共通ブロックの名前を使用することはできません。モジュール内のローカル名を使用することもできません。
モジュールを完了させる END ステートメントでモジュール名を指定する場合、そのモジュール名は MODULE ステートメントで指定したものと同じでなければなりません。
例
MODULE MM CONTAINS REAL FUNCTION SUM(CARG) COMPLEX CARG SUM_FNC(CARG) = IMAG(CARG) + REAL(CARG) SUM = SUM_FNC(CARG) RETURN ENTRY AVERAGE(CARG) AVERAGE = SUM_FNC(CARG) / 2.0 END FUNCTION SUM SUBROUTINE SHOW_SUM(SARG) COMPLEX SARG REAL SUM_TMP 10 FORMAT('SUM:',E10.3,' REAL:',E10.3,' IMAG',E10.3) SUM_TMP = SUM(CARG=SARG) WRITE(10,10) SUM_TMP, SARG END SUBROUTINE SHOW_SUM END MODULE MM
関連情報