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