function r8mat_uniform_abvec_test ( )

%*****************************************************************************80
%
%% R8MAT_UNIFORM_ABVEC_TEST tests R8MAT_UNIFORM_ABVEC.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    21 February 2016
%
%  Author:
%
%    John Burkardt
%
  m = 5;
  n = 4;
  a = [  2.0, 0.0, -1.0, 100.0, 0.1 ];
  b = [ 10.0, 1.0,  0.0, 110.0, 0.2 ];
  seed = 123456789;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8MAT_UNIFORM_ABVEC_TEST\n' );
  fprintf ( 1, '  R8MAT_UNIFORM_ABVEC sets an R8MAT to random values in [A,B]\n' );
  fprintf ( 1, '  where A and B are vectors of row limits.\n' );
  fprintf ( 1, '  Using initial random number seed = %d\n', seed );

  r8vec2_print ( m, a, b, '  Lower and upper row limits:' );

  [ v, seed ] = r8mat_uniform_abvec ( m, n, a, b, seed );

  r8mat_print ( m, n, v, '  The random matrix:' );

  return
end
