戻る|進む

DCL:GRPH２:UDPACK : 等高線ルーチン:サブルーチンの説明

8.2.10 UDpGET/UDpSET(UDpSTX)

1.

機能

UDPACKサブルーチンパッケージで使用する内部変数を参照/変更する. ( UDpSTXは実行時オプションによる変更を許す. )

2.

呼び出し方法

CALL UDpGET(CP,IPARA)
CALL UDpSET(CP,IPARA)
CALL UDpSTX(CP,IPARA)

3.

パラメーターの説明

CP	(C*8)	内部変数の名前.
IPARA	(I,R,L)	内部変数の値.

以下にCPとして指定できる名前のリストを記す.

'INDXMJ'	(I)	major lineのラインインデクス(初期値は3).
'INDXMN'	(I)	minor lineのラインインデクス(初期値は1).
'LABEL'	(L)	major lineにラベルをつけるかどうかの指定をする..TRUE.ならつける;.FALSE.ならつけない(初期値は.TRUE.).
'LDASH'	(L)	負のコンターラインを異なるラインタイプで描くかどうかを指定する..TRUE.のとき負のコンターラインを内部変数'IDASH'の参照するラインタイプで描く;.FALSE.のときすべてのコンターラインを内部変数'ISOLID'の参照するラインタイプで描く(初期値は.TRUE.).
'IDASH'	(I)	'LDASH'が.TRUE.のとき,負のコンターレベルに使うラインタイプ(初期値は3:破線).
'ISOLID'	(I)	'LDASH'が.TRUE.のとき0以上のコンターレベルに,または'LDASH'が.FALSE.のときすべてのコンターレベルに使うラインタイプ(初期値は1:実線).
'ICYCLE'	(I)	minor lineをmajor lineの間に何本引くかを指定する.すなわち'ICYCLE'で参照する値に1本の割合でmajor lineを引き, 残りはminor lineを引く(初期値は2).
'NLEV'	(I)	コンターレベルを自動的に生成するとき,この内部変数を参照して約NLEV本のコンターレベルを生成する(初期値は12).
'RSIZEL'	(R)	コンターラベルの文字高(単位はV座標系;初期値は不定).この内部変数が不定のときUZRGET/UZRSETの管理する内部変数 'RSIZEL1'を参照する(3.7節参照).
'LMSG'	(L)	グラフの下部マージンにメッセージを書くかどうかを指定する..TRUE.なら書く;.FALSE.なら書かない(初期値は.TRUE.).
'RSIZET'	(R)	グラフの下部マージンに書くメッセージの文字高(単位はV座標系;初期値は不定).この内部変数が不定のときUZPGETSETの管理する内部変数'RSIZEL1'を参照する(3.7節参照).
'XTTL'	(R)	グラフの下部マージンに書くメッセージの位置を決める内部変数.--1から+1までの実数値をとりうる.--1のとき左よせ, 0のときセンタリング, +1のとき右よせする(初期値は0).
'IUNDEF'	(I)	値が不定であることを示す内部変数(初期値は-999).

4.

備考

(a)

内部変数を管理するための下請けルーチンとして 以下のものがある.

UDPQNP(NCP)	内部変数の総数 NCPを求める.
UDPQID(CP,IDX)	内部変数 CPの位置 IDXを求める.
UDPQCP(IDX,CP)	IDXの位置にある内部変数の名前 CPを参照する.
UDPQVL(IDX,IPARA)	IDXの位置にある内部変数の値 IPARAを参照する.
UDPSVL(IDX,IPARA)	IDXの位置にある内部変数の値 IPARAを変更する.

(b)

UDpGETは上に述べたUDPQIDを呼んで 内部変数の位置を求め, UDPQVLによって値を参照する; UDpSETはUDPQIDを呼んで内部変数の位置を求め, UDPSVLによって値を設定する. したがって指定した内部変数名が見つからないとき, エラーメッセージはUDPQIDが出力する.

(c)

ITYPEとしては適切な型の定数または変数を指定すること.