	SUBROUTINE GSSETC(SIZE,ANGLE)
C
C
	COMMON /GCCPAR/ CSIZE, CCOS, CSIN
	DATA PIO180 /1.745329252E-2/
C
C	SET UP SIZE MULTIPLIER
C
	CSIZE = SIZE/GSCHIT()
C
C	CALCULATE THE ROTATION FACTORS
C
	RAD = -PIO180*ANGLE
	CCOS = COS(RAD)
	CSIN = SIN(RAD)
	RETURN
	END
