Source position: urootpol.pas line 12
function RootPol(
Coef: TVector;
Deg: Integer;
Z: TCompVector
):Integer;