5.3.5 ucpget/ucpset(ucpstx)

1.
機能
UCPACKで使う内部変数を参照/変更する. (ucpstxは実行時オプションによる変更を許す. )
2.
呼び出し方法
ipara = NumRu::DCL.ucpget(cp)
NumRu::DCL.ucpset(cp,lpara)
NumRu::DCL.ucpstx(cp,ipara)
3.
パラメーターの説明
cp (C*8) 内部変数の名前.
ipara (I,R,L) 内部変数の値.



以下にcpとして指定できる名前のリストを記す.
'NDAY' (I) ucxady/ucyadyを使うとき,何日ごとに目盛と日付を描くかを指定する.'NDAY'が不定なら0, 1, 2, 5, 10, 15の中から適当な値が選ばれる(0以下のときは軸を描くだけで目盛と日付は描かない);陽に与えられていればその値を使う(初期値は不定).これはメソッド(元関数) 'NUCDAY'が決める.
'NCHAR' (I)   ucxamn/ucyamnを使うとき,月名を何文字描くかを指定する. 'NCHAR'が不定なら0, 1, 2, 3, 9の中から適当な値が選ばれる(0のときは軸を描くだけで目盛と月名は描かない);陽に与えられていればその値を使う(初期値は不定).これはメソッド(元関数)'NUCCHR'が決める.
'LOWER' (L) ucxady/ucyadyで描く月名の2文字目以下を小文字にするかどうかを指定する..true.なら小文字にする; .false.なら大文字のままにする(初期値は.false.).
'IUNDEF' (I) 値が不定であることを示す内部変数(初期値は -999).

4.
備考
(a)
内部変数を管理するための下請けルーチンとして 以下のものがある.
ncp = NumRu::DCL.ucpqnp() 内部変数の総数 ncpを求める.
idx = NumRu::DCL.ucpqid(cp) 内部変数 cpの位置 idxを求める.
cp = NumRu::DCL.ucpqcp(idx) idxの位置にある内部変数の名前 cpを参照する.
ipara = NumRu::DCL.ucpqvl(idx) idxの位置にある内部変数の値 iparaを参照する.
NumRu::DCL.ucpsvl(idx,ipara) idxの位置にある内部変数の値 iparaを変更する.
(b)
UCpGETは上に述べたUCPQIDを呼んで 内部変数の位置を求め, ucpqvlによって値を参照する; ucpsetucpqidを呼んで内部変数の位置を求め, ucpsvlによって値を設定する. したがって指定した内部変数名が見つからないとき, エラーメッセージはucpqidが出力する.
(c)
内部変数の型に応じ, IPARAとして適切な型の 定数あるいは変数を指定すること.