5 integer :: u(1024), v(1024), w(1024), a
, b
, c
, d
, e
, a1
, b1
, a2
, b2
, d1
, d2
9 !$omp target teams distribute parallel do simd default(none) &
10 !$omp& firstprivate (a, b) shared(u, v, w)
16 !$omp target teams distribute parallel do simd default(none) &
17 !$omp& firstprivate (a, b, c) shared(u, v, w) &
18 !$omp& linear(d) lastprivate(e)
29 !$omp target teams distribute parallel do simd default(none) &
30 !$omp& firstprivate (a1, b1, a2, b2) &
31 !$omp& shared(u, v, w) lastprivate(d1, d2) collapse(2)
34 u(d1
* 32 + d2
+ 1) = v(d1
* 32 + d2
+ 1) + w(d1
* 32 + d2
+ 1)
39 !$omp target teams distribute parallel do simd default(none) &
40 !$omp& firstprivate (a1, b1, a2, b2) shared(u, v, w) collapse(2)
43 u(d1
* 32 + d2
+ 1) = v(d1
* 32 + d2
+ 1) + w(d1
* 32 + d2
+ 1)