function r8_normal_ab_test ( )

%*****************************************************************************80
%
%% r8_normal_ab_test() tests r8_normal_ab().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    14 May 2015
%
%  Author:
%
%    John Burkardt
%
  x_mean = 100.0;
  x_std = 10.0;
  test_num = 20;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8_NORMAL_AB_TEST\n' );
  fprintf ( 1, '  R8_NORMAL_AB generates normally distributed\n' );
  fprintf ( 1, '  values with given mean and standard deviation.\n' );
  fprintf ( 1, '  MEAN = %g\n', x_mean );
  fprintf ( 1, '  STD = %g\n', x_std );
  fprintf ( 1, '\n' );

  for test = 1 : test_num

    x = r8_normal_ab ( x_mean, x_std );
    fprintf ( 1, '  %f\n', x );

  end

  return
end
