function c2 = r8poly_ant_coef ( d1, c1 )

%*****************************************************************************80
%
%% r8poly_ant_coef() integrates a polynomial in standard form.
%
%  Discussion:
%
%    The antiderivative of a polynomial P(X) is any polynomial Q(X)
%    with the property that d/dX Q(X) = P(X).
%
%    This routine chooses the antiderivative whose constant term is zero.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    17 November 2019
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer D1, the order of the polynomial.
%
%    real C(1:D1+1), the polynomial coefficients.
%    C(1) is the constant term, and C(D1+1) is the
%    coefficient of X^D1.
%
%  Output:
%
%    real C2(1:D2+1), the coefficients of
%    the antiderivative polynomial, in standard form.  The constant
%    term is set to zero.
%
  d2 = d1 + 1;
  c2 = zeros ( d2 + 1, 1 );
  c2(1) = 0.0;
  for i = 2 : d2 + 1
    c2(i) = c1(i-1) / ( i - 1 );
  end

  return
end
