function ab=sr_log1pe_0Inf(nofdig,N)
%SR_LOG1PE_0INF Recurrence coefficients for a half-range
%Binet-like weight function.
%   AB=SR_LOG1PE_0INF(NOFDIG,N) generates in DIG-digit arithmetic
%   the Nx2 array AB of the first N recurrence coefficients for
%   for the weight function w(x)=log(1+exp(-x)) on [0,Inf] using
%   a 1-component discretization procedure. The variable DIG must
%   be entered when prompted. 

global mc mp iq idelta irout dig eps0 ablag
tic
dig=input('enter the value of dig');
mc=1; mp=0; iq=1; idelta=2; irout=1; eps0=.5*10^(-nofdig)
Mmax=2000; ablag=sr_laguerre(dig,Mmax);
ab=smcdis(dig,N,eps0,@squad_log1pe_0Inf,Mmax);
ab=vpa(ab,nofdig);
toc
