function ab=sr_ellcheb(dig,nofdig,N,om2)
%SR_ELLCHEB Recurrence coefficients for the elliptic Chebyshev 
%weight function.
%   AB=SR_ELLCHEB(N,OM2) generates in DIG-digit arithmetic the 
%   first N recurrence coefficients for the weight function
%   W(X)=[(1-OM2*X^2)*(1-X^2)]^{-1/2} on [-1,1], 0<OM2<1, and
%   places them to NOFDIG digits into the Nx2 array AB.
%
abm=sr_jacobi(dig,2*N-1,-1/2);
mom=smm_ellcheb(dig,N,om2);
ab=schebyshev(dig,N,mom,abm);
ab=vpa(ab,nofdig);
