From d3e8b67abef21f738ec91455c1cbc4ac7799476d Mon Sep 17 00:00:00 2001
From: NICOLAS Brieuc <brieuc.nicolas@inria.fr>
Date: Tue, 26 Nov 2024 11:23:30 +0100
Subject: [PATCH] fix matrix scaling by a complex scalar
---
coreblas/compute/core_zgeadd.c | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/coreblas/compute/core_zgeadd.c b/coreblas/compute/core_zgeadd.c
index 3372e5c15..6cb2457a5 100644
--- a/coreblas/compute/core_zgeadd.c
+++ b/coreblas/compute/core_zgeadd.c
@@ -119,8 +119,7 @@ int CORE_zgeadd(cham_trans_t trans, int M, int N,
M, N, 0., 0., B, LDB );
}
else if ( beta != 1. ) {
- LAPACKE_zlascl_work( LAPACK_COL_MAJOR, 'G',
- 0, 0, 1., beta, M, N, B, LDB );
+ CORE_zlascal( ChamUpperLower, M, N, beta, B, LDB );
}
if( trans == ChamNoTrans ) {
--
GitLab