|
197 | 197 | #define F77_zherk_base F77_GLOBAL_SUFFIX(zherk,ZHERK)
|
198 | 198 | #define F77_zher2k_base F77_GLOBAL_SUFFIX(zher2k,ZHER2K)
|
199 | 199 | #define F77_sgemm_base F77_GLOBAL_SUFFIX(sgemm,SGEMM)
|
200 |
| -#define F77_sgemmt_base F77_GLOBAL_SUFFIX(sgemmt,SGEMMT) |
| 200 | +#define F77_sgemmtr_base F77_GLOBAL_SUFFIX(sgemmtr,SGEMMTR) |
201 | 201 | #define F77_ssymm_base F77_GLOBAL_SUFFIX(ssymm,SSYMM)
|
202 | 202 | #define F77_ssyrk_base F77_GLOBAL_SUFFIX(ssyrk,SSYRK)
|
203 | 203 | #define F77_ssyr2k_base F77_GLOBAL_SUFFIX(ssyr2k,SSYR2K)
|
204 | 204 | #define F77_strmm_base F77_GLOBAL_SUFFIX(strmm,STRMM)
|
205 | 205 | #define F77_strsm_base F77_GLOBAL_SUFFIX(strsm,STRSM)
|
206 | 206 | #define F77_dgemm_base F77_GLOBAL_SUFFIX(dgemm,DGEMM)
|
207 |
| -#define F77_dgemmt_base F77_GLOBAL_SUFFIX(dgemmt,DGEMMT) |
| 207 | +#define F77_dgemmtr_base F77_GLOBAL_SUFFIX(dgemmtr,DGEMMTR) |
208 | 208 | #define F77_dsymm_base F77_GLOBAL_SUFFIX(dsymm,DSYMM)
|
209 | 209 | #define F77_dsyrk_base F77_GLOBAL_SUFFIX(dsyrk,DSYRK)
|
210 | 210 | #define F77_dsyr2k_base F77_GLOBAL_SUFFIX(dsyr2k,DSYR2K)
|
211 | 211 | #define F77_dtrmm_base F77_GLOBAL_SUFFIX(dtrmm,DTRMM)
|
212 | 212 | #define F77_dtrsm_base F77_GLOBAL_SUFFIX(dtrsm,DTRSM)
|
213 | 213 | #define F77_cgemm_base F77_GLOBAL_SUFFIX(cgemm,CGEMM)
|
214 |
| -#define F77_cgemmt_base F77_GLOBAL_SUFFIX(cgemmt,CGEMMT) |
| 214 | +#define F77_cgemmtr_base F77_GLOBAL_SUFFIX(cgemmtr,CGEMMTR) |
215 | 215 | #define F77_csymm_base F77_GLOBAL_SUFFIX(csymm,CSYMM)
|
216 | 216 | #define F77_csyrk_base F77_GLOBAL_SUFFIX(csyrk,CSYRK)
|
217 | 217 | #define F77_csyr2k_base F77_GLOBAL_SUFFIX(csyr2k,CSYR2K)
|
218 | 218 | #define F77_ctrmm_base F77_GLOBAL_SUFFIX(ctrmm,CTRMM)
|
219 | 219 | #define F77_ctrsm_base F77_GLOBAL_SUFFIX(ctrsm,CTRSM)
|
220 | 220 | #define F77_zgemm_base F77_GLOBAL_SUFFIX(zgemm,ZGEMM)
|
221 |
| -#define F77_zgemmt_base F77_GLOBAL_SUFFIX(zgemmt,ZGEMMT) |
| 221 | +#define F77_zgemmtr_base F77_GLOBAL_SUFFIX(zgemmtr,ZGEMMTR) |
222 | 222 | #define F77_zsymm_base F77_GLOBAL_SUFFIX(zsymm,ZSYMM)
|
223 | 223 | #define F77_zsyrk_base F77_GLOBAL_SUFFIX(zsyrk,ZSYRK)
|
224 | 224 | #define F77_zsyr2k_base F77_GLOBAL_SUFFIX(zsyr2k,ZSYR2K)
|
|
393 | 393 | /* Single Precision */
|
394 | 394 |
|
395 | 395 | #define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__, 1, 1)
|
396 |
| - #define F77_sgemmt(...) F77_sgemmt_base(__VA_ARGS__, 1, 1, 1) |
| 396 | + #define F77_sgemmtr(...) F77_sgemmtr_base(__VA_ARGS__, 1, 1, 1) |
397 | 397 | #define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__, 1, 1)
|
398 | 398 | #define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__, 1, 1)
|
399 | 399 | #define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__, 1, 1)
|
|
403 | 403 | /* Double Precision */
|
404 | 404 |
|
405 | 405 | #define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__, 1, 1)
|
406 |
| - #define F77_dgemmt(...) F77_dgemmt_base(__VA_ARGS__, 1, 1, 1) |
| 406 | + #define F77_dgemmtr(...) F77_dgemmtr_base(__VA_ARGS__, 1, 1, 1) |
407 | 407 | #define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__, 1, 1)
|
408 | 408 | #define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__, 1, 1)
|
409 | 409 | #define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__, 1, 1)
|
|
413 | 413 | /* Single Complex Precision */
|
414 | 414 |
|
415 | 415 | #define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__, 1, 1)
|
416 |
| - #define F77_cgemmt(...) F77_cgemmt_base(__VA_ARGS__, 1, 1, 1) |
| 416 | + #define F77_cgemmtr(...) F77_cgemmtr_base(__VA_ARGS__, 1, 1, 1) |
417 | 417 | #define F77_csymm(...) F77_csymm_base(__VA_ARGS__, 1, 1)
|
418 | 418 | #define F77_chemm(...) F77_chemm_base(__VA_ARGS__, 1, 1)
|
419 | 419 | #define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__, 1, 1)
|
|
426 | 426 | /* Double Complex Precision */
|
427 | 427 |
|
428 | 428 | #define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__, 1, 1)
|
429 |
| - #define F77_zgemmt(...) F77_zgemmt_base(__VA_ARGS__, 1, 1, 1) |
| 429 | + #define F77_zgemmtr(...) F77_zgemmtr_base(__VA_ARGS__, 1, 1, 1) |
430 | 430 | #define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__, 1, 1)
|
431 | 431 | #define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__, 1, 1)
|
432 | 432 | #define F77_zsyrk(...) F77_zsyrk_base(__VA_ARGS__, 1, 1)
|
|
521 | 521 | /* Single Precision */
|
522 | 522 |
|
523 | 523 | #define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__)
|
524 |
| - #define F77_sgemmt(...) F77_sgemmt_base(__VA_ARGS__) |
| 524 | + #define F77_sgemmtr(...) F77_sgemmtr_base(__VA_ARGS__) |
525 | 525 | #define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__)
|
526 | 526 | #define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__)
|
527 | 527 | #define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__)
|
|
531 | 531 | /* Double Precision */
|
532 | 532 |
|
533 | 533 | #define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__)
|
534 |
| - #define F77_dgemmt(...) F77_dgemmt_base(__VA_ARGS__) |
| 534 | + #define F77_dgemmtr(...) F77_dgemmtr_base(__VA_ARGS__) |
535 | 535 | #define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__)
|
536 | 536 | #define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__)
|
537 | 537 | #define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__)
|
|
541 | 541 | /* Single Complex Precision */
|
542 | 542 |
|
543 | 543 | #define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__)
|
544 |
| - #define F77_cgemmt(...) F77_cgemmt_base(__VA_ARGS__) |
| 544 | + #define F77_cgemmtr(...) F77_cgemmtr_base(__VA_ARGS__) |
545 | 545 | #define F77_csymm(...) F77_csymm_base(__VA_ARGS__)
|
546 | 546 | #define F77_chemm(...) F77_chemm_base(__VA_ARGS__)
|
547 | 547 | #define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__)
|
|
554 | 554 | /* Double Complex Precision */
|
555 | 555 |
|
556 | 556 | #define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__)
|
557 |
| - #define F77_zgemmt(...) F77_zgemmt_base(__VA_ARGS__) |
| 557 | + #define F77_zgemmtr(...) F77_zgemmtr_base(__VA_ARGS__) |
558 | 558 | #define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__)
|
559 | 559 | #define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__)
|
560 | 560 | #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 *
|
993 | 993 | , FORTRAN_STRLEN, FORTRAN_STRLEN
|
994 | 994 | #endif
|
995 | 995 | );
|
996 |
| -void F77_sgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT |
| 996 | +void F77_sgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT |
997 | 997 | #ifdef BLAS_FORTRAN_STRLEN_END
|
998 | 998 | , size_t, size_t, size_t
|
999 | 999 | #endif
|
@@ -1032,7 +1032,7 @@ void F77_dgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double
|
1032 | 1032 | , FORTRAN_STRLEN, FORTRAN_STRLEN
|
1033 | 1033 | #endif
|
1034 | 1034 | );
|
1035 |
| -void F77_dgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT |
| 1035 | +void F77_dgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT |
1036 | 1036 | #ifdef BLAS_FORTRAN_STRLEN_END
|
1037 | 1037 | , size_t, size_t, size_t
|
1038 | 1038 | #endif
|
@@ -1072,7 +1072,7 @@ void F77_cgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *,
|
1072 | 1072 | #endif
|
1073 | 1073 | );
|
1074 | 1074 |
|
1075 |
| -void F77_cgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT |
| 1075 | +void F77_cgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT |
1076 | 1076 | #ifdef BLAS_FORTRAN_STRLEN_END
|
1077 | 1077 | , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
1078 | 1078 | #endif
|
@@ -1127,7 +1127,7 @@ void F77_zgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *,
|
1127 | 1127 | #endif
|
1128 | 1128 | );
|
1129 | 1129 |
|
1130 |
| -void F77_zgemmt_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT |
| 1130 | +void F77_zgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT |
1131 | 1131 | #ifdef BLAS_FORTRAN_STRLEN_END
|
1132 | 1132 | , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
1133 | 1133 | #endif
|
|
0 commit comments