function r8scf_evaluate_test ( )

%*****************************************************************************80
%
%% R8SCF_EVALUATE_TEST tests R8SCF_EVALUATE.
%
%  Licensing:
%
%    I don't care what you do with this code.
%
%  Modified:
%
%    03 August 2017
%
%  Author:
%
%    John Burkardt
%
  n = 19;

  a = [ ...
    3.0, 7.0, 15.0, 1.0, 292.0, ...
    1.0, 1.0,  1.0, 2.0,   1.0, ...
    3.0, 1.0, 14.0, 2.0,   1.0, ...
    1.0, 2.0,  2.0, 2.0,   2.0 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8SCF_EVALUATE_TEST:\n' );

  [ p, q ] = r8scf_evaluate ( n, a );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  SCF numerators, denominators, ratios:\n' );
  fprintf ( 1, '\n' );

  for i = 0 : n
    fprintf ( 1, '  %2d  %14d  %14d  %24.16g\n', ...
      i, p(i+1), q(i+1), p(i+1) / q(i+1) );
  end

  return
end
