1 /*
2 * Copyright (C) by Argonne National Laboratory
3 * See COPYRIGHT in top-level directory
4 *
5 * DO NOT EDIT: AUTOMATICALLY GENERATED FILE !!
6 */
7
8 #include <string.h>
9 #include <stdint.h>
10 #include <wchar.h>
11 #include "yaksuri_seqi_pup.h"
12
yaksuri_seqi_pack_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)13 int yaksuri_seqi_pack_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
14 {
15 int rc = YAKSA_SUCCESS;
16 const char *restrict sbuf = (const char *) inbuf;
17 char *restrict dbuf = (char *) outbuf;
18 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
19
20 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
21
22 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
23
24 uintptr_t idx = 0;
25 for (int i = 0; i < count; i++) {
26 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent));
27 idx += sizeof(long double);
28 }
29
30 return rc;
31 }
32
yaksuri_seqi_unpack_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)33 int yaksuri_seqi_unpack_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
34 {
35 int rc = YAKSA_SUCCESS;
36 const char *restrict sbuf = (const char *) inbuf;
37 char *restrict dbuf = (char *) outbuf;
38 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
39
40 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
41
42 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
43
44 uintptr_t idx = 0;
45 for (int i = 0; i < count; i++) {
46 *((long double *) (void *) (dbuf + i * extent)) = *((const long double *) (const void *) (sbuf + idx));
47 idx += sizeof(long double);
48 }
49
50 return rc;
51 }
52
yaksuri_seqi_pack_hvector_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)53 int yaksuri_seqi_pack_hvector_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
54 {
55 int rc = YAKSA_SUCCESS;
56 const char *restrict sbuf = (const char *) inbuf;
57 char *restrict dbuf = (char *) outbuf;
58 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
59
60 int count1 = type->u.hvector.count;
61 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
62 intptr_t stride1 = type->u.hvector.stride;
63 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
64
65 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
66
67 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.resized.child->extent;
68
69 uintptr_t idx = 0;
70 for (int i = 0; i < count; i++) {
71 for (int j1 = 0; j1 < count1; j1++) {
72 for (int k1 = 0; k1 < blocklength1; k1++) {
73 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2));
74 idx += sizeof(long double);
75 }
76 }
77 }
78
79 return rc;
80 }
81
yaksuri_seqi_unpack_hvector_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)82 int yaksuri_seqi_unpack_hvector_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
83 {
84 int rc = YAKSA_SUCCESS;
85 const char *restrict sbuf = (const char *) inbuf;
86 char *restrict dbuf = (char *) outbuf;
87 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
88
89 int count1 = type->u.hvector.count;
90 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
91 intptr_t stride1 = type->u.hvector.stride;
92 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
93
94 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
95
96 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.resized.child->extent;
97
98 uintptr_t idx = 0;
99 for (int i = 0; i < count; i++) {
100 for (int j1 = 0; j1 < count1; j1++) {
101 for (int k1 = 0; k1 < blocklength1; k1++) {
102 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2)) = *((const long double *) (const void *) (sbuf + idx));
103 idx += sizeof(long double);
104 }
105 }
106 }
107
108 return rc;
109 }
110
yaksuri_seqi_pack_blkhindx_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)111 int yaksuri_seqi_pack_blkhindx_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
112 {
113 int rc = YAKSA_SUCCESS;
114 const char *restrict sbuf = (const char *) inbuf;
115 char *restrict dbuf = (char *) outbuf;
116 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
117
118 int count1 = type->u.blkhindx.count;
119 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
120 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
121 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
122
123 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
124
125 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.resized.child->extent;
126
127 uintptr_t idx = 0;
128 for (int i = 0; i < count; i++) {
129 for (int j1 = 0; j1 < count1; j1++) {
130 for (int k1 = 0; k1 < blocklength1; k1++) {
131 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2));
132 idx += sizeof(long double);
133 }
134 }
135 }
136
137 return rc;
138 }
139
yaksuri_seqi_unpack_blkhindx_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)140 int yaksuri_seqi_unpack_blkhindx_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
141 {
142 int rc = YAKSA_SUCCESS;
143 const char *restrict sbuf = (const char *) inbuf;
144 char *restrict dbuf = (char *) outbuf;
145 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
146
147 int count1 = type->u.blkhindx.count;
148 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
149 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
150 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
151
152 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
153
154 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.resized.child->extent;
155
156 uintptr_t idx = 0;
157 for (int i = 0; i < count; i++) {
158 for (int j1 = 0; j1 < count1; j1++) {
159 for (int k1 = 0; k1 < blocklength1; k1++) {
160 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2)) = *((const long double *) (const void *) (sbuf + idx));
161 idx += sizeof(long double);
162 }
163 }
164 }
165
166 return rc;
167 }
168
yaksuri_seqi_pack_hindexed_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)169 int yaksuri_seqi_pack_hindexed_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
170 {
171 int rc = YAKSA_SUCCESS;
172 const char *restrict sbuf = (const char *) inbuf;
173 char *restrict dbuf = (char *) outbuf;
174 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
175
176 int count1 = type->u.hindexed.count;
177 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
178 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
179 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
180
181 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
182
183 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.resized.child->extent;
184
185 uintptr_t idx = 0;
186 for (int i = 0; i < count; i++) {
187 for (int j1 = 0; j1 < count1; j1++) {
188 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
189 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2));
190 idx += sizeof(long double);
191 }
192 }
193 }
194
195 return rc;
196 }
197
yaksuri_seqi_unpack_hindexed_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)198 int yaksuri_seqi_unpack_hindexed_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
199 {
200 int rc = YAKSA_SUCCESS;
201 const char *restrict sbuf = (const char *) inbuf;
202 char *restrict dbuf = (char *) outbuf;
203 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
204
205 int count1 = type->u.hindexed.count;
206 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
207 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
208 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
209
210 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
211
212 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.resized.child->extent;
213
214 uintptr_t idx = 0;
215 for (int i = 0; i < count; i++) {
216 for (int j1 = 0; j1 < count1; j1++) {
217 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
218 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2)) = *((const long double *) (const void *) (sbuf + idx));
219 idx += sizeof(long double);
220 }
221 }
222 }
223
224 return rc;
225 }
226
yaksuri_seqi_pack_contig_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)227 int yaksuri_seqi_pack_contig_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
228 {
229 int rc = YAKSA_SUCCESS;
230 const char *restrict sbuf = (const char *) inbuf;
231 char *restrict dbuf = (char *) outbuf;
232 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
233
234 int count1 = type->u.contig.count;
235 intptr_t stride1 = type->u.contig.child->extent;
236 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
237
238 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
239
240 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.resized.child->extent;
241
242 uintptr_t idx = 0;
243 for (int i = 0; i < count; i++) {
244 for (int j1 = 0; j1 < count1; j1++) {
245 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1));
246 idx += sizeof(long double);
247 }
248 }
249
250 return rc;
251 }
252
yaksuri_seqi_unpack_contig_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)253 int yaksuri_seqi_unpack_contig_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
254 {
255 int rc = YAKSA_SUCCESS;
256 const char *restrict sbuf = (const char *) inbuf;
257 char *restrict dbuf = (char *) outbuf;
258 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
259
260 int count1 = type->u.contig.count;
261 intptr_t stride1 = type->u.contig.child->extent;
262 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
263
264 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
265
266 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.resized.child->extent;
267
268 uintptr_t idx = 0;
269 for (int i = 0; i < count; i++) {
270 for (int j1 = 0; j1 < count1; j1++) {
271 *((long double *) (void *) (dbuf + i * extent + j1 * stride1)) = *((const long double *) (const void *) (sbuf + idx));
272 idx += sizeof(long double);
273 }
274 }
275
276 return rc;
277 }
278
yaksuri_seqi_pack_resized_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)279 int yaksuri_seqi_pack_resized_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
280 {
281 int rc = YAKSA_SUCCESS;
282 const char *restrict sbuf = (const char *) inbuf;
283 char *restrict dbuf = (char *) outbuf;
284 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
285
286 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
287
288 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
289
290 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.resized.child->extent;
291
292 uintptr_t idx = 0;
293 for (int i = 0; i < count; i++) {
294 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent));
295 idx += sizeof(long double);
296 }
297
298 return rc;
299 }
300
yaksuri_seqi_unpack_resized_resized_resized_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)301 int yaksuri_seqi_unpack_resized_resized_resized_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
302 {
303 int rc = YAKSA_SUCCESS;
304 const char *restrict sbuf = (const char *) inbuf;
305 char *restrict dbuf = (char *) outbuf;
306 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
307
308 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
309
310 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
311
312 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.resized.child->extent;
313
314 uintptr_t idx = 0;
315 for (int i = 0; i < count; i++) {
316 *((long double *) (void *) (dbuf + i * extent)) = *((const long double *) (const void *) (sbuf + idx));
317 idx += sizeof(long double);
318 }
319
320 return rc;
321 }
322
323