ECTRANS_BLAS_MOD Module

Uses

- EC_PARKIND
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.

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.

Interfaces

public interface GEMM

private subroutine GEMM_SP(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(kind=JPIM),	intent(in)			::	M
integer(kind=JPIM),	intent(in)			::	N
integer(kind=JPIM),	intent(in)			::	K
real(kind=JPRM),	intent(in)			::	ALPHA
real(kind=JPRM),	intent(in)			::	A(LDA,*)
integer(kind=JPIM),	intent(in)			::	LDA
real(kind=JPRM),	intent(in)			::	B(LDB,*)
integer(kind=JPIM),	intent(in)			::	LDB
real(kind=JPRM),	intent(in)			::	BETA
real(kind=JPRM),	intent(inout)			::	C(LDC,*)
integer(kind=JPIM),	intent(in)			::	LDC

private subroutine GEMM_SP_DP(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(kind=JPIM),	intent(in)			::	M
integer(kind=JPIM),	intent(in)			::	N
integer(kind=JPIM),	intent(in)			::	K
real(kind=JPRD),	intent(in)			::	ALPHA
real(kind=JPRM),	intent(in)			::	A(LDA,*)
integer(kind=JPIM),	intent(in)			::	LDA
real(kind=JPRM),	intent(in)			::	B(LDB,*)
integer(kind=JPIM),	intent(in)			::	LDB
real(kind=JPRD),	intent(in)			::	BETA
real(kind=JPRM),	intent(inout)			::	C(LDC,*)
integer(kind=JPIM),	intent(in)			::	LDC

private subroutine GEMM_SCAL_SP(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(kind=JPIM),	intent(in)			::	M
integer(kind=JPIM),	intent(in)			::	N
integer(kind=JPIM),	intent(in)			::	K
real(kind=JPRM),	intent(in)			::	ALPHA
real(kind=JPRM),	intent(in)			::	A
integer(kind=JPIM),	intent(in)			::	LDA
real(kind=JPRM),	intent(in)			::	B
integer(kind=JPIM),	intent(in)			::	LDB
real(kind=JPRM),	intent(in)			::	BETA
real(kind=JPRM),	intent(inout)			::	C
integer(kind=JPIM),	intent(in)			::	LDC

private subroutine GEMM_SCAL_SP_DP(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(kind=JPIM),	intent(in)			::	M
integer(kind=JPIM),	intent(in)			::	N
integer(kind=JPIM),	intent(in)			::	K
real(kind=JPRD),	intent(in)			::	ALPHA
real(kind=JPRM),	intent(in)			::	A
integer(kind=JPIM),	intent(in)			::	LDA
real(kind=JPRM),	intent(in)			::	B
integer(kind=JPIM),	intent(in)			::	LDB
real(kind=JPRD),	intent(in)			::	BETA
real(kind=JPRM),	intent(inout)			::	C
integer(kind=JPIM),	intent(in)			::	LDC

private subroutine GEMM_DP(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(kind=JPIM),	intent(in)			::	M
integer(kind=JPIM),	intent(in)			::	N
integer(kind=JPIM),	intent(in)			::	K
real(kind=JPRD),	intent(in)			::	ALPHA
real(kind=JPRD),	intent(in)			::	A(LDA,*)
integer(kind=JPIM),	intent(in)			::	LDA
real(kind=JPRD),	intent(in)			::	B(LDB,*)
integer(kind=JPIM),	intent(in)			::	LDB
real(kind=JPRD),	intent(in)			::	BETA
real(kind=JPRD),	intent(inout)			::	C(LDC,*)
integer(kind=JPIM),	intent(in)			::	LDC

private subroutine GEMM_DP_SP(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(kind=JPIM),	intent(in)			::	M
integer(kind=JPIM),	intent(in)			::	N
integer(kind=JPIM),	intent(in)			::	K
real(kind=JPRM),	intent(in)			::	ALPHA
real(kind=JPRD),	intent(in)			::	A(LDA,*)
integer(kind=JPIM),	intent(in)			::	LDA
real(kind=JPRD),	intent(in)			::	B(LDB,*)
integer(kind=JPIM),	intent(in)			::	LDB
real(kind=JPRM),	intent(in)			::	BETA
real(kind=JPRD),	intent(inout)			::	C(LDC,*)
integer(kind=JPIM),	intent(in)			::	LDC

private subroutine GEMM_SCAL_DP(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(kind=JPIM),	intent(in)			::	M
integer(kind=JPIM),	intent(in)			::	N
integer(kind=JPIM),	intent(in)			::	K
real(kind=JPRD),	intent(in)			::	ALPHA
real(kind=JPRD),	intent(in)			::	A
integer(kind=JPIM),	intent(in)			::	LDA
real(kind=JPRD),	intent(in)			::	B
integer(kind=JPIM),	intent(in)			::	LDB
real(kind=JPRD),	intent(in)			::	BETA
real(kind=JPRD),	intent(inout)			::	C
integer(kind=JPIM),	intent(in)			::	LDC

private subroutine GEMM_SCAL_DP_SP(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(kind=JPIM),	intent(in)			::	M
integer(kind=JPIM),	intent(in)			::	N
integer(kind=JPIM),	intent(in)			::	K
real(kind=JPRM),	intent(in)			::	ALPHA
real(kind=JPRD),	intent(in)			::	A
integer(kind=JPIM),	intent(in)			::	LDA
real(kind=JPRD),	intent(in)			::	B
integer(kind=JPIM),	intent(in)			::	LDB
real(kind=JPRM),	intent(in)			::	BETA
real(kind=JPRD),	intent(inout)			::	C
integer(kind=JPIM),	intent(in)			::	LDC

public interface GEMV

private subroutine GEMV_SP(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

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

private subroutine GEMV_SP_DP(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

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

private subroutine GEMV_SCAL_SP(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

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

private subroutine GEMV_SCAL_SP_DP(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

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

private subroutine GEMV_DP(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

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

private subroutine GEMV_DP_SP(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

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

private subroutine GEMV_SCAL_DP(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

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

private subroutine GEMV_SCAL_DP_SP(TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)

Arguments

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