Immediately free MPI send requests after MPI_Isend() so that we don't have

to MPI_Wait() on them.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@234 b61c5cb5-eaca-4651-9a7a-d64986f99364

1 files changed, 0 insertions, 16 deletions

diff --git a/src/Comm.c b/src/Comm.c
index c932ce9..957394a 100644
--- a/src/Comm.c
+++ b/src/Comm.c
@@ -592,10 +592,6 @@ static int PUGH_DisableComm(pGH *pughGH,
     {
       if (comm->send_buffer[i])
       {
-        if (comm->sreq[i] != MPI_REQUEST_NULL)
-        {
-          CACTUS_MPI_ERROR(MPI_Request_free(&comm->sreq[i]));
-        }
         free(comm->send_buffer[i]);
         comm->send_buffer[i] = NULL;
       }
@@ -684,19 +680,7 @@ static int PUGH_Sync(pGH *pughGH,
     printf("PR : %f\n",t2-t1);
 #endif
 
-    /* For allocated buffers: wait for the last send.
-       Since these will be null if they
-       are not used, this is always safe.
-     */
-    if (pughGH->commmodel == PUGH_ALLOCATEDBUFFERS)
-    {
-      MPI_Wait(&comm->sreq[2*dir], &mss);
-    }
     PostSendGA(pughGH, 2*dir, comm);
-    if (pughGH->commmodel == PUGH_ALLOCATEDBUFFERS)
-    {
-      MPI_Wait(&comm->sreq[2*dir+1], &mss);
-    }
     PostSendGA(pughGH, 2*dir+1, comm);
 
 #ifdef COMM_TIMING