- int size1 = size_;
- int size2 = group2->size();
- for (int i = 0; i < size2; i++) {
- s4u::Actor* actor = group2->actor(i);
- int proc1 = this->rank(actor);
- if (proc1 == MPI_UNDEFINED) {
- size1++;
- }
- }
- if (size1 == 0) {
- *newgroup = MPI_GROUP_EMPTY;
- } else {
- *newgroup = new Group(size1);
- size2 = this->size();
- for (int i = 0; i < size2; i++) {
- s4u::Actor* actor1 = this->actor(i);
- (*newgroup)->set_mapping(actor1, i);
- }
- for (int i = size2; i < size1; i++) {
- s4u::Actor* actor = group2->actor(i - size2);
- (*newgroup)->set_mapping(actor, i);
- }
- if((*newgroup)!=MPI_GROUP_EMPTY)
- (*newgroup)->add_f();
- }
- return MPI_SUCCESS;