function l=findl(lam,t)
%
% returns total probability (should be 1.0)
%
l= sum(sum(opt(t,lam))) ;
