10.2.3 UGpGET/UGpSET(UGpSTX)

1.
機能
UGPACKサブルーチンパッケージで使用する内部変数を参照/変更する. (UGpSTXは実行時オプションによる変更を許す. )
2.
呼び出し方法
CALL UGpGET(CP,IPARA)
CALL UGpSET(CP,IPARA)
CALL UGpSTX(CP,IPARA)
3.
パラメーターの説明
CP (C*8) 内部変数の名前.
IPARA (I,R,L) 内部変数の値.



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


'INDEX' (I) ベクトルを描く線分のラインインデクス.および 'LMISSP','LSMALL'.TRUE.のときに描くマーカーのラインインデクス(初期値は3 ).
'LNRMAL' (L) 内部的にスケーリングファクターを決めるかどうかを指定する..TRUE.のとき内部的に決める;.FALSE.のとき内部変数'XFACT1','YFACT1'を参照する(初期値は.TRUE.).
'LEQRAT' (L) 内部的にスケーリングファクターを決めるとき('LNRNAL' .TRUE.のとき) X方向とY方向のスケーリングファクターを同じにするかどうかを指定する..TRUE.なら同じにする(初期値は.TRUE.).
'XFACT1' (R) 'LNRNAL'.FALSE.のときに参照するX方向のスケーリングファクター(初期値は1.0).
'YFACT1' (R) 'LNRNAL'.FALSE.のときに参照するY方向のスケーリングファクター(初期値は1.0).
'XFACT2' (R) 実際に用いられるX方向のスケーリングファクター(初期値は不定).ユーザーが指定しても意味がない.
'YFACT2' (R) 実際に用いられるY方向のスケーリングファクター(初期値は不定).ユーザーが指定しても意味がない.
'LMSG' (L) グラフの下部マージンにスケーリングファクターなどのタイトルを書くかどうかを指定する..TRUE.なら書く;.FALSE.なら書かない(初期値は.TRUE.).
'ICENT' (I) ベクトルの始点を格子点に対してどこにとるか指定する.+1ならベクトルの終点が格子点と一致するように描く;0ならベクトルの中点が格子点と一致するように描く;-1ならベクトルの始点が格子点と一致するように描く(初期値は0).
'LMISSP' (L) 欠損値ベクトルのとき,その格子点にマーカーを描くかどうか(欠損値処理をおこなうかどうか)を指定する..TRUE.なら描く;.FALSE.なら描かない(初期値は.FALSE.).
'ITYPE1' (I) 欠損値処理をおこなうとき, その格子点に描くマーカーのマーカータイプ(初期値は5).
'LSMALL' (L) ベクトルの大きさが内部変数'RSMALL'で決まる値以下のとき欠損値処理と同じように,その格子点にマーカーを描くかどうか指定する..TRUE.なら描く;.FALSE.なら描かない(初期値は.FALSE.).
'RSMALL' (R) 内部変数'LSMALL'が参照するベクトルの大きさのしきい値(初期値は0.001).
'ITYPE2' (I) 内部変数'LSMALL'がのとき,その格子点に描くマーカーのマーカータイプ(初期値は1).
'RSIZEM' (R) 'LMISSP', 'LSMALL'.TRUE.のときに描くマーカーのマーカーサイズ(初期値は0.01).
'RSIZET' (R) グラフの下部マージンに書くタイトルの文字高(単位はV座標系;初期値は不定).この内部変数が不定のとき UZpGETpSETの管理する内部変数 'RSIZEL1'を参照する(3.7節参照).
'XTTL' (R) グラフの下部マージンに書くタイトルの位置を決める内部変数.-1から+1までの実数値をとりうる.-1のとき左よせ, 0のときセンタリング, +1のとき右よせする(初期値は0).
'LUNIT' (L) ユニットベクトルを描くかどうかを指定する..TRUE.なら描く;.FALSE.なら描かない(初期値は.FALSE.).
'LUMSG' (L) ユニットベクトルを描くときグラフの下部マージンにユニットベクトルの単位を書くかどうかを指定する..TRUE.なら書く; .FALSE.なら書かない(初期値はTRUE).
'VXULOC' (R) ユニットベクトルの始点のX座標(単位はV座標系;初期値は不定).
'VYULOC' (R) ユニットベクトルの始点のY座標(単位はV座標系;初期値は不定).
'VXUOFF' (R) 'VXULOC', 'VYULOC'が陽に指定されていないとき,ユニットベクトルをビューポートの右下隅からX方向にどれだけ離すかを与えるオフセット値(単位はV座標系;初期値は0.02).
'VYUOFF' (R) 'VXULOC', 'VYULOC'が陽に指定されていないとき,ユニットベクトルをビューポートの右下隅からY方向にどれだけ離すかを与えるオフセット値(単位はV座標系;初期値は0.0).
'UXUNIT' (R) X方向のユニットベクトルの長さ(単位は次元量;初期値は不定).
'UYUNIT' (R) Y方向のユニットベクトルの長さ(単位は次元量;初期値は不定).
'VXUNIT' (R) X方向のユニットベクトルの長さ(単位はV座標系;初期値は0.05).
'VYUNIT' (R) Y方向のユニットベクトルの長さ(単位はV座標系;初期値は0.05).
'IUNTTL' (I) 設定されている, ユニットベクトルにつけるタイトルの数.ユーザーは値を設定してはいけない.
'RSIZEUT' (R) ユニットベクトルにつけるタイトルの文字高(単位はV座標系;初期値は不定).この内部変数が不定のときUZpGETpSETの管理する内部変数'RSIZEL1'を 参照する(3.7節参照). 
'IUINDX' (I) ユニットベクトルにつけるタイトルのラインインデクス(初期値は3).
'IUTXRO' (I) X方向のユニットベクトルにつけるタイトルの回転角(単位は度;初期値は0).
'IUTYRO' (I) Y方向のユニットベクトルにつけるタイトルの回転角(単位は度;初期値は90).タイトルの長さが1のときに限って 'IUTYRO'' は90以外の値をとることが許される.
'IUNDEF' (I) 値が不定であることを示す内部変数(初期値は-999).

4.
備考
(a)
内部変数を管理するための下請けルーチンとして 以下のものがある.
UGPQNP(NCP) 内部変数の総数 NCPを求める.
UGPQID(CP,IDX) 内部変数 CPの位置 IDXを求める.
UGPQCP(IDX,CP) IDXの位置にある内部変数の名前 CPを参照する.
UGPQVL(IDX,IPARA) IDXの位置にある内部変数の値 IPARAを参照する.
UGPSVL(IDX,IPARA) IDXの位置にある内部変数の値 IPARAを変更する.
(b)
UGpGETは上に述べたUGPQIDを呼んで 内部変数の位置を求め, UGPQVLによって値を参照する; UGpSETUGPQIDを呼んで内部変数の位置を求め, UGPSVLによって値を設定する. したがって指定した内部変数名が見つからないとき, エラーメッセージはUGPQIDが出力する.
(c)
ITYPEとしては適切な型の定数または変数を指定すること.