        SUBROUTINE GSCCLC(X,Y,DX,DY)
        IMPLICIT NONE
        REAL*4 X,Y,DX,DY,XS,YS
C
C       THIS SUBROUTINE DOES THE CHARACTER SIZING AND ROTATION.
C
        INCLUDE DIGLIB$KOM:GCCPAR.PRM
        INCLUDE DIGLIB$KOM:GCCOFF.PRM
C
        XS = X*CSIZE
        YS = Y*CSIZE
        DX = CCOS*XS + CSIN*YS + XOFF
        DY = CCOS*YS - CSIN*XS + YOFF
        RETURN
        END
