Source position: uhqr.pas line 12
procedure Hqr(
H: TMatrix;
Lb: Integer;
Ub: Integer;
I_low: Integer;
I_igh: Integer;
Lambda: TCompVector
);