SELF_GPU Module

3-Clause BSD with attribution
80 statements
Source File

Uses

- SELF_GPU_enums
- iso_c_binding
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Interfaces

hipFree hipGetDeviceCount hipMalloc hipMemcpy hipSetDevice

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))

public interface hipSetDevice

public function hipSetDevice_(device_id) bind(c,name="hipSetDevice")

Arguments

Type Intent Optional Attributes Name

integer(kind=c_int), value :: device_id

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