ENTRY文

1.5.3 ENTRY文

FORTRANでサブルーチンを書く時, いろいろな場合を想定して, なるべく汎用的なサブルーチンにしようとすると, 引数がどんどん増えて困ることがある. 大事な引数は2-3個なのに, どうでもよいような引数がずらずらと並んでいると, それだけで CALL .... と書く手が重くなってくる.

そのような時にENTRY文を使うと解決できる場合がある. ENTRY文とは, サブルーチンの途中から実行を始めるための文である.

*－－－－－- main program －－－－－-
      REAL X(10)
      .......
      CALL TABLE(X, 10)
      .......
      END
*－－－－－－－－－－－－－－－-
      SUBROUTINE TABLE(X,N)
      REAL       X(N)
      DATA       IOU /6/
      SAVE

      WRITE(IOU,'(10F12.4)') X
      RETURN

      ENTRY IOUSET(IOU0)
      IOU = IOU0
      RETURN
      END

このサブルーチンTABLEは 1次元配列Xを出力するものであるが, TABLEだけを呼べば, DATA文で指定されたIOUの機番(6)に出力される. ファイルなど別の機番に出力させたい場合は, TABLE を呼ぶ前にIOUSET を呼んで, IOUを書き換えておけばよい. つまり, 1つのサブルーチンに, 印刷すべき変数だけを与える入口と, その他のパラメータを設定する入口の, 2つの入口を作るわけである.

ここで, 注意すべきことはSUBROUTINE文またはENTRY文で指定された引数は, そのSUBROUTINE文またはENTRY文から入った時でないと使えないことである. 例えば, このプログラムのENTRY文から入った時(IOUSETが呼ばれた時), 変数N を引用することはできない. 同じように, TABLEが呼ばれた時にIOU0を引用することはできないので, IOUSETが呼ばれたときにIOUに代入しておかなければならない. また, このようなプログラムでもSAVE文とDATA文は不可欠である.