        INTEGER*2 FUNCTION GSIVIS(X,Y)
        IMPLICIT NONE
        REAL*4 X,Y
C
        INCLUDE DIGLIB$KOM:GCCLIP.PRM
C
C
        GSIVIS = 0
D	WRITE(9,123)X,Y,XCM0,XCM1,YCM0,YCM1
D123 	FORMAT(1X,"GSIVIS",6F6.2)
        IF (X .LT. XCM0) GSIVIS = 1
        IF (X .GT. XCM1) GSIVIS = GSIVIS + 2
        IF (Y .LT. YCM0) GSIVIS = GSIVIS + 4
        IF (Y .GT. YCM1) GSIVIS = GSIVIS + 8
        RETURN
        END
