Source position: eigh1.pas line 31
procedure tred2(
var a: ArbFloat;
n: ArbInt;
rwidtha: ArbInt;
var d: ArbFloat;
var cd: ArbFloat;
var x: ArbFloat;
rwidthx: ArbInt;
var term: ArbInt
);