Skip to content

Implement xGEMMTR and cblas_xGEMMTR #887

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 23 commits into from
Jun 28, 2024
Merged

Implement xGEMMTR and cblas_xGEMMTR #887

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
23 commits
Select commit Hold shift + click to select a range
19b0016
Add xGEMMT and their test cases
grisuthedragon Jul 19, 2023
5daea48
CBLAS routines for xGEMMT added
grisuthedragon Jul 20, 2023
630fb5b
Tests for cblas_cgemmt
grisuthedragon Jul 21, 2023
b25cf2c
Update documentation of xGEMMT
grisuthedragon Aug 22, 2023
fb5325d
Fix implicit variable
grisuthedragon Aug 22, 2023
2f80551
Fix further implicit variables
grisuthedragon Aug 22, 2023
05d01da
Fix missing comma
grisuthedragon Aug 22, 2023
6f66c83
Remove useless variable
grisuthedragon Aug 22, 2023
785d734
Fix wrong write
grisuthedragon Aug 22, 2023
6173b6e
Fix another variable
grisuthedragon Aug 22, 2023
327869d
Rename GEMMT to GEMMTR in BLAS/
grisuthedragon Jun 21, 2024
81b3767
Change xGEMMT to xGEMMTR in CBLAS/
grisuthedragon Jun 21, 2024
cb81e00
Adjust BLAS test for routine names with at most 7 characters
grisuthedragon Jun 21, 2024
f9ea71e
Fix missing arguments in tests
grisuthedragon Jun 21, 2024
60d0e76
Adding cblas_zgemmtr test
grisuthedragon Jun 21, 2024
b721a55
Working CBLAS_ZGEMMTR Test
grisuthedragon Jun 24, 2024
adaf724
Update comments
grisuthedragon Jun 24, 2024
b681b1e
Add cblas_dgemmtr test
grisuthedragon Jun 24, 2024
63d2b3a
add cblas_sgemmtr tests
grisuthedragon Jun 24, 2024
8571780
Working error tests on cblas_cgemmtr
grisuthedragon Jun 24, 2024
34adaba
Add tests for cblas_s/d/zgemmtr
grisuthedragon Jun 24, 2024
0e37c5c
Fix CMake Build
grisuthedragon Jun 24, 2024
c57c156
Add gemmtr group to Doxygen
grisuthedragon Jun 27, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Fix missing arguments in tests
  • Loading branch information
