diff --git a/compute/pzlange.c b/compute/pzlange.c index e72a19c28c416eb9e387e61ca3c993c085f40228..2bb14d7a2124b4a8328597063b601adc8d38d716 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 6a0e2bb0086e4892d7eab3deadb7644093c1fb81..5763df96dc4c25fd7bc097699ec354e59b62a28d 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 cb8ff14bf9b74a53ee17bb54d386302b125aeeb6..522c8c204369a4042b34ae17b2f592177e924883 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;