Paralleles Iterationsverfahren nach Jacobi im Ring

Prozessor P_i kennt b_i , Zeile i von A , Startwert x .

REPEAT
     FOR i := 0 TO n-1 DO IN PARALLEL
         sum := b[i];
         FOR j := 0 TO n-1 DO
             IF (i<>j) THEN sum := sum - a[i,j]*x[j] END
         END;
         x[i] := sum/a[i,i];
         FOR i := 0 TO n-1 DO
             IF ODD(i) THEN
                 erhalte update von P_{(i - 1)$\mbox{ \scriptsize mod }$n} ;
                 sende update nach P_{(i + 1)$\mbox{ \scriptsize mod }$n} ;
             ELSE
                 sende update nach P_{(i + 1)$\mbox{ \scriptsize mod }$n} ;
                 erhalte update von P_{(i - 1)$\mbox{ \scriptsize mod }$n} ;
             END
         END
     END
UNTIL fertig