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.

Thread-Level Parallelism<br />

attributes(global) subroutine copy(odata, idata)<br />

real :: odata(*), idata(*), tmp<br />

integer :: i<br />

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

tmp = idata(i)<br />

odata(i) = tmp<br />

end subroutine copy

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

Saved successfully!

Ooh no, something went wrong!