Source position: eigh2.pas line 29
procedure orthes(
var a: ArbFloat;
n: ArbInt;
rwidth: ArbInt;
var u: ArbFloat
);