Skip to content

Commit 5daea48

Browse files
grisuthedragongrisuthedragon
committed
CBLAS routines for xGEMMT added
1 parent 19b0016 commit 5daea48

14 files changed

+584
-12
lines changed

‎CBLAS/include/cblas.h

Lines changed: 21 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -472,6 +472,12 @@ void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
472472
const CBLAS_INT K, const float alpha, const float *A,
473473
const CBLAS_INT lda, const float *B, const CBLAS_INT ldb,
474474
const float beta, float *C, const CBLAS_INT ldc);
475+
void cblas_sgemmt(CBLAS_LAYOUT layout,CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
476+
CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
477+
const CBLAS_INT K, const float alpha, const float *A,
478+
const CBLAS_INT lda, const float *B, const CBLAS_INT ldb,
479+
const float beta, float *C, const CBLAS_INT ldc);
480+
475481
void cblas_ssymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
476482
CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N,
477483
const float alpha, const float *A, const CBLAS_INT lda,
@@ -502,6 +508,11 @@ void cblas_dgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
502508
const CBLAS_INT K, const double alpha, const double *A,
503509
const CBLAS_INT lda, const double *B, const CBLAS_INT ldb,
504510
const double beta, double *C, const CBLAS_INT ldc);
511+
void cblas_dgemmt(CBLAS_LAYOUT layout,CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
512+
CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
513+
const CBLAS_INT K, const double alpha, const double *A,
514+
const CBLAS_INT lda, const double *B, const CBLAS_INT ldb,
515+
const double beta, double *C, const CBLAS_INT ldc);
505516
void cblas_dsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
506517
CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N,
507518
const double alpha, const double *A, const CBLAS_INT lda,
@@ -532,6 +543,11 @@ void cblas_cgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
532543
const CBLAS_INT K, const void *alpha, const void *A,
533544
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
534545
const void *beta, void *C, const CBLAS_INT ldc);
546+
void cblas_cgemmt(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
547+
CBLAS_TRANSPOSE TransB, const CBLAS_INT M, const CBLAS_INT N,
548+
const CBLAS_INT K, const void *alpha, const void *A,
549+
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
550+
const void *beta, void *C, const CBLAS_INT ldc);
535551
void cblas_csymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
536552
CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N,
537553
const void *alpha, const void *A, const CBLAS_INT lda,
@@ -562,6 +578,11 @@ void cblas_zgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
562578
const CBLAS_INT K, const void *alpha, const void *A,
563579
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
564580
const void *beta, void *C, const CBLAS_INT ldc);
581+
void cblas_zgemmt(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
582+
CBLAS_TRANSPOSE TransB, const CBLAS_INT N,
583+
const CBLAS_INT K, const void *alpha, const void *A,
584+
const CBLAS_INT lda, const void *B, const CBLAS_INT ldb,
585+
const void *beta, void *C, const CBLAS_INT ldc);
565586
void cblas_zsymm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
566587
CBLAS_UPLO Uplo, const CBLAS_INT M, const CBLAS_INT N,
567588
const void *alpha, const void *A, const CBLAS_INT lda,

