function i4scf_evaluate_test ( )

%*****************************************************************************80
%
%% i4scf_evaluate_test() tests i4scf_evaluate().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    04 August 2017
%
%  Author:
%
%    John Burkardt
%
  n = 19;

  a = [ ...
    3, 7, 15, 1, 292, ...
    1, 1,  1, 2,   1, ...
    3, 1, 14, 2,   1, ...
    1, 2,  2, 2,   2 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'i4scf_evaluate_test():\n' );
  fprintf ( 1, '  Test i4scf_evaluate():\n' );

  [ p, q ] = i4scf_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
