From 37f43c070fd6b60a59138781b9d66ca952265e9e Mon Sep 17 00:00:00 2001
From: Samuel Thibault <samuel.thibault@inria.fr>
Date: Thu, 17 Sep 2015 17:11:38 +0000
Subject: [PATCH] Avoid final MPI calls in simulation mode, as the starpu MPI
thread will be over at that time
---
control/control.c | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/control/control.c b/control/control.c
index 0263c4eb6..5d62e5dd2 100644
--- a/control/control.c
+++ b/control/control.c
@@ -98,8 +98,8 @@ int MORSE_InitPar(int ncpus, int ncudas, int nthreads_per_worker)
#if defined(CHAMELEON_USE_MPI)
# if defined(CHAMELEON_SIMULATION)
- /* Assuming that there was no outer init (which SMPI doesn't support anyway) */
- morse->mpi_outer_init = 0;
+ /* Assuming that we don't initialize MPI ourself (which SMPI doesn't support anyway) */
+ morse->mpi_outer_init = 1;
# else
{
int flag = 0, provided = 0;
@@ -143,7 +143,9 @@ int MORSE_Finalize(void)
magma_finalize();
#endif
morse_context_destroy();
+# if !defined(CHAMELEON_SIMULATION)
RUNTIME_barrier(morse);
+# endif
#if defined(CHAMELEON_USE_MPI)
if (!morse->mpi_outer_init)
MPI_Finalize();
--
GitLab