add flush for unglq and ungqr

compute/pzunglq.c

@@ -116,6 +116,8 @@ void morse_pzunglq(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc
                     Q(m, k), ldqm,
                     Q(m, n), ldqm);
             }
+            MORSE_TASK_dataflush( &options, A(k, n) );
+            MORSE_TASK_dataflush( &options, T(k, n) );
         }
 #if defined(CHAMELEON_COPY_DIAG)
         MORSE_TASK_zlacpy(
@@ -147,6 +149,9 @@ void morse_pzunglq(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc
                 Q(m, k), ldqm);
         }
 
+        MORSE_TASK_dataflush( &options, D(k)    );
+        MORSE_TASK_dataflush( &options, T(k, k) );
+
         RUNTIME_iteration_pop(morse);
     }
 

compute/pzunglq_param.c

@@ -127,6 +127,8 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
                     Q(m, p), ldqm,
                     Q(m, n), ldqm);
             }
+            MORSE_TASK_dataflush( &options, A(k, n) );
+            MORSE_TASK_dataflush( &options, T(k, n) );
         }
 
         T = TS;
@@ -165,7 +167,10 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
                     T(k, p), T->mb,
                     Q(m, p), ldqm);
             }
+            MORSE_TASK_dataflush( &options, D(k, p) );
+            MORSE_TASK_dataflush( &options, T(k, p) );
         }
+
         RUNTIME_iteration_pop(morse);
     }
 

compute/pzungqr_param.c

@@ -133,6 +133,8 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
                     Q(p, n), ldqp,
                     Q(m, n), ldqm);
             }
+            MORSE_TASK_dataflush( &options, A(m, k) );
+            MORSE_TASK_dataflush( &options, T(m, k) );
         }
 
         T = TS;
@@ -174,7 +176,10 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
                     T(m, k), T->mb,
                     Q(m, n), ldqm);
             }
+            MORSE_TASK_dataflush( &options, A(m, k) );
+            MORSE_TASK_dataflush( &options, T(m, k) );
         }
+
         RUNTIME_iteration_pop(morse);
     }