function angle_shift_test ( )

%*****************************************************************************80
%
%% angle_shift_test() tests angle_shift().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    28 June 2017
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'angle_shift_test():\n' );
  fprintf ( 1, '  angle_shift() shifts angle ALPHA to lie between\n' );
  fprintf ( 1, '  BETA and BETA+2 PI.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '           ALPHA          BETA   ALPHA_SHIFT     BETA+2 PI\n' );
  fprintf ( 1, '\n' );

  beta = 10.0 * rand ( 1, 1 );
  
  for i = 1 : 10
    alpha = - 10.0 + 20.0 * rand ( 1, 1 );
    alpha2 = angle_shift ( alpha, beta );
    fprintf ( 1, '  %12f  %12f  %12f  %12f\n', alpha, beta, alpha2, beta + 2.0 * pi );
  end

  return
end
