wrapper Module

Uses

- cudafor
- pars
- iso_c_binding
- devxlib_linalg
- devxlib_cublas

Interfaces

public interface M_by_M

public subroutine mm_cgemm(TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB, BETA, C, LDC)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANSA
character(len=1),	intent(in)			::	TRANSB
integer,	intent(in)			::	M
integer,	intent(in)			::	N
integer,	intent(in)			::	K
complex(kind=SP),	intent(in)			::	ALPHA
complex(kind=SP),	intent(in)			::	A(LDA,*)
integer,	intent(in)			::	LDA
complex(kind=SP),	intent(in)			::	B(LDB,*)
integer,	intent(in)			::	LDB
complex(kind=SP),	intent(in)			::	BETA
complex(kind=SP),	intent(out)			::	C(LDC,*)
integer,	intent(in)			::	LDC

public subroutine mm_c(TRANSA, TRANSB, msize, A, B, C)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANSA
character(len=1),	intent(in)			::	TRANSB
integer,	intent(in)			::	msize
complex(kind=SP),	intent(in)			::	A(msize,msize)
complex(kind=SP),	intent(in)			::	B(msize,msize)
complex(kind=SP),	intent(out)			::	C(msize,msize)

public subroutine mm_cg(TRANSA, TRANSB, msize, A, B, BETA, C)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANSA
character(len=1),	intent(in)			::	TRANSB
integer,	intent(in)			::	msize
complex(kind=SP),	intent(in)			::	A(msize,msize)
complex(kind=SP),	intent(in)			::	B(msize,msize)
complex(kind=SP),	intent(in)			::	BETA
complex(kind=SP),	intent(out)			::	C(msize,msize)

public interface M_by_V

