Source position: eig.pas line 47
procedure eigts3(
var d: ArbFloat;
var cd: ArbFloat;
n: ArbInt;
var lam: ArbFloat;
var x: ArbFloat;
rwidth: ArbInt;
var term: ArbInt
);