Previous: utdpcr Up: ../plot79_u.html Next: utdran

UTDPV

       DOUBLE PRECISION FUNCTION  UTDPV (C, N, X)
 C$    (Polynomial - Value)
 C$    Compute the value of a polynomial of degree N at a point by
 C$    nested multiplication (Horner's Rule).  The function  value
 C$    and the arguments C(*) and  X are all DOUBLE PRECISION  for
 C$    maximal precision.  The input arguments are:
 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$    N.........Order of the polynomial.
 C$    X.........Point at which polynomial is to be evaluated.
 C$
 C$    Adapted from Harwell Subroutine Library routine PB01AD.
 C$    (27-JAN-83)