%% TEST11 tests CC_ABSCISSA_LEVEL_1D.
%
%  Modified:
%
%    23 March 2007
%
%  Author:
%
%    John Burkardt
%
  clear

  fprintf ( 1, '\n' );
  fprintf ( 1, 'TEST11\n' );
  fprintf ( 1, '  CC_ABSCISSA_LEVEL_1D reports the level on which\n' );
  fprintf ( 1, '  a Clenshaw Curtis abscissa of given index will first\n' );
  fprintf ( 1, '  be generated, assuming a series of grids that grow\n' );
  fprintf ( 1, '  in order as 2^LEVEL+1.\n' );

  base = 5;
  order = 2^base + 1;
  test_num = 2^base + 1;

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Base B = %d\n', base );
  fprintf ( 1, '  ORDER 2^B+1 = %d\n', order );

  test_val = zeros ( 1, test_num );

  for i = 1 : test_num
    test_val(i) = i - 1;
  end

  test_level = cc_abscissa_level_1d ( base, test_num, test_val );

  fprintf ( 1, '\n' );
  fprintf ( 1, '         I  Level(I)\n' );
  fprintf ( 1, '\n' );

  for i = 1 : test_num
    fprintf ( 1, '  %8d  %8d\n', test_val(i), test_level(i) );
  end

  test_level = [];
  test_val = [];