XL Fortran for AIX V8.1.1

ランゲージ・リファレンス

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

関連情報


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]