code 34144;
    comment MCA 2306;
    procedure BAKSYMTRI1(A, N, N1, N2, VEC); value N, N1, N2;
    integer N, N1, N2; array A, VEC;
    begin integer J, J1, K, TI, TJ;
        real W; array AUXVEC[1:N];

        for K:= N1 step 1 until N2 do 
        begin for J:= 1 step 1 until N do 
            AUXVEC[J]:= VEC[J,K]; TJ:= J1:= 1;
            for J:= 2 step 1 until N do 
            begin TI:= TJ + J; W:= A[TI];
                if W < 0 then ELMVEC(1, J1, TJ, AUXVEC,A,VECVEC(1,
                J1, TJ, AUXVEC, A) * W); J1:= J; TJ:= TI
            end;
            for J:= 1 step 1 until N do VEC[J,K]:= AUXVEC[J]
        end 
    end BAKSYMTRI1;
        eop