function r8vec_print_some ( n, a, max_print, title )

%*****************************************************************************80
%
%% r8vec_print_some() prints "some" of an R8VEC.
%
%  Discussion:
%
%    The user specifies MAX_PRINT, the maximum number of lines to print.
%
%    If N, the size of the vector, is no more than MAX_PRINT, then
%    the entire vector is printed, one entry per line.
%
%    Otherwise, if possible, the first MAX_PRINT-2 entries are printed,
%    followed by a line of periods suggesting an omission,
%    and the last entry.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    25 September 2013
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the number of entries of the vector.
%
%    real A(N), the vector to be printed.
%
%    integer MAX_PRINT, the maximum number of lines
%    to print.
%
%    string TITLE, a title.
%
  if ( max_print <= 0 )
    return
  end

  if ( n <= 0 )
    return
  end

  fprintf ( 1, '\n' );
  fprintf ( 1, '%s\n', title );
  fprintf ( 1, '\n' );

  if ( n <= max_print )

    for i = 1 : n
      fprintf ( 1, '  %6d  %14g\n', i, a(i) );
    end

  elseif ( 3 <= max_print )

    for i = 1 : max_print - 2
      fprintf ( 1, '  %6d  %14g\n', i, a(i) );
    end
    fprintf ( 1, '  ......  ..............\n' );
    i = n;
    fprintf ( 1, '  %6d  %14g\n', i, a(i) );

  else

    for i = 1 : max_print - 1
      fprintf ( 1, '  %6d  %14g\n', i, a(i) );
    end
    i = max_print;
    fprintf ( 1, '  %6d  %14g  ...more entries...\n', i, a(i) );

  end

  return
end
