* ************************************************************************ subroutine sxdej(xstat) * ************************************************************************ * Purpose : * --------- * This routine modifies the status XSTAT to correspond to the * status of one independent superbasic set that needs to be * de-joined. * The seventh bit of the integer XSTAT is set to one. * 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 * 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.0 ) xstat = xstat + 64 return end