From 8f57dae41630a9931882fc38e9dc9072e882de75 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Fri, 9 Feb 2018 22:16:15 +0100
Subject: [PATCH] Fix flus/wait order in timings
---
timing/time_zgetri_tile.c | 6 +++---
timing/time_zpotri_tile.c | 9 ++++++---
2 files changed, 9 insertions(+), 6 deletions(-)
diff --git a/timing/time_zgetri_tile.c b/timing/time_zgetri_tile.c
index 84bace17f..6a32b1897 100644
--- a/timing/time_zgetri_tile.c
+++ b/timing/time_zgetri_tile.c
@@ -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);
diff --git a/timing/time_zpotri_tile.c b/timing/time_zpotri_tile.c
index 906c2de8d..78f20db8f 100644
--- a/timing/time_zpotri_tile.c
+++ b/timing/time_zpotri_tile.c
@@ -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);
--
GitLab