* ************************************************************************ subroutine sxndis(xstat) * ************************************************************************ * Purpose : * --------- * This routine modifies the status XSTAT to correspond to the * status of a node that belongs to the subgraph used during * the minimization procedure. * The sith bit of the integer XSTAT is set to one. * Parameter : * ----------- * xstat ( int ) * input : the status of the considered node. * output : the updated status corresponds to the * status of a node that belongs to the * subgraph used during the minimization * procedure. * Routines used : * --------------- * None. * Programming : * ------------- * D. Tuyttens * ======================================================================== * Routine parameter integer xstat * Internal variable integer aux aux = xstat / 32 if( mod(aux,2).eq.0 ) xstat = xstat + 32 return end