‎CBLAS/include/cblas_64.h

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -423,6 +423,12 @@ void cblas_sgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
423423
const int64_t K, const float alpha, const float *A,
424424
const int64_t lda, const float *B, const int64_t ldb,
425425
const float beta, float *C, const int64_t ldc);
426+
void cblas_sgemmt_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
427+
CBLAS_TRANSPOSE TransB, const int64_t N,
428+
const int64_t K, const float alpha, const float *A,
429+
const int64_t lda, const float *B, const int64_t ldb,
430+
const float beta, float *C, const int64_t ldc);
431+
426432
void cblas_ssymm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
427433
CBLAS_UPLO Uplo, const int64_t M, const int64_t N,
428434
const float alpha, const float *A, const int64_t lda,
@@ -453,6 +459,11 @@ void cblas_dgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
453459
const int64_t K, const double alpha, const double *A,
454460
const int64_t lda, const double *B, const int64_t ldb,
455461
const double beta, double *C, const int64_t ldc);
462+
void cblas_dgemmt_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
463+
CBLAS_TRANSPOSE TransB, const int64_t N,
464+
const int64_t K, const double alpha, const double *A,
465+
const int64_t lda, const double *B, const int64_t ldb,
466+
const double beta, double *C, const int64_t ldc);
456467
void cblas_dsymm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
457468
CBLAS_UPLO Uplo, const int64_t M, const int64_t N,
458469
const double alpha, const double *A, const int64_t lda,
@@ -483,6 +494,12 @@ void cblas_cgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
483494
const int64_t K, const void *alpha, const void *A,
484495
const int64_t lda, const void *B, const int64_t ldb,
485496
const void *beta, void *C, const int64_t ldc);
497+
void cblas_cgemmt_64(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
498+
CBLAS_TRANSPOSE TransB, const int64_t N,
499+
const int64_t K, const void *alpha, const void *A,
500+
const int64_t lda, const void *B, const int64_t ldb,
501+
const void *beta, void *C, const int64_t ldc);
502+
486503
void cblas_csymm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
487504
CBLAS_UPLO Uplo, const int64_t M, const int64_t N,
488505
const void *alpha, const void *A, const int64_t lda,
@@ -513,6 +530,11 @@ void cblas_zgemm_64(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
513530
const int64_t K, const void *alpha, const void *A,
514531
const int64_t lda, const void *B, const int64_t ldb,
515532
const void *beta, void *C, const int64_t ldc);
533+
void cblas_zgemmt_64(CBLAS_LAYOUT layout,CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA,
534+
CBLAS_TRANSPOSE TransB, const int64_t N,
535+
const int64_t K, const void *alpha, const void *A,
536+
const int64_t lda, const void *B, const int64_t ldb,
537+
const void *beta, void *C, const int64_t ldc);
516538
void cblas_zsymm_64(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
517539
CBLAS_UPLO Uplo, const int64_t M, const int64_t N,
518540
const void *alpha, const void *A, const int64_t lda,

‎CBLAS/include/cblas_f77.h

Lines changed: 38 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -197,24 +197,28 @@
197197
#define F77_zherk_base F77_GLOBAL_SUFFIX(zherk,ZHERK)
198198
#define F77_zher2k_base F77_GLOBAL_SUFFIX(zher2k,ZHER2K)
199199
#define F77_sgemm_base F77_GLOBAL_SUFFIX(sgemm,SGEMM)
200+
#define F77_sgemmt_base F77_GLOBAL_SUFFIX(sgemmt,SGEMMT)
200201
#define F77_ssymm_base F77_GLOBAL_SUFFIX(ssymm,SSYMM)
201202
#define F77_ssyrk_base F77_GLOBAL_SUFFIX(ssyrk,SSYRK)
202203
#define F77_ssyr2k_base F77_GLOBAL_SUFFIX(ssyr2k,SSYR2K)
203204
#define F77_strmm_base F77_GLOBAL_SUFFIX(strmm,STRMM)
204205
#define F77_strsm_base F77_GLOBAL_SUFFIX(strsm,STRSM)
205206
#define F77_dgemm_base F77_GLOBAL_SUFFIX(dgemm,DGEMM)
207+
#define F77_dgemmt_base F77_GLOBAL_SUFFIX(dgemmt,DGEMMT)
206208
#define F77_dsymm_base F77_GLOBAL_SUFFIX(dsymm,DSYMM)
207209
#define F77_dsyrk_base F77_GLOBAL_SUFFIX(dsyrk,DSYRK)
208210
#define F77_dsyr2k_base F77_GLOBAL_SUFFIX(dsyr2k,DSYR2K)
209211
#define F77_dtrmm_base F77_GLOBAL_SUFFIX(dtrmm,DTRMM)
210212
#define F77_dtrsm_base F77_GLOBAL_SUFFIX(dtrsm,DTRSM)
211213
#define F77_cgemm_base F77_GLOBAL_SUFFIX(cgemm,CGEMM)
214+
#define F77_cgemmt_base F77_GLOBAL_SUFFIX(cgemmt,CGEMMT)
212215
#define F77_csymm_base F77_GLOBAL_SUFFIX(csymm,CSYMM)
213216
#define F77_csyrk_base F77_GLOBAL_SUFFIX(csyrk,CSYRK)
214217
#define F77_csyr2k_base F77_GLOBAL_SUFFIX(csyr2k,CSYR2K)
215218
#define F77_ctrmm_base F77_GLOBAL_SUFFIX(ctrmm,CTRMM)
216219
#define F77_ctrsm_base F77_GLOBAL_SUFFIX(ctrsm,CTRSM)
217220
#define F77_zgemm_base F77_GLOBAL_SUFFIX(zgemm,ZGEMM)
221+
#define F77_zgemmt_base F77_GLOBAL_SUFFIX(zgemmt,ZGEMMT)
218222
#define F77_zsymm_base F77_GLOBAL_SUFFIX(zsymm,ZSYMM)
219223
#define F77_zsyrk_base F77_GLOBAL_SUFFIX(zsyrk,ZSYRK)
220224
#define F77_zsyr2k_base F77_GLOBAL_SUFFIX(zsyr2k,ZSYR2K)
@@ -389,6 +393,7 @@
389393
/* Single Precision */
390394

391395
#define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__, 1, 1)
396+
#define F77_sgemmt(...) F77_sgemmt_base(__VA_ARGS__, 1, 1, 1)
392397
#define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__, 1, 1)
393398
#define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__, 1, 1)
394399
#define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__, 1, 1)
@@ -398,6 +403,7 @@
398403
/* Double Precision */
399404

400405
#define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__, 1, 1)
406+
#define F77_dgemmt(...) F77_dgemmt_base(__VA_ARGS__, 1, 1, 1)
401407
#define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__, 1, 1)
402408
#define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__, 1, 1)
403409
#define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__, 1, 1)
@@ -407,6 +413,7 @@
407413
/* Single Complex Precision */
408414

409415
#define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__, 1, 1)
416+
#define F77_cgemmt(...) F77_cgemmt_base(__VA_ARGS__, 1, 1, 1)
410417
#define F77_csymm(...) F77_csymm_base(__VA_ARGS__, 1, 1)
411418
#define F77_chemm(...) F77_chemm_base(__VA_ARGS__, 1, 1)
412419
#define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__, 1, 1)
@@ -419,6 +426,7 @@
419426
/* Double Complex Precision */
420427

421428
#define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__, 1, 1)
429+
#define F77_zgemmt(...) F77_zgemmt_base(__VA_ARGS__, 1, 1, 1)
422430
#define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__, 1, 1)
423431
#define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__, 1, 1)
424432
#define F77_zsyrk(...) F77_zsyrk_base(__VA_ARGS__, 1, 1)
@@ -513,6 +521,7 @@
513521
/* Single Precision */
514522

515523
#define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__)
524+
#define F77_sgemmt(...) F77_sgemmt_base(__VA_ARGS__)
516525
#define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__)
517526
#define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__)
518527
#define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__)
@@ -522,6 +531,7 @@
522531
/* Double Precision */
523532

524533
#define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__)
534+
#define F77_dgemmt(...) F77_dgemmt_base(__VA_ARGS__)
525535
#define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__)
526536
#define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__)
527537
#define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__)
@@ -531,6 +541,7 @@
531541
/* Single Complex Precision */
532542

533543
#define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__)
544+
#define F77_cgemmt(...) F77_cgemmt_base(__VA_ARGS__)
534545
#define F77_csymm(...) F77_csymm_base(__VA_ARGS__)
535546
#define F77_chemm(...) F77_chemm_base(__VA_ARGS__)
536547
#define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__)
@@ -543,6 +554,7 @@
543554
/* Double Complex Precision */
544555

545556
#define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__)
557+
#define F77_zgemmt(...) F77_zgemmt_base(__VA_ARGS__)
546558
#define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__)
547559
#define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__)
548560
#define F77_zsyrk(...) F77_zsyrk_base(__VA_ARGS__)
@@ -981,6 +993,12 @@ void F77_sgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *
981993
, FORTRAN_STRLEN, FORTRAN_STRLEN
982994
#endif
983995
);
996+
void F77_sgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
997+
#ifdef BLAS_FORTRAN_STRLEN_END
998+
, size_t, size_t, size_t
999+
#endif
1000+
);
1001+
9841002
void F77_ssymm_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
9851003
#ifdef BLAS_FORTRAN_STRLEN_END
9861004
, FORTRAN_STRLEN, FORTRAN_STRLEN
@@ -1014,6 +1032,12 @@ void F77_dgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double
10141032
, FORTRAN_STRLEN, FORTRAN_STRLEN
10151033
#endif
10161034
);
1035+
void F77_dgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
1036+
#ifdef BLAS_FORTRAN_STRLEN_END
1037+
, size_t, size_t, size_t
1038+
#endif
1039+
);
1040+
10171041
void F77_dsymm_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
10181042
#ifdef BLAS_FORTRAN_STRLEN_END
10191043
, FORTRAN_STRLEN, FORTRAN_STRLEN
@@ -1047,6 +1071,13 @@ void F77_cgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *,
10471071
, FORTRAN_STRLEN, FORTRAN_STRLEN
10481072
#endif
10491073
);
1074+
1075+
void F77_cgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
1076+
#ifdef BLAS_FORTRAN_STRLEN_END
1077+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1078+
#endif
1079+
);
1080+
10501081
void F77_csymm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
10511082
#ifdef BLAS_FORTRAN_STRLEN_END
10521083
, FORTRAN_STRLEN, FORTRAN_STRLEN
@@ -1095,6 +1126,13 @@ void F77_zgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *,
10951126
, FORTRAN_STRLEN, FORTRAN_STRLEN
10961127
#endif
10971128
);
1129+
1130+
void F77_zgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
1131+
#ifdef BLAS_FORTRAN_STRLEN_END
1132+
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1133+
#endif
1134+
);
1135+
10981136
void F77_zsymm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
10991137
#ifdef BLAS_FORTRAN_STRLEN_END
11001138
, FORTRAN_STRLEN, FORTRAN_STRLEN

