4 integer, parameter :: n
= 40
5 integer, allocatable
:: ar(:,:,:)
8 allocate (ar(1:n
,0:n
-1,0:n
-1))
9 !$acc enter data copyin (ar)
11 !$acc update host (ar)
13 !$acc update device (ar)
15 call update_ar (ar
, n
)
17 !$acc exit data copyout (ar)
20 subroutine update_ar (ar
, n
)
22 integer, dimension (1:n
,0:n
-1,0:n
-1) :: ar
24 !$acc update host (ar)
26 !$acc update device (ar)
27 end subroutine update_ar