function r8vec_nint_test ( )

%*****************************************************************************80
%
%% r8vec_nint_test() tests r8vec_nint().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    06 December 2014
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8VEC_NINT_TEST\n' );
  fprintf ( 1, '  R8VEC_NINT rounds an R8VEC.\n' );

  n = 5;
  x1 = -5.0;
  x2 = +5.0;
  a = x1 + ( x2 - x1 ) * rand ( n, 1 );
 
  r8vec_print ( n, a, '  Vector A:' );
  a = r8vec_nint ( n, a );
  r8vec_print ( n, a, '  Rounded vector A:' );

  return
end
