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

print warning messages about calls to self only once

Browse Source
This commit is contained in:
Axel Kohlmeyer
2019-04-02 16:01:42 -04:00
parent 34b023456b
commit 365166fef0
1 changed files with 50 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
src/STUBS/mpi.c
View File

@ -200,7 +200,11 @@ int MPI_Request_free(MPI_Request *request)
int MPI_Send(const void *buf, int count, MPI_Datatype datatype,
int dest, int tag, MPI_Comm comm)
{
printf("MPI Stub WARNING: Should not send message to self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not send message to self\n");
++callcount;
}
return 0;
}
@ -209,7 +213,11 @@ int MPI_Send(const void *buf, int count, MPI_Datatype datatype,
int MPI_Isend(const void *buf, int count, MPI_Datatype datatype,
int source, int tag, MPI_Comm comm, MPI_Request *request)
{
printf("MPI Stub WARNING: Should not send message to self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not send message to self\n");
++callcount;
}
return 0;
}
@ -218,7 +226,11 @@ int MPI_Isend(const void *buf, int count, MPI_Datatype datatype,
int MPI_Rsend(const void *buf, int count, MPI_Datatype datatype,
int dest, int tag, MPI_Comm comm)
{
printf("MPI Stub WARNING: Should not rsend message to self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not rsend message to self\n");
++callcount;
}
return 0;
}
@ -227,7 +239,11 @@ int MPI_Rsend(const void *buf, int count, MPI_Datatype datatype,
int MPI_Recv(void *buf, int count, MPI_Datatype datatype,
int source, int tag, MPI_Comm comm, MPI_Status *status)
{
printf("MPI Stub WARNING: Should not recv message from self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not recv message from self\n");
++callcount;
}
return 0;
}
@ -236,7 +252,11 @@ int MPI_Recv(void *buf, int count, MPI_Datatype datatype,
int MPI_Irecv(void *buf, int count, MPI_Datatype datatype,
int source, int tag, MPI_Comm comm, MPI_Request *request)
{
printf("MPI Stub WARNING: Should not recv message from self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not recv message from self\n");
++callcount;
}
return 0;
}
@ -244,7 +264,11 @@ int MPI_Irecv(void *buf, int count, MPI_Datatype datatype,
int MPI_Wait(MPI_Request *request, MPI_Status *status)
{
printf("MPI Stub WARNING: Should not wait on message from self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not wait on message from self\n");
++callcount;
}
return 0;
}
@ -252,7 +276,11 @@ int MPI_Wait(MPI_Request *request, MPI_Status *status)
int MPI_Waitall(int n, MPI_Request *request, MPI_Status *status)
{
printf("MPI Stub WARNING: Should not wait on message from self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not wait on message from self\n");
++callcount;
}
return 0;
}
@ -261,7 +289,11 @@ int MPI_Waitall(int n, MPI_Request *request, MPI_Status *status)
int MPI_Waitany(int count, MPI_Request *request, int *index,
MPI_Status *status)
{
printf("MPI Stub WARNING: Should not wait on message from self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not wait on message from self\n");
++callcount;
}
return 0;
}
@ -272,7 +304,11 @@ int MPI_Sendrecv(const void *sbuf, int scount, MPI_Datatype sdatatype,
MPI_Datatype rdatatype, int source, int rtag,
MPI_Comm comm, MPI_Status *status)
{
printf("MPI Stub WARNING: Should not send message to self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not send message to self\n");
++callcount;
}
return 0;
}
@ -280,7 +316,11 @@ int MPI_Sendrecv(const void *sbuf, int scount, MPI_Datatype sdatatype,
int MPI_Get_count(MPI_Status *status, MPI_Datatype datatype, int *count)
{
printf("MPI Stub WARNING: Should not get count of message to self\n");
static int callcount=0;
if (callcount == 0) {
printf("MPI Stub WARNING: Should not get count of message to self\n");
++callcount;
}
return 0;
}