Source position: ucompvec.pas line 12
function CompVec(
X: TVector;
Xref: TVector;
Lb: Integer;
Ub: Integer;
Tol: Float
):Boolean;