Source position: upca.pas line 74
procedure ScaleVar(
X: TMatrix;
Lb: Integer;
Ub: Integer;
Nvar: Integer;
M: TVector;
S: TVector;
Z: TMatrix
);