*     ************************************************************************

      subroutine snxdej(xstat)

*     ************************************************************************

*     Purpose :
*     ---------

*     This routine modifies the status XSTAT to correspond to the
*     status of one independent superbasic set that needs not to
*     be de-joined.

*     The seventh bit of the integer XSTAT is set to zero.

*     Parameter :
*     -----------

*     xstat   ( int )

*       input  : the status of the independent superbasic set.
*       output : the updated status corresponds to the status
*                of one independent superbasic set that needs
*                not to be de-joined.

*     Routines used :
*     ---------------

*     None.

*     Programming :
*     -------------

*     D. Tuyttens

*     ========================================================================

*     Routine parameter

      integer  xstat

*     Internal variable

      integer  aux

      aux = xstat / 64
      if( mod(aux,2).eq.1 ) xstat = xstat - 64

      return
      end