return retval;
}
+int PMPI_Rsend_init(const void* buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm,
+ MPI_Request* request)
+{
+ return PMPI_Send_init(buf, count, datatype, dst, tag, comm, request);
+}
+
int PMPI_Ssend_init(const void* buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm, MPI_Request* request)
{
int retval = 0;
return retval;
}
+int PMPI_Irsend(const void* buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm,
+ MPI_Request* request)
+{
+ return PMPI_Isend(buf, count, datatype, dst, tag, comm, request);
+}
+
int PMPI_Issend(const void* buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm, MPI_Request* request)
{
int retval = 0;
return retval;
}
+int PMPI_Rsend(const void* buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm)
+{
+ return PMPI_Send(buf, count, datatype, dst, tag, comm);
+}
+
int PMPI_Ssend(const void* buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm) {
int retval = 0;
}
MPI_Request PMPI_Request_f2c(MPI_Fint request){
+ if(request==-1)
+ return MPI_REQUEST_NULL;
return static_cast<MPI_Request>(simgrid::smpi::Request::f2c(request));
}
MPI_Fint PMPI_Request_c2f(MPI_Request request) {
+ if(request==MPI_REQUEST_NULL)
+ return -1;
return request->c2f();
}