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_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)13 int yaksuri_seqi_pack_contig_blkhindx_blklen_1_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 int count1 = type->u.contig.count;
21 intptr_t stride1 = type->u.contig.child->extent;
22 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
23
24 int count2 = type->u.contig.child->u.blkhindx.count;
25 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
26 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
27 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
28
29 uintptr_t idx = 0;
30 for (int i = 0; i < count; i++) {
31 for (int j1 = 0; j1 < count1; j1++) {
32 for (int j2 = 0; j2 < count2; j2++) {
33 for (int k2 = 0; k2 < 1; k2++) {
34 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double)));
35 idx += sizeof(long double);
36 }
37 }
38 }
39 }
40
41 return rc;
42 }
43
yaksuri_seqi_unpack_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)44 int yaksuri_seqi_unpack_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
45 {
46 int rc = YAKSA_SUCCESS;
47 const char *restrict sbuf = (const char *) inbuf;
48 char *restrict dbuf = (char *) outbuf;
49 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
50
51 int count1 = type->u.contig.count;
52 intptr_t stride1 = type->u.contig.child->extent;
53 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
54
55 int count2 = type->u.contig.child->u.blkhindx.count;
56 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
57 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
58 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
59
60 uintptr_t idx = 0;
61 for (int i = 0; i < count; i++) {
62 for (int j1 = 0; j1 < count1; j1++) {
63 for (int j2 = 0; j2 < count2; j2++) {
64 for (int k2 = 0; k2 < 1; k2++) {
65 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
66 idx += sizeof(long double);
67 }
68 }
69 }
70 }
71
72 return rc;
73 }
74
yaksuri_seqi_pack_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)75 int yaksuri_seqi_pack_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
76 {
77 int rc = YAKSA_SUCCESS;
78 const char *restrict sbuf = (const char *) inbuf;
79 char *restrict dbuf = (char *) outbuf;
80 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
81
82 int count1 = type->u.contig.count;
83 intptr_t stride1 = type->u.contig.child->extent;
84 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
85
86 int count2 = type->u.contig.child->u.blkhindx.count;
87 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
88 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
89 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
90
91 uintptr_t idx = 0;
92 for (int i = 0; i < count; i++) {
93 for (int j1 = 0; j1 < count1; j1++) {
94 for (int j2 = 0; j2 < count2; j2++) {
95 for (int k2 = 0; k2 < 2; k2++) {
96 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double)));
97 idx += sizeof(long double);
98 }
99 }
100 }
101 }
102
103 return rc;
104 }
105
yaksuri_seqi_unpack_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)106 int yaksuri_seqi_unpack_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
107 {
108 int rc = YAKSA_SUCCESS;
109 const char *restrict sbuf = (const char *) inbuf;
110 char *restrict dbuf = (char *) outbuf;
111 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
112
113 int count1 = type->u.contig.count;
114 intptr_t stride1 = type->u.contig.child->extent;
115 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
116
117 int count2 = type->u.contig.child->u.blkhindx.count;
118 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
119 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
120 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
121
122 uintptr_t idx = 0;
123 for (int i = 0; i < count; i++) {
124 for (int j1 = 0; j1 < count1; j1++) {
125 for (int j2 = 0; j2 < count2; j2++) {
126 for (int k2 = 0; k2 < 2; k2++) {
127 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
128 idx += sizeof(long double);
129 }
130 }
131 }
132 }
133
134 return rc;
135 }
136
yaksuri_seqi_pack_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)137 int yaksuri_seqi_pack_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
138 {
139 int rc = YAKSA_SUCCESS;
140 const char *restrict sbuf = (const char *) inbuf;
141 char *restrict dbuf = (char *) outbuf;
142 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
143
144 int count1 = type->u.contig.count;
145 intptr_t stride1 = type->u.contig.child->extent;
146 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
147
148 int count2 = type->u.contig.child->u.blkhindx.count;
149 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
150 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
151 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
152
153 uintptr_t idx = 0;
154 for (int i = 0; i < count; i++) {
155 for (int j1 = 0; j1 < count1; j1++) {
156 for (int j2 = 0; j2 < count2; j2++) {
157 for (int k2 = 0; k2 < 3; k2++) {
158 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double)));
159 idx += sizeof(long double);
160 }
161 }
162 }
163 }
164
165 return rc;
166 }
167
yaksuri_seqi_unpack_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)168 int yaksuri_seqi_unpack_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
169 {
170 int rc = YAKSA_SUCCESS;
171 const char *restrict sbuf = (const char *) inbuf;
172 char *restrict dbuf = (char *) outbuf;
173 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
174
175 int count1 = type->u.contig.count;
176 intptr_t stride1 = type->u.contig.child->extent;
177 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
178
179 int count2 = type->u.contig.child->u.blkhindx.count;
180 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
181 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
182 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
183
184 uintptr_t idx = 0;
185 for (int i = 0; i < count; i++) {
186 for (int j1 = 0; j1 < count1; j1++) {
187 for (int j2 = 0; j2 < count2; j2++) {
188 for (int k2 = 0; k2 < 3; k2++) {
189 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
190 idx += sizeof(long double);
191 }
192 }
193 }
194 }
195
196 return rc;
197 }
198
yaksuri_seqi_pack_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)199 int yaksuri_seqi_pack_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
200 {
201 int rc = YAKSA_SUCCESS;
202 const char *restrict sbuf = (const char *) inbuf;
203 char *restrict dbuf = (char *) outbuf;
204 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
205
206 int count1 = type->u.contig.count;
207 intptr_t stride1 = type->u.contig.child->extent;
208 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
209
210 int count2 = type->u.contig.child->u.blkhindx.count;
211 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
212 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
213 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
214
215 uintptr_t idx = 0;
216 for (int i = 0; i < count; i++) {
217 for (int j1 = 0; j1 < count1; j1++) {
218 for (int j2 = 0; j2 < count2; j2++) {
219 for (int k2 = 0; k2 < 4; k2++) {
220 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double)));
221 idx += sizeof(long double);
222 }
223 }
224 }
225 }
226
227 return rc;
228 }
229
yaksuri_seqi_unpack_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)230 int yaksuri_seqi_unpack_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
231 {
232 int rc = YAKSA_SUCCESS;
233 const char *restrict sbuf = (const char *) inbuf;
234 char *restrict dbuf = (char *) outbuf;
235 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
236
237 int count1 = type->u.contig.count;
238 intptr_t stride1 = type->u.contig.child->extent;
239 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
240
241 int count2 = type->u.contig.child->u.blkhindx.count;
242 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
243 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
244 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
245
246 uintptr_t idx = 0;
247 for (int i = 0; i < count; i++) {
248 for (int j1 = 0; j1 < count1; j1++) {
249 for (int j2 = 0; j2 < count2; j2++) {
250 for (int k2 = 0; k2 < 4; k2++) {
251 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
252 idx += sizeof(long double);
253 }
254 }
255 }
256 }
257
258 return rc;
259 }
260
yaksuri_seqi_pack_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)261 int yaksuri_seqi_pack_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
262 {
263 int rc = YAKSA_SUCCESS;
264 const char *restrict sbuf = (const char *) inbuf;
265 char *restrict dbuf = (char *) outbuf;
266 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
267
268 int count1 = type->u.contig.count;
269 intptr_t stride1 = type->u.contig.child->extent;
270 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
271
272 int count2 = type->u.contig.child->u.blkhindx.count;
273 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
274 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
275 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
276
277 uintptr_t idx = 0;
278 for (int i = 0; i < count; i++) {
279 for (int j1 = 0; j1 < count1; j1++) {
280 for (int j2 = 0; j2 < count2; j2++) {
281 for (int k2 = 0; k2 < 5; k2++) {
282 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double)));
283 idx += sizeof(long double);
284 }
285 }
286 }
287 }
288
289 return rc;
290 }
291
yaksuri_seqi_unpack_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)292 int yaksuri_seqi_unpack_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
293 {
294 int rc = YAKSA_SUCCESS;
295 const char *restrict sbuf = (const char *) inbuf;
296 char *restrict dbuf = (char *) outbuf;
297 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
298
299 int count1 = type->u.contig.count;
300 intptr_t stride1 = type->u.contig.child->extent;
301 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
302
303 int count2 = type->u.contig.child->u.blkhindx.count;
304 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
305 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
306 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
307
308 uintptr_t idx = 0;
309 for (int i = 0; i < count; i++) {
310 for (int j1 = 0; j1 < count1; j1++) {
311 for (int j2 = 0; j2 < count2; j2++) {
312 for (int k2 = 0; k2 < 5; k2++) {
313 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
314 idx += sizeof(long double);
315 }
316 }
317 }
318 }
319
320 return rc;
321 }
322
yaksuri_seqi_pack_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)323 int yaksuri_seqi_pack_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
324 {
325 int rc = YAKSA_SUCCESS;
326 const char *restrict sbuf = (const char *) inbuf;
327 char *restrict dbuf = (char *) outbuf;
328 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
329
330 int count1 = type->u.contig.count;
331 intptr_t stride1 = type->u.contig.child->extent;
332 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
333
334 int count2 = type->u.contig.child->u.blkhindx.count;
335 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
336 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
337 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
338
339 uintptr_t idx = 0;
340 for (int i = 0; i < count; i++) {
341 for (int j1 = 0; j1 < count1; j1++) {
342 for (int j2 = 0; j2 < count2; j2++) {
343 for (int k2 = 0; k2 < 6; k2++) {
344 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double)));
345 idx += sizeof(long double);
346 }
347 }
348 }
349 }
350
351 return rc;
352 }
353
yaksuri_seqi_unpack_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)354 int yaksuri_seqi_unpack_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
355 {
356 int rc = YAKSA_SUCCESS;
357 const char *restrict sbuf = (const char *) inbuf;
358 char *restrict dbuf = (char *) outbuf;
359 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
360
361 int count1 = type->u.contig.count;
362 intptr_t stride1 = type->u.contig.child->extent;
363 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
364
365 int count2 = type->u.contig.child->u.blkhindx.count;
366 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
367 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
368 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
369
370 uintptr_t idx = 0;
371 for (int i = 0; i < count; i++) {
372 for (int j1 = 0; j1 < count1; j1++) {
373 for (int j2 = 0; j2 < count2; j2++) {
374 for (int k2 = 0; k2 < 6; k2++) {
375 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
376 idx += sizeof(long double);
377 }
378 }
379 }
380 }
381
382 return rc;
383 }
384
yaksuri_seqi_pack_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)385 int yaksuri_seqi_pack_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
386 {
387 int rc = YAKSA_SUCCESS;
388 const char *restrict sbuf = (const char *) inbuf;
389 char *restrict dbuf = (char *) outbuf;
390 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
391
392 int count1 = type->u.contig.count;
393 intptr_t stride1 = type->u.contig.child->extent;
394 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
395
396 int count2 = type->u.contig.child->u.blkhindx.count;
397 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
398 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
399 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
400
401 uintptr_t idx = 0;
402 for (int i = 0; i < count; i++) {
403 for (int j1 = 0; j1 < count1; j1++) {
404 for (int j2 = 0; j2 < count2; j2++) {
405 for (int k2 = 0; k2 < 7; k2++) {
406 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double)));
407 idx += sizeof(long double);
408 }
409 }
410 }
411 }
412
413 return rc;
414 }
415
yaksuri_seqi_unpack_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)416 int yaksuri_seqi_unpack_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
417 {
418 int rc = YAKSA_SUCCESS;
419 const char *restrict sbuf = (const char *) inbuf;
420 char *restrict dbuf = (char *) outbuf;
421 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
422
423 int count1 = type->u.contig.count;
424 intptr_t stride1 = type->u.contig.child->extent;
425 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
426
427 int count2 = type->u.contig.child->u.blkhindx.count;
428 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
429 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
430 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
431
432 uintptr_t idx = 0;
433 for (int i = 0; i < count; i++) {
434 for (int j1 = 0; j1 < count1; j1++) {
435 for (int j2 = 0; j2 < count2; j2++) {
436 for (int k2 = 0; k2 < 7; k2++) {
437 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
438 idx += sizeof(long double);
439 }
440 }
441 }
442 }
443
444 return rc;
445 }
446
yaksuri_seqi_pack_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)447 int yaksuri_seqi_pack_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
448 {
449 int rc = YAKSA_SUCCESS;
450 const char *restrict sbuf = (const char *) inbuf;
451 char *restrict dbuf = (char *) outbuf;
452 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
453
454 int count1 = type->u.contig.count;
455 intptr_t stride1 = type->u.contig.child->extent;
456 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
457
458 int count2 = type->u.contig.child->u.blkhindx.count;
459 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
460 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
461 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
462
463 uintptr_t idx = 0;
464 for (int i = 0; i < count; i++) {
465 for (int j1 = 0; j1 < count1; j1++) {
466 for (int j2 = 0; j2 < count2; j2++) {
467 for (int k2 = 0; k2 < 8; k2++) {
468 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double)));
469 idx += sizeof(long double);
470 }
471 }
472 }
473 }
474
475 return rc;
476 }
477
yaksuri_seqi_unpack_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)478 int yaksuri_seqi_unpack_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
479 {
480 int rc = YAKSA_SUCCESS;
481 const char *restrict sbuf = (const char *) inbuf;
482 char *restrict dbuf = (char *) outbuf;
483 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
484
485 int count1 = type->u.contig.count;
486 intptr_t stride1 = type->u.contig.child->extent;
487 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
488
489 int count2 = type->u.contig.child->u.blkhindx.count;
490 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
491 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
492 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
493
494 uintptr_t idx = 0;
495 for (int i = 0; i < count; i++) {
496 for (int j1 = 0; j1 < count1; j1++) {
497 for (int j2 = 0; j2 < count2; j2++) {
498 for (int k2 = 0; k2 < 8; k2++) {
499 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
500 idx += sizeof(long double);
501 }
502 }
503 }
504 }
505
506 return rc;
507 }
508
yaksuri_seqi_pack_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)509 int yaksuri_seqi_pack_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
510 {
511 int rc = YAKSA_SUCCESS;
512 const char *restrict sbuf = (const char *) inbuf;
513 char *restrict dbuf = (char *) outbuf;
514 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
515
516 int count1 = type->u.contig.count;
517 intptr_t stride1 = type->u.contig.child->extent;
518 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
519
520 int count2 = type->u.contig.child->u.blkhindx.count;
521 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
522 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
523 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
524
525 uintptr_t idx = 0;
526 for (int i = 0; i < count; i++) {
527 for (int j1 = 0; j1 < count1; j1++) {
528 for (int j2 = 0; j2 < count2; j2++) {
529 for (int k2 = 0; k2 < blocklength2; k2++) {
530 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double)));
531 idx += sizeof(long double);
532 }
533 }
534 }
535 }
536
537 return rc;
538 }
539
yaksuri_seqi_unpack_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)540 int yaksuri_seqi_unpack_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
541 {
542 int rc = YAKSA_SUCCESS;
543 const char *restrict sbuf = (const char *) inbuf;
544 char *restrict dbuf = (char *) outbuf;
545 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
546
547 int count1 = type->u.contig.count;
548 intptr_t stride1 = type->u.contig.child->extent;
549 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
550
551 int count2 = type->u.contig.child->u.blkhindx.count;
552 int blocklength2 ATTRIBUTE((unused)) = type->u.contig.child->u.blkhindx.blocklength;
553 intptr_t *restrict array_of_displs2 = type->u.contig.child->u.blkhindx.array_of_displs;
554 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
555
556 uintptr_t idx = 0;
557 for (int i = 0; i < count; i++) {
558 for (int j1 = 0; j1 < count1; j1++) {
559 for (int j2 = 0; j2 < count2; j2++) {
560 for (int k2 = 0; k2 < blocklength2; k2++) {
561 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + array_of_displs2[j2] + k2 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
562 idx += sizeof(long double);
563 }
564 }
565 }
566 }
567
568 return rc;
569 }
570
yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)571 int yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
572 {
573 int rc = YAKSA_SUCCESS;
574 const char *restrict sbuf = (const char *) inbuf;
575 char *restrict dbuf = (char *) outbuf;
576 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
577
578 int count1 = type->u.hvector.count;
579 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
580 intptr_t stride1 = type->u.hvector.stride;
581 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
582
583 int count2 = type->u.hvector.child->u.contig.count;
584 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
585 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
586
587 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
588 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
589 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
590 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
591
592 uintptr_t idx = 0;
593 for (int i = 0; i < count; i++) {
594 for (int j1 = 0; j1 < count1; j1++) {
595 for (int k1 = 0; k1 < blocklength1; k1++) {
596 for (int j2 = 0; j2 < count2; j2++) {
597 for (int j3 = 0; j3 < count3; j3++) {
598 for (int k3 = 0; k3 < 1; k3++) {
599 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
600 idx += sizeof(long double);
601 }
602 }
603 }
604 }
605 }
606 }
607
608 return rc;
609 }
610
yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)611 int yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
612 {
613 int rc = YAKSA_SUCCESS;
614 const char *restrict sbuf = (const char *) inbuf;
615 char *restrict dbuf = (char *) outbuf;
616 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
617
618 int count1 = type->u.hvector.count;
619 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
620 intptr_t stride1 = type->u.hvector.stride;
621 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
622
623 int count2 = type->u.hvector.child->u.contig.count;
624 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
625 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
626
627 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
628 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
629 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
630 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
631
632 uintptr_t idx = 0;
633 for (int i = 0; i < count; i++) {
634 for (int j1 = 0; j1 < count1; j1++) {
635 for (int k1 = 0; k1 < blocklength1; k1++) {
636 for (int j2 = 0; j2 < count2; j2++) {
637 for (int j3 = 0; j3 < count3; j3++) {
638 for (int k3 = 0; k3 < 1; k3++) {
639 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
640 idx += sizeof(long double);
641 }
642 }
643 }
644 }
645 }
646 }
647
648 return rc;
649 }
650
yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)651 int yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
652 {
653 int rc = YAKSA_SUCCESS;
654 const char *restrict sbuf = (const char *) inbuf;
655 char *restrict dbuf = (char *) outbuf;
656 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
657
658 int count1 = type->u.hvector.count;
659 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
660 intptr_t stride1 = type->u.hvector.stride;
661 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
662
663 int count2 = type->u.hvector.child->u.contig.count;
664 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
665 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
666
667 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
668 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
669 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
670 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
671
672 uintptr_t idx = 0;
673 for (int i = 0; i < count; i++) {
674 for (int j1 = 0; j1 < count1; j1++) {
675 for (int k1 = 0; k1 < blocklength1; k1++) {
676 for (int j2 = 0; j2 < count2; j2++) {
677 for (int j3 = 0; j3 < count3; j3++) {
678 for (int k3 = 0; k3 < 2; k3++) {
679 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
680 idx += sizeof(long double);
681 }
682 }
683 }
684 }
685 }
686 }
687
688 return rc;
689 }
690
yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)691 int yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
692 {
693 int rc = YAKSA_SUCCESS;
694 const char *restrict sbuf = (const char *) inbuf;
695 char *restrict dbuf = (char *) outbuf;
696 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
697
698 int count1 = type->u.hvector.count;
699 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
700 intptr_t stride1 = type->u.hvector.stride;
701 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
702
703 int count2 = type->u.hvector.child->u.contig.count;
704 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
705 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
706
707 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
708 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
709 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
710 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
711
712 uintptr_t idx = 0;
713 for (int i = 0; i < count; i++) {
714 for (int j1 = 0; j1 < count1; j1++) {
715 for (int k1 = 0; k1 < blocklength1; k1++) {
716 for (int j2 = 0; j2 < count2; j2++) {
717 for (int j3 = 0; j3 < count3; j3++) {
718 for (int k3 = 0; k3 < 2; k3++) {
719 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
720 idx += sizeof(long double);
721 }
722 }
723 }
724 }
725 }
726 }
727
728 return rc;
729 }
730
yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)731 int yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
732 {
733 int rc = YAKSA_SUCCESS;
734 const char *restrict sbuf = (const char *) inbuf;
735 char *restrict dbuf = (char *) outbuf;
736 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
737
738 int count1 = type->u.hvector.count;
739 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
740 intptr_t stride1 = type->u.hvector.stride;
741 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
742
743 int count2 = type->u.hvector.child->u.contig.count;
744 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
745 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
746
747 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
748 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
749 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
750 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
751
752 uintptr_t idx = 0;
753 for (int i = 0; i < count; i++) {
754 for (int j1 = 0; j1 < count1; j1++) {
755 for (int k1 = 0; k1 < blocklength1; k1++) {
756 for (int j2 = 0; j2 < count2; j2++) {
757 for (int j3 = 0; j3 < count3; j3++) {
758 for (int k3 = 0; k3 < 3; k3++) {
759 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
760 idx += sizeof(long double);
761 }
762 }
763 }
764 }
765 }
766 }
767
768 return rc;
769 }
770
yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)771 int yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
772 {
773 int rc = YAKSA_SUCCESS;
774 const char *restrict sbuf = (const char *) inbuf;
775 char *restrict dbuf = (char *) outbuf;
776 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
777
778 int count1 = type->u.hvector.count;
779 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
780 intptr_t stride1 = type->u.hvector.stride;
781 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
782
783 int count2 = type->u.hvector.child->u.contig.count;
784 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
785 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
786
787 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
788 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
789 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
790 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
791
792 uintptr_t idx = 0;
793 for (int i = 0; i < count; i++) {
794 for (int j1 = 0; j1 < count1; j1++) {
795 for (int k1 = 0; k1 < blocklength1; k1++) {
796 for (int j2 = 0; j2 < count2; j2++) {
797 for (int j3 = 0; j3 < count3; j3++) {
798 for (int k3 = 0; k3 < 3; k3++) {
799 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
800 idx += sizeof(long double);
801 }
802 }
803 }
804 }
805 }
806 }
807
808 return rc;
809 }
810
yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)811 int yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
812 {
813 int rc = YAKSA_SUCCESS;
814 const char *restrict sbuf = (const char *) inbuf;
815 char *restrict dbuf = (char *) outbuf;
816 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
817
818 int count1 = type->u.hvector.count;
819 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
820 intptr_t stride1 = type->u.hvector.stride;
821 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
822
823 int count2 = type->u.hvector.child->u.contig.count;
824 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
825 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
826
827 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
828 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
829 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
830 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
831
832 uintptr_t idx = 0;
833 for (int i = 0; i < count; i++) {
834 for (int j1 = 0; j1 < count1; j1++) {
835 for (int k1 = 0; k1 < blocklength1; k1++) {
836 for (int j2 = 0; j2 < count2; j2++) {
837 for (int j3 = 0; j3 < count3; j3++) {
838 for (int k3 = 0; k3 < 4; k3++) {
839 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
840 idx += sizeof(long double);
841 }
842 }
843 }
844 }
845 }
846 }
847
848 return rc;
849 }
850
yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)851 int yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
852 {
853 int rc = YAKSA_SUCCESS;
854 const char *restrict sbuf = (const char *) inbuf;
855 char *restrict dbuf = (char *) outbuf;
856 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
857
858 int count1 = type->u.hvector.count;
859 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
860 intptr_t stride1 = type->u.hvector.stride;
861 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
862
863 int count2 = type->u.hvector.child->u.contig.count;
864 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
865 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
866
867 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
868 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
869 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
870 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
871
872 uintptr_t idx = 0;
873 for (int i = 0; i < count; i++) {
874 for (int j1 = 0; j1 < count1; j1++) {
875 for (int k1 = 0; k1 < blocklength1; k1++) {
876 for (int j2 = 0; j2 < count2; j2++) {
877 for (int j3 = 0; j3 < count3; j3++) {
878 for (int k3 = 0; k3 < 4; k3++) {
879 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
880 idx += sizeof(long double);
881 }
882 }
883 }
884 }
885 }
886 }
887
888 return rc;
889 }
890
yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)891 int yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
892 {
893 int rc = YAKSA_SUCCESS;
894 const char *restrict sbuf = (const char *) inbuf;
895 char *restrict dbuf = (char *) outbuf;
896 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
897
898 int count1 = type->u.hvector.count;
899 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
900 intptr_t stride1 = type->u.hvector.stride;
901 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
902
903 int count2 = type->u.hvector.child->u.contig.count;
904 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
905 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
906
907 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
908 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
909 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
910 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
911
912 uintptr_t idx = 0;
913 for (int i = 0; i < count; i++) {
914 for (int j1 = 0; j1 < count1; j1++) {
915 for (int k1 = 0; k1 < blocklength1; k1++) {
916 for (int j2 = 0; j2 < count2; j2++) {
917 for (int j3 = 0; j3 < count3; j3++) {
918 for (int k3 = 0; k3 < 5; k3++) {
919 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
920 idx += sizeof(long double);
921 }
922 }
923 }
924 }
925 }
926 }
927
928 return rc;
929 }
930
yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)931 int yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
932 {
933 int rc = YAKSA_SUCCESS;
934 const char *restrict sbuf = (const char *) inbuf;
935 char *restrict dbuf = (char *) outbuf;
936 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
937
938 int count1 = type->u.hvector.count;
939 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
940 intptr_t stride1 = type->u.hvector.stride;
941 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
942
943 int count2 = type->u.hvector.child->u.contig.count;
944 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
945 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
946
947 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
948 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
949 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
950 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
951
952 uintptr_t idx = 0;
953 for (int i = 0; i < count; i++) {
954 for (int j1 = 0; j1 < count1; j1++) {
955 for (int k1 = 0; k1 < blocklength1; k1++) {
956 for (int j2 = 0; j2 < count2; j2++) {
957 for (int j3 = 0; j3 < count3; j3++) {
958 for (int k3 = 0; k3 < 5; k3++) {
959 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
960 idx += sizeof(long double);
961 }
962 }
963 }
964 }
965 }
966 }
967
968 return rc;
969 }
970
yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)971 int yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
972 {
973 int rc = YAKSA_SUCCESS;
974 const char *restrict sbuf = (const char *) inbuf;
975 char *restrict dbuf = (char *) outbuf;
976 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
977
978 int count1 = type->u.hvector.count;
979 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
980 intptr_t stride1 = type->u.hvector.stride;
981 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
982
983 int count2 = type->u.hvector.child->u.contig.count;
984 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
985 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
986
987 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
988 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
989 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
990 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
991
992 uintptr_t idx = 0;
993 for (int i = 0; i < count; i++) {
994 for (int j1 = 0; j1 < count1; j1++) {
995 for (int k1 = 0; k1 < blocklength1; k1++) {
996 for (int j2 = 0; j2 < count2; j2++) {
997 for (int j3 = 0; j3 < count3; j3++) {
998 for (int k3 = 0; k3 < 6; k3++) {
999 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1000 idx += sizeof(long double);
1001 }
1002 }
1003 }
1004 }
1005 }
1006 }
1007
1008 return rc;
1009 }
1010
yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1011 int yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1012 {
1013 int rc = YAKSA_SUCCESS;
1014 const char *restrict sbuf = (const char *) inbuf;
1015 char *restrict dbuf = (char *) outbuf;
1016 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1017
1018 int count1 = type->u.hvector.count;
1019 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
1020 intptr_t stride1 = type->u.hvector.stride;
1021 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1022
1023 int count2 = type->u.hvector.child->u.contig.count;
1024 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
1025 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
1026
1027 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
1028 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
1029 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
1030 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
1031
1032 uintptr_t idx = 0;
1033 for (int i = 0; i < count; i++) {
1034 for (int j1 = 0; j1 < count1; j1++) {
1035 for (int k1 = 0; k1 < blocklength1; k1++) {
1036 for (int j2 = 0; j2 < count2; j2++) {
1037 for (int j3 = 0; j3 < count3; j3++) {
1038 for (int k3 = 0; k3 < 6; k3++) {
1039 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1040 idx += sizeof(long double);
1041 }
1042 }
1043 }
1044 }
1045 }
1046 }
1047
1048 return rc;
1049 }
1050
yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1051 int yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1052 {
1053 int rc = YAKSA_SUCCESS;
1054 const char *restrict sbuf = (const char *) inbuf;
1055 char *restrict dbuf = (char *) outbuf;
1056 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1057
1058 int count1 = type->u.hvector.count;
1059 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
1060 intptr_t stride1 = type->u.hvector.stride;
1061 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1062
1063 int count2 = type->u.hvector.child->u.contig.count;
1064 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
1065 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
1066
1067 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
1068 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
1069 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
1070 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
1071
1072 uintptr_t idx = 0;
1073 for (int i = 0; i < count; i++) {
1074 for (int j1 = 0; j1 < count1; j1++) {
1075 for (int k1 = 0; k1 < blocklength1; k1++) {
1076 for (int j2 = 0; j2 < count2; j2++) {
1077 for (int j3 = 0; j3 < count3; j3++) {
1078 for (int k3 = 0; k3 < 7; k3++) {
1079 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1080 idx += sizeof(long double);
1081 }
1082 }
1083 }
1084 }
1085 }
1086 }
1087
1088 return rc;
1089 }
1090
yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1091 int yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1092 {
1093 int rc = YAKSA_SUCCESS;
1094 const char *restrict sbuf = (const char *) inbuf;
1095 char *restrict dbuf = (char *) outbuf;
1096 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1097
1098 int count1 = type->u.hvector.count;
1099 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
1100 intptr_t stride1 = type->u.hvector.stride;
1101 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1102
1103 int count2 = type->u.hvector.child->u.contig.count;
1104 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
1105 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
1106
1107 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
1108 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
1109 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
1110 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
1111
1112 uintptr_t idx = 0;
1113 for (int i = 0; i < count; i++) {
1114 for (int j1 = 0; j1 < count1; j1++) {
1115 for (int k1 = 0; k1 < blocklength1; k1++) {
1116 for (int j2 = 0; j2 < count2; j2++) {
1117 for (int j3 = 0; j3 < count3; j3++) {
1118 for (int k3 = 0; k3 < 7; k3++) {
1119 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1120 idx += sizeof(long double);
1121 }
1122 }
1123 }
1124 }
1125 }
1126 }
1127
1128 return rc;
1129 }
1130
yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1131 int yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1132 {
1133 int rc = YAKSA_SUCCESS;
1134 const char *restrict sbuf = (const char *) inbuf;
1135 char *restrict dbuf = (char *) outbuf;
1136 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1137
1138 int count1 = type->u.hvector.count;
1139 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
1140 intptr_t stride1 = type->u.hvector.stride;
1141 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1142
1143 int count2 = type->u.hvector.child->u.contig.count;
1144 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
1145 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
1146
1147 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
1148 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
1149 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
1150 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
1151
1152 uintptr_t idx = 0;
1153 for (int i = 0; i < count; i++) {
1154 for (int j1 = 0; j1 < count1; j1++) {
1155 for (int k1 = 0; k1 < blocklength1; k1++) {
1156 for (int j2 = 0; j2 < count2; j2++) {
1157 for (int j3 = 0; j3 < count3; j3++) {
1158 for (int k3 = 0; k3 < 8; k3++) {
1159 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1160 idx += sizeof(long double);
1161 }
1162 }
1163 }
1164 }
1165 }
1166 }
1167
1168 return rc;
1169 }
1170
yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1171 int yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1172 {
1173 int rc = YAKSA_SUCCESS;
1174 const char *restrict sbuf = (const char *) inbuf;
1175 char *restrict dbuf = (char *) outbuf;
1176 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1177
1178 int count1 = type->u.hvector.count;
1179 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
1180 intptr_t stride1 = type->u.hvector.stride;
1181 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1182
1183 int count2 = type->u.hvector.child->u.contig.count;
1184 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
1185 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
1186
1187 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
1188 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
1189 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
1190 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
1191
1192 uintptr_t idx = 0;
1193 for (int i = 0; i < count; i++) {
1194 for (int j1 = 0; j1 < count1; j1++) {
1195 for (int k1 = 0; k1 < blocklength1; k1++) {
1196 for (int j2 = 0; j2 < count2; j2++) {
1197 for (int j3 = 0; j3 < count3; j3++) {
1198 for (int k3 = 0; k3 < 8; k3++) {
1199 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1200 idx += sizeof(long double);
1201 }
1202 }
1203 }
1204 }
1205 }
1206 }
1207
1208 return rc;
1209 }
1210
yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1211 int yaksuri_seqi_pack_hvector_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1212 {
1213 int rc = YAKSA_SUCCESS;
1214 const char *restrict sbuf = (const char *) inbuf;
1215 char *restrict dbuf = (char *) outbuf;
1216 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1217
1218 int count1 = type->u.hvector.count;
1219 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
1220 intptr_t stride1 = type->u.hvector.stride;
1221 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1222
1223 int count2 = type->u.hvector.child->u.contig.count;
1224 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
1225 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
1226
1227 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
1228 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
1229 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
1230 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
1231
1232 uintptr_t idx = 0;
1233 for (int i = 0; i < count; i++) {
1234 for (int j1 = 0; j1 < count1; j1++) {
1235 for (int k1 = 0; k1 < blocklength1; k1++) {
1236 for (int j2 = 0; j2 < count2; j2++) {
1237 for (int j3 = 0; j3 < count3; j3++) {
1238 for (int k3 = 0; k3 < blocklength3; k3++) {
1239 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1240 idx += sizeof(long double);
1241 }
1242 }
1243 }
1244 }
1245 }
1246 }
1247
1248 return rc;
1249 }
1250
yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1251 int yaksuri_seqi_unpack_hvector_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1252 {
1253 int rc = YAKSA_SUCCESS;
1254 const char *restrict sbuf = (const char *) inbuf;
1255 char *restrict dbuf = (char *) outbuf;
1256 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1257
1258 int count1 = type->u.hvector.count;
1259 int blocklength1 ATTRIBUTE((unused)) = type->u.hvector.blocklength;
1260 intptr_t stride1 = type->u.hvector.stride;
1261 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1262
1263 int count2 = type->u.hvector.child->u.contig.count;
1264 intptr_t stride2 = type->u.hvector.child->u.contig.child->extent;
1265 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hvector.child->extent;
1266
1267 int count3 = type->u.hvector.child->u.contig.child->u.blkhindx.count;
1268 int blocklength3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->u.blkhindx.blocklength;
1269 intptr_t *restrict array_of_displs3 = type->u.hvector.child->u.contig.child->u.blkhindx.array_of_displs;
1270 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hvector.child->u.contig.child->extent;
1271
1272 uintptr_t idx = 0;
1273 for (int i = 0; i < count; i++) {
1274 for (int j1 = 0; j1 < count1; j1++) {
1275 for (int k1 = 0; k1 < blocklength1; k1++) {
1276 for (int j2 = 0; j2 < count2; j2++) {
1277 for (int j3 = 0; j3 < count3; j3++) {
1278 for (int k3 = 0; k3 < blocklength3; k3++) {
1279 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1280 idx += sizeof(long double);
1281 }
1282 }
1283 }
1284 }
1285 }
1286 }
1287
1288 return rc;
1289 }
1290
yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1291 int yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1292 {
1293 int rc = YAKSA_SUCCESS;
1294 const char *restrict sbuf = (const char *) inbuf;
1295 char *restrict dbuf = (char *) outbuf;
1296 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1297
1298 int count1 = type->u.blkhindx.count;
1299 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1300 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1301 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1302
1303 int count2 = type->u.blkhindx.child->u.contig.count;
1304 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1305 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1306
1307 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1308 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1309 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1310 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1311
1312 uintptr_t idx = 0;
1313 for (int i = 0; i < count; i++) {
1314 for (int j1 = 0; j1 < count1; j1++) {
1315 for (int k1 = 0; k1 < blocklength1; k1++) {
1316 for (int j2 = 0; j2 < count2; j2++) {
1317 for (int j3 = 0; j3 < count3; j3++) {
1318 for (int k3 = 0; k3 < 1; k3++) {
1319 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1320 idx += sizeof(long double);
1321 }
1322 }
1323 }
1324 }
1325 }
1326 }
1327
1328 return rc;
1329 }
1330
yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1331 int yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1332 {
1333 int rc = YAKSA_SUCCESS;
1334 const char *restrict sbuf = (const char *) inbuf;
1335 char *restrict dbuf = (char *) outbuf;
1336 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1337
1338 int count1 = type->u.blkhindx.count;
1339 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1340 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1341 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1342
1343 int count2 = type->u.blkhindx.child->u.contig.count;
1344 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1345 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1346
1347 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1348 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1349 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1350 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1351
1352 uintptr_t idx = 0;
1353 for (int i = 0; i < count; i++) {
1354 for (int j1 = 0; j1 < count1; j1++) {
1355 for (int k1 = 0; k1 < blocklength1; k1++) {
1356 for (int j2 = 0; j2 < count2; j2++) {
1357 for (int j3 = 0; j3 < count3; j3++) {
1358 for (int k3 = 0; k3 < 1; k3++) {
1359 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1360 idx += sizeof(long double);
1361 }
1362 }
1363 }
1364 }
1365 }
1366 }
1367
1368 return rc;
1369 }
1370
yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1371 int yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1372 {
1373 int rc = YAKSA_SUCCESS;
1374 const char *restrict sbuf = (const char *) inbuf;
1375 char *restrict dbuf = (char *) outbuf;
1376 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1377
1378 int count1 = type->u.blkhindx.count;
1379 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1380 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1381 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1382
1383 int count2 = type->u.blkhindx.child->u.contig.count;
1384 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1385 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1386
1387 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1388 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1389 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1390 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1391
1392 uintptr_t idx = 0;
1393 for (int i = 0; i < count; i++) {
1394 for (int j1 = 0; j1 < count1; j1++) {
1395 for (int k1 = 0; k1 < blocklength1; k1++) {
1396 for (int j2 = 0; j2 < count2; j2++) {
1397 for (int j3 = 0; j3 < count3; j3++) {
1398 for (int k3 = 0; k3 < 2; k3++) {
1399 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1400 idx += sizeof(long double);
1401 }
1402 }
1403 }
1404 }
1405 }
1406 }
1407
1408 return rc;
1409 }
1410
yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1411 int yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1412 {
1413 int rc = YAKSA_SUCCESS;
1414 const char *restrict sbuf = (const char *) inbuf;
1415 char *restrict dbuf = (char *) outbuf;
1416 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1417
1418 int count1 = type->u.blkhindx.count;
1419 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1420 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1421 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1422
1423 int count2 = type->u.blkhindx.child->u.contig.count;
1424 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1425 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1426
1427 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1428 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1429 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1430 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1431
1432 uintptr_t idx = 0;
1433 for (int i = 0; i < count; i++) {
1434 for (int j1 = 0; j1 < count1; j1++) {
1435 for (int k1 = 0; k1 < blocklength1; k1++) {
1436 for (int j2 = 0; j2 < count2; j2++) {
1437 for (int j3 = 0; j3 < count3; j3++) {
1438 for (int k3 = 0; k3 < 2; k3++) {
1439 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1440 idx += sizeof(long double);
1441 }
1442 }
1443 }
1444 }
1445 }
1446 }
1447
1448 return rc;
1449 }
1450
yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1451 int yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1452 {
1453 int rc = YAKSA_SUCCESS;
1454 const char *restrict sbuf = (const char *) inbuf;
1455 char *restrict dbuf = (char *) outbuf;
1456 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1457
1458 int count1 = type->u.blkhindx.count;
1459 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1460 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1461 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1462
1463 int count2 = type->u.blkhindx.child->u.contig.count;
1464 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1465 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1466
1467 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1468 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1469 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1470 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1471
1472 uintptr_t idx = 0;
1473 for (int i = 0; i < count; i++) {
1474 for (int j1 = 0; j1 < count1; j1++) {
1475 for (int k1 = 0; k1 < blocklength1; k1++) {
1476 for (int j2 = 0; j2 < count2; j2++) {
1477 for (int j3 = 0; j3 < count3; j3++) {
1478 for (int k3 = 0; k3 < 3; k3++) {
1479 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1480 idx += sizeof(long double);
1481 }
1482 }
1483 }
1484 }
1485 }
1486 }
1487
1488 return rc;
1489 }
1490
yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1491 int yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1492 {
1493 int rc = YAKSA_SUCCESS;
1494 const char *restrict sbuf = (const char *) inbuf;
1495 char *restrict dbuf = (char *) outbuf;
1496 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1497
1498 int count1 = type->u.blkhindx.count;
1499 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1500 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1501 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1502
1503 int count2 = type->u.blkhindx.child->u.contig.count;
1504 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1505 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1506
1507 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1508 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1509 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1510 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1511
1512 uintptr_t idx = 0;
1513 for (int i = 0; i < count; i++) {
1514 for (int j1 = 0; j1 < count1; j1++) {
1515 for (int k1 = 0; k1 < blocklength1; k1++) {
1516 for (int j2 = 0; j2 < count2; j2++) {
1517 for (int j3 = 0; j3 < count3; j3++) {
1518 for (int k3 = 0; k3 < 3; k3++) {
1519 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1520 idx += sizeof(long double);
1521 }
1522 }
1523 }
1524 }
1525 }
1526 }
1527
1528 return rc;
1529 }
1530
yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1531 int yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1532 {
1533 int rc = YAKSA_SUCCESS;
1534 const char *restrict sbuf = (const char *) inbuf;
1535 char *restrict dbuf = (char *) outbuf;
1536 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1537
1538 int count1 = type->u.blkhindx.count;
1539 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1540 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1541 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1542
1543 int count2 = type->u.blkhindx.child->u.contig.count;
1544 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1545 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1546
1547 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1548 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1549 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1550 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1551
1552 uintptr_t idx = 0;
1553 for (int i = 0; i < count; i++) {
1554 for (int j1 = 0; j1 < count1; j1++) {
1555 for (int k1 = 0; k1 < blocklength1; k1++) {
1556 for (int j2 = 0; j2 < count2; j2++) {
1557 for (int j3 = 0; j3 < count3; j3++) {
1558 for (int k3 = 0; k3 < 4; k3++) {
1559 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1560 idx += sizeof(long double);
1561 }
1562 }
1563 }
1564 }
1565 }
1566 }
1567
1568 return rc;
1569 }
1570
yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1571 int yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1572 {
1573 int rc = YAKSA_SUCCESS;
1574 const char *restrict sbuf = (const char *) inbuf;
1575 char *restrict dbuf = (char *) outbuf;
1576 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1577
1578 int count1 = type->u.blkhindx.count;
1579 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1580 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1581 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1582
1583 int count2 = type->u.blkhindx.child->u.contig.count;
1584 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1585 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1586
1587 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1588 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1589 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1590 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1591
1592 uintptr_t idx = 0;
1593 for (int i = 0; i < count; i++) {
1594 for (int j1 = 0; j1 < count1; j1++) {
1595 for (int k1 = 0; k1 < blocklength1; k1++) {
1596 for (int j2 = 0; j2 < count2; j2++) {
1597 for (int j3 = 0; j3 < count3; j3++) {
1598 for (int k3 = 0; k3 < 4; k3++) {
1599 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1600 idx += sizeof(long double);
1601 }
1602 }
1603 }
1604 }
1605 }
1606 }
1607
1608 return rc;
1609 }
1610
yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1611 int yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1612 {
1613 int rc = YAKSA_SUCCESS;
1614 const char *restrict sbuf = (const char *) inbuf;
1615 char *restrict dbuf = (char *) outbuf;
1616 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1617
1618 int count1 = type->u.blkhindx.count;
1619 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1620 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1621 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1622
1623 int count2 = type->u.blkhindx.child->u.contig.count;
1624 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1625 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1626
1627 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1628 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1629 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1630 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1631
1632 uintptr_t idx = 0;
1633 for (int i = 0; i < count; i++) {
1634 for (int j1 = 0; j1 < count1; j1++) {
1635 for (int k1 = 0; k1 < blocklength1; k1++) {
1636 for (int j2 = 0; j2 < count2; j2++) {
1637 for (int j3 = 0; j3 < count3; j3++) {
1638 for (int k3 = 0; k3 < 5; k3++) {
1639 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1640 idx += sizeof(long double);
1641 }
1642 }
1643 }
1644 }
1645 }
1646 }
1647
1648 return rc;
1649 }
1650
yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1651 int yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1652 {
1653 int rc = YAKSA_SUCCESS;
1654 const char *restrict sbuf = (const char *) inbuf;
1655 char *restrict dbuf = (char *) outbuf;
1656 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1657
1658 int count1 = type->u.blkhindx.count;
1659 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1660 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1661 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1662
1663 int count2 = type->u.blkhindx.child->u.contig.count;
1664 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1665 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1666
1667 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1668 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1669 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1670 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1671
1672 uintptr_t idx = 0;
1673 for (int i = 0; i < count; i++) {
1674 for (int j1 = 0; j1 < count1; j1++) {
1675 for (int k1 = 0; k1 < blocklength1; k1++) {
1676 for (int j2 = 0; j2 < count2; j2++) {
1677 for (int j3 = 0; j3 < count3; j3++) {
1678 for (int k3 = 0; k3 < 5; k3++) {
1679 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1680 idx += sizeof(long double);
1681 }
1682 }
1683 }
1684 }
1685 }
1686 }
1687
1688 return rc;
1689 }
1690
yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1691 int yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1692 {
1693 int rc = YAKSA_SUCCESS;
1694 const char *restrict sbuf = (const char *) inbuf;
1695 char *restrict dbuf = (char *) outbuf;
1696 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1697
1698 int count1 = type->u.blkhindx.count;
1699 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1700 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1701 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1702
1703 int count2 = type->u.blkhindx.child->u.contig.count;
1704 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1705 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1706
1707 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1708 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1709 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1710 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1711
1712 uintptr_t idx = 0;
1713 for (int i = 0; i < count; i++) {
1714 for (int j1 = 0; j1 < count1; j1++) {
1715 for (int k1 = 0; k1 < blocklength1; k1++) {
1716 for (int j2 = 0; j2 < count2; j2++) {
1717 for (int j3 = 0; j3 < count3; j3++) {
1718 for (int k3 = 0; k3 < 6; k3++) {
1719 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1720 idx += sizeof(long double);
1721 }
1722 }
1723 }
1724 }
1725 }
1726 }
1727
1728 return rc;
1729 }
1730
yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1731 int yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1732 {
1733 int rc = YAKSA_SUCCESS;
1734 const char *restrict sbuf = (const char *) inbuf;
1735 char *restrict dbuf = (char *) outbuf;
1736 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1737
1738 int count1 = type->u.blkhindx.count;
1739 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1740 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1741 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1742
1743 int count2 = type->u.blkhindx.child->u.contig.count;
1744 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1745 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1746
1747 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1748 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1749 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1750 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1751
1752 uintptr_t idx = 0;
1753 for (int i = 0; i < count; i++) {
1754 for (int j1 = 0; j1 < count1; j1++) {
1755 for (int k1 = 0; k1 < blocklength1; k1++) {
1756 for (int j2 = 0; j2 < count2; j2++) {
1757 for (int j3 = 0; j3 < count3; j3++) {
1758 for (int k3 = 0; k3 < 6; k3++) {
1759 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1760 idx += sizeof(long double);
1761 }
1762 }
1763 }
1764 }
1765 }
1766 }
1767
1768 return rc;
1769 }
1770
yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1771 int yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1772 {
1773 int rc = YAKSA_SUCCESS;
1774 const char *restrict sbuf = (const char *) inbuf;
1775 char *restrict dbuf = (char *) outbuf;
1776 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1777
1778 int count1 = type->u.blkhindx.count;
1779 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1780 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1781 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1782
1783 int count2 = type->u.blkhindx.child->u.contig.count;
1784 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1785 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1786
1787 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1788 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1789 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1790 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1791
1792 uintptr_t idx = 0;
1793 for (int i = 0; i < count; i++) {
1794 for (int j1 = 0; j1 < count1; j1++) {
1795 for (int k1 = 0; k1 < blocklength1; k1++) {
1796 for (int j2 = 0; j2 < count2; j2++) {
1797 for (int j3 = 0; j3 < count3; j3++) {
1798 for (int k3 = 0; k3 < 7; k3++) {
1799 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1800 idx += sizeof(long double);
1801 }
1802 }
1803 }
1804 }
1805 }
1806 }
1807
1808 return rc;
1809 }
1810
yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1811 int yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1812 {
1813 int rc = YAKSA_SUCCESS;
1814 const char *restrict sbuf = (const char *) inbuf;
1815 char *restrict dbuf = (char *) outbuf;
1816 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1817
1818 int count1 = type->u.blkhindx.count;
1819 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1820 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1821 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1822
1823 int count2 = type->u.blkhindx.child->u.contig.count;
1824 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1825 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1826
1827 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1828 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1829 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1830 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1831
1832 uintptr_t idx = 0;
1833 for (int i = 0; i < count; i++) {
1834 for (int j1 = 0; j1 < count1; j1++) {
1835 for (int k1 = 0; k1 < blocklength1; k1++) {
1836 for (int j2 = 0; j2 < count2; j2++) {
1837 for (int j3 = 0; j3 < count3; j3++) {
1838 for (int k3 = 0; k3 < 7; k3++) {
1839 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1840 idx += sizeof(long double);
1841 }
1842 }
1843 }
1844 }
1845 }
1846 }
1847
1848 return rc;
1849 }
1850
yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1851 int yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1852 {
1853 int rc = YAKSA_SUCCESS;
1854 const char *restrict sbuf = (const char *) inbuf;
1855 char *restrict dbuf = (char *) outbuf;
1856 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1857
1858 int count1 = type->u.blkhindx.count;
1859 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1860 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1861 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1862
1863 int count2 = type->u.blkhindx.child->u.contig.count;
1864 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1865 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1866
1867 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1868 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1869 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1870 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1871
1872 uintptr_t idx = 0;
1873 for (int i = 0; i < count; i++) {
1874 for (int j1 = 0; j1 < count1; j1++) {
1875 for (int k1 = 0; k1 < blocklength1; k1++) {
1876 for (int j2 = 0; j2 < count2; j2++) {
1877 for (int j3 = 0; j3 < count3; j3++) {
1878 for (int k3 = 0; k3 < 8; k3++) {
1879 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1880 idx += sizeof(long double);
1881 }
1882 }
1883 }
1884 }
1885 }
1886 }
1887
1888 return rc;
1889 }
1890
yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1891 int yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1892 {
1893 int rc = YAKSA_SUCCESS;
1894 const char *restrict sbuf = (const char *) inbuf;
1895 char *restrict dbuf = (char *) outbuf;
1896 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1897
1898 int count1 = type->u.blkhindx.count;
1899 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1900 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1901 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1902
1903 int count2 = type->u.blkhindx.child->u.contig.count;
1904 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1905 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1906
1907 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1908 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1909 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1910 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1911
1912 uintptr_t idx = 0;
1913 for (int i = 0; i < count; i++) {
1914 for (int j1 = 0; j1 < count1; j1++) {
1915 for (int k1 = 0; k1 < blocklength1; k1++) {
1916 for (int j2 = 0; j2 < count2; j2++) {
1917 for (int j3 = 0; j3 < count3; j3++) {
1918 for (int k3 = 0; k3 < 8; k3++) {
1919 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
1920 idx += sizeof(long double);
1921 }
1922 }
1923 }
1924 }
1925 }
1926 }
1927
1928 return rc;
1929 }
1930
yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1931 int yaksuri_seqi_pack_blkhindx_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1932 {
1933 int rc = YAKSA_SUCCESS;
1934 const char *restrict sbuf = (const char *) inbuf;
1935 char *restrict dbuf = (char *) outbuf;
1936 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1937
1938 int count1 = type->u.blkhindx.count;
1939 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1940 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1941 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1942
1943 int count2 = type->u.blkhindx.child->u.contig.count;
1944 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1945 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1946
1947 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1948 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1949 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1950 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1951
1952 uintptr_t idx = 0;
1953 for (int i = 0; i < count; i++) {
1954 for (int j1 = 0; j1 < count1; j1++) {
1955 for (int k1 = 0; k1 < blocklength1; k1++) {
1956 for (int j2 = 0; j2 < count2; j2++) {
1957 for (int j3 = 0; j3 < count3; j3++) {
1958 for (int k3 = 0; k3 < blocklength3; k3++) {
1959 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
1960 idx += sizeof(long double);
1961 }
1962 }
1963 }
1964 }
1965 }
1966 }
1967
1968 return rc;
1969 }
1970
yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)1971 int yaksuri_seqi_unpack_blkhindx_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
1972 {
1973 int rc = YAKSA_SUCCESS;
1974 const char *restrict sbuf = (const char *) inbuf;
1975 char *restrict dbuf = (char *) outbuf;
1976 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
1977
1978 int count1 = type->u.blkhindx.count;
1979 int blocklength1 ATTRIBUTE((unused)) = type->u.blkhindx.blocklength;
1980 intptr_t *restrict array_of_displs1 = type->u.blkhindx.array_of_displs;
1981 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
1982
1983 int count2 = type->u.blkhindx.child->u.contig.count;
1984 intptr_t stride2 = type->u.blkhindx.child->u.contig.child->extent;
1985 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.blkhindx.child->extent;
1986
1987 int count3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.count;
1988 int blocklength3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->u.blkhindx.blocklength;
1989 intptr_t *restrict array_of_displs3 = type->u.blkhindx.child->u.contig.child->u.blkhindx.array_of_displs;
1990 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.blkhindx.child->u.contig.child->extent;
1991
1992 uintptr_t idx = 0;
1993 for (int i = 0; i < count; i++) {
1994 for (int j1 = 0; j1 < count1; j1++) {
1995 for (int k1 = 0; k1 < blocklength1; k1++) {
1996 for (int j2 = 0; j2 < count2; j2++) {
1997 for (int j3 = 0; j3 < count3; j3++) {
1998 for (int k3 = 0; k3 < blocklength3; k3++) {
1999 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2000 idx += sizeof(long double);
2001 }
2002 }
2003 }
2004 }
2005 }
2006 }
2007
2008 return rc;
2009 }
2010
yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2011 int yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2012 {
2013 int rc = YAKSA_SUCCESS;
2014 const char *restrict sbuf = (const char *) inbuf;
2015 char *restrict dbuf = (char *) outbuf;
2016 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2017
2018 int count1 = type->u.hindexed.count;
2019 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2020 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2021 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2022
2023 int count2 = type->u.hindexed.child->u.contig.count;
2024 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2025 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2026
2027 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2028 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2029 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2030 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2031
2032 uintptr_t idx = 0;
2033 for (int i = 0; i < count; i++) {
2034 for (int j1 = 0; j1 < count1; j1++) {
2035 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2036 for (int j2 = 0; j2 < count2; j2++) {
2037 for (int j3 = 0; j3 < count3; j3++) {
2038 for (int k3 = 0; k3 < 1; k3++) {
2039 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2040 idx += sizeof(long double);
2041 }
2042 }
2043 }
2044 }
2045 }
2046 }
2047
2048 return rc;
2049 }
2050
yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2051 int yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2052 {
2053 int rc = YAKSA_SUCCESS;
2054 const char *restrict sbuf = (const char *) inbuf;
2055 char *restrict dbuf = (char *) outbuf;
2056 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2057
2058 int count1 = type->u.hindexed.count;
2059 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2060 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2061 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2062
2063 int count2 = type->u.hindexed.child->u.contig.count;
2064 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2065 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2066
2067 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2068 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2069 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2070 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2071
2072 uintptr_t idx = 0;
2073 for (int i = 0; i < count; i++) {
2074 for (int j1 = 0; j1 < count1; j1++) {
2075 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2076 for (int j2 = 0; j2 < count2; j2++) {
2077 for (int j3 = 0; j3 < count3; j3++) {
2078 for (int k3 = 0; k3 < 1; k3++) {
2079 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2080 idx += sizeof(long double);
2081 }
2082 }
2083 }
2084 }
2085 }
2086 }
2087
2088 return rc;
2089 }
2090
yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2091 int yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2092 {
2093 int rc = YAKSA_SUCCESS;
2094 const char *restrict sbuf = (const char *) inbuf;
2095 char *restrict dbuf = (char *) outbuf;
2096 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2097
2098 int count1 = type->u.hindexed.count;
2099 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2100 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2101 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2102
2103 int count2 = type->u.hindexed.child->u.contig.count;
2104 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2105 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2106
2107 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2108 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2109 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2110 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2111
2112 uintptr_t idx = 0;
2113 for (int i = 0; i < count; i++) {
2114 for (int j1 = 0; j1 < count1; j1++) {
2115 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2116 for (int j2 = 0; j2 < count2; j2++) {
2117 for (int j3 = 0; j3 < count3; j3++) {
2118 for (int k3 = 0; k3 < 2; k3++) {
2119 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2120 idx += sizeof(long double);
2121 }
2122 }
2123 }
2124 }
2125 }
2126 }
2127
2128 return rc;
2129 }
2130
yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2131 int yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2132 {
2133 int rc = YAKSA_SUCCESS;
2134 const char *restrict sbuf = (const char *) inbuf;
2135 char *restrict dbuf = (char *) outbuf;
2136 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2137
2138 int count1 = type->u.hindexed.count;
2139 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2140 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2141 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2142
2143 int count2 = type->u.hindexed.child->u.contig.count;
2144 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2145 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2146
2147 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2148 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2149 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2150 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2151
2152 uintptr_t idx = 0;
2153 for (int i = 0; i < count; i++) {
2154 for (int j1 = 0; j1 < count1; j1++) {
2155 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2156 for (int j2 = 0; j2 < count2; j2++) {
2157 for (int j3 = 0; j3 < count3; j3++) {
2158 for (int k3 = 0; k3 < 2; k3++) {
2159 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2160 idx += sizeof(long double);
2161 }
2162 }
2163 }
2164 }
2165 }
2166 }
2167
2168 return rc;
2169 }
2170
yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2171 int yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2172 {
2173 int rc = YAKSA_SUCCESS;
2174 const char *restrict sbuf = (const char *) inbuf;
2175 char *restrict dbuf = (char *) outbuf;
2176 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2177
2178 int count1 = type->u.hindexed.count;
2179 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2180 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2181 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2182
2183 int count2 = type->u.hindexed.child->u.contig.count;
2184 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2185 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2186
2187 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2188 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2189 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2190 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2191
2192 uintptr_t idx = 0;
2193 for (int i = 0; i < count; i++) {
2194 for (int j1 = 0; j1 < count1; j1++) {
2195 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2196 for (int j2 = 0; j2 < count2; j2++) {
2197 for (int j3 = 0; j3 < count3; j3++) {
2198 for (int k3 = 0; k3 < 3; k3++) {
2199 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2200 idx += sizeof(long double);
2201 }
2202 }
2203 }
2204 }
2205 }
2206 }
2207
2208 return rc;
2209 }
2210
yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2211 int yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2212 {
2213 int rc = YAKSA_SUCCESS;
2214 const char *restrict sbuf = (const char *) inbuf;
2215 char *restrict dbuf = (char *) outbuf;
2216 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2217
2218 int count1 = type->u.hindexed.count;
2219 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2220 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2221 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2222
2223 int count2 = type->u.hindexed.child->u.contig.count;
2224 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2225 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2226
2227 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2228 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2229 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2230 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2231
2232 uintptr_t idx = 0;
2233 for (int i = 0; i < count; i++) {
2234 for (int j1 = 0; j1 < count1; j1++) {
2235 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2236 for (int j2 = 0; j2 < count2; j2++) {
2237 for (int j3 = 0; j3 < count3; j3++) {
2238 for (int k3 = 0; k3 < 3; k3++) {
2239 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2240 idx += sizeof(long double);
2241 }
2242 }
2243 }
2244 }
2245 }
2246 }
2247
2248 return rc;
2249 }
2250
yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2251 int yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2252 {
2253 int rc = YAKSA_SUCCESS;
2254 const char *restrict sbuf = (const char *) inbuf;
2255 char *restrict dbuf = (char *) outbuf;
2256 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2257
2258 int count1 = type->u.hindexed.count;
2259 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2260 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2261 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2262
2263 int count2 = type->u.hindexed.child->u.contig.count;
2264 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2265 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2266
2267 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2268 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2269 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2270 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2271
2272 uintptr_t idx = 0;
2273 for (int i = 0; i < count; i++) {
2274 for (int j1 = 0; j1 < count1; j1++) {
2275 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2276 for (int j2 = 0; j2 < count2; j2++) {
2277 for (int j3 = 0; j3 < count3; j3++) {
2278 for (int k3 = 0; k3 < 4; k3++) {
2279 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2280 idx += sizeof(long double);
2281 }
2282 }
2283 }
2284 }
2285 }
2286 }
2287
2288 return rc;
2289 }
2290
yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2291 int yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2292 {
2293 int rc = YAKSA_SUCCESS;
2294 const char *restrict sbuf = (const char *) inbuf;
2295 char *restrict dbuf = (char *) outbuf;
2296 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2297
2298 int count1 = type->u.hindexed.count;
2299 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2300 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2301 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2302
2303 int count2 = type->u.hindexed.child->u.contig.count;
2304 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2305 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2306
2307 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2308 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2309 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2310 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2311
2312 uintptr_t idx = 0;
2313 for (int i = 0; i < count; i++) {
2314 for (int j1 = 0; j1 < count1; j1++) {
2315 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2316 for (int j2 = 0; j2 < count2; j2++) {
2317 for (int j3 = 0; j3 < count3; j3++) {
2318 for (int k3 = 0; k3 < 4; k3++) {
2319 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2320 idx += sizeof(long double);
2321 }
2322 }
2323 }
2324 }
2325 }
2326 }
2327
2328 return rc;
2329 }
2330
yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2331 int yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2332 {
2333 int rc = YAKSA_SUCCESS;
2334 const char *restrict sbuf = (const char *) inbuf;
2335 char *restrict dbuf = (char *) outbuf;
2336 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2337
2338 int count1 = type->u.hindexed.count;
2339 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2340 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2341 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2342
2343 int count2 = type->u.hindexed.child->u.contig.count;
2344 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2345 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2346
2347 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2348 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2349 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2350 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2351
2352 uintptr_t idx = 0;
2353 for (int i = 0; i < count; i++) {
2354 for (int j1 = 0; j1 < count1; j1++) {
2355 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2356 for (int j2 = 0; j2 < count2; j2++) {
2357 for (int j3 = 0; j3 < count3; j3++) {
2358 for (int k3 = 0; k3 < 5; k3++) {
2359 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2360 idx += sizeof(long double);
2361 }
2362 }
2363 }
2364 }
2365 }
2366 }
2367
2368 return rc;
2369 }
2370
yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2371 int yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2372 {
2373 int rc = YAKSA_SUCCESS;
2374 const char *restrict sbuf = (const char *) inbuf;
2375 char *restrict dbuf = (char *) outbuf;
2376 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2377
2378 int count1 = type->u.hindexed.count;
2379 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2380 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2381 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2382
2383 int count2 = type->u.hindexed.child->u.contig.count;
2384 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2385 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2386
2387 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2388 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2389 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2390 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2391
2392 uintptr_t idx = 0;
2393 for (int i = 0; i < count; i++) {
2394 for (int j1 = 0; j1 < count1; j1++) {
2395 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2396 for (int j2 = 0; j2 < count2; j2++) {
2397 for (int j3 = 0; j3 < count3; j3++) {
2398 for (int k3 = 0; k3 < 5; k3++) {
2399 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2400 idx += sizeof(long double);
2401 }
2402 }
2403 }
2404 }
2405 }
2406 }
2407
2408 return rc;
2409 }
2410
yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2411 int yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2412 {
2413 int rc = YAKSA_SUCCESS;
2414 const char *restrict sbuf = (const char *) inbuf;
2415 char *restrict dbuf = (char *) outbuf;
2416 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2417
2418 int count1 = type->u.hindexed.count;
2419 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2420 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2421 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2422
2423 int count2 = type->u.hindexed.child->u.contig.count;
2424 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2425 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2426
2427 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2428 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2429 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2430 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2431
2432 uintptr_t idx = 0;
2433 for (int i = 0; i < count; i++) {
2434 for (int j1 = 0; j1 < count1; j1++) {
2435 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2436 for (int j2 = 0; j2 < count2; j2++) {
2437 for (int j3 = 0; j3 < count3; j3++) {
2438 for (int k3 = 0; k3 < 6; k3++) {
2439 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2440 idx += sizeof(long double);
2441 }
2442 }
2443 }
2444 }
2445 }
2446 }
2447
2448 return rc;
2449 }
2450
yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2451 int yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2452 {
2453 int rc = YAKSA_SUCCESS;
2454 const char *restrict sbuf = (const char *) inbuf;
2455 char *restrict dbuf = (char *) outbuf;
2456 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2457
2458 int count1 = type->u.hindexed.count;
2459 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2460 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2461 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2462
2463 int count2 = type->u.hindexed.child->u.contig.count;
2464 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2465 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2466
2467 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2468 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2469 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2470 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2471
2472 uintptr_t idx = 0;
2473 for (int i = 0; i < count; i++) {
2474 for (int j1 = 0; j1 < count1; j1++) {
2475 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2476 for (int j2 = 0; j2 < count2; j2++) {
2477 for (int j3 = 0; j3 < count3; j3++) {
2478 for (int k3 = 0; k3 < 6; k3++) {
2479 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2480 idx += sizeof(long double);
2481 }
2482 }
2483 }
2484 }
2485 }
2486 }
2487
2488 return rc;
2489 }
2490
yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2491 int yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2492 {
2493 int rc = YAKSA_SUCCESS;
2494 const char *restrict sbuf = (const char *) inbuf;
2495 char *restrict dbuf = (char *) outbuf;
2496 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2497
2498 int count1 = type->u.hindexed.count;
2499 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2500 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2501 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2502
2503 int count2 = type->u.hindexed.child->u.contig.count;
2504 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2505 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2506
2507 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2508 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2509 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2510 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2511
2512 uintptr_t idx = 0;
2513 for (int i = 0; i < count; i++) {
2514 for (int j1 = 0; j1 < count1; j1++) {
2515 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2516 for (int j2 = 0; j2 < count2; j2++) {
2517 for (int j3 = 0; j3 < count3; j3++) {
2518 for (int k3 = 0; k3 < 7; k3++) {
2519 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2520 idx += sizeof(long double);
2521 }
2522 }
2523 }
2524 }
2525 }
2526 }
2527
2528 return rc;
2529 }
2530
yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2531 int yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2532 {
2533 int rc = YAKSA_SUCCESS;
2534 const char *restrict sbuf = (const char *) inbuf;
2535 char *restrict dbuf = (char *) outbuf;
2536 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2537
2538 int count1 = type->u.hindexed.count;
2539 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2540 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2541 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2542
2543 int count2 = type->u.hindexed.child->u.contig.count;
2544 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2545 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2546
2547 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2548 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2549 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2550 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2551
2552 uintptr_t idx = 0;
2553 for (int i = 0; i < count; i++) {
2554 for (int j1 = 0; j1 < count1; j1++) {
2555 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2556 for (int j2 = 0; j2 < count2; j2++) {
2557 for (int j3 = 0; j3 < count3; j3++) {
2558 for (int k3 = 0; k3 < 7; k3++) {
2559 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2560 idx += sizeof(long double);
2561 }
2562 }
2563 }
2564 }
2565 }
2566 }
2567
2568 return rc;
2569 }
2570
yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2571 int yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2572 {
2573 int rc = YAKSA_SUCCESS;
2574 const char *restrict sbuf = (const char *) inbuf;
2575 char *restrict dbuf = (char *) outbuf;
2576 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2577
2578 int count1 = type->u.hindexed.count;
2579 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2580 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2581 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2582
2583 int count2 = type->u.hindexed.child->u.contig.count;
2584 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2585 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2586
2587 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2588 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2589 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2590 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2591
2592 uintptr_t idx = 0;
2593 for (int i = 0; i < count; i++) {
2594 for (int j1 = 0; j1 < count1; j1++) {
2595 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2596 for (int j2 = 0; j2 < count2; j2++) {
2597 for (int j3 = 0; j3 < count3; j3++) {
2598 for (int k3 = 0; k3 < 8; k3++) {
2599 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2600 idx += sizeof(long double);
2601 }
2602 }
2603 }
2604 }
2605 }
2606 }
2607
2608 return rc;
2609 }
2610
yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2611 int yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2612 {
2613 int rc = YAKSA_SUCCESS;
2614 const char *restrict sbuf = (const char *) inbuf;
2615 char *restrict dbuf = (char *) outbuf;
2616 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2617
2618 int count1 = type->u.hindexed.count;
2619 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2620 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2621 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2622
2623 int count2 = type->u.hindexed.child->u.contig.count;
2624 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2625 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2626
2627 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2628 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2629 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2630 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2631
2632 uintptr_t idx = 0;
2633 for (int i = 0; i < count; i++) {
2634 for (int j1 = 0; j1 < count1; j1++) {
2635 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2636 for (int j2 = 0; j2 < count2; j2++) {
2637 for (int j3 = 0; j3 < count3; j3++) {
2638 for (int k3 = 0; k3 < 8; k3++) {
2639 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2640 idx += sizeof(long double);
2641 }
2642 }
2643 }
2644 }
2645 }
2646 }
2647
2648 return rc;
2649 }
2650
yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2651 int yaksuri_seqi_pack_hindexed_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2652 {
2653 int rc = YAKSA_SUCCESS;
2654 const char *restrict sbuf = (const char *) inbuf;
2655 char *restrict dbuf = (char *) outbuf;
2656 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2657
2658 int count1 = type->u.hindexed.count;
2659 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2660 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2661 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2662
2663 int count2 = type->u.hindexed.child->u.contig.count;
2664 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2665 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2666
2667 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2668 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2669 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2670 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2671
2672 uintptr_t idx = 0;
2673 for (int i = 0; i < count; i++) {
2674 for (int j1 = 0; j1 < count1; j1++) {
2675 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2676 for (int j2 = 0; j2 < count2; j2++) {
2677 for (int j3 = 0; j3 < count3; j3++) {
2678 for (int k3 = 0; k3 < blocklength3; k3++) {
2679 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2680 idx += sizeof(long double);
2681 }
2682 }
2683 }
2684 }
2685 }
2686 }
2687
2688 return rc;
2689 }
2690
yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2691 int yaksuri_seqi_unpack_hindexed_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2692 {
2693 int rc = YAKSA_SUCCESS;
2694 const char *restrict sbuf = (const char *) inbuf;
2695 char *restrict dbuf = (char *) outbuf;
2696 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2697
2698 int count1 = type->u.hindexed.count;
2699 int *restrict array_of_blocklengths1 = type->u.hindexed.array_of_blocklengths;
2700 intptr_t *restrict array_of_displs1 = type->u.hindexed.array_of_displs;
2701 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2702
2703 int count2 = type->u.hindexed.child->u.contig.count;
2704 intptr_t stride2 = type->u.hindexed.child->u.contig.child->extent;
2705 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.hindexed.child->extent;
2706
2707 int count3 = type->u.hindexed.child->u.contig.child->u.blkhindx.count;
2708 int blocklength3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->u.blkhindx.blocklength;
2709 intptr_t *restrict array_of_displs3 = type->u.hindexed.child->u.contig.child->u.blkhindx.array_of_displs;
2710 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.hindexed.child->u.contig.child->extent;
2711
2712 uintptr_t idx = 0;
2713 for (int i = 0; i < count; i++) {
2714 for (int j1 = 0; j1 < count1; j1++) {
2715 for (int k1 = 0; k1 < array_of_blocklengths1[j1]; k1++) {
2716 for (int j2 = 0; j2 < count2; j2++) {
2717 for (int j3 = 0; j3 < count3; j3++) {
2718 for (int k3 = 0; k3 < blocklength3; k3++) {
2719 *((long double *) (void *) (dbuf + i * extent + array_of_displs1[j1] + k1 * extent2 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2720 idx += sizeof(long double);
2721 }
2722 }
2723 }
2724 }
2725 }
2726 }
2727
2728 return rc;
2729 }
2730
yaksuri_seqi_pack_contig_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2731 int yaksuri_seqi_pack_contig_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2732 {
2733 int rc = YAKSA_SUCCESS;
2734 const char *restrict sbuf = (const char *) inbuf;
2735 char *restrict dbuf = (char *) outbuf;
2736 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2737
2738 int count1 = type->u.contig.count;
2739 intptr_t stride1 = type->u.contig.child->extent;
2740 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2741
2742 int count2 = type->u.contig.child->u.contig.count;
2743 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
2744 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
2745
2746 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
2747 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
2748 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
2749 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
2750
2751 uintptr_t idx = 0;
2752 for (int i = 0; i < count; i++) {
2753 for (int j1 = 0; j1 < count1; j1++) {
2754 for (int j2 = 0; j2 < count2; j2++) {
2755 for (int j3 = 0; j3 < count3; j3++) {
2756 for (int k3 = 0; k3 < 1; k3++) {
2757 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2758 idx += sizeof(long double);
2759 }
2760 }
2761 }
2762 }
2763 }
2764
2765 return rc;
2766 }
2767
yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2768 int yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2769 {
2770 int rc = YAKSA_SUCCESS;
2771 const char *restrict sbuf = (const char *) inbuf;
2772 char *restrict dbuf = (char *) outbuf;
2773 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2774
2775 int count1 = type->u.contig.count;
2776 intptr_t stride1 = type->u.contig.child->extent;
2777 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2778
2779 int count2 = type->u.contig.child->u.contig.count;
2780 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
2781 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
2782
2783 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
2784 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
2785 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
2786 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
2787
2788 uintptr_t idx = 0;
2789 for (int i = 0; i < count; i++) {
2790 for (int j1 = 0; j1 < count1; j1++) {
2791 for (int j2 = 0; j2 < count2; j2++) {
2792 for (int j3 = 0; j3 < count3; j3++) {
2793 for (int k3 = 0; k3 < 1; k3++) {
2794 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2795 idx += sizeof(long double);
2796 }
2797 }
2798 }
2799 }
2800 }
2801
2802 return rc;
2803 }
2804
yaksuri_seqi_pack_contig_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2805 int yaksuri_seqi_pack_contig_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2806 {
2807 int rc = YAKSA_SUCCESS;
2808 const char *restrict sbuf = (const char *) inbuf;
2809 char *restrict dbuf = (char *) outbuf;
2810 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2811
2812 int count1 = type->u.contig.count;
2813 intptr_t stride1 = type->u.contig.child->extent;
2814 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2815
2816 int count2 = type->u.contig.child->u.contig.count;
2817 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
2818 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
2819
2820 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
2821 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
2822 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
2823 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
2824
2825 uintptr_t idx = 0;
2826 for (int i = 0; i < count; i++) {
2827 for (int j1 = 0; j1 < count1; j1++) {
2828 for (int j2 = 0; j2 < count2; j2++) {
2829 for (int j3 = 0; j3 < count3; j3++) {
2830 for (int k3 = 0; k3 < 2; k3++) {
2831 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2832 idx += sizeof(long double);
2833 }
2834 }
2835 }
2836 }
2837 }
2838
2839 return rc;
2840 }
2841
yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2842 int yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2843 {
2844 int rc = YAKSA_SUCCESS;
2845 const char *restrict sbuf = (const char *) inbuf;
2846 char *restrict dbuf = (char *) outbuf;
2847 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2848
2849 int count1 = type->u.contig.count;
2850 intptr_t stride1 = type->u.contig.child->extent;
2851 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2852
2853 int count2 = type->u.contig.child->u.contig.count;
2854 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
2855 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
2856
2857 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
2858 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
2859 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
2860 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
2861
2862 uintptr_t idx = 0;
2863 for (int i = 0; i < count; i++) {
2864 for (int j1 = 0; j1 < count1; j1++) {
2865 for (int j2 = 0; j2 < count2; j2++) {
2866 for (int j3 = 0; j3 < count3; j3++) {
2867 for (int k3 = 0; k3 < 2; k3++) {
2868 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2869 idx += sizeof(long double);
2870 }
2871 }
2872 }
2873 }
2874 }
2875
2876 return rc;
2877 }
2878
yaksuri_seqi_pack_contig_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2879 int yaksuri_seqi_pack_contig_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2880 {
2881 int rc = YAKSA_SUCCESS;
2882 const char *restrict sbuf = (const char *) inbuf;
2883 char *restrict dbuf = (char *) outbuf;
2884 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2885
2886 int count1 = type->u.contig.count;
2887 intptr_t stride1 = type->u.contig.child->extent;
2888 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2889
2890 int count2 = type->u.contig.child->u.contig.count;
2891 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
2892 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
2893
2894 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
2895 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
2896 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
2897 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
2898
2899 uintptr_t idx = 0;
2900 for (int i = 0; i < count; i++) {
2901 for (int j1 = 0; j1 < count1; j1++) {
2902 for (int j2 = 0; j2 < count2; j2++) {
2903 for (int j3 = 0; j3 < count3; j3++) {
2904 for (int k3 = 0; k3 < 3; k3++) {
2905 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2906 idx += sizeof(long double);
2907 }
2908 }
2909 }
2910 }
2911 }
2912
2913 return rc;
2914 }
2915
yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2916 int yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2917 {
2918 int rc = YAKSA_SUCCESS;
2919 const char *restrict sbuf = (const char *) inbuf;
2920 char *restrict dbuf = (char *) outbuf;
2921 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2922
2923 int count1 = type->u.contig.count;
2924 intptr_t stride1 = type->u.contig.child->extent;
2925 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2926
2927 int count2 = type->u.contig.child->u.contig.count;
2928 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
2929 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
2930
2931 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
2932 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
2933 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
2934 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
2935
2936 uintptr_t idx = 0;
2937 for (int i = 0; i < count; i++) {
2938 for (int j1 = 0; j1 < count1; j1++) {
2939 for (int j2 = 0; j2 < count2; j2++) {
2940 for (int j3 = 0; j3 < count3; j3++) {
2941 for (int k3 = 0; k3 < 3; k3++) {
2942 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
2943 idx += sizeof(long double);
2944 }
2945 }
2946 }
2947 }
2948 }
2949
2950 return rc;
2951 }
2952
yaksuri_seqi_pack_contig_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2953 int yaksuri_seqi_pack_contig_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2954 {
2955 int rc = YAKSA_SUCCESS;
2956 const char *restrict sbuf = (const char *) inbuf;
2957 char *restrict dbuf = (char *) outbuf;
2958 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2959
2960 int count1 = type->u.contig.count;
2961 intptr_t stride1 = type->u.contig.child->extent;
2962 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
2963
2964 int count2 = type->u.contig.child->u.contig.count;
2965 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
2966 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
2967
2968 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
2969 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
2970 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
2971 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
2972
2973 uintptr_t idx = 0;
2974 for (int i = 0; i < count; i++) {
2975 for (int j1 = 0; j1 < count1; j1++) {
2976 for (int j2 = 0; j2 < count2; j2++) {
2977 for (int j3 = 0; j3 < count3; j3++) {
2978 for (int k3 = 0; k3 < 4; k3++) {
2979 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
2980 idx += sizeof(long double);
2981 }
2982 }
2983 }
2984 }
2985 }
2986
2987 return rc;
2988 }
2989
yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)2990 int yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
2991 {
2992 int rc = YAKSA_SUCCESS;
2993 const char *restrict sbuf = (const char *) inbuf;
2994 char *restrict dbuf = (char *) outbuf;
2995 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
2996
2997 int count1 = type->u.contig.count;
2998 intptr_t stride1 = type->u.contig.child->extent;
2999 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3000
3001 int count2 = type->u.contig.child->u.contig.count;
3002 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3003 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3004
3005 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3006 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3007 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3008 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3009
3010 uintptr_t idx = 0;
3011 for (int i = 0; i < count; i++) {
3012 for (int j1 = 0; j1 < count1; j1++) {
3013 for (int j2 = 0; j2 < count2; j2++) {
3014 for (int j3 = 0; j3 < count3; j3++) {
3015 for (int k3 = 0; k3 < 4; k3++) {
3016 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3017 idx += sizeof(long double);
3018 }
3019 }
3020 }
3021 }
3022 }
3023
3024 return rc;
3025 }
3026
yaksuri_seqi_pack_contig_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3027 int yaksuri_seqi_pack_contig_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3028 {
3029 int rc = YAKSA_SUCCESS;
3030 const char *restrict sbuf = (const char *) inbuf;
3031 char *restrict dbuf = (char *) outbuf;
3032 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3033
3034 int count1 = type->u.contig.count;
3035 intptr_t stride1 = type->u.contig.child->extent;
3036 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3037
3038 int count2 = type->u.contig.child->u.contig.count;
3039 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3040 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3041
3042 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3043 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3044 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3045 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3046
3047 uintptr_t idx = 0;
3048 for (int i = 0; i < count; i++) {
3049 for (int j1 = 0; j1 < count1; j1++) {
3050 for (int j2 = 0; j2 < count2; j2++) {
3051 for (int j3 = 0; j3 < count3; j3++) {
3052 for (int k3 = 0; k3 < 5; k3++) {
3053 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3054 idx += sizeof(long double);
3055 }
3056 }
3057 }
3058 }
3059 }
3060
3061 return rc;
3062 }
3063
yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3064 int yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3065 {
3066 int rc = YAKSA_SUCCESS;
3067 const char *restrict sbuf = (const char *) inbuf;
3068 char *restrict dbuf = (char *) outbuf;
3069 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3070
3071 int count1 = type->u.contig.count;
3072 intptr_t stride1 = type->u.contig.child->extent;
3073 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3074
3075 int count2 = type->u.contig.child->u.contig.count;
3076 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3077 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3078
3079 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3080 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3081 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3082 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3083
3084 uintptr_t idx = 0;
3085 for (int i = 0; i < count; i++) {
3086 for (int j1 = 0; j1 < count1; j1++) {
3087 for (int j2 = 0; j2 < count2; j2++) {
3088 for (int j3 = 0; j3 < count3; j3++) {
3089 for (int k3 = 0; k3 < 5; k3++) {
3090 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3091 idx += sizeof(long double);
3092 }
3093 }
3094 }
3095 }
3096 }
3097
3098 return rc;
3099 }
3100
yaksuri_seqi_pack_contig_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3101 int yaksuri_seqi_pack_contig_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3102 {
3103 int rc = YAKSA_SUCCESS;
3104 const char *restrict sbuf = (const char *) inbuf;
3105 char *restrict dbuf = (char *) outbuf;
3106 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3107
3108 int count1 = type->u.contig.count;
3109 intptr_t stride1 = type->u.contig.child->extent;
3110 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3111
3112 int count2 = type->u.contig.child->u.contig.count;
3113 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3114 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3115
3116 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3117 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3118 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3119 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3120
3121 uintptr_t idx = 0;
3122 for (int i = 0; i < count; i++) {
3123 for (int j1 = 0; j1 < count1; j1++) {
3124 for (int j2 = 0; j2 < count2; j2++) {
3125 for (int j3 = 0; j3 < count3; j3++) {
3126 for (int k3 = 0; k3 < 6; k3++) {
3127 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3128 idx += sizeof(long double);
3129 }
3130 }
3131 }
3132 }
3133 }
3134
3135 return rc;
3136 }
3137
yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3138 int yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3139 {
3140 int rc = YAKSA_SUCCESS;
3141 const char *restrict sbuf = (const char *) inbuf;
3142 char *restrict dbuf = (char *) outbuf;
3143 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3144
3145 int count1 = type->u.contig.count;
3146 intptr_t stride1 = type->u.contig.child->extent;
3147 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3148
3149 int count2 = type->u.contig.child->u.contig.count;
3150 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3151 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3152
3153 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3154 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3155 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3156 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3157
3158 uintptr_t idx = 0;
3159 for (int i = 0; i < count; i++) {
3160 for (int j1 = 0; j1 < count1; j1++) {
3161 for (int j2 = 0; j2 < count2; j2++) {
3162 for (int j3 = 0; j3 < count3; j3++) {
3163 for (int k3 = 0; k3 < 6; k3++) {
3164 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3165 idx += sizeof(long double);
3166 }
3167 }
3168 }
3169 }
3170 }
3171
3172 return rc;
3173 }
3174
yaksuri_seqi_pack_contig_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3175 int yaksuri_seqi_pack_contig_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3176 {
3177 int rc = YAKSA_SUCCESS;
3178 const char *restrict sbuf = (const char *) inbuf;
3179 char *restrict dbuf = (char *) outbuf;
3180 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3181
3182 int count1 = type->u.contig.count;
3183 intptr_t stride1 = type->u.contig.child->extent;
3184 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3185
3186 int count2 = type->u.contig.child->u.contig.count;
3187 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3188 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3189
3190 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3191 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3192 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3193 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3194
3195 uintptr_t idx = 0;
3196 for (int i = 0; i < count; i++) {
3197 for (int j1 = 0; j1 < count1; j1++) {
3198 for (int j2 = 0; j2 < count2; j2++) {
3199 for (int j3 = 0; j3 < count3; j3++) {
3200 for (int k3 = 0; k3 < 7; k3++) {
3201 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3202 idx += sizeof(long double);
3203 }
3204 }
3205 }
3206 }
3207 }
3208
3209 return rc;
3210 }
3211
yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3212 int yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3213 {
3214 int rc = YAKSA_SUCCESS;
3215 const char *restrict sbuf = (const char *) inbuf;
3216 char *restrict dbuf = (char *) outbuf;
3217 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3218
3219 int count1 = type->u.contig.count;
3220 intptr_t stride1 = type->u.contig.child->extent;
3221 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3222
3223 int count2 = type->u.contig.child->u.contig.count;
3224 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3225 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3226
3227 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3228 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3229 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3230 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3231
3232 uintptr_t idx = 0;
3233 for (int i = 0; i < count; i++) {
3234 for (int j1 = 0; j1 < count1; j1++) {
3235 for (int j2 = 0; j2 < count2; j2++) {
3236 for (int j3 = 0; j3 < count3; j3++) {
3237 for (int k3 = 0; k3 < 7; k3++) {
3238 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3239 idx += sizeof(long double);
3240 }
3241 }
3242 }
3243 }
3244 }
3245
3246 return rc;
3247 }
3248
yaksuri_seqi_pack_contig_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3249 int yaksuri_seqi_pack_contig_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3250 {
3251 int rc = YAKSA_SUCCESS;
3252 const char *restrict sbuf = (const char *) inbuf;
3253 char *restrict dbuf = (char *) outbuf;
3254 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3255
3256 int count1 = type->u.contig.count;
3257 intptr_t stride1 = type->u.contig.child->extent;
3258 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3259
3260 int count2 = type->u.contig.child->u.contig.count;
3261 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3262 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3263
3264 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3265 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3266 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3267 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3268
3269 uintptr_t idx = 0;
3270 for (int i = 0; i < count; i++) {
3271 for (int j1 = 0; j1 < count1; j1++) {
3272 for (int j2 = 0; j2 < count2; j2++) {
3273 for (int j3 = 0; j3 < count3; j3++) {
3274 for (int k3 = 0; k3 < 8; k3++) {
3275 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3276 idx += sizeof(long double);
3277 }
3278 }
3279 }
3280 }
3281 }
3282
3283 return rc;
3284 }
3285
yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3286 int yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3287 {
3288 int rc = YAKSA_SUCCESS;
3289 const char *restrict sbuf = (const char *) inbuf;
3290 char *restrict dbuf = (char *) outbuf;
3291 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3292
3293 int count1 = type->u.contig.count;
3294 intptr_t stride1 = type->u.contig.child->extent;
3295 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3296
3297 int count2 = type->u.contig.child->u.contig.count;
3298 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3299 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3300
3301 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3302 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3303 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3304 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3305
3306 uintptr_t idx = 0;
3307 for (int i = 0; i < count; i++) {
3308 for (int j1 = 0; j1 < count1; j1++) {
3309 for (int j2 = 0; j2 < count2; j2++) {
3310 for (int j3 = 0; j3 < count3; j3++) {
3311 for (int k3 = 0; k3 < 8; k3++) {
3312 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3313 idx += sizeof(long double);
3314 }
3315 }
3316 }
3317 }
3318 }
3319
3320 return rc;
3321 }
3322
yaksuri_seqi_pack_contig_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3323 int yaksuri_seqi_pack_contig_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3324 {
3325 int rc = YAKSA_SUCCESS;
3326 const char *restrict sbuf = (const char *) inbuf;
3327 char *restrict dbuf = (char *) outbuf;
3328 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3329
3330 int count1 = type->u.contig.count;
3331 intptr_t stride1 = type->u.contig.child->extent;
3332 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3333
3334 int count2 = type->u.contig.child->u.contig.count;
3335 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3336 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3337
3338 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3339 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3340 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3341 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3342
3343 uintptr_t idx = 0;
3344 for (int i = 0; i < count; i++) {
3345 for (int j1 = 0; j1 < count1; j1++) {
3346 for (int j2 = 0; j2 < count2; j2++) {
3347 for (int j3 = 0; j3 < count3; j3++) {
3348 for (int k3 = 0; k3 < blocklength3; k3++) {
3349 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3350 idx += sizeof(long double);
3351 }
3352 }
3353 }
3354 }
3355 }
3356
3357 return rc;
3358 }
3359
yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3360 int yaksuri_seqi_unpack_contig_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3361 {
3362 int rc = YAKSA_SUCCESS;
3363 const char *restrict sbuf = (const char *) inbuf;
3364 char *restrict dbuf = (char *) outbuf;
3365 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3366
3367 int count1 = type->u.contig.count;
3368 intptr_t stride1 = type->u.contig.child->extent;
3369 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3370
3371 int count2 = type->u.contig.child->u.contig.count;
3372 intptr_t stride2 = type->u.contig.child->u.contig.child->extent;
3373 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.contig.child->extent;
3374
3375 int count3 = type->u.contig.child->u.contig.child->u.blkhindx.count;
3376 int blocklength3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->u.blkhindx.blocklength;
3377 intptr_t *restrict array_of_displs3 = type->u.contig.child->u.contig.child->u.blkhindx.array_of_displs;
3378 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.contig.child->u.contig.child->extent;
3379
3380 uintptr_t idx = 0;
3381 for (int i = 0; i < count; i++) {
3382 for (int j1 = 0; j1 < count1; j1++) {
3383 for (int j2 = 0; j2 < count2; j2++) {
3384 for (int j3 = 0; j3 < count3; j3++) {
3385 for (int k3 = 0; k3 < blocklength3; k3++) {
3386 *((long double *) (void *) (dbuf + i * extent + j1 * stride1 + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3387 idx += sizeof(long double);
3388 }
3389 }
3390 }
3391 }
3392 }
3393
3394 return rc;
3395 }
3396
yaksuri_seqi_pack_resized_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3397 int yaksuri_seqi_pack_resized_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3398 {
3399 int rc = YAKSA_SUCCESS;
3400 const char *restrict sbuf = (const char *) inbuf;
3401 char *restrict dbuf = (char *) outbuf;
3402 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3403
3404 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3405
3406 int count2 = type->u.resized.child->u.contig.count;
3407 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3408 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3409
3410 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3411 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3412 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3413 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3414
3415 uintptr_t idx = 0;
3416 for (int i = 0; i < count; i++) {
3417 for (int j2 = 0; j2 < count2; j2++) {
3418 for (int j3 = 0; j3 < count3; j3++) {
3419 for (int k3 = 0; k3 < 1; k3++) {
3420 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3421 idx += sizeof(long double);
3422 }
3423 }
3424 }
3425 }
3426
3427 return rc;
3428 }
3429
yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_1_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3430 int yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_1_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3431 {
3432 int rc = YAKSA_SUCCESS;
3433 const char *restrict sbuf = (const char *) inbuf;
3434 char *restrict dbuf = (char *) outbuf;
3435 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3436
3437 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3438
3439 int count2 = type->u.resized.child->u.contig.count;
3440 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3441 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3442
3443 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3444 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3445 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3446 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3447
3448 uintptr_t idx = 0;
3449 for (int i = 0; i < count; i++) {
3450 for (int j2 = 0; j2 < count2; j2++) {
3451 for (int j3 = 0; j3 < count3; j3++) {
3452 for (int k3 = 0; k3 < 1; k3++) {
3453 *((long double *) (void *) (dbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3454 idx += sizeof(long double);
3455 }
3456 }
3457 }
3458 }
3459
3460 return rc;
3461 }
3462
yaksuri_seqi_pack_resized_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3463 int yaksuri_seqi_pack_resized_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3464 {
3465 int rc = YAKSA_SUCCESS;
3466 const char *restrict sbuf = (const char *) inbuf;
3467 char *restrict dbuf = (char *) outbuf;
3468 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3469
3470 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3471
3472 int count2 = type->u.resized.child->u.contig.count;
3473 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3474 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3475
3476 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3477 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3478 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3479 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3480
3481 uintptr_t idx = 0;
3482 for (int i = 0; i < count; i++) {
3483 for (int j2 = 0; j2 < count2; j2++) {
3484 for (int j3 = 0; j3 < count3; j3++) {
3485 for (int k3 = 0; k3 < 2; k3++) {
3486 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3487 idx += sizeof(long double);
3488 }
3489 }
3490 }
3491 }
3492
3493 return rc;
3494 }
3495
yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_2_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3496 int yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_2_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3497 {
3498 int rc = YAKSA_SUCCESS;
3499 const char *restrict sbuf = (const char *) inbuf;
3500 char *restrict dbuf = (char *) outbuf;
3501 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3502
3503 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3504
3505 int count2 = type->u.resized.child->u.contig.count;
3506 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3507 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3508
3509 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3510 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3511 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3512 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3513
3514 uintptr_t idx = 0;
3515 for (int i = 0; i < count; i++) {
3516 for (int j2 = 0; j2 < count2; j2++) {
3517 for (int j3 = 0; j3 < count3; j3++) {
3518 for (int k3 = 0; k3 < 2; k3++) {
3519 *((long double *) (void *) (dbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3520 idx += sizeof(long double);
3521 }
3522 }
3523 }
3524 }
3525
3526 return rc;
3527 }
3528
yaksuri_seqi_pack_resized_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3529 int yaksuri_seqi_pack_resized_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3530 {
3531 int rc = YAKSA_SUCCESS;
3532 const char *restrict sbuf = (const char *) inbuf;
3533 char *restrict dbuf = (char *) outbuf;
3534 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3535
3536 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3537
3538 int count2 = type->u.resized.child->u.contig.count;
3539 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3540 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3541
3542 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3543 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3544 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3545 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3546
3547 uintptr_t idx = 0;
3548 for (int i = 0; i < count; i++) {
3549 for (int j2 = 0; j2 < count2; j2++) {
3550 for (int j3 = 0; j3 < count3; j3++) {
3551 for (int k3 = 0; k3 < 3; k3++) {
3552 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3553 idx += sizeof(long double);
3554 }
3555 }
3556 }
3557 }
3558
3559 return rc;
3560 }
3561
yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_3_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3562 int yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_3_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3563 {
3564 int rc = YAKSA_SUCCESS;
3565 const char *restrict sbuf = (const char *) inbuf;
3566 char *restrict dbuf = (char *) outbuf;
3567 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3568
3569 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3570
3571 int count2 = type->u.resized.child->u.contig.count;
3572 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3573 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3574
3575 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3576 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3577 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3578 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3579
3580 uintptr_t idx = 0;
3581 for (int i = 0; i < count; i++) {
3582 for (int j2 = 0; j2 < count2; j2++) {
3583 for (int j3 = 0; j3 < count3; j3++) {
3584 for (int k3 = 0; k3 < 3; k3++) {
3585 *((long double *) (void *) (dbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3586 idx += sizeof(long double);
3587 }
3588 }
3589 }
3590 }
3591
3592 return rc;
3593 }
3594
yaksuri_seqi_pack_resized_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3595 int yaksuri_seqi_pack_resized_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3596 {
3597 int rc = YAKSA_SUCCESS;
3598 const char *restrict sbuf = (const char *) inbuf;
3599 char *restrict dbuf = (char *) outbuf;
3600 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3601
3602 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3603
3604 int count2 = type->u.resized.child->u.contig.count;
3605 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3606 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3607
3608 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3609 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3610 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3611 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3612
3613 uintptr_t idx = 0;
3614 for (int i = 0; i < count; i++) {
3615 for (int j2 = 0; j2 < count2; j2++) {
3616 for (int j3 = 0; j3 < count3; j3++) {
3617 for (int k3 = 0; k3 < 4; k3++) {
3618 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3619 idx += sizeof(long double);
3620 }
3621 }
3622 }
3623 }
3624
3625 return rc;
3626 }
3627
yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_4_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3628 int yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_4_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3629 {
3630 int rc = YAKSA_SUCCESS;
3631 const char *restrict sbuf = (const char *) inbuf;
3632 char *restrict dbuf = (char *) outbuf;
3633 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3634
3635 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3636
3637 int count2 = type->u.resized.child->u.contig.count;
3638 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3639 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3640
3641 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3642 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3643 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3644 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3645
3646 uintptr_t idx = 0;
3647 for (int i = 0; i < count; i++) {
3648 for (int j2 = 0; j2 < count2; j2++) {
3649 for (int j3 = 0; j3 < count3; j3++) {
3650 for (int k3 = 0; k3 < 4; k3++) {
3651 *((long double *) (void *) (dbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3652 idx += sizeof(long double);
3653 }
3654 }
3655 }
3656 }
3657
3658 return rc;
3659 }
3660
yaksuri_seqi_pack_resized_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3661 int yaksuri_seqi_pack_resized_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3662 {
3663 int rc = YAKSA_SUCCESS;
3664 const char *restrict sbuf = (const char *) inbuf;
3665 char *restrict dbuf = (char *) outbuf;
3666 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3667
3668 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3669
3670 int count2 = type->u.resized.child->u.contig.count;
3671 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3672 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3673
3674 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3675 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3676 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3677 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3678
3679 uintptr_t idx = 0;
3680 for (int i = 0; i < count; i++) {
3681 for (int j2 = 0; j2 < count2; j2++) {
3682 for (int j3 = 0; j3 < count3; j3++) {
3683 for (int k3 = 0; k3 < 5; k3++) {
3684 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3685 idx += sizeof(long double);
3686 }
3687 }
3688 }
3689 }
3690
3691 return rc;
3692 }
3693
yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_5_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3694 int yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_5_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3695 {
3696 int rc = YAKSA_SUCCESS;
3697 const char *restrict sbuf = (const char *) inbuf;
3698 char *restrict dbuf = (char *) outbuf;
3699 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3700
3701 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3702
3703 int count2 = type->u.resized.child->u.contig.count;
3704 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3705 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3706
3707 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3708 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3709 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3710 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3711
3712 uintptr_t idx = 0;
3713 for (int i = 0; i < count; i++) {
3714 for (int j2 = 0; j2 < count2; j2++) {
3715 for (int j3 = 0; j3 < count3; j3++) {
3716 for (int k3 = 0; k3 < 5; k3++) {
3717 *((long double *) (void *) (dbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3718 idx += sizeof(long double);
3719 }
3720 }
3721 }
3722 }
3723
3724 return rc;
3725 }
3726
yaksuri_seqi_pack_resized_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3727 int yaksuri_seqi_pack_resized_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3728 {
3729 int rc = YAKSA_SUCCESS;
3730 const char *restrict sbuf = (const char *) inbuf;
3731 char *restrict dbuf = (char *) outbuf;
3732 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3733
3734 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3735
3736 int count2 = type->u.resized.child->u.contig.count;
3737 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3738 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3739
3740 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3741 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3742 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3743 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3744
3745 uintptr_t idx = 0;
3746 for (int i = 0; i < count; i++) {
3747 for (int j2 = 0; j2 < count2; j2++) {
3748 for (int j3 = 0; j3 < count3; j3++) {
3749 for (int k3 = 0; k3 < 6; k3++) {
3750 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3751 idx += sizeof(long double);
3752 }
3753 }
3754 }
3755 }
3756
3757 return rc;
3758 }
3759
yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_6_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3760 int yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_6_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3761 {
3762 int rc = YAKSA_SUCCESS;
3763 const char *restrict sbuf = (const char *) inbuf;
3764 char *restrict dbuf = (char *) outbuf;
3765 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3766
3767 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3768
3769 int count2 = type->u.resized.child->u.contig.count;
3770 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3771 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3772
3773 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3774 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3775 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3776 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3777
3778 uintptr_t idx = 0;
3779 for (int i = 0; i < count; i++) {
3780 for (int j2 = 0; j2 < count2; j2++) {
3781 for (int j3 = 0; j3 < count3; j3++) {
3782 for (int k3 = 0; k3 < 6; k3++) {
3783 *((long double *) (void *) (dbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3784 idx += sizeof(long double);
3785 }
3786 }
3787 }
3788 }
3789
3790 return rc;
3791 }
3792
yaksuri_seqi_pack_resized_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3793 int yaksuri_seqi_pack_resized_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3794 {
3795 int rc = YAKSA_SUCCESS;
3796 const char *restrict sbuf = (const char *) inbuf;
3797 char *restrict dbuf = (char *) outbuf;
3798 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3799
3800 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3801
3802 int count2 = type->u.resized.child->u.contig.count;
3803 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3804 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3805
3806 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3807 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3808 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3809 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3810
3811 uintptr_t idx = 0;
3812 for (int i = 0; i < count; i++) {
3813 for (int j2 = 0; j2 < count2; j2++) {
3814 for (int j3 = 0; j3 < count3; j3++) {
3815 for (int k3 = 0; k3 < 7; k3++) {
3816 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3817 idx += sizeof(long double);
3818 }
3819 }
3820 }
3821 }
3822
3823 return rc;
3824 }
3825
yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_7_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3826 int yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_7_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3827 {
3828 int rc = YAKSA_SUCCESS;
3829 const char *restrict sbuf = (const char *) inbuf;
3830 char *restrict dbuf = (char *) outbuf;
3831 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3832
3833 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3834
3835 int count2 = type->u.resized.child->u.contig.count;
3836 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3837 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3838
3839 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3840 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3841 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3842 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3843
3844 uintptr_t idx = 0;
3845 for (int i = 0; i < count; i++) {
3846 for (int j2 = 0; j2 < count2; j2++) {
3847 for (int j3 = 0; j3 < count3; j3++) {
3848 for (int k3 = 0; k3 < 7; k3++) {
3849 *((long double *) (void *) (dbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3850 idx += sizeof(long double);
3851 }
3852 }
3853 }
3854 }
3855
3856 return rc;
3857 }
3858
yaksuri_seqi_pack_resized_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3859 int yaksuri_seqi_pack_resized_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3860 {
3861 int rc = YAKSA_SUCCESS;
3862 const char *restrict sbuf = (const char *) inbuf;
3863 char *restrict dbuf = (char *) outbuf;
3864 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3865
3866 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3867
3868 int count2 = type->u.resized.child->u.contig.count;
3869 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3870 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3871
3872 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3873 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3874 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3875 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3876
3877 uintptr_t idx = 0;
3878 for (int i = 0; i < count; i++) {
3879 for (int j2 = 0; j2 < count2; j2++) {
3880 for (int j3 = 0; j3 < count3; j3++) {
3881 for (int k3 = 0; k3 < 8; k3++) {
3882 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3883 idx += sizeof(long double);
3884 }
3885 }
3886 }
3887 }
3888
3889 return rc;
3890 }
3891
yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_8_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3892 int yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_8_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3893 {
3894 int rc = YAKSA_SUCCESS;
3895 const char *restrict sbuf = (const char *) inbuf;
3896 char *restrict dbuf = (char *) outbuf;
3897 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3898
3899 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3900
3901 int count2 = type->u.resized.child->u.contig.count;
3902 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3903 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3904
3905 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3906 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3907 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3908 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3909
3910 uintptr_t idx = 0;
3911 for (int i = 0; i < count; i++) {
3912 for (int j2 = 0; j2 < count2; j2++) {
3913 for (int j3 = 0; j3 < count3; j3++) {
3914 for (int k3 = 0; k3 < 8; k3++) {
3915 *((long double *) (void *) (dbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3916 idx += sizeof(long double);
3917 }
3918 }
3919 }
3920 }
3921
3922 return rc;
3923 }
3924
yaksuri_seqi_pack_resized_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3925 int yaksuri_seqi_pack_resized_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3926 {
3927 int rc = YAKSA_SUCCESS;
3928 const char *restrict sbuf = (const char *) inbuf;
3929 char *restrict dbuf = (char *) outbuf;
3930 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3931
3932 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3933
3934 int count2 = type->u.resized.child->u.contig.count;
3935 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3936 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3937
3938 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3939 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3940 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3941 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3942
3943 uintptr_t idx = 0;
3944 for (int i = 0; i < count; i++) {
3945 for (int j2 = 0; j2 < count2; j2++) {
3946 for (int j3 = 0; j3 < count3; j3++) {
3947 for (int k3 = 0; k3 < blocklength3; k3++) {
3948 *((long double *) (void *) (dbuf + idx)) = *((const long double *) (const void *) (sbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double)));
3949 idx += sizeof(long double);
3950 }
3951 }
3952 }
3953 }
3954
3955 return rc;
3956 }
3957
yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_generic_long_double(const void * inbuf,void * outbuf,uintptr_t count,yaksi_type_s * type)3958 int yaksuri_seqi_unpack_resized_contig_blkhindx_blklen_generic_long_double(const void *inbuf, void *outbuf, uintptr_t count, yaksi_type_s * type)
3959 {
3960 int rc = YAKSA_SUCCESS;
3961 const char *restrict sbuf = (const char *) inbuf;
3962 char *restrict dbuf = (char *) outbuf;
3963 uintptr_t extent ATTRIBUTE((unused)) = type->extent;
3964
3965 uintptr_t extent1 ATTRIBUTE((unused)) = type->extent;
3966
3967 int count2 = type->u.resized.child->u.contig.count;
3968 intptr_t stride2 = type->u.resized.child->u.contig.child->extent;
3969 uintptr_t extent2 ATTRIBUTE((unused)) = type->u.resized.child->extent;
3970
3971 int count3 = type->u.resized.child->u.contig.child->u.blkhindx.count;
3972 int blocklength3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->u.blkhindx.blocklength;
3973 intptr_t *restrict array_of_displs3 = type->u.resized.child->u.contig.child->u.blkhindx.array_of_displs;
3974 uintptr_t extent3 ATTRIBUTE((unused)) = type->u.resized.child->u.contig.child->extent;
3975
3976 uintptr_t idx = 0;
3977 for (int i = 0; i < count; i++) {
3978 for (int j2 = 0; j2 < count2; j2++) {
3979 for (int j3 = 0; j3 < count3; j3++) {
3980 for (int k3 = 0; k3 < blocklength3; k3++) {
3981 *((long double *) (void *) (dbuf + i * extent + j2 * stride2 + array_of_displs3[j3] + k3 * sizeof(long double))) = *((const long double *) (const void *) (sbuf + idx));
3982 idx += sizeof(long double);
3983 }
3984 }
3985 }
3986 }
3987
3988 return rc;
3989 }
3990
3991