public subroutine mv_cgemv(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	M
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	ALPHA
complex(kind=SP),	intent(in)			::	A(LDA,*)
integer,	intent(in)			::	LDA
complex(kind=SP),	intent(in)			::	X(*)
integer,	intent(in)			::	INCX
complex(kind=SP),	intent(in)			::	BETA
complex(kind=SP),	intent(out)			::	Y(*)
integer,	intent(in)			::	INCY

public subroutine mv_sgemv(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	M
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	ALPHA
real(kind=SP),	intent(in)			::	A(LDA,*)
integer,	intent(in)			::	LDA
real(kind=SP),	intent(in)			::	X(*)
integer,	intent(in)			::	INCX
real(kind=SP),	intent(in)			::	BETA
real(kind=SP),	intent(out)			::	Y(*)
integer,	intent(in)			::	INCY

public subroutine mv_c(TRANS, msize, A, X, Y)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	msize
complex(kind=SP),	intent(in)			::	A(msize,*)
complex(kind=SP),	intent(in)			::	X(*)
complex(kind=SP),	intent(out)			::	Y(*)

public subroutine mv_r(TRANS, msize, A, X, Y)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	msize
real(kind=SP),	intent(in)			::	A(msize,*)
real(kind=SP),	intent(in)			::	X(*)
real(kind=SP),	intent(out)			::	Y(*)

public interface V_plus_alpha_V

public subroutine vv_s(N, CA, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	CA
real(kind=SP),	intent(in)			::	CX(*)
real(kind=SP),	intent(out)			::	CY(*)

public subroutine vv_c(N, CA, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CA
complex(kind=SP),	intent(in)			::	CX(*)
complex(kind=SP),	intent(out)			::	CY(*)

public subroutine vv_saxpy(N, CA, CX, INCX, CY, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	CA
real(kind=SP),	intent(in)			::	CX(*)
integer,	intent(in)			::	INCX
real(kind=SP),	intent(out)			::	CY(*)
integer,	intent(in)			::	INCY

public subroutine vv_caxpy(N, CA, CX, INCX, CY, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CA
complex(kind=SP),	intent(in)			::	CX(*)
integer,	intent(in)			::	INCX
complex(kind=SP),	intent(out)			::	CY(*)
integer,	intent(in)			::	INCY

public subroutine MM_caxpy(N, CA, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CA
complex(kind=SP),	intent(in)			::	CX(N,N)
complex(kind=SP),	intent(out)			::	CY(N,N)

public interface M_plus_alpha_M

public subroutine MM_caxpy(N, CA, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CA
complex(kind=SP),	intent(in)			::	CX(N,N)
complex(kind=SP),	intent(out)			::	CY(N,N)

public interface V_by_V_pwise

public subroutine V_by_V_pwise_cpu(N, CZ, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(out)			::	CZ(:)
complex(kind=SP),	intent(in)			::	CX(:)
complex(kind=SP),	intent(in)			::	CY(:)

public interface Vstar_dot_V

public function Vstar_dot_V_c1_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CX(:)
complex(kind=SP),	intent(in)			::	CY(:)

Return Value complex(kind=sp)

public function Vstar_dot_V_c2_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in),		target, contiguous	::	CX(:,:)
complex(kind=SP),	intent(in),		target, contiguous	::	CY(:,:)

Return Value complex(kind=sp)

public function V_dot_V_r1_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	CX(:)
real(kind=SP),	intent(in)			::	CY(:)

Return Value real(kind=sp)

public function V_dot_V_r2_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in),		target	::	CX(:,:)
real(kind=SP),	intent(in),		target	::	CY(:,:)

Return Value real(kind=sp)

public interface Vstar_dot_VV

public function Vstar_dot_VV_c1_cpu(N, CX, CY, CZ, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CX(N)
complex(kind=SP),	intent(in)			::	CY(N)
complex(kind=SP),	intent(in)			::	CZ(N)
integer,	intent(in),	optional		::	bounds(2)

Return Value complex(kind=sp)

public interface V_dot_V

public function V_dot_V_r1_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	CX(:)
real(kind=SP),	intent(in)			::	CY(:)

Return Value real(kind=sp)

public function V_dot_V_r2_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in),		target	::	CX(:,:)
real(kind=SP),	intent(in),		target	::	CY(:,:)

Return Value real(kind=sp)

public function V_dot_V_c1_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CX(:)
complex(kind=SP),	intent(in)			::	CY(:)

Return Value complex(kind=sp)

public function V_dot_V_c2_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in),		target	::	CX(:,:)
complex(kind=SP),	intent(in),		target	::	CY(:,:)

Return Value complex(kind=sp)

public interface V_dot_VV

public function V_dot_VV_c1_cpu(N, CX, CY, CZ)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CX(:)
complex(kind=SP),	intent(in)			::	CY(:)
complex(kind=SP),	intent(in)			::	CZ(:)

Return Value complex(kind=sp)

public interface V_by_V_pwise_gpu

public interface V_by_V_pwise_gpu()

Arguments
None

public interface Vstar_dot_V_gpu

public function Vstar_dot_V_c1_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:)

Return Value complex(kind=sp)

public function Vstar_dot_V_c2_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:,:)

Return Value complex(kind=sp)

public function V_dot_V_r1_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
real(kind=SP)				::	CY(:)

Return Value real(kind=sp)

public function V_dot_V_r2_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
real(kind=SP)				::	CY(:,:)

Return Value real(kind=sp)

public interface Vstar_dot_VV_gpu

public function Vstar_dot_VV_c1_gpu(N, CX, CY, CZ, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(N)
complex(kind=SP)				::	CZ(N)
integer,	intent(in),	optional		::	bounds(2)

Return Value complex(kind=sp)

public interface V_dot_V_gpu

public function V_dot_V_r1_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
real(kind=SP)				::	CY(:)

Return Value real(kind=sp)

public function V_dot_V_r2_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
real(kind=SP)				::	CY(:,:)

Return Value real(kind=sp)

public function V_dot_V_c1_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:)

Return Value complex(kind=sp)

public function V_dot_V_c2_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:,:)

Return Value complex(kind=sp)

public interface V_dot_VV_gpu

public function V_dot_VV_c1_gpu(N, CX, CY, CZ)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:)
complex(kind=SP)				::	CZ(:)

Return Value complex(kind=sp)

public interface V_plus_alpha_V_gpu

public subroutine vv_c_gpu(N, CA, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CA
real				::	CX
real				::	CY

public interface M_by_V_gpu

public subroutine mv_c_gpu(TRANS, msize, A, X, Y)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	msize
real				::	A
complex(kind=SP)				::	X(msize)
real				::	Y

public subroutine mv_sgemv_gpu(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	M
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	ALPHA
real(kind=SP),			intent(in) DEV_ATTR	::	A(:,:)
integer,	intent(in)			::	LDA
real(kind=SP),			intent(in) DEV_ATTR	::	X(:)
integer,	intent(in)			::	INCX
real(kind=SP),	intent(in)			::	BETA
real(kind=SP),			intent(out) DEV_ATTR	::	Y(:)
integer,	intent(in)			::	INCY

public subroutine mv_cgemv_gpu(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	M
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	ALPHA
complex(kind=SP),			intent(in) DEV_ATTR	::	A(:,:)
integer,	intent(in)			::	LDA
complex(kind=SP),			intent(in) DEV_ATTR	::	X(:)
integer,	intent(in)			::	INCX
complex(kind=SP),	intent(in)			::	BETA
complex(kind=SP),			intent(out) DEV_ATTR	::	Y(:)
integer,	intent(in)			::	INCY

Functions

public function fix_compilation()

Arguments

None

Return Value integer

public function fix_compilation()

Arguments

None

Return Value integer

public function Vstar_dot_V_c1_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CX(:)
complex(kind=SP),	intent(in)			::	CY(:)

Return Value complex(kind=sp)

public function Vstar_dot_V_c2_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in),		target, contiguous	::	CX(:,:)
complex(kind=SP),	intent(in),		target, contiguous	::	CY(:,:)

Return Value complex(kind=sp)

public function Vstar_dot_V_c1_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:)

Return Value complex(kind=sp)

public function Vstar_dot_V_c2_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:,:)

Return Value complex(kind=sp)

public function Vstar_dot_VV_c1_cpu(N, CX, CY, CZ, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CX(N)
complex(kind=SP),	intent(in)			::	CY(N)
complex(kind=SP),	intent(in)			::	CZ(N)
integer,	intent(in),	optional		::	bounds(2)

Return Value complex(kind=sp)

public function Vstar_dot_VV_c1_gpu(N, CX, CY, CZ, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(N)
complex(kind=SP)				::	CZ(N)
integer,	intent(in),	optional		::	bounds(2)

Return Value complex(kind=sp)

public function V_dot_V_r1_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	CX(:)
real(kind=SP),	intent(in)			::	CY(:)

Return Value real(kind=sp)

public function V_dot_V_r2_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in),		target	::	CX(:,:)
real(kind=SP),	intent(in),		target	::	CY(:,:)

Return Value real(kind=sp)

public function V_dot_V_r1_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
real(kind=SP)				::	CY(:)

Return Value real(kind=sp)

public function V_dot_V_r2_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
real(kind=SP)				::	CY(:,:)

Return Value real(kind=sp)

public function V_dot_V_c1_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CX(:)
complex(kind=SP),	intent(in)			::	CY(:)

Return Value complex(kind=sp)

public function V_dot_V_c2_cpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in),		target	::	CX(:,:)
complex(kind=SP),	intent(in),		target	::	CY(:,:)

Return Value complex(kind=sp)

public function V_dot_V_c1_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:)

Return Value complex(kind=sp)

public function V_dot_V_c2_gpu(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:,:)

Return Value complex(kind=sp)

public function V_dot_VV_c1_cpu(N, CX, CY, CZ)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CX(:)
complex(kind=SP),	intent(in)			::	CY(:)
complex(kind=SP),	intent(in)			::	CZ(:)

Return Value complex(kind=sp)

public function V_dot_VV_c1_gpu(N, CX, CY, CZ)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CX
complex(kind=SP)				::	CY(:)
complex(kind=SP)				::	CZ(:)

Return Value complex(kind=sp)

public function FADEVA(Z)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=SP),	intent(in)			::	Z

