戻る|進む

DCL:GRPH２:UMPACK : 地図投影ルーチン:サブルーチンの説明:地図情報の描画

12.3.5 UMpGET/UMpSET(UMpSTX)

1.

機能

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

2.

呼び出し方法

CALL UMpGET(CP,IPARA)
CALL UMpSET(CP,IPARA)
CALL UMpSTX(CP,IPARA)

3.

パラメーターの説明

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

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

'LGRIDMJ'	(L)	UMPGRDが緯度線・経度線を描くとき major line を描くかどうかを指定する..TRUE.なら描く; .FALSE.なら描かない(初期値は.TRUE.).
'LGRIDMN'	(L)	UMPGRDが緯度線・経度線を描くとき minor line を描くかどうかを指定する..TRUE.なら描く; .FALSE.なら描かない(初期値は.TRUE.).
'INDEXMJ'	(I)	UMPGRDが描く緯度線・経度線のmajor line のラインインデクス(初期値は3).
'INDEXMN'	(I)	UMPGRDが描く緯度線・経度線のminor line のラインインデクス(初期値は1).
'ITYPEMJ'	(I)	UMPGRDが描く緯度線・経度線のmajor line のラインタイプ(初期値は 1).
'ITYPEMN'	(I)	UMPGRDが描く緯度線・経度線のminor line のラインタイプ(初期値は3).
'DGRIDMJ'	(R)	UMPGRDが描く緯度線・経度線のmajor line の間隔(単位は度; 初期値は30.0).
'DGRIDMN'	(R)	UMPGRDが描く緯度線・経度線のminor line の間隔(単位は度; 初期値は10.0).
'DGRPLMJ'	(R)	UMPGRDが描く経度線のmajor line を極からどれだけはいったところから描くかを指定する.(単位は度; 初期値は0.0).
'DGRPLMN'	(R)	UMPGRDが描く経度線のminor line を極からどれだけはいったところから描くかを指定する.(単位は度; 初期値は0.0).
'INDEXBND'	(I)	UMPLIMが描く地図境界線のラインインデクス(初期値は3).
'MAXBND'	(I)	UMPLIMが描く地図境界線を描くときいくつぐらいの線分に分割して描くかを設定する(初期値は300).
'INDEXOUT'	(I)	海岸線などの地図情報を描く線分のラインインデクス(初期値は1).
'ITYPEOUT'	(I)	海岸線などの地図情報を描く線分のラインタイプ(初期値は1).
'LGLOBE'	(L)	UMSTRFが変換パラメータを決定するとき,全球を描くようにするかどうかを指定する..TRUE.なら全球を描く;.FALSE.なら全球を描かない(初期値は.FALSE.).

4.

備考

(a)

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

UMPQNP(NCP)	内部変数の総数 NCPを求める.
UMPQID(CP,IDX)	内部変数 CPの位置 IDXを求める.
UMPQCP(IDX,CP)	IDXの位置にある内部変数の名前 CPを参照する.
UMPQVL(IDX,IPARA)	IDXの位置にある内部変数の値 IPARAを参照する.
UMPSVL(IDX,IPARA)	IDXの位置にある内部変数の値 IPARAを変更する.

(b)

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

(c)

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