‎CBLAS/include/cblas_test.h

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -167,24 +167,28 @@ typedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX;
167167
#define F77_zherk F77_GLOBAL(czherk,CZHERK)
168168
#define F77_zher2k F77_GLOBAL(czher2k,CZHER2K)
169169
#define F77_sgemm F77_GLOBAL(csgemm,CSGEMM)
170+
#define F77_sgemmt F77_GLOBAL(csgemmt,CSGEMMT)
170171
#define F77_ssymm F77_GLOBAL(cssymm,CSSYMM)
171172
#define F77_ssyrk F77_GLOBAL(cssyrk,CSSYRK)
172173
#define F77_ssyr2k F77_GLOBAL(cssyr2k,CSSYR2K)
173174
#define F77_strmm F77_GLOBAL(cstrmm,CSTRMM)
174175
#define F77_strsm F77_GLOBAL(cstrsm,CSTRSM)
175176
#define F77_dgemm F77_GLOBAL(cdgemm,CDGEMM)
177+
#define F77_dgemmt F77_GLOBAL(cdgemmt,CDGEMMT)
176178
#define F77_dsymm F77_GLOBAL(cdsymm,CDSYMM)
177179
#define F77_dsyrk F77_GLOBAL(cdsyrk,CDSYRK)
178180
#define F77_dsyr2k F77_GLOBAL(cdsyr2k,CDSYR2K)
179181
#define F77_dtrmm F77_GLOBAL(cdtrmm,CDTRMM)
180182
#define F77_dtrsm F77_GLOBAL(cdtrsm,CDTRSM)
181183
#define F77_cgemm F77_GLOBAL(ccgemm,CCGEMM)
184+
#define F77_cgemmt F77_GLOBAL(ccgemmt,CCGEMMT)
182185
#define F77_csymm F77_GLOBAL(ccsymm,CCSYMM)
183186
#define F77_csyrk F77_GLOBAL(ccsyrk,CCSYRK)
184187
#define F77_csyr2k F77_GLOBAL(ccsyr2k,CCSYR2K)
185188
#define F77_ctrmm F77_GLOBAL(cctrmm,CCTRMM)
186189
#define F77_ctrsm F77_GLOBAL(cctrsm,CCTRSM)
187190
#define F77_zgemm F77_GLOBAL(czgemm,CZGEMM)
191+
#define F77_zgemmt F77_GLOBAL(czgemmt,CZGEMMT)
188192
#define F77_zsymm F77_GLOBAL(czsymm,CZSYMM)
189193
#define F77_zsyrk F77_GLOBAL(czsyrk,CZSYRK)
190194
#define F77_zsyr2k F77_GLOBAL(czsyr2k,CZSYR2K)

