Source position: eig.pas line 66
procedure eigge1(
var a: ArbFloat;
n: ArbInt;
rwidth: ArbInt;
var lam: Complex;
var term: ArbInt
);