Add missing flushes

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

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

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;