@grisuthedragon
grisuthedragon committed Jun 24, 2024
commit f9ea71ef3d10b19d654415e8b62c2a1ed02e3c5e
4 changes: 2 additions & 2 deletions CBLAS/testing/c_c2chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ void F77_xerbla(F77_Char F77_srname, void *vinfo
void F77_xerbla(char *srname, void *vinfo
#endif
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN srname_len
#endif
);

Expand All @@ -30,7 +30,7 @@ void chkxer(void) {

void F77_c2chke(char *rout
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN rout_len
#endif
) {
char *sf = ( rout ) ;
Expand Down
4 changes: 2 additions & 2 deletions CBLAS/testing/c_c3chke.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ void F77_xerbla(F77_Char F77_srname, void *vinfo
void F77_xerbla(char *srname, void *vinfo
#endif
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN srname_len
#endif
);

Expand All @@ -30,7 +30,7 @@ void chkxer(void) {

void F77_c3chke(char * rout
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN rout_len
#endif
) {
char *sf = ( rout ) ;
Expand Down
30 changes: 15 additions & 15 deletions CBLAS/testing/c_cblas2.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ void F77_cgemv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n,
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, const void *x, CBLAS_INT *incx,
const void *beta, void *y, CBLAS_INT *incy
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN transp_len
#endif
) {

Expand Down Expand Up @@ -47,7 +47,7 @@ void F77_cgbmv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n, CBLA
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN transp_len
#endif
) {

Expand Down Expand Up @@ -154,7 +154,7 @@ void F77_chemv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
CBLAS_INT *incx, CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len
#endif
){

Expand Down Expand Up @@ -189,7 +189,7 @@ void F77_chbmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_INT *k,
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len
#endif
){

Expand Down Expand Up @@ -256,7 +256,7 @@ void F77_chpmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len
#endif
){

Expand Down Expand Up @@ -316,7 +316,7 @@ void F77_ctbmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
CBLAS_INT *n, CBLAS_INT *k, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
CBLAS_INT *incx
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
#endif
) {
CBLAS_TEST_COMPLEX *A;
Expand Down Expand Up @@ -383,7 +383,7 @@ void F77_ctbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
CBLAS_INT *n, CBLAS_INT *k, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
CBLAS_INT *incx
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
#endif
) {

Expand Down Expand Up @@ -450,7 +450,7 @@ void F77_ctbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
void F77_ctpmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
CBLAS_INT *n, CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len , FORTRAN_STRLEN diagn_len
#endif
) {
CBLAS_TEST_COMPLEX *A, *AP;
Expand Down Expand Up @@ -509,7 +509,7 @@ void F77_ctpmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
void F77_ctpsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
CBLAS_INT *n, CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
#endif
) {
CBLAS_TEST_COMPLEX *A, *AP;
Expand Down Expand Up @@ -569,7 +569,7 @@ void F77_ctrmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
CBLAS_INT *n, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
CBLAS_INT *incx
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
#endif
) {
CBLAS_TEST_COMPLEX *A;
Expand Down Expand Up @@ -602,7 +602,7 @@ void F77_ctrsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
CBLAS_INT *n, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x,
CBLAS_INT *incx
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
#endif
) {
CBLAS_TEST_COMPLEX *A;
Expand Down Expand Up @@ -635,7 +635,7 @@ void F77_ctrsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn,
void F77_chpr(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha,
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *ap
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len
#endif
) {
CBLAS_TEST_COMPLEX *A, *AP;
Expand Down Expand Up @@ -715,7 +715,7 @@ void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy,
CBLAS_TEST_COMPLEX *ap
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len
#endif
) {
CBLAS_TEST_COMPLEX *A, *AP;
Expand Down Expand Up @@ -795,7 +795,7 @@ void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
void F77_cher(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha,
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len
#endif
) {
CBLAS_TEST_COMPLEX *A;
Expand Down Expand Up @@ -832,7 +832,7 @@ void F77_cher2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX
CBLAS_TEST_COMPLEX *x, CBLAS_INT *incx, CBLAS_TEST_COMPLEX *y, CBLAS_INT *incy,
CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len
#endif
) {

Expand Down
18 changes: 9 additions & 9 deletions CBLAS/testing/c_cblas3.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ void F77_cgemm(CBLAS_INT *layout, char *transpa, char *transpb, CBLAS_INT *m, CB
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN transpa_len, FORTRAN_STRLEN transpb_len
#endif
) {

Expand Down Expand Up @@ -177,7 +177,7 @@ void F77_chemm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN rtlf_len, FORTRAN_STRLEN uplow_len
#endif
) {

Expand Down Expand Up @@ -245,7 +245,7 @@ void F77_csymm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN rtlf_len, FORTRAN_STRLEN uplow_len
#endif
) {

Expand Down Expand Up @@ -303,7 +303,7 @@ void F77_cherk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS
float *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
float *beta, CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len
#endif
) {

Expand Down Expand Up @@ -363,7 +363,7 @@ void F77_csyrk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS
CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len
#endif
) {

Expand Down Expand Up @@ -423,7 +423,7 @@ void F77_cher2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, float *beta,
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len
#endif
) {
CBLAS_INT i,j,LDA,LDB,LDC;
Expand Down Expand Up @@ -491,7 +491,7 @@ void F77_csyr2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA
CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *c, CBLAS_INT *ldc
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len
#endif
) {
CBLAS_INT i,j,LDA,LDB,LDC;
Expand Down Expand Up @@ -558,7 +558,7 @@ void F77_ctrmm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *d
CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
CBLAS_INT *lda, CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN rtlf_len, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
#endif
) {
CBLAS_INT i,j,LDA,LDB;
Expand Down Expand Up @@ -621,7 +621,7 @@ void F77_ctrsm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *d
CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
CBLAS_INT *lda, CBLAS_TEST_COMPLEX *b, CBLAS_INT *ldb
#ifdef BLAS_FORTRAN_STRLEN_END
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
, FORTRAN_STRLEN rtlf_len, FORTRAN_STRLEN uplow_len, FORTRAN_STRLEN transp_len, FORTRAN_STRLEN diagn_len
#endif
) {
CBLAS_INT i,j,LDA,LDB;
Expand Down
Loading