subroutine kernel_sub(i)
!$acc routine vector
use global_data
implicit none
 
integer :: i
 
c(i) = a(i) + b(i)
 
end subroutine kernel_sub
