        SUBROUTINE GSSETC(SIZE,ANGLE)
        IMPLICIT NONE
        REAL*4 SIZE,ANGLE,GSCHIT,RAD
C
C
        INCLUDE DIGLIB$KOM:GCCPAR.PRM
        INCLUDE DIGLIB$KOM:PIODEF.PRM
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
