SELF_GPU Module

Contents

Interfaces

hipFree hipGetDeviceCount hipMalloc hipMemcpy

Functions

GPUAvailable

Subroutines

gpuCheck

Interfaces

public interface hipFree

• public function hipFree_(ptr) bind(c,name="hipFree")

  Arguments

  Type	Intent	Optional	Attributes		Name
  type(c_ptr),			value	::	ptr

  Return Value integer(kind=kind(hipSuccess))

public interface hipGetDeviceCount

• public function hipGetDeviceCount_(count) bind(c,name="hipGetDeviceCount")

  Arguments

  Type	Intent	Optional	Attributes		Name
  integer(kind=c_int)				::	count

  Return Value integer(kind=kind(hipSuccess))

public interface hipMalloc

• public function hipMalloc_(ptr, mySize) bind(c,name="hipMalloc")

  Arguments

  Type	Intent	Optional	Attributes		Name
  type(c_ptr)				::	ptr
  integer(kind=c_size_t),			value	::	mySize

  Return Value integer(kind=kind(hipSuccess))

public interface hipMemcpy

• public function hipMemcpy_(dest, src, sizeBytes, myKind) bind(c,name="hipMemcpy")

  Arguments

  Type	Intent	Optional	Attributes		Name
  type(c_ptr),			value	::	dest
  type(c_ptr),			value	::	src
  integer(kind=c_size_t),			value	::	sizeBytes
  integer(kind=kind(hipMemcpyHostToHost)),			value	::	myKind

  Return Value integer(kind=kind(hipSuccess))

Functions

public function GPUAvailable() result(avail)

Arguments

None

Return Value logical

Subroutines

public subroutine gpuCheck(gpuError_t)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=kind(hipSuccess))				::	gpuError_t