void NAME_ROUTINE_C2F(mpi_file_open) (MPI_Fint *comm, char *filename,
MPI_Fint *amode, MPI_Fint *info, MPI_File *fh, MPI_Fint *len)
#endif
{
if (mpitrace_on)
{
DEBUG_INTERFACE(ENTER)
Backend_Enter_Instrumentation ();
PMPI_File_open_Fortran_Wrapper (comm, filename, amode, info, fh, len);
Backend_Leave_Instrumentation ();
DEBUG_INTERFACE(LEAVE)
}
else
/******************************************************************************
*** MPI_Bsend
******************************************************************************/
int NAME_ROUTINE_C(MPI_Bsend) (MPI3_CONST void* buf, int count, MPI_Datatype datatype,
int dest, int tag, MPI_Comm 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
void NAME_ROUTINE_C2F(mpi_reduce) (void *sendbuf, void *recvbuf, MPI_Fint *count,
MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm,
MPI_Fint *ierror)
#endif
{
MPI_Comm c = MPI_Comm_f2c(*comm);
#if defined(ENABLE_LOAD_BALANCING)
DLB_MPI_Reduce_F_enter (MPI3_VOID_P_CAST sendbuf, recvbuf, count, datatype, op, root, comm, ierror);
#endif
Extrae_MPI_ProcessCollectiveCommunicator (c);
if (mpitrace_on)
{
DEBUG_INTERFACE(ENTER)
Backend_Enter_Instrumentation (2+Caller_Count[CALLER_MPI]);
PMPI_Reduce_Wrapper (MPI3_VOID_P_CAST sendbuf, recvbuf, count, datatype, op, root, comm,
ierror);
Backend_Leave_Instrumentation ();
DEBUG_INTERFACE(LEAVE)
}
else