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