%SR_LSRBINET Recurrence coefficients for a lower sub-range
%Binet weight function.
function ab=sr_lsrbinet(N)
global dig ab_hrbinet ab_usrbinet mc mp iq idelta irout
dig=32;
ab_hrbinet=loadvpa('coeff_hrbinet.txt',9,32,100,2);
ab_usrbinet=loadvpa('coeff_usrbinet.txt',9,32,100,2);
mc=2; mp=0; iq=1; idelta=2; irout=1; 
eps0=1; Mmax=N;
[ab,Mcap,kount]=smcdis(dig,N,eps0,@squad_lsrbinet,Mmax);
[Mcap,kount]
