|
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