Source position: eigh2.pas line 40
procedure orttrans(
var a: ArbFloat;
n: ArbInt;
rwidtha: ArbInt;
var q: ArbFloat;
rwidthq: ArbInt
);