‎CBLAS/src/CMakeLists.txt

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -85,21 +85,21 @@ set(ZLEV2 cblas_zgemv.c cblas_zgbmv.c cblas_zhemv.c cblas_zhbmv.c cblas_zhpmv.c
8585

8686
# Files for level 3 single precision real
8787
set(SLEV3 cblas_sgemm.c cblas_ssymm.c cblas_ssyrk.c cblas_ssyr2k.c cblas_strmm.c
88-
cblas_strsm.c)
88+
cblas_strsm.c cblas_sgemmt.c)
8989

9090
# Files for level 3 double precision real
9191
set(DLEV3 cblas_dgemm.c cblas_dsymm.c cblas_dsyrk.c cblas_dsyr2k.c cblas_dtrmm.c
92-
cblas_dtrsm.c)
92+
cblas_dtrsm.c cblas_cgemmt.c)
9393

9494
# Files for level 3 single precision complex
9595
set(CLEV3 cblas_cgemm.c cblas_csymm.c cblas_chemm.c cblas_cherk.c
9696
cblas_cher2k.c cblas_ctrmm.c cblas_ctrsm.c cblas_csyrk.c
97-
cblas_csyr2k.c)
97+
cblas_csyr2k.c cblas_cgemmt.c)
9898

9999
# Files for level 3 double precision complex
100100
set(ZLEV3 cblas_zgemm.c cblas_zsymm.c cblas_zhemm.c cblas_zherk.c
101101
cblas_zher2k.c cblas_ztrmm.c cblas_ztrsm.c cblas_zsyrk.c
102-
cblas_zsyr2k.c)
102+
cblas_zsyr2k.c cblas_zgemmt.c)
103103

