From d635aa35f5bca8fbff393d726bf270707894b412 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Thu, 17 Mar 2022 23:59:13 +0100
Subject: [PATCH] coreblas/tradd: cast specific value
---
coreblas/compute/core_ztradd.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/coreblas/compute/core_ztradd.c b/coreblas/compute/core_ztradd.c
index 6c32d3323..58c09a7bd 100644
--- a/coreblas/compute/core_ztradd.c
+++ b/coreblas/compute/core_ztradd.c
@@ -141,11 +141,11 @@ int CORE_ztradd(cham_uplo_t uplo, cham_trans_t trans, int M, int N,
minMN = chameleon_min( M, N );
- if ( beta == 0. ) {
+ if ( beta == (CHAMELEON_Complex64_t)0. ) {
LAPACKE_zlaset_work( LAPACK_COL_MAJOR, chameleon_lapack_const(uplo),
M, N, 0., 0., B, LDB );
}
- else if ( beta != 1. ) {
+ 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 );
}
--
GitLab