+#ifdef HAVE_TRACING
+ if (TRACE_smpi_view_internals()) {
+ if(req->flags & RECV)
+ {
+ int rank = smpi_process_index();
+
+ //the src may not have been known at the beginning of the recv (MPI_ANY_SOURCE)
+ TRACE_smpi_ptp_out(rank, 0, rank, __FUNCTION__);
+ int src_traced = smpi_group_index(smpi_comm_group(req->comm), req->src);
+ TRACE_smpi_recv(rank, src_traced, rank);
+ TRACE_smpi_computing_in(rank);
+ }
+ }
+#endif
+