* ************************************************************************ logical function gxnbl(xstat) * ************************************************************************ * Purpose : * --------- * This function checks if the status XSTAT corresponds to the * status of a nonbasic variable that is at his lower bound. * Parameters : * ------------ * xstat ( int ) * input : the status of the considered variable. * output : unmodified. * gxnbl ( log ) * input : meaningless. * output : .true. iff the status XSTAT corresponds to * the status of a nonbasic variable * that is at his lower bound. * .false. otherwise. * Routines used : * --------------- * None. * Programming : * ------------- * D. Tuyttens * ======================================================================== * Routine parameter integer xstat gxnbl = mod(xstat,8).eq.2 return end