From eb9480ff55d0c38895698da9e2141740007e5e90 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Tue, 17 Dec 2024 17:00:37 +0100
Subject: [PATCH] coreblas/tradd: Fix tradd call with beta complex
---
coreblas/compute/core_ztradd.c | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/coreblas/compute/core_ztradd.c b/coreblas/compute/core_ztradd.c
index 924ec0fca..de868b032 100644
--- a/coreblas/compute/core_ztradd.c
+++ b/coreblas/compute/core_ztradd.c
@@ -146,8 +146,7 @@ int CORE_ztradd(cham_uplo_t uplo, cham_trans_t trans, int M, int N,
M, N, 0., 0., B, LDB );
}
else if ( beta != (CHAMELEON_Complex64_t)1. ) {
- LAPACKE_zlascl_work( LAPACK_COL_MAJOR, chameleon_lapack_const(uplo),
- 0, 0, 1., beta, M, N, B, LDB );
+ CORE_zlascal( uplo, M, N, beta, B, LDB );
}
/**
--
GitLab