1 /*
2 * Copyright (C) 2010. See COPYRIGHT in top-level directory.
3 */
4
5 /* If no weak symbols support */
6 #if !defined(HAVE_PRAGMA_WEAK) && !defined(HAVE_PRAGMA_HP_SEC_DEF) && !defined(HAVE_PRAGMA_CRI_DUP)
7
8 #include "armci.h"
9
10 #pragma weak ARMCI_Init
ARMCI_Init(void)11 int ARMCI_Init(void) {
12 return PARMCI_Init();
13 }
14
15 #pragma weak ARMCI_Init_args
ARMCI_Init_args(int * argc,char *** argv)16 int ARMCI_Init_args(int *argc, char ***argv) {
17 return PARMCI_Init_args(argc, argv);
18 }
19
20 #pragma weak ARMCI_Initialized
ARMCI_Initialized(void)21 int ARMCI_Initialized(void) {
22 return PARMCI_Initialized();
23 }
24
25 #pragma weak ARMCI_Finalize
ARMCI_Finalize(void)26 int ARMCI_Finalize(void) {
27 return PARMCI_Finalize();
28 }
29
30 #pragma weak ARMCI_Malloc
ARMCI_Malloc(void ** base_ptrs,armci_size_t size)31 int ARMCI_Malloc(void **base_ptrs, armci_size_t size) {
32 return PARMCI_Malloc(base_ptrs, size);
33 }
34
35 #pragma weak ARMCI_Free
ARMCI_Free(void * ptr)36 int ARMCI_Free(void *ptr) {
37 return PARMCI_Free(ptr);
38 }
39
40 #pragma weak ARMCI_Malloc_local
ARMCI_Malloc_local(armci_size_t size)41 void *ARMCI_Malloc_local(armci_size_t size) {
42 return PARMCI_Malloc_local(size);
43 }
44
45 #pragma weak ARMCI_Free_local
ARMCI_Free_local(void * ptr)46 int ARMCI_Free_local(void *ptr) {
47 return PARMCI_Free_local(ptr);
48 }
49
50 #pragma weak ARMCI_Barrier
ARMCI_Barrier(void)51 void ARMCI_Barrier(void) {
52 return PARMCI_Barrier();
53 }
54
55 #pragma weak ARMCI_Fence
ARMCI_Fence(int proc)56 void ARMCI_Fence(int proc) {
57 return PARMCI_Fence(proc);
58 }
59
60 #pragma weak ARMCI_AllFence
ARMCI_AllFence(void)61 void ARMCI_AllFence(void) {
62 return PARMCI_AllFence();
63 }
64
65 #pragma weak ARMCI_Access_begin
ARMCI_Access_begin(void * ptr)66 void ARMCI_Access_begin(void *ptr) {
67 return PARMCI_Access_begin(ptr);
68 }
69
70 #pragma weak ARMCI_Access_end
ARMCI_Access_end(void * ptr)71 void ARMCI_Access_end(void *ptr) {
72 return PARMCI_Access_end(ptr);
73 }
74
75 #pragma weak ARMCI_Get
ARMCI_Get(void * src,void * dst,int size,int target)76 int ARMCI_Get(void *src, void *dst, int size, int target) {
77 return PARMCI_Get(src, dst, size, target);
78 }
79
80 #pragma weak ARMCI_Put
ARMCI_Put(void * src,void * dst,int size,int target)81 int ARMCI_Put(void *src, void *dst, int size, int target) {
82 return PARMCI_Put(src, dst, size, target);
83 }
84
85 #pragma weak ARMCI_Acc
ARMCI_Acc(int datatype,void * scale,void * src,void * dst,int bytes,int proc)86 int ARMCI_Acc(int datatype, void *scale, void *src, void *dst, int bytes, int proc) {
87 return PARMCI_Acc(datatype, scale, src, dst, bytes, proc);
88 }
89
90 #pragma weak ARMCI_PutS
ARMCI_PutS(void * src_ptr,int src_stride_ar[],void * dst_ptr,int dst_stride_ar[],int count[],int stride_levels,int proc)91 int ARMCI_PutS(void *src_ptr, int src_stride_ar[], void *dst_ptr, int dst_stride_ar[], int count[], int stride_levels, int proc) {
92 return PARMCI_PutS(src_ptr, src_stride_ar, dst_ptr, dst_stride_ar, count, stride_levels, proc);
93 }
94
95 #pragma weak ARMCI_GetS
ARMCI_GetS(void * src_ptr,int src_stride_ar[],void * dst_ptr,int dst_stride_ar[],int count[],int stride_levels,int proc)96 int ARMCI_GetS(void *src_ptr, int src_stride_ar[], void *dst_ptr, int dst_stride_ar[], int count[], int stride_levels, int proc) {
97 return PARMCI_GetS(src_ptr, src_stride_ar, dst_ptr, dst_stride_ar, count, stride_levels, proc);
98 }
99
100 #pragma weak ARMCI_AccS
ARMCI_AccS(int datatype,void * scale,void * src_ptr,int src_stride_ar[],void * dst_ptr,int dst_stride_ar[],int count[],int stride_levels,int proc)101 int ARMCI_AccS(int datatype, void *scale, void *src_ptr, int src_stride_ar[], void *dst_ptr, int dst_stride_ar[], int count[], int stride_levels, int proc) {
102 return PARMCI_AccS(datatype, scale, src_ptr, src_stride_ar, dst_ptr, dst_stride_ar, count, stride_levels, proc);
103 }
104
105 #pragma weak ARMCI_Put_flag
ARMCI_Put_flag(void * src,void * dst,int size,int * flag,int value,int proc)106 int ARMCI_Put_flag(void *src, void* dst, int size, int *flag, int value, int proc) {
107 return PARMCI_Put_flag(src, dst, size, flag, value, proc);
108 }
109
110 #pragma weak ARMCI_PutS_flag
ARMCI_PutS_flag(void * src_ptr,int src_stride_ar[],void * dst_ptr,int dst_stride_ar[],int count[],int stride_levels,int * flag,int value,int proc)111 int ARMCI_PutS_flag(void *src_ptr, int src_stride_ar[], void *dst_ptr, int dst_stride_ar[], int count[], int stride_levels, int *flag, int value, int proc) {
112 return PARMCI_PutS_flag(src_ptr, src_stride_ar, dst_ptr, dst_stride_ar, count, stride_levels, flag, value, proc);
113 }
114
115 #pragma weak ARMCI_PutV
ARMCI_PutV(armci_giov_t * iov,int iov_len,int proc)116 int ARMCI_PutV(armci_giov_t *iov, int iov_len, int proc) {
117 return PARMCI_PutV(iov, iov_len, proc);
118 }
119
120 #pragma weak ARMCI_GetV
ARMCI_GetV(armci_giov_t * iov,int iov_len,int proc)121 int ARMCI_GetV(armci_giov_t *iov, int iov_len, int proc) {
122 return PARMCI_GetV(iov, iov_len, proc);
123 }
124
125 #pragma weak ARMCI_AccV
ARMCI_AccV(int datatype,void * scale,armci_giov_t * iov,int iov_len,int proc)126 int ARMCI_AccV(int datatype, void *scale, armci_giov_t *iov, int iov_len, int proc) {
127 return PARMCI_AccV(datatype, scale, iov, iov_len, proc);
128 }
129
130 #pragma weak ARMCI_Wait
ARMCI_Wait(armci_hdl_t * hdl)131 int ARMCI_Wait(armci_hdl_t* hdl) {
132 return PARMCI_Wait(hdl);
133 }
134
135 #pragma weak ARMCI_Test
ARMCI_Test(armci_hdl_t * hdl)136 int ARMCI_Test(armci_hdl_t* hdl) {
137 return PARMCI_Test(hdl);
138 }
139
140 #pragma weak ARMCI_WaitAll
ARMCI_WaitAll(void)141 int ARMCI_WaitAll(void) {
142 return PARMCI_WaitAll();
143 }
144
145 #pragma weak ARMCI_NbPut
ARMCI_NbPut(void * src,void * dst,int bytes,int proc,armci_hdl_t * hdl)146 int ARMCI_NbPut(void *src, void *dst, int bytes, int proc, armci_hdl_t *hdl) {
147 return PARMCI_NbPut(src, dst, bytes, proc, hdl);
148 }
149
150 #pragma weak ARMCI_NbGet
ARMCI_NbGet(void * src,void * dst,int bytes,int proc,armci_hdl_t * hdl)151 int ARMCI_NbGet(void *src, void *dst, int bytes, int proc, armci_hdl_t *hdl) {
152 return PARMCI_NbGet(src, dst, bytes, proc, hdl);
153 }
154
155 #pragma weak ARMCI_NbAcc
ARMCI_NbAcc(int datatype,void * scale,void * src,void * dst,int bytes,int proc,armci_hdl_t * hdl)156 int ARMCI_NbAcc(int datatype, void *scale, void *src, void *dst, int bytes, int proc, armci_hdl_t *hdl) {
157 return PARMCI_NbAcc(datatype, scale, src, dst, bytes, proc, hdl);
158 }
159
160 #pragma weak ARMCI_NbPutS
ARMCI_NbPutS(void * src_ptr,int src_stride_ar[],void * dst_ptr,int dst_stride_ar[],int count[],int stride_levels,int proc,armci_hdl_t * hdl)161 int ARMCI_NbPutS(void *src_ptr, int src_stride_ar[], void *dst_ptr, int dst_stride_ar[], int count[], int stride_levels, int proc, armci_hdl_t *hdl) {
162 return PARMCI_NbPutS(src_ptr, src_stride_ar, dst_ptr, dst_stride_ar, count, stride_levels, proc, hdl);
163 }
164
165 #pragma weak ARMCI_NbGetS
ARMCI_NbGetS(void * src_ptr,int src_stride_ar[],void * dst_ptr,int dst_stride_ar[],int count[],int stride_levels,int proc,armci_hdl_t * hdl)166 int ARMCI_NbGetS(void *src_ptr, int src_stride_ar[], void *dst_ptr, int dst_stride_ar[], int count[], int stride_levels, int proc, armci_hdl_t *hdl) {
167 return PARMCI_NbGetS(src_ptr, src_stride_ar, dst_ptr, dst_stride_ar, count, stride_levels, proc, hdl);
168 }
169
170 #pragma weak ARMCI_NbAccS
ARMCI_NbAccS(int datatype,void * scale,void * src_ptr,int src_stride_ar[],void * dst_ptr,int dst_stride_ar[],int count[],int stride_levels,int proc,armci_hdl_t * hdl)171 int ARMCI_NbAccS(int datatype, void *scale, void *src_ptr, int src_stride_ar[], void *dst_ptr, int dst_stride_ar[], int count[], int stride_levels, int proc, armci_hdl_t *hdl) {
172 return PARMCI_NbAccS(datatype, scale, src_ptr, src_stride_ar, dst_ptr, dst_stride_ar, count, stride_levels, proc, hdl);
173 }
174
175 #pragma weak ARMCI_NbPutV
ARMCI_NbPutV(armci_giov_t * iov,int iov_len,int proc,armci_hdl_t * handle)176 int ARMCI_NbPutV(armci_giov_t *iov, int iov_len, int proc, armci_hdl_t* handle) {
177 return PARMCI_NbPutV(iov, iov_len, proc, handle);
178 }
179
180 #pragma weak ARMCI_NbGetV
ARMCI_NbGetV(armci_giov_t * iov,int iov_len,int proc,armci_hdl_t * handle)181 int ARMCI_NbGetV(armci_giov_t *iov, int iov_len, int proc, armci_hdl_t* handle) {
182 return PARMCI_NbGetV(iov, iov_len, proc, handle);
183 }
184
185 #pragma weak ARMCI_NbAccV
ARMCI_NbAccV(int datatype,void * scale,armci_giov_t * iov,int iov_len,int proc,armci_hdl_t * handle)186 int ARMCI_NbAccV(int datatype, void *scale, armci_giov_t *iov, int iov_len, int proc, armci_hdl_t* handle) {
187 return PARMCI_NbAccV(datatype, scale, iov, iov_len, proc, handle);
188 }
189
190 #pragma weak ARMCI_PutValueInt
ARMCI_PutValueInt(int src,void * dst,int proc)191 int ARMCI_PutValueInt(int src, void *dst, int proc) {
192 return PARMCI_PutValueInt(src, dst, proc);
193 }
194
195 #pragma weak ARMCI_PutValueLong
ARMCI_PutValueLong(long src,void * dst,int proc)196 int ARMCI_PutValueLong(long src, void *dst, int proc) {
197 return PARMCI_PutValueLong(src, dst, proc);
198 }
199
200 #pragma weak ARMCI_PutValueFloat
ARMCI_PutValueFloat(float src,void * dst,int proc)201 int ARMCI_PutValueFloat(float src, void *dst, int proc) {
202 return PARMCI_PutValueFloat(src, dst, proc);
203 }
204
205 #pragma weak ARMCI_PutValueDouble
ARMCI_PutValueDouble(double src,void * dst,int proc)206 int ARMCI_PutValueDouble(double src, void *dst, int proc) {
207 return PARMCI_PutValueDouble(src, dst, proc);
208 }
209
210 #pragma weak ARMCI_NbPutValueInt
ARMCI_NbPutValueInt(int src,void * dst,int proc,armci_hdl_t * hdl)211 int ARMCI_NbPutValueInt(int src, void *dst, int proc, armci_hdl_t *hdl) {
212 return PARMCI_NbPutValueInt(src, dst, proc, hdl);
213 }
214
215 #pragma weak ARMCI_NbPutValueLong
ARMCI_NbPutValueLong(long src,void * dst,int proc,armci_hdl_t * hdl)216 int ARMCI_NbPutValueLong(long src, void *dst, int proc, armci_hdl_t *hdl) {
217 return PARMCI_NbPutValueLong(src, dst, proc, hdl);
218 }
219
220 #pragma weak ARMCI_NbPutValueFloat
ARMCI_NbPutValueFloat(float src,void * dst,int proc,armci_hdl_t * hdl)221 int ARMCI_NbPutValueFloat(float src, void *dst, int proc, armci_hdl_t *hdl) {
222 return PARMCI_NbPutValueFloat(src, dst, proc, hdl);
223 }
224
225 #pragma weak ARMCI_NbPutValueDouble
ARMCI_NbPutValueDouble(double src,void * dst,int proc,armci_hdl_t * hdl)226 int ARMCI_NbPutValueDouble(double src, void *dst, int proc, armci_hdl_t *hdl) {
227 return PARMCI_NbPutValueDouble(src, dst, proc, hdl);
228 }
229
230 #pragma weak ARMCI_GetValueInt
ARMCI_GetValueInt(void * src,int proc)231 int ARMCI_GetValueInt(void *src, int proc) {
232 return PARMCI_GetValueInt(src, proc);
233 }
234
235 #pragma weak ARMCI_GetValueLong
ARMCI_GetValueLong(void * src,int proc)236 long ARMCI_GetValueLong(void *src, int proc) {
237 return PARMCI_GetValueLong(src, proc);
238 }
239
240 #pragma weak ARMCI_GetValueFloat
ARMCI_GetValueFloat(void * src,int proc)241 float ARMCI_GetValueFloat(void *src, int proc) {
242 return PARMCI_GetValueFloat(src, proc);
243 }
244
245 #pragma weak ARMCI_GetValueDouble
ARMCI_GetValueDouble(void * src,int proc)246 double ARMCI_GetValueDouble(void *src, int proc) {
247 return PARMCI_GetValueDouble(src, proc);
248 }
249
250 #pragma weak ARMCI_Create_mutexes
ARMCI_Create_mutexes(int count)251 int ARMCI_Create_mutexes(int count) {
252 return PARMCI_Create_mutexes(count);
253 }
254
255 #pragma weak ARMCI_Destroy_mutexes
ARMCI_Destroy_mutexes(void)256 int ARMCI_Destroy_mutexes(void) {
257 return PARMCI_Destroy_mutexes();
258 }
259
260 #pragma weak ARMCI_Lock
ARMCI_Lock(int mutex,int proc)261 void ARMCI_Lock(int mutex, int proc) {
262 return PARMCI_Lock(mutex, proc);
263 }
264
265 #pragma weak ARMCI_Unlock
ARMCI_Unlock(int mutex,int proc)266 void ARMCI_Unlock(int mutex, int proc) {
267 return PARMCI_Unlock(mutex, proc);
268 }
269
270 #pragma weak ARMCI_Rmw
ARMCI_Rmw(int op,void * ploc,void * prem,int value,int proc)271 int ARMCI_Rmw(int op, void *ploc, void *prem, int value, int proc) {
272 return PARMCI_Rmw(op, ploc, prem, value, proc);
273 }
274
275 #pragma weak armci_msg_barrier
armci_msg_barrier(void)276 void armci_msg_barrier(void) {
277 return parmci_msg_barrier();
278 }
279
280 #pragma weak armci_msg_group_barrier
armci_msg_group_barrier(ARMCI_Group * group)281 void armci_msg_group_barrier(ARMCI_Group *group) {
282 return parmci_msg_group_barrier(group);
283 }
284
285 #endif
286