Skip to content

Instantly share code, notes, and snippets.

@v1kko

v1kko/example.f90

Created May 13, 2022 09:45
Show Gist options
  • Save v1kko/2c8eec9344548c83c9da58b64068b028 to your computer and use it in GitHub Desktop.
Save v1kko/2c8eec9344548c83c9da58b64068b028 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
example.f90
#define SIZE 100000000
program test_openmp
real :: a(SIZE), b(SIZE), c(SIZE)
integer :: n
!$omp target teams
do n = 1, SIZE
c(n) = a(n) + b(n)
end do
!$omp end target teams
end program
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment