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