ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add MPI_Group_free() support to STUBS

Browse Source
This commit is contained in:
Axel Kohlmeyer
2022-03-22 21:54:36 -04:00
parent 0bd8500da3
commit c18236216b
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/STUBS/mpi.cpp
View File

@ -424,6 +424,16 @@ int MPI_Group_incl(MPI_Group group, int n, int *ranks, MPI_Group *newgroup)
*newgroup = group;
return 0;
}
/* ---------------------------------------------------------------------- */
int MPI_Group_free(MPI_Group *group)
{
if (group)
*group = MPI_GROUP_NULL;
return 0;
}
/* ---------------------------------------------------------------------- */
int MPI_Cart_create(MPI_Comm comm_old, int ndims, int *dims, int *periods, int reorder,

2
src/STUBS/mpi.h
View File

@ -52,6 +52,7 @@
#define MPI_UNDEFINED -1
#define MPI_COMM_NULL -1
#define MPI_GROUP_EMPTY -1
#define MPI_GROUP_NULL -1
#define MPI_ANY_SOURCE -1
#define MPI_STATUS_IGNORE NULL
@ -120,6 +121,7 @@ MPI_Comm MPI_Comm_f2c(MPI_Fint comm);
int MPI_Comm_group(MPI_Comm comm, MPI_Group *group);
int MPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm *newcomm);
int MPI_Group_incl(MPI_Group group, int n, int *ranks, MPI_Group *newgroup);
int MPI_Group_free(MPI_Group *group);
int MPI_Cart_create(MPI_Comm comm_old, int ndims, int *dims, int *periods, int reorder,
MPI_Comm *comm_cart);