+MPI_Comm smpi_process_comm_self(void) {
+ smpi_process_data_t data = smpi_process_data();
+
+ return data->comm_self;
+}
+
+void print_request(const char* message, MPI_Request request) {
+ char* req = bprintf("[buf = %p, size = %zu, src = %d, dst = %d, tag= %d, complete = %d, flags = %u]",
+ request->buf, request->size, request->src, request->dst, request->tag, request->complete, request->flags);
+
+ DEBUG5("%s (request %p with rdv %p and match %p) %s",
+ message, request, request->rdv, request->match, req);
+ free(req);
+}
+