SELF_GPUBLAS Module

3-Clause BSD with attribution
303 statements
Source File

Uses

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.

Used by

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

hipblasCreate hipblasDestroy hipblasDgemm hipblasDgemvStridedBatched hipblasSgemm hipblasSgemvStridedBatched

Subroutines

hipblasCheck self_blas_matrixop_1d self_blas_matrixop_dim1_2d self_blas_matrixop_dim1_3d self_blas_matrixop_dim2_2d self_blas_matrixop_dim2_3d self_blas_matrixop_dim3_3d

Interfaces

public interface hipblasCreate

public function hipblasCreate_(handle) bind(c,name="cublasCreate_v2")

Arguments

Type Intent Optional Attributes Name

type(c_ptr) :: handle

Return Value integer(kind=kind(HIPBLAS_STATUS_SUCCESS))

public interface hipblasDestroy

public function hipblasDestroy_(handle) bind(c,name="cublasDestroy_v2")

Arguments

Type Intent Optional Attributes Name

type(c_ptr), value :: handle

Return Value integer(kind=kind(HIPBLAS_STATUS_SUCCESS))

public interface hipblasDgemm

public function hipblasDgemm_(handle, transa, transb, m, n, k, alpha, A, lda, B, ldb, beta, C, ldc) bind(c,name="cublasDgemm_v2")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	handle
integer(kind=kind(HIPBLAS_OP_N)),			value	::	transa
integer(kind=kind(HIPBLAS_OP_N)),			value	::	transb
integer(kind=c_int),			value	::	m
integer(kind=c_int),			value	::	n
integer(kind=c_int),			value	::	k
real(kind=c_double)				::	alpha
type(c_ptr),			value	::	A
integer(kind=c_int),			value	::	lda
type(c_ptr),			value	::	B
integer(kind=c_int),			value	::	ldb
real(kind=c_double)				::	beta
type(c_ptr),			value	::	C
integer(kind=c_int),			value	::	ldc

Return Value integer(kind=kind(HIPBLAS_STATUS_SUCCESS))

public interface hipblasDgemvStridedBatched

public function hipblasDgemvStridedBatched_(handle, trans, m, n, alpha, A, lda, strideA, x, incx, stridex, beta, y, incy, stridey, batchCount) bind(c,name="cublasDgemvStridedBatched")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	handle
integer(kind=kind(HIPBLAS_OP_N)),			value	::	trans
integer(kind=c_int),			value	::	m
integer(kind=c_int),			value	::	n
real(kind=c_double)				::	alpha
type(c_ptr),			value	::	A
integer(kind=c_int),			value	::	lda
integer(kind=c_int64_t),			value	::	strideA
type(c_ptr),			value	::	x
integer(kind=c_int),			value	::	incx
integer(kind=c_int64_t),			value	::	stridex
real(kind=c_double)				::	beta
type(c_ptr),			value	::	y
integer(kind=c_int),			value	::	incy
integer(kind=c_int64_t),			value	::	stridey
integer(kind=c_int),			value	::	batchCount

Return Value integer(kind=kind(HIPBLAS_STATUS_SUCCESS))

public interface hipblasSgemm

public function hipblasSgemm_(handle, transa, transb, m, n, k, alpha, A, lda, B, ldb, beta, C, ldc) bind(c,name="cublasSgemm_v2")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	handle
integer(kind=kind(HIPBLAS_OP_N)),			value	::	transa
integer(kind=kind(HIPBLAS_OP_N)),			value	::	transb
integer(kind=c_int),			value	::	m
integer(kind=c_int),			value	::	n
integer(kind=c_int),			value	::	k
real(kind=c_float)				::	alpha
type(c_ptr),			value	::	A
integer(kind=c_int),			value	::	lda
type(c_ptr),			value	::	B
integer(kind=c_int),			value	::	ldb
real(kind=c_float)				::	beta
type(c_ptr),			value	::	C
integer(kind=c_int),			value	::	ldc

Return Value integer(kind=kind(HIPBLAS_STATUS_SUCCESS))

public interface hipblasSgemvStridedBatched

