phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Change xGEMMT to xGEMMTR in CBLAS/

Browse Source
This commit is contained in:
Martin Köhler
2024-06-24 14:04:03 +02:00
parent 327869db1b
commit 81b3767a5a
14 changed files with 85 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CBLAS/include/cblas.h
+4 -4
View File
@@ -472,7 +472,7 @@ void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
const CBLAS_INT K, const float alpha, const float *A,
const CBLAS_INT lda, const float *B, const CBLAS_INT ldb,
const float beta, float *C, const CBLAS_INT ldc);
void cblas_sgemmt(CBLAS_LAYOUT layout,CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
void cblas_sgemmtr(CBLAS_LAYOUT layout,CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
const CBLAS_INT K, const float alpha, const float *A,
const CBLAS_INT lda, const float *B, const CBLAS_INT ldb,
@@ -508,7 +508,7 @@ void cblas_dgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
const CBLAS_INT K, const double alpha, const double *A,
const CBLAS_INT lda, const double *B, const CBLAS_INT ldb,
const double beta, double *C, const CBLAS_INT ldc);
void cblas_dgemmt(CBLAS_LAYOUT layout,CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
void cblas_dgemmtr(CBLAS_LAYOUT layout,CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
const CBLAS_INT K, const double alpha, const double *A,
const CBLAS_INT lda, const double *B, const CBLAS_INT ldb,
@@ -543,7 +543,7 @@ void cblas_cgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
const CBLAS_INT K, const void *alpha, const void *A,
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
const void *beta, void *C, const CBLAS_INT ldc);
void cblas_cgemmt(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
void cblas_cgemmtr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
const CBLAS_INT K, const void *alpha, const void *A,
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
@@ -578,7 +578,7 @@ void cblas_zgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
const CBLAS_INT K, const void *alpha, const void *A,
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
const void *beta, void *C, const CBLAS_INT ldc);
void cblas_zgemmt(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
void cblas_zgemmtr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
const CBLAS_INT K, const void *alpha, const void *A,
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
CBLAS/include/cblas_64.h
+4 -4
View File
@@ -423,7 +423,7 @@ void cblas_sgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
const int64_t K, const float alpha, const float *A,
const int64_t lda, const float *B, const int64_t ldb,
const float beta, float *C, const int64_t ldc);
void cblas_sgemmt_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
void cblas_sgemmtr_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB, const int64_t N,
const int64_t K, const float alpha, const float *A,
const int64_t lda, const float *B, const int64_t ldb,
@@ -459,7 +459,7 @@ void cblas_dgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
const int64_t K, const double alpha, const double *A,
const int64_t lda, const double *B, const int64_t ldb,
const double beta, double *C, const int64_t ldc);
void cblas_dgemmt_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
void cblas_dgemmtr_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB, const int64_t N,
const int64_t K, const double alpha, const double *A,
const int64_t lda, const double *B, const int64_t ldb,
@@ -494,7 +494,7 @@ void cblas_cgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
const int64_t K, const void *alpha, const void *A,
const int64_t lda, const void *B, const int64_t ldb,
const void *beta, void *C, const int64_t ldc);
void cblas_cgemmt_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
void cblas_cgemmtr_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB, const int64_t N,
const int64_t K, const void *alpha, const void *A,
const int64_t lda, const void *B, const int64_t ldb,
@@ -530,7 +530,7 @@ void cblas_zgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
const int64_t K, const void *alpha, const void *A,
const int64_t lda, const void *B, const int64_t ldb,
const void *beta, void *C, const int64_t ldc);
void cblas_zgemmt_64(CBLAS_LAYOUT layout,CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
void cblas_zgemmtr_64(CBLAS_LAYOUT layout,CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
CBLAS_TRANSPOSE TransB, const int64_t N,
const int64_t K, const void *alpha, const void *A,
const int64_t lda, const void *B, const int64_t ldb,
CBLAS/include/cblas_f77.h
+16 -16
View File
@@ -197,28 +197,28 @@
#define F77_zherk_base F77_GLOBAL_SUFFIX(zherk,ZHERK)
#define F77_zher2k_base F77_GLOBAL_SUFFIX(zher2k,ZHER2K)
#define F77_sgemm_base F77_GLOBAL_SUFFIX(sgemm,SGEMM)
#define F77_sgemmt_base F77_GLOBAL_SUFFIX(sgemmt,SGEMMT)
#define F77_sgemmtr_base F77_GLOBAL_SUFFIX(sgemmtr,SGEMMTR)
#define F77_ssymm_base F77_GLOBAL_SUFFIX(ssymm,SSYMM)
#define F77_ssyrk_base F77_GLOBAL_SUFFIX(ssyrk,SSYRK)
#define F77_ssyr2k_base F77_GLOBAL_SUFFIX(ssyr2k,SSYR2K)
#define F77_strmm_base F77_GLOBAL_SUFFIX(strmm,STRMM)
#define F77_strsm_base F77_GLOBAL_SUFFIX(strsm,STRSM)
#define F77_dgemm_base F77_GLOBAL_SUFFIX(dgemm,DGEMM)
#define F77_dgemmt_base F77_GLOBAL_SUFFIX(dgemmt,DGEMMT)
#define F77_dgemmtr_base F77_GLOBAL_SUFFIX(dgemmtr,DGEMMTR)
#define F77_dsymm_base F77_GLOBAL_SUFFIX(dsymm,DSYMM)
#define F77_dsyrk_base F77_GLOBAL_SUFFIX(dsyrk,DSYRK)
#define F77_dsyr2k_base F77_GLOBAL_SUFFIX(dsyr2k,DSYR2K)
#define F77_dtrmm_base F77_GLOBAL_SUFFIX(dtrmm,DTRMM)
#define F77_dtrsm_base F77_GLOBAL_SUFFIX(dtrsm,DTRSM)
#define F77_cgemm_base F77_GLOBAL_SUFFIX(cgemm,CGEMM)
#define F77_cgemmt_base F77_GLOBAL_SUFFIX(cgemmt,CGEMMT)
#define F77_cgemmtr_base F77_GLOBAL_SUFFIX(cgemmtr,CGEMMTR)
#define F77_csymm_base F77_GLOBAL_SUFFIX(csymm,CSYMM)
#define F77_csyrk_base F77_GLOBAL_SUFFIX(csyrk,CSYRK)
#define F77_csyr2k_base F77_GLOBAL_SUFFIX(csyr2k,CSYR2K)
#define F77_ctrmm_base F77_GLOBAL_SUFFIX(ctrmm,CTRMM)
#define F77_ctrsm_base F77_GLOBAL_SUFFIX(ctrsm,CTRSM)
#define F77_zgemm_base F77_GLOBAL_SUFFIX(zgemm,ZGEMM)
#define F77_zgemmt_base F77_GLOBAL_SUFFIX(zgemmt,ZGEMMT)
#define F77_zgemmtr_base F77_GLOBAL_SUFFIX(zgemmtr,ZGEMMTR)
#define F77_zsymm_base F77_GLOBAL_SUFFIX(zsymm,ZSYMM)
#define F77_zsyrk_base F77_GLOBAL_SUFFIX(zsyrk,ZSYRK)
#define F77_zsyr2k_base F77_GLOBAL_SUFFIX(zsyr2k,ZSYR2K)
@@ -393,7 +393,7 @@
/* Single Precision */
#define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__, 1, 1)
#define F77_sgemmt(...) F77_sgemmt_base(__VA_ARGS__, 1, 1, 1)
#define F77_sgemmtr(...) F77_sgemmtr_base(__VA_ARGS__, 1, 1, 1)
#define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__, 1, 1)
#define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__, 1, 1)
#define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__, 1, 1)
@@ -403,7 +403,7 @@
/* Double Precision */
#define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__, 1, 1)
#define F77_dgemmt(...) F77_dgemmt_base(__VA_ARGS__, 1, 1, 1)
#define F77_dgemmtr(...) F77_dgemmtr_base(__VA_ARGS__, 1, 1, 1)
#define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__, 1, 1)
#define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__, 1, 1)
#define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__, 1, 1)
@@ -413,7 +413,7 @@
/* Single Complex Precision */
#define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__, 1, 1)
#define F77_cgemmt(...) F77_cgemmt_base(__VA_ARGS__, 1, 1, 1)
#define F77_cgemmtr(...) F77_cgemmtr_base(__VA_ARGS__, 1, 1, 1)
#define F77_csymm(...) F77_csymm_base(__VA_ARGS__, 1, 1)
#define F77_chemm(...) F77_chemm_base(__VA_ARGS__, 1, 1)
#define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__, 1, 1)
@@ -426,7 +426,7 @@
/* Double Complex Precision */
#define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__, 1, 1)
#define F77_zgemmt(...) F77_zgemmt_base(__VA_ARGS__, 1, 1, 1)
#define F77_zgemmtr(...) F77_zgemmtr_base(__VA_ARGS__, 1, 1, 1)
#define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__, 1, 1)
#define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__, 1, 1)
#define F77_zsyrk(...) F77_zsyrk_base(__VA_ARGS__, 1, 1)
@@ -521,7 +521,7 @@
/* Single Precision */
#define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__)
#define F77_sgemmt(...) F77_sgemmt_base(__VA_ARGS__)
#define F77_sgemmtr(...) F77_sgemmtr_base(__VA_ARGS__)
#define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__)
#define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__)
#define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__)
@@ -531,7 +531,7 @@
/* Double Precision */
#define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__)
#define F77_dgemmt(...) F77_dgemmt_base(__VA_ARGS__)
#define F77_dgemmtr(...) F77_dgemmtr_base(__VA_ARGS__)
#define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__)
#define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__)
#define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__)
@@ -541,7 +541,7 @@
/* Single Complex Precision */
#define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__)
#define F77_cgemmt(...) F77_cgemmt_base(__VA_ARGS__)
#define F77_cgemmtr(...) F77_cgemmtr_base(__VA_ARGS__)
#define F77_csymm(...) F77_csymm_base(__VA_ARGS__)
#define F77_chemm(...) F77_chemm_base(__VA_ARGS__)
#define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__)
@@ -554,7 +554,7 @@
/* Double Complex Precision */
#define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__)
#define F77_zgemmt(...) F77_zgemmt_base(__VA_ARGS__)
#define F77_zgemmtr(...) F77_zgemmtr_base(__VA_ARGS__)
#define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__)
#define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__)
#define F77_zsyrk(...) F77_zsyrk_base(__VA_ARGS__)
@@ -993,7 +993,7 @@ void F77_sgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *
, FORTRAN_STRLEN, FORTRAN_STRLEN
#endif
);
void F77_sgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
void F77_sgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
#ifdef BLAS_FORTRAN_STRLEN_END
, size_t, size_t, size_t
#endif
@@ -1032,7 +1032,7 @@ void F77_dgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double
, FORTRAN_STRLEN, FORTRAN_STRLEN
#endif
);
void F77_dgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
void F77_dgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
#ifdef BLAS_FORTRAN_STRLEN_END
, size_t, size_t, size_t
#endif
@@ -1072,7 +1072,7 @@ void F77_cgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *,
#endif
);
void F77_cgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
void F77_cgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
#endif
@@ -1127,7 +1127,7 @@ void F77_zgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *,
#endif
);
void F77_zgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
void F77_zgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
#endif
CBLAS/include/cblas_test.h
+4 -4
View File
@@ -167,28 +167,28 @@ typedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX;
#define F77_zherk F77_GLOBAL(czherk,CZHERK)
#define F77_zher2k F77_GLOBAL(czher2k,CZHER2K)
#define F77_sgemm F77_GLOBAL(csgemm,CSGEMM)
#define F77_sgemmt F77_GLOBAL(csgemmt,CSGEMMT)
#define F77_sgemmtr F77_GLOBAL(csgemmtr,CSGEMMTR)
#define F77_ssymm F77_GLOBAL(cssymm,CSSYMM)
#define F77_ssyrk F77_GLOBAL(cssyrk,CSSYRK)
#define F77_ssyr2k F77_GLOBAL(cssyr2k,CSSYR2K)
#define F77_strmm F77_GLOBAL(cstrmm,CSTRMM)
#define F77_strsm F77_GLOBAL(cstrsm,CSTRSM)
#define F77_dgemm F77_GLOBAL(cdgemm,CDGEMM)
#define F77_dgemmt F77_GLOBAL(cdgemmt,CDGEMMT)
#define F77_dgemmtr F77_GLOBAL(cdgemmtr,CDGEMMTR)
#define F77_dsymm F77_GLOBAL(cdsymm,CDSYMM)
#define F77_dsyrk F77_GLOBAL(cdsyrk,CDSYRK)
#define F77_dsyr2k F77_GLOBAL(cdsyr2k,CDSYR2K)
#define F77_dtrmm F77_GLOBAL(cdtrmm,CDTRMM)
#define F77_dtrsm F77_GLOBAL(cdtrsm,CDTRSM)
#define F77_cgemm F77_GLOBAL(ccgemm,CCGEMM)
#define F77_cgemmt F77_GLOBAL(ccgemmt,CCGEMMT)
#define F77_cgemmtr F77_GLOBAL(ccgemmtr,CCGEMMTR)
#define F77_csymm F77_GLOBAL(ccsymm,CCSYMM)
#define F77_csyrk F77_GLOBAL(ccsyrk,CCSYRK)
#define F77_csyr2k F77_GLOBAL(ccsyr2k,CCSYR2K)
#define F77_ctrmm F77_GLOBAL(cctrmm,CCTRMM)
#define F77_ctrsm F77_GLOBAL(cctrsm,CCTRSM)
#define F77_zgemm F77_GLOBAL(czgemm,CZGEMM)
#define F77_zgemmt F77_GLOBAL(czgemmt,CZGEMMT)
#define F77_zgemmtr F77_GLOBAL(czgemmtr,CZGEMMTR)
#define F77_zsymm F77_GLOBAL(czsymm,CZSYMM)
#define F77_zsyrk F77_GLOBAL(czsyrk,CZSYRK)
#define F77_zsyr2k F77_GLOBAL(czsyr2k,CZSYR2K)
CBLAS/src/CMakeLists.txt
+4 -4
View File
@@ -85,21 +85,21 @@ set(ZLEV2 cblas_zgemv.c cblas_zgbmv.c cblas_zhemv.c cblas_zhbmv.c cblas_zhpmv.c
# Files for level 3 single precision real
set(SLEV3 cblas_sgemm.c cblas_ssymm.c cblas_ssyrk.c cblas_ssyr2k.c cblas_strmm.c
cblas_strsm.c cblas_sgemmt.c)
cblas_strsm.c cblas_sgemmtr.c)
# Files for level 3 double precision real
set(DLEV3 cblas_dgemm.c cblas_dsymm.c cblas_dsyrk.c cblas_dsyr2k.c cblas_dtrmm.c
cblas_dtrsm.c cblas_cgemmt.c)
cblas_dtrsm.c cblas_cgemmtr.c)
# Files for level 3 single precision complex
set(CLEV3 cblas_cgemm.c cblas_csymm.c cblas_chemm.c cblas_cherk.c
cblas_cher2k.c cblas_ctrmm.c cblas_ctrsm.c cblas_csyrk.c
cblas_csyr2k.c cblas_cgemmt.c)
cblas_csyr2k.c cblas_cgemmtr.c)
# Files for level 3 double precision complex
set(ZLEV3 cblas_zgemm.c cblas_zsymm.c cblas_zhemm.c cblas_zherk.c
cblas_zher2k.c cblas_ztrmm.c cblas_ztrsm.c cblas_zsyrk.c
cblas_zsyr2k.c cblas_zgemmt.c)
cblas_zsyr2k.c cblas_zgemmtr.c)
set(SOURCES)
CBLAS/src/Makefile
+4 -4
View File
@@ -137,21 +137,21 @@ zlib2: $(zlev2) $(errhand)
# Files for level 3 single precision real
slev3 = cblas_sgemm.o cblas_ssymm.o cblas_ssyrk.o cblas_ssyr2k.o cblas_strmm.o \
cblas_strsm.o cblas_sgemmt.o
cblas_strsm.o cblas_sgemmtr.o
# Files for level 3 double precision real
dlev3 = cblas_dgemm.o cblas_dsymm.o cblas_dsyrk.o cblas_dsyr2k.o cblas_dtrmm.o \
cblas_dtrsm.o cblas_dgemmt.o
cblas_dtrsm.o cblas_dgemmtr.o
# Files for level 3 single precision complex
clev3 = cblas_cgemm.o cblas_csymm.o cblas_chemm.o cblas_cherk.o \
cblas_cher2k.o cblas_ctrmm.o cblas_ctrsm.o cblas_csyrk.o \
cblas_csyr2k.o cblas_cgemmt.o
cblas_csyr2k.o cblas_cgemmtr.o
# Files for level 3 double precision complex
zlev3 = cblas_zgemm.o cblas_zsymm.o cblas_zhemm.o cblas_zherk.o \
cblas_zher2k.o cblas_ztrmm.o cblas_ztrsm.o cblas_zsyrk.o \
cblas_zsyr2k.o cblas_zgemmt.o
cblas_zsyr2k.o cblas_zgemmtr.o
.PHONY: slib3 dlib3 clib3 zlib3
# Single precision real
CBLAS/src/cblas_cgemmt.c → CBLAS/src/cblas_cgemmtr.c
+10 -10
View File
@@ -9,7 +9,7 @@
#include "cblas.h"
#include "cblas_f77.h"
void API_SUFFIX(cblas_cgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA,
void API_SUFFIX(cblas_cgemmtr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA,
const CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
const CBLAS_INT K, const void *alpha, const void *A,
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
@@ -47,7 +47,7 @@ void API_SUFFIX(cblas_cgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
if ( Uplo == CblasUpper ) UL = 'U';
else if (Uplo == CblasLower) UL= 'L';
else {
API_SUFFIX(cblas_xerbla)(2, "cblas_cgemmt", "Illegal Uplo setting, %d\n", Uplo);
API_SUFFIX(cblas_xerbla)(2, "cblas_cgemmtr", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -58,7 +58,7 @@ void API_SUFFIX(cblas_cgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransA == CblasNoTrans ) TA='N';
else
{
API_SUFFIX(cblas_xerbla)(3, "cblas_cgemmt", "Illegal TransA setting, %d\n", TransA);
API_SUFFIX(cblas_xerbla)(3, "cblas_cgemmtr", "Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -69,7 +69,7 @@ void API_SUFFIX(cblas_cgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransB == CblasNoTrans ) TB='N';
else
{
API_SUFFIX(cblas_xerbla)(4, "cblas_cgemmt", "Illegal TransB setting, %d\n", TransB);
API_SUFFIX(cblas_xerbla)(4, "cblas_cgemmtr", "Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -81,7 +81,7 @@ void API_SUFFIX(cblas_cgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_cgemmt(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, alpha, A,
F77_cgemmtr(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, alpha, A,
&F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
} else if (layout == CblasRowMajor)
{
@@ -90,7 +90,7 @@ void API_SUFFIX(cblas_cgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
if ( Uplo == CblasUpper ) UL = 'L';
else if (Uplo == CblasLower) UL= 'U';
else {
API_SUFFIX(cblas_xerbla)(2, "cblas_cgemmt", "Illegal Uplo setting, %d\n", Uplo);
API_SUFFIX(cblas_xerbla)(2, "cblas_cgemmtr", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -101,7 +101,7 @@ void API_SUFFIX(cblas_cgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransA == CblasNoTrans ) TB='N';
else
{
API_SUFFIX(cblas_xerbla)(3, "cblas_cgemmt", "Illegal TransA setting, %d\n", TransA);
API_SUFFIX(cblas_xerbla)(3, "cblas_cgemmtr", "Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -111,7 +111,7 @@ void API_SUFFIX(cblas_cgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransB == CblasNoTrans ) TA='N';
else
{
API_SUFFIX(cblas_xerbla)(4, "cblas_cgemmt", "Illegal TransB setting, %d\n", TransB);
API_SUFFIX(cblas_xerbla)(4, "cblas_cgemmtr", "Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -123,10 +123,10 @@ void API_SUFFIX(cblas_cgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
#endif
F77_cgemmt(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, alpha, B,
F77_cgemmtr(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, alpha, B,
&F77_ldb, A, &F77_lda, beta, C, &F77_ldc);
}
else API_SUFFIX(cblas_xerbla)(1, "cblas_cgemmt", "Illegal layout setting, %d\n", layout);
else API_SUFFIX(cblas_xerbla)(1, "cblas_cgemmtr", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
CBLAS/src/cblas_dgemmt.c → CBLAS/src/cblas_dgemmtr.c
+9 -9
View File
@@ -9,7 +9,7 @@
#include "cblas.h"
#include "cblas_f77.h"
void API_SUFFIX(cblas_dgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA,
void API_SUFFIX(cblas_dgemmtr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA,
const CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
const CBLAS_INT K, const double alpha, const double *A,
const CBLAS_INT lda, const double *B, const CBLAS_INT ldb,
@@ -43,7 +43,7 @@ void API_SUFFIX(cblas_dgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
if ( Uplo == CblasUpper ) UL = 'U';
else if (Uplo == CblasLower) UL= 'L';
else {
API_SUFFIX(cblas_xerbla)(2, "cblas_dgemmt", "Illegal Uplo setting, %d\n", Uplo);
API_SUFFIX(cblas_xerbla)(2, "cblas_dgemmtr", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -57,7 +57,7 @@ void API_SUFFIX(cblas_dgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransA == CblasNoTrans ) TA='N';
else
{
API_SUFFIX(cblas_xerbla)(3, "cblas_dgemmt","Illegal TransA setting, %d\n", TransA);
API_SUFFIX(cblas_xerbla)(3, "cblas_dgemmtr","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -68,7 +68,7 @@ void API_SUFFIX(cblas_dgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransB == CblasNoTrans ) TB='N';
else
{
API_SUFFIX(cblas_xerbla)(4, "cblas_dgemmt","Illegal TransB setting, %d\n", TransB);
API_SUFFIX(cblas_xerbla)(4, "cblas_dgemmtr","Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -80,7 +80,7 @@ void API_SUFFIX(cblas_dgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_dgemmt(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, &alpha, A,
F77_dgemmtr(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, &alpha, A,
&F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
} else if (layout == CblasRowMajor)
{
@@ -90,7 +90,7 @@ void API_SUFFIX(cblas_dgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransA == CblasNoTrans ) TB='N';
else
{
API_SUFFIX(cblas_xerbla)(3, "cblas_dgemmt","Illegal TransA setting, %d\n", TransA);
API_SUFFIX(cblas_xerbla)(3, "cblas_dgemmtr","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -100,7 +100,7 @@ void API_SUFFIX(cblas_dgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransB == CblasNoTrans ) TA='N';
else
{
API_SUFFIX(cblas_xerbla)(4, "cblas_dgemmt","Illegal TransB setting, %d\n", TransB);
API_SUFFIX(cblas_xerbla)(4, "cblas_dgemmtr","Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -111,10 +111,10 @@ void API_SUFFIX(cblas_dgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_dgemmt( F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, &alpha, B,
F77_dgemmtr( F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, &alpha, B,
&F77_ldb, A, &F77_lda, &beta, C, &F77_ldc);
}
else API_SUFFIX(cblas_xerbla)(1, "cblas_dgemmt", "Illegal layout setting, %d\n", layout);
else API_SUFFIX(cblas_xerbla)(1, "cblas_dgemmtr", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
CBLAS/src/cblas_sgemmt.c → CBLAS/src/cblas_sgemmtr.c
+9 -9
View File
@@ -9,7 +9,7 @@
#include "cblas.h"
#include "cblas_f77.h"
void API_SUFFIX(cblas_sgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA,
void API_SUFFIX(cblas_sgemmtr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA,
const CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
const CBLAS_INT K, const float alpha, const float *A,
const CBLAS_INT lda, const float *B, const CBLAS_INT ldb,
@@ -43,7 +43,7 @@ void API_SUFFIX(cblas_sgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
if ( Uplo == CblasUpper ) UL = 'U';
else if (Uplo == CblasLower) UL= 'L';
else {
API_SUFFIX(cblas_xerbla)(2, "cblas_sgemmt", "Illegal Uplo setting, %d\n", Uplo);
API_SUFFIX(cblas_xerbla)(2, "cblas_sgemmtr", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -57,7 +57,7 @@ void API_SUFFIX(cblas_sgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransA == CblasNoTrans ) TA='N';
else
{
API_SUFFIX(cblas_xerbla)(3, "cblas_sgemmt",
API_SUFFIX(cblas_xerbla)(3, "cblas_sgemmtr",
"Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
@@ -69,7 +69,7 @@ void API_SUFFIX(cblas_sgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransB == CblasNoTrans ) TB='N';
else
{
API_SUFFIX(cblas_xerbla)(4, "cblas_sgemmt",
API_SUFFIX(cblas_xerbla)(4, "cblas_sgemmtr",
"Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
@@ -82,7 +82,7 @@ void API_SUFFIX(cblas_sgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_sgemmt(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
F77_sgemmtr(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
} else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
@@ -91,7 +91,7 @@ void API_SUFFIX(cblas_sgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransA == CblasNoTrans ) TB='N';
else
{
API_SUFFIX(cblas_xerbla)(3, "cblas_sgemmt",
API_SUFFIX(cblas_xerbla)(3, "cblas_sgemmtr",
"Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
@@ -102,7 +102,7 @@ void API_SUFFIX(cblas_sgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransB == CblasNoTrans ) TA='N';
else
{
API_SUFFIX(cblas_xerbla)(4, "cblas_sgemmt",
API_SUFFIX(cblas_xerbla)(4, "cblas_sgemmtr",
"Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
@@ -114,9 +114,9 @@ void API_SUFFIX(cblas_sgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_sgemmt(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc);
F77_sgemmtr(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc);
} else
API_SUFFIX(cblas_xerbla)(1, "cblas_sgemmt",
API_SUFFIX(cblas_xerbla)(1, "cblas_sgemmtr",
"Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
CBLAS/src/cblas_zgemmt.c → CBLAS/src/cblas_zgemmtr.c
+9 -9
View File
@@ -9,7 +9,7 @@
#include "cblas.h"
#include "cblas_f77.h"
void API_SUFFIX(cblas_zgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA,
void API_SUFFIX(cblas_zgemmtr)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA,
const CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
const CBLAS_INT K, const void *alpha, const void *A,
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
@@ -43,7 +43,7 @@ void API_SUFFIX(cblas_zgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
if ( Uplo == CblasUpper ) UL = 'U';
else if (Uplo == CblasLower) UL= 'L';
else {
API_SUFFIX(cblas_xerbla)(2, "cblas_zgemmt", "Illegal Uplo setting, %d\n", Uplo);
API_SUFFIX(cblas_xerbla)(2, "cblas_zgemmtr", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -57,7 +57,7 @@ void API_SUFFIX(cblas_zgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransA == CblasNoTrans ) TA='N';
else
{
API_SUFFIX(cblas_xerbla)(3, "cblas_zgemmt","Illegal TransA setting, %d\n", TransA);
API_SUFFIX(cblas_xerbla)(3, "cblas_zgemmtr","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -68,7 +68,7 @@ void API_SUFFIX(cblas_zgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransB == CblasNoTrans ) TB='N';
else
{
API_SUFFIX(cblas_xerbla)(4, "cblas_zgemmt","Illegal TransB setting, %d\n", TransB);
API_SUFFIX(cblas_xerbla)(4, "cblas_zgemmtr","Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -80,7 +80,7 @@ void API_SUFFIX(cblas_zgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_zgemmt(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, alpha, A,
F77_zgemmtr(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, alpha, A,
&F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
} else if (layout == CblasRowMajor)
{
@@ -90,7 +90,7 @@ void API_SUFFIX(cblas_zgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransA == CblasNoTrans ) TB='N';
else
{
API_SUFFIX(cblas_xerbla)(3, "cblas_zgemmt","Illegal TransA setting, %d\n", TransA);
API_SUFFIX(cblas_xerbla)(3, "cblas_zgemmtr","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -100,7 +100,7 @@ void API_SUFFIX(cblas_zgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
else if ( TransB == CblasNoTrans ) TA='N';
else
{
API_SUFFIX(cblas_xerbla)(4, "cblas_zgemmt","Illegal TransB setting, %d\n", TransB);
API_SUFFIX(cblas_xerbla)(4, "cblas_zgemmtr","Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
@@ -111,10 +111,10 @@ void API_SUFFIX(cblas_zgemmt)(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_zgemmt(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, alpha, B,
F77_zgemmtr(F77_UL, F77_TA, F77_TB, &F77_N, &F77_K, alpha, B,
&F77_ldb, A, &F77_lda, beta, C, &F77_ldc);
}
else API_SUFFIX(cblas_xerbla)(1, "cblas_zgemmt", "Illegal layout setting, %d\n", layout);
else API_SUFFIX(cblas_xerbla)(1, "cblas_zgemmtr", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
CBLAS/testing/c_c3chke.c
+2 -2
View File
@@ -282,8 +282,8 @@ void F77_c3chke(char * rout
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
} else if (strncmp( sf,"cblas_cgemmt" ,12)==0) {
cblas_rout = "cblas_cgemmt" ;
} else if (strncmp( sf,"cblas_cgemmtr" ,12)==0) {
cblas_rout = "cblas_cgemmtr" ;
cblas_info = 1;
cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
CBLAS/testing/c_cblas3.c
+4 -4
View File
@@ -92,7 +92,7 @@ void F77_cgemm(CBLAS_INT *layout, char *transpa, char *transpb, CBLAS_INT *m, CB
b, *ldb, beta, c, *ldc );
}
void F77_cgemmt(CBLAS_INT *layout, char *uplop, char *transpa, char *transpb, CBLAS_INT *n,
void F77_cgemmtr(CBLAS_INT *layout, char *uplop, char *transpa, char *transpb, CBLAS_INT *n,
CBLAS_INT *k, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc ) {
@@ -152,7 +152,7 @@ void F77_cgemmt(CBLAS_INT *layout, char *uplop, char *transpa, char *transpb, CB
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
cblas_cgemmt( CblasRowMajor, uplo, transa, transb, *n, *k, alpha, A, LDA,
cblas_cgemmtr( CblasRowMajor, uplo, transa, transb, *n, *k, alpha, A, LDA,
B, LDB, beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
@@ -164,10 +164,10 @@ void F77_cgemmt(CBLAS_INT *layout, char *uplop, char *transpa, char *transpb, CB
free(C);
}
else if (*layout == TEST_COL_MJR)
cblas_cgemmt( CblasColMajor, uplo, transa, transb, *n, *k, alpha, a, *lda,
cblas_cgemmtr( CblasColMajor, uplo, transa, transb, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
else
cblas_cgemmt( UNDEFINED, uplo, transa, transb, *n, *k, alpha, a, *lda,
cblas_cgemmtr( UNDEFINED, uplo, transa, transb, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
}
CBLAS/testing/c_cblat3.f
+5 -5
View File
@@ -29,7 +29,7 @@
* cblas_csyrk T PUT F FOR NO TEST. SAME COLUMNS.
* cblas_cher2k T PUT F FOR NO TEST. SAME COLUMNS.
* cblas_csyr2k T PUT F FOR NO TEST. SAME COLUMNS.
* cblas_cgemmt T PUT F FOR NO TEST. SAME COLUMNS.
* cblas_cgemmtr T PUT F FOR NO TEST. SAME COLUMNS.
*
* See:
*
@@ -98,7 +98,7 @@
DATA SNAMES/'cblas_cgemm ', 'cblas_chemm ',
$ 'cblas_csymm ', 'cblas_ctrmm ', 'cblas_ctrsm ',
$ 'cblas_cherk ', 'cblas_csyrk ', 'cblas_cher2k',
$ 'cblas_csyr2k', 'cblas_cgemmt' /
$ 'cblas_csyr2k', 'cblas_cgemmtr' /
* .. Executable Statements ..
*
NOUTC = NOUT
@@ -367,7 +367,7 @@
$ 1 )
END IF
GO TO 190
* Test CGEMMT, 10.
* Test CGEMMTR, 10.
185 IF (CORDER) THEN
CALL CCHK6(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
$ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
@@ -2808,7 +2808,7 @@
$ IORDER )
IMPLICIT NONE
*
* Tests CGEMMT.
* Tests CGEMMTR.
*
* Auxiliary routine for test program for Level 3 Blas.
*
@@ -2981,7 +2981,7 @@
$ LDB, BETA, LDC)
IF( REWI )
$ REWIND NTRA
CALL CCGEMMT(IORDER, UPLO, TRANSA, TRANSB, N,
CALL CCGEMMTR(IORDER, UPLO, TRANSA, TRANSB, N,
$ K, ALPHA, AA, LDA, BB, LDB,
$ BETA, CC, LDC )
*
CBLAS/testing/cin3
+1 -1
View File
@@ -20,4 +20,4 @@ cblas_cherk T PUT F FOR NO TEST. SAME COLUMNS.
cblas_csyrk T PUT F FOR NO TEST. SAME COLUMNS.
cblas_cher2k T PUT F FOR NO TEST. SAME COLUMNS.
cblas_csyr2k T PUT F FOR NO TEST. SAME COLUMNS.
cblas_cgemmt T PUT F FOR NO TEST. SAME COLUMNS.
cblas_cgemmtr T PUT F FOR NO TEST. SAME COLUMNS.