1 /* -*- Mode: C; c-basic-offset:4 ; -*- */
2 /*
3 * (C) 2001 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
5 */
6
7 #include "mpidi_ch3_impl.h"
8 #include "mpidrma.h"
9
10 /* FUNCNAME macros are included for the MPIDI_FUNC_NOTIMPL macro to keep the
11 * state checker from emitting warnings */
12 #undef FUNCNAME
13 #define FUNCNAME MPIDI_FUNC_NOTIMPL
14 #define MPIDI_FUNC_NOTIMPL(state_name) \
15 int mpi_errno = MPI_SUCCESS; \
16 \
17 MPIDI_STATE_DECL(MPID_STATE_MPIDI_##state_name); \
18 MPIDI_RMA_FUNC_ENTER(MPID_STATE_MPIDI_##state_name); \
19 \
20 MPIU_ERR_SETANDJUMP(mpi_errno, MPI_ERR_OTHER, "**notimpl"); \
21 \
22 fn_exit: \
23 MPIDI_RMA_FUNC_EXIT(MPID_STATE_MPIDI_##state_name); \
24 return mpi_errno; \
25 /* --BEGIN ERROR HANDLING-- */ \
26 fn_fail: \
27 goto fn_exit; \
28 /* --END ERROR HANDLING-- */
29
30
31 #undef FUNCNAME
32 #define FUNCNAME MPIDI_Rput
33 #undef FCNAME
34 #define FCNAME MPIDI_QUOTE(FUNCNAME)
MPIDI_Rput(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,MPID_Win * win,MPID_Request ** request)35 int MPIDI_Rput(const void *origin_addr, int origin_count,
36 MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp,
37 int target_count, MPI_Datatype target_datatype, MPID_Win *win,
38 MPID_Request **request)
39 {
40 MPIDI_FUNC_NOTIMPL(RPUT)
41 }
42
43
44 #undef FUNCNAME
45 #define FUNCNAME MPIDI_Rget
46 #undef FCNAME
47 #define FCNAME MPIDI_QUOTE(FUNCNAME)
MPIDI_Rget(void * origin_addr,int origin_count,MPI_Datatype origin_datatype,int target_rank,MPI_Aint target_disp,int target_count,MPI_Datatype target_datatype,MPID_Win * win,MPID_Request ** request)48 int MPIDI_Rget(void *origin_addr, int origin_count,
49 MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp,
50 int target_count, MPI_Datatype target_datatype, MPID_Win *win,
51 MPID_Request **request)
52 {
53 MPIDI_FUNC_NOTIMPL(RGET)
54 }
55
56
57 #undef FUNCNAME
58 #define FUNCNAME MPIDI_Raccumulate
59 #undef FCNAME
60 #define FCNAME MPIDI_QUOTE(FUNCNAME)
MPIDI_Raccumulate(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,MPID_Win * win,MPID_Request ** request)61 int MPIDI_Raccumulate(const void *origin_addr, int origin_count,
62 MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp,
63 int target_count, MPI_Datatype target_datatype, MPI_Op op, MPID_Win *win,
64 MPID_Request **request)
65 {
66 MPIDI_FUNC_NOTIMPL(RACCUMULATE)
67 }
68
69
70 #undef FUNCNAME
71 #define FUNCNAME MPIDI_Rget_accumulate
72 #undef FCNAME
73 #define FCNAME MPIDI_QUOTE(FUNCNAME)
MPIDI_Rget_accumulate(const 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,MPID_Win * win,MPID_Request ** request)74 int MPIDI_Rget_accumulate(const void *origin_addr, int origin_count,
75 MPI_Datatype origin_datatype, void *result_addr, int result_count,
76 MPI_Datatype result_datatype, int target_rank, MPI_Aint target_disp,
77 int target_count, MPI_Datatype target_datatype, MPI_Op op, MPID_Win *win,
78 MPID_Request **request)
79 {
80 MPIDI_FUNC_NOTIMPL(RGET_ACCUMULATE)
81 }
82
83
84 #undef FUNCNAME
85 #define FUNCNAME MPIDI_Win_flush
86 #undef FCNAME
87 #define FCNAME MPIDI_QUOTE(FUNCNAME)
MPIDI_Win_flush(int rank,MPID_Win * win)88 int MPIDI_Win_flush(int rank, MPID_Win *win)
89 {
90 MPIDI_FUNC_NOTIMPL(WIN_FLUSH)
91 }
92
93
94 #undef FUNCNAME
95 #define FUNCNAME MPIDI_Win_flush_all
96 #undef FCNAME
97 #define FCNAME MPIDI_QUOTE(FUNCNAME)
MPIDI_Win_flush_all(MPID_Win * win)98 int MPIDI_Win_flush_all(MPID_Win *win)
99 {
100 MPIDI_FUNC_NOTIMPL(WIN_FLUSH_ALL)
101 }
102
103
104 #undef FUNCNAME
105 #define FUNCNAME MPIDI_Win_flush_local
106 #undef FCNAME
107 #define FCNAME MPIDI_QUOTE(FUNCNAME)
MPIDI_Win_flush_local(int rank,MPID_Win * win)108 int MPIDI_Win_flush_local(int rank, MPID_Win *win)
109 {
110 MPIDI_FUNC_NOTIMPL(WIN_FLUSH_LOCAL)
111 }
112
113
114 #undef FUNCNAME
115 #define FUNCNAME MPIDI_Win_flush_local_all
116 #undef FCNAME
117 #define FCNAME MPIDI_QUOTE(FUNCNAME)
MPIDI_Win_flush_local_all(MPID_Win * win)118 int MPIDI_Win_flush_local_all(MPID_Win *win)
119 {
120 MPIDI_FUNC_NOTIMPL(WIN_FLUSH_LOCAL_ALL)
121 }
122
123
124 #undef FUNCNAME
125 #define FUNCNAME MPIDI_Win_shared_query
126 #undef FCNAME
127 #define FCNAME MPIDI_QUOTE(FUNCNAME)
MPIDI_Win_shared_query(MPID_Win * win_ptr,int target_rank,MPI_Aint * size,int * disp_unit,void * baseptr)128 int MPIDI_Win_shared_query(MPID_Win *win_ptr, int target_rank, MPI_Aint *size, int *disp_unit, void *baseptr)
129 {
130 MPIDI_FUNC_NOTIMPL(WIN_FLUSH_LOCAL_ALL)
131 }
132