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);
}
}
}
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();
}