Fixed bug in MPI_Sendrecv (thanks to Alexander)

lib/Wrapper.cpp

@@ -210,7 +210,7 @@ int MPI_Sendrecv(const void *sendbuf, int sendcount, MPI_Datatype sendtype,
     }
   } else {
     //assert(comm == MPI_COMM_WORLD);
-    MPI_Sendrecv(sendbuf, sendcount, sendtype,dest,sendtag,recvbuf,recvcount,recvtype,source,recvtag, getTeamComm(comm),status);
+    PMPI_Sendrecv(sendbuf, sendcount, sendtype,dest,sendtag,recvbuf,recvcount,recvtype,source,recvtag, getTeamComm(comm),status);
   }
   return MPI_SUCCESS;
 }