function rmin_test ( )

%*****************************************************************************80
%
%% rmin_test() tests rmin().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 July 2024
%
%  Author:
%
%    John Burkardt
% 
  fprintf ( 1, '\n' );
  fprintf ( 1, 'rmin_test():\n' );
  fprintf ( 1, '  rmin() returns r, the smallest power of 2 such than\n' );
  fprintf ( 1, '  2^r is bigger than any of x, y and z.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '   x   y   z   r   2^r\n' );
  fprintf ( 1, '\n' );

  for test = 1 : 20
    x = i4_random_ab ( 0, 10 );
    y = i4_random_ab ( 0, 6 );
    z = i4_random_ab ( 0, 4 );
    r = rmin ( x, y, z );
    fprintf ( 1, '  %2d  %2d  %2d  %2d  %4d\n', x, y, z, r, 2^r );
  end

  return
end
