-/* Copyright (c) 2007-2017. The SimGrid Team. All rights reserved. */
+/* Copyright (c) 2007-2018. The SimGrid Team. All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
#include "smpi_comm.hpp"
#include "smpi_datatype_derived.hpp"
#include "smpi_op.hpp"
-#include "smpi_process.hpp"
+#include "src/smpi/include/smpi_actor.hpp"
XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(smpi_pmpi);
-
/* PMPI User level calls */
-extern "C" { // Obviously, the C MPI interface should use the C linkage
int PMPI_Group_free(MPI_Group * group)
{
} else if (rank == nullptr) {
return MPI_ERR_ARG;
} else {
- *rank = group->rank(simgrid::s4u::Actor::self()->getPid());
+ *rank = group->rank(simgrid::s4u::this_actor::get_pid());
return MPI_SUCCESS;
}
}
MPI_Fint PMPI_Group_c2f(MPI_Group group){
return group->c2f();
}
-
-
-}