Source position: roo.pas line 51
procedure rooqua(
p: ArbFloat;
q: ArbFloat;
var z1: Complex;
var z2: Complex
);