function [ab,Mcap,kount]=sr_lagsymm(nofdig,N)
%SR_LAGSYMM Recurrence coefficients for the symmetric Laguerre
%weight function
%   [AB,MCAP,KOUNT]=SR_LAGSYMM(N) generates in DIG-digit arithmetic
%   the first N recurrence coefficients for the weight function
%   w(x)=exp(-|x|) on [-Inf,Inf], using a 2-component discretization
%   procedure, and places them to NOFDIG digits into the Nx2 array AB.
%   The variable DIG must be entered when prompted. The output
%   variables MCAP, KOUNT are inherited from the routine smcdis.m.

global mc mp iq idelta irout dig eps0
dig=input('enter the value of dig')
eps0=.5*10^(-nofdig);
mc=2; mp=0; iq=1; idelta=2; irout=1; Mmax=300;
[ab,Mcap,kount]=smcdis(dig,N,eps0,@squad_lagsymm,Mmax);
ab=vpa(ab,nofdig);
