function ip = intPartdb(value)
%
ip = floor(value)
fprintf('quarters(%.2f) = %d\n', value, quarters(value))
if(value > 0 & quarters(value) == 0)
    fprintf('Inside ''if'', value = %.2f\n',value);
    ip = round(value)
end

function nq=quarters(value)
%
% Find the nearest 1/4
%
nq = mod(round(value*4),4);
