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_)
MORSE_zlaswpc_Tile_Async( descA, 1, descA->m, piv, -1,
sequence, &request[3] );
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING();
} else {
......@@ -196,8 +196,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
sequence, &request[3] );
/* Wait for everything */
MORSE_Sequence_Wait( sequence );
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait( sequence );
STOP_TIMING();
}
......@@ -229,8 +229,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
START_TIMING();
MORSE_zgetrf_Tile_Async(descA, piv, sequence, &request[0]);
MORSE_zgetri_Tile_Async(descA, piv, &descW, sequence, &request[1]);
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING();
MORSE_Sequence_Destroy(sequence);
......
......@@ -61,14 +61,17 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
START_TIMING();
MORSE_zpotrf_Tile_Async(uplo, descA, sequence, &request[0]);
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
MORSE_ztrtri_Tile_Async(uplo, MorseNonUnit, descA, sequence, &request[1]);
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
MORSE_zlauum_Tile_Async(uplo, descA, sequence, &request[2]);
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING();
} else {
......@@ -78,8 +81,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_ztrtri_Tile_Async(uplo, MorseNonUnit, descA, sequence, &request[1]);
MORSE_zlauum_Tile_Async(uplo, descA, sequence, &request[2]);
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING();
}
......@@ -108,8 +111,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_Sequence_Create(&sequence);
MORSE_zpotrf_Tile_Async(uplo, descA, sequence, &request[0]);
MORSE_zpotri_Tile_Async(uplo, descA, sequence, &request[1]);
MORSE_Sequence_Wait(sequence);
MORSE_Desc_Flush( descA, sequence );
MORSE_Sequence_Wait(sequence);
STOP_TIMING();
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