7.8.2 uscget/uscset(uscstx)

1.
機能
文字パラメータを参照/設定する. (uscstx は実行時オプションによる変更可能.)

2.
呼び出し方法
cpara = NumRu::DCL.uscget(cp)
NumRu::DCL.uscset(cp,cpara)
NumRu::DCL.uscstx(cp,cpara)

3.
引数
cp (C*(*)) パラメータ名 (i)
cpara (C*(*)) パラメータ値 (i/o)

4.
パラメータリスト
cxttl X軸のタイトル (32文字以内)
cyttl Y軸のタイトル (32文字以内)

cxside X軸を書く位置.
'T'(Top), 'B'(Bottom), 'U'(User) のうち 2文字まで指定できる. 2つの位置のうち最初に指定した位置に サブラベルとタイトルが書かれる. (注1)
cyside Yを描く位置.
'R'(Right), 'L'(Left), 'U'(User) のうち 2文字まで指定できる. 2つの位置のうち最初に指定した位置に サブラベルとタイトルが書かれる. (注1)

cxspos X軸のサブラベルを書く位置 'R' または 'L'
cyspos Y軸のサブラベルを書く位置 'T' または 'B'
cxunit X軸のサブラベルに書く単位 (32文字以内)
cyunit Y軸のサブラベルに書く単位 (32文字以内)
cxfmt X軸のラベルのフォーマット (注2)
cyfmt Y軸のラベルのフォーマット (注2)
cblkt サブラベルに書く括弧. 初期値は'()'. ブランクを指定すると括弧は書かない.

(注1) 内部変数 cxside, cyside で指定される最初の位置の labelzs.false.の時には, サブラベル, タイトルともに描かない.

(注2) これらのフォーマットを陽に指定した場合, ラベルの間隔などにこの情報は反映されないので, dxl, dyl も適切に指定しないと, ラベルが重なる場合がある.

5.
備考
(a)
内部変数を管理するための下請けルーチンとして 以下のものがある.
ncp = NumRu::DCL.uscqnp() 内部変数の総数 ncpを求める.
idx = NumRu::DCL.uscqid(cp) 内部変数 cpの位置 idxを求める.
cp = NumRu::DCL.uscqcp(idx) idxの位置にある内部変数の名前 cpを参照する.
cval = NumRu::DCL.uscqvl(idx) idxの位置にある内部変数の値 iparaを参照する.
NumRu::DCL.uscsvl(idx,cval) idxの位置にある内部変数の値 iparaを変更する.
(b)
USCGET は上に述べたUSCQIDを呼んで 内部変数の位置を求め, uscqvlによって値を参照する; uscsetuscqidを呼んで内部変数の位置を求め, uscsvlによって値を設定する. したがって指定した内部変数名が見つからないとき, エラーメッセージはuscqidが出力する.
(c)
ITYPEとしては適切な型の定数または変数を指定すること.