mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-11 19:49:32 +00:00
20 lines
370 B
Fortran
20 lines
370 B
Fortran
|
program foo
|
||
|
|
implicit none
|
||
|
|
integer, parameter :: n = 100
|
||
|
|
integer, dimension(n,n) :: a
|
||
|
|
integer :: i, j, sum = 0
|
||
|
|
|
||
|
|
a = 1
|
||
|
|
|
||
|
|
!$acc parallel copyin(a(1:n,1:n)) firstprivate (sum)
|
||
|
|
!$acc loop gang reduction(+:sum)
|
||
|
|
do i=1, n
|
||
|
|
!$acc loop vector reduction(+:sum)
|
||
|
|
do j=1, n
|
||
|
|
sum = sum + a(i, j)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
!$acc end parallel
|
||
|
|
|
||
|
|
end program foo
|