function grid_generate_test ( center, seed )

%*****************************************************************************80
%
%% GRID_GENERATE_TEST tests GRID_GENERATE.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
  m = 2;
  n = 10;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'GRID_GENERATE_TEST\n' );
  fprintf ( 1, '  GRID_GENERATE randomly chooses a given number of\n' );
  fprintf ( 1, '  points on a uniform grid.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Spatial dimension =  %d\n', m );
  fprintf ( 1, '  Number of points =   %d\n', n );
  fprintf ( 1, '  Random number SEED = %d\n', seed );
  fprintf ( 1, '  Centering option =   %d\n', center );

  [ x, seed ] = grid_generate ( m, n, center, seed );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  The grid points:\n' );
  fprintf ( 1, '\n' );

  for j = 1 : n
    for i = 1 : m
      fprintf ( 1, '%f  ', x(i,j) );
    end
    fprintf ( 1, '\n' );
  end

  return
end
