I hope this time I did not forget any

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 );

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;

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 );