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