function r8vec2_print_some_test ( )

%*****************************************************************************80
%
%% R8VEC2_PRINT_SOME_TEST tests R8VEC2_PRINT_SOME.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 February 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8VEC2_PRINT_SOME_TEST\n' );
  fprintf ( 1, '  R8VEC2_PRINT_SOME prints some of a pair of R8VEC''s.\n' );

  n = 100;
  a = zeros ( n, 1 );
  b = zeros ( n, 1 );

  for i = 1 : n
    a(i) = i * i;
    b(i) = sqrt ( i );
  end

  r8vec2_print_some ( n, a, b, 10, '  No more than 10 lines of two vectors:' );

  return
end