Parallel LU Decomposition
REAL A(N, N)
REAL COL(N), ROW(N)
DO K = 1, N – 1
COL(K:N) = A(K:N, K)
A(K, K+1:N) = A(K, K+1:N) / COL(K)
ROW(K+1:N) = A(K, K+1:N)
FORALL (I = K+1:N, J = K+1:N)
& A(I, J) = A(I, J) – COL(I) * ROW(J)
ENDDO
Previous slide
Next slide
Back to first slide
View graphic version