CHECK_BUFFER(1, origin_addr, origin_count)\
CHECK_COUNT(2, origin_count)\
CHECK_TYPE(3, origin_datatype)\
- CHECK_PROC(4, target_rank)\
- CHECK_NEGATIVE(4, MPI_ERR_RANK, target_rank)\
+ CHECK_PROC_RMA(4, target_rank, win)\
CHECK_COUNT(6, target_count)\
CHECK_TYPE(7, target_datatype)
int PMPI_Get( void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank,
MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Win win){
- CHECK_RMA
CHECK_WIN(8, win)
+ CHECK_RMA
CHECK_TARGET_DISP(5)
int retval = 0;
MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Win win, MPI_Request* request){
if(target_rank==MPI_PROC_NULL)
*request = MPI_REQUEST_NULL;
- CHECK_RMA
CHECK_WIN(8, win)
+ CHECK_RMA
CHECK_TARGET_DISP(5)
CHECK_NULL(9, MPI_ERR_ARG, request)
int PMPI_Put(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank,
MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Win win){
- CHECK_RMA
CHECK_WIN(8, win)
+ CHECK_RMA
CHECK_TARGET_DISP(5)
int retval = 0;
MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Win win, MPI_Request* request){
if(target_rank==MPI_PROC_NULL)
*request = MPI_REQUEST_NULL;
- CHECK_RMA
CHECK_WIN(8, win)
+ CHECK_RMA
CHECK_TARGET_DISP(5)
CHECK_NULL(9, MPI_ERR_ARG, request)
int retval = 0;
int PMPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank,
MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win){
+ CHECK_WIN(9, win)
CHECK_RMA
CHECK_MPI_NULL(8, MPI_OP_NULL, MPI_ERR_OP, op)
- CHECK_WIN(9, win)
CHECK_TARGET_DISP(5)
int retval = 0;
MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win, MPI_Request* request){
if(target_rank==MPI_PROC_NULL)
*request = MPI_REQUEST_NULL;
+ CHECK_WIN(9, win)
CHECK_RMA
CHECK_MPI_NULL(8, MPI_OP_NULL, MPI_ERR_OP, op)
- CHECK_WIN(9, win)
CHECK_TARGET_DISP(5)
CHECK_NULL(10, MPI_ERR_ARG, request)
CHECK_BUFFER(4, result_addr, result_count)
CHECK_COUNT(5, result_count)
CHECK_TYPE(6, result_datatype)
- CHECK_PROC(7, target_rank)
- CHECK_NEGATIVE(7, MPI_ERR_RANK, target_rank)
+ CHECK_WIN(12, win)
+ CHECK_PROC_RMA(7, target_rank, win)
CHECK_COUNT(9, target_count)
CHECK_TYPE(10, target_datatype)
CHECK_MPI_NULL(11, MPI_OP_NULL, MPI_ERR_OP, op)
- CHECK_WIN(12, win)
CHECK_TARGET_DISP(8)
int retval = 0;
CHECK_BUFFER(4, result_addr, result_count)
CHECK_COUNT(5, result_count)
CHECK_TYPE(6, result_datatype)
- CHECK_PROC(7, target_rank)
- CHECK_NEGATIVE(7, MPI_ERR_RANK, target_rank)
+ CHECK_WIN(12, win)
+ CHECK_PROC_RMA(7, target_rank, win)
CHECK_COUNT(9, target_count)
CHECK_TYPE(10, target_datatype)
CHECK_MPI_NULL(11, MPI_OP_NULL, MPI_ERR_OP, op)
- CHECK_WIN(12, win)
CHECK_TARGET_DISP(8)
CHECK_NULL(10, MPI_ERR_ARG, request)
int retval = 0;
CHECK_NULL(2, MPI_ERR_BUFFER, compare_addr)
CHECK_NULL(3, MPI_ERR_BUFFER, result_addr)
CHECK_TYPE(4, datatype)
- CHECK_PROC(5, target_rank)
- CHECK_NEGATIVE(5, MPI_ERR_RANK, target_rank)
CHECK_WIN(6, win)
+ CHECK_PROC_RMA(5, target_rank, win)
CHECK_TARGET_DISP(6)
int retval = 0;
}
int PMPI_Win_lock(int lock_type, int rank, int assert, MPI_Win win){
- CHECK_PROC(2, rank)
CHECK_WIN(4, win)
+ CHECK_PROC_RMA(2, rank, win)
int retval = 0;
smpi_bench_end();
if (lock_type != MPI_LOCK_EXCLUSIVE &&
}
int PMPI_Win_unlock(int rank, MPI_Win win){
- CHECK_PROC(1, rank)
CHECK_WIN(2, win)
+ CHECK_PROC_RMA(1, rank, win)
smpi_bench_end();
int my_proc_id = simgrid::s4u::this_actor::get_pid();
TRACE_smpi_comm_in(my_proc_id, __func__, new simgrid::instr::NoOpTIData("Win_unlock"));
}
int PMPI_Win_flush(int rank, MPI_Win win){
- CHECK_PROC(1, rank)
CHECK_WIN(2, win)
+ CHECK_PROC_RMA(1, rank, win)
smpi_bench_end();
int my_proc_id = simgrid::s4u::this_actor::get_pid();
TRACE_smpi_comm_in(my_proc_id, __func__, new simgrid::instr::NoOpTIData("Win_flush"));
}
int PMPI_Win_flush_local(int rank, MPI_Win win){
- CHECK_PROC(1, rank)
- CHECK_WIN(2, win) smpi_bench_end();
+ CHECK_WIN(2, win)
+ CHECK_PROC_RMA(1, rank, win)
+ smpi_bench_end();
int my_proc_id = simgrid::s4u::this_actor::get_pid();
TRACE_smpi_comm_in(my_proc_id, __func__, new simgrid::instr::NoOpTIData("Win_flush_local"));
int retval = win->flush_local(rank);