1C*GRQPOS -- return current pen position (absolute, world coordinates)
2C+
3      SUBROUTINE GRQPOS(X,Y)
4C
5C GRQPOS: returns the current pen position in absolute, world
6C coordinates.
7C
8C Arguments:
9C
10C X, Y (real, output): world coordinates of the pen position.
11C--
12C  1-Mar-1991 - new routine  [JM].
13C-----------------------------------------------------------------------
14      REAL     X,Y
15      INCLUDE 'grpckg1.inc'
16C
17      IF (GRCIDE.GE.1) THEN
18          X = (GRXPRE(GRCIDE) - GRXORG(GRCIDE)) / GRXSCL(GRCIDE)
19          Y = (GRYPRE(GRCIDE) - GRYORG(GRCIDE)) / GRYSCL(GRCIDE)
20      END IF
21      END
22