104104

105105
set(SOURCES)

‎CBLAS/src/Makefile

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -137,21 +137,21 @@ zlib2: $(zlev2) $(errhand)
137137

138138
# Files for level 3 single precision real
139139
slev3 = cblas_sgemm.o cblas_ssymm.o cblas_ssyrk.o cblas_ssyr2k.o cblas_strmm.o \
140-
cblas_strsm.o
140+
cblas_strsm.o cblas_sgemmt.o
141141

142142
# Files for level 3 double precision real
143143
dlev3 = cblas_dgemm.o cblas_dsymm.o cblas_dsyrk.o cblas_dsyr2k.o cblas_dtrmm.o \
144-
cblas_dtrsm.o
144+
cblas_dtrsm.o cblas_dgemmt.o
145145

146146
# Files for level 3 single precision complex
147147
clev3 = cblas_cgemm.o cblas_csymm.o cblas_chemm.o cblas_cherk.o \
148148
cblas_cher2k.o cblas_ctrmm.o cblas_ctrsm.o cblas_csyrk.o \
149-
cblas_csyr2k.o
149+
cblas_csyr2k.o cblas_cgemmt.o
150150

151151
# Files for level 3 double precision complex
152152
zlev3 = cblas_zgemm.o cblas_zsymm.o cblas_zhemm.o cblas_zherk.o \
153153
cblas_zher2k.o cblas_ztrmm.o cblas_ztrsm.o cblas_zsyrk.o \
154-
cblas_zsyr2k.o
154+
cblas_zsyr2k.o cblas_zgemmt.o
155155

156156
.PHONY: slib3 dlib3 clib3 zlib3
157157
# Single precision real

‎CBLAS/src/cblas_cgemm.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -89,7 +89,7 @@ void API_SUFFIX(cblas_cgemm)(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE Tr
8989
else if ( TransB == CblasNoTrans ) TA='N';
9090
else
9191
{
92-
API_SUFFIX(cblas_xerbla)(2, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB);
92+
API_SUFFIX(cblas_xerbla)(3, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB);
9393
CBLAS_CallFromC = 0;
9494
RowMajorStrg = 0;
9595
return;

0 commit comments

Comments
 (0)