gpu_m – Lumen

Uses

- devxlib_memcpy
- omp_lib
- cufft
- hip_m
- cusolverdn_y
- devxlib_environment
- iso_c_binding
- cufft_m
- devxlib_async
- devxlib_linalg
- cusolverdn
- hipfft_m
- parallel_m
- mkl_dfti_omp_offload
- devxlib_cublas

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	GPU_test_dim	=	1000000
logical,	public,	parameter	::	have_gpu	=	.true.
logical,	public,	parameter	::	have_gpu	=	.false.
logical,	public,	parameter	::	have_cuda	=	.true.
logical,	public,	parameter	::	have_cuda	=	.false.
logical,	public,	parameter	::	have_hip	=	.true.
logical,	public,	parameter	::	have_hip	=	.false.
logical,	public,	parameter	::	have_mklgpu	=	.true.
logical,	public,	parameter	::	have_mklgpu	=	.false.
logical,	public,	parameter	::	have_cuf	=	.true.
logical,	public,	parameter	::	have_cuf	=	.false.
logical,	public,	parameter	::	have_openacc	=	.true.
logical,	public,	parameter	::	have_openacc	=	.false.
logical,	public,	parameter	::	have_ompgpu	=	.true.
logical,	public,	parameter	::	have_ompgpu	=	.false.
character(len=16),	public		::	gpu_str	=	""
logical,	public		::	have_gpu_devices	=	.false.
character(len=256),	public		::	gpu_visible_devices	=	" "
integer,	public		::	gpu_subscription
logical,	public		::	gpu_linalg_init	=	.false.
type(cusolverDnHandle),	public		::	cusolv_h
integer,	public,	parameter	::	stream_kind	=	Cuda_Stream_Kind
integer,	public,	parameter	::	stream_kind	=	c_intptr_t
integer(kind=stream_kind),	public		::	stream_default
integer(kind=stream_kind),	public		::	stream_h2d
integer(kind=stream_kind),	public		::	stream_d2h
integer(kind=stream_kind),	public		::	stream_d
integer,	public,	parameter	::	async_kind	=	Cuda_Stream_Kind
integer,	public,	parameter	::	async_kind	=	c_int
integer(kind=async_kind),	public		::	async_default
integer(kind=async_kind),	public		::	async_h2d
integer(kind=async_kind),	public		::	async_d2h
integer(kind=async_kind),	public		::	async_d

Functions

public function gpu_getstat() result(ierr)

Arguments

None

Return Value integer

public function gpu_devsync() result(ierr)

Arguments

None

Return Value integer

public function gpu_GetDevice(i_dev) result(ierr)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	i_dev

gpu_m Module

Contents

Variables

Functions

Subroutines

Uses

Variables

Functions

public function gpu_getstat() result(ierr)

Arguments

Return Value integer

public function gpu_devsync() result(ierr)

Arguments

Return Value integer

public function gpu_GetDevice(i_dev) result(ierr)

Arguments

Return Value integer

Subroutines

public subroutine gpu_setup()

Arguments

public subroutine gpu_linalg_setup()

Arguments