function r8vec_write_test ( )

%*****************************************************************************80
%
%% r8vec_write_test() tests r8vec_write().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    23 July 2014
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8VEC_WRITE_TEST\n' );
  fprintf ( 1, '  R8VEC_WRITE writes an R8VEC file.\n' );

  n = 10;
  r8vec = rand ( n, 1 );

  r8vec_print ( n, r8vec, '  R8VEC data:' );

  filename = 'r8vec_10.txt';
  r8vec_write ( filename, n, r8vec );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Wrote the file "%s".\n', filename );

  return
end
