%N grtrn0 %F $MIR/src/grtrn0.f
%D Define scaling transformation
%B
      SUBROUTINE GRTRN0 (XORG,YORG,XSCALE,YSCALE)

 GRPCKG (internal routine): Define scaling transformation for current
 device (equivalent to GRTRAN without device selection).

 Arguments:

 XORG, YORG, XSCALE, YSCALE (input, real): parameters of the scaling
       transformation. This is defined by:
               XABS = XORG + XWORLD * XSCALE,
               YABS = YORG + YWORLD * YSCALE,
       where (XABS, YABS) are the absolute device coordinates
       corresponding to world coordinates (XWORLD, YWORLD).
