code 34141;
    comment MCA 2301;
    procedure BAKSYMTRI2(A, N, N1, N2, VEC); value N, N1, N2;
    integer N, N1, N2; array A, VEC;
    begin integer I, J, K; real W;

        for J:= 2 step 1 until N do 
        begin W:= A[J,J]; if W < 0 then 
            for K:= N1 step 1 until N2 do 
            ELMCOL(1, J - 1, K, J, VEC, A,
            TAMMAT(1, J - 1, J, K, A, VEC) * W)
        end 
    end BAKSYMTRI2;
        eop