function value = r8poly_is_zero ( d, c )

%*****************************************************************************80
%
%% r8poly_is_zero() is TRUE if a polynomial is the zero polynomial.
%
%  Discussion:
%
%    The power sum form of a polynomial is:
%
%      p(x) = c(0) + c(1) * x + ... + c(n-1) * x^(n-1) + c(n) * x^(n)
%
%    Because MATLAB doesn't allow 0 indexing, we use an adjusted formula:
%
%      p(x) = c(1) + c(2) * x + ... + c(n) * x^(n-1) + c(n+1) * x^(n)
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 October 2018
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer D: the degree.
%
%    real C(D+1): the coefficients of the polynomials.
%
%  Output:
%
%    logical VALUE: TRUE if the polynomial is the zero polynomial.
%
  if ( d < 0 )
    value = true;
    return
  end

  value = ( all ( c == 0.0 ) );
 
  return
end
