#include "private.h"
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_group, smpi,
- "Logging specific to SMPI (group)");
+XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_group, smpi, "Logging specific to SMPI (group)");
typedef struct s_smpi_mpi_group {
int size;
xbt_dict_cursor_t cursor = NULL;
int i;
- if(origin!= smpi_comm_group(MPI_COMM_WORLD)
- && origin != MPI_GROUP_NULL
- && origin != smpi_comm_group(MPI_COMM_SELF)
+ if(origin != MPI_GROUP_NULL
&& origin != MPI_GROUP_EMPTY)
{
group = xbt_new(s_smpi_mpi_group_t, 1);
}
xbt_dict_foreach(origin->index_to_rank_map, cursor, key, ptr_rank) {
- xbt_dict_set(group->index_to_rank_map, key, ptr_rank, NULL);
+ int * cp = (int*)xbt_malloc(sizeof(int));
+ *cp=*(int*)ptr_rank;
+ xbt_dict_set(group->index_to_rank_map, key, cp, NULL);
}
}
return group;
}
-
void smpi_group_destroy(MPI_Group group)
{
if(group!= smpi_comm_group(MPI_COMM_WORLD)
&& group != MPI_GROUP_NULL
- && group != smpi_comm_group(MPI_COMM_SELF)
&& group != MPI_GROUP_EMPTY)
smpi_group_unuse(group);
}
return 0;
}
return group->refcount;
-
}
int smpi_group_size(MPI_Group group)