Source position: upca.pas line 12
procedure VecMean(
X: TMatrix;
Lb: Integer;
Ub: Integer;
Nvar: Integer;
M: TVector
);