You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 lines
189 B
10 lines
189 B
5 years ago
|
program t
|
||
|
|
integer(4) a(10000)
|
||
|
|
a = [ (1+i,i=1,10000) ]
|
||
|
|
!$acc kernels
|
||
|
|
do i = 1, 10000
|
||
|
|
if (a(i)/3000*3000.eq.a(i)) print *," located ",i,a(i),i.gt.5000,a(i)/5.0
|
||
|
|
end do
|
||
|
|
!$acc end kernels
|
||
|
|
end
|