Source position: uuqr.pas line 15
procedure QR_Decomp(
A: TMatrix;
Lb: Integer;
Ub1: Integer;
Ub2: Integer;
R: TMatrix
);