*DECK CPEVL SUBROUTINE CPEVL (N, M, A, Z, C, B, KBD) C***BEGIN PROLOGUE CPEVL C***SUBSIDIARY C***PURPOSE Subsidiary to CPZERO C***LIBRARY SLATEC C***TYPE SINGLE PRECISION (CPEVL-S) C***AUTHOR (UNKNOWN) C***DESCRIPTION C C Evaluate a complex polynomial and its derivatives. C Optionally compute error bounds for these values. C C INPUT... C N = Degree of the polynomial C M = Number of derivatives to be calculated, C M=0 evaluates only the function C M=1 evaluates the function and first derivative, etc. C if M .GT. N+1 function and all N derivatives will be C calculated. C A = Complex vector containing the N+1 coefficients of polynomial C A(I)= coefficient of Z**(N+1-I) C Z = Complex point at which the evaluation is to take place. C C = Array of 2(M+1) words into which values are placed. C B = Array of 2(M+1) words only needed if bounds are to be C calculated. It is not used otherwise. C KBD = A logical variable, e.g. .TRUE. or .FALSE. which is C to be set .TRUE. if bounds are to be computed. C C OUTPUT... C C = C(I+1) contains the complex value of the I-th C derivative at Z, I=0,...,M C B = B(I) contains the bounds on the real and imaginary parts C of C(I) if they were requested. C C***SEE ALSO CPZERO C***ROUTINES CALLED I1MACH C***REVISION HISTORY (YYMMDD) C 810223 DATE WRITTEN C 890531 Changed all specific intrinsics to generic. (WRB) C 890831 Modified array declarations. (WRB) C 891214 Prologue converted to Version 4.0 format. (BAB) C 900402 Added TYPE section. (WRB) C***END PROLOGUE CPEVL