int MPI_Get_accumulate_C_Wrapper (void *origin_addr, int origin_count, MPI_Datatype origin_datatype, void *result_addr, int result_count, MPI_Datatype result_datatype, int target_rank,
MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op,
MPI_Win win)
{
int ierror;
int origin_datatype_size, result_datatype_size, target_datatype_size;
ierror = PMPI_Type_size(origin_datatype, &origin_datatype_size);
MPI_CHECK(ierror, PMPI_Type_size);
ierror = PMPI_Type_size(result_datatype, &result_datatype_size);
MPI_CHECK(ierror, PMPI_Type_size);
ierror = PMPI_Type_size(target_datatype, &target_datatype_size);
MPI_CHECK(ierror, PMPI_Type_size);
TRACE_MPIEVENT(LAST_READ_TIME, MPI_GET_ACCUMULATE_EV, EVT_BEGIN, target_rank, ((origin_datatype_size * origin_count) + (target_datatype_size * target_count)), EMPTY, target_datatype_size * target_disp, origin_addr);
ierror = PMPI_Get_accumulate (origin_addr, origin_count, origin_datatype, result_addr, result_count, result_datatype, target_rank, target_disp, target_count, target_datatype, op, win);
TRACE_MPIEVENT(TIME, MPI_GET_ACCUMULATE_EV, EVT_END, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY);
updateStats_OTHER(global_mpi_stats);
return ierror;
}
int PMPI_Fetch_and_op(const void *origin_addr, void *result_addr, MPI_Datatype dtype, int target_rank, MPI_Aint target_disp, MPI_Op op, MPI_Win win){
return PMPI_Get_accumulate(origin_addr, origin_addr==nullptr?0:1, dtype, result_addr, 1, dtype, target_rank, target_disp, 1, dtype, op, win);
}
