C       HYSAT -GPI HANDLER
        SUBROUTINE HANDLE
        LOGICAL Z
        COMMON/E/Z
        Z=.TRUE.
        RETURN
        END