public function hipblasSgemvStridedBatched_(handle, trans, m, n, alpha, A, lda, strideA, x, incx, stridex, beta, y, incy, stridey, batchCount) bind(c,name="cublasSgemvStridedBatched")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	handle
integer(kind=kind(HIPBLAS_OP_N)),			value	::	trans
integer(kind=c_int),			value	::	m
integer(kind=c_int),			value	::	n
real(kind=c_float)				::	alpha
type(c_ptr),			value	::	A
integer(kind=c_int),			value	::	lda
integer(kind=c_int64_t),			value	::	strideA
type(c_ptr),			value	::	x
integer(kind=c_int),			value	::	incx
integer(kind=c_int64_t),			value	::	stridex
real(kind=c_float)				::	beta
type(c_ptr),			value	::	y
integer(kind=c_int),			value	::	incy
integer(kind=c_int64_t),			value	::	stridey
integer(kind=c_int),			value	::	batchCount

Return Value integer(kind=kind(HIPBLAS_STATUS_SUCCESS))

Subroutines

public subroutine hipblasCheck(hipblasError_t)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=kind(HIPBLAS_STATUS_SUCCESS))				::	hipblasError_t

public subroutine self_blas_matrixop_1d(A, f, Af, opArows, opAcols, bcols, handle)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(in)			::	A
real(kind=prec),	intent(in),		pointer	::	f(:,:,:)
real(kind=prec),	intent(inout),		pointer	::	Af(:,:,:)
integer,	intent(in)			::	opArows
integer,	intent(in)			::	opAcols
integer,	intent(in)			::	bcols
type(c_ptr),	intent(inout)			::	handle

public subroutine self_blas_matrixop_dim1_2d(A, f, Af, controldegree, targetdegree, nvars, nelems, handle)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(in)			::	A
real(kind=prec),	intent(in),		pointer	::	f(:,:,:,:)
real(kind=prec),	intent(inout),		pointer	::	Af(:,:,:,:)
integer,	intent(in)			::	controldegree
integer,	intent(in)			::	targetdegree
integer,	intent(in)			::	nvars
integer,	intent(in)			::	nelems
type(c_ptr),	intent(inout)			::	handle

public subroutine self_blas_matrixop_dim1_3d(A, f, Af, controldegree, targetdegree, nvars, nelems, handle)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(in)			::	A
real(kind=prec),	intent(in),		pointer	::	f(:,:,:,:,:)
real(kind=prec),	intent(inout),		pointer	::	Af(:,:,:,:,:)
integer,	intent(in)			::	controldegree
integer,	intent(in)			::	targetdegree
integer,	intent(in)			::	nvars
integer,	intent(in)			::	nelems
type(c_ptr),	intent(inout)			::	handle

public subroutine self_blas_matrixop_dim2_2d(A, f, Af, beta, controldegree, targetdegree, nvars, nelems, handle)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(in)			::	A
real(kind=prec),	intent(in),		pointer	::	f(:,:,:,:)
real(kind=prec),	intent(inout),		pointer	::	Af(:,:,:,:)
real(kind=c_prec),	intent(in)			::	beta
integer,	intent(in)			::	controldegree
integer,	intent(in)			::	targetdegree
integer,	intent(in)			::	nvars
integer,	intent(in)			::	nelems
type(c_ptr),	intent(inout)			::	handle

public subroutine self_blas_matrixop_dim2_3d(A, f, Af, beta, controldegree, targetdegree, nvars, nelems, handle)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(in)			::	A
real(kind=prec),	intent(in),		pointer	::	f(:,:,:,:,:)
real(kind=prec),	intent(inout),		pointer	::	Af(:,:,:,:,:)
real(kind=c_prec),	intent(in)			::	beta
integer,	intent(in)			::	controldegree
integer,	intent(in)			::	targetdegree
integer,	intent(in)			::	nvars
integer,	intent(in)			::	nelems
type(c_ptr),	intent(inout)			::	handle

public subroutine self_blas_matrixop_dim3_3d(A, f, Af, beta, controldegree, targetdegree, nvars, nelems, handle)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(in)			::	A
real(kind=prec),	intent(in),		pointer	::	f(:,:,:,:,:)
real(kind=prec),	intent(inout),		pointer	::	Af(:,:,:,:,:)
real(kind=c_prec),	intent(in)			::	beta
integer,	intent(in)			::	controldegree
integer,	intent(in)			::	targetdegree
integer,	intent(in)			::	nvars
integer,	intent(in)			::	nelems
type(c_ptr),	intent(inout)			::	handle