hello_world_cuda.f90
476d2d2ed10csolutions

hello_world_cuda.f90
View Options

			module helloWorld
			implicit none

			contains

			subroutine hello_world_cpu
			write(,) 'hello world from CPU code'
			end subroutine hello_world_cpu

			attributes(global) subroutine hello_world_cuda
			write(,) 'hello world from CUDA code'
			end subroutine hello_world_cuda

			attributes(global) subroutine hello_world_cuda_threads
			write(,) 'hello world from thread', threadIdx%x
			end subroutine hello_world_cuda_threads
			end module helloWorld

			program testHelloWorld
			use cudafor
			use helloWorld

			implicit none

			integer :: istat

			call hello_world_cpu
			call hello_world_cuda<<<1, 1>>>
			istat = cudaDeviceSynchronize()
			call hello_world_cuda_threads<<<1, 8>>>
			istat = cudaDeviceSynchronize()
			end program testHelloWorld