%N grtxy0 %F $MIR/src/grtxy0.f
%D Convert world coordinates to device coordinates
%B
      SUBROUTINE GRTXY0 (ABSXY,X,Y,XT,YT)

 GRPCKG (internal routine): Convert scaled position to absolute
 position.

 Arguments:

 ABSXY (input, logical): if FALSE, convert world coordinates to
       absolute device coordinates; if TRUE, return the input
       coordinates unchanged.
 X, Y (input, real): input coordinates (absolute or world, depending
       on setting of ABSXY).
 XT, YT (output, real): output absolute device coordinates.
