	SUBROUTINE GSETDP(ANGLE,XSCALE,YSCALE,XTRAN,YTRAN)
C
C
	COMMON /GCDPRM/ XS, YS, XT, YT, RCOS, RSIN, VXL, VXH, VYL, VYH
	DATA PIO180 /1.745329252E-2/
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
