next up previous contents
Next: Solution Up: Parallel Loops Previous: Solution

 

Independent Loop

Transform this into an independent loop with a NEW variable.

         DO j = i+1, n
            alpha = A(j,i) / swap(i)
            A(j, i+1:n) = A(j, i+1:n ) - alpha * SWAP(i+1:n)
            Y(j) = Y(j) - alpha * TEMP
            A(j,i) = alpha
         ENDDO




next up previous contents
Next: Solution Up: Parallel Loops Previous: Solution

Adam Marshall ©University of Liverpool, 1996
Fri Dec 6 14:10:26 GMT 1996