function asa266_test02 ( )

%*****************************************************************************80
%
%% asa266_test02() tests ppnd(), r8_normal_01_cdf_inverse().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 January 2021
%
%  Author:
%
%    John Burkardt
%
  ntest = 9;

  ifault = 0;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'asa266_test02()\n' );
  fprintf ( 1, '  ppnd(),\n' );
  fprintf ( 1, '  r8_normal_01_cdf_inverse() compute the percentage\n' );
  fprintf ( 1, '  points of the normal distribution.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  CDF, PPND(CDF), R8(CDF)\n' );
  fprintf ( 1, '\n' );

  for i = 1 : ntest

    cdf = i / ( ntest + 1 );

    [ x1, ifault ] = ppnd ( cdf );
    x3 = r8_normal_01_cdf_inverse ( cdf );

    fprintf ( 1, '  %12f  %12f  %12f\n', cdf, x1, x3 );

  end

  return
end
