function ab=sr_Knu(dig,nofdig,N,nu)
%SR_KNU Recurrence coefficients for the modified Bessel weight
%function
%SR_KNU(DIG,NOFDIG,N,NU) generates the first N recurrence
%    coefficients in DIG-digit arithmetic for the weight function
%    W(X)=C_NU*K_NU(X) on [0,INF], C_NU=2*COS(NU*PI/2)/PI, and
%    places them into the Nx2 array AB.

digits(dig);
mom=smom_Knu(dig,N,nu);
ab=schebyshev(dig,N,mom');
ab=vpa(ab,nofdig);
