MODULE

目的

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

関連情報

IBM Copyright 2003