* ************************************************************************ logical function gxbdg(xstat) * ************************************************************************ * Purpose : * --------- * This function checks if the status XSTAT corresponds to the * status of a variable that is at one of its bounds. * Parameters : * ------------ * xstat ( int ) * input : the status of the considered variable. * output : unmodified. * gxbdg ( log ) * input : meaningless. * output : .true. iff the status XSTAT corresponds to the * status of a variable that is at one of * its bounds. * .false. otherwise. * Routines used : * --------------- * None. * Programming : * ------------- * D. Tuyttens * ======================================================================== * Routine parameter integer xstat * Internal variable integer aux aux = xstat / 16 gxbdg = mod(aux,2).eq.1 return end