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