function r8_nth_root_test ( )

%*****************************************************************************80
%
%% R8_NTH_ROOT_TEST tests R8_NTH_ROOT.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    03 August 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8_NTH_ROOT_TEST\n' );
  fprintf ( 1, '  R8_NTH_ROOT computes the nth root of an R8.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '         X        -3        -2        -1         0         1         2         3\n' );
  fprintf ( 1, '\n' );

  x = linspace ( -3, +3, 7 );

  for i = 1 : 7

    fprintf ( 1, '  %8.4g', x(i) );

    for n = -3 : 3
      y = r8_nth_root ( x(i), n );
      fprintf ( 1, '  %8.4g', y );
    end

    fprintf ( 1, '\n' );

  end

  return
end
