complex function polval(n, coef, z)
real (4) coef(0:n)
complex z

polval =coef(n)

do  k =n-1,0,-1
polval =coef(k) +z*polval
enddo

end
