From 0f2ad71b9ba5e1cc219bacd355a4c35b1e581d4a Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Thu, 24 Jan 2019 10:14:33 +0100
Subject: [PATCH] Add missing flushes
---
compute/pzlange.c | 4 ++++
compute/pzlansy.c | 4 ++++
compute/zlange.c | 2 +-
3 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/compute/pzlange.c b/compute/pzlange.c
index e72a19c28..2bb14d7a2 100644
--- a/compute/pzlange.c
+++ b/compute/pzlange.c
@@ -517,7 +517,11 @@ void chameleon_pzlange_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_dia
}
}
+ if ( wcol_init ) {
+ CHAMELEON_Desc_Flush( &Wcol, sequence );
+ }
CHAMELEON_Desc_Flush( &Welt, sequence );
+ CHAMELEON_Desc_Flush( A, sequence );
RUNTIME_sequence_wait(chamctxt, sequence);
*result = *((double *)Welt.get_blkaddr( &Welt, A->myrank / A->q, A->myrank % A->q ));
diff --git a/compute/pzlansy.c b/compute/pzlansy.c
index 6a0e2bb00..5763df96d 100644
--- a/compute/pzlansy.c
+++ b/compute/pzlansy.c
@@ -423,7 +423,11 @@ void chameleon_pzlansy_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_tra
}
}
+ if ( wcol_init ) {
+ CHAMELEON_Desc_Flush( &Wcol, sequence );
+ }
CHAMELEON_Desc_Flush( &Welt, sequence );
+ CHAMELEON_Desc_Flush( A, sequence );
RUNTIME_sequence_wait(chamctxt, sequence);
*result = *(double *)Welt.get_blkaddr( &Welt, A->myrank / A->q, A->myrank % A->q );
diff --git a/compute/zlange.c b/compute/zlange.c
index cb8ff14bf..522c8c204 100644
--- a/compute/zlange.c
+++ b/compute/zlange.c
@@ -188,7 +188,7 @@ double CHAMELEON_zlange(cham_normtype_t norm, int M, int N,
* @sa CHAMELEON_slange_Tile
*
*/
-double CHAMELEON_zlange_Tile(cham_normtype_t norm, CHAM_desc_t *A )
+double CHAMELEON_zlange_Tile( cham_normtype_t norm, CHAM_desc_t *A )
{
CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
--
GitLab