function r8rows_to_r8mat_test ( )

%*****************************************************************************80
%
%% R8ROWS_TO_R8MAT_TEST tests R8ROWS_TO_R8MAT.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    10 September 2018
%
%  Author:
%
%    John Burkardt
%
  m = 3
  n = 4
  r8rows = [ ...
    11.0, 12.0, 13.0, 14.0, ...
    21.0, 22.0, 23.0, 24.0, ...
    31.0, 32.0, 33.0, 34.0 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8ROWS_TO_R8MAT_TEST\n' );
  fprintf ( 1, '  R8ROWS_TO_R8MAT allows an R8MAT to be initialized\n' );
  fprintf ( 1, '  by data stored ROW-WISE in a vector.\n' );

  r8vec_print ( m * n, r8rows, '  The data vector:' );

  r8mat = r8rows_to_r8mat ( m, n, r8rows );

  r8mat_print ( m, n, r8mat, '  The data copied into an array:' );

  return
end
