GEMM Interface

public interface GEMM

Called by

interface~~gemm~~CalledByGraph interface~gemm GEMM proc~ledirad LEDIRAD proc~ledirad->interface~gemm proc~mult_butm MULT_BUTM proc~ledirad->proc~mult_butm proc~ledir~2 LEDIR proc~ledir~2->interface~gemm proc~ledir~2->proc~mult_butm proc~leinv LEINV proc~leinv->interface~gemm proc~leinv->proc~mult_butm proc~leinvad LEINVAD proc~leinvad->interface~gemm proc~leinvad->proc~mult_butm proc~mult_butm->interface~gemm proc~ltdirad LTDIRAD proc~ltdirad->proc~ledirad proc~ltdirad~2 LTDIRAD proc~ltdirad~2->proc~leinv proc~ltinv LTINV proc~ltinv->proc~leinv proc~ltinvad LTINVAD proc~ltinvad->proc~leinvad proc~ltinv~2 LTINV proc~ltinv~2->proc~leinv proc~dir_trans_ctlad DIR_TRANS_CTLAD proc~dir_trans_ctlad->proc~ltdirad proc~inv_trans_ctlad INV_TRANS_CTLAD proc~inv_trans_ctlad->proc~ltinvad proc~inv_trans_ctl~2 INV_TRANS_CTL proc~inv_trans_ctl~2->proc~ltinv proc~ltdir_ctlad LTDIR_CTLAD proc~ltdir_ctlad->proc~ltdirad proc~ltinv_ctl LTINV_CTL proc~ltinv_ctl->proc~ltinv proc~ltinv_ctlad LTINV_CTLAD proc~ltinv_ctlad->proc~ltinvad proc~dir_trans_ctlad~2 DIR_TRANS_CTLAD proc~dir_trans_ctlad~2->proc~ltdir_ctlad proc~dir_transad DIR_TRANSAD proc~dir_transad->proc~dir_trans_ctlad proc~dir_transad~2 DIR_TRANSAD proc~dir_transad~2->proc~dir_trans_ctlad proc~inv_trans_ctl INV_TRANS_CTL proc~inv_trans_ctl->proc~ltinv_ctl proc~inv_trans_ctlad~2 INV_TRANS_CTLAD proc~inv_trans_ctlad~2->proc~ltinv_ctlad proc~inv_transad INV_TRANSAD proc~inv_transad->proc~inv_trans_ctlad proc~inv_transad~2 INV_TRANSAD proc~inv_transad~2->proc~inv_trans_ctlad proc~inv_trans INV_TRANS proc~inv_trans->proc~inv_trans_ctl proc~inv_trans~2 INV_TRANS proc~inv_trans~2->proc~inv_trans_ctl

Module Procedures

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

Arguments

Type IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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 IntentOptional 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