function bv = bkmcheck(k,m)
%
%  Name: bkmcheck
%
%  Usage: bv = bkmcheck(k,m)
%
%  Description: Subroutine of bkm_comp -- checks
%		value of k and m to see which
%		formula applies
%

%  Version SWD960409
%
%  Author(s): Scott W. Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%		ESA-EA
%
%  Copyright (c) 1996, The Regents of the University
%     	of California. (See top level of code for
%	full copyright statement.)


if k < 0 | k > m,

    bv = 0;

elseif k == m,

    bv = 1;

else

    bv = -1;  % Need to use full formula (or do table lookup)

end


return

