X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/5e7bfe440cdfcbb8781bdcab959cd40abc9a3d29..246388d21097723092dfc24d709231ff2b493010:/src/smpi/bindings/smpi_pmpi_group.cpp diff --git a/src/smpi/bindings/smpi_pmpi_group.cpp b/src/smpi/bindings/smpi_pmpi_group.cpp index 0c52427657..172b5c10ed 100644 --- a/src/smpi/bindings/smpi_pmpi_group.cpp +++ b/src/smpi/bindings/smpi_pmpi_group.cpp @@ -1,4 +1,4 @@ -/* 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. */ @@ -14,7 +14,6 @@ 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) { @@ -47,7 +46,7 @@ int PMPI_Group_rank(MPI_Group group, int *rank) } else if (rank == nullptr) { return MPI_ERR_ARG; } else { - *rank = group->rank(smpi_process()->index()); + *rank = group->rank(simgrid::s4u::this_actor::get_pid()); return MPI_SUCCESS; } } @@ -190,6 +189,3 @@ MPI_Group PMPI_Group_f2c(MPI_Fint group){ MPI_Fint PMPI_Group_c2f(MPI_Group group){ return group->c2f(); } - - -}