        SUBROUTINE GSETDP(ANGLE,XSCALE,YSCALE,XTRAN,YTRAN)
        IMPLICIT NONE
        REAL*4 RAD
C
C
        INCLUDE DIGLIB$KOM:GCDPRM.PRM
        INCLUDE DIGLIB$KOM: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
