A generic Ada implementation that uses the Durand-Kerner-Weierstrass method to find roots of polynomials having complex coefficients may be found here; an earlier version is archived here; a comparable implementation using Java may be found here.