function r8_to_i4scf_test ( )

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

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

  r = pi;

  a = r8_to_i4scf ( r, n );

  i4vec_print ( n + 1, a, '  SCF coefficients:' );

  [ 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
