function r8row_part_quick_a_test ( )

%*****************************************************************************80
%
%% r8row_part_quick_a_test() tests r8row_part_quick_a().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    28 February 2016
%
%  Author:
%
%    John Burkardt
%
  m = 8;
  n = 2;

  a = [ ...
    2.0, 4.0; ...
    8.0, 8.0; ...
    6.0, 2.0; ...
    0.0, 2.0; ...
   10.0, 6.0; ...
   10.0, 0.0; ...
    0.0, 6.0; ...
    5.0, 8.0 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8ROW_PART_QUICK_A_TEST\n' );
  fprintf ( 1, '  R8ROW_PART_QUICK_A partitions an R8ROW matrix.\n' );

  r8row_print ( m, n, a, '  The matrix:' );

  [ a, l, r ] = r8row_part_quick_a ( m, n, a );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  L = %d\n', l );
  fprintf ( 1, '  R = %d\n', r );

  r8row_print ( m, n, a, '  The partitioned matrix:' );

  return
end
