GR_WHERE(XU,YU,X4,Y4)
Returns the pen position with the same conventions as GR_CURS
Arguments :
XU R*8 X User coordinates Output
YU R*8 Y User coordinates Output
X4 R*4 X Plot coordinates Output
Y4 R*4 Y Plot coordinates Output