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

zpolval =coef(n)

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

end
