function ccfi_0_asymptotic_test ( )

%*****************************************************************************80
%
%% ccfi_0_asymptotic_test() tests the CCFI_0 quadrature rule.
%
%  Discussion:
%
%    The Laguerre integral being approximated is
%      integral ( 0 <= x < +oo ) f(x) exp ( -x ) dx
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    21 May 2014
%
%  Author:
%
%    John Burkardt
%
  n_min = 5;
  n_inc = 5;
  n_max = 50;
  f_integral = flag_0_integral ( );
  ell = 1.0;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'CCFI_0_ASYMPTOTIC_TEST\n' );
  fprintf ( 1, '  Examine asymptotic quadrature error for Boyd''s\n' );
  fprintf ( 1, '  quadrature rule for the Laguerre integral.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  CCFI_0:\n' );
  fprintf ( 1, '    I(f) = integral ( 0 <= x < +oo ) f(x) exp(-x) dx\n' );
  fprintf ( 1, '  with\n' );
  fprintf ( 1, '    f(x) = x / (exp(x)-1)\n' );
  fprintf ( 1, '  I(f) = %g\n', f_integral );

  ccfi_0_asymptotic ( n_min, n_inc, n_max, @flag_0, f_integral, ell );

  return
end
