Move rank/comm_size initialization to upper level for all runtimes

control/control.c

@@ -105,6 +105,10 @@ int MORSE_InitPar(int ncpus, int ncudas, int nthreads_per_worker)
 #  endif
 #endif
     RUNTIME_init( morse, ncpus, ncudas, nthreads_per_worker );
+
+    morse->my_mpi_rank   = RUNTIME_comm_rank( morse );
+    morse->mpi_comm_size = RUNTIME_comm_size( morse );
+
     return MORSE_SUCCESS;
 }
 

runtime/starpu/control/runtime_control.c

@@ -102,8 +102,6 @@ int RUNTIME_init( MORSE_context_t *morse,
         MPI_Initialized( &flag );
 #endif
         starpu_mpi_init(NULL, NULL, !flag);
-        morse->my_mpi_rank = RUNTIME_comm_rank( morse );
-        morse->mpi_comm_size = RUNTIME_comm_size( morse );
     }
 #endif