function poly_print ( c )

%*****************************************************************************80
%
%% poly_print prints a polynomial.
%
%  Input:
%
%    real c(d+1): the coefficients of the polynomial.
%
  d = length ( c ) - 1;
  for i = 0 : d
    fprintf ( '%g x^%d\n', c(i+1), i );
  end
  return
end