Return Value complex(kind=sp)

Subroutines

public subroutine mm_cgemm(TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB, BETA, C, LDC)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANSA
character(len=1),	intent(in)			::	TRANSB
integer,	intent(in)			::	M
integer,	intent(in)			::	N
integer,	intent(in)			::	K
complex(kind=SP),	intent(in)			::	ALPHA
complex(kind=SP),	intent(in)			::	A(LDA,*)
integer,	intent(in)			::	LDA
complex(kind=SP),	intent(in)			::	B(LDB,*)
integer,	intent(in)			::	LDB
complex(kind=SP),	intent(in)			::	BETA
complex(kind=SP),	intent(out)			::	C(LDC,*)
integer,	intent(in)			::	LDC

public subroutine mm_c(TRANSA, TRANSB, msize, A, B, C)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANSA
character(len=1),	intent(in)			::	TRANSB
integer,	intent(in)			::	msize
complex(kind=SP),	intent(in)			::	A(msize,msize)
complex(kind=SP),	intent(in)			::	B(msize,msize)
complex(kind=SP),	intent(out)			::	C(msize,msize)

public subroutine mm_cg(TRANSA, TRANSB, msize, A, B, BETA, C)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANSA
character(len=1),	intent(in)			::	TRANSB
integer,	intent(in)			::	msize
complex(kind=SP),	intent(in)			::	A(msize,msize)
complex(kind=SP),	intent(in)			::	B(msize,msize)
complex(kind=SP),	intent(in)			::	BETA
complex(kind=SP),	intent(out)			::	C(msize,msize)

