Source position: eigh2.pas line 30
procedure hessva(
var h: ArbFloat;
n: ArbInt;
rwidth: ArbInt;
var lam: Complex;
var term: ArbInt
);