Source position: eig.pas line 41
procedure eigts1(
var d: ArbFloat;
var cd: ArbFloat;
n: ArbInt;
var lam: ArbFloat;
var term: ArbInt
);