WHEREPR returns information on the metafile plotting parameters. If lu <= 0 then metafile has not been initialized. A routine FIXPR0 (which has the same parameters) may be used to set these variables to absolute values without error checking.
CALL WHEREPR (x,y,ax,ay,z,a,rx,ry,lu,m,iw,ic)
x,y (R): (returned) current origin
ax,ay (R): (returned) last scaled and shifted origin point
z (R): (returned) current zoom scale factor
a (R): (returned) current plotting angle
rx,ry (R): (returned) resolution of metafile
lu (I): (returned) FORTRAN file output unit number
(if lu <= 0 metafile package not initialized)
m (I): (returned) current line type
iw (I): (returned) current line width
ic (I): (returned) current line color