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