From f95c2f63f25f46cecef0fdd28e3c9808df6f5503 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 17 Mar 2024 19:14:37 +0100 Subject: [PATCH] Fix argument list of RELAPACK_?gemmt for good --- relapack/src/lapack_wrappers.c | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/relapack/src/lapack_wrappers.c b/relapack/src/lapack_wrappers.c index fc3dbc11ea..d6845fc9da 100644 --- a/relapack/src/lapack_wrappers.c +++ b/relapack/src/lapack_wrappers.c @@ -566,8 +566,7 @@ void LAPACK(sgemmt)( const float *B, const blasint *ldB, const float *beta, float *C, const blasint *ldC ) { - blasint info; - RELAPACK_sgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, info); + RELAPACK_sgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, ldC); } #endif @@ -579,8 +578,7 @@ void LAPACK(dgemmt)( const double *B, const blasint *ldB, const double *beta, double *C, const blasint *ldC ) { - blasint info; - RELAPACK_dgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, info); + RELAPACK_dgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, ldC); } #endif @@ -592,8 +590,7 @@ void LAPACK(cgemmt)( const float *B, const blasint *ldB, const float *beta, float *C, const blasint *ldC ) { - blasint info; - RELAPACK_cgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, info); + RELAPACK_cgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, ldC); } #endif @@ -605,7 +602,6 @@ void LAPACK(zgemmt)( const double *B, const blasint *ldB, const double *beta, double *C, const blasint *ldC ) { - blasint info; - RELAPACK_zgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, info); + RELAPACK_zgemmt(uplo, transA, transB, n, k, alpha, A, ldA, B, ldB, beta, C, ldC); } #endif