function i4rows_to_i4mat_test ( )

%*****************************************************************************80
%
%% I4ROWS_TO_I4MAT_TEST tests I4ROWS_TO_I4MAT.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 September 2018
%
%  Author:
%
%    John Burkardt
%
  m = 3
  n = 4
  i4rows = [ ...
    11, 12, 13, 14, ...
    21, 22, 23, 24, ...
    31, 32, 33, 34 ];

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

  i4vec_print ( m * n, i4rows, '  The data vector:' );

  i4mat = i4rows_to_i4mat ( m, n, i4rows );

  i4mat_print ( m, n, i4mat, '  The data copied into an array:' );

  return
end
