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