code 34171;
    comment MCA 2401;
    procedure BAKREAHES1(A, N, INT, V); value N; integer N;
     array A, V; integer array INT;
    begin integer I, L;
        real W; array X[1:N];

        for I:= 2 step 1 until N do X[I - 1]:= V[I];
        for I:= N step -1 until 2 do 
        begin V[I]:= V[I] + MATVEC(1, I - 2, I, A, X);
            L:= INT[I]; if L > I then 
            begin W:= V[I]; V[I]:= V[L]; V[L]:= W end 
        end 
    end BAKREAHES1;
        eop