void ompi_win_flush_local_all_f(MPI_Fint *win, MPI_Fint *ierr) { int c_ierr; MPI_Win c_win = PMPI_Win_f2c(*win); c_ierr = PMPI_Win_flush_local_all(c_win); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); }
int MPI_Win_flush_local_all_C_Wrapper (MPI_Win win) { int ierror; TRACE_MPIEVENT (LAST_READ_TIME, MPI_WIN_FLUSH_LOCAL_ALL_EV, EVT_BEGIN, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY); ierror = PMPI_Win_flush_local_all (win); TRACE_MPIEVENT (LAST_READ_TIME, MPI_WIN_FLUSH_LOCAL_ALL_EV, EVT_END, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY); updateStats_OTHER(global_mpi_stats); return ierror; }