* ************************************************************************ logical function gxdeja(xstat) * ************************************************************************ * Purpose : * --------- * This function checks if the status XSTAT corresponds to the * status of a superbasic variable that belongs to one independent * superbasic set that needs to be dejoined. * Parameters : * ------------ * xstat ( int ) * input : the status of the considered variable. * output : unmodified. * gxdeja ( log ) * input : meaningless. * output : .true. iff the status XSTAT corresponds to the * status of a superbasic variable that * belongs to one independent superbasic * set that needs to be dejoined. * .false. otherwise. * Routines used : * --------------- * None. * Programming : * ------------- * D. Tuyttens * ======================================================================== * Routine parameter integer xstat * Internal variable integer aux aux = xstat / 128 gxdeja = mod(aux,2).eq.1 return end