Source position: upca.pas line 85
procedure PrinFac(
Z: TMatrix;
Lb: Integer;
Ub: Integer;
Nvar: Integer;
C: TMatrix;
F: TMatrix
);