Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 8f57dae4 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Fix flus/wait order in timings

parent efb25dc1
No related branches found
No related tags found
1 merge request!92Fix issue #8 and #4 - gitlab parsec
...@@ -179,8 +179,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -179,8 +179,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_zlaswpc_Tile_Async( descA, 1, descA->m, piv, -1, MORSE_zlaswpc_Tile_Async( descA, 1, descA->m, piv, -1,
sequence, &request[3] ); sequence, &request[3] );
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence ); MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING(); STOP_TIMING();
} else { } else {
...@@ -196,8 +196,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -196,8 +196,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
sequence, &request[3] ); sequence, &request[3] );
/* Wait for everything */ /* Wait for everything */
MORSE_Sequence_Wait( sequence );
MORSE_Desc_Flush( descA, sequence ); MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait( sequence );
STOP_TIMING(); STOP_TIMING();
} }
...@@ -229,8 +229,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -229,8 +229,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
START_TIMING(); START_TIMING();
MORSE_zgetrf_Tile_Async(descA, piv, sequence, &request[0]); MORSE_zgetrf_Tile_Async(descA, piv, sequence, &request[0]);
MORSE_zgetri_Tile_Async(descA, piv, &descW, sequence, &request[1]); MORSE_zgetri_Tile_Async(descA, piv, &descW, sequence, &request[1]);
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence ); MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING(); STOP_TIMING();
MORSE_Sequence_Destroy(sequence); MORSE_Sequence_Destroy(sequence);
......
...@@ -61,14 +61,17 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -61,14 +61,17 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
START_TIMING(); START_TIMING();
MORSE_zpotrf_Tile_Async(uplo, descA, sequence, &request[0]); MORSE_zpotrf_Tile_Async(uplo, descA, sequence, &request[0]);
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence); MORSE_Sequence_Wait(sequence);
MORSE_ztrtri_Tile_Async(uplo, MorseNonUnit, descA, sequence, &request[1]); MORSE_ztrtri_Tile_Async(uplo, MorseNonUnit, descA, sequence, &request[1]);
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence); MORSE_Sequence_Wait(sequence);
MORSE_zlauum_Tile_Async(uplo, descA, sequence, &request[2]); MORSE_zlauum_Tile_Async(uplo, descA, sequence, &request[2]);
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence ); MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING(); STOP_TIMING();
} else { } else {
...@@ -78,8 +81,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -78,8 +81,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_ztrtri_Tile_Async(uplo, MorseNonUnit, descA, sequence, &request[1]); MORSE_ztrtri_Tile_Async(uplo, MorseNonUnit, descA, sequence, &request[1]);
MORSE_zlauum_Tile_Async(uplo, descA, sequence, &request[2]); MORSE_zlauum_Tile_Async(uplo, descA, sequence, &request[2]);
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence ); MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING(); STOP_TIMING();
} }
...@@ -108,8 +111,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -108,8 +111,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_Sequence_Create(&sequence); MORSE_Sequence_Create(&sequence);
MORSE_zpotrf_Tile_Async(uplo, descA, sequence, &request[0]); MORSE_zpotrf_Tile_Async(uplo, descA, sequence, &request[0]);
MORSE_zpotri_Tile_Async(uplo, descA, sequence, &request[1]); MORSE_zpotri_Tile_Async(uplo, descA, sequence, &request[1]);
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence ); MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING(); STOP_TIMING();
MORSE_Sequence_Destroy(sequence); MORSE_Sequence_Destroy(sequence);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment