一、 简单小程序
module simpleOps_m
contains
attributes(global)subroutine increment(a,b)
implicit none
integer,intent(inout)::a(:)
integer,value::b
integer::i
i = threadIdx%x
a(i)=a(i)+b
end subroutine increment
end module simpleOps_m
program incrementTestGPU
use cudafor
use simpleOps_m
implicit none
integer ,parameter :: n =256
integer ::