complex(8) function f(z)
complex(8) z
real(8) p; common p


!f =z**2 +z +1
!f =z**3-1
!f =(z**3-1)*(z-2)

!f =(z-1)**3*(z-2)

! Pol7:
f =(z-1)*(z-2)*(z-3)*(z-4)*(z-5)*(z-6)*(z-7) -0.002*z**6

END