8 #pragma omp declare target
15 #pragma omp parallel shared (A, nthreads)
18 nthreads
= omp_get_num_threads ();
21 for (i
= 0; i
< N
; i
++)
24 #pragma omp critical (crit1)
25 for (i
= 0; i
< N
; i
++)
29 for (i
= 0; i
< N
; i
++)
35 #pragma omp end declare target
41 #pragma omp target map (from: res1, res2)
48 #pragma omp parallel shared (B, nthreads)
51 nthreads
= omp_get_num_threads ();
54 for (i
= 0; i
< N
; i
++)
57 #pragma omp critical (crit2)
58 for (i
= 0; i
< N
; i
++)
63 for (i
= 0; i
< N
; i
++)