ECTRANS_BLAS_MOD Module


Uses

    • EC_PARKIND
  • module~~ectrans_blas_mod~~UsesGraph module~ectrans_blas_mod ECTRANS_BLAS_MOD EC_PARKIND EC_PARKIND module~ectrans_blas_mod->EC_PARKIND

Used by

  • module~~ectrans_blas_mod~~UsedByGraph module~ectrans_blas_mod ECTRANS_BLAS_MOD module~butterfly_alg_mod BUTTERFLY_ALG_MOD module~butterfly_alg_mod->module~ectrans_blas_mod proc~ledir LEDIR proc~ledir->module~ectrans_blas_mod proc~ledir->module~butterfly_alg_mod module~tpm_flt TPM_FLT proc~ledir->module~tpm_flt proc~ledirad LEDIRAD proc~ledirad->module~ectrans_blas_mod proc~ledirad->module~butterfly_alg_mod proc~ledirad->module~tpm_flt proc~leinv LEINV proc~leinv->module~ectrans_blas_mod proc~leinv->module~butterfly_alg_mod proc~leinv->module~tpm_flt proc~leinvad LEINVAD proc~leinvad->module~ectrans_blas_mod proc~leinvad->module~butterfly_alg_mod proc~leinvad->module~tpm_flt module~tpm_flt->module~butterfly_alg_mod proc~read_legpol READ_LEGPOL proc~read_legpol->module~butterfly_alg_mod proc~read_legpol->module~tpm_flt proc~suleg SULEG proc~suleg->module~butterfly_alg_mod proc~suleg->module~tpm_flt proc~write_legpol WRITE_LEGPOL proc~write_legpol->module~butterfly_alg_mod proc~write_legpol->module~tpm_flt proc~cdmap CDMAP proc~cdmap->module~tpm_flt proc~cdmap~2 CDMAP proc~cdmap~2->module~tpm_flt proc~dealloc_resol DEALLOC_RESOL proc~dealloc_resol->module~tpm_flt proc~dealloc_resol~2 DEALLOC_RESOL proc~dealloc_resol~2->module~tpm_flt proc~dir_trans DIR_TRANS proc~dir_trans->module~tpm_flt proc~dir_transad~2 DIR_TRANSAD proc~dir_transad~2->module~tpm_flt proc~edealloc_resol EDEALLOC_RESOL proc~edealloc_resol->module~tpm_flt proc~esetup_trans ESETUP_TRANS proc~esetup_trans->module~tpm_flt proc~etrans_end ETRANS_END proc~etrans_end->module~tpm_flt proc~fsc FSC proc~fsc->module~tpm_flt proc~ftinv_ctl FTINV_CTL proc~ftinv_ctl->module~tpm_flt proc~inv_trans INV_TRANS proc~inv_trans->module~tpm_flt proc~inv_transad~2 INV_TRANSAD proc~inv_transad~2->module~tpm_flt proc~ltdir LTDIR proc~ltdir->module~tpm_flt proc~ltinv LTINV proc~ltinv->module~tpm_flt proc~ltinv_ctl LTINV_CTL proc~ltinv_ctl->module~tpm_flt proc~read_legpol~2 READ_LEGPOL proc~read_legpol~2->module~tpm_flt proc~set_resol SET_RESOL proc~set_resol->module~tpm_flt proc~set_resol~2 SET_RESOL proc~set_resol~2->module~tpm_flt proc~setup_trans SETUP_TRANS proc~setup_trans->module~tpm_flt proc~setup_trans~2 SETUP_TRANS proc~setup_trans~2->module~tpm_flt proc~suleg~2 SULEG proc~suleg~2->module~tpm_flt proc~trans_end TRANS_END proc~trans_end->module~tpm_flt proc~trans_end~2 TRANS_END proc~trans_end~2->module~tpm_flt proc~trans_inq TRANS_INQ proc~trans_inq->module~tpm_flt proc~trans_inq~2 TRANS_INQ proc~trans_inq~2->module~tpm_flt proc~trans_pnm TRANS_PNM proc~trans_pnm->module~tpm_flt proc~trans_pnm~2 TRANS_PNM proc~trans_pnm~2->module~tpm_flt proc~write_legpol~2 WRITE_LEGPOL proc~write_legpol~2->module~tpm_flt

Interfaces

public interface GEMM

  • 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

public interface GEMV

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

    Arguments

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