function grid_side_test ( )

%*****************************************************************************80
%
%% GRID_SIDE_TEST tests GRID_SIDE.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    22 August 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'GRID_SIDE_TEST\n' );
  fprintf ( 1, '  GRID_SIDE returns the smallest N_SIDE, such that\n' );
  fprintf ( 1, '  N <= NSIDE^M\n' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  M      N  NSIDE  NSIDE^M\n' );

  for m = 2 : 4
    fprintf ( 1, '\n' );
    for n_log10 = 1 : 4
      n = 10 ^ n_log10;
      n_side = grid_side ( m, n );
      fprintf ( 1, '  %1d  %5d  %5d  %5d\n', m, n, n_side, n_side ^ m );
    end
  end

  return
end

