function clenshaw_curtis_test07 ( )

%% TEST07 tests DTABLE_WRITE.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    20 March 2007
%
%  Author:
%
%    John Burkardt
%
  dim_num = 1;
  order = 9;

  w_file = 'cc_w_d1_o9.txt';
  x_file = 'cc_x_d1_o9.txt';

  fprintf ( 1, '\n' );
  fprintf ( 1, 'TEST07\n' );
  fprintf ( 1, '  DTABLE_WRITE writes a Clenshaw-Curtis\n' );
  fprintf ( 1, '  quadrature rule to a file.\n' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Spatial dimension = %d\n', dim_num );
  fprintf ( 1, '  Computing the rule of order = %d\n', order );

  [ x, w ] = clenshaw_curtis_compute ( order );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Write abscissas to file "%s".\n', x_file );

  dtable_write ( x_file, dim_num, order, x, 0 );

  fprintf ( 1, '  Write weights to file "%s".\n', w_file );

  dtable_write ( w_file, 1, order, w, 0 );

  return
end