UDpGET/UDpSET(UDpSTX)

DCL:GRPH2:UDPACK: Contour Routines: Explanation of Subroutines

8.2.10 UDpGET/UDpSET(UDpSTX)

1.

Function

Inquires/changes an internal variable used by the UDPACK subroutine package. (UDpSTX permits change with a runtime option.)

2.

Call

CALL UDpGET(CP,IPARA)
CALL UDpSET(CP,IPARA)
CALL UDpSTX(CP,IPARA)

3.

Explanation of Parameters

CP (C*8) The name of an internal variable

IPARA (I,R,L) The value of an internal variable

Below is a list of names that can be used to specify CP.

'INDXMJ' (I) The line index of the major line. (The initial value is 3.)

'INDXMN' (I) The line index of the minor line. (The initial value is 1.)

'LABEL' (L) Specifies whether to place labels on major lines. Labeled when .TRUE.; not labeled when .FALSE.. (The initial value is .TRUE..)

'LDASH' (L) Specifies whether to use different line types for drawing negative contour lines. When .TRUE., the negative contour lines are drawn with line type inquired by the internal variable 'IDASH'; when .FALSE., all contour lines are drawn with the line type inquired by the internal variable 'ISOLID'. (The initial value is .TRUE..).

'IDASH' (I) The line type used for the negative contour level when 'LDASH' is .TRUE.. (The initial value is 3: dashed line.)

'ISOLID' (I) The line type used for contour levels with values larger than 0 when 'LDASH' is .TRUE., and for all contour levels when 'LDASH' is .FALSE.. (The initial value is 1: solid line.)

'ICYCLE' (I) Specifies the number of minor lines to drawn between major lines. One major line is drawn for a cycle of contour lines specified by the value inquired by 'ICYCLE', and the remaining contour lines are minor lines. (The initial value is 2.)

'NLEV' (I) When contour levels are automatically generated, this internal variable is inquired to generate NLEV contour levels. (The initial value is 12.)

'RSIZEL' (R) The character height of the contour label. (Units in VC; The initial value is undefined.) When this internal variable is undefined, the internal variable 'RSIZEL1' handled by UZRGET/UZRSET is inquired. (See Section 3.7.)

'LMSG' (L) Specifies whether to write a message in the bottom margin. Message printed when .TRUE., not printed when .FALSE.. (The initial value is .TRUE..)

'RSIZET' (R) The character height of the message printed in the bottom margin of the graph. (Units in VC; The initial value is undefined.) When this internal variable is undefined, the internal variable 'RSIZEL1' handled by UZPGETSET is inquired. (See Section 3.7.)

'XTTL' (R) An internal variable which determines the position of the message printed in the bottom margin of the graph. Takes a floating-point value between -1 to +1. Left-aligned when -1, centered when 0, and right-aligned when +1. (The initial value is 0.).

'IUNDEF' (I) An internal variable which indicates that the value is undefined. (The initial value is -999.)

4.

Notes

(a)

The following subroutines are available for handling the internal variables.

UDPQNP(NCP) Counts the total number of internal variables (NCP).

UDPQID(CP,IDX) Determines the position (IDX) of the internal variable CP.

UDPQCP(IDX,CP) Inquires the name (CP) of the internal variable at position IDX.

UDPQVL(IDX,IPARA) Inquires the value (IPARA) of the internal variable at position IDX.

UDPSVL(IDX,IPARA) Changes the value (IPARA) of the internal variable at position IDX

(b)

UDpGET calls the above UDPQID to determine the position of an internal variable, and inquires its value using UDPQVL. UDpSET calls UDPQID to determine the position of an internal variable and changes its value using UDPSVL. Therefore, when the specified internal variable is not found, an error message is printed by UDPQID.

(c)

Specify an appropriate type of constant or variable for ITYPE.

`CP`	`(C*8)`	The name of an internal variable
`IPARA`	`(I,R,L)`	The value of an internal variable

`'INDXMJ'`	`(I)`	The line index of the major line. (The initial value is 3.)
`'INDXMN'`	`(I)`	The line index of the minor line. (The initial value is 1.)
`'LABEL'`	`(L)`	Specifies whether to place labels on major lines. Labeled when `.TRUE.`; not labeled when `.FALSE.`. (The initial value is `.TRUE.`.)
`'LDASH'`	`(L)`	Specifies whether to use different line types for drawing negative contour lines. When `.TRUE.`, the negative contour lines are drawn with line type inquired by the internal variable `'IDASH'`; when `.FALSE.`, all contour lines are drawn with the line type inquired by the internal variable `'ISOLID'`. (The initial value is `.TRUE.`.).
`'IDASH'`	`(I)`	The line type used for the negative contour level when `'LDASH'` is `.TRUE.`. (The initial value is 3: dashed line.)
`'ISOLID'`	`(I)`	The line type used for contour levels with values larger than 0 when `'LDASH'` is `.TRUE.`, and for all contour levels when `'LDASH'` is `.FALSE.`. (The initial value is 1: solid line.)
`'ICYCLE'`	`(I)`	Specifies the number of minor lines to drawn between major lines. One major line is drawn for a cycle of contour lines specified by the value inquired by `'ICYCLE'`, and the remaining contour lines are minor lines. (The initial value is 2.)
`'NLEV'`	`(I)`	When contour levels are automatically generated, this internal variable is inquired to generate `NLEV` contour levels. (The initial value is 12.)
`'RSIZEL'`	`(R)`	The character height of the contour label. (Units in VC; The initial value is undefined.) When this internal variable is undefined, the internal variable `'RSIZEL1'` handled by `UZRGET/UZRSET` is inquired. (See Section 3.7.)
`'LMSG'`	`(L)`	Specifies whether to write a message in the bottom margin. Message printed when `.TRUE.`, not printed when `.FALSE.`. (The initial value is `.TRUE.`.)
`'RSIZET'`	`(R)`	The character height of the message printed in the bottom margin of the graph. (Units in VC; The initial value is undefined.) When this internal variable is undefined, the internal variable `'RSIZEL1'` handled by `UZPGETSET` is inquired. (See Section 3.7.)
`'XTTL'`	`(R)`	An internal variable which determines the position of the message printed in the bottom margin of the graph. Takes a floating-point value between -1 to +1. Left-aligned when -1, centered when 0, and right-aligned when +1. (The initial value is 0.).
`'IUNDEF'`	`(I)`	An internal variable which indicates that the value is undefined. (The initial value is -999.)

`UDPQNP(NCP)`	Counts the total number of internal variables `(NCP)`.
`UDPQID(CP,IDX)`	Determines the position `(IDX)` of the internal variable `CP`.
`UDPQCP(IDX,CP)`	Inquires the name `(CP)` of the internal variable at position `IDX`.
`UDPQVL(IDX,IPARA)`	Inquires the value `(IPARA)` of the internal variable at position `IDX`.
`UDPSVL(IDX,IPARA)`	Changes the value `(IPARA)` of the internal variable at position `IDX`