A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Useless casts.
[simgrid.git]
/
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
93f0cc6
..
4155bf6
100644
(file)
--- a/
src/smpi/bindings/smpi_pmpi_group.cpp
+++ b/
src/smpi/bindings/smpi_pmpi_group.cpp
@@
-1,4
+1,4
@@
-/* Copyright (c) 2007-201
7
. The SimGrid Team. All rights reserved. */
+/* Copyright (c) 2007-201
9
. 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. */
/* 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. */
@@
-8,13
+8,11
@@
#include "smpi_comm.hpp"
#include "smpi_datatype_derived.hpp"
#include "smpi_op.hpp"
#include "smpi_comm.hpp"
#include "smpi_datatype_derived.hpp"
#include "smpi_op.hpp"
-#include "s
mpi_process
.hpp"
+#include "s
rc/smpi/include/smpi_actor
.hpp"
XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(smpi_pmpi);
XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(smpi_pmpi);
-
/* PMPI User level calls */
/* PMPI User level calls */
-extern "C" { // Obviously, the C MPI interface should use the C linkage
int PMPI_Group_free(MPI_Group * group)
{
int PMPI_Group_free(MPI_Group * group)
{
@@
-47,12
+45,12
@@
int PMPI_Group_rank(MPI_Group group, int *rank)
} else if (rank == nullptr) {
return MPI_ERR_ARG;
} else {
} else if (rank == nullptr) {
return MPI_ERR_ARG;
} else {
- *rank = group->rank(simgrid::s4u::
Actor::self()->getP
id());
+ *rank = group->rank(simgrid::s4u::
this_actor::get_p
id());
return MPI_SUCCESS;
}
}
return MPI_SUCCESS;
}
}
-int PMPI_Group_translate_ranks(MPI_Group group1, int n, int *ranks1, MPI_Group group2, int *ranks2)
+int PMPI_Group_translate_ranks(MPI_Group group1, int n,
const
int *ranks1, MPI_Group group2, int *ranks2)
{
if (group1 == MPI_GROUP_NULL || group2 == MPI_GROUP_NULL) {
return MPI_ERR_GROUP;
{
if (group1 == MPI_GROUP_NULL || group2 == MPI_GROUP_NULL) {
return MPI_ERR_GROUP;
@@
-116,7
+114,7
@@
int PMPI_Group_difference(MPI_Group group1, MPI_Group group2, MPI_Group * newgro
}
}
}
}
-int PMPI_Group_incl(MPI_Group group, int n, int *ranks, MPI_Group * newgroup)
+int PMPI_Group_incl(MPI_Group group, int n,
const
int *ranks, MPI_Group * newgroup)
{
if (group == MPI_GROUP_NULL) {
return MPI_ERR_GROUP;
{
if (group == MPI_GROUP_NULL) {
return MPI_ERR_GROUP;
@@
-127,7
+125,7
@@
int PMPI_Group_incl(MPI_Group group, int n, int *ranks, MPI_Group * newgroup)
}
}
}
}
-int PMPI_Group_excl(MPI_Group group, int n, int *ranks, MPI_Group * newgroup)
+int PMPI_Group_excl(MPI_Group group, int n,
const
int *ranks, MPI_Group * newgroup)
{
if (group == MPI_GROUP_NULL) {
return MPI_ERR_GROUP;
{
if (group == MPI_GROUP_NULL) {
return MPI_ERR_GROUP;
@@
-190,6
+188,3
@@
MPI_Group PMPI_Group_f2c(MPI_Fint group){
MPI_Fint PMPI_Group_c2f(MPI_Group group){
return group->c2f();
}
MPI_Fint PMPI_Group_c2f(MPI_Group group){
return group->c2f();
}
-
-
-}