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

      subroutine sxsu(xstat)

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

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

*     This routine modifies the status XSTAT to correspond to the
*     status of a superbasic variable.
*     The superbasic status supersedes the basic and the nonbasic
*     status.

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

*     xstat   ( int )

*       input  : the status of the considered variable.
*       output : the updated status corresponds to the
*                the status of a superbasic variable.

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

*     None.

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

*     D. Tuyttens

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

*     Routine parameter

      integer  xstat

      xstat = xstat - mod(xstat,8) + 1

      return
      end