PROGRAM nested_gwv CONTAINS SUBROUTINE gwv INTEGER :: i REAL(KIND=8), ALLOCATABLE :: un(:), ua(:) !$acc kernels num_gangs(2) num_workers(4) vector_length(32) DO jj = 1, 100 un(i) = ua(i) END DO !$acc end kernels !$acc parallel num_gangs(2) num_workers(4) vector_length(32) DO jj = 1, 100 un(i) = ua(i) END DO !$acc end parallel END SUBROUTINE gwv END PROGRAM nested_gwv