* ************************************************************************ 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