From 6971dbe2da2b0d1ce79d2daf34d03e5a607f62c9 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Mon, 12 Feb 2018 17:37:30 +0100
Subject: [PATCH] Add mpi protection
---
control/control.c | 3 +++
1 file changed, 3 insertions(+)
diff --git a/control/control.c b/control/control.c
index 546353686..27169f016 100644
--- a/control/control.c
+++ b/control/control.c
@@ -104,10 +104,13 @@ int MORSE_InitPar(int ncpus, int ncudas, int nthreads_per_worker)
}
# endif
#endif
+
RUNTIME_init( morse, ncpus, ncudas, nthreads_per_worker );
+#if defined(CHAMELEON_USE_MPI)
morse->my_mpi_rank = RUNTIME_comm_rank( morse );
morse->mpi_comm_size = RUNTIME_comm_size( morse );
+#endif
return MORSE_SUCCESS;
}
--
GitLab