From e2236009d36855565238b6610afde0c737dd6117 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Wed, 24 Jan 2018 18:50:01 +0100
Subject: [PATCH] I hope this time I did not forget any
---
compute/zgels_param.c | 2 +-
compute/zgeqrs.c | 5 +++++
compute/zgeqrs_param.c | 2 +-
3 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/compute/zgels_param.c b/compute/zgels_param.c
index a05519404..5619b004a 100644
--- a/compute/zgels_param.c
+++ b/compute/zgels_param.c
@@ -424,9 +424,9 @@ int MORSE_zgels_param_Tile_Async( const libhqr_tree_t *qrtree, MORSE_enum trans,
if (Dptr != NULL) {
MORSE_Desc_Flush( A, sequence );
+ MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( TS, sequence );
MORSE_Desc_Flush( TT, sequence );
- MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( Dptr, sequence );
morse_sequence_wait( morse, sequence );
morse_desc_mat_free( Dptr );
diff --git a/compute/zgeqrs.c b/compute/zgeqrs.c
index 9f71621df..d8de43c6e 100644
--- a/compute/zgeqrs.c
+++ b/compute/zgeqrs.c
@@ -333,6 +333,11 @@ int MORSE_zgeqrs_Tile_Async( MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
free(subB);
if (Dptr != NULL) {
+ MORSE_Desc_Flush( A, sequence );
+ MORSE_Desc_Flush( B, sequence );
+ MORSE_Desc_Flush( T, sequence );
+ MORSE_Desc_Flush( Dptr, sequence );
+ morse_sequence_wait( morse, sequence );
morse_desc_mat_free( Dptr );
}
(void)D;
diff --git a/compute/zgeqrs_param.c b/compute/zgeqrs_param.c
index d76227489..cd7f17b6b 100644
--- a/compute/zgeqrs_param.c
+++ b/compute/zgeqrs_param.c
@@ -332,9 +332,9 @@ int MORSE_zgeqrs_param_Tile_Async( const libhqr_tree_t *qrtree,
if (Dptr != NULL) {
MORSE_Desc_Flush( A, sequence );
+ MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( TS, sequence );
MORSE_Desc_Flush( TT, sequence );
- MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( Dptr, sequence );
morse_sequence_wait( morse, sequence );
morse_desc_mat_free( Dptr );
--
GitLab