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によって値を参照する; UDpSETUDPQIDを呼んで内部変数の位置を求め, UDPSVLによって値を設定する. したがって指定した内部変数名が見つからないとき, エラーメッセージはUDPQIDが出力する.
(c)
ITYPEとしては適切な型の定数または変数を指定すること.