public subroutine mv_sgemv(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	M
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	ALPHA
real(kind=SP),	intent(in)			::	A(LDA,*)
integer,	intent(in)			::	LDA
real(kind=SP),	intent(in)			::	X(*)
integer,	intent(in)			::	INCX
real(kind=SP),	intent(in)			::	BETA
real(kind=SP),	intent(out)			::	Y(*)
integer,	intent(in)			::	INCY

public subroutine mv_sgemv_gpu(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	M
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	ALPHA
real(kind=SP),			intent(in) DEV_ATTR	::	A(:,:)
integer,	intent(in)			::	LDA
real(kind=SP),			intent(in) DEV_ATTR	::	X(:)
integer,	intent(in)			::	INCX
real(kind=SP),	intent(in)			::	BETA
real(kind=SP),			intent(out) DEV_ATTR	::	Y(:)
integer,	intent(in)			::	INCY

public subroutine mv_cgemv(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	M
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	ALPHA
complex(kind=SP),	intent(in)			::	A(LDA,*)
integer,	intent(in)			::	LDA
complex(kind=SP),	intent(in)			::	X(*)
integer,	intent(in)			::	INCX
complex(kind=SP),	intent(in)			::	BETA
complex(kind=SP),	intent(out)			::	Y(*)
integer,	intent(in)			::	INCY

public subroutine mv_cgemv_gpu(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	M
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	ALPHA
complex(kind=SP),			intent(in) DEV_ATTR	::	A(:,:)
integer,	intent(in)			::	LDA
complex(kind=SP),			intent(in) DEV_ATTR	::	X(:)
integer,	intent(in)			::	INCX
complex(kind=SP),	intent(in)			::	BETA
complex(kind=SP),			intent(out) DEV_ATTR	::	Y(:)
integer,	intent(in)			::	INCY

public subroutine mv_c(TRANS, msize, A, X, Y)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	msize
complex(kind=SP),	intent(in)			::	A(msize,*)
complex(kind=SP),	intent(in)			::	X(*)
complex(kind=SP),	intent(out)			::	Y(*)

public subroutine mv_c_gpu(TRANS, msize, A, X, Y)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	msize
real				::	A
complex(kind=SP)				::	X(msize)
real				::	Y

public subroutine mv_r(TRANS, msize, A, X, Y)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	TRANS
integer,	intent(in)			::	msize
real(kind=SP),	intent(in)			::	A(msize,*)
real(kind=SP),	intent(in)			::	X(*)
real(kind=SP),	intent(out)			::	Y(*)

public subroutine MM_caxpy(N, CA, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CA
complex(kind=SP),	intent(in)			::	CX(N,N)
complex(kind=SP),	intent(out)			::	CY(N,N)

public subroutine vv_c(N, CA, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CA
complex(kind=SP),	intent(in)			::	CX(*)
complex(kind=SP),	intent(out)			::	CY(*)

public subroutine vv_caxpy(N, CA, CX, INCX, CY, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CA
complex(kind=SP),	intent(in)			::	CX(*)
integer,	intent(in)			::	INCX
complex(kind=SP),	intent(out)			::	CY(*)
integer,	intent(in)			::	INCY

public subroutine vv_c_gpu(N, CA, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CA
real				::	CX
real				::	CY

public subroutine vv_s(N, CA, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	CA
real(kind=SP),	intent(in)			::	CX(*)
real(kind=SP),	intent(out)			::	CY(*)

public subroutine vv_saxpy(N, CA, CX, INCX, CY, INCY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=SP),	intent(in)			::	CA
real(kind=SP),	intent(in)			::	CX(*)
integer,	intent(in)			::	INCX
real(kind=SP),	intent(out)			::	CY(*)
integer,	intent(in)			::	INCY

public subroutine V_copy(N, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(in)			::	CX(*)
complex(kind=SP),	intent(out)			::	CY(*)

public subroutine V_by_V_pwise_cpu(N, CZ, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
complex(kind=SP),	intent(out)			::	CZ(:)
complex(kind=SP),	intent(in)			::	CX(:)
complex(kind=SP),	intent(in)			::	CY(:)

public subroutine V_by_V_pwise_gpu(N, CZ, CX, CY)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real				::	CZ
real				::	CX
complex(kind=SP)				::	CY(N)

📚 Documentation Pages

⏱️ Real-Time

🔗 Code API