/*=============================================================================================*/ int PMPI_Ibsend (void* message, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm, MPI_Request* request) { int retval; retval = PMPI_Bsend(message, count, datatype, dest, tag, comm); if (retval == MPI_SUCCESS) { _MPI_Set_Request(request, message, count, datatype, _MPI_TRUE, tag, comm); /* KDDKDD passing request pointer */ } else { if ( request ) *request = MPI_REQUEST_NULL; } return retval; }
int MPI_Bsend(MPE_CONST void *buf, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm) { int returnVal; int typesize; returnVal = PMPI_Bsend( buf, count, datatype, dest, tag, comm ); if (dest != MPI_PROC_NULL) { MPI_Type_size( datatype, &typesize ); prof_send( procid_1, dest, tag, typesize*count, "MPI_Bsend" ); } return returnVal; }
/*=============================================================================================*/ int MPI_Bsend (void* message, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm) { _MPI_COVERAGE(); return PMPI_Bsend(message, count, datatype, dest, tag, comm); }
int MPI_Bsend(void* buf, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm) { return PMPI_Bsend(buf, count, datatype, dest, tag, comm); }
int res; #if defined(ENABLE_LOAD_BALANCING) DLB_MPI_Bsend_enter (MPI3_VOID_P_CAST buf, count, datatype, dest, tag, comm); #endif if (mpitrace_on) { DEBUG_INTERFACE(ENTER) Backend_Enter_Instrumentation (2+Caller_Count[CALLER_MPI]); res = MPI_Bsend_C_Wrapper (MPI3_VOID_P_CAST buf, count, datatype, dest, tag, comm); Backend_Leave_Instrumentation (); DEBUG_INTERFACE(LEAVE) } else res = PMPI_Bsend (buf, count, datatype, dest, tag, comm); #if defined(ENABLE_LOAD_BALANCING) DLB_MPI_Bsend_leave (); #endif return res; } /****************************************************************************** *** MPI_Ssend ******************************************************************************/ int NAME_ROUTINE_C(MPI_Ssend) (MPI3_CONST void *buf, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm) { int res;