Source position: eigh2.pas line 46
procedure normeer(
var lam: Complex;
n: ArbInt;
var v: ArbFloat;
rwidthv: ArbInt
);