19.11.2014 Views

Tutorial: Introduction to CUDA Fortran | GTC 2013

Tutorial: Introduction to CUDA Fortran | GTC 2013

Tutorial: Introduction to CUDA Fortran | GTC 2013

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Textures - Device Code<br />

module mymodule<br />

real, texture, pointer :: aTex(:)<br />

contains<br />

attributes(global) subroutine inc(b)<br />

real :: b(*)<br />

integer :: i<br />

i = blockDim%x*(blockIdx%x-1) + threadIdx%x<br />

b(i) = aTex(i)+1<br />

end subroutine<br />

end module

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!