        SUBROUTINE GSRCLP(AREA)
        DIMENSION AREA(4)
C
C       THIS SUBROUTINE RESTORES A SAVED ABSOLUTE CLIPPING WINDOW PREVIOUSLY
C        SAVED BY "GSSCLP".   NO ERROR CHECKING IS PERFORMED HERE!!!
C
        INCLUDE DIGLIB$KOM:GCCLIP.PRM
C
        XCM0 = AREA(1)
        XCM1 = AREA(2)
        YCM0 = AREA(3)
        YCM1 = AREA(4)
        RETURN
        END
