if(ranks1[i]==MPI_PROC_NULL){
ranks2[i]=MPI_PROC_NULL;
}else{
- simgrid::s4u::ActorPtr actor = group1->actor(ranks1[i]);
+ simgrid::s4u::Actor* actor = group1->actor(ranks1[i]);
ranks2[i] = group2->rank(actor);
}
}
int PMPI_Group_union(MPI_Group group1, MPI_Group group2, MPI_Group * newgroup)
{
-
if (group1 == MPI_GROUP_NULL || group2 == MPI_GROUP_NULL) {
return MPI_ERR_GROUP;
} else if (newgroup == nullptr) {
int PMPI_Group_intersection(MPI_Group group1, MPI_Group group2, MPI_Group * newgroup)
{
-
if (group1 == MPI_GROUP_NULL || group2 == MPI_GROUP_NULL) {
return MPI_ERR_GROUP;
} else if (newgroup == nullptr) {
}
MPI_Group PMPI_Group_f2c(MPI_Fint group){
+ if(group==-1)
+ return MPI_GROUP_NULL;
return simgrid::smpi::Group::f2c(group);
}
MPI_Fint PMPI_Group_c2f(MPI_Group group){
+ if(group==MPI_GROUP_NULL)
+ return -1;
return group->c2f();
}