%lntden_r.m: Procedure to evaluate truncated lognormal transition
%density.
% John Rust, Yale University, July, 1999
function[y]=lntden_r(r);
global rmax qa lnmu lnsig lnmx
y=(exp((-(log(r)-lnmu).^2)/(2*lnsig.^2))./(sqrt(2*pi)*lnsig*(r)))/norm1((log(lnmx)-lnmu)/lnsig);