        SUBROUTINE GSCCMP(IX,IY,XOFF,YOFF,X,Y)
        IMPLICIT NONE
        REAL*4 XOFF,YOFF,X,Y,XS,YS
        INTEGER IX,IY
C
C
        INCLUDE DIGLIB$KOM:GCCPAR.PRM
        INCLUDE DIGLIB$KOM:GCCPOS.PRM
C
C       SCALE TO PROPER SIZE
C
        XS = CSIZE*IX
        YS = CSIZE*IY
C
C       ROTATE AND TRANSLATE
C
        X = CCOS*XS + CSIN*YS + XOFF
        Y = CCOS*YS - CSIN*XS + YOFF
D       WRITE(9,9999) IX, IY, X,Y
D9999   FORMAT(' CMOVE TO (',I2,',',I2,') GOES TO (',F9.4,',',F9.4,')')
        RETURN
        END
