function y=qlog(x), I=(x==0); x(I)=1; y=log(x); y(I)=-inf; end
% qlog - quiet log (no warning when x=0)
% 
% qlog :: [[D]] -> [[D]].

