function r8vec_transpose_print ( n, a, title )

%*****************************************************************************80
%
%% r8vec_transpose_print() prints an R8VEC "transposed".
%
%  Discussion:
%
%    An R8VEC is a vector of R8's.
%
%  Example:
%
%    A = (/ 1.0, 2.1, 3.2, 4.3, 5.4, 6.5, 7.6, 8.7, 9.8, 10.9, 11.0 /)
%    TITLE = 'My vector:  '
%
%    My vector:   1.0    2.1    3.2    4.3    5.4
%                 6.5    7.6    8.7    9.8   10.9
%                11.0
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    11 May 2014
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the number of components of the vector.
%
%    real A(N), the vector to be printed.
%
%    string TITLE, a title.
%
  title_length = length ( title );

  for ilo = 1 : 5 : n
    if ( ilo == 1 )
      fprintf ( 1, '%s', title );
    else
      for i = 1 : title_length
        fprintf ( 1, ' ' );
      end
    end
    fprintf ( 1, '  ' );
    ihi = min ( ilo + 5 - 1, n );
    for i = ilo : ihi
      fprintf ( 1, '  %12g', a(i) );
    end
    fprintf ( 1, '\n' );
  end

  return
end
