Source position: upca.pas line 32
procedure MatVarCov(
X: TMatrix;
Lb: Integer;
Ub: Integer;
Nvar: Integer;
M: TVector;
V: TMatrix
);