Skip to content
Snippets Groups Projects
Commit 9695a39e authored by Budiardja, Reuben's avatar Budiardja, Reuben
Browse files

Fixed for XL.

parent a26a568f
No related branches found
No related tags found
No related merge requests found
......@@ -20,10 +20,13 @@ contains
module procedure AddAll
integer ( KDI ) :: &
iV
iV, &
nV
nV = size ( C ) !-- NEVER put size ( Var ) in offloaded do-loop
!$OMP target teams distribute parallel do simd
do iV = 1, size ( C )
do iV = 1, nV
C ( iV ) = A ( iV )**2 / B ( iV )**3
end do
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment