Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 37f43c07 authored by THIBAULT Samuel's avatar THIBAULT Samuel
Browse files

Avoid final MPI calls in simulation mode, as the starpu MPI thread will be over at that time

parent 528753e0
No related branches found
No related tags found
No related merge requests found
...@@ -98,8 +98,8 @@ int MORSE_InitPar(int ncpus, int ncudas, int nthreads_per_worker) ...@@ -98,8 +98,8 @@ int MORSE_InitPar(int ncpus, int ncudas, int nthreads_per_worker)
#if defined(CHAMELEON_USE_MPI) #if defined(CHAMELEON_USE_MPI)
# if defined(CHAMELEON_SIMULATION) # if defined(CHAMELEON_SIMULATION)
/* Assuming that there was no outer init (which SMPI doesn't support anyway) */ /* Assuming that we don't initialize MPI ourself (which SMPI doesn't support anyway) */
morse->mpi_outer_init = 0; morse->mpi_outer_init = 1;
# else # else
{ {
int flag = 0, provided = 0; int flag = 0, provided = 0;
...@@ -143,7 +143,9 @@ int MORSE_Finalize(void) ...@@ -143,7 +143,9 @@ int MORSE_Finalize(void)
magma_finalize(); magma_finalize();
#endif #endif
morse_context_destroy(); morse_context_destroy();
# if !defined(CHAMELEON_SIMULATION)
RUNTIME_barrier(morse); RUNTIME_barrier(morse);
# endif
#if defined(CHAMELEON_USE_MPI) #if defined(CHAMELEON_USE_MPI)
if (!morse->mpi_outer_init) if (!morse->mpi_outer_init)
MPI_Finalize(); MPI_Finalize();
......
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