function value = f8 ( x )

%*****************************************************************************80
%
%% F8 evaluates a certain polynomial using Horner's method.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    24 August 2017
%
%  Author:
%

%
%  Parameters:
%
%    Input, real X, the argument of the polynomial.
%
%    Output, real VALUE, the value of the polynomial.
%
  n = 3;
  c = [ 18.601, 168.97, -356.41, 170.4 ];

  value = r8poly_value_horner ( n, c, x );

  return
end