1
2C*GRTXY0 -- convert world coordinates to device coordinates
3C+
4      SUBROUTINE GRTXY0 (ABSXY,X,Y,XT,YT)
5C
6C GRPCKG (internal routine): Convert scaled position to absolute
7C position.
8C
9C Arguments:
10C
11C ABSXY (input, logical): if FALSE, convert world coordinates to
12C       absolute device coordinates; if TRUE, return the input
13C       coordinates unchanged.
14C X, Y (input, real): input coordinates (absolute or world, depending
15C       on setting of ABSXY).
16C XT, YT (output, real): output absolute device coordinates.
17C--
18C (1-Feb-1983)
19C-----------------------------------------------------------------------
20      INCLUDE 'grpckg1.inc'
21      LOGICAL  ABSXY
22      REAL     X, Y, XT, YT
23C
24      IF (ABSXY) THEN
25          XT = X
26          YT = Y
27      ELSE
28          XT = X * GRXSCL(GRCIDE) + GRXORG(GRCIDE)
29          YT = Y * GRYSCL(GRCIDE) + GRYORG(GRCIDE)
30      END IF
31C
32      END
33