floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix argument lists of RELAPACK_?gemmt for good

This commit is contained in:
Martin Kroeker 2024-03-17 19:20:19 +01:00 committed by GitHub
parent 79cb121ab9
commit 2e9ce9bb07
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
relapack/src/lapack_wrappers.c
View File

@ -566,8 +566,7 @@ void LAPACK(sgemmt)(
const float *B, const blasint *ldB, const float *B, const blasint *ldB,
const float *beta, float *C, const blasint *ldC const float *beta, float *C, const blasint *ldC
) { ) {
blasint info; RELAPACK_sgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, ldC);
RELAPACK_sgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, info);
} }
#endif #endif
@ -579,8 +578,7 @@ void LAPACK(dgemmt)(
const double *B, const blasint *ldB, const double *B, const blasint *ldB,
const double *beta, double *C, const blasint *ldC const double *beta, double *C, const blasint *ldC
) { ) {
blasint info; RELAPACK_dgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, ldC);
RELAPACK_dgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, info);
} }
#endif #endif
@ -592,8 +590,7 @@ void LAPACK(cgemmt)(
const float *B, const blasint *ldB, const float *B, const blasint *ldB,
const float *beta, float *C, const blasint *ldC const float *beta, float *C, const blasint *ldC
) { ) {
blasint info; RELAPACK_cgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, ldC);
RELAPACK_cgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, info);
} }
#endif #endif
@ -605,7 +602,6 @@ void LAPACK(zgemmt)(
const double *B, const blasint *ldB, const double *B, const blasint *ldB,
const double *beta, double *C, const blasint *ldC const double *beta, double *C, const blasint *ldC
) { ) {
blasint info; RELAPACK_zgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, ldC);
RELAPACK_zgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, info);
} }
#endif #endif