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

add MPI stub for MPI_Iprobe()

Browse Source
This commit is contained in:
Axel Kohlmeyer
2025-03-07 11:50:53 -05:00
parent 24fc6eb10a
commit 9af8fdc91e
2 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/STUBS/mpi.cpp
View File

@ -300,6 +300,14 @@ int MPI_Irecv(void *buf, int count, MPI_Datatype datatype, int source, int tag,
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
int MPI_Iprobe(int, int, MPI_Comm, int *flag, MPI_Status *);
{
if (flag) *flag = 0;
return 0;
}
/* ---------------------------------------------------------------------- */
int MPI_Wait(MPI_Request *request, MPI_Status *status) int MPI_Wait(MPI_Request *request, MPI_Status *status)
{ {
static int callcount = 0; static int callcount = 0;

1
src/STUBS/mpi.h
View File

@ -105,6 +105,7 @@ int MPI_Recv(void *buf, int count, MPI_Datatype datatype, int source, int tag, M
MPI_Status *status); MPI_Status *status);
int MPI_Irecv(void *buf, int count, MPI_Datatype datatype, int source, int tag, MPI_Comm comm, int MPI_Irecv(void *buf, int count, MPI_Datatype datatype, int source, int tag, MPI_Comm comm,
MPI_Request *request); MPI_Request *request);
int MPI_Iprobe(int source, int tag, MPI_Comm comm, int *flag, MPI_Status *status);
int MPI_Wait(MPI_Request *request, MPI_Status *status); int MPI_Wait(MPI_Request *request, MPI_Status *status);
int MPI_Waitall(int n, MPI_Request *request, MPI_Status *status); int MPI_Waitall(int n, MPI_Request *request, MPI_Status *status);
int MPI_Waitany(int count, MPI_Request *request, int *index, MPI_Status *status); int MPI_Waitany(int count, MPI_Request *request, int *index, MPI_Status *status);