Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This file contains procedure implementations of [pm_arraySplit](@ref pm_arraySplit).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_arraySplit) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : use pm_arrayUnique, only: getUnique
40 : use pm_arraySort, only: setSorted
41 :
42 : implicit none
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : contains
47 :
48 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49 : !
50 : !#define setSplit_ENABLED 1
51 : !
52 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55 : !
56 : !#define Fixed_ENABLED 1
57 : !
58 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 : !
62 : !#define DefCom_ENABLED 1
63 : !#define DefIns_ENABLED 1
64 : !
65 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
67 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
68 : !
69 : !#define D0_D0_ENABLED 1
70 : !
71 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
72 : !
73 : !#define SK_ENABLED 1
74 : !
75 : !#if SK5_ENABLED
76 : ! module procedure setSplitFixDefComDefIns_D0_D0_SK5
77 : !#include "pm_arraySplit@routines.inc.F90"
78 : ! end procedure
79 : !#endif
80 : !
81 : !#if SK4_ENABLED
82 : ! module procedure setSplitFixDefComDefIns_D0_D0_SK4
83 : !#include "pm_arraySplit@routines.inc.F90"
84 : ! end procedure
85 : !#endif
86 : !
87 : !#if SK3_ENABLED
88 : ! module procedure setSplitFixDefComDefIns_D0_D0_SK3
89 : !#include "pm_arraySplit@routines.inc.F90"
90 : ! end procedure
91 : !#endif
92 : !
93 : !#if SK2_ENABLED
94 : ! module procedure setSplitFixDefComDefIns_D0_D0_SK2
95 : !#include "pm_arraySplit@routines.inc.F90"
96 : ! end procedure
97 : !#endif
98 : !
99 : !#if SK1_ENABLED
100 : ! module procedure setSplitFixDefComDefIns_D0_D0_SK1
101 : !#include "pm_arraySplit@routines.inc.F90"
102 : ! end procedure
103 : !#endif
104 : !
105 : !#undef SK_ENABLED
106 : !
107 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 : !
109 : !#undef D0_D0_ENABLED
110 : !
111 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
114 : !
115 : !#define D1_D0_ENABLED 1
116 : !
117 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
118 : !
119 : !#define SK_ENABLED 1
120 : !
121 : !#if SK5_ENABLED
122 : ! module procedure setSplitFixDefComDefIns_D1_D0_SK5
123 : !#include "pm_arraySplit@routines.inc.F90"
124 : ! end procedure
125 : !#endif
126 : !
127 : !#if SK4_ENABLED
128 : ! module procedure setSplitFixDefComDefIns_D1_D0_SK4
129 : !#include "pm_arraySplit@routines.inc.F90"
130 : ! end procedure
131 : !#endif
132 : !
133 : !#if SK3_ENABLED
134 : ! module procedure setSplitFixDefComDefIns_D1_D0_SK3
135 : !#include "pm_arraySplit@routines.inc.F90"
136 : ! end procedure
137 : !#endif
138 : !
139 : !#if SK2_ENABLED
140 : ! module procedure setSplitFixDefComDefIns_D1_D0_SK2
141 : !#include "pm_arraySplit@routines.inc.F90"
142 : ! end procedure
143 : !#endif
144 : !
145 : !#if SK1_ENABLED
146 : ! module procedure setSplitFixDefComDefIns_D1_D0_SK1
147 : !#include "pm_arraySplit@routines.inc.F90"
148 : ! end procedure
149 : !#endif
150 : !
151 : !#undef SK_ENABLED
152 : !
153 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 : !
155 : !#define IK_ENABLED 1
156 : !
157 : !#if IK5_ENABLED
158 : ! module procedure setSplitFixDefComDefIns_D1_D0_IK5
159 : !#include "pm_arraySplit@routines.inc.F90"
160 : ! end procedure
161 : !#endif
162 : !
163 : !#if IK4_ENABLED
164 : ! module procedure setSplitFixDefComDefIns_D1_D0_IK4
165 : !#include "pm_arraySplit@routines.inc.F90"
166 : ! end procedure
167 : !#endif
168 : !
169 : !#if IK3_ENABLED
170 : ! module procedure setSplitFixDefComDefIns_D1_D0_IK3
171 : !#include "pm_arraySplit@routines.inc.F90"
172 : ! end procedure
173 : !#endif
174 : !
175 : !#if IK2_ENABLED
176 : ! module procedure setSplitFixDefComDefIns_D1_D0_IK2
177 : !#include "pm_arraySplit@routines.inc.F90"
178 : ! end procedure
179 : !#endif
180 : !
181 : !#if IK1_ENABLED
182 : ! module procedure setSplitFixDefComDefIns_D1_D0_IK1
183 : !#include "pm_arraySplit@routines.inc.F90"
184 : ! end procedure
185 : !#endif
186 : !
187 : !#undef IK_ENABLED
188 : !
189 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
190 : !
191 : !#define LK_ENABLED 1
192 : !
193 : !#if LK5_ENABLED
194 : ! module procedure setSplitFixDefComDefIns_D1_D0_LK5
195 : !#include "pm_arraySplit@routines.inc.F90"
196 : ! end procedure
197 : !#endif
198 : !
199 : !#if LK4_ENABLED
200 : ! module procedure setSplitFixDefComDefIns_D1_D0_LK4
201 : !#include "pm_arraySplit@routines.inc.F90"
202 : ! end procedure
203 : !#endif
204 : !
205 : !#if LK3_ENABLED
206 : ! module procedure setSplitFixDefComDefIns_D1_D0_LK3
207 : !#include "pm_arraySplit@routines.inc.F90"
208 : ! end procedure
209 : !#endif
210 : !
211 : !#if LK2_ENABLED
212 : ! module procedure setSplitFixDefComDefIns_D1_D0_LK2
213 : !#include "pm_arraySplit@routines.inc.F90"
214 : ! end procedure
215 : !#endif
216 : !
217 : !#if LK1_ENABLED
218 : ! module procedure setSplitFixDefComDefIns_D1_D0_LK1
219 : !#include "pm_arraySplit@routines.inc.F90"
220 : ! end procedure
221 : !#endif
222 : !
223 : !#undef LK_ENABLED
224 : !
225 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226 : !
227 : !#define CK_ENABLED 1
228 : !
229 : !#if CK5_ENABLED
230 : ! module procedure setSplitFixDefComDefIns_D1_D0_CK5
231 : !#include "pm_arraySplit@routines.inc.F90"
232 : ! end procedure
233 : !#endif
234 : !
235 : !#if CK4_ENABLED
236 : ! module procedure setSplitFixDefComDefIns_D1_D0_CK4
237 : !#include "pm_arraySplit@routines.inc.F90"
238 : ! end procedure
239 : !#endif
240 : !
241 : !#if CK3_ENABLED
242 : ! module procedure setSplitFixDefComDefIns_D1_D0_CK3
243 : !#include "pm_arraySplit@routines.inc.F90"
244 : ! end procedure
245 : !#endif
246 : !
247 : !#if CK2_ENABLED
248 : ! module procedure setSplitFixDefComDefIns_D1_D0_CK2
249 : !#include "pm_arraySplit@routines.inc.F90"
250 : ! end procedure
251 : !#endif
252 : !
253 : !#if CK1_ENABLED
254 : ! module procedure setSplitFixDefComDefIns_D1_D0_CK1
255 : !#include "pm_arraySplit@routines.inc.F90"
256 : ! end procedure
257 : !#endif
258 : !
259 : !#undef CK_ENABLED
260 : !
261 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262 : !
263 : !#define RK_ENABLED 1
264 : !
265 : !#if RK5_ENABLED
266 : ! module procedure setSplitFixDefComDefIns_D1_D0_RK5
267 : !#include "pm_arraySplit@routines.inc.F90"
268 : ! end procedure
269 : !#endif
270 : !
271 : !#if RK4_ENABLED
272 : ! module procedure setSplitFixDefComDefIns_D1_D0_RK4
273 : !#include "pm_arraySplit@routines.inc.F90"
274 : ! end procedure
275 : !#endif
276 : !
277 : !#if RK3_ENABLED
278 : ! module procedure setSplitFixDefComDefIns_D1_D0_RK3
279 : !#include "pm_arraySplit@routines.inc.F90"
280 : ! end procedure
281 : !#endif
282 : !
283 : !#if RK2_ENABLED
284 : ! module procedure setSplitFixDefComDefIns_D1_D0_RK2
285 : !#include "pm_arraySplit@routines.inc.F90"
286 : ! end procedure
287 : !#endif
288 : !
289 : !#if RK1_ENABLED
290 : ! module procedure setSplitFixDefComDefIns_D1_D0_RK1
291 : !#include "pm_arraySplit@routines.inc.F90"
292 : ! end procedure
293 : !#endif
294 : !
295 : !#undef RK_ENABLED
296 : !
297 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
298 : !
299 : !#undef D1_D0_ENABLED
300 : !
301 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 : !
305 : !#define D1_D1_ENABLED 1
306 : !
307 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 : !
309 : !#define SK_ENABLED 1
310 : !
311 : !#if SK5_ENABLED
312 : ! module procedure setSplitFixDefComDefIns_D1_D1_SK5
313 : !#include "pm_arraySplit@routines.inc.F90"
314 : ! end procedure
315 : !#endif
316 : !
317 : !#if SK4_ENABLED
318 : ! module procedure setSplitFixDefComDefIns_D1_D1_SK4
319 : !#include "pm_arraySplit@routines.inc.F90"
320 : ! end procedure
321 : !#endif
322 : !
323 : !#if SK3_ENABLED
324 : ! module procedure setSplitFixDefComDefIns_D1_D1_SK3
325 : !#include "pm_arraySplit@routines.inc.F90"
326 : ! end procedure
327 : !#endif
328 : !
329 : !#if SK2_ENABLED
330 : ! module procedure setSplitFixDefComDefIns_D1_D1_SK2
331 : !#include "pm_arraySplit@routines.inc.F90"
332 : ! end procedure
333 : !#endif
334 : !
335 : !#if SK1_ENABLED
336 : ! module procedure setSplitFixDefComDefIns_D1_D1_SK1
337 : !#include "pm_arraySplit@routines.inc.F90"
338 : ! end procedure
339 : !#endif
340 : !
341 : !#undef SK_ENABLED
342 : !
343 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
344 : !
345 : !#define IK_ENABLED 1
346 : !
347 : !#if IK5_ENABLED
348 : ! module procedure setSplitFixDefComDefIns_D1_D1_IK5
349 : !#include "pm_arraySplit@routines.inc.F90"
350 : ! end procedure
351 : !#endif
352 : !
353 : !#if IK4_ENABLED
354 : ! module procedure setSplitFixDefComDefIns_D1_D1_IK4
355 : !#include "pm_arraySplit@routines.inc.F90"
356 : ! end procedure
357 : !#endif
358 : !
359 : !#if IK3_ENABLED
360 : ! module procedure setSplitFixDefComDefIns_D1_D1_IK3
361 : !#include "pm_arraySplit@routines.inc.F90"
362 : ! end procedure
363 : !#endif
364 : !
365 : !#if IK2_ENABLED
366 : ! module procedure setSplitFixDefComDefIns_D1_D1_IK2
367 : !#include "pm_arraySplit@routines.inc.F90"
368 : ! end procedure
369 : !#endif
370 : !
371 : !#if IK1_ENABLED
372 : ! module procedure setSplitFixDefComDefIns_D1_D1_IK1
373 : !#include "pm_arraySplit@routines.inc.F90"
374 : ! end procedure
375 : !#endif
376 : !
377 : !#undef IK_ENABLED
378 : !
379 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380 : !
381 : !#define LK_ENABLED 1
382 : !
383 : !#if LK5_ENABLED
384 : ! module procedure setSplitFixDefComDefIns_D1_D1_LK5
385 : !#include "pm_arraySplit@routines.inc.F90"
386 : ! end procedure
387 : !#endif
388 : !
389 : !#if LK4_ENABLED
390 : ! module procedure setSplitFixDefComDefIns_D1_D1_LK4
391 : !#include "pm_arraySplit@routines.inc.F90"
392 : ! end procedure
393 : !#endif
394 : !
395 : !#if LK3_ENABLED
396 : ! module procedure setSplitFixDefComDefIns_D1_D1_LK3
397 : !#include "pm_arraySplit@routines.inc.F90"
398 : ! end procedure
399 : !#endif
400 : !
401 : !#if LK2_ENABLED
402 : ! module procedure setSplitFixDefComDefIns_D1_D1_LK2
403 : !#include "pm_arraySplit@routines.inc.F90"
404 : ! end procedure
405 : !#endif
406 : !
407 : !#if LK1_ENABLED
408 : ! module procedure setSplitFixDefComDefIns_D1_D1_LK1
409 : !#include "pm_arraySplit@routines.inc.F90"
410 : ! end procedure
411 : !#endif
412 : !
413 : !#undef LK_ENABLED
414 : !
415 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
416 : !
417 : !#define CK_ENABLED 1
418 : !
419 : !#if CK5_ENABLED
420 : ! module procedure setSplitFixDefComDefIns_D1_D1_CK5
421 : !#include "pm_arraySplit@routines.inc.F90"
422 : ! end procedure
423 : !#endif
424 : !
425 : !#if CK4_ENABLED
426 : ! module procedure setSplitFixDefComDefIns_D1_D1_CK4
427 : !#include "pm_arraySplit@routines.inc.F90"
428 : ! end procedure
429 : !#endif
430 : !
431 : !#if CK3_ENABLED
432 : ! module procedure setSplitFixDefComDefIns_D1_D1_CK3
433 : !#include "pm_arraySplit@routines.inc.F90"
434 : ! end procedure
435 : !#endif
436 : !
437 : !#if CK2_ENABLED
438 : ! module procedure setSplitFixDefComDefIns_D1_D1_CK2
439 : !#include "pm_arraySplit@routines.inc.F90"
440 : ! end procedure
441 : !#endif
442 : !
443 : !#if CK1_ENABLED
444 : ! module procedure setSplitFixDefComDefIns_D1_D1_CK1
445 : !#include "pm_arraySplit@routines.inc.F90"
446 : ! end procedure
447 : !#endif
448 : !
449 : !#undef CK_ENABLED
450 : !
451 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
452 : !
453 : !#define RK_ENABLED 1
454 : !
455 : !#if RK5_ENABLED
456 : ! module procedure setSplitFixDefComDefIns_D1_D1_RK5
457 : !#include "pm_arraySplit@routines.inc.F90"
458 : ! end procedure
459 : !#endif
460 : !
461 : !#if RK4_ENABLED
462 : ! module procedure setSplitFixDefComDefIns_D1_D1_RK4
463 : !#include "pm_arraySplit@routines.inc.F90"
464 : ! end procedure
465 : !#endif
466 : !
467 : !#if RK3_ENABLED
468 : ! module procedure setSplitFixDefComDefIns_D1_D1_RK3
469 : !#include "pm_arraySplit@routines.inc.F90"
470 : ! end procedure
471 : !#endif
472 : !
473 : !#if RK2_ENABLED
474 : ! module procedure setSplitFixDefComDefIns_D1_D1_RK2
475 : !#include "pm_arraySplit@routines.inc.F90"
476 : ! end procedure
477 : !#endif
478 : !
479 : !#if RK1_ENABLED
480 : ! module procedure setSplitFixDefComDefIns_D1_D1_RK1
481 : !#include "pm_arraySplit@routines.inc.F90"
482 : ! end procedure
483 : !#endif
484 : !
485 : !#undef RK_ENABLED
486 : !
487 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
488 : !
489 : !#undef D1_D1_ENABLED
490 : !
491 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
492 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
493 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
494 : !
495 : !#undef DefCom_ENABLED
496 : !#undef DefIns_ENABLED
497 : !
498 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
500 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
501 : !
502 : !#define CusCom_ENABLED 1
503 : !#define DefIns_ENABLED 1
504 : !
505 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
508 : !
509 : !#define D0_D0_ENABLED 1
510 : !
511 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
512 : !
513 : !#define SK_ENABLED 1
514 : !
515 : !#if SK5_ENABLED
516 : ! module procedure setSplitFixCusComDefIns_D0_D0_SK5
517 : !#include "pm_arraySplit@routines.inc.F90"
518 : ! end procedure
519 : !#endif
520 : !
521 : !#if SK4_ENABLED
522 : ! module procedure setSplitFixCusComDefIns_D0_D0_SK4
523 : !#include "pm_arraySplit@routines.inc.F90"
524 : ! end procedure
525 : !#endif
526 : !
527 : !#if SK3_ENABLED
528 : ! module procedure setSplitFixCusComDefIns_D0_D0_SK3
529 : !#include "pm_arraySplit@routines.inc.F90"
530 : ! end procedure
531 : !#endif
532 : !
533 : !#if SK2_ENABLED
534 : ! module procedure setSplitFixCusComDefIns_D0_D0_SK2
535 : !#include "pm_arraySplit@routines.inc.F90"
536 : ! end procedure
537 : !#endif
538 : !
539 : !#if SK1_ENABLED
540 : ! module procedure setSplitFixCusComDefIns_D0_D0_SK1
541 : !#include "pm_arraySplit@routines.inc.F90"
542 : ! end procedure
543 : !#endif
544 : !
545 : !#undef SK_ENABLED
546 : !
547 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
548 : !
549 : !#undef D0_D0_ENABLED
550 : !
551 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
552 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554 : !
555 : !#define D1_D0_ENABLED 1
556 : !
557 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
558 : !
559 : !#define SK_ENABLED 1
560 : !
561 : !#if SK5_ENABLED
562 : ! module procedure setSplitFixCusComDefIns_D1_D0_SK5
563 : !#include "pm_arraySplit@routines.inc.F90"
564 : ! end procedure
565 : !#endif
566 : !
567 : !#if SK4_ENABLED
568 : ! module procedure setSplitFixCusComDefIns_D1_D0_SK4
569 : !#include "pm_arraySplit@routines.inc.F90"
570 : ! end procedure
571 : !#endif
572 : !
573 : !#if SK3_ENABLED
574 : ! module procedure setSplitFixCusComDefIns_D1_D0_SK3
575 : !#include "pm_arraySplit@routines.inc.F90"
576 : ! end procedure
577 : !#endif
578 : !
579 : !#if SK2_ENABLED
580 : ! module procedure setSplitFixCusComDefIns_D1_D0_SK2
581 : !#include "pm_arraySplit@routines.inc.F90"
582 : ! end procedure
583 : !#endif
584 : !
585 : !#if SK1_ENABLED
586 : ! module procedure setSplitFixCusComDefIns_D1_D0_SK1
587 : !#include "pm_arraySplit@routines.inc.F90"
588 : ! end procedure
589 : !#endif
590 : !
591 : !#undef SK_ENABLED
592 : !
593 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
594 : !
595 : !#define IK_ENABLED 1
596 : !
597 : !#if IK5_ENABLED
598 : ! module procedure setSplitFixCusComDefIns_D1_D0_IK5
599 : !#include "pm_arraySplit@routines.inc.F90"
600 : ! end procedure
601 : !#endif
602 : !
603 : !#if IK4_ENABLED
604 : ! module procedure setSplitFixCusComDefIns_D1_D0_IK4
605 : !#include "pm_arraySplit@routines.inc.F90"
606 : ! end procedure
607 : !#endif
608 : !
609 : !#if IK3_ENABLED
610 : ! module procedure setSplitFixCusComDefIns_D1_D0_IK3
611 : !#include "pm_arraySplit@routines.inc.F90"
612 : ! end procedure
613 : !#endif
614 : !
615 : !#if IK2_ENABLED
616 : ! module procedure setSplitFixCusComDefIns_D1_D0_IK2
617 : !#include "pm_arraySplit@routines.inc.F90"
618 : ! end procedure
619 : !#endif
620 : !
621 : !#if IK1_ENABLED
622 : ! module procedure setSplitFixCusComDefIns_D1_D0_IK1
623 : !#include "pm_arraySplit@routines.inc.F90"
624 : ! end procedure
625 : !#endif
626 : !
627 : !#undef IK_ENABLED
628 : !
629 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 : !
631 : !#define LK_ENABLED 1
632 : !
633 : !#if LK5_ENABLED
634 : ! module procedure setSplitFixCusComDefIns_D1_D0_LK5
635 : !#include "pm_arraySplit@routines.inc.F90"
636 : ! end procedure
637 : !#endif
638 : !
639 : !#if LK4_ENABLED
640 : ! module procedure setSplitFixCusComDefIns_D1_D0_LK4
641 : !#include "pm_arraySplit@routines.inc.F90"
642 : ! end procedure
643 : !#endif
644 : !
645 : !#if LK3_ENABLED
646 : ! module procedure setSplitFixCusComDefIns_D1_D0_LK3
647 : !#include "pm_arraySplit@routines.inc.F90"
648 : ! end procedure
649 : !#endif
650 : !
651 : !#if LK2_ENABLED
652 : ! module procedure setSplitFixCusComDefIns_D1_D0_LK2
653 : !#include "pm_arraySplit@routines.inc.F90"
654 : ! end procedure
655 : !#endif
656 : !
657 : !#if LK1_ENABLED
658 : ! module procedure setSplitFixCusComDefIns_D1_D0_LK1
659 : !#include "pm_arraySplit@routines.inc.F90"
660 : ! end procedure
661 : !#endif
662 : !
663 : !#undef LK_ENABLED
664 : !
665 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
666 : !
667 : !#define CK_ENABLED 1
668 : !
669 : !#if CK5_ENABLED
670 : ! module procedure setSplitFixCusComDefIns_D1_D0_CK5
671 : !#include "pm_arraySplit@routines.inc.F90"
672 : ! end procedure
673 : !#endif
674 : !
675 : !#if CK4_ENABLED
676 : ! module procedure setSplitFixCusComDefIns_D1_D0_CK4
677 : !#include "pm_arraySplit@routines.inc.F90"
678 : ! end procedure
679 : !#endif
680 : !
681 : !#if CK3_ENABLED
682 : ! module procedure setSplitFixCusComDefIns_D1_D0_CK3
683 : !#include "pm_arraySplit@routines.inc.F90"
684 : ! end procedure
685 : !#endif
686 : !
687 : !#if CK2_ENABLED
688 : ! module procedure setSplitFixCusComDefIns_D1_D0_CK2
689 : !#include "pm_arraySplit@routines.inc.F90"
690 : ! end procedure
691 : !#endif
692 : !
693 : !#if CK1_ENABLED
694 : ! module procedure setSplitFixCusComDefIns_D1_D0_CK1
695 : !#include "pm_arraySplit@routines.inc.F90"
696 : ! end procedure
697 : !#endif
698 : !
699 : !#undef CK_ENABLED
700 : !
701 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
702 : !
703 : !#define RK_ENABLED 1
704 : !
705 : !#if RK5_ENABLED
706 : ! module procedure setSplitFixCusComDefIns_D1_D0_RK5
707 : !#include "pm_arraySplit@routines.inc.F90"
708 : ! end procedure
709 : !#endif
710 : !
711 : !#if RK4_ENABLED
712 : ! module procedure setSplitFixCusComDefIns_D1_D0_RK4
713 : !#include "pm_arraySplit@routines.inc.F90"
714 : ! end procedure
715 : !#endif
716 : !
717 : !#if RK3_ENABLED
718 : ! module procedure setSplitFixCusComDefIns_D1_D0_RK3
719 : !#include "pm_arraySplit@routines.inc.F90"
720 : ! end procedure
721 : !#endif
722 : !
723 : !#if RK2_ENABLED
724 : ! module procedure setSplitFixCusComDefIns_D1_D0_RK2
725 : !#include "pm_arraySplit@routines.inc.F90"
726 : ! end procedure
727 : !#endif
728 : !
729 : !#if RK1_ENABLED
730 : ! module procedure setSplitFixCusComDefIns_D1_D0_RK1
731 : !#include "pm_arraySplit@routines.inc.F90"
732 : ! end procedure
733 : !#endif
734 : !
735 : !#undef RK_ENABLED
736 : !
737 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738 : !
739 : !#undef D1_D0_ENABLED
740 : !
741 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
742 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
744 : !
745 : !#define D1_D1_ENABLED 1
746 : !
747 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
748 : !
749 : !#define SK_ENABLED 1
750 : !
751 : !#if SK5_ENABLED
752 : ! module procedure setSplitFixCusComDefIns_D1_D1_SK5
753 : !#include "pm_arraySplit@routines.inc.F90"
754 : ! end procedure
755 : !#endif
756 : !
757 : !#if SK4_ENABLED
758 : ! module procedure setSplitFixCusComDefIns_D1_D1_SK4
759 : !#include "pm_arraySplit@routines.inc.F90"
760 : ! end procedure
761 : !#endif
762 : !
763 : !#if SK3_ENABLED
764 : ! module procedure setSplitFixCusComDefIns_D1_D1_SK3
765 : !#include "pm_arraySplit@routines.inc.F90"
766 : ! end procedure
767 : !#endif
768 : !
769 : !#if SK2_ENABLED
770 : ! module procedure setSplitFixCusComDefIns_D1_D1_SK2
771 : !#include "pm_arraySplit@routines.inc.F90"
772 : ! end procedure
773 : !#endif
774 : !
775 : !#if SK1_ENABLED
776 : ! module procedure setSplitFixCusComDefIns_D1_D1_SK1
777 : !#include "pm_arraySplit@routines.inc.F90"
778 : ! end procedure
779 : !#endif
780 : !
781 : !#undef SK_ENABLED
782 : !
783 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
784 : !
785 : !#define IK_ENABLED 1
786 : !
787 : !#if IK5_ENABLED
788 : ! module procedure setSplitFixCusComDefIns_D1_D1_IK5
789 : !#include "pm_arraySplit@routines.inc.F90"
790 : ! end procedure
791 : !#endif
792 : !
793 : !#if IK4_ENABLED
794 : ! module procedure setSplitFixCusComDefIns_D1_D1_IK4
795 : !#include "pm_arraySplit@routines.inc.F90"
796 : ! end procedure
797 : !#endif
798 : !
799 : !#if IK3_ENABLED
800 : ! module procedure setSplitFixCusComDefIns_D1_D1_IK3
801 : !#include "pm_arraySplit@routines.inc.F90"
802 : ! end procedure
803 : !#endif
804 : !
805 : !#if IK2_ENABLED
806 : ! module procedure setSplitFixCusComDefIns_D1_D1_IK2
807 : !#include "pm_arraySplit@routines.inc.F90"
808 : ! end procedure
809 : !#endif
810 : !
811 : !#if IK1_ENABLED
812 : ! module procedure setSplitFixCusComDefIns_D1_D1_IK1
813 : !#include "pm_arraySplit@routines.inc.F90"
814 : ! end procedure
815 : !#endif
816 : !
817 : !#undef IK_ENABLED
818 : !
819 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
820 : !
821 : !#define LK_ENABLED 1
822 : !
823 : !#if LK5_ENABLED
824 : ! module procedure setSplitFixCusComDefIns_D1_D1_LK5
825 : !#include "pm_arraySplit@routines.inc.F90"
826 : ! end procedure
827 : !#endif
828 : !
829 : !#if LK4_ENABLED
830 : ! module procedure setSplitFixCusComDefIns_D1_D1_LK4
831 : !#include "pm_arraySplit@routines.inc.F90"
832 : ! end procedure
833 : !#endif
834 : !
835 : !#if LK3_ENABLED
836 : ! module procedure setSplitFixCusComDefIns_D1_D1_LK3
837 : !#include "pm_arraySplit@routines.inc.F90"
838 : ! end procedure
839 : !#endif
840 : !
841 : !#if LK2_ENABLED
842 : ! module procedure setSplitFixCusComDefIns_D1_D1_LK2
843 : !#include "pm_arraySplit@routines.inc.F90"
844 : ! end procedure
845 : !#endif
846 : !
847 : !#if LK1_ENABLED
848 : ! module procedure setSplitFixCusComDefIns_D1_D1_LK1
849 : !#include "pm_arraySplit@routines.inc.F90"
850 : ! end procedure
851 : !#endif
852 : !
853 : !#undef LK_ENABLED
854 : !
855 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
856 : !
857 : !#define CK_ENABLED 1
858 : !
859 : !#if CK5_ENABLED
860 : ! module procedure setSplitFixCusComDefIns_D1_D1_CK5
861 : !#include "pm_arraySplit@routines.inc.F90"
862 : ! end procedure
863 : !#endif
864 : !
865 : !#if CK4_ENABLED
866 : ! module procedure setSplitFixCusComDefIns_D1_D1_CK4
867 : !#include "pm_arraySplit@routines.inc.F90"
868 : ! end procedure
869 : !#endif
870 : !
871 : !#if CK3_ENABLED
872 : ! module procedure setSplitFixCusComDefIns_D1_D1_CK3
873 : !#include "pm_arraySplit@routines.inc.F90"
874 : ! end procedure
875 : !#endif
876 : !
877 : !#if CK2_ENABLED
878 : ! module procedure setSplitFixCusComDefIns_D1_D1_CK2
879 : !#include "pm_arraySplit@routines.inc.F90"
880 : ! end procedure
881 : !#endif
882 : !
883 : !#if CK1_ENABLED
884 : ! module procedure setSplitFixCusComDefIns_D1_D1_CK1
885 : !#include "pm_arraySplit@routines.inc.F90"
886 : ! end procedure
887 : !#endif
888 : !
889 : !#undef CK_ENABLED
890 : !
891 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
892 : !
893 : !#define RK_ENABLED 1
894 : !
895 : !#if RK5_ENABLED
896 : ! module procedure setSplitFixCusComDefIns_D1_D1_RK5
897 : !#include "pm_arraySplit@routines.inc.F90"
898 : ! end procedure
899 : !#endif
900 : !
901 : !#if RK4_ENABLED
902 : ! module procedure setSplitFixCusComDefIns_D1_D1_RK4
903 : !#include "pm_arraySplit@routines.inc.F90"
904 : ! end procedure
905 : !#endif
906 : !
907 : !#if RK3_ENABLED
908 : ! module procedure setSplitFixCusComDefIns_D1_D1_RK3
909 : !#include "pm_arraySplit@routines.inc.F90"
910 : ! end procedure
911 : !#endif
912 : !
913 : !#if RK2_ENABLED
914 : ! module procedure setSplitFixCusComDefIns_D1_D1_RK2
915 : !#include "pm_arraySplit@routines.inc.F90"
916 : ! end procedure
917 : !#endif
918 : !
919 : !#if RK1_ENABLED
920 : ! module procedure setSplitFixCusComDefIns_D1_D1_RK1
921 : !#include "pm_arraySplit@routines.inc.F90"
922 : ! end procedure
923 : !#endif
924 : !
925 : !#undef RK_ENABLED
926 : !
927 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
928 : !
929 : !#undef D1_D1_ENABLED
930 : !
931 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
932 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
933 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
934 : !
935 : !#undef CusCom_ENABLED
936 : !#undef DefIns_ENABLED
937 : !
938 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
939 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
940 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
941 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
942 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
943 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
944 : !
945 : !#define DefCom_ENABLED 1
946 : !#define CusIns_ENABLED 1
947 : !
948 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
949 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
950 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
951 : !
952 : !#define D0_D0_ENABLED 1
953 : !
954 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
955 : !
956 : !#define SK_ENABLED 1
957 : !
958 : !#if SK5_ENABLED
959 : ! module procedure setSplitFixDefComCusIns_D0_D0_SK5
960 : !#include "pm_arraySplit@routines.inc.F90"
961 : ! end procedure
962 : !#endif
963 : !
964 : !#if SK4_ENABLED
965 : ! module procedure setSplitFixDefComCusIns_D0_D0_SK4
966 : !#include "pm_arraySplit@routines.inc.F90"
967 : ! end procedure
968 : !#endif
969 : !
970 : !#if SK3_ENABLED
971 : ! module procedure setSplitFixDefComCusIns_D0_D0_SK3
972 : !#include "pm_arraySplit@routines.inc.F90"
973 : ! end procedure
974 : !#endif
975 : !
976 : !#if SK2_ENABLED
977 : ! module procedure setSplitFixDefComCusIns_D0_D0_SK2
978 : !#include "pm_arraySplit@routines.inc.F90"
979 : ! end procedure
980 : !#endif
981 : !
982 : !#if SK1_ENABLED
983 : ! module procedure setSplitFixDefComCusIns_D0_D0_SK1
984 : !#include "pm_arraySplit@routines.inc.F90"
985 : ! end procedure
986 : !#endif
987 : !
988 : !#undef SK_ENABLED
989 : !
990 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
991 : !
992 : !#undef D0_D0_ENABLED
993 : !
994 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
995 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
996 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997 : !
998 : !#define D1_D0_ENABLED 1
999 : !
1000 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1001 : !
1002 : !#define SK_ENABLED 1
1003 : !
1004 : !#if SK5_ENABLED
1005 : ! module procedure setSplitFixDefComCusIns_D1_D0_SK5
1006 : !#include "pm_arraySplit@routines.inc.F90"
1007 : ! end procedure
1008 : !#endif
1009 : !
1010 : !#if SK4_ENABLED
1011 : ! module procedure setSplitFixDefComCusIns_D1_D0_SK4
1012 : !#include "pm_arraySplit@routines.inc.F90"
1013 : ! end procedure
1014 : !#endif
1015 : !
1016 : !#if SK3_ENABLED
1017 : ! module procedure setSplitFixDefComCusIns_D1_D0_SK3
1018 : !#include "pm_arraySplit@routines.inc.F90"
1019 : ! end procedure
1020 : !#endif
1021 : !
1022 : !#if SK2_ENABLED
1023 : ! module procedure setSplitFixDefComCusIns_D1_D0_SK2
1024 : !#include "pm_arraySplit@routines.inc.F90"
1025 : ! end procedure
1026 : !#endif
1027 : !
1028 : !#if SK1_ENABLED
1029 : ! module procedure setSplitFixDefComCusIns_D1_D0_SK1
1030 : !#include "pm_arraySplit@routines.inc.F90"
1031 : ! end procedure
1032 : !#endif
1033 : !
1034 : !#undef SK_ENABLED
1035 : !
1036 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037 : !
1038 : !#define IK_ENABLED 1
1039 : !
1040 : !#if IK5_ENABLED
1041 : ! module procedure setSplitFixDefComCusIns_D1_D0_IK5
1042 : !#include "pm_arraySplit@routines.inc.F90"
1043 : ! end procedure
1044 : !#endif
1045 : !
1046 : !#if IK4_ENABLED
1047 : ! module procedure setSplitFixDefComCusIns_D1_D0_IK4
1048 : !#include "pm_arraySplit@routines.inc.F90"
1049 : ! end procedure
1050 : !#endif
1051 : !
1052 : !#if IK3_ENABLED
1053 : ! module procedure setSplitFixDefComCusIns_D1_D0_IK3
1054 : !#include "pm_arraySplit@routines.inc.F90"
1055 : ! end procedure
1056 : !#endif
1057 : !
1058 : !#if IK2_ENABLED
1059 : ! module procedure setSplitFixDefComCusIns_D1_D0_IK2
1060 : !#include "pm_arraySplit@routines.inc.F90"
1061 : ! end procedure
1062 : !#endif
1063 : !
1064 : !#if IK1_ENABLED
1065 : ! module procedure setSplitFixDefComCusIns_D1_D0_IK1
1066 : !#include "pm_arraySplit@routines.inc.F90"
1067 : ! end procedure
1068 : !#endif
1069 : !
1070 : !#undef IK_ENABLED
1071 : !
1072 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1073 : !
1074 : !#define LK_ENABLED 1
1075 : !
1076 : !#if LK5_ENABLED
1077 : ! module procedure setSplitFixDefComCusIns_D1_D0_LK5
1078 : !#include "pm_arraySplit@routines.inc.F90"
1079 : ! end procedure
1080 : !#endif
1081 : !
1082 : !#if LK4_ENABLED
1083 : ! module procedure setSplitFixDefComCusIns_D1_D0_LK4
1084 : !#include "pm_arraySplit@routines.inc.F90"
1085 : ! end procedure
1086 : !#endif
1087 : !
1088 : !#if LK3_ENABLED
1089 : ! module procedure setSplitFixDefComCusIns_D1_D0_LK3
1090 : !#include "pm_arraySplit@routines.inc.F90"
1091 : ! end procedure
1092 : !#endif
1093 : !
1094 : !#if LK2_ENABLED
1095 : ! module procedure setSplitFixDefComCusIns_D1_D0_LK2
1096 : !#include "pm_arraySplit@routines.inc.F90"
1097 : ! end procedure
1098 : !#endif
1099 : !
1100 : !#if LK1_ENABLED
1101 : ! module procedure setSplitFixDefComCusIns_D1_D0_LK1
1102 : !#include "pm_arraySplit@routines.inc.F90"
1103 : ! end procedure
1104 : !#endif
1105 : !
1106 : !#undef LK_ENABLED
1107 : !
1108 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1109 : !
1110 : !#define CK_ENABLED 1
1111 : !
1112 : !#if CK5_ENABLED
1113 : ! module procedure setSplitFixDefComCusIns_D1_D0_CK5
1114 : !#include "pm_arraySplit@routines.inc.F90"
1115 : ! end procedure
1116 : !#endif
1117 : !
1118 : !#if CK4_ENABLED
1119 : ! module procedure setSplitFixDefComCusIns_D1_D0_CK4
1120 : !#include "pm_arraySplit@routines.inc.F90"
1121 : ! end procedure
1122 : !#endif
1123 : !
1124 : !#if CK3_ENABLED
1125 : ! module procedure setSplitFixDefComCusIns_D1_D0_CK3
1126 : !#include "pm_arraySplit@routines.inc.F90"
1127 : ! end procedure
1128 : !#endif
1129 : !
1130 : !#if CK2_ENABLED
1131 : ! module procedure setSplitFixDefComCusIns_D1_D0_CK2
1132 : !#include "pm_arraySplit@routines.inc.F90"
1133 : ! end procedure
1134 : !#endif
1135 : !
1136 : !#if CK1_ENABLED
1137 : ! module procedure setSplitFixDefComCusIns_D1_D0_CK1
1138 : !#include "pm_arraySplit@routines.inc.F90"
1139 : ! end procedure
1140 : !#endif
1141 : !
1142 : !#undef CK_ENABLED
1143 : !
1144 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1145 : !
1146 : !#define RK_ENABLED 1
1147 : !
1148 : !#if RK5_ENABLED
1149 : ! module procedure setSplitFixDefComCusIns_D1_D0_RK5
1150 : !#include "pm_arraySplit@routines.inc.F90"
1151 : ! end procedure
1152 : !#endif
1153 : !
1154 : !#if RK4_ENABLED
1155 : ! module procedure setSplitFixDefComCusIns_D1_D0_RK4
1156 : !#include "pm_arraySplit@routines.inc.F90"
1157 : ! end procedure
1158 : !#endif
1159 : !
1160 : !#if RK3_ENABLED
1161 : ! module procedure setSplitFixDefComCusIns_D1_D0_RK3
1162 : !#include "pm_arraySplit@routines.inc.F90"
1163 : ! end procedure
1164 : !#endif
1165 : !
1166 : !#if RK2_ENABLED
1167 : ! module procedure setSplitFixDefComCusIns_D1_D0_RK2
1168 : !#include "pm_arraySplit@routines.inc.F90"
1169 : ! end procedure
1170 : !#endif
1171 : !
1172 : !#if RK1_ENABLED
1173 : ! module procedure setSplitFixDefComCusIns_D1_D0_RK1
1174 : !#include "pm_arraySplit@routines.inc.F90"
1175 : ! end procedure
1176 : !#endif
1177 : !
1178 : !#undef RK_ENABLED
1179 : !
1180 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1181 : !
1182 : !#undef D1_D0_ENABLED
1183 : !
1184 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1185 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1186 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1187 : !
1188 : !#define D1_D1_ENABLED 1
1189 : !
1190 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1191 : !
1192 : !#define SK_ENABLED 1
1193 : !
1194 : !#if SK5_ENABLED
1195 : ! module procedure setSplitFixDefComCusIns_D1_D1_SK5
1196 : !#include "pm_arraySplit@routines.inc.F90"
1197 : ! end procedure
1198 : !#endif
1199 : !
1200 : !#if SK4_ENABLED
1201 : ! module procedure setSplitFixDefComCusIns_D1_D1_SK4
1202 : !#include "pm_arraySplit@routines.inc.F90"
1203 : ! end procedure
1204 : !#endif
1205 : !
1206 : !#if SK3_ENABLED
1207 : ! module procedure setSplitFixDefComCusIns_D1_D1_SK3
1208 : !#include "pm_arraySplit@routines.inc.F90"
1209 : ! end procedure
1210 : !#endif
1211 : !
1212 : !#if SK2_ENABLED
1213 : ! module procedure setSplitFixDefComCusIns_D1_D1_SK2
1214 : !#include "pm_arraySplit@routines.inc.F90"
1215 : ! end procedure
1216 : !#endif
1217 : !
1218 : !#if SK1_ENABLED
1219 : ! module procedure setSplitFixDefComCusIns_D1_D1_SK1
1220 : !#include "pm_arraySplit@routines.inc.F90"
1221 : ! end procedure
1222 : !#endif
1223 : !
1224 : !#undef SK_ENABLED
1225 : !
1226 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1227 : !
1228 : !#define IK_ENABLED 1
1229 : !
1230 : !#if IK5_ENABLED
1231 : ! module procedure setSplitFixDefComCusIns_D1_D1_IK5
1232 : !#include "pm_arraySplit@routines.inc.F90"
1233 : ! end procedure
1234 : !#endif
1235 : !
1236 : !#if IK4_ENABLED
1237 : ! module procedure setSplitFixDefComCusIns_D1_D1_IK4
1238 : !#include "pm_arraySplit@routines.inc.F90"
1239 : ! end procedure
1240 : !#endif
1241 : !
1242 : !#if IK3_ENABLED
1243 : ! module procedure setSplitFixDefComCusIns_D1_D1_IK3
1244 : !#include "pm_arraySplit@routines.inc.F90"
1245 : ! end procedure
1246 : !#endif
1247 : !
1248 : !#if IK2_ENABLED
1249 : ! module procedure setSplitFixDefComCusIns_D1_D1_IK2
1250 : !#include "pm_arraySplit@routines.inc.F90"
1251 : ! end procedure
1252 : !#endif
1253 : !
1254 : !#if IK1_ENABLED
1255 : ! module procedure setSplitFixDefComCusIns_D1_D1_IK1
1256 : !#include "pm_arraySplit@routines.inc.F90"
1257 : ! end procedure
1258 : !#endif
1259 : !
1260 : !#undef IK_ENABLED
1261 : !
1262 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1263 : !
1264 : !#define LK_ENABLED 1
1265 : !
1266 : !#if LK5_ENABLED
1267 : ! module procedure setSplitFixDefComCusIns_D1_D1_LK5
1268 : !#include "pm_arraySplit@routines.inc.F90"
1269 : ! end procedure
1270 : !#endif
1271 : !
1272 : !#if LK4_ENABLED
1273 : ! module procedure setSplitFixDefComCusIns_D1_D1_LK4
1274 : !#include "pm_arraySplit@routines.inc.F90"
1275 : ! end procedure
1276 : !#endif
1277 : !
1278 : !#if LK3_ENABLED
1279 : ! module procedure setSplitFixDefComCusIns_D1_D1_LK3
1280 : !#include "pm_arraySplit@routines.inc.F90"
1281 : ! end procedure
1282 : !#endif
1283 : !
1284 : !#if LK2_ENABLED
1285 : ! module procedure setSplitFixDefComCusIns_D1_D1_LK2
1286 : !#include "pm_arraySplit@routines.inc.F90"
1287 : ! end procedure
1288 : !#endif
1289 : !
1290 : !#if LK1_ENABLED
1291 : ! module procedure setSplitFixDefComCusIns_D1_D1_LK1
1292 : !#include "pm_arraySplit@routines.inc.F90"
1293 : ! end procedure
1294 : !#endif
1295 : !
1296 : !#undef LK_ENABLED
1297 : !
1298 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1299 : !
1300 : !#define CK_ENABLED 1
1301 : !
1302 : !#if CK5_ENABLED
1303 : ! module procedure setSplitFixDefComCusIns_D1_D1_CK5
1304 : !#include "pm_arraySplit@routines.inc.F90"
1305 : ! end procedure
1306 : !#endif
1307 : !
1308 : !#if CK4_ENABLED
1309 : ! module procedure setSplitFixDefComCusIns_D1_D1_CK4
1310 : !#include "pm_arraySplit@routines.inc.F90"
1311 : ! end procedure
1312 : !#endif
1313 : !
1314 : !#if CK3_ENABLED
1315 : ! module procedure setSplitFixDefComCusIns_D1_D1_CK3
1316 : !#include "pm_arraySplit@routines.inc.F90"
1317 : ! end procedure
1318 : !#endif
1319 : !
1320 : !#if CK2_ENABLED
1321 : ! module procedure setSplitFixDefComCusIns_D1_D1_CK2
1322 : !#include "pm_arraySplit@routines.inc.F90"
1323 : ! end procedure
1324 : !#endif
1325 : !
1326 : !#if CK1_ENABLED
1327 : ! module procedure setSplitFixDefComCusIns_D1_D1_CK1
1328 : !#include "pm_arraySplit@routines.inc.F90"
1329 : ! end procedure
1330 : !#endif
1331 : !
1332 : !#undef CK_ENABLED
1333 : !
1334 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1335 : !
1336 : !#define RK_ENABLED 1
1337 : !
1338 : !#if RK5_ENABLED
1339 : ! module procedure setSplitFixDefComCusIns_D1_D1_RK5
1340 : !#include "pm_arraySplit@routines.inc.F90"
1341 : ! end procedure
1342 : !#endif
1343 : !
1344 : !#if RK4_ENABLED
1345 : ! module procedure setSplitFixDefComCusIns_D1_D1_RK4
1346 : !#include "pm_arraySplit@routines.inc.F90"
1347 : ! end procedure
1348 : !#endif
1349 : !
1350 : !#if RK3_ENABLED
1351 : ! module procedure setSplitFixDefComCusIns_D1_D1_RK3
1352 : !#include "pm_arraySplit@routines.inc.F90"
1353 : ! end procedure
1354 : !#endif
1355 : !
1356 : !#if RK2_ENABLED
1357 : ! module procedure setSplitFixDefComCusIns_D1_D1_RK2
1358 : !#include "pm_arraySplit@routines.inc.F90"
1359 : ! end procedure
1360 : !#endif
1361 : !
1362 : !#if RK1_ENABLED
1363 : ! module procedure setSplitFixDefComCusIns_D1_D1_RK1
1364 : !#include "pm_arraySplit@routines.inc.F90"
1365 : ! end procedure
1366 : !#endif
1367 : !
1368 : !#undef RK_ENABLED
1369 : !
1370 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1371 : !
1372 : !#undef D1_D1_ENABLED
1373 : !
1374 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1375 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1376 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1377 : !
1378 : !#undef CusIns_ENABLED
1379 : !#undef DefCom_ENABLED
1380 : !
1381 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1382 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1383 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1384 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1385 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1386 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1387 : !
1388 : !#define CusCom_ENABLED 1
1389 : !#define CusIns_ENABLED 1
1390 : !
1391 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1392 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1393 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1394 : !
1395 : !#define D0_D0_ENABLED 1
1396 : !
1397 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1398 : !
1399 : !#define SK_ENABLED 1
1400 : !
1401 : !#if SK5_ENABLED
1402 : ! module procedure setSplitFixCusComCusIns_D0_D0_SK5
1403 : !#include "pm_arraySplit@routines.inc.F90"
1404 : ! end procedure
1405 : !#endif
1406 : !
1407 : !#if SK4_ENABLED
1408 : ! module procedure setSplitFixCusComCusIns_D0_D0_SK4
1409 : !#include "pm_arraySplit@routines.inc.F90"
1410 : ! end procedure
1411 : !#endif
1412 : !
1413 : !#if SK3_ENABLED
1414 : ! module procedure setSplitFixCusComCusIns_D0_D0_SK3
1415 : !#include "pm_arraySplit@routines.inc.F90"
1416 : ! end procedure
1417 : !#endif
1418 : !
1419 : !#if SK2_ENABLED
1420 : ! module procedure setSplitFixCusComCusIns_D0_D0_SK2
1421 : !#include "pm_arraySplit@routines.inc.F90"
1422 : ! end procedure
1423 : !#endif
1424 : !
1425 : !#if SK1_ENABLED
1426 : ! module procedure setSplitFixCusComCusIns_D0_D0_SK1
1427 : !#include "pm_arraySplit@routines.inc.F90"
1428 : ! end procedure
1429 : !#endif
1430 : !
1431 : !#undef SK_ENABLED
1432 : !
1433 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1434 : !
1435 : !#undef D0_D0_ENABLED
1436 : !
1437 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1438 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1439 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1440 : !
1441 : !#define D1_D0_ENABLED 1
1442 : !
1443 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1444 : !
1445 : !#define SK_ENABLED 1
1446 : !
1447 : !#if SK5_ENABLED
1448 : ! module procedure setSplitFixCusComCusIns_D1_D0_SK5
1449 : !#include "pm_arraySplit@routines.inc.F90"
1450 : ! end procedure
1451 : !#endif
1452 : !
1453 : !#if SK4_ENABLED
1454 : ! module procedure setSplitFixCusComCusIns_D1_D0_SK4
1455 : !#include "pm_arraySplit@routines.inc.F90"
1456 : ! end procedure
1457 : !#endif
1458 : !
1459 : !#if SK3_ENABLED
1460 : ! module procedure setSplitFixCusComCusIns_D1_D0_SK3
1461 : !#include "pm_arraySplit@routines.inc.F90"
1462 : ! end procedure
1463 : !#endif
1464 : !
1465 : !#if SK2_ENABLED
1466 : ! module procedure setSplitFixCusComCusIns_D1_D0_SK2
1467 : !#include "pm_arraySplit@routines.inc.F90"
1468 : ! end procedure
1469 : !#endif
1470 : !
1471 : !#if SK1_ENABLED
1472 : ! module procedure setSplitFixCusComCusIns_D1_D0_SK1
1473 : !#include "pm_arraySplit@routines.inc.F90"
1474 : ! end procedure
1475 : !#endif
1476 : !
1477 : !#undef SK_ENABLED
1478 : !
1479 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1480 : !
1481 : !#define IK_ENABLED 1
1482 : !
1483 : !#if IK5_ENABLED
1484 : ! module procedure setSplitFixCusComCusIns_D1_D0_IK5
1485 : !#include "pm_arraySplit@routines.inc.F90"
1486 : ! end procedure
1487 : !#endif
1488 : !
1489 : !#if IK4_ENABLED
1490 : ! module procedure setSplitFixCusComCusIns_D1_D0_IK4
1491 : !#include "pm_arraySplit@routines.inc.F90"
1492 : ! end procedure
1493 : !#endif
1494 : !
1495 : !#if IK3_ENABLED
1496 : ! module procedure setSplitFixCusComCusIns_D1_D0_IK3
1497 : !#include "pm_arraySplit@routines.inc.F90"
1498 : ! end procedure
1499 : !#endif
1500 : !
1501 : !#if IK2_ENABLED
1502 : ! module procedure setSplitFixCusComCusIns_D1_D0_IK2
1503 : !#include "pm_arraySplit@routines.inc.F90"
1504 : ! end procedure
1505 : !#endif
1506 : !
1507 : !#if IK1_ENABLED
1508 : ! module procedure setSplitFixCusComCusIns_D1_D0_IK1
1509 : !#include "pm_arraySplit@routines.inc.F90"
1510 : ! end procedure
1511 : !#endif
1512 : !
1513 : !#undef IK_ENABLED
1514 : !
1515 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1516 : !
1517 : !#define LK_ENABLED 1
1518 : !
1519 : !#if LK5_ENABLED
1520 : ! module procedure setSplitFixCusComCusIns_D1_D0_LK5
1521 : !#include "pm_arraySplit@routines.inc.F90"
1522 : ! end procedure
1523 : !#endif
1524 : !
1525 : !#if LK4_ENABLED
1526 : ! module procedure setSplitFixCusComCusIns_D1_D0_LK4
1527 : !#include "pm_arraySplit@routines.inc.F90"
1528 : ! end procedure
1529 : !#endif
1530 : !
1531 : !#if LK3_ENABLED
1532 : ! module procedure setSplitFixCusComCusIns_D1_D0_LK3
1533 : !#include "pm_arraySplit@routines.inc.F90"
1534 : ! end procedure
1535 : !#endif
1536 : !
1537 : !#if LK2_ENABLED
1538 : ! module procedure setSplitFixCusComCusIns_D1_D0_LK2
1539 : !#include "pm_arraySplit@routines.inc.F90"
1540 : ! end procedure
1541 : !#endif
1542 : !
1543 : !#if LK1_ENABLED
1544 : ! module procedure setSplitFixCusComCusIns_D1_D0_LK1
1545 : !#include "pm_arraySplit@routines.inc.F90"
1546 : ! end procedure
1547 : !#endif
1548 : !
1549 : !#undef LK_ENABLED
1550 : !
1551 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1552 : !
1553 : !#define CK_ENABLED 1
1554 : !
1555 : !#if CK5_ENABLED
1556 : ! module procedure setSplitFixCusComCusIns_D1_D0_CK5
1557 : !#include "pm_arraySplit@routines.inc.F90"
1558 : ! end procedure
1559 : !#endif
1560 : !
1561 : !#if CK4_ENABLED
1562 : ! module procedure setSplitFixCusComCusIns_D1_D0_CK4
1563 : !#include "pm_arraySplit@routines.inc.F90"
1564 : ! end procedure
1565 : !#endif
1566 : !
1567 : !#if CK3_ENABLED
1568 : ! module procedure setSplitFixCusComCusIns_D1_D0_CK3
1569 : !#include "pm_arraySplit@routines.inc.F90"
1570 : ! end procedure
1571 : !#endif
1572 : !
1573 : !#if CK2_ENABLED
1574 : ! module procedure setSplitFixCusComCusIns_D1_D0_CK2
1575 : !#include "pm_arraySplit@routines.inc.F90"
1576 : ! end procedure
1577 : !#endif
1578 : !
1579 : !#if CK1_ENABLED
1580 : ! module procedure setSplitFixCusComCusIns_D1_D0_CK1
1581 : !#include "pm_arraySplit@routines.inc.F90"
1582 : ! end procedure
1583 : !#endif
1584 : !
1585 : !#undef CK_ENABLED
1586 : !
1587 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1588 : !
1589 : !#define RK_ENABLED 1
1590 : !
1591 : !#if RK5_ENABLED
1592 : ! module procedure setSplitFixCusComCusIns_D1_D0_RK5
1593 : !#include "pm_arraySplit@routines.inc.F90"
1594 : ! end procedure
1595 : !#endif
1596 : !
1597 : !#if RK4_ENABLED
1598 : ! module procedure setSplitFixCusComCusIns_D1_D0_RK4
1599 : !#include "pm_arraySplit@routines.inc.F90"
1600 : ! end procedure
1601 : !#endif
1602 : !
1603 : !#if RK3_ENABLED
1604 : ! module procedure setSplitFixCusComCusIns_D1_D0_RK3
1605 : !#include "pm_arraySplit@routines.inc.F90"
1606 : ! end procedure
1607 : !#endif
1608 : !
1609 : !#if RK2_ENABLED
1610 : ! module procedure setSplitFixCusComCusIns_D1_D0_RK2
1611 : !#include "pm_arraySplit@routines.inc.F90"
1612 : ! end procedure
1613 : !#endif
1614 : !
1615 : !#if RK1_ENABLED
1616 : ! module procedure setSplitFixCusComCusIns_D1_D0_RK1
1617 : !#include "pm_arraySplit@routines.inc.F90"
1618 : ! end procedure
1619 : !#endif
1620 : !
1621 : !#undef RK_ENABLED
1622 : !
1623 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1624 : !
1625 : !#undef D1_D0_ENABLED
1626 : !
1627 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1628 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1629 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1630 : !
1631 : !#define D1_D1_ENABLED 1
1632 : !
1633 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1634 : !
1635 : !#define SK_ENABLED 1
1636 : !
1637 : !#if SK5_ENABLED
1638 : ! module procedure setSplitFixCusComCusIns_D1_D1_SK5
1639 : !#include "pm_arraySplit@routines.inc.F90"
1640 : ! end procedure
1641 : !#endif
1642 : !
1643 : !#if SK4_ENABLED
1644 : ! module procedure setSplitFixCusComCusIns_D1_D1_SK4
1645 : !#include "pm_arraySplit@routines.inc.F90"
1646 : ! end procedure
1647 : !#endif
1648 : !
1649 : !#if SK3_ENABLED
1650 : ! module procedure setSplitFixCusComCusIns_D1_D1_SK3
1651 : !#include "pm_arraySplit@routines.inc.F90"
1652 : ! end procedure
1653 : !#endif
1654 : !
1655 : !#if SK2_ENABLED
1656 : ! module procedure setSplitFixCusComCusIns_D1_D1_SK2
1657 : !#include "pm_arraySplit@routines.inc.F90"
1658 : ! end procedure
1659 : !#endif
1660 : !
1661 : !#if SK1_ENABLED
1662 : ! module procedure setSplitFixCusComCusIns_D1_D1_SK1
1663 : !#include "pm_arraySplit@routines.inc.F90"
1664 : ! end procedure
1665 : !#endif
1666 : !
1667 : !#undef SK_ENABLED
1668 : !
1669 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670 : !
1671 : !#define IK_ENABLED 1
1672 : !
1673 : !#if IK5_ENABLED
1674 : ! module procedure setSplitFixCusComCusIns_D1_D1_IK5
1675 : !#include "pm_arraySplit@routines.inc.F90"
1676 : ! end procedure
1677 : !#endif
1678 : !
1679 : !#if IK4_ENABLED
1680 : ! module procedure setSplitFixCusComCusIns_D1_D1_IK4
1681 : !#include "pm_arraySplit@routines.inc.F90"
1682 : ! end procedure
1683 : !#endif
1684 : !
1685 : !#if IK3_ENABLED
1686 : ! module procedure setSplitFixCusComCusIns_D1_D1_IK3
1687 : !#include "pm_arraySplit@routines.inc.F90"
1688 : ! end procedure
1689 : !#endif
1690 : !
1691 : !#if IK2_ENABLED
1692 : ! module procedure setSplitFixCusComCusIns_D1_D1_IK2
1693 : !#include "pm_arraySplit@routines.inc.F90"
1694 : ! end procedure
1695 : !#endif
1696 : !
1697 : !#if IK1_ENABLED
1698 : ! module procedure setSplitFixCusComCusIns_D1_D1_IK1
1699 : !#include "pm_arraySplit@routines.inc.F90"
1700 : ! end procedure
1701 : !#endif
1702 : !
1703 : !#undef IK_ENABLED
1704 : !
1705 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1706 : !
1707 : !#define LK_ENABLED 1
1708 : !
1709 : !#if LK5_ENABLED
1710 : ! module procedure setSplitFixCusComCusIns_D1_D1_LK5
1711 : !#include "pm_arraySplit@routines.inc.F90"
1712 : ! end procedure
1713 : !#endif
1714 : !
1715 : !#if LK4_ENABLED
1716 : ! module procedure setSplitFixCusComCusIns_D1_D1_LK4
1717 : !#include "pm_arraySplit@routines.inc.F90"
1718 : ! end procedure
1719 : !#endif
1720 : !
1721 : !#if LK3_ENABLED
1722 : ! module procedure setSplitFixCusComCusIns_D1_D1_LK3
1723 : !#include "pm_arraySplit@routines.inc.F90"
1724 : ! end procedure
1725 : !#endif
1726 : !
1727 : !#if LK2_ENABLED
1728 : ! module procedure setSplitFixCusComCusIns_D1_D1_LK2
1729 : !#include "pm_arraySplit@routines.inc.F90"
1730 : ! end procedure
1731 : !#endif
1732 : !
1733 : !#if LK1_ENABLED
1734 : ! module procedure setSplitFixCusComCusIns_D1_D1_LK1
1735 : !#include "pm_arraySplit@routines.inc.F90"
1736 : ! end procedure
1737 : !#endif
1738 : !
1739 : !#undef LK_ENABLED
1740 : !
1741 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1742 : !
1743 : !#define CK_ENABLED 1
1744 : !
1745 : !#if CK5_ENABLED
1746 : ! module procedure setSplitFixCusComCusIns_D1_D1_CK5
1747 : !#include "pm_arraySplit@routines.inc.F90"
1748 : ! end procedure
1749 : !#endif
1750 : !
1751 : !#if CK4_ENABLED
1752 : ! module procedure setSplitFixCusComCusIns_D1_D1_CK4
1753 : !#include "pm_arraySplit@routines.inc.F90"
1754 : ! end procedure
1755 : !#endif
1756 : !
1757 : !#if CK3_ENABLED
1758 : ! module procedure setSplitFixCusComCusIns_D1_D1_CK3
1759 : !#include "pm_arraySplit@routines.inc.F90"
1760 : ! end procedure
1761 : !#endif
1762 : !
1763 : !#if CK2_ENABLED
1764 : ! module procedure setSplitFixCusComCusIns_D1_D1_CK2
1765 : !#include "pm_arraySplit@routines.inc.F90"
1766 : ! end procedure
1767 : !#endif
1768 : !
1769 : !#if CK1_ENABLED
1770 : ! module procedure setSplitFixCusComCusIns_D1_D1_CK1
1771 : !#include "pm_arraySplit@routines.inc.F90"
1772 : ! end procedure
1773 : !#endif
1774 : !
1775 : !#undef CK_ENABLED
1776 : !
1777 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1778 : !
1779 : !#define RK_ENABLED 1
1780 : !
1781 : !#if RK5_ENABLED
1782 : ! module procedure setSplitFixCusComCusIns_D1_D1_RK5
1783 : !#include "pm_arraySplit@routines.inc.F90"
1784 : ! end procedure
1785 : !#endif
1786 : !
1787 : !#if RK4_ENABLED
1788 : ! module procedure setSplitFixCusComCusIns_D1_D1_RK4
1789 : !#include "pm_arraySplit@routines.inc.F90"
1790 : ! end procedure
1791 : !#endif
1792 : !
1793 : !#if RK3_ENABLED
1794 : ! module procedure setSplitFixCusComCusIns_D1_D1_RK3
1795 : !#include "pm_arraySplit@routines.inc.F90"
1796 : ! end procedure
1797 : !#endif
1798 : !
1799 : !#if RK2_ENABLED
1800 : ! module procedure setSplitFixCusComCusIns_D1_D1_RK2
1801 : !#include "pm_arraySplit@routines.inc.F90"
1802 : ! end procedure
1803 : !#endif
1804 : !
1805 : !#if RK1_ENABLED
1806 : ! module procedure setSplitFixCusComCusIns_D1_D1_RK1
1807 : !#include "pm_arraySplit@routines.inc.F90"
1808 : ! end procedure
1809 : !#endif
1810 : !
1811 : !#undef RK_ENABLED
1812 : !
1813 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1814 : !
1815 : !#undef D1_D1_ENABLED
1816 : !
1817 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1818 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1819 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1820 : !
1821 : !#undef CusIns_ENABLED
1822 : !#undef CusCom_ENABLED
1823 : !
1824 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1825 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1826 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1827 : !
1828 : !#undef Fixed_ENABLED
1829 : !
1830 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1831 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1832 : ! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1833 : !
1834 : !#undef setSplit_ENABLED
1835 : !
1836 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1837 :
1838 : #define setSplit_ENABLED 1
1839 :
1840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1843 :
1844 : #define Index_ENABLED 1
1845 :
1846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1847 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1849 :
1850 : #define DefCom_ENABLED 1
1851 : #define DefIns_ENABLED 1
1852 :
1853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1856 :
1857 : #define D0_D0_ENABLED 1
1858 :
1859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1860 :
1861 : #define SK_ENABLED 1
1862 :
1863 : #if SK5_ENABLED
1864 : module procedure setSplitIndDefComDefIns_D0_D0_SK5
1865 : #include "pm_arraySplit@routines.inc.F90"
1866 : end procedure
1867 : #endif
1868 :
1869 : #if SK4_ENABLED
1870 : module procedure setSplitIndDefComDefIns_D0_D0_SK4
1871 : #include "pm_arraySplit@routines.inc.F90"
1872 : end procedure
1873 : #endif
1874 :
1875 : #if SK3_ENABLED
1876 : module procedure setSplitIndDefComDefIns_D0_D0_SK3
1877 : #include "pm_arraySplit@routines.inc.F90"
1878 : end procedure
1879 : #endif
1880 :
1881 : #if SK2_ENABLED
1882 : module procedure setSplitIndDefComDefIns_D0_D0_SK2
1883 : #include "pm_arraySplit@routines.inc.F90"
1884 : end procedure
1885 : #endif
1886 :
1887 : #if SK1_ENABLED
1888 320 : module procedure setSplitIndDefComDefIns_D0_D0_SK1
1889 : #include "pm_arraySplit@routines.inc.F90"
1890 : end procedure
1891 : #endif
1892 :
1893 : #undef SK_ENABLED
1894 :
1895 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1896 :
1897 : #undef D0_D0_ENABLED
1898 :
1899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1900 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1901 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1902 :
1903 : #define D1_D0_ENABLED 1
1904 :
1905 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1906 :
1907 : #define SK_ENABLED 1
1908 :
1909 : #if SK5_ENABLED
1910 : module procedure setSplitIndDefComDefIns_D1_D0_SK5
1911 : #include "pm_arraySplit@routines.inc.F90"
1912 : end procedure
1913 : #endif
1914 :
1915 : #if SK4_ENABLED
1916 : module procedure setSplitIndDefComDefIns_D1_D0_SK4
1917 : #include "pm_arraySplit@routines.inc.F90"
1918 : end procedure
1919 : #endif
1920 :
1921 : #if SK3_ENABLED
1922 : module procedure setSplitIndDefComDefIns_D1_D0_SK3
1923 : #include "pm_arraySplit@routines.inc.F90"
1924 : end procedure
1925 : #endif
1926 :
1927 : #if SK2_ENABLED
1928 : module procedure setSplitIndDefComDefIns_D1_D0_SK2
1929 : #include "pm_arraySplit@routines.inc.F90"
1930 : end procedure
1931 : #endif
1932 :
1933 : #if SK1_ENABLED
1934 108 : module procedure setSplitIndDefComDefIns_D1_D0_SK1
1935 : #include "pm_arraySplit@routines.inc.F90"
1936 : end procedure
1937 : #endif
1938 :
1939 : #undef SK_ENABLED
1940 :
1941 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1942 :
1943 : #define IK_ENABLED 1
1944 :
1945 : #if IK5_ENABLED
1946 54 : module procedure setSplitIndDefComDefIns_D1_D0_IK5
1947 : #include "pm_arraySplit@routines.inc.F90"
1948 : end procedure
1949 : #endif
1950 :
1951 : #if IK4_ENABLED
1952 54 : module procedure setSplitIndDefComDefIns_D1_D0_IK4
1953 : #include "pm_arraySplit@routines.inc.F90"
1954 : end procedure
1955 : #endif
1956 :
1957 : #if IK3_ENABLED
1958 108 : module procedure setSplitIndDefComDefIns_D1_D0_IK3
1959 : #include "pm_arraySplit@routines.inc.F90"
1960 : end procedure
1961 : #endif
1962 :
1963 : #if IK2_ENABLED
1964 54 : module procedure setSplitIndDefComDefIns_D1_D0_IK2
1965 : #include "pm_arraySplit@routines.inc.F90"
1966 : end procedure
1967 : #endif
1968 :
1969 : #if IK1_ENABLED
1970 54 : module procedure setSplitIndDefComDefIns_D1_D0_IK1
1971 : #include "pm_arraySplit@routines.inc.F90"
1972 : end procedure
1973 : #endif
1974 :
1975 : #undef IK_ENABLED
1976 :
1977 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1978 :
1979 : #define LK_ENABLED 1
1980 :
1981 : #if LK5_ENABLED
1982 54 : module procedure setSplitIndDefComDefIns_D1_D0_LK5
1983 : #include "pm_arraySplit@routines.inc.F90"
1984 : end procedure
1985 : #endif
1986 :
1987 : #if LK4_ENABLED
1988 54 : module procedure setSplitIndDefComDefIns_D1_D0_LK4
1989 : #include "pm_arraySplit@routines.inc.F90"
1990 : end procedure
1991 : #endif
1992 :
1993 : #if LK3_ENABLED
1994 108 : module procedure setSplitIndDefComDefIns_D1_D0_LK3
1995 : #include "pm_arraySplit@routines.inc.F90"
1996 : end procedure
1997 : #endif
1998 :
1999 : #if LK2_ENABLED
2000 54 : module procedure setSplitIndDefComDefIns_D1_D0_LK2
2001 : #include "pm_arraySplit@routines.inc.F90"
2002 : end procedure
2003 : #endif
2004 :
2005 : #if LK1_ENABLED
2006 54 : module procedure setSplitIndDefComDefIns_D1_D0_LK1
2007 : #include "pm_arraySplit@routines.inc.F90"
2008 : end procedure
2009 : #endif
2010 :
2011 : #undef LK_ENABLED
2012 :
2013 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2014 :
2015 : #define CK_ENABLED 1
2016 :
2017 : #if CK5_ENABLED
2018 : module procedure setSplitIndDefComDefIns_D1_D0_CK5
2019 : #include "pm_arraySplit@routines.inc.F90"
2020 : end procedure
2021 : #endif
2022 :
2023 : #if CK4_ENABLED
2024 54 : module procedure setSplitIndDefComDefIns_D1_D0_CK4
2025 : #include "pm_arraySplit@routines.inc.F90"
2026 : end procedure
2027 : #endif
2028 :
2029 : #if CK3_ENABLED
2030 54 : module procedure setSplitIndDefComDefIns_D1_D0_CK3
2031 : #include "pm_arraySplit@routines.inc.F90"
2032 : end procedure
2033 : #endif
2034 :
2035 : #if CK2_ENABLED
2036 108 : module procedure setSplitIndDefComDefIns_D1_D0_CK2
2037 : #include "pm_arraySplit@routines.inc.F90"
2038 : end procedure
2039 : #endif
2040 :
2041 : #if CK1_ENABLED
2042 54 : module procedure setSplitIndDefComDefIns_D1_D0_CK1
2043 : #include "pm_arraySplit@routines.inc.F90"
2044 : end procedure
2045 : #endif
2046 :
2047 : #undef CK_ENABLED
2048 :
2049 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2050 :
2051 : #define RK_ENABLED 1
2052 :
2053 : #if RK5_ENABLED
2054 : module procedure setSplitIndDefComDefIns_D1_D0_RK5
2055 : #include "pm_arraySplit@routines.inc.F90"
2056 : end procedure
2057 : #endif
2058 :
2059 : #if RK4_ENABLED
2060 54 : module procedure setSplitIndDefComDefIns_D1_D0_RK4
2061 : #include "pm_arraySplit@routines.inc.F90"
2062 : end procedure
2063 : #endif
2064 :
2065 : #if RK3_ENABLED
2066 54 : module procedure setSplitIndDefComDefIns_D1_D0_RK3
2067 : #include "pm_arraySplit@routines.inc.F90"
2068 : end procedure
2069 : #endif
2070 :
2071 : #if RK2_ENABLED
2072 108 : module procedure setSplitIndDefComDefIns_D1_D0_RK2
2073 : #include "pm_arraySplit@routines.inc.F90"
2074 : end procedure
2075 : #endif
2076 :
2077 : #if RK1_ENABLED
2078 54 : module procedure setSplitIndDefComDefIns_D1_D0_RK1
2079 : #include "pm_arraySplit@routines.inc.F90"
2080 : end procedure
2081 : #endif
2082 :
2083 : #undef RK_ENABLED
2084 :
2085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2086 :
2087 : #undef D1_D0_ENABLED
2088 :
2089 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2090 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2092 :
2093 : #define D1_D1_ENABLED 1
2094 :
2095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2096 :
2097 : #define SK_ENABLED 1
2098 :
2099 : #if SK5_ENABLED
2100 : module procedure setSplitIndDefComDefIns_D1_D1_SK5
2101 : #include "pm_arraySplit@routines.inc.F90"
2102 : end procedure
2103 : #endif
2104 :
2105 : #if SK4_ENABLED
2106 : module procedure setSplitIndDefComDefIns_D1_D1_SK4
2107 : #include "pm_arraySplit@routines.inc.F90"
2108 : end procedure
2109 : #endif
2110 :
2111 : #if SK3_ENABLED
2112 : module procedure setSplitIndDefComDefIns_D1_D1_SK3
2113 : #include "pm_arraySplit@routines.inc.F90"
2114 : end procedure
2115 : #endif
2116 :
2117 : #if SK2_ENABLED
2118 : module procedure setSplitIndDefComDefIns_D1_D1_SK2
2119 : #include "pm_arraySplit@routines.inc.F90"
2120 : end procedure
2121 : #endif
2122 :
2123 : #if SK1_ENABLED
2124 134 : module procedure setSplitIndDefComDefIns_D1_D1_SK1
2125 : #include "pm_arraySplit@routines.inc.F90"
2126 : end procedure
2127 : #endif
2128 :
2129 : #undef SK_ENABLED
2130 :
2131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2132 :
2133 : #define IK_ENABLED 1
2134 :
2135 : #if IK5_ENABLED
2136 66 : module procedure setSplitIndDefComDefIns_D1_D1_IK5
2137 : #include "pm_arraySplit@routines.inc.F90"
2138 : end procedure
2139 : #endif
2140 :
2141 : #if IK4_ENABLED
2142 66 : module procedure setSplitIndDefComDefIns_D1_D1_IK4
2143 : #include "pm_arraySplit@routines.inc.F90"
2144 : end procedure
2145 : #endif
2146 :
2147 : #if IK3_ENABLED
2148 134 : module procedure setSplitIndDefComDefIns_D1_D1_IK3
2149 : #include "pm_arraySplit@routines.inc.F90"
2150 : end procedure
2151 : #endif
2152 :
2153 : #if IK2_ENABLED
2154 66 : module procedure setSplitIndDefComDefIns_D1_D1_IK2
2155 : #include "pm_arraySplit@routines.inc.F90"
2156 : end procedure
2157 : #endif
2158 :
2159 : #if IK1_ENABLED
2160 66 : module procedure setSplitIndDefComDefIns_D1_D1_IK1
2161 : #include "pm_arraySplit@routines.inc.F90"
2162 : end procedure
2163 : #endif
2164 :
2165 : #undef IK_ENABLED
2166 :
2167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2168 :
2169 : #define LK_ENABLED 1
2170 :
2171 : #if LK5_ENABLED
2172 66 : module procedure setSplitIndDefComDefIns_D1_D1_LK5
2173 : #include "pm_arraySplit@routines.inc.F90"
2174 : end procedure
2175 : #endif
2176 :
2177 : #if LK4_ENABLED
2178 66 : module procedure setSplitIndDefComDefIns_D1_D1_LK4
2179 : #include "pm_arraySplit@routines.inc.F90"
2180 : end procedure
2181 : #endif
2182 :
2183 : #if LK3_ENABLED
2184 134 : module procedure setSplitIndDefComDefIns_D1_D1_LK3
2185 : #include "pm_arraySplit@routines.inc.F90"
2186 : end procedure
2187 : #endif
2188 :
2189 : #if LK2_ENABLED
2190 66 : module procedure setSplitIndDefComDefIns_D1_D1_LK2
2191 : #include "pm_arraySplit@routines.inc.F90"
2192 : end procedure
2193 : #endif
2194 :
2195 : #if LK1_ENABLED
2196 66 : module procedure setSplitIndDefComDefIns_D1_D1_LK1
2197 : #include "pm_arraySplit@routines.inc.F90"
2198 : end procedure
2199 : #endif
2200 :
2201 : #undef LK_ENABLED
2202 :
2203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2204 :
2205 : #define CK_ENABLED 1
2206 :
2207 : #if CK5_ENABLED
2208 : module procedure setSplitIndDefComDefIns_D1_D1_CK5
2209 : #include "pm_arraySplit@routines.inc.F90"
2210 : end procedure
2211 : #endif
2212 :
2213 : #if CK4_ENABLED
2214 66 : module procedure setSplitIndDefComDefIns_D1_D1_CK4
2215 : #include "pm_arraySplit@routines.inc.F90"
2216 : end procedure
2217 : #endif
2218 :
2219 : #if CK3_ENABLED
2220 66 : module procedure setSplitIndDefComDefIns_D1_D1_CK3
2221 : #include "pm_arraySplit@routines.inc.F90"
2222 : end procedure
2223 : #endif
2224 :
2225 : #if CK2_ENABLED
2226 134 : module procedure setSplitIndDefComDefIns_D1_D1_CK2
2227 : #include "pm_arraySplit@routines.inc.F90"
2228 : end procedure
2229 : #endif
2230 :
2231 : #if CK1_ENABLED
2232 66 : module procedure setSplitIndDefComDefIns_D1_D1_CK1
2233 : #include "pm_arraySplit@routines.inc.F90"
2234 : end procedure
2235 : #endif
2236 :
2237 : #undef CK_ENABLED
2238 :
2239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2240 :
2241 : #define RK_ENABLED 1
2242 :
2243 : #if RK5_ENABLED
2244 : module procedure setSplitIndDefComDefIns_D1_D1_RK5
2245 : #include "pm_arraySplit@routines.inc.F90"
2246 : end procedure
2247 : #endif
2248 :
2249 : #if RK4_ENABLED
2250 66 : module procedure setSplitIndDefComDefIns_D1_D1_RK4
2251 : #include "pm_arraySplit@routines.inc.F90"
2252 : end procedure
2253 : #endif
2254 :
2255 : #if RK3_ENABLED
2256 66 : module procedure setSplitIndDefComDefIns_D1_D1_RK3
2257 : #include "pm_arraySplit@routines.inc.F90"
2258 : end procedure
2259 : #endif
2260 :
2261 : #if RK2_ENABLED
2262 134 : module procedure setSplitIndDefComDefIns_D1_D1_RK2
2263 : #include "pm_arraySplit@routines.inc.F90"
2264 : end procedure
2265 : #endif
2266 :
2267 : #if RK1_ENABLED
2268 66 : module procedure setSplitIndDefComDefIns_D1_D1_RK1
2269 : #include "pm_arraySplit@routines.inc.F90"
2270 : end procedure
2271 : #endif
2272 :
2273 : #undef RK_ENABLED
2274 :
2275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2276 :
2277 : #undef D1_D1_ENABLED
2278 :
2279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2282 :
2283 : #undef DefCom_ENABLED
2284 : #undef DefIns_ENABLED
2285 :
2286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2288 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2289 :
2290 : #define CusCom_ENABLED 1
2291 : #define DefIns_ENABLED 1
2292 :
2293 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2296 :
2297 : #define D0_D0_ENABLED 1
2298 :
2299 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2300 :
2301 : #define SK_ENABLED 1
2302 :
2303 : #if SK5_ENABLED
2304 : module procedure setSplitIndCusComDefIns_D0_D0_SK5
2305 : #include "pm_arraySplit@routines.inc.F90"
2306 : end procedure
2307 : #endif
2308 :
2309 : #if SK4_ENABLED
2310 : module procedure setSplitIndCusComDefIns_D0_D0_SK4
2311 : #include "pm_arraySplit@routines.inc.F90"
2312 : end procedure
2313 : #endif
2314 :
2315 : #if SK3_ENABLED
2316 : module procedure setSplitIndCusComDefIns_D0_D0_SK3
2317 : #include "pm_arraySplit@routines.inc.F90"
2318 : end procedure
2319 : #endif
2320 :
2321 : #if SK2_ENABLED
2322 : module procedure setSplitIndCusComDefIns_D0_D0_SK2
2323 : #include "pm_arraySplit@routines.inc.F90"
2324 : end procedure
2325 : #endif
2326 :
2327 : #if SK1_ENABLED
2328 134 : module procedure setSplitIndCusComDefIns_D0_D0_SK1
2329 : #include "pm_arraySplit@routines.inc.F90"
2330 : end procedure
2331 : #endif
2332 :
2333 : #undef SK_ENABLED
2334 :
2335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2336 :
2337 : #undef D0_D0_ENABLED
2338 :
2339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2342 :
2343 : #define D1_D0_ENABLED 1
2344 :
2345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2346 :
2347 : #define SK_ENABLED 1
2348 :
2349 : #if SK5_ENABLED
2350 : module procedure setSplitIndCusComDefIns_D1_D0_SK5
2351 : #include "pm_arraySplit@routines.inc.F90"
2352 : end procedure
2353 : #endif
2354 :
2355 : #if SK4_ENABLED
2356 : module procedure setSplitIndCusComDefIns_D1_D0_SK4
2357 : #include "pm_arraySplit@routines.inc.F90"
2358 : end procedure
2359 : #endif
2360 :
2361 : #if SK3_ENABLED
2362 : module procedure setSplitIndCusComDefIns_D1_D0_SK3
2363 : #include "pm_arraySplit@routines.inc.F90"
2364 : end procedure
2365 : #endif
2366 :
2367 : #if SK2_ENABLED
2368 : module procedure setSplitIndCusComDefIns_D1_D0_SK2
2369 : #include "pm_arraySplit@routines.inc.F90"
2370 : end procedure
2371 : #endif
2372 :
2373 : #if SK1_ENABLED
2374 108 : module procedure setSplitIndCusComDefIns_D1_D0_SK1
2375 : #include "pm_arraySplit@routines.inc.F90"
2376 : end procedure
2377 : #endif
2378 :
2379 : #undef SK_ENABLED
2380 :
2381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2382 :
2383 : #define IK_ENABLED 1
2384 :
2385 : #if IK5_ENABLED
2386 54 : module procedure setSplitIndCusComDefIns_D1_D0_IK5
2387 : #include "pm_arraySplit@routines.inc.F90"
2388 : end procedure
2389 : #endif
2390 :
2391 : #if IK4_ENABLED
2392 54 : module procedure setSplitIndCusComDefIns_D1_D0_IK4
2393 : #include "pm_arraySplit@routines.inc.F90"
2394 : end procedure
2395 : #endif
2396 :
2397 : #if IK3_ENABLED
2398 108 : module procedure setSplitIndCusComDefIns_D1_D0_IK3
2399 : #include "pm_arraySplit@routines.inc.F90"
2400 : end procedure
2401 : #endif
2402 :
2403 : #if IK2_ENABLED
2404 54 : module procedure setSplitIndCusComDefIns_D1_D0_IK2
2405 : #include "pm_arraySplit@routines.inc.F90"
2406 : end procedure
2407 : #endif
2408 :
2409 : #if IK1_ENABLED
2410 54 : module procedure setSplitIndCusComDefIns_D1_D0_IK1
2411 : #include "pm_arraySplit@routines.inc.F90"
2412 : end procedure
2413 : #endif
2414 :
2415 : #undef IK_ENABLED
2416 :
2417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2418 :
2419 : #define LK_ENABLED 1
2420 :
2421 : #if LK5_ENABLED
2422 54 : module procedure setSplitIndCusComDefIns_D1_D0_LK5
2423 : #include "pm_arraySplit@routines.inc.F90"
2424 : end procedure
2425 : #endif
2426 :
2427 : #if LK4_ENABLED
2428 54 : module procedure setSplitIndCusComDefIns_D1_D0_LK4
2429 : #include "pm_arraySplit@routines.inc.F90"
2430 : end procedure
2431 : #endif
2432 :
2433 : #if LK3_ENABLED
2434 108 : module procedure setSplitIndCusComDefIns_D1_D0_LK3
2435 : #include "pm_arraySplit@routines.inc.F90"
2436 : end procedure
2437 : #endif
2438 :
2439 : #if LK2_ENABLED
2440 54 : module procedure setSplitIndCusComDefIns_D1_D0_LK2
2441 : #include "pm_arraySplit@routines.inc.F90"
2442 : end procedure
2443 : #endif
2444 :
2445 : #if LK1_ENABLED
2446 54 : module procedure setSplitIndCusComDefIns_D1_D0_LK1
2447 : #include "pm_arraySplit@routines.inc.F90"
2448 : end procedure
2449 : #endif
2450 :
2451 : #undef LK_ENABLED
2452 :
2453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2454 :
2455 : #define CK_ENABLED 1
2456 :
2457 : #if CK5_ENABLED
2458 : module procedure setSplitIndCusComDefIns_D1_D0_CK5
2459 : #include "pm_arraySplit@routines.inc.F90"
2460 : end procedure
2461 : #endif
2462 :
2463 : #if CK4_ENABLED
2464 54 : module procedure setSplitIndCusComDefIns_D1_D0_CK4
2465 : #include "pm_arraySplit@routines.inc.F90"
2466 : end procedure
2467 : #endif
2468 :
2469 : #if CK3_ENABLED
2470 54 : module procedure setSplitIndCusComDefIns_D1_D0_CK3
2471 : #include "pm_arraySplit@routines.inc.F90"
2472 : end procedure
2473 : #endif
2474 :
2475 : #if CK2_ENABLED
2476 108 : module procedure setSplitIndCusComDefIns_D1_D0_CK2
2477 : #include "pm_arraySplit@routines.inc.F90"
2478 : end procedure
2479 : #endif
2480 :
2481 : #if CK1_ENABLED
2482 54 : module procedure setSplitIndCusComDefIns_D1_D0_CK1
2483 : #include "pm_arraySplit@routines.inc.F90"
2484 : end procedure
2485 : #endif
2486 :
2487 : #undef CK_ENABLED
2488 :
2489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2490 :
2491 : #define RK_ENABLED 1
2492 :
2493 : #if RK5_ENABLED
2494 : module procedure setSplitIndCusComDefIns_D1_D0_RK5
2495 : #include "pm_arraySplit@routines.inc.F90"
2496 : end procedure
2497 : #endif
2498 :
2499 : #if RK4_ENABLED
2500 54 : module procedure setSplitIndCusComDefIns_D1_D0_RK4
2501 : #include "pm_arraySplit@routines.inc.F90"
2502 : end procedure
2503 : #endif
2504 :
2505 : #if RK3_ENABLED
2506 54 : module procedure setSplitIndCusComDefIns_D1_D0_RK3
2507 : #include "pm_arraySplit@routines.inc.F90"
2508 : end procedure
2509 : #endif
2510 :
2511 : #if RK2_ENABLED
2512 108 : module procedure setSplitIndCusComDefIns_D1_D0_RK2
2513 : #include "pm_arraySplit@routines.inc.F90"
2514 : end procedure
2515 : #endif
2516 :
2517 : #if RK1_ENABLED
2518 54 : module procedure setSplitIndCusComDefIns_D1_D0_RK1
2519 : #include "pm_arraySplit@routines.inc.F90"
2520 : end procedure
2521 : #endif
2522 :
2523 : #undef RK_ENABLED
2524 :
2525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2526 :
2527 : #undef D1_D0_ENABLED
2528 :
2529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2532 :
2533 : #define D1_D1_ENABLED 1
2534 :
2535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2536 :
2537 : #define SK_ENABLED 1
2538 :
2539 : #if SK5_ENABLED
2540 : module procedure setSplitIndCusComDefIns_D1_D1_SK5
2541 : #include "pm_arraySplit@routines.inc.F90"
2542 : end procedure
2543 : #endif
2544 :
2545 : #if SK4_ENABLED
2546 : module procedure setSplitIndCusComDefIns_D1_D1_SK4
2547 : #include "pm_arraySplit@routines.inc.F90"
2548 : end procedure
2549 : #endif
2550 :
2551 : #if SK3_ENABLED
2552 : module procedure setSplitIndCusComDefIns_D1_D1_SK3
2553 : #include "pm_arraySplit@routines.inc.F90"
2554 : end procedure
2555 : #endif
2556 :
2557 : #if SK2_ENABLED
2558 : module procedure setSplitIndCusComDefIns_D1_D1_SK2
2559 : #include "pm_arraySplit@routines.inc.F90"
2560 : end procedure
2561 : #endif
2562 :
2563 : #if SK1_ENABLED
2564 132 : module procedure setSplitIndCusComDefIns_D1_D1_SK1
2565 : #include "pm_arraySplit@routines.inc.F90"
2566 : end procedure
2567 : #endif
2568 :
2569 : #undef SK_ENABLED
2570 :
2571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2572 :
2573 : #define IK_ENABLED 1
2574 :
2575 : #if IK5_ENABLED
2576 66 : module procedure setSplitIndCusComDefIns_D1_D1_IK5
2577 : #include "pm_arraySplit@routines.inc.F90"
2578 : end procedure
2579 : #endif
2580 :
2581 : #if IK4_ENABLED
2582 66 : module procedure setSplitIndCusComDefIns_D1_D1_IK4
2583 : #include "pm_arraySplit@routines.inc.F90"
2584 : end procedure
2585 : #endif
2586 :
2587 : #if IK3_ENABLED
2588 132 : module procedure setSplitIndCusComDefIns_D1_D1_IK3
2589 : #include "pm_arraySplit@routines.inc.F90"
2590 : end procedure
2591 : #endif
2592 :
2593 : #if IK2_ENABLED
2594 66 : module procedure setSplitIndCusComDefIns_D1_D1_IK2
2595 : #include "pm_arraySplit@routines.inc.F90"
2596 : end procedure
2597 : #endif
2598 :
2599 : #if IK1_ENABLED
2600 66 : module procedure setSplitIndCusComDefIns_D1_D1_IK1
2601 : #include "pm_arraySplit@routines.inc.F90"
2602 : end procedure
2603 : #endif
2604 :
2605 : #undef IK_ENABLED
2606 :
2607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2608 :
2609 : #define LK_ENABLED 1
2610 :
2611 : #if LK5_ENABLED
2612 66 : module procedure setSplitIndCusComDefIns_D1_D1_LK5
2613 : #include "pm_arraySplit@routines.inc.F90"
2614 : end procedure
2615 : #endif
2616 :
2617 : #if LK4_ENABLED
2618 66 : module procedure setSplitIndCusComDefIns_D1_D1_LK4
2619 : #include "pm_arraySplit@routines.inc.F90"
2620 : end procedure
2621 : #endif
2622 :
2623 : #if LK3_ENABLED
2624 132 : module procedure setSplitIndCusComDefIns_D1_D1_LK3
2625 : #include "pm_arraySplit@routines.inc.F90"
2626 : end procedure
2627 : #endif
2628 :
2629 : #if LK2_ENABLED
2630 66 : module procedure setSplitIndCusComDefIns_D1_D1_LK2
2631 : #include "pm_arraySplit@routines.inc.F90"
2632 : end procedure
2633 : #endif
2634 :
2635 : #if LK1_ENABLED
2636 66 : module procedure setSplitIndCusComDefIns_D1_D1_LK1
2637 : #include "pm_arraySplit@routines.inc.F90"
2638 : end procedure
2639 : #endif
2640 :
2641 : #undef LK_ENABLED
2642 :
2643 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2644 :
2645 : #define CK_ENABLED 1
2646 :
2647 : #if CK5_ENABLED
2648 : module procedure setSplitIndCusComDefIns_D1_D1_CK5
2649 : #include "pm_arraySplit@routines.inc.F90"
2650 : end procedure
2651 : #endif
2652 :
2653 : #if CK4_ENABLED
2654 66 : module procedure setSplitIndCusComDefIns_D1_D1_CK4
2655 : #include "pm_arraySplit@routines.inc.F90"
2656 : end procedure
2657 : #endif
2658 :
2659 : #if CK3_ENABLED
2660 66 : module procedure setSplitIndCusComDefIns_D1_D1_CK3
2661 : #include "pm_arraySplit@routines.inc.F90"
2662 : end procedure
2663 : #endif
2664 :
2665 : #if CK2_ENABLED
2666 132 : module procedure setSplitIndCusComDefIns_D1_D1_CK2
2667 : #include "pm_arraySplit@routines.inc.F90"
2668 : end procedure
2669 : #endif
2670 :
2671 : #if CK1_ENABLED
2672 66 : module procedure setSplitIndCusComDefIns_D1_D1_CK1
2673 : #include "pm_arraySplit@routines.inc.F90"
2674 : end procedure
2675 : #endif
2676 :
2677 : #undef CK_ENABLED
2678 :
2679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2680 :
2681 : #define RK_ENABLED 1
2682 :
2683 : #if RK5_ENABLED
2684 : module procedure setSplitIndCusComDefIns_D1_D1_RK5
2685 : #include "pm_arraySplit@routines.inc.F90"
2686 : end procedure
2687 : #endif
2688 :
2689 : #if RK4_ENABLED
2690 66 : module procedure setSplitIndCusComDefIns_D1_D1_RK4
2691 : #include "pm_arraySplit@routines.inc.F90"
2692 : end procedure
2693 : #endif
2694 :
2695 : #if RK3_ENABLED
2696 66 : module procedure setSplitIndCusComDefIns_D1_D1_RK3
2697 : #include "pm_arraySplit@routines.inc.F90"
2698 : end procedure
2699 : #endif
2700 :
2701 : #if RK2_ENABLED
2702 132 : module procedure setSplitIndCusComDefIns_D1_D1_RK2
2703 : #include "pm_arraySplit@routines.inc.F90"
2704 : end procedure
2705 : #endif
2706 :
2707 : #if RK1_ENABLED
2708 66 : module procedure setSplitIndCusComDefIns_D1_D1_RK1
2709 : #include "pm_arraySplit@routines.inc.F90"
2710 : end procedure
2711 : #endif
2712 :
2713 : #undef RK_ENABLED
2714 :
2715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2716 :
2717 : #undef D1_D1_ENABLED
2718 :
2719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2722 :
2723 : #undef CusCom_ENABLED
2724 : #undef DefIns_ENABLED
2725 :
2726 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2732 :
2733 : #define DefCom_ENABLED 1
2734 : #define CusIns_ENABLED 1
2735 :
2736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2738 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2739 :
2740 : #define D0_D0_ENABLED 1
2741 :
2742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2743 :
2744 : #define SK_ENABLED 1
2745 :
2746 : #if SK5_ENABLED
2747 : module procedure setSplitIndDefComCusIns_D0_D0_SK5
2748 : #include "pm_arraySplit@routines.inc.F90"
2749 : end procedure
2750 : #endif
2751 :
2752 : #if SK4_ENABLED
2753 : module procedure setSplitIndDefComCusIns_D0_D0_SK4
2754 : #include "pm_arraySplit@routines.inc.F90"
2755 : end procedure
2756 : #endif
2757 :
2758 : #if SK3_ENABLED
2759 : module procedure setSplitIndDefComCusIns_D0_D0_SK3
2760 : #include "pm_arraySplit@routines.inc.F90"
2761 : end procedure
2762 : #endif
2763 :
2764 : #if SK2_ENABLED
2765 : module procedure setSplitIndDefComCusIns_D0_D0_SK2
2766 : #include "pm_arraySplit@routines.inc.F90"
2767 : end procedure
2768 : #endif
2769 :
2770 : #if SK1_ENABLED
2771 1802 : module procedure setSplitIndDefComCusIns_D0_D0_SK1
2772 : #include "pm_arraySplit@routines.inc.F90"
2773 : end procedure
2774 : #endif
2775 :
2776 : #undef SK_ENABLED
2777 :
2778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2779 :
2780 : #undef D0_D0_ENABLED
2781 :
2782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2785 :
2786 : #define D1_D0_ENABLED 1
2787 :
2788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2789 :
2790 : #define SK_ENABLED 1
2791 :
2792 : #if SK5_ENABLED
2793 : module procedure setSplitIndDefComCusIns_D1_D0_SK5
2794 : #include "pm_arraySplit@routines.inc.F90"
2795 : end procedure
2796 : #endif
2797 :
2798 : #if SK4_ENABLED
2799 : module procedure setSplitIndDefComCusIns_D1_D0_SK4
2800 : #include "pm_arraySplit@routines.inc.F90"
2801 : end procedure
2802 : #endif
2803 :
2804 : #if SK3_ENABLED
2805 : module procedure setSplitIndDefComCusIns_D1_D0_SK3
2806 : #include "pm_arraySplit@routines.inc.F90"
2807 : end procedure
2808 : #endif
2809 :
2810 : #if SK2_ENABLED
2811 : module procedure setSplitIndDefComCusIns_D1_D0_SK2
2812 : #include "pm_arraySplit@routines.inc.F90"
2813 : end procedure
2814 : #endif
2815 :
2816 : #if SK1_ENABLED
2817 1586 : module procedure setSplitIndDefComCusIns_D1_D0_SK1
2818 : #include "pm_arraySplit@routines.inc.F90"
2819 : end procedure
2820 : #endif
2821 :
2822 : #undef SK_ENABLED
2823 :
2824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2825 :
2826 : #define IK_ENABLED 1
2827 :
2828 : #if IK5_ENABLED
2829 792 : module procedure setSplitIndDefComCusIns_D1_D0_IK5
2830 : #include "pm_arraySplit@routines.inc.F90"
2831 : end procedure
2832 : #endif
2833 :
2834 : #if IK4_ENABLED
2835 792 : module procedure setSplitIndDefComCusIns_D1_D0_IK4
2836 : #include "pm_arraySplit@routines.inc.F90"
2837 : end procedure
2838 : #endif
2839 :
2840 : #if IK3_ENABLED
2841 1586 : module procedure setSplitIndDefComCusIns_D1_D0_IK3
2842 : #include "pm_arraySplit@routines.inc.F90"
2843 : end procedure
2844 : #endif
2845 :
2846 : #if IK2_ENABLED
2847 792 : module procedure setSplitIndDefComCusIns_D1_D0_IK2
2848 : #include "pm_arraySplit@routines.inc.F90"
2849 : end procedure
2850 : #endif
2851 :
2852 : #if IK1_ENABLED
2853 792 : module procedure setSplitIndDefComCusIns_D1_D0_IK1
2854 : #include "pm_arraySplit@routines.inc.F90"
2855 : end procedure
2856 : #endif
2857 :
2858 : #undef IK_ENABLED
2859 :
2860 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2861 :
2862 : #define LK_ENABLED 1
2863 :
2864 : #if LK5_ENABLED
2865 792 : module procedure setSplitIndDefComCusIns_D1_D0_LK5
2866 : #include "pm_arraySplit@routines.inc.F90"
2867 : end procedure
2868 : #endif
2869 :
2870 : #if LK4_ENABLED
2871 792 : module procedure setSplitIndDefComCusIns_D1_D0_LK4
2872 : #include "pm_arraySplit@routines.inc.F90"
2873 : end procedure
2874 : #endif
2875 :
2876 : #if LK3_ENABLED
2877 1586 : module procedure setSplitIndDefComCusIns_D1_D0_LK3
2878 : #include "pm_arraySplit@routines.inc.F90"
2879 : end procedure
2880 : #endif
2881 :
2882 : #if LK2_ENABLED
2883 792 : module procedure setSplitIndDefComCusIns_D1_D0_LK2
2884 : #include "pm_arraySplit@routines.inc.F90"
2885 : end procedure
2886 : #endif
2887 :
2888 : #if LK1_ENABLED
2889 792 : module procedure setSplitIndDefComCusIns_D1_D0_LK1
2890 : #include "pm_arraySplit@routines.inc.F90"
2891 : end procedure
2892 : #endif
2893 :
2894 : #undef LK_ENABLED
2895 :
2896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2897 :
2898 : #define CK_ENABLED 1
2899 :
2900 : #if CK5_ENABLED
2901 : module procedure setSplitIndDefComCusIns_D1_D0_CK5
2902 : #include "pm_arraySplit@routines.inc.F90"
2903 : end procedure
2904 : #endif
2905 :
2906 : #if CK4_ENABLED
2907 792 : module procedure setSplitIndDefComCusIns_D1_D0_CK4
2908 : #include "pm_arraySplit@routines.inc.F90"
2909 : end procedure
2910 : #endif
2911 :
2912 : #if CK3_ENABLED
2913 792 : module procedure setSplitIndDefComCusIns_D1_D0_CK3
2914 : #include "pm_arraySplit@routines.inc.F90"
2915 : end procedure
2916 : #endif
2917 :
2918 : #if CK2_ENABLED
2919 1586 : module procedure setSplitIndDefComCusIns_D1_D0_CK2
2920 : #include "pm_arraySplit@routines.inc.F90"
2921 : end procedure
2922 : #endif
2923 :
2924 : #if CK1_ENABLED
2925 792 : module procedure setSplitIndDefComCusIns_D1_D0_CK1
2926 : #include "pm_arraySplit@routines.inc.F90"
2927 : end procedure
2928 : #endif
2929 :
2930 : #undef CK_ENABLED
2931 :
2932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2933 :
2934 : #define RK_ENABLED 1
2935 :
2936 : #if RK5_ENABLED
2937 : module procedure setSplitIndDefComCusIns_D1_D0_RK5
2938 : #include "pm_arraySplit@routines.inc.F90"
2939 : end procedure
2940 : #endif
2941 :
2942 : #if RK4_ENABLED
2943 792 : module procedure setSplitIndDefComCusIns_D1_D0_RK4
2944 : #include "pm_arraySplit@routines.inc.F90"
2945 : end procedure
2946 : #endif
2947 :
2948 : #if RK3_ENABLED
2949 792 : module procedure setSplitIndDefComCusIns_D1_D0_RK3
2950 : #include "pm_arraySplit@routines.inc.F90"
2951 : end procedure
2952 : #endif
2953 :
2954 : #if RK2_ENABLED
2955 1586 : module procedure setSplitIndDefComCusIns_D1_D0_RK2
2956 : #include "pm_arraySplit@routines.inc.F90"
2957 : end procedure
2958 : #endif
2959 :
2960 : #if RK1_ENABLED
2961 792 : module procedure setSplitIndDefComCusIns_D1_D0_RK1
2962 : #include "pm_arraySplit@routines.inc.F90"
2963 : end procedure
2964 : #endif
2965 :
2966 : #undef RK_ENABLED
2967 :
2968 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2969 :
2970 : #undef D1_D0_ENABLED
2971 :
2972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2973 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2974 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2975 :
2976 : #define D1_D1_ENABLED 1
2977 :
2978 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2979 :
2980 : #define SK_ENABLED 1
2981 :
2982 : #if SK5_ENABLED
2983 : module procedure setSplitIndDefComCusIns_D1_D1_SK5
2984 : #include "pm_arraySplit@routines.inc.F90"
2985 : end procedure
2986 : #endif
2987 :
2988 : #if SK4_ENABLED
2989 : module procedure setSplitIndDefComCusIns_D1_D1_SK4
2990 : #include "pm_arraySplit@routines.inc.F90"
2991 : end procedure
2992 : #endif
2993 :
2994 : #if SK3_ENABLED
2995 : module procedure setSplitIndDefComCusIns_D1_D1_SK3
2996 : #include "pm_arraySplit@routines.inc.F90"
2997 : end procedure
2998 : #endif
2999 :
3000 : #if SK2_ENABLED
3001 : module procedure setSplitIndDefComCusIns_D1_D1_SK2
3002 : #include "pm_arraySplit@routines.inc.F90"
3003 : end procedure
3004 : #endif
3005 :
3006 : #if SK1_ENABLED
3007 1802 : module procedure setSplitIndDefComCusIns_D1_D1_SK1
3008 : #include "pm_arraySplit@routines.inc.F90"
3009 : end procedure
3010 : #endif
3011 :
3012 : #undef SK_ENABLED
3013 :
3014 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3015 :
3016 : #define IK_ENABLED 1
3017 :
3018 : #if IK5_ENABLED
3019 900 : module procedure setSplitIndDefComCusIns_D1_D1_IK5
3020 : #include "pm_arraySplit@routines.inc.F90"
3021 : end procedure
3022 : #endif
3023 :
3024 : #if IK4_ENABLED
3025 900 : module procedure setSplitIndDefComCusIns_D1_D1_IK4
3026 : #include "pm_arraySplit@routines.inc.F90"
3027 : end procedure
3028 : #endif
3029 :
3030 : #if IK3_ENABLED
3031 1802 : module procedure setSplitIndDefComCusIns_D1_D1_IK3
3032 : #include "pm_arraySplit@routines.inc.F90"
3033 : end procedure
3034 : #endif
3035 :
3036 : #if IK2_ENABLED
3037 900 : module procedure setSplitIndDefComCusIns_D1_D1_IK2
3038 : #include "pm_arraySplit@routines.inc.F90"
3039 : end procedure
3040 : #endif
3041 :
3042 : #if IK1_ENABLED
3043 900 : module procedure setSplitIndDefComCusIns_D1_D1_IK1
3044 : #include "pm_arraySplit@routines.inc.F90"
3045 : end procedure
3046 : #endif
3047 :
3048 : #undef IK_ENABLED
3049 :
3050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3051 :
3052 : #define LK_ENABLED 1
3053 :
3054 : #if LK5_ENABLED
3055 900 : module procedure setSplitIndDefComCusIns_D1_D1_LK5
3056 : #include "pm_arraySplit@routines.inc.F90"
3057 : end procedure
3058 : #endif
3059 :
3060 : #if LK4_ENABLED
3061 900 : module procedure setSplitIndDefComCusIns_D1_D1_LK4
3062 : #include "pm_arraySplit@routines.inc.F90"
3063 : end procedure
3064 : #endif
3065 :
3066 : #if LK3_ENABLED
3067 1802 : module procedure setSplitIndDefComCusIns_D1_D1_LK3
3068 : #include "pm_arraySplit@routines.inc.F90"
3069 : end procedure
3070 : #endif
3071 :
3072 : #if LK2_ENABLED
3073 900 : module procedure setSplitIndDefComCusIns_D1_D1_LK2
3074 : #include "pm_arraySplit@routines.inc.F90"
3075 : end procedure
3076 : #endif
3077 :
3078 : #if LK1_ENABLED
3079 900 : module procedure setSplitIndDefComCusIns_D1_D1_LK1
3080 : #include "pm_arraySplit@routines.inc.F90"
3081 : end procedure
3082 : #endif
3083 :
3084 : #undef LK_ENABLED
3085 :
3086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3087 :
3088 : #define CK_ENABLED 1
3089 :
3090 : #if CK5_ENABLED
3091 : module procedure setSplitIndDefComCusIns_D1_D1_CK5
3092 : #include "pm_arraySplit@routines.inc.F90"
3093 : end procedure
3094 : #endif
3095 :
3096 : #if CK4_ENABLED
3097 900 : module procedure setSplitIndDefComCusIns_D1_D1_CK4
3098 : #include "pm_arraySplit@routines.inc.F90"
3099 : end procedure
3100 : #endif
3101 :
3102 : #if CK3_ENABLED
3103 900 : module procedure setSplitIndDefComCusIns_D1_D1_CK3
3104 : #include "pm_arraySplit@routines.inc.F90"
3105 : end procedure
3106 : #endif
3107 :
3108 : #if CK2_ENABLED
3109 1802 : module procedure setSplitIndDefComCusIns_D1_D1_CK2
3110 : #include "pm_arraySplit@routines.inc.F90"
3111 : end procedure
3112 : #endif
3113 :
3114 : #if CK1_ENABLED
3115 900 : module procedure setSplitIndDefComCusIns_D1_D1_CK1
3116 : #include "pm_arraySplit@routines.inc.F90"
3117 : end procedure
3118 : #endif
3119 :
3120 : #undef CK_ENABLED
3121 :
3122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3123 :
3124 : #define RK_ENABLED 1
3125 :
3126 : #if RK5_ENABLED
3127 : module procedure setSplitIndDefComCusIns_D1_D1_RK5
3128 : #include "pm_arraySplit@routines.inc.F90"
3129 : end procedure
3130 : #endif
3131 :
3132 : #if RK4_ENABLED
3133 900 : module procedure setSplitIndDefComCusIns_D1_D1_RK4
3134 : #include "pm_arraySplit@routines.inc.F90"
3135 : end procedure
3136 : #endif
3137 :
3138 : #if RK3_ENABLED
3139 900 : module procedure setSplitIndDefComCusIns_D1_D1_RK3
3140 : #include "pm_arraySplit@routines.inc.F90"
3141 : end procedure
3142 : #endif
3143 :
3144 : #if RK2_ENABLED
3145 1802 : module procedure setSplitIndDefComCusIns_D1_D1_RK2
3146 : #include "pm_arraySplit@routines.inc.F90"
3147 : end procedure
3148 : #endif
3149 :
3150 : #if RK1_ENABLED
3151 900 : module procedure setSplitIndDefComCusIns_D1_D1_RK1
3152 : #include "pm_arraySplit@routines.inc.F90"
3153 : end procedure
3154 : #endif
3155 :
3156 : #undef RK_ENABLED
3157 :
3158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3159 :
3160 : #undef D1_D1_ENABLED
3161 :
3162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3165 :
3166 : #undef CusIns_ENABLED
3167 : #undef DefCom_ENABLED
3168 :
3169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3175 :
3176 : #define CusCom_ENABLED 1
3177 : #define CusIns_ENABLED 1
3178 :
3179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3182 :
3183 : #define D0_D0_ENABLED 1
3184 :
3185 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3186 :
3187 : #define SK_ENABLED 1
3188 :
3189 : #if SK5_ENABLED
3190 : module procedure setSplitIndCusComCusIns_D0_D0_SK5
3191 : #include "pm_arraySplit@routines.inc.F90"
3192 : end procedure
3193 : #endif
3194 :
3195 : #if SK4_ENABLED
3196 : module procedure setSplitIndCusComCusIns_D0_D0_SK4
3197 : #include "pm_arraySplit@routines.inc.F90"
3198 : end procedure
3199 : #endif
3200 :
3201 : #if SK3_ENABLED
3202 : module procedure setSplitIndCusComCusIns_D0_D0_SK3
3203 : #include "pm_arraySplit@routines.inc.F90"
3204 : end procedure
3205 : #endif
3206 :
3207 : #if SK2_ENABLED
3208 : module procedure setSplitIndCusComCusIns_D0_D0_SK2
3209 : #include "pm_arraySplit@routines.inc.F90"
3210 : end procedure
3211 : #endif
3212 :
3213 : #if SK1_ENABLED
3214 1800 : module procedure setSplitIndCusComCusIns_D0_D0_SK1
3215 : #include "pm_arraySplit@routines.inc.F90"
3216 : end procedure
3217 : #endif
3218 :
3219 : #undef SK_ENABLED
3220 :
3221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3222 :
3223 : #undef D0_D0_ENABLED
3224 :
3225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3226 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3228 :
3229 : #define D1_D0_ENABLED 1
3230 :
3231 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3232 :
3233 : #define SK_ENABLED 1
3234 :
3235 : #if SK5_ENABLED
3236 : module procedure setSplitIndCusComCusIns_D1_D0_SK5
3237 : #include "pm_arraySplit@routines.inc.F90"
3238 : end procedure
3239 : #endif
3240 :
3241 : #if SK4_ENABLED
3242 : module procedure setSplitIndCusComCusIns_D1_D0_SK4
3243 : #include "pm_arraySplit@routines.inc.F90"
3244 : end procedure
3245 : #endif
3246 :
3247 : #if SK3_ENABLED
3248 : module procedure setSplitIndCusComCusIns_D1_D0_SK3
3249 : #include "pm_arraySplit@routines.inc.F90"
3250 : end procedure
3251 : #endif
3252 :
3253 : #if SK2_ENABLED
3254 : module procedure setSplitIndCusComCusIns_D1_D0_SK2
3255 : #include "pm_arraySplit@routines.inc.F90"
3256 : end procedure
3257 : #endif
3258 :
3259 : #if SK1_ENABLED
3260 1584 : module procedure setSplitIndCusComCusIns_D1_D0_SK1
3261 : #include "pm_arraySplit@routines.inc.F90"
3262 : end procedure
3263 : #endif
3264 :
3265 : #undef SK_ENABLED
3266 :
3267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3268 :
3269 : #define IK_ENABLED 1
3270 :
3271 : #if IK5_ENABLED
3272 792 : module procedure setSplitIndCusComCusIns_D1_D0_IK5
3273 : #include "pm_arraySplit@routines.inc.F90"
3274 : end procedure
3275 : #endif
3276 :
3277 : #if IK4_ENABLED
3278 792 : module procedure setSplitIndCusComCusIns_D1_D0_IK4
3279 : #include "pm_arraySplit@routines.inc.F90"
3280 : end procedure
3281 : #endif
3282 :
3283 : #if IK3_ENABLED
3284 1584 : module procedure setSplitIndCusComCusIns_D1_D0_IK3
3285 : #include "pm_arraySplit@routines.inc.F90"
3286 : end procedure
3287 : #endif
3288 :
3289 : #if IK2_ENABLED
3290 792 : module procedure setSplitIndCusComCusIns_D1_D0_IK2
3291 : #include "pm_arraySplit@routines.inc.F90"
3292 : end procedure
3293 : #endif
3294 :
3295 : #if IK1_ENABLED
3296 792 : module procedure setSplitIndCusComCusIns_D1_D0_IK1
3297 : #include "pm_arraySplit@routines.inc.F90"
3298 : end procedure
3299 : #endif
3300 :
3301 : #undef IK_ENABLED
3302 :
3303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3304 :
3305 : #define LK_ENABLED 1
3306 :
3307 : #if LK5_ENABLED
3308 792 : module procedure setSplitIndCusComCusIns_D1_D0_LK5
3309 : #include "pm_arraySplit@routines.inc.F90"
3310 : end procedure
3311 : #endif
3312 :
3313 : #if LK4_ENABLED
3314 792 : module procedure setSplitIndCusComCusIns_D1_D0_LK4
3315 : #include "pm_arraySplit@routines.inc.F90"
3316 : end procedure
3317 : #endif
3318 :
3319 : #if LK3_ENABLED
3320 1584 : module procedure setSplitIndCusComCusIns_D1_D0_LK3
3321 : #include "pm_arraySplit@routines.inc.F90"
3322 : end procedure
3323 : #endif
3324 :
3325 : #if LK2_ENABLED
3326 792 : module procedure setSplitIndCusComCusIns_D1_D0_LK2
3327 : #include "pm_arraySplit@routines.inc.F90"
3328 : end procedure
3329 : #endif
3330 :
3331 : #if LK1_ENABLED
3332 792 : module procedure setSplitIndCusComCusIns_D1_D0_LK1
3333 : #include "pm_arraySplit@routines.inc.F90"
3334 : end procedure
3335 : #endif
3336 :
3337 : #undef LK_ENABLED
3338 :
3339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3340 :
3341 : #define CK_ENABLED 1
3342 :
3343 : #if CK5_ENABLED
3344 : module procedure setSplitIndCusComCusIns_D1_D0_CK5
3345 : #include "pm_arraySplit@routines.inc.F90"
3346 : end procedure
3347 : #endif
3348 :
3349 : #if CK4_ENABLED
3350 792 : module procedure setSplitIndCusComCusIns_D1_D0_CK4
3351 : #include "pm_arraySplit@routines.inc.F90"
3352 : end procedure
3353 : #endif
3354 :
3355 : #if CK3_ENABLED
3356 792 : module procedure setSplitIndCusComCusIns_D1_D0_CK3
3357 : #include "pm_arraySplit@routines.inc.F90"
3358 : end procedure
3359 : #endif
3360 :
3361 : #if CK2_ENABLED
3362 1584 : module procedure setSplitIndCusComCusIns_D1_D0_CK2
3363 : #include "pm_arraySplit@routines.inc.F90"
3364 : end procedure
3365 : #endif
3366 :
3367 : #if CK1_ENABLED
3368 792 : module procedure setSplitIndCusComCusIns_D1_D0_CK1
3369 : #include "pm_arraySplit@routines.inc.F90"
3370 : end procedure
3371 : #endif
3372 :
3373 : #undef CK_ENABLED
3374 :
3375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3376 :
3377 : #define RK_ENABLED 1
3378 :
3379 : #if RK5_ENABLED
3380 : module procedure setSplitIndCusComCusIns_D1_D0_RK5
3381 : #include "pm_arraySplit@routines.inc.F90"
3382 : end procedure
3383 : #endif
3384 :
3385 : #if RK4_ENABLED
3386 792 : module procedure setSplitIndCusComCusIns_D1_D0_RK4
3387 : #include "pm_arraySplit@routines.inc.F90"
3388 : end procedure
3389 : #endif
3390 :
3391 : #if RK3_ENABLED
3392 792 : module procedure setSplitIndCusComCusIns_D1_D0_RK3
3393 : #include "pm_arraySplit@routines.inc.F90"
3394 : end procedure
3395 : #endif
3396 :
3397 : #if RK2_ENABLED
3398 1586 : module procedure setSplitIndCusComCusIns_D1_D0_RK2
3399 : #include "pm_arraySplit@routines.inc.F90"
3400 : end procedure
3401 : #endif
3402 :
3403 : #if RK1_ENABLED
3404 792 : module procedure setSplitIndCusComCusIns_D1_D0_RK1
3405 : #include "pm_arraySplit@routines.inc.F90"
3406 : end procedure
3407 : #endif
3408 :
3409 : #undef RK_ENABLED
3410 :
3411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3412 :
3413 : #undef D1_D0_ENABLED
3414 :
3415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3418 :
3419 : #define D1_D1_ENABLED 1
3420 :
3421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3422 :
3423 : #define SK_ENABLED 1
3424 :
3425 : #if SK5_ENABLED
3426 : module procedure setSplitIndCusComCusIns_D1_D1_SK5
3427 : #include "pm_arraySplit@routines.inc.F90"
3428 : end procedure
3429 : #endif
3430 :
3431 : #if SK4_ENABLED
3432 : module procedure setSplitIndCusComCusIns_D1_D1_SK4
3433 : #include "pm_arraySplit@routines.inc.F90"
3434 : end procedure
3435 : #endif
3436 :
3437 : #if SK3_ENABLED
3438 : module procedure setSplitIndCusComCusIns_D1_D1_SK3
3439 : #include "pm_arraySplit@routines.inc.F90"
3440 : end procedure
3441 : #endif
3442 :
3443 : #if SK2_ENABLED
3444 : module procedure setSplitIndCusComCusIns_D1_D1_SK2
3445 : #include "pm_arraySplit@routines.inc.F90"
3446 : end procedure
3447 : #endif
3448 :
3449 : #if SK1_ENABLED
3450 1800 : module procedure setSplitIndCusComCusIns_D1_D1_SK1
3451 : #include "pm_arraySplit@routines.inc.F90"
3452 : end procedure
3453 : #endif
3454 :
3455 : #undef SK_ENABLED
3456 :
3457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3458 :
3459 : #define IK_ENABLED 1
3460 :
3461 : #if IK5_ENABLED
3462 900 : module procedure setSplitIndCusComCusIns_D1_D1_IK5
3463 : #include "pm_arraySplit@routines.inc.F90"
3464 : end procedure
3465 : #endif
3466 :
3467 : #if IK4_ENABLED
3468 900 : module procedure setSplitIndCusComCusIns_D1_D1_IK4
3469 : #include "pm_arraySplit@routines.inc.F90"
3470 : end procedure
3471 : #endif
3472 :
3473 : #if IK3_ENABLED
3474 1800 : module procedure setSplitIndCusComCusIns_D1_D1_IK3
3475 : #include "pm_arraySplit@routines.inc.F90"
3476 : end procedure
3477 : #endif
3478 :
3479 : #if IK2_ENABLED
3480 900 : module procedure setSplitIndCusComCusIns_D1_D1_IK2
3481 : #include "pm_arraySplit@routines.inc.F90"
3482 : end procedure
3483 : #endif
3484 :
3485 : #if IK1_ENABLED
3486 900 : module procedure setSplitIndCusComCusIns_D1_D1_IK1
3487 : #include "pm_arraySplit@routines.inc.F90"
3488 : end procedure
3489 : #endif
3490 :
3491 : #undef IK_ENABLED
3492 :
3493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3494 :
3495 : #define LK_ENABLED 1
3496 :
3497 : #if LK5_ENABLED
3498 900 : module procedure setSplitIndCusComCusIns_D1_D1_LK5
3499 : #include "pm_arraySplit@routines.inc.F90"
3500 : end procedure
3501 : #endif
3502 :
3503 : #if LK4_ENABLED
3504 900 : module procedure setSplitIndCusComCusIns_D1_D1_LK4
3505 : #include "pm_arraySplit@routines.inc.F90"
3506 : end procedure
3507 : #endif
3508 :
3509 : #if LK3_ENABLED
3510 1800 : module procedure setSplitIndCusComCusIns_D1_D1_LK3
3511 : #include "pm_arraySplit@routines.inc.F90"
3512 : end procedure
3513 : #endif
3514 :
3515 : #if LK2_ENABLED
3516 900 : module procedure setSplitIndCusComCusIns_D1_D1_LK2
3517 : #include "pm_arraySplit@routines.inc.F90"
3518 : end procedure
3519 : #endif
3520 :
3521 : #if LK1_ENABLED
3522 900 : module procedure setSplitIndCusComCusIns_D1_D1_LK1
3523 : #include "pm_arraySplit@routines.inc.F90"
3524 : end procedure
3525 : #endif
3526 :
3527 : #undef LK_ENABLED
3528 :
3529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3530 :
3531 : #define CK_ENABLED 1
3532 :
3533 : #if CK5_ENABLED
3534 : module procedure setSplitIndCusComCusIns_D1_D1_CK5
3535 : #include "pm_arraySplit@routines.inc.F90"
3536 : end procedure
3537 : #endif
3538 :
3539 : #if CK4_ENABLED
3540 900 : module procedure setSplitIndCusComCusIns_D1_D1_CK4
3541 : #include "pm_arraySplit@routines.inc.F90"
3542 : end procedure
3543 : #endif
3544 :
3545 : #if CK3_ENABLED
3546 900 : module procedure setSplitIndCusComCusIns_D1_D1_CK3
3547 : #include "pm_arraySplit@routines.inc.F90"
3548 : end procedure
3549 : #endif
3550 :
3551 : #if CK2_ENABLED
3552 1800 : module procedure setSplitIndCusComCusIns_D1_D1_CK2
3553 : #include "pm_arraySplit@routines.inc.F90"
3554 : end procedure
3555 : #endif
3556 :
3557 : #if CK1_ENABLED
3558 900 : module procedure setSplitIndCusComCusIns_D1_D1_CK1
3559 : #include "pm_arraySplit@routines.inc.F90"
3560 : end procedure
3561 : #endif
3562 :
3563 : #undef CK_ENABLED
3564 :
3565 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3566 :
3567 : #define RK_ENABLED 1
3568 :
3569 : #if RK5_ENABLED
3570 : module procedure setSplitIndCusComCusIns_D1_D1_RK5
3571 : #include "pm_arraySplit@routines.inc.F90"
3572 : end procedure
3573 : #endif
3574 :
3575 : #if RK4_ENABLED
3576 900 : module procedure setSplitIndCusComCusIns_D1_D1_RK4
3577 : #include "pm_arraySplit@routines.inc.F90"
3578 : end procedure
3579 : #endif
3580 :
3581 : #if RK3_ENABLED
3582 900 : module procedure setSplitIndCusComCusIns_D1_D1_RK3
3583 : #include "pm_arraySplit@routines.inc.F90"
3584 : end procedure
3585 : #endif
3586 :
3587 : #if RK2_ENABLED
3588 1802 : module procedure setSplitIndCusComCusIns_D1_D1_RK2
3589 : #include "pm_arraySplit@routines.inc.F90"
3590 : end procedure
3591 : #endif
3592 :
3593 : #if RK1_ENABLED
3594 900 : module procedure setSplitIndCusComCusIns_D1_D1_RK1
3595 : #include "pm_arraySplit@routines.inc.F90"
3596 : end procedure
3597 : #endif
3598 :
3599 : #undef RK_ENABLED
3600 :
3601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3602 :
3603 : #undef D1_D1_ENABLED
3604 :
3605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3608 :
3609 : #undef CusIns_ENABLED
3610 : #undef CusCom_ENABLED
3611 :
3612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3615 :
3616 : #undef Index_ENABLED
3617 :
3618 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3619 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3621 :
3622 : #undef setSplit_ENABLED
3623 :
3624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3625 :
3626 : #define setSplit_ENABLED 1
3627 :
3628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3631 :
3632 : #define Jagged_ENABLED 1
3633 :
3634 : !#if !__GFORTRAN__
3635 : ! LCOV_EXCL_START
3636 :
3637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3638 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3639 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3640 :
3641 : #define DefIns_ENABLED 1
3642 : #define DefCom_ENABLED 1
3643 :
3644 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3645 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3646 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3647 :
3648 : #define D0_D0_ENABLED 1
3649 :
3650 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3651 :
3652 : #define SK_ENABLED 1
3653 :
3654 : #if SK5_ENABLED
3655 : module procedure setSplitConDefComDefIns_D0_D0_SK5
3656 : #include "pm_arraySplit@routines.inc.F90"
3657 : end procedure
3658 : #endif
3659 :
3660 : #if SK4_ENABLED
3661 : module procedure setSplitConDefComDefIns_D0_D0_SK4
3662 : #include "pm_arraySplit@routines.inc.F90"
3663 : end procedure
3664 : #endif
3665 :
3666 : #if SK3_ENABLED
3667 : module procedure setSplitConDefComDefIns_D0_D0_SK3
3668 : #include "pm_arraySplit@routines.inc.F90"
3669 : end procedure
3670 : #endif
3671 :
3672 : #if SK2_ENABLED
3673 : module procedure setSplitConDefComDefIns_D0_D0_SK2
3674 : #include "pm_arraySplit@routines.inc.F90"
3675 : end procedure
3676 : #endif
3677 :
3678 : #if SK1_ENABLED
3679 : module procedure setSplitConDefComDefIns_D0_D0_SK1
3680 : #include "pm_arraySplit@routines.inc.F90"
3681 : end procedure
3682 : #endif
3683 :
3684 : #undef SK_ENABLED
3685 :
3686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3687 :
3688 : #undef D0_D0_ENABLED
3689 :
3690 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3691 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3693 :
3694 : #define D1_D0_ENABLED 1
3695 :
3696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3697 :
3698 : #define SK_ENABLED 1
3699 :
3700 : #if SK5_ENABLED
3701 : module procedure setSplitConDefComDefIns_D1_D0_SK5
3702 : #include "pm_arraySplit@routines.inc.F90"
3703 : end procedure
3704 : #endif
3705 :
3706 : #if SK4_ENABLED
3707 : module procedure setSplitConDefComDefIns_D1_D0_SK4
3708 : #include "pm_arraySplit@routines.inc.F90"
3709 : end procedure
3710 : #endif
3711 :
3712 : #if SK3_ENABLED
3713 : module procedure setSplitConDefComDefIns_D1_D0_SK3
3714 : #include "pm_arraySplit@routines.inc.F90"
3715 : end procedure
3716 : #endif
3717 :
3718 : #if SK2_ENABLED
3719 : module procedure setSplitConDefComDefIns_D1_D0_SK2
3720 : #include "pm_arraySplit@routines.inc.F90"
3721 : end procedure
3722 : #endif
3723 :
3724 : #if SK1_ENABLED
3725 : module procedure setSplitConDefComDefIns_D1_D0_SK1
3726 : #include "pm_arraySplit@routines.inc.F90"
3727 : end procedure
3728 : #endif
3729 :
3730 : #undef SK_ENABLED
3731 :
3732 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3733 :
3734 : #define IK_ENABLED 1
3735 :
3736 : #if IK5_ENABLED
3737 : module procedure setSplitConDefComDefIns_D1_D0_IK5
3738 : #include "pm_arraySplit@routines.inc.F90"
3739 : end procedure
3740 : #endif
3741 :
3742 : #if IK4_ENABLED
3743 : module procedure setSplitConDefComDefIns_D1_D0_IK4
3744 : #include "pm_arraySplit@routines.inc.F90"
3745 : end procedure
3746 : #endif
3747 :
3748 : #if IK3_ENABLED
3749 : module procedure setSplitConDefComDefIns_D1_D0_IK3
3750 : #include "pm_arraySplit@routines.inc.F90"
3751 : end procedure
3752 : #endif
3753 :
3754 : #if IK2_ENABLED
3755 : module procedure setSplitConDefComDefIns_D1_D0_IK2
3756 : #include "pm_arraySplit@routines.inc.F90"
3757 : end procedure
3758 : #endif
3759 :
3760 : #if IK1_ENABLED
3761 : module procedure setSplitConDefComDefIns_D1_D0_IK1
3762 : #include "pm_arraySplit@routines.inc.F90"
3763 : end procedure
3764 : #endif
3765 :
3766 : #undef IK_ENABLED
3767 :
3768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3769 :
3770 : #define LK_ENABLED 1
3771 :
3772 : #if LK5_ENABLED
3773 : module procedure setSplitConDefComDefIns_D1_D0_LK5
3774 : #include "pm_arraySplit@routines.inc.F90"
3775 : end procedure
3776 : #endif
3777 :
3778 : #if LK4_ENABLED
3779 : module procedure setSplitConDefComDefIns_D1_D0_LK4
3780 : #include "pm_arraySplit@routines.inc.F90"
3781 : end procedure
3782 : #endif
3783 :
3784 : #if LK3_ENABLED
3785 : module procedure setSplitConDefComDefIns_D1_D0_LK3
3786 : #include "pm_arraySplit@routines.inc.F90"
3787 : end procedure
3788 : #endif
3789 :
3790 : #if LK2_ENABLED
3791 : module procedure setSplitConDefComDefIns_D1_D0_LK2
3792 : #include "pm_arraySplit@routines.inc.F90"
3793 : end procedure
3794 : #endif
3795 :
3796 : #if LK1_ENABLED
3797 : module procedure setSplitConDefComDefIns_D1_D0_LK1
3798 : #include "pm_arraySplit@routines.inc.F90"
3799 : end procedure
3800 : #endif
3801 :
3802 : #undef LK_ENABLED
3803 :
3804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3805 :
3806 : #define CK_ENABLED 1
3807 :
3808 : #if CK5_ENABLED
3809 : module procedure setSplitConDefComDefIns_D1_D0_CK5
3810 : #include "pm_arraySplit@routines.inc.F90"
3811 : end procedure
3812 : #endif
3813 :
3814 : #if CK4_ENABLED
3815 : module procedure setSplitConDefComDefIns_D1_D0_CK4
3816 : #include "pm_arraySplit@routines.inc.F90"
3817 : end procedure
3818 : #endif
3819 :
3820 : #if CK3_ENABLED
3821 : module procedure setSplitConDefComDefIns_D1_D0_CK3
3822 : #include "pm_arraySplit@routines.inc.F90"
3823 : end procedure
3824 : #endif
3825 :
3826 : #if CK2_ENABLED
3827 : module procedure setSplitConDefComDefIns_D1_D0_CK2
3828 : #include "pm_arraySplit@routines.inc.F90"
3829 : end procedure
3830 : #endif
3831 :
3832 : #if CK1_ENABLED
3833 : module procedure setSplitConDefComDefIns_D1_D0_CK1
3834 : #include "pm_arraySplit@routines.inc.F90"
3835 : end procedure
3836 : #endif
3837 :
3838 : #undef CK_ENABLED
3839 :
3840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3841 :
3842 : #define RK_ENABLED 1
3843 :
3844 : #if RK5_ENABLED
3845 : module procedure setSplitConDefComDefIns_D1_D0_RK5
3846 : #include "pm_arraySplit@routines.inc.F90"
3847 : end procedure
3848 : #endif
3849 :
3850 : #if RK4_ENABLED
3851 : module procedure setSplitConDefComDefIns_D1_D0_RK4
3852 : #include "pm_arraySplit@routines.inc.F90"
3853 : end procedure
3854 : #endif
3855 :
3856 : #if RK3_ENABLED
3857 : module procedure setSplitConDefComDefIns_D1_D0_RK3
3858 : #include "pm_arraySplit@routines.inc.F90"
3859 : end procedure
3860 : #endif
3861 :
3862 : #if RK2_ENABLED
3863 : module procedure setSplitConDefComDefIns_D1_D0_RK2
3864 : #include "pm_arraySplit@routines.inc.F90"
3865 : end procedure
3866 : #endif
3867 :
3868 : #if RK1_ENABLED
3869 : module procedure setSplitConDefComDefIns_D1_D0_RK1
3870 : #include "pm_arraySplit@routines.inc.F90"
3871 : end procedure
3872 : #endif
3873 :
3874 : #undef RK_ENABLED
3875 :
3876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3877 :
3878 : #undef D1_D0_ENABLED
3879 :
3880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3881 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3883 :
3884 : #define D1_D1_ENABLED 1
3885 :
3886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3887 :
3888 : #define SK_ENABLED 1
3889 :
3890 : #if SK5_ENABLED
3891 : module procedure setSplitConDefComDefIns_D1_D1_SK5
3892 : #include "pm_arraySplit@routines.inc.F90"
3893 : end procedure
3894 : #endif
3895 :
3896 : #if SK4_ENABLED
3897 : module procedure setSplitConDefComDefIns_D1_D1_SK4
3898 : #include "pm_arraySplit@routines.inc.F90"
3899 : end procedure
3900 : #endif
3901 :
3902 : #if SK3_ENABLED
3903 : module procedure setSplitConDefComDefIns_D1_D1_SK3
3904 : #include "pm_arraySplit@routines.inc.F90"
3905 : end procedure
3906 : #endif
3907 :
3908 : #if SK2_ENABLED
3909 : module procedure setSplitConDefComDefIns_D1_D1_SK2
3910 : #include "pm_arraySplit@routines.inc.F90"
3911 : end procedure
3912 : #endif
3913 :
3914 : #if SK1_ENABLED
3915 : module procedure setSplitConDefComDefIns_D1_D1_SK1
3916 : #include "pm_arraySplit@routines.inc.F90"
3917 : end procedure
3918 : #endif
3919 :
3920 : #undef SK_ENABLED
3921 :
3922 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3923 :
3924 : #define IK_ENABLED 1
3925 :
3926 : #if IK5_ENABLED
3927 : module procedure setSplitConDefComDefIns_D1_D1_IK5
3928 : #include "pm_arraySplit@routines.inc.F90"
3929 : end procedure
3930 : #endif
3931 :
3932 : #if IK4_ENABLED
3933 : module procedure setSplitConDefComDefIns_D1_D1_IK4
3934 : #include "pm_arraySplit@routines.inc.F90"
3935 : end procedure
3936 : #endif
3937 :
3938 : #if IK3_ENABLED
3939 : module procedure setSplitConDefComDefIns_D1_D1_IK3
3940 : #include "pm_arraySplit@routines.inc.F90"
3941 : end procedure
3942 : #endif
3943 :
3944 : #if IK2_ENABLED
3945 : module procedure setSplitConDefComDefIns_D1_D1_IK2
3946 : #include "pm_arraySplit@routines.inc.F90"
3947 : end procedure
3948 : #endif
3949 :
3950 : #if IK1_ENABLED
3951 : module procedure setSplitConDefComDefIns_D1_D1_IK1
3952 : #include "pm_arraySplit@routines.inc.F90"
3953 : end procedure
3954 : #endif
3955 :
3956 : #undef IK_ENABLED
3957 :
3958 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3959 :
3960 : #define LK_ENABLED 1
3961 :
3962 : #if LK5_ENABLED
3963 : module procedure setSplitConDefComDefIns_D1_D1_LK5
3964 : #include "pm_arraySplit@routines.inc.F90"
3965 : end procedure
3966 : #endif
3967 :
3968 : #if LK4_ENABLED
3969 : module procedure setSplitConDefComDefIns_D1_D1_LK4
3970 : #include "pm_arraySplit@routines.inc.F90"
3971 : end procedure
3972 : #endif
3973 :
3974 : #if LK3_ENABLED
3975 : module procedure setSplitConDefComDefIns_D1_D1_LK3
3976 : #include "pm_arraySplit@routines.inc.F90"
3977 : end procedure
3978 : #endif
3979 :
3980 : #if LK2_ENABLED
3981 : module procedure setSplitConDefComDefIns_D1_D1_LK2
3982 : #include "pm_arraySplit@routines.inc.F90"
3983 : end procedure
3984 : #endif
3985 :
3986 : #if LK1_ENABLED
3987 : module procedure setSplitConDefComDefIns_D1_D1_LK1
3988 : #include "pm_arraySplit@routines.inc.F90"
3989 : end procedure
3990 : #endif
3991 :
3992 : #undef LK_ENABLED
3993 :
3994 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3995 :
3996 : #define CK_ENABLED 1
3997 :
3998 : #if CK5_ENABLED
3999 : module procedure setSplitConDefComDefIns_D1_D1_CK5
4000 : #include "pm_arraySplit@routines.inc.F90"
4001 : end procedure
4002 : #endif
4003 :
4004 : #if CK4_ENABLED
4005 : module procedure setSplitConDefComDefIns_D1_D1_CK4
4006 : #include "pm_arraySplit@routines.inc.F90"
4007 : end procedure
4008 : #endif
4009 :
4010 : #if CK3_ENABLED
4011 : module procedure setSplitConDefComDefIns_D1_D1_CK3
4012 : #include "pm_arraySplit@routines.inc.F90"
4013 : end procedure
4014 : #endif
4015 :
4016 : #if CK2_ENABLED
4017 : module procedure setSplitConDefComDefIns_D1_D1_CK2
4018 : #include "pm_arraySplit@routines.inc.F90"
4019 : end procedure
4020 : #endif
4021 :
4022 : #if CK1_ENABLED
4023 : module procedure setSplitConDefComDefIns_D1_D1_CK1
4024 : #include "pm_arraySplit@routines.inc.F90"
4025 : end procedure
4026 : #endif
4027 :
4028 : #undef CK_ENABLED
4029 :
4030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4031 :
4032 : #define RK_ENABLED 1
4033 :
4034 : #if RK5_ENABLED
4035 : module procedure setSplitConDefComDefIns_D1_D1_RK5
4036 : #include "pm_arraySplit@routines.inc.F90"
4037 : end procedure
4038 : #endif
4039 :
4040 : #if RK4_ENABLED
4041 : module procedure setSplitConDefComDefIns_D1_D1_RK4
4042 : #include "pm_arraySplit@routines.inc.F90"
4043 : end procedure
4044 : #endif
4045 :
4046 : #if RK3_ENABLED
4047 : module procedure setSplitConDefComDefIns_D1_D1_RK3
4048 : #include "pm_arraySplit@routines.inc.F90"
4049 : end procedure
4050 : #endif
4051 :
4052 : #if RK2_ENABLED
4053 : module procedure setSplitConDefComDefIns_D1_D1_RK2
4054 : #include "pm_arraySplit@routines.inc.F90"
4055 : end procedure
4056 : #endif
4057 :
4058 : #if RK1_ENABLED
4059 : module procedure setSplitConDefComDefIns_D1_D1_RK1
4060 : #include "pm_arraySplit@routines.inc.F90"
4061 : end procedure
4062 : #endif
4063 :
4064 : #undef RK_ENABLED
4065 :
4066 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4067 :
4068 : #undef D1_D1_ENABLED
4069 :
4070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4071 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4072 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4073 :
4074 : #undef DefIns_ENABLED
4075 : #undef DefCom_ENABLED
4076 :
4077 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4078 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4079 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4080 :
4081 : #define CusCom_ENABLED 1
4082 : #define DefIns_ENABLED 1
4083 :
4084 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4087 :
4088 : #define D0_D0_ENABLED 1
4089 :
4090 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4091 :
4092 : #define SK_ENABLED 1
4093 :
4094 : #if SK5_ENABLED
4095 : module procedure setSplitConCusComDefIns_D0_D0_SK5
4096 : #include "pm_arraySplit@routines.inc.F90"
4097 : end procedure
4098 : #endif
4099 :
4100 : #if SK4_ENABLED
4101 : module procedure setSplitConCusComDefIns_D0_D0_SK4
4102 : #include "pm_arraySplit@routines.inc.F90"
4103 : end procedure
4104 : #endif
4105 :
4106 : #if SK3_ENABLED
4107 : module procedure setSplitConCusComDefIns_D0_D0_SK3
4108 : #include "pm_arraySplit@routines.inc.F90"
4109 : end procedure
4110 : #endif
4111 :
4112 : #if SK2_ENABLED
4113 : module procedure setSplitConCusComDefIns_D0_D0_SK2
4114 : #include "pm_arraySplit@routines.inc.F90"
4115 : end procedure
4116 : #endif
4117 :
4118 : #if SK1_ENABLED
4119 : module procedure setSplitConCusComDefIns_D0_D0_SK1
4120 : #include "pm_arraySplit@routines.inc.F90"
4121 : end procedure
4122 : #endif
4123 :
4124 : #undef SK_ENABLED
4125 :
4126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4127 :
4128 : #undef D0_D0_ENABLED
4129 :
4130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4133 :
4134 : #define D1_D0_ENABLED 1
4135 :
4136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4137 :
4138 : #define SK_ENABLED 1
4139 :
4140 : #if SK5_ENABLED
4141 : module procedure setSplitConCusComDefIns_D1_D0_SK5
4142 : #include "pm_arraySplit@routines.inc.F90"
4143 : end procedure
4144 : #endif
4145 :
4146 : #if SK4_ENABLED
4147 : module procedure setSplitConCusComDefIns_D1_D0_SK4
4148 : #include "pm_arraySplit@routines.inc.F90"
4149 : end procedure
4150 : #endif
4151 :
4152 : #if SK3_ENABLED
4153 : module procedure setSplitConCusComDefIns_D1_D0_SK3
4154 : #include "pm_arraySplit@routines.inc.F90"
4155 : end procedure
4156 : #endif
4157 :
4158 : #if SK2_ENABLED
4159 : module procedure setSplitConCusComDefIns_D1_D0_SK2
4160 : #include "pm_arraySplit@routines.inc.F90"
4161 : end procedure
4162 : #endif
4163 :
4164 : #if SK1_ENABLED
4165 : module procedure setSplitConCusComDefIns_D1_D0_SK1
4166 : #include "pm_arraySplit@routines.inc.F90"
4167 : end procedure
4168 : #endif
4169 :
4170 : #undef SK_ENABLED
4171 :
4172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4173 :
4174 : #define IK_ENABLED 1
4175 :
4176 : #if IK5_ENABLED
4177 : module procedure setSplitConCusComDefIns_D1_D0_IK5
4178 : #include "pm_arraySplit@routines.inc.F90"
4179 : end procedure
4180 : #endif
4181 :
4182 : #if IK4_ENABLED
4183 : module procedure setSplitConCusComDefIns_D1_D0_IK4
4184 : #include "pm_arraySplit@routines.inc.F90"
4185 : end procedure
4186 : #endif
4187 :
4188 : #if IK3_ENABLED
4189 : module procedure setSplitConCusComDefIns_D1_D0_IK3
4190 : #include "pm_arraySplit@routines.inc.F90"
4191 : end procedure
4192 : #endif
4193 :
4194 : #if IK2_ENABLED
4195 : module procedure setSplitConCusComDefIns_D1_D0_IK2
4196 : #include "pm_arraySplit@routines.inc.F90"
4197 : end procedure
4198 : #endif
4199 :
4200 : #if IK1_ENABLED
4201 : module procedure setSplitConCusComDefIns_D1_D0_IK1
4202 : #include "pm_arraySplit@routines.inc.F90"
4203 : end procedure
4204 : #endif
4205 :
4206 : #undef IK_ENABLED
4207 :
4208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4209 :
4210 : #define LK_ENABLED 1
4211 :
4212 : #if LK5_ENABLED
4213 : module procedure setSplitConCusComDefIns_D1_D0_LK5
4214 : #include "pm_arraySplit@routines.inc.F90"
4215 : end procedure
4216 : #endif
4217 :
4218 : #if LK4_ENABLED
4219 : module procedure setSplitConCusComDefIns_D1_D0_LK4
4220 : #include "pm_arraySplit@routines.inc.F90"
4221 : end procedure
4222 : #endif
4223 :
4224 : #if LK3_ENABLED
4225 : module procedure setSplitConCusComDefIns_D1_D0_LK3
4226 : #include "pm_arraySplit@routines.inc.F90"
4227 : end procedure
4228 : #endif
4229 :
4230 : #if LK2_ENABLED
4231 : module procedure setSplitConCusComDefIns_D1_D0_LK2
4232 : #include "pm_arraySplit@routines.inc.F90"
4233 : end procedure
4234 : #endif
4235 :
4236 : #if LK1_ENABLED
4237 : module procedure setSplitConCusComDefIns_D1_D0_LK1
4238 : #include "pm_arraySplit@routines.inc.F90"
4239 : end procedure
4240 : #endif
4241 :
4242 : #undef LK_ENABLED
4243 :
4244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4245 :
4246 : #define CK_ENABLED 1
4247 :
4248 : #if CK5_ENABLED
4249 : module procedure setSplitConCusComDefIns_D1_D0_CK5
4250 : #include "pm_arraySplit@routines.inc.F90"
4251 : end procedure
4252 : #endif
4253 :
4254 : #if CK4_ENABLED
4255 : module procedure setSplitConCusComDefIns_D1_D0_CK4
4256 : #include "pm_arraySplit@routines.inc.F90"
4257 : end procedure
4258 : #endif
4259 :
4260 : #if CK3_ENABLED
4261 : module procedure setSplitConCusComDefIns_D1_D0_CK3
4262 : #include "pm_arraySplit@routines.inc.F90"
4263 : end procedure
4264 : #endif
4265 :
4266 : #if CK2_ENABLED
4267 : module procedure setSplitConCusComDefIns_D1_D0_CK2
4268 : #include "pm_arraySplit@routines.inc.F90"
4269 : end procedure
4270 : #endif
4271 :
4272 : #if CK1_ENABLED
4273 : module procedure setSplitConCusComDefIns_D1_D0_CK1
4274 : #include "pm_arraySplit@routines.inc.F90"
4275 : end procedure
4276 : #endif
4277 :
4278 : #undef CK_ENABLED
4279 :
4280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4281 :
4282 : #define RK_ENABLED 1
4283 :
4284 : #if RK5_ENABLED
4285 : module procedure setSplitConCusComDefIns_D1_D0_RK5
4286 : #include "pm_arraySplit@routines.inc.F90"
4287 : end procedure
4288 : #endif
4289 :
4290 : #if RK4_ENABLED
4291 : module procedure setSplitConCusComDefIns_D1_D0_RK4
4292 : #include "pm_arraySplit@routines.inc.F90"
4293 : end procedure
4294 : #endif
4295 :
4296 : #if RK3_ENABLED
4297 : module procedure setSplitConCusComDefIns_D1_D0_RK3
4298 : #include "pm_arraySplit@routines.inc.F90"
4299 : end procedure
4300 : #endif
4301 :
4302 : #if RK2_ENABLED
4303 : module procedure setSplitConCusComDefIns_D1_D0_RK2
4304 : #include "pm_arraySplit@routines.inc.F90"
4305 : end procedure
4306 : #endif
4307 :
4308 : #if RK1_ENABLED
4309 : module procedure setSplitConCusComDefIns_D1_D0_RK1
4310 : #include "pm_arraySplit@routines.inc.F90"
4311 : end procedure
4312 : #endif
4313 :
4314 : #undef RK_ENABLED
4315 :
4316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4317 :
4318 : #undef D1_D0_ENABLED
4319 :
4320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4323 :
4324 : #define D1_D1_ENABLED 1
4325 :
4326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4327 :
4328 : #define SK_ENABLED 1
4329 :
4330 : #if SK5_ENABLED
4331 : module procedure setSplitConCusComDefIns_D1_D1_SK5
4332 : #include "pm_arraySplit@routines.inc.F90"
4333 : end procedure
4334 : #endif
4335 :
4336 : #if SK4_ENABLED
4337 : module procedure setSplitConCusComDefIns_D1_D1_SK4
4338 : #include "pm_arraySplit@routines.inc.F90"
4339 : end procedure
4340 : #endif
4341 :
4342 : #if SK3_ENABLED
4343 : module procedure setSplitConCusComDefIns_D1_D1_SK3
4344 : #include "pm_arraySplit@routines.inc.F90"
4345 : end procedure
4346 : #endif
4347 :
4348 : #if SK2_ENABLED
4349 : module procedure setSplitConCusComDefIns_D1_D1_SK2
4350 : #include "pm_arraySplit@routines.inc.F90"
4351 : end procedure
4352 : #endif
4353 :
4354 : #if SK1_ENABLED
4355 : module procedure setSplitConCusComDefIns_D1_D1_SK1
4356 : #include "pm_arraySplit@routines.inc.F90"
4357 : end procedure
4358 : #endif
4359 :
4360 : #undef SK_ENABLED
4361 :
4362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4363 :
4364 : #define IK_ENABLED 1
4365 :
4366 : #if IK5_ENABLED
4367 : module procedure setSplitConCusComDefIns_D1_D1_IK5
4368 : #include "pm_arraySplit@routines.inc.F90"
4369 : end procedure
4370 : #endif
4371 :
4372 : #if IK4_ENABLED
4373 : module procedure setSplitConCusComDefIns_D1_D1_IK4
4374 : #include "pm_arraySplit@routines.inc.F90"
4375 : end procedure
4376 : #endif
4377 :
4378 : #if IK3_ENABLED
4379 : module procedure setSplitConCusComDefIns_D1_D1_IK3
4380 : #include "pm_arraySplit@routines.inc.F90"
4381 : end procedure
4382 : #endif
4383 :
4384 : #if IK2_ENABLED
4385 : module procedure setSplitConCusComDefIns_D1_D1_IK2
4386 : #include "pm_arraySplit@routines.inc.F90"
4387 : end procedure
4388 : #endif
4389 :
4390 : #if IK1_ENABLED
4391 : module procedure setSplitConCusComDefIns_D1_D1_IK1
4392 : #include "pm_arraySplit@routines.inc.F90"
4393 : end procedure
4394 : #endif
4395 :
4396 : #undef IK_ENABLED
4397 :
4398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4399 :
4400 : #define LK_ENABLED 1
4401 :
4402 : #if LK5_ENABLED
4403 : module procedure setSplitConCusComDefIns_D1_D1_LK5
4404 : #include "pm_arraySplit@routines.inc.F90"
4405 : end procedure
4406 : #endif
4407 :
4408 : #if LK4_ENABLED
4409 : module procedure setSplitConCusComDefIns_D1_D1_LK4
4410 : #include "pm_arraySplit@routines.inc.F90"
4411 : end procedure
4412 : #endif
4413 :
4414 : #if LK3_ENABLED
4415 : module procedure setSplitConCusComDefIns_D1_D1_LK3
4416 : #include "pm_arraySplit@routines.inc.F90"
4417 : end procedure
4418 : #endif
4419 :
4420 : #if LK2_ENABLED
4421 : module procedure setSplitConCusComDefIns_D1_D1_LK2
4422 : #include "pm_arraySplit@routines.inc.F90"
4423 : end procedure
4424 : #endif
4425 :
4426 : #if LK1_ENABLED
4427 : module procedure setSplitConCusComDefIns_D1_D1_LK1
4428 : #include "pm_arraySplit@routines.inc.F90"
4429 : end procedure
4430 : #endif
4431 :
4432 : #undef LK_ENABLED
4433 :
4434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4435 :
4436 : #define CK_ENABLED 1
4437 :
4438 : #if CK5_ENABLED
4439 : module procedure setSplitConCusComDefIns_D1_D1_CK5
4440 : #include "pm_arraySplit@routines.inc.F90"
4441 : end procedure
4442 : #endif
4443 :
4444 : #if CK4_ENABLED
4445 : module procedure setSplitConCusComDefIns_D1_D1_CK4
4446 : #include "pm_arraySplit@routines.inc.F90"
4447 : end procedure
4448 : #endif
4449 :
4450 : #if CK3_ENABLED
4451 : module procedure setSplitConCusComDefIns_D1_D1_CK3
4452 : #include "pm_arraySplit@routines.inc.F90"
4453 : end procedure
4454 : #endif
4455 :
4456 : #if CK2_ENABLED
4457 : module procedure setSplitConCusComDefIns_D1_D1_CK2
4458 : #include "pm_arraySplit@routines.inc.F90"
4459 : end procedure
4460 : #endif
4461 :
4462 : #if CK1_ENABLED
4463 : module procedure setSplitConCusComDefIns_D1_D1_CK1
4464 : #include "pm_arraySplit@routines.inc.F90"
4465 : end procedure
4466 : #endif
4467 :
4468 : #undef CK_ENABLED
4469 :
4470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4471 :
4472 : #define RK_ENABLED 1
4473 :
4474 : #if RK5_ENABLED
4475 : module procedure setSplitConCusComDefIns_D1_D1_RK5
4476 : #include "pm_arraySplit@routines.inc.F90"
4477 : end procedure
4478 : #endif
4479 :
4480 : #if RK4_ENABLED
4481 : module procedure setSplitConCusComDefIns_D1_D1_RK4
4482 : #include "pm_arraySplit@routines.inc.F90"
4483 : end procedure
4484 : #endif
4485 :
4486 : #if RK3_ENABLED
4487 : module procedure setSplitConCusComDefIns_D1_D1_RK3
4488 : #include "pm_arraySplit@routines.inc.F90"
4489 : end procedure
4490 : #endif
4491 :
4492 : #if RK2_ENABLED
4493 : module procedure setSplitConCusComDefIns_D1_D1_RK2
4494 : #include "pm_arraySplit@routines.inc.F90"
4495 : end procedure
4496 : #endif
4497 :
4498 : #if RK1_ENABLED
4499 : module procedure setSplitConCusComDefIns_D1_D1_RK1
4500 : #include "pm_arraySplit@routines.inc.F90"
4501 : end procedure
4502 : #endif
4503 :
4504 : #undef RK_ENABLED
4505 :
4506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4507 :
4508 : #undef D1_D1_ENABLED
4509 :
4510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4513 :
4514 : #undef CusCom_ENABLED
4515 : #undef DefIns_ENABLED
4516 :
4517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4520 :
4521 : #define DefCom_ENABLED 1
4522 : #define CusIns_ENABLED 1
4523 :
4524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4527 :
4528 : #define D0_D0_ENABLED 1
4529 :
4530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4531 :
4532 : #define SK_ENABLED 1
4533 :
4534 : #if SK5_ENABLED
4535 : module procedure setSplitConDefComCusIns_D0_D0_SK5
4536 : #include "pm_arraySplit@routines.inc.F90"
4537 : end procedure
4538 : #endif
4539 :
4540 : #if SK4_ENABLED
4541 : module procedure setSplitConDefComCusIns_D0_D0_SK4
4542 : #include "pm_arraySplit@routines.inc.F90"
4543 : end procedure
4544 : #endif
4545 :
4546 : #if SK3_ENABLED
4547 : module procedure setSplitConDefComCusIns_D0_D0_SK3
4548 : #include "pm_arraySplit@routines.inc.F90"
4549 : end procedure
4550 : #endif
4551 :
4552 : #if SK2_ENABLED
4553 : module procedure setSplitConDefComCusIns_D0_D0_SK2
4554 : #include "pm_arraySplit@routines.inc.F90"
4555 : end procedure
4556 : #endif
4557 :
4558 : #if SK1_ENABLED
4559 : module procedure setSplitConDefComCusIns_D0_D0_SK1
4560 : #include "pm_arraySplit@routines.inc.F90"
4561 : end procedure
4562 : #endif
4563 :
4564 : #undef SK_ENABLED
4565 :
4566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4567 :
4568 : #undef D0_D0_ENABLED
4569 :
4570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4573 :
4574 : #define D1_D0_ENABLED 1
4575 :
4576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4577 :
4578 : #define SK_ENABLED 1
4579 :
4580 : #if SK5_ENABLED
4581 : module procedure setSplitConDefComCusIns_D1_D0_SK5
4582 : #include "pm_arraySplit@routines.inc.F90"
4583 : end procedure
4584 : #endif
4585 :
4586 : #if SK4_ENABLED
4587 : module procedure setSplitConDefComCusIns_D1_D0_SK4
4588 : #include "pm_arraySplit@routines.inc.F90"
4589 : end procedure
4590 : #endif
4591 :
4592 : #if SK3_ENABLED
4593 : module procedure setSplitConDefComCusIns_D1_D0_SK3
4594 : #include "pm_arraySplit@routines.inc.F90"
4595 : end procedure
4596 : #endif
4597 :
4598 : #if SK2_ENABLED
4599 : module procedure setSplitConDefComCusIns_D1_D0_SK2
4600 : #include "pm_arraySplit@routines.inc.F90"
4601 : end procedure
4602 : #endif
4603 :
4604 : #if SK1_ENABLED
4605 : module procedure setSplitConDefComCusIns_D1_D0_SK1
4606 : #include "pm_arraySplit@routines.inc.F90"
4607 : end procedure
4608 : #endif
4609 :
4610 : #undef SK_ENABLED
4611 :
4612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4613 :
4614 : #define IK_ENABLED 1
4615 :
4616 : #if IK5_ENABLED
4617 : module procedure setSplitConDefComCusIns_D1_D0_IK5
4618 : #include "pm_arraySplit@routines.inc.F90"
4619 : end procedure
4620 : #endif
4621 :
4622 : #if IK4_ENABLED
4623 : module procedure setSplitConDefComCusIns_D1_D0_IK4
4624 : #include "pm_arraySplit@routines.inc.F90"
4625 : end procedure
4626 : #endif
4627 :
4628 : #if IK3_ENABLED
4629 : module procedure setSplitConDefComCusIns_D1_D0_IK3
4630 : #include "pm_arraySplit@routines.inc.F90"
4631 : end procedure
4632 : #endif
4633 :
4634 : #if IK2_ENABLED
4635 : module procedure setSplitConDefComCusIns_D1_D0_IK2
4636 : #include "pm_arraySplit@routines.inc.F90"
4637 : end procedure
4638 : #endif
4639 :
4640 : #if IK1_ENABLED
4641 : module procedure setSplitConDefComCusIns_D1_D0_IK1
4642 : #include "pm_arraySplit@routines.inc.F90"
4643 : end procedure
4644 : #endif
4645 :
4646 : #undef IK_ENABLED
4647 :
4648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4649 :
4650 : #define LK_ENABLED 1
4651 :
4652 : #if LK5_ENABLED
4653 : module procedure setSplitConDefComCusIns_D1_D0_LK5
4654 : #include "pm_arraySplit@routines.inc.F90"
4655 : end procedure
4656 : #endif
4657 :
4658 : #if LK4_ENABLED
4659 : module procedure setSplitConDefComCusIns_D1_D0_LK4
4660 : #include "pm_arraySplit@routines.inc.F90"
4661 : end procedure
4662 : #endif
4663 :
4664 : #if LK3_ENABLED
4665 : module procedure setSplitConDefComCusIns_D1_D0_LK3
4666 : #include "pm_arraySplit@routines.inc.F90"
4667 : end procedure
4668 : #endif
4669 :
4670 : #if LK2_ENABLED
4671 : module procedure setSplitConDefComCusIns_D1_D0_LK2
4672 : #include "pm_arraySplit@routines.inc.F90"
4673 : end procedure
4674 : #endif
4675 :
4676 : #if LK1_ENABLED
4677 : module procedure setSplitConDefComCusIns_D1_D0_LK1
4678 : #include "pm_arraySplit@routines.inc.F90"
4679 : end procedure
4680 : #endif
4681 :
4682 : #undef LK_ENABLED
4683 :
4684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4685 :
4686 : #define CK_ENABLED 1
4687 :
4688 : #if CK5_ENABLED
4689 : module procedure setSplitConDefComCusIns_D1_D0_CK5
4690 : #include "pm_arraySplit@routines.inc.F90"
4691 : end procedure
4692 : #endif
4693 :
4694 : #if CK4_ENABLED
4695 : module procedure setSplitConDefComCusIns_D1_D0_CK4
4696 : #include "pm_arraySplit@routines.inc.F90"
4697 : end procedure
4698 : #endif
4699 :
4700 : #if CK3_ENABLED
4701 : module procedure setSplitConDefComCusIns_D1_D0_CK3
4702 : #include "pm_arraySplit@routines.inc.F90"
4703 : end procedure
4704 : #endif
4705 :
4706 : #if CK2_ENABLED
4707 : module procedure setSplitConDefComCusIns_D1_D0_CK2
4708 : #include "pm_arraySplit@routines.inc.F90"
4709 : end procedure
4710 : #endif
4711 :
4712 : #if CK1_ENABLED
4713 : module procedure setSplitConDefComCusIns_D1_D0_CK1
4714 : #include "pm_arraySplit@routines.inc.F90"
4715 : end procedure
4716 : #endif
4717 :
4718 : #undef CK_ENABLED
4719 :
4720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4721 :
4722 : #define RK_ENABLED 1
4723 :
4724 : #if RK5_ENABLED
4725 : module procedure setSplitConDefComCusIns_D1_D0_RK5
4726 : #include "pm_arraySplit@routines.inc.F90"
4727 : end procedure
4728 : #endif
4729 :
4730 : #if RK4_ENABLED
4731 : module procedure setSplitConDefComCusIns_D1_D0_RK4
4732 : #include "pm_arraySplit@routines.inc.F90"
4733 : end procedure
4734 : #endif
4735 :
4736 : #if RK3_ENABLED
4737 : module procedure setSplitConDefComCusIns_D1_D0_RK3
4738 : #include "pm_arraySplit@routines.inc.F90"
4739 : end procedure
4740 : #endif
4741 :
4742 : #if RK2_ENABLED
4743 : module procedure setSplitConDefComCusIns_D1_D0_RK2
4744 : #include "pm_arraySplit@routines.inc.F90"
4745 : end procedure
4746 : #endif
4747 :
4748 : #if RK1_ENABLED
4749 : module procedure setSplitConDefComCusIns_D1_D0_RK1
4750 : #include "pm_arraySplit@routines.inc.F90"
4751 : end procedure
4752 : #endif
4753 :
4754 : #undef RK_ENABLED
4755 :
4756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4757 :
4758 : #undef D1_D0_ENABLED
4759 :
4760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4763 :
4764 : #define D1_D1_ENABLED 1
4765 :
4766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4767 :
4768 : #define SK_ENABLED 1
4769 :
4770 : #if SK5_ENABLED
4771 : module procedure setSplitConDefComCusIns_D1_D1_SK5
4772 : #include "pm_arraySplit@routines.inc.F90"
4773 : end procedure
4774 : #endif
4775 :
4776 : #if SK4_ENABLED
4777 : module procedure setSplitConDefComCusIns_D1_D1_SK4
4778 : #include "pm_arraySplit@routines.inc.F90"
4779 : end procedure
4780 : #endif
4781 :
4782 : #if SK3_ENABLED
4783 : module procedure setSplitConDefComCusIns_D1_D1_SK3
4784 : #include "pm_arraySplit@routines.inc.F90"
4785 : end procedure
4786 : #endif
4787 :
4788 : #if SK2_ENABLED
4789 : module procedure setSplitConDefComCusIns_D1_D1_SK2
4790 : #include "pm_arraySplit@routines.inc.F90"
4791 : end procedure
4792 : #endif
4793 :
4794 : #if SK1_ENABLED
4795 : module procedure setSplitConDefComCusIns_D1_D1_SK1
4796 : #include "pm_arraySplit@routines.inc.F90"
4797 : end procedure
4798 : #endif
4799 :
4800 : #undef SK_ENABLED
4801 :
4802 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4803 :
4804 : #define IK_ENABLED 1
4805 :
4806 : #if IK5_ENABLED
4807 : module procedure setSplitConDefComCusIns_D1_D1_IK5
4808 : #include "pm_arraySplit@routines.inc.F90"
4809 : end procedure
4810 : #endif
4811 :
4812 : #if IK4_ENABLED
4813 : module procedure setSplitConDefComCusIns_D1_D1_IK4
4814 : #include "pm_arraySplit@routines.inc.F90"
4815 : end procedure
4816 : #endif
4817 :
4818 : #if IK3_ENABLED
4819 : module procedure setSplitConDefComCusIns_D1_D1_IK3
4820 : #include "pm_arraySplit@routines.inc.F90"
4821 : end procedure
4822 : #endif
4823 :
4824 : #if IK2_ENABLED
4825 : module procedure setSplitConDefComCusIns_D1_D1_IK2
4826 : #include "pm_arraySplit@routines.inc.F90"
4827 : end procedure
4828 : #endif
4829 :
4830 : #if IK1_ENABLED
4831 : module procedure setSplitConDefComCusIns_D1_D1_IK1
4832 : #include "pm_arraySplit@routines.inc.F90"
4833 : end procedure
4834 : #endif
4835 :
4836 : #undef IK_ENABLED
4837 :
4838 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4839 :
4840 : #define LK_ENABLED 1
4841 :
4842 : #if LK5_ENABLED
4843 : module procedure setSplitConDefComCusIns_D1_D1_LK5
4844 : #include "pm_arraySplit@routines.inc.F90"
4845 : end procedure
4846 : #endif
4847 :
4848 : #if LK4_ENABLED
4849 : module procedure setSplitConDefComCusIns_D1_D1_LK4
4850 : #include "pm_arraySplit@routines.inc.F90"
4851 : end procedure
4852 : #endif
4853 :
4854 : #if LK3_ENABLED
4855 : module procedure setSplitConDefComCusIns_D1_D1_LK3
4856 : #include "pm_arraySplit@routines.inc.F90"
4857 : end procedure
4858 : #endif
4859 :
4860 : #if LK2_ENABLED
4861 : module procedure setSplitConDefComCusIns_D1_D1_LK2
4862 : #include "pm_arraySplit@routines.inc.F90"
4863 : end procedure
4864 : #endif
4865 :
4866 : #if LK1_ENABLED
4867 : module procedure setSplitConDefComCusIns_D1_D1_LK1
4868 : #include "pm_arraySplit@routines.inc.F90"
4869 : end procedure
4870 : #endif
4871 :
4872 : #undef LK_ENABLED
4873 :
4874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4875 :
4876 : #define CK_ENABLED 1
4877 :
4878 : #if CK5_ENABLED
4879 : module procedure setSplitConDefComCusIns_D1_D1_CK5
4880 : #include "pm_arraySplit@routines.inc.F90"
4881 : end procedure
4882 : #endif
4883 :
4884 : #if CK4_ENABLED
4885 : module procedure setSplitConDefComCusIns_D1_D1_CK4
4886 : #include "pm_arraySplit@routines.inc.F90"
4887 : end procedure
4888 : #endif
4889 :
4890 : #if CK3_ENABLED
4891 : module procedure setSplitConDefComCusIns_D1_D1_CK3
4892 : #include "pm_arraySplit@routines.inc.F90"
4893 : end procedure
4894 : #endif
4895 :
4896 : #if CK2_ENABLED
4897 : module procedure setSplitConDefComCusIns_D1_D1_CK2
4898 : #include "pm_arraySplit@routines.inc.F90"
4899 : end procedure
4900 : #endif
4901 :
4902 : #if CK1_ENABLED
4903 : module procedure setSplitConDefComCusIns_D1_D1_CK1
4904 : #include "pm_arraySplit@routines.inc.F90"
4905 : end procedure
4906 : #endif
4907 :
4908 : #undef CK_ENABLED
4909 :
4910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4911 :
4912 : #define RK_ENABLED 1
4913 :
4914 : #if RK5_ENABLED
4915 : module procedure setSplitConDefComCusIns_D1_D1_RK5
4916 : #include "pm_arraySplit@routines.inc.F90"
4917 : end procedure
4918 : #endif
4919 :
4920 : #if RK4_ENABLED
4921 : module procedure setSplitConDefComCusIns_D1_D1_RK4
4922 : #include "pm_arraySplit@routines.inc.F90"
4923 : end procedure
4924 : #endif
4925 :
4926 : #if RK3_ENABLED
4927 : module procedure setSplitConDefComCusIns_D1_D1_RK3
4928 : #include "pm_arraySplit@routines.inc.F90"
4929 : end procedure
4930 : #endif
4931 :
4932 : #if RK2_ENABLED
4933 : module procedure setSplitConDefComCusIns_D1_D1_RK2
4934 : #include "pm_arraySplit@routines.inc.F90"
4935 : end procedure
4936 : #endif
4937 :
4938 : #if RK1_ENABLED
4939 : module procedure setSplitConDefComCusIns_D1_D1_RK1
4940 : #include "pm_arraySplit@routines.inc.F90"
4941 : end procedure
4942 : #endif
4943 :
4944 : #undef RK_ENABLED
4945 :
4946 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4947 :
4948 : #undef D1_D1_ENABLED
4949 :
4950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4951 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4952 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4953 :
4954 : #undef CusIns_ENABLED
4955 : #undef DefCom_ENABLED
4956 :
4957 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4958 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4960 :
4961 : #define CusCom_ENABLED 1
4962 : #define CusIns_ENABLED 1
4963 :
4964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4967 :
4968 : #define D0_D0_ENABLED 1
4969 :
4970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4971 :
4972 : #define SK_ENABLED 1
4973 :
4974 : #if SK5_ENABLED
4975 : module procedure setSplitConCusComCusIns_D0_D0_SK5
4976 : #include "pm_arraySplit@routines.inc.F90"
4977 : end procedure
4978 : #endif
4979 :
4980 : #if SK4_ENABLED
4981 : module procedure setSplitConCusComCusIns_D0_D0_SK4
4982 : #include "pm_arraySplit@routines.inc.F90"
4983 : end procedure
4984 : #endif
4985 :
4986 : #if SK3_ENABLED
4987 : module procedure setSplitConCusComCusIns_D0_D0_SK3
4988 : #include "pm_arraySplit@routines.inc.F90"
4989 : end procedure
4990 : #endif
4991 :
4992 : #if SK2_ENABLED
4993 : module procedure setSplitConCusComCusIns_D0_D0_SK2
4994 : #include "pm_arraySplit@routines.inc.F90"
4995 : end procedure
4996 : #endif
4997 :
4998 : #if SK1_ENABLED
4999 : module procedure setSplitConCusComCusIns_D0_D0_SK1
5000 : #include "pm_arraySplit@routines.inc.F90"
5001 : end procedure
5002 : #endif
5003 :
5004 : #undef SK_ENABLED
5005 :
5006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5007 :
5008 : #undef D0_D0_ENABLED
5009 :
5010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5012 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5013 :
5014 : #define D1_D0_ENABLED 1
5015 :
5016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5017 :
5018 : #define SK_ENABLED 1
5019 :
5020 : #if SK5_ENABLED
5021 : module procedure setSplitConCusComCusIns_D1_D0_SK5
5022 : #include "pm_arraySplit@routines.inc.F90"
5023 : end procedure
5024 : #endif
5025 :
5026 : #if SK4_ENABLED
5027 : module procedure setSplitConCusComCusIns_D1_D0_SK4
5028 : #include "pm_arraySplit@routines.inc.F90"
5029 : end procedure
5030 : #endif
5031 :
5032 : #if SK3_ENABLED
5033 : module procedure setSplitConCusComCusIns_D1_D0_SK3
5034 : #include "pm_arraySplit@routines.inc.F90"
5035 : end procedure
5036 : #endif
5037 :
5038 : #if SK2_ENABLED
5039 : module procedure setSplitConCusComCusIns_D1_D0_SK2
5040 : #include "pm_arraySplit@routines.inc.F90"
5041 : end procedure
5042 : #endif
5043 :
5044 : #if SK1_ENABLED
5045 : module procedure setSplitConCusComCusIns_D1_D0_SK1
5046 : #include "pm_arraySplit@routines.inc.F90"
5047 : end procedure
5048 : #endif
5049 :
5050 : #undef SK_ENABLED
5051 :
5052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5053 :
5054 : #define IK_ENABLED 1
5055 :
5056 : #if IK5_ENABLED
5057 : module procedure setSplitConCusComCusIns_D1_D0_IK5
5058 : #include "pm_arraySplit@routines.inc.F90"
5059 : end procedure
5060 : #endif
5061 :
5062 : #if IK4_ENABLED
5063 : module procedure setSplitConCusComCusIns_D1_D0_IK4
5064 : #include "pm_arraySplit@routines.inc.F90"
5065 : end procedure
5066 : #endif
5067 :
5068 : #if IK3_ENABLED
5069 : module procedure setSplitConCusComCusIns_D1_D0_IK3
5070 : #include "pm_arraySplit@routines.inc.F90"
5071 : end procedure
5072 : #endif
5073 :
5074 : #if IK2_ENABLED
5075 : module procedure setSplitConCusComCusIns_D1_D0_IK2
5076 : #include "pm_arraySplit@routines.inc.F90"
5077 : end procedure
5078 : #endif
5079 :
5080 : #if IK1_ENABLED
5081 : module procedure setSplitConCusComCusIns_D1_D0_IK1
5082 : #include "pm_arraySplit@routines.inc.F90"
5083 : end procedure
5084 : #endif
5085 :
5086 : #undef IK_ENABLED
5087 :
5088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5089 :
5090 : #define LK_ENABLED 1
5091 :
5092 : #if LK5_ENABLED
5093 : module procedure setSplitConCusComCusIns_D1_D0_LK5
5094 : #include "pm_arraySplit@routines.inc.F90"
5095 : end procedure
5096 : #endif
5097 :
5098 : #if LK4_ENABLED
5099 : module procedure setSplitConCusComCusIns_D1_D0_LK4
5100 : #include "pm_arraySplit@routines.inc.F90"
5101 : end procedure
5102 : #endif
5103 :
5104 : #if LK3_ENABLED
5105 : module procedure setSplitConCusComCusIns_D1_D0_LK3
5106 : #include "pm_arraySplit@routines.inc.F90"
5107 : end procedure
5108 : #endif
5109 :
5110 : #if LK2_ENABLED
5111 : module procedure setSplitConCusComCusIns_D1_D0_LK2
5112 : #include "pm_arraySplit@routines.inc.F90"
5113 : end procedure
5114 : #endif
5115 :
5116 : #if LK1_ENABLED
5117 : module procedure setSplitConCusComCusIns_D1_D0_LK1
5118 : #include "pm_arraySplit@routines.inc.F90"
5119 : end procedure
5120 : #endif
5121 :
5122 : #undef LK_ENABLED
5123 :
5124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5125 :
5126 : #define CK_ENABLED 1
5127 :
5128 : #if CK5_ENABLED
5129 : module procedure setSplitConCusComCusIns_D1_D0_CK5
5130 : #include "pm_arraySplit@routines.inc.F90"
5131 : end procedure
5132 : #endif
5133 :
5134 : #if CK4_ENABLED
5135 : module procedure setSplitConCusComCusIns_D1_D0_CK4
5136 : #include "pm_arraySplit@routines.inc.F90"
5137 : end procedure
5138 : #endif
5139 :
5140 : #if CK3_ENABLED
5141 : module procedure setSplitConCusComCusIns_D1_D0_CK3
5142 : #include "pm_arraySplit@routines.inc.F90"
5143 : end procedure
5144 : #endif
5145 :
5146 : #if CK2_ENABLED
5147 : module procedure setSplitConCusComCusIns_D1_D0_CK2
5148 : #include "pm_arraySplit@routines.inc.F90"
5149 : end procedure
5150 : #endif
5151 :
5152 : #if CK1_ENABLED
5153 : module procedure setSplitConCusComCusIns_D1_D0_CK1
5154 : #include "pm_arraySplit@routines.inc.F90"
5155 : end procedure
5156 : #endif
5157 :
5158 : #undef CK_ENABLED
5159 :
5160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5161 :
5162 : #define RK_ENABLED 1
5163 :
5164 : #if RK5_ENABLED
5165 : module procedure setSplitConCusComCusIns_D1_D0_RK5
5166 : #include "pm_arraySplit@routines.inc.F90"
5167 : end procedure
5168 : #endif
5169 :
5170 : #if RK4_ENABLED
5171 : module procedure setSplitConCusComCusIns_D1_D0_RK4
5172 : #include "pm_arraySplit@routines.inc.F90"
5173 : end procedure
5174 : #endif
5175 :
5176 : #if RK3_ENABLED
5177 : module procedure setSplitConCusComCusIns_D1_D0_RK3
5178 : #include "pm_arraySplit@routines.inc.F90"
5179 : end procedure
5180 : #endif
5181 :
5182 : #if RK2_ENABLED
5183 : module procedure setSplitConCusComCusIns_D1_D0_RK2
5184 : #include "pm_arraySplit@routines.inc.F90"
5185 : end procedure
5186 : #endif
5187 :
5188 : #if RK1_ENABLED
5189 : module procedure setSplitConCusComCusIns_D1_D0_RK1
5190 : #include "pm_arraySplit@routines.inc.F90"
5191 : end procedure
5192 : #endif
5193 :
5194 : #undef RK_ENABLED
5195 :
5196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5197 :
5198 : #undef D1_D0_ENABLED
5199 :
5200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5203 :
5204 : #define D1_D1_ENABLED 1
5205 :
5206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5207 :
5208 : #define SK_ENABLED 1
5209 :
5210 : #if SK5_ENABLED
5211 : module procedure setSplitConCusComCusIns_D1_D1_SK5
5212 : #include "pm_arraySplit@routines.inc.F90"
5213 : end procedure
5214 : #endif
5215 :
5216 : #if SK4_ENABLED
5217 : module procedure setSplitConCusComCusIns_D1_D1_SK4
5218 : #include "pm_arraySplit@routines.inc.F90"
5219 : end procedure
5220 : #endif
5221 :
5222 : #if SK3_ENABLED
5223 : module procedure setSplitConCusComCusIns_D1_D1_SK3
5224 : #include "pm_arraySplit@routines.inc.F90"
5225 : end procedure
5226 : #endif
5227 :
5228 : #if SK2_ENABLED
5229 : module procedure setSplitConCusComCusIns_D1_D1_SK2
5230 : #include "pm_arraySplit@routines.inc.F90"
5231 : end procedure
5232 : #endif
5233 :
5234 : #if SK1_ENABLED
5235 : module procedure setSplitConCusComCusIns_D1_D1_SK1
5236 : #include "pm_arraySplit@routines.inc.F90"
5237 : end procedure
5238 : #endif
5239 :
5240 : #undef SK_ENABLED
5241 :
5242 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5243 :
5244 : #define IK_ENABLED 1
5245 :
5246 : #if IK5_ENABLED
5247 : module procedure setSplitConCusComCusIns_D1_D1_IK5
5248 : #include "pm_arraySplit@routines.inc.F90"
5249 : end procedure
5250 : #endif
5251 :
5252 : #if IK4_ENABLED
5253 : module procedure setSplitConCusComCusIns_D1_D1_IK4
5254 : #include "pm_arraySplit@routines.inc.F90"
5255 : end procedure
5256 : #endif
5257 :
5258 : #if IK3_ENABLED
5259 : module procedure setSplitConCusComCusIns_D1_D1_IK3
5260 : #include "pm_arraySplit@routines.inc.F90"
5261 : end procedure
5262 : #endif
5263 :
5264 : #if IK2_ENABLED
5265 : module procedure setSplitConCusComCusIns_D1_D1_IK2
5266 : #include "pm_arraySplit@routines.inc.F90"
5267 : end procedure
5268 : #endif
5269 :
5270 : #if IK1_ENABLED
5271 : module procedure setSplitConCusComCusIns_D1_D1_IK1
5272 : #include "pm_arraySplit@routines.inc.F90"
5273 : end procedure
5274 : #endif
5275 :
5276 : #undef IK_ENABLED
5277 :
5278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5279 :
5280 : #define LK_ENABLED 1
5281 :
5282 : #if LK5_ENABLED
5283 : module procedure setSplitConCusComCusIns_D1_D1_LK5
5284 : #include "pm_arraySplit@routines.inc.F90"
5285 : end procedure
5286 : #endif
5287 :
5288 : #if LK4_ENABLED
5289 : module procedure setSplitConCusComCusIns_D1_D1_LK4
5290 : #include "pm_arraySplit@routines.inc.F90"
5291 : end procedure
5292 : #endif
5293 :
5294 : #if LK3_ENABLED
5295 : module procedure setSplitConCusComCusIns_D1_D1_LK3
5296 : #include "pm_arraySplit@routines.inc.F90"
5297 : end procedure
5298 : #endif
5299 :
5300 : #if LK2_ENABLED
5301 : module procedure setSplitConCusComCusIns_D1_D1_LK2
5302 : #include "pm_arraySplit@routines.inc.F90"
5303 : end procedure
5304 : #endif
5305 :
5306 : #if LK1_ENABLED
5307 : module procedure setSplitConCusComCusIns_D1_D1_LK1
5308 : #include "pm_arraySplit@routines.inc.F90"
5309 : end procedure
5310 : #endif
5311 :
5312 : #undef LK_ENABLED
5313 :
5314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5315 :
5316 : #define CK_ENABLED 1
5317 :
5318 : #if CK5_ENABLED
5319 : module procedure setSplitConCusComCusIns_D1_D1_CK5
5320 : #include "pm_arraySplit@routines.inc.F90"
5321 : end procedure
5322 : #endif
5323 :
5324 : #if CK4_ENABLED
5325 : module procedure setSplitConCusComCusIns_D1_D1_CK4
5326 : #include "pm_arraySplit@routines.inc.F90"
5327 : end procedure
5328 : #endif
5329 :
5330 : #if CK3_ENABLED
5331 : module procedure setSplitConCusComCusIns_D1_D1_CK3
5332 : #include "pm_arraySplit@routines.inc.F90"
5333 : end procedure
5334 : #endif
5335 :
5336 : #if CK2_ENABLED
5337 : module procedure setSplitConCusComCusIns_D1_D1_CK2
5338 : #include "pm_arraySplit@routines.inc.F90"
5339 : end procedure
5340 : #endif
5341 :
5342 : #if CK1_ENABLED
5343 : module procedure setSplitConCusComCusIns_D1_D1_CK1
5344 : #include "pm_arraySplit@routines.inc.F90"
5345 : end procedure
5346 : #endif
5347 :
5348 : #undef CK_ENABLED
5349 :
5350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5351 :
5352 : #define RK_ENABLED 1
5353 :
5354 : #if RK5_ENABLED
5355 : module procedure setSplitConCusComCusIns_D1_D1_RK5
5356 : #include "pm_arraySplit@routines.inc.F90"
5357 : end procedure
5358 : #endif
5359 :
5360 : #if RK4_ENABLED
5361 : module procedure setSplitConCusComCusIns_D1_D1_RK4
5362 : #include "pm_arraySplit@routines.inc.F90"
5363 : end procedure
5364 : #endif
5365 :
5366 : #if RK3_ENABLED
5367 : module procedure setSplitConCusComCusIns_D1_D1_RK3
5368 : #include "pm_arraySplit@routines.inc.F90"
5369 : end procedure
5370 : #endif
5371 :
5372 : #if RK2_ENABLED
5373 : module procedure setSplitConCusComCusIns_D1_D1_RK2
5374 : #include "pm_arraySplit@routines.inc.F90"
5375 : end procedure
5376 : #endif
5377 :
5378 : #if RK1_ENABLED
5379 : module procedure setSplitConCusComCusIns_D1_D1_RK1
5380 : #include "pm_arraySplit@routines.inc.F90"
5381 : end procedure
5382 : #endif
5383 :
5384 : #undef RK_ENABLED
5385 :
5386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5387 :
5388 : #undef D1_D1_ENABLED
5389 :
5390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5393 :
5394 : #undef CusIns_ENABLED
5395 : #undef CusCom_ENABLED
5396 :
5397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5400 :
5401 : !#endif
5402 : ! LCOV_EXCL_STOP
5403 :
5404 : #define DefCom_ENABLED 1
5405 : #define DefIns_ENABLED 1
5406 :
5407 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5410 :
5411 : #define D0_D0_ENABLED 1
5412 :
5413 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5414 :
5415 : #define SK_ENABLED 1
5416 :
5417 186 : module procedure setSplitBoxDefComDefIns_D0_D0_SK
5418 : #include "pm_arraySplit@routines.inc.F90"
5419 186 : end procedure
5420 :
5421 : #undef SK_ENABLED
5422 :
5423 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5424 :
5425 : #undef D0_D0_ENABLED
5426 :
5427 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5429 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5430 :
5431 : #define D1_D0_ENABLED 1
5432 :
5433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5434 :
5435 : #define SK_ENABLED 1
5436 :
5437 54 : module procedure setSplitBoxDefComDefIns_D1_D0_SK
5438 : #include "pm_arraySplit@routines.inc.F90"
5439 54 : end procedure
5440 :
5441 : #undef SK_ENABLED
5442 :
5443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5444 :
5445 : #define IK_ENABLED 1
5446 :
5447 54 : module procedure setSplitBoxDefComDefIns_D1_D0_IK
5448 : #include "pm_arraySplit@routines.inc.F90"
5449 : end procedure
5450 :
5451 : #undef IK_ENABLED
5452 :
5453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5454 :
5455 : #define LK_ENABLED 1
5456 :
5457 54 : module procedure setSplitBoxDefComDefIns_D1_D0_LK
5458 : #include "pm_arraySplit@routines.inc.F90"
5459 : end procedure
5460 :
5461 : #undef LK_ENABLED
5462 :
5463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5464 :
5465 : #define CK_ENABLED 1
5466 :
5467 54 : module procedure setSplitBoxDefComDefIns_D1_D0_CK
5468 : #include "pm_arraySplit@routines.inc.F90"
5469 : end procedure
5470 :
5471 : #undef CK_ENABLED
5472 :
5473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5474 :
5475 : #define RK_ENABLED 1
5476 :
5477 54 : module procedure setSplitBoxDefComDefIns_D1_D0_RK
5478 : #include "pm_arraySplit@routines.inc.F90"
5479 : end procedure
5480 :
5481 : #undef RK_ENABLED
5482 :
5483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5484 :
5485 : #undef D1_D0_ENABLED
5486 :
5487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5490 :
5491 : #define D1_D1_ENABLED 1
5492 :
5493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5494 :
5495 : #define SK_ENABLED 1
5496 :
5497 66 : module procedure setSplitBoxDefComDefIns_D1_D1_SK
5498 : #include "pm_arraySplit@routines.inc.F90"
5499 : end procedure
5500 :
5501 : #undef SK_ENABLED
5502 :
5503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5504 :
5505 : #define IK_ENABLED 1
5506 :
5507 66 : module procedure setSplitBoxDefComDefIns_D1_D1_IK
5508 : #include "pm_arraySplit@routines.inc.F90"
5509 : end procedure
5510 :
5511 : #undef IK_ENABLED
5512 :
5513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5514 :
5515 : #define LK_ENABLED 1
5516 :
5517 66 : module procedure setSplitBoxDefComDefIns_D1_D1_LK
5518 : #include "pm_arraySplit@routines.inc.F90"
5519 : end procedure
5520 :
5521 : #undef LK_ENABLED
5522 :
5523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5524 :
5525 : #define CK_ENABLED 1
5526 :
5527 66 : module procedure setSplitBoxDefComDefIns_D1_D1_CK
5528 : #include "pm_arraySplit@routines.inc.F90"
5529 : end procedure
5530 :
5531 : #undef CK_ENABLED
5532 :
5533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5534 :
5535 : #define RK_ENABLED 1
5536 :
5537 66 : module procedure setSplitBoxDefComDefIns_D1_D1_RK
5538 : #include "pm_arraySplit@routines.inc.F90"
5539 : end procedure
5540 :
5541 : #undef RK_ENABLED
5542 :
5543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5544 :
5545 : #undef D1_D1_ENABLED
5546 :
5547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5550 :
5551 : #undef DefCom_ENABLED
5552 : #undef DefIns_ENABLED
5553 :
5554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5557 :
5558 : #define CusCom_ENABLED 1
5559 : #define DefIns_ENABLED 1
5560 :
5561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5564 :
5565 : #define D0_D0_ENABLED 1
5566 :
5567 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5568 :
5569 : #define SK_ENABLED 1
5570 :
5571 66 : module procedure setSplitBoxCusComDefIns_D0_D0_SK
5572 : #include "pm_arraySplit@routines.inc.F90"
5573 66 : end procedure
5574 :
5575 : #undef SK_ENABLED
5576 :
5577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5578 :
5579 : #undef D0_D0_ENABLED
5580 :
5581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5582 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5583 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5584 :
5585 : #define D1_D0_ENABLED 1
5586 :
5587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5588 :
5589 : #define SK_ENABLED 1
5590 :
5591 54 : module procedure setSplitBoxCusComDefIns_D1_D0_SK
5592 : #include "pm_arraySplit@routines.inc.F90"
5593 54 : end procedure
5594 :
5595 : #undef SK_ENABLED
5596 :
5597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5598 :
5599 : #define IK_ENABLED 1
5600 :
5601 54 : module procedure setSplitBoxCusComDefIns_D1_D0_IK
5602 : #include "pm_arraySplit@routines.inc.F90"
5603 : end procedure
5604 :
5605 : #undef IK_ENABLED
5606 :
5607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5608 :
5609 : #define LK_ENABLED 1
5610 :
5611 54 : module procedure setSplitBoxCusComDefIns_D1_D0_LK
5612 : #include "pm_arraySplit@routines.inc.F90"
5613 : end procedure
5614 :
5615 : #undef LK_ENABLED
5616 :
5617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5618 :
5619 : #define CK_ENABLED 1
5620 :
5621 54 : module procedure setSplitBoxCusComDefIns_D1_D0_CK
5622 : #include "pm_arraySplit@routines.inc.F90"
5623 : end procedure
5624 :
5625 : #undef CK_ENABLED
5626 :
5627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5628 :
5629 : #define RK_ENABLED 1
5630 :
5631 54 : module procedure setSplitBoxCusComDefIns_D1_D0_RK
5632 : #include "pm_arraySplit@routines.inc.F90"
5633 : end procedure
5634 :
5635 : #undef RK_ENABLED
5636 :
5637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5638 :
5639 : #undef D1_D0_ENABLED
5640 :
5641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5643 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5644 :
5645 : #define D1_D1_ENABLED 1
5646 :
5647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5648 :
5649 : #define SK_ENABLED 1
5650 :
5651 66 : module procedure setSplitBoxCusComDefIns_D1_D1_SK
5652 : #include "pm_arraySplit@routines.inc.F90"
5653 : end procedure
5654 :
5655 : #undef SK_ENABLED
5656 :
5657 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5658 :
5659 : #define IK_ENABLED 1
5660 :
5661 66 : module procedure setSplitBoxCusComDefIns_D1_D1_IK
5662 : #include "pm_arraySplit@routines.inc.F90"
5663 : end procedure
5664 :
5665 : #undef IK_ENABLED
5666 :
5667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5668 :
5669 : #define LK_ENABLED 1
5670 :
5671 66 : module procedure setSplitBoxCusComDefIns_D1_D1_LK
5672 : #include "pm_arraySplit@routines.inc.F90"
5673 : end procedure
5674 :
5675 : #undef LK_ENABLED
5676 :
5677 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5678 :
5679 : #define CK_ENABLED 1
5680 :
5681 66 : module procedure setSplitBoxCusComDefIns_D1_D1_CK
5682 : #include "pm_arraySplit@routines.inc.F90"
5683 : end procedure
5684 :
5685 : #undef CK_ENABLED
5686 :
5687 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5688 :
5689 : #define RK_ENABLED 1
5690 :
5691 66 : module procedure setSplitBoxCusComDefIns_D1_D1_RK
5692 : #include "pm_arraySplit@routines.inc.F90"
5693 : end procedure
5694 :
5695 : #undef RK_ENABLED
5696 :
5697 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5698 :
5699 : #undef D1_D1_ENABLED
5700 :
5701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5703 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5704 :
5705 : #undef CusCom_ENABLED
5706 : #undef DefIns_ENABLED
5707 :
5708 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5709 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5710 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5711 :
5712 : #define DefCom_ENABLED 1
5713 : #define CusIns_ENABLED 1
5714 :
5715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5716 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5717 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5718 :
5719 : #define D0_D0_ENABLED 1
5720 :
5721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5722 :
5723 : #define SK_ENABLED 1
5724 :
5725 900 : module procedure setSplitBoxDefComCusIns_D0_D0_SK
5726 : #include "pm_arraySplit@routines.inc.F90"
5727 900 : end procedure
5728 :
5729 : #undef SK_ENABLED
5730 :
5731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5732 :
5733 : #undef D0_D0_ENABLED
5734 :
5735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5738 :
5739 : #define D1_D0_ENABLED 1
5740 :
5741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5742 :
5743 : #define SK_ENABLED 1
5744 :
5745 792 : module procedure setSplitBoxDefComCusIns_D1_D0_SK
5746 : #include "pm_arraySplit@routines.inc.F90"
5747 792 : end procedure
5748 :
5749 : #undef SK_ENABLED
5750 :
5751 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5752 :
5753 : #define IK_ENABLED 1
5754 :
5755 792 : module procedure setSplitBoxDefComCusIns_D1_D0_IK
5756 : #include "pm_arraySplit@routines.inc.F90"
5757 : end procedure
5758 :
5759 : #undef IK_ENABLED
5760 :
5761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5762 :
5763 : #define LK_ENABLED 1
5764 :
5765 792 : module procedure setSplitBoxDefComCusIns_D1_D0_LK
5766 : #include "pm_arraySplit@routines.inc.F90"
5767 : end procedure
5768 :
5769 : #undef LK_ENABLED
5770 :
5771 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5772 :
5773 : #define CK_ENABLED 1
5774 :
5775 792 : module procedure setSplitBoxDefComCusIns_D1_D0_CK
5776 : #include "pm_arraySplit@routines.inc.F90"
5777 : end procedure
5778 :
5779 : #undef CK_ENABLED
5780 :
5781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5782 :
5783 : #define RK_ENABLED 1
5784 :
5785 792 : module procedure setSplitBoxDefComCusIns_D1_D0_RK
5786 : #include "pm_arraySplit@routines.inc.F90"
5787 : end procedure
5788 :
5789 : #undef RK_ENABLED
5790 :
5791 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5792 :
5793 : #undef D1_D0_ENABLED
5794 :
5795 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5797 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5798 :
5799 : #define D1_D1_ENABLED 1
5800 :
5801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5802 :
5803 : #define SK_ENABLED 1
5804 :
5805 900 : module procedure setSplitBoxDefComCusIns_D1_D1_SK
5806 : #include "pm_arraySplit@routines.inc.F90"
5807 : end procedure
5808 :
5809 : #undef SK_ENABLED
5810 :
5811 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5812 :
5813 : #define IK_ENABLED 1
5814 :
5815 900 : module procedure setSplitBoxDefComCusIns_D1_D1_IK
5816 : #include "pm_arraySplit@routines.inc.F90"
5817 : end procedure
5818 :
5819 : #undef IK_ENABLED
5820 :
5821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5822 :
5823 : #define LK_ENABLED 1
5824 :
5825 900 : module procedure setSplitBoxDefComCusIns_D1_D1_LK
5826 : #include "pm_arraySplit@routines.inc.F90"
5827 : end procedure
5828 :
5829 : #undef LK_ENABLED
5830 :
5831 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5832 :
5833 : #define CK_ENABLED 1
5834 :
5835 900 : module procedure setSplitBoxDefComCusIns_D1_D1_CK
5836 : #include "pm_arraySplit@routines.inc.F90"
5837 : end procedure
5838 :
5839 : #undef CK_ENABLED
5840 :
5841 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5842 :
5843 : #define RK_ENABLED 1
5844 :
5845 900 : module procedure setSplitBoxDefComCusIns_D1_D1_RK
5846 : #include "pm_arraySplit@routines.inc.F90"
5847 : end procedure
5848 :
5849 : #undef RK_ENABLED
5850 :
5851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5852 :
5853 : #undef D1_D1_ENABLED
5854 :
5855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5856 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5857 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5858 :
5859 : #undef DefCom_ENABLED
5860 : #undef CusIns_ENABLED
5861 :
5862 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5864 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5865 :
5866 : #define CusCom_ENABLED 1
5867 : #define CusIns_ENABLED 1
5868 :
5869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5872 :
5873 : #define D0_D0_ENABLED 1
5874 :
5875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5876 :
5877 : #define SK_ENABLED 1
5878 :
5879 900 : module procedure setSplitBoxCusComCusIns_D0_D0_SK
5880 : #include "pm_arraySplit@routines.inc.F90"
5881 900 : end procedure
5882 :
5883 : #undef SK_ENABLED
5884 :
5885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5886 :
5887 : #undef D0_D0_ENABLED
5888 :
5889 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5890 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5892 :
5893 : #define D1_D0_ENABLED 1
5894 :
5895 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5896 :
5897 : #define SK_ENABLED 1
5898 :
5899 792 : module procedure setSplitBoxCusComCusIns_D1_D0_SK
5900 : #include "pm_arraySplit@routines.inc.F90"
5901 792 : end procedure
5902 :
5903 : #undef SK_ENABLED
5904 :
5905 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5906 :
5907 : #define IK_ENABLED 1
5908 :
5909 792 : module procedure setSplitBoxCusComCusIns_D1_D0_IK
5910 : #include "pm_arraySplit@routines.inc.F90"
5911 : end procedure
5912 :
5913 : #undef IK_ENABLED
5914 :
5915 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5916 :
5917 : #define LK_ENABLED 1
5918 :
5919 792 : module procedure setSplitBoxCusComCusIns_D1_D0_LK
5920 : #include "pm_arraySplit@routines.inc.F90"
5921 : end procedure
5922 :
5923 : #undef LK_ENABLED
5924 :
5925 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5926 :
5927 : #define CK_ENABLED 1
5928 :
5929 792 : module procedure setSplitBoxCusComCusIns_D1_D0_CK
5930 : #include "pm_arraySplit@routines.inc.F90"
5931 : end procedure
5932 :
5933 : #undef CK_ENABLED
5934 :
5935 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5936 :
5937 : #define RK_ENABLED 1
5938 :
5939 792 : module procedure setSplitBoxCusComCusIns_D1_D0_RK
5940 : #include "pm_arraySplit@routines.inc.F90"
5941 : end procedure
5942 :
5943 : #undef RK_ENABLED
5944 :
5945 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5946 :
5947 : #undef D1_D0_ENABLED
5948 :
5949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5951 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5952 :
5953 : #define D1_D1_ENABLED 1
5954 :
5955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5956 :
5957 : #define SK_ENABLED 1
5958 :
5959 900 : module procedure setSplitBoxCusComCusIns_D1_D1_SK
5960 : #include "pm_arraySplit@routines.inc.F90"
5961 : end procedure
5962 :
5963 : #undef SK_ENABLED
5964 :
5965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5966 :
5967 : #define IK_ENABLED 1
5968 :
5969 900 : module procedure setSplitBoxCusComCusIns_D1_D1_IK
5970 : #include "pm_arraySplit@routines.inc.F90"
5971 : end procedure
5972 :
5973 : #undef IK_ENABLED
5974 :
5975 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5976 :
5977 : #define LK_ENABLED 1
5978 :
5979 900 : module procedure setSplitBoxCusComCusIns_D1_D1_LK
5980 : #include "pm_arraySplit@routines.inc.F90"
5981 : end procedure
5982 :
5983 : #undef LK_ENABLED
5984 :
5985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5986 :
5987 : #define CK_ENABLED 1
5988 :
5989 900 : module procedure setSplitBoxCusComCusIns_D1_D1_CK
5990 : #include "pm_arraySplit@routines.inc.F90"
5991 : end procedure
5992 :
5993 : #undef CK_ENABLED
5994 :
5995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5996 :
5997 : #define RK_ENABLED 1
5998 :
5999 900 : module procedure setSplitBoxCusComCusIns_D1_D1_RK
6000 : #include "pm_arraySplit@routines.inc.F90"
6001 : end procedure
6002 :
6003 : #undef RK_ENABLED
6004 :
6005 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6006 :
6007 : #undef D1_D1_ENABLED
6008 :
6009 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6012 :
6013 : #undef CusIns_ENABLED
6014 : #undef CusCom_ENABLED
6015 :
6016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6018 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6019 :
6020 : #undef Jagged_ENABLED
6021 :
6022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6023 :
6024 : end submodule routines
|
