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

Go back to Notes gif




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

©University of Liverpool, 1997
Thu May 29 10:11:26 BST 1997
Not for commercial use.