電脳ライブラリの「パラメータ掲示版」である
SYSLIB の GLpGET/GLpSETは,
毎回指定する必要のないパラメータをうまく隠蔽して見えないようにしておく
という前述のテクニックを極限にまで利用したライブラリなのである.
GLpGET/GLpSETは他のプログラムにパラメータを渡すだけで,
あとは何もしない.
その構造は, 以下のようになっている(実際のソースより簡略化されている).
(注: Ver.5 の電脳ライブラリでは, 実行時パラメータによって 内部変数への介入が可能になったため GLpGET/GLpSETは 内部でさらに下請けルーチンを呼ぶようになった. 以下では, Ver.4 の電脳ライブラリにおける GLpGET/GLpSETを 用いて説明をおこなう. Ver.5 の下請けルーチンの構造は, 基本的に Ver.4 の GLpGET/GLpSETと同じである. )
*−−−−−−−−−−−−−−−−−−−−−−−-
* GLPGET / GLPSET
*−−−−−−−−−−−−−−−−−−−−−−−-
SUBROUTINE GLPGET(CP,IPARA)
CHARACTER CP*(*)
PARAMETER (NPARA=17)
INTEGER IX(NPARA)
REAL RX(NPARA)
LOGICAL LX(NPARA)
CHARACTER CPARA(NPARA)*8
EQUIVALENCE (IX,RX,LX)
SAVE
DATA CPARA( 1)/'NBITSPW '/, IX( 1)/32/
........
DATA CPARA(12)/'LMISS '/, LX(12)/.FALSE./
DATA CPARA(13)/'IMISS '/, IX(13)/999/
DATA CPARA(14)/'RMISS '/, RX(14)/999.0/
........
DO 10 N=1,NPARA
IF (CP.EQ.CPARA(N)) THEN
IPARA=IX(N)
RETURN
END IF
10 CONTINUE
エラー処理
STOP
*−−−−−−−−−−−−−−−−−−−−−−−-
ENTRY GLPSET(CP,IPARA)
DO 15 N=1,NPARA
IF (CP.EQ.CPARA(N)) THEN
IX(N)=IPARA
RETURN
END IF
15 CONTINUE
エラー処理
STOP
END
ここで, CPARAという文字変数にパラメータ名が登録されており,
その名前に対応した値が
IX, RX, LX という変数に入っている.
(これら3つの変数はEQUIVALENCE文により結合されているので,
実際には1つの記憶領域しか持たない)
さて, IFALIBの関数IMAXは, 欠損値以外の最大値を求めるものであるが, IMAXは欠損値を示す整数値を引数から得る代りに,
CALL GLPGET('IMISS', IMISS)
という文を実行する.
この時, GLPGET では, CPARAの中から'IMISS'という名前を探して
(24-29行目) その名前に対応する値IMISSとして返す.
この時返される値は, DATA文によって指定されているが,
必要であれば, あらかじめこれらの値をGLISETで変更しておくこともできる.
この方法が前の1.5.3節の方法
(各プログラムがIMISS 設定用のENTRYを持つ方法)
より優れている点は,
GLPGETが持つ情報を複数のサブルーチンから参照できることである.
例えば, 欠損値を示す値は何も初期値としては999が与えられているが,
999がデータ範囲に入っているような場合には,
これを変更しておかなければならない.
そのような時にでも GLPSET を一度呼ぶだけで,
欠損値処理をする全てのサブルーチンの動作を制御することが可能になる.