* ************************************************************************ subroutine sxbdg(xstat) * ************************************************************************ * Purpose : * --------- * This routine modifies the status XSTAT to correspond to the * status of a variable that is at one of its bounds. * The fifth bit of the integer XSTAT is set to one. * Parameter : * ----------- * xstat ( int ) * input : the status of the considered variable. * output : the updated status corresponds to the * status of a variable that is at one * of its bounds. * Routines used : * --------------- * None. * Programming : * ------------- * D. Tuyttens * ======================================================================== * Routine parameter integer xstat * Internal variable integer aux aux = xstat / 16 if( mod(aux,2).eq.0 ) xstat = xstat + 16 return end