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.
|
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
|
