function [ab,Ncap,kount]=r_lower_subrange_jacobi(N,eps0,c,alpha,beta)
%R_LOWER_SUBRANGE_JACOBI Recurrence coefficients for lower subrange
%Jacobi weight functions.
%   [AB,NCAP,KOUNT]=R_LOWER_SUBRANGE_JACOBI(N,EPS0,C,ALPHA,BETA)
%   generates to a relative accuracy EPS0 the Nx2 array AB of
%   recurrence coefficients for the weight function
%               w(x(t;C)), -1<t<1, -1<C<1,
%   where w is the Jacobi weight function with parameters ALPHA,
%   BETA and
%                x(t;C)=.5(1+C)t-.5(1-C).
%   NCAP and KOUNT are output variables inherited from the routine
%   mcdis.m. If an error message appears, try to increase Nmax.
% 
global mc mp iq idelta irout AB
global alpha beta c
mc=2; mp=0; iq=1; idelta=1; irout=1; AB=[[-1 0];[0 1]];
Nmax=3000;
[ab,Ncap,kount]=mcdis(N,eps0,@quadlsubj,Nmax);
