4 integer :: u(1024), v(1024), w(1024), a
, b
, c
, d
, e
, a1
, b1
, a2
, b2
, d1
, d2
8 !$omp target teams distribute parallel do simd default(none) &
9 !$omp& firstprivate (a, b) shared(u, v, w)
15 !$omp target teams distribute parallel do simd default(none) &
16 !$omp& firstprivate (a, b, c) shared(u, v, w) &
17 !$omp& linear(d) lastprivate(e)
28 !$omp target teams distribute parallel do simd default(none) &
29 !$omp& firstprivate (a1, b1, a2, b2) &
30 !$omp& shared(u, v, w) lastprivate(d1, d2) collapse(2)
33 u(d1
* 32 + d2
+ 1) = v(d1
* 32 + d2
+ 1) + w(d1
* 32 + d2
+ 1)
38 !$omp target teams distribute parallel do simd default(none) &
39 !$omp& firstprivate (a1, b1, a2, b2) shared(u, v, w) collapse(2)
42 u(d1
* 32 + d2
+ 1) = v(d1
* 32 + d2
+ 1) + w(d1
* 32 + d2
+ 1)