function [ab,Mcap,kount]=sr_cBspline_dis(dig,N,eps0,m)
%SR_CBSPLINE_DIS Symbolic analogue of r_cBspline_dis.m

global mc mp iq idelta irout 
digits(dig);
mc=m; mp=0; iq=1; idelta=2; irout=1; Mmax=1000;
[ab,Mcap,kount]=smcdis(dig,N,eps0,@quad_scBspline,Mmax);
ab(:,1)=vpa((m/2)*ones(N,1));
