function [ab,Mcap,kount]=r_morse(N)
%R_MORSE Recurrence coefficients for the Morse weight
%function.
%   [AB,MCAP,KOUNT]=R_MORSE(N) generates the Nx2 array AB 
%   of the first N recurrence coefficients for the weight
%   function w(x)=exp(-5x+6(exp(-x)-1)) on [0,Inf]. The
%   output variables MCAP and KOUNT are inherited from the 
%   rotuine mcdis.m.

global mc mp iq idelta irout DM AB eps0 
mp=0; mc=6; iq=0; idelta=1; irout=0; 
AB=[[0 .25];[.25 .5];[.5 1];[1 2];[2 4];[4 Inf]]; DM=[0 0];
eps0=.5e-12; Mmax=4000;
[ab,Mcap,kount]=mcdis(N,eps0,@quadgp,Mmax);
