Commit 2e728b00 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Add missing flush in QR functions

parent e3bdbf60
......@@ -188,6 +188,7 @@ int MORSE_zunmlq( MORSE_enum side, MORSE_enum trans, int M, int N, int K,
MorseDescInput, MorseUpper, sequence, &request );
morse_ztile2lap( morse, &descCl, &descCt,
MorseDescInout, MorseUpperLower, sequence, &request );
MORSE_Desc_Flush( descT, sequence );
morse_sequence_wait( morse, sequence );
......
......@@ -187,6 +187,8 @@ int MORSE_zunmlq_param( const libhqr_tree_t *qrtree, MORSE_enum side, MORSE_enum
MorseDescInput, MorseUpper, sequence, &request );
morse_ztile2lap( morse, &descCl, &descCt,
MorseDescInout, MorseUpperLower, sequence, &request );
MORSE_Desc_Flush( descTS, sequence );
MORSE_Desc_Flush( descTT, sequence );
morse_sequence_wait( morse, sequence );
......
......@@ -191,6 +191,7 @@ int MORSE_zunmqr( MORSE_enum side, MORSE_enum trans, int M, int N, int K,
MorseDescInput, MorseLower, sequence, &request );
morse_ztile2lap( morse, &descCl, &descCt,
MorseDescInout, MorseUpperLower, sequence, &request );
MORSE_Desc_Flush( descT, sequence );
morse_sequence_wait( morse, sequence );
......
......@@ -192,6 +192,8 @@ int MORSE_zunmqr_param( const libhqr_tree_t *qrtree,
MorseDescInput, MorseLower, sequence, &request );
morse_ztile2lap( morse, &descCl, &descCt,
MorseDescInout, MorseUpperLower, sequence, &request );
MORSE_Desc_Flush( descTS, sequence );
MORSE_Desc_Flush( descTT, sequence );
morse_sequence_wait( morse, sequence );
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment