From 6a2938332b46111b14c4606388d684bf33cac70a Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Fri, 8 Apr 2016 15:22:16 -0400
Subject: [PATCH] Update the geadd kernel to a more generic function, adn move
a step forward in LR3 version
---
z_spm_genrhs.c | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/z_spm_genrhs.c b/z_spm_genrhs.c
index f0f6ee19..dc099b0e 100644
--- a/z_spm_genrhs.c
+++ b/z_spm_genrhs.c
@@ -374,7 +374,9 @@ z_spmCheckAxb( int nrhs,
*/
if ( x0 != NULL ) {
normX0 = LAPACKE_zlange( LAPACK_COL_MAJOR, 'I', spm->n, nrhs, x0, ldx0 );
- core_zgeadd( PastixNoTrans, spm->n, nrhs, -1., x, ldx, x0, ldx0 );
+ core_zgeadd( PastixNoTrans, spm->n, nrhs,
+ -1., x, ldx,
+ 1., x0, ldx0 );
normR = LAPACKE_zlange( LAPACK_COL_MAJOR, 'I', spm->n, nrhs, x0, ldx0 );
forward = normR / normX0;
--
GitLab