function ab=sr_explog1inf(nofdig,N)
%SR_EXPLOG01INF Recurrence coefficients for a weight function on
%[1,Inf] with an algebraic/extended-logarithmic singularity.
%   AB=SR_EXPLOG01INF(DIG,NOFDIG,N) generates in DIG-digit arithmetic
%   the first N recurrence coefficients for the weight function
%   w(x)=exp(-x)*log(1+1/x) on [1,Inf], using a 1-component 
%   discretization procedure, and places them to NOFDIG digits
%   into the Nx2 array AB. The variable DIG must be entered when
%   prompted. 

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