Exemplo n.º 1
0
int MPI_Win_flush_local(int target_rank, MPI_Win win)
{
    int ret;
    client_t* myclient = window_get_client(win);
    cqueue_t* mycqueue = client_get_cqueue(myclient);

    if (myclient == NULL)
        ret = PMPI_Win_flush_local(target_rank, win);
    else
        ret = cqueue_win_flush_local(mycqueue, target_rank, win);

    return ret;
}
int MPI_Win_flush_local_C_Wrapper (int rank, MPI_Win win)
{
	int ierror;

	TRACE_MPIEVENT (LAST_READ_TIME, MPI_WIN_FLUSH_LOCAL_EV, EVT_BEGIN, rank, EMPTY,
	  EMPTY, EMPTY, EMPTY);
	ierror = PMPI_Win_flush_local (rank, win);
	TRACE_MPIEVENT (LAST_READ_TIME, MPI_WIN_FLUSH_LOCAL_EV, EVT_END, EMPTY, EMPTY,
	  EMPTY, EMPTY, EMPTY);

	updateStats_OTHER(global_mpi_stats);

	return ierror;
}