        SUBROUTINE GSETDP(ANGLE,XSCALE,YSCALE,XTRAN,YTRAN)
C
C
        INCLUDE GCDPRM.PRM
        INCLUDE PIODEF.PRM
C
C       SET SCALE AND TRANSLATION FACTORS
C
        XS = XSCALE
        YS = YSCALE
        XT = XTRAN
        YT = YTRAN
C
C       SET ROTATION FACTORS
C
        RAD = -ANGLE*PIO180
        RCOS = COS(RAD)
        RSIN = SIN(RAD)
        RETURN
        END
