FOR i := 0 TO n - 1 DO
(* bestimme Zeile i von U *)
FOR ALL
i j n DO IN PARALLEL
Pj : falls j = i: berechne u[i,i] aus a[i,i], u[*,i]
und verschicke Spalte i = u[*,i];
falls j > i: erhalte Spalte i;
gib Spalte i weiter (falls j < n - 1);
berechne u[i,j] aus a[i,j], u[*,i], u[*,j];
END
END