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 |