Previous: utdpcp Up: ../plot79_u.html Next: utdpv

UTDPCR

       SUBROUTINE  UTDPCR (C, N, ROOT)
 C$    (Polynomial - Coefficients from Roots)
 C$    Given  the   N  roots   of  a   polynomial,  evaluate   its
 C$    coefficients by generating polynomials P(K) as follows;
 C$
 C$    P(1) = X - ROOT(1)
 C$
 C$    P(K+1) = (X - ROOT(K))*P(K)     K=1,...N-1
 C$
 C$    The output argument is:
 C$
 C$    C(*)......Coefficients such that the polynomial is
 C$              P(x) = C(1) + C(2)*x + C(3)*x**2 + ... +
 C$              C(N+1)*x**N
 C$
 C$    The input arguments are:
 C$
 C$    N.........Order of the polynomial.
 C$    ROOT(*)...N real roots of the polynomial.
 C$
 C$    Adapted from Harwell Subroutine Library routine PC01AD.
 C$    (27-JAN-83)