10.2.3 UGpGET/UGpSET(UGpSTX)

1.
Function
Inquires/changes an internal variable used in the UGPACK. (UGpSTX permits changes with a runtime option.)
2.
Call
CALL UGpGET(CP,IPARA)
CALL UGpSET(CP,IPARA)
CALL UGpSTX(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.



The following is a list of names that can be specified as CP.


'INDEX' (I) The line index for the line to draw the vector, or when 'LMISSP' and 'LSMALL' is .TRUE., the line index of the marker. (The initial value is 3.).
'LNRMAL' (L) Specifies whether a scaling factor is set internally. Set internally when 'LNRMAL' is .TRUE.; inquires the internal variables 'XFACT1' and 'YFACT1'when .FALSE.. (The initial value is .TRUE..)
'LEQRAT' (L) When a scaling factor is set internally (when 'LNRMAL' is .TRUE.), specifies whether the scaling factors for the X and Y directions are the same. The same when .TRUE.. (The initial value is .TRUE..)
'XFACT1' (R) The scaling factor for the X direction inquired when 'LNRNAL' is .FALSE.. (The initial value is 1.0.)
'YFACT1' (R) The scaling factor for the Y direction inquired when 'LNRNAL' is .FALSE.. (The initial value is 1.0.)
'XFACT2' (R) The actual scaling factor used for the X direction . (The initial value is undefined.) A user specification is meaningless.
'YFACT2' (R) The actual scaling factor used for the Y direction . (The initial value is undefined.) A user specification is meaningless.
'LMSG' (L) Specifies whether titles such as scaling factors will be printed in the bottom margin of the graph. Printed when .TRUE.; Not printed when .FALSE.. (The initial value is .TRUE..)
'ICENT' (I) Specifies where the starting point of the vector will be positioned relative to the grid point. When +1, the end point of the vector coincides with the grid point; when 0, the center of the vector coincides with the grid point, when -1, the starting point coincides with the grid point. (The initial value is 0.)
'LMISSP' (L) Specifies whether a marker will be drawn on the grid point a for missing-value vector (i.e. whether missing-value handling will be performed.) Marker drawn when .TRUE.; not drawn when .FALSE.. (The initial value is .FALSE..)
'ITYPE1' (I) The marker type of the marker for the grid point with missing value when performing missing-value handling. (The initial value is 5.)
'LSMALL' (L) When the size of a vector is smaller than the value specified by the internal variable 'RSMALL', specifies whether a marker will be placed on the grid point as for the missing-value handling. (The initial value is .FALSE..)
'RSMALL' (R) The threshold for the vector size inquired by the internal variable 'LSMALL'. (The initial value is 0.001.)
'ITYPE2' (I) The marker type of the marker for the grid point when the internal variable 'LSMALL' is .TRUE.. (The initial value is 1.)
'RSIZEM' (R) The marker size to draw marker when both 'LMISSP' and 'LSMALL' are .TRUE.. (The initial value is 0.01.)
'RSIZET' (R) The character height for the title to be 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 UZpGETpSET is inquired. (See Section 3.7)
'XTTL' (R) The internal variable which specifies the position of the title in the bottom margin of the graph. Takes a floating-point value between -1 and +1. Left-aligned when -1, centered when 0, and right-aligned when +1. (The initial value is 0.)
'LUNIT' (L) Specifies whether to draw a unit vector. Drawn when .TRUE.; not drawn when .FALSE.. (The initial value is .FALSE..)
'LUMSG' (L) Specifies whether the unit of the unit vector will be printed when the unit vector is drawn in the bottom margin of the graph. Printed when .TRUE.; not printed when .FALSE.. (The initial value is .TRUE..)
'VXULOC' (R) The X coordinate of the starting point of the unit vector. (Unit in VC; The initial value is undefined.)
'VYULOC' (R) The Y coordinate of the starting point of the unit vector. (Unit in VC; The initial value is undefined.)
'VXUOFF' (R) The offset value of the unit vector in the X direction from the lower right-hand corner of the viewport when 'VXULOC' and 'VYULOC' are not explicitly specified. (Unit in VC; The initial value is 0.02.)
'VYUOFF' (R) The offset value of the unit vector in the Y direction from the lower right-hand corner of the viewport when 'VXULOC' and 'VYULOC' are not explicitly specified. (Unit in VC; The initial value is 0.0.)
'UXUNIT' (R) The length of the unit vector in the X direction. (Unit in dimensional quantity; The initial value is undefined.)
'UYUNIT' (R) The length of the unit vector in the Y direction. (Unit in dimensional quantity; The initial value is undefined.)
'VXUNIT' (R) The length of the unit vector in the X direction. (Unit in VC; The initial value is 0.05.)
'VYUNIT' (R) The length of the unit vector in the Y direction. (Unit in VC; The initial value is 0.05.)
'IUNTTL' (I) The number of titles for the specified unit vector. Not to be specified by the user.
'RSIZEUT' (R) The character height of the title for the unit vector. (Units in VC; The initial value is undefined.) When this internal variable is undefined, the internal variable 'RSIZEL1' handled by UZpGETpSET is inquired. (See Section 3.7.) 
'IUINDX' (I) The line index for the title of the unit vector. (The initial value is 3.)
'IUTXRO' (I) The angle of rotation of the title for the unit vector in the X direction. (Units in degrees; The initial value is 0.)
'IUTYRO' (I) The angle of rotation of the title for the unit vector in the Y direction. (Units in degrees; The initial value is 90.) Only when the length of the title is 1, 'IUTYRO' may take a value other than 90.
'IUNDEF' (I) An internal variable indicating that the value is undefined. (The initial value is -999.)

4.
Notes
(a)
The following subroutines are available for handling the internal variables.
UGPQNP(NCP) Counts the total number of internal variables (NCP).
UGPQID(CP,IDX) Determines the position (IDX) of the internal variable CP.
UGPQCP(IDX,CP) Inquires the name (CP) of the internal variable at position IDX.
UGPQVL(IDX,IPARA) Inquires the value (IPARA) of the internal variable at position IDX.
UGPSVL(IDX,IPARA) Changes the value (IPARA) of the internal variable at position IDX
(b)
UGpGET calls the above UGPQID to determine the position of an internal variable, and inquires its value using UGPQVL. UGpSET calls UGPQID to determine the position of an internal variable and changes its value using UGPSVL. Therefore, when the specified internal variable is not found, an error message is printed by UGPQID.
(c)
Specify an appropriate type of constant or variable for ITYPE.