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

 GRPCKG (internal routine): Define scaling transformation.

 Arguments:

 IDENT (input, integer): plot identifier, as returned by GROPEN.
 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).
