function gegenbauer_alpha_check_test ( )

%*****************************************************************************80
%
%% GEGENBAUER_ALPHA_CHECK_TEST compares GEGENBAUER_ALPHA_CHECK.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license. 
%
%  Modified:
%
%    23 November 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'GEGENBAUER_ALPHA_CHECK_TEST\n' );
  fprintf ( 1, '  GEGENBAUER_ALPHA_CHECK checks that ALPHA is legal;\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '       ALPHA   Check?\n' );
  fprintf ( 1, '\n' );

  seed = 123456789;

  for n = 1 : 10

    [ alpha, seed ] = r8_uniform_ab ( -5.0, +5.0, seed );
    check = gegenbauer_alpha_check ( alpha );
    fprintf ( 1, '  %10.4f       %1d\n', alpha, check );

  end

  return
end

