%N grqpos %F $MIR/src/grqpos.f
%D Return current pen position (absolute, world coordinates)
%B
      SUBROUTINE GRQPOS(X,Y)

 GRQPOS: returns the current pen position in absolute, world
 coordinates.

 Arguments:

 X, Y (real, output): world coordinates of the pen position.
