        SUBROUTINE GSSETC(SIZE,ANGLE)
C
C
        INCLUDE GCCPAR.PRM
        INCLUDE 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
