#include "private.hpp"
#include "smpi_comm.hpp"
-#include "smpi_process.hpp"
+#include "src/smpi/include/smpi_actor.hpp"
XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(smpi_pmpi);
return MPI_ERR_GROUP;
} else if (newcomm == nullptr) {
return MPI_ERR_ARG;
- } else if (group->rank(simgrid::s4u::this_actor::getPid()) == MPI_UNDEFINED) {
+ } else if (group->rank(simgrid::s4u::this_actor::get_pid()) == MPI_UNDEFINED) {
*newcomm= MPI_COMM_NULL;
return MPI_SUCCESS;
}else{
return retval;
}
+int PMPI_Comm_split_type(MPI_Comm comm, int split_type, int key, MPI_Info info, MPI_Comm *newcomm)
+{
+ int retval = 0;
+ smpi_bench_end();
+
+ if (newcomm == nullptr) {
+ retval = MPI_ERR_ARG;
+ } else if (comm == MPI_COMM_NULL) {
+ retval = MPI_ERR_COMM;
+ } else {
+ *newcomm = comm->split_type(split_type, key, info);
+ retval = MPI_SUCCESS;
+ }
+ smpi_bench_begin();
+
+ return retval;
+}
+
int PMPI_Comm_create_group(MPI_Comm comm, MPI_Group group, int, MPI_Comm* comm_out)
{
int retval = 0;