ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arraySort.F90
Go to the documentation of this file.
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
24
25!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26
27module test_pm_arraySort
28
29 use pm_arraySort
30 use pm_test, only: test_type, LK
31 use pm_kind, only: IK, RK
32 use pm_kind, only: LK
33 implicit none
34
35 private
36 public :: setTest
37 type(test_type) :: test
38
39!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40
41 interface
42
43 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44
45#if SK5_ENABLED
46 module function test_isAscending_D0_SK5() result(assertion); logical(LK) :: assertion; end function
47#endif
48#if SK4_ENABLED
49 module function test_isAscending_D0_SK4() result(assertion); logical(LK) :: assertion; end function
50#endif
51#if SK3_ENABLED
52 module function test_isAscending_D0_SK3() result(assertion); logical(LK) :: assertion; end function
53#endif
54#if SK2_ENABLED
55 module function test_isAscending_D0_SK2() result(assertion); logical(LK) :: assertion; end function
56#endif
57#if SK1_ENABLED
58 module function test_isAscending_D0_SK1() result(assertion); logical(LK) :: assertion; end function
59#endif
60
61 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62
63#if SK5_ENABLED
64 module function test_isAscending_D1_SK5() result(assertion); logical(LK) :: assertion; end function
65#endif
66#if SK4_ENABLED
67 module function test_isAscending_D1_SK4() result(assertion); logical(LK) :: assertion; end function
68#endif
69#if SK3_ENABLED
70 module function test_isAscending_D1_SK3() result(assertion); logical(LK) :: assertion; end function
71#endif
72#if SK2_ENABLED
73 module function test_isAscending_D1_SK2() result(assertion); logical(LK) :: assertion; end function
74#endif
75#if SK1_ENABLED
76 module function test_isAscending_D1_SK1() result(assertion); logical(LK) :: assertion; end function
77#endif
78
79 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80
81#if IK5_ENABLED
82 module function test_isAscending_D1_IK5() result(assertion); logical(LK) :: assertion; end function
83#endif
84#if IK4_ENABLED
85 module function test_isAscending_D1_IK4() result(assertion); logical(LK) :: assertion; end function
86#endif
87#if IK3_ENABLED
88 module function test_isAscending_D1_IK3() result(assertion); logical(LK) :: assertion; end function
89#endif
90#if IK2_ENABLED
91 module function test_isAscending_D1_IK2() result(assertion); logical(LK) :: assertion; end function
92#endif
93#if IK1_ENABLED
94 module function test_isAscending_D1_IK1() result(assertion); logical(LK) :: assertion; end function
95#endif
96
97 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98
99#if LK5_ENABLED
100 module function test_isAscending_D1_LK5() result(assertion); logical(LK) :: assertion; end function
101#endif
102#if LK4_ENABLED
103 module function test_isAscending_D1_LK4() result(assertion); logical(LK) :: assertion; end function
104#endif
105#if LK3_ENABLED
106 module function test_isAscending_D1_LK3() result(assertion); logical(LK) :: assertion; end function
107#endif
108#if LK2_ENABLED
109 module function test_isAscending_D1_LK2() result(assertion); logical(LK) :: assertion; end function
110#endif
111#if LK1_ENABLED
112 module function test_isAscending_D1_LK1() result(assertion); logical(LK) :: assertion; end function
113#endif
114
115 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
116
117#if CK5_ENABLED
118 module function test_isAscending_D1_CK5() result(assertion); logical(LK) :: assertion; end function
119#endif
120#if CK4_ENABLED
121 module function test_isAscending_D1_CK4() result(assertion); logical(LK) :: assertion; end function
122#endif
123#if CK3_ENABLED
124 module function test_isAscending_D1_CK3() result(assertion); logical(LK) :: assertion; end function
125#endif
126#if CK2_ENABLED
127 module function test_isAscending_D1_CK2() result(assertion); logical(LK) :: assertion; end function
128#endif
129#if CK1_ENABLED
130 module function test_isAscending_D1_CK1() result(assertion); logical(LK) :: assertion; end function
131#endif
132
133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
134
135#if RK5_ENABLED
136 module function test_isAscending_D1_RK5() result(assertion); logical(LK) :: assertion; end function
137#endif
138#if RK4_ENABLED
139 module function test_isAscending_D1_RK4() result(assertion); logical(LK) :: assertion; end function
140#endif
141#if RK3_ENABLED
142 module function test_isAscending_D1_RK3() result(assertion); logical(LK) :: assertion; end function
143#endif
144#if RK2_ENABLED
145 module function test_isAscending_D1_RK2() result(assertion); logical(LK) :: assertion; end function
146#endif
147#if RK1_ENABLED
148 module function test_isAscending_D1_RK1() result(assertion); logical(LK) :: assertion; end function
149#endif
150
151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152
153#if SK5_ENABLED
154 module function test_isAscending_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
155#endif
156#if SK4_ENABLED
157 module function test_isAscending_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
158#endif
159#if SK3_ENABLED
160 module function test_isAscending_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
161#endif
162#if SK2_ENABLED
163 module function test_isAscending_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
164#endif
165#if SK1_ENABLED
166 module function test_isAscending_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
167#endif
168
169 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170
171 end interface
172
173!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
174
175 interface
176
177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178
179#if SK5_ENABLED
180 module function test_isDescending_D0_SK5() result(assertion); logical(LK) :: assertion; end function
181#endif
182#if SK4_ENABLED
183 module function test_isDescending_D0_SK4() result(assertion); logical(LK) :: assertion; end function
184#endif
185#if SK3_ENABLED
186 module function test_isDescending_D0_SK3() result(assertion); logical(LK) :: assertion; end function
187#endif
188#if SK2_ENABLED
189 module function test_isDescending_D0_SK2() result(assertion); logical(LK) :: assertion; end function
190#endif
191#if SK1_ENABLED
192 module function test_isDescending_D0_SK1() result(assertion); logical(LK) :: assertion; end function
193#endif
194
195 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
196
197#if SK5_ENABLED
198 module function test_isDescending_D1_SK5() result(assertion); logical(LK) :: assertion; end function
199#endif
200#if SK4_ENABLED
201 module function test_isDescending_D1_SK4() result(assertion); logical(LK) :: assertion; end function
202#endif
203#if SK3_ENABLED
204 module function test_isDescending_D1_SK3() result(assertion); logical(LK) :: assertion; end function
205#endif
206#if SK2_ENABLED
207 module function test_isDescending_D1_SK2() result(assertion); logical(LK) :: assertion; end function
208#endif
209#if SK1_ENABLED
210 module function test_isDescending_D1_SK1() result(assertion); logical(LK) :: assertion; end function
211#endif
212
213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214
215#if IK5_ENABLED
216 module function test_isDescending_D1_IK5() result(assertion); logical(LK) :: assertion; end function
217#endif
218#if IK4_ENABLED
219 module function test_isDescending_D1_IK4() result(assertion); logical(LK) :: assertion; end function
220#endif
221#if IK3_ENABLED
222 module function test_isDescending_D1_IK3() result(assertion); logical(LK) :: assertion; end function
223#endif
224#if IK2_ENABLED
225 module function test_isDescending_D1_IK2() result(assertion); logical(LK) :: assertion; end function
226#endif
227#if IK1_ENABLED
228 module function test_isDescending_D1_IK1() result(assertion); logical(LK) :: assertion; end function
229#endif
230
231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
232
233#if LK5_ENABLED
234 module function test_isDescending_D1_LK5() result(assertion); logical(LK) :: assertion; end function
235#endif
236#if LK4_ENABLED
237 module function test_isDescending_D1_LK4() result(assertion); logical(LK) :: assertion; end function
238#endif
239#if LK3_ENABLED
240 module function test_isDescending_D1_LK3() result(assertion); logical(LK) :: assertion; end function
241#endif
242#if LK2_ENABLED
243 module function test_isDescending_D1_LK2() result(assertion); logical(LK) :: assertion; end function
244#endif
245#if LK1_ENABLED
246 module function test_isDescending_D1_LK1() result(assertion); logical(LK) :: assertion; end function
247#endif
248
249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250
251#if CK5_ENABLED
252 module function test_isDescending_D1_CK5() result(assertion); logical(LK) :: assertion; end function
253#endif
254#if CK4_ENABLED
255 module function test_isDescending_D1_CK4() result(assertion); logical(LK) :: assertion; end function
256#endif
257#if CK3_ENABLED
258 module function test_isDescending_D1_CK3() result(assertion); logical(LK) :: assertion; end function
259#endif
260#if CK2_ENABLED
261 module function test_isDescending_D1_CK2() result(assertion); logical(LK) :: assertion; end function
262#endif
263#if CK1_ENABLED
264 module function test_isDescending_D1_CK1() result(assertion); logical(LK) :: assertion; end function
265#endif
266
267 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268
269#if RK5_ENABLED
270 module function test_isDescending_D1_RK5() result(assertion); logical(LK) :: assertion; end function
271#endif
272#if RK4_ENABLED
273 module function test_isDescending_D1_RK4() result(assertion); logical(LK) :: assertion; end function
274#endif
275#if RK3_ENABLED
276 module function test_isDescending_D1_RK3() result(assertion); logical(LK) :: assertion; end function
277#endif
278#if RK2_ENABLED
279 module function test_isDescending_D1_RK2() result(assertion); logical(LK) :: assertion; end function
280#endif
281#if RK1_ENABLED
282 module function test_isDescending_D1_RK1() result(assertion); logical(LK) :: assertion; end function
283#endif
284
285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286
287#if SK5_ENABLED
288 module function test_isDescending_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
289#endif
290#if SK4_ENABLED
291 module function test_isDescending_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
292#endif
293#if SK3_ENABLED
294 module function test_isDescending_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
295#endif
296#if SK2_ENABLED
297 module function test_isDescending_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
298#endif
299#if SK1_ENABLED
300 module function test_isDescending_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
301#endif
302
303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304
305 end interface
306
307!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308
309 interface
310
311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312
313#if SK5_ENABLED
314 module function test_isSorted_D0_SK5() result(assertion); logical(LK) :: assertion; end function
315#endif
316#if SK4_ENABLED
317 module function test_isSorted_D0_SK4() result(assertion); logical(LK) :: assertion; end function
318#endif
319#if SK3_ENABLED
320 module function test_isSorted_D0_SK3() result(assertion); logical(LK) :: assertion; end function
321#endif
322#if SK2_ENABLED
323 module function test_isSorted_D0_SK2() result(assertion); logical(LK) :: assertion; end function
324#endif
325#if SK1_ENABLED
326 module function test_isSorted_D0_SK1() result(assertion); logical(LK) :: assertion; end function
327#endif
328
329 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
330
331#if SK5_ENABLED
332 module function test_isSorted_D1_SK5() result(assertion); logical(LK) :: assertion; end function
333#endif
334#if SK4_ENABLED
335 module function test_isSorted_D1_SK4() result(assertion); logical(LK) :: assertion; end function
336#endif
337#if SK3_ENABLED
338 module function test_isSorted_D1_SK3() result(assertion); logical(LK) :: assertion; end function
339#endif
340#if SK2_ENABLED
341 module function test_isSorted_D1_SK2() result(assertion); logical(LK) :: assertion; end function
342#endif
343#if SK1_ENABLED
344 module function test_isSorted_D1_SK1() result(assertion); logical(LK) :: assertion; end function
345#endif
346
347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
348
349#if IK5_ENABLED
350 module function test_isSorted_D1_IK5() result(assertion); logical(LK) :: assertion; end function
351#endif
352#if IK4_ENABLED
353 module function test_isSorted_D1_IK4() result(assertion); logical(LK) :: assertion; end function
354#endif
355#if IK3_ENABLED
356 module function test_isSorted_D1_IK3() result(assertion); logical(LK) :: assertion; end function
357#endif
358#if IK2_ENABLED
359 module function test_isSorted_D1_IK2() result(assertion); logical(LK) :: assertion; end function
360#endif
361#if IK1_ENABLED
362 module function test_isSorted_D1_IK1() result(assertion); logical(LK) :: assertion; end function
363#endif
364
365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
366
367#if LK5_ENABLED
368 module function test_isSorted_D1_LK5() result(assertion); logical(LK) :: assertion; end function
369#endif
370#if LK4_ENABLED
371 module function test_isSorted_D1_LK4() result(assertion); logical(LK) :: assertion; end function
372#endif
373#if LK3_ENABLED
374 module function test_isSorted_D1_LK3() result(assertion); logical(LK) :: assertion; end function
375#endif
376#if LK2_ENABLED
377 module function test_isSorted_D1_LK2() result(assertion); logical(LK) :: assertion; end function
378#endif
379#if LK1_ENABLED
380 module function test_isSorted_D1_LK1() result(assertion); logical(LK) :: assertion; end function
381#endif
382
383 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384
385#if CK5_ENABLED
386 module function test_isSorted_D1_CK5() result(assertion); logical(LK) :: assertion; end function
387#endif
388#if CK4_ENABLED
389 module function test_isSorted_D1_CK4() result(assertion); logical(LK) :: assertion; end function
390#endif
391#if CK3_ENABLED
392 module function test_isSorted_D1_CK3() result(assertion); logical(LK) :: assertion; end function
393#endif
394#if CK2_ENABLED
395 module function test_isSorted_D1_CK2() result(assertion); logical(LK) :: assertion; end function
396#endif
397#if CK1_ENABLED
398 module function test_isSorted_D1_CK1() result(assertion); logical(LK) :: assertion; end function
399#endif
400
401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
402
403#if RK5_ENABLED
404 module function test_isSorted_D1_RK5() result(assertion); logical(LK) :: assertion; end function
405#endif
406#if RK4_ENABLED
407 module function test_isSorted_D1_RK4() result(assertion); logical(LK) :: assertion; end function
408#endif
409#if RK3_ENABLED
410 module function test_isSorted_D1_RK3() result(assertion); logical(LK) :: assertion; end function
411#endif
412#if RK2_ENABLED
413 module function test_isSorted_D1_RK2() result(assertion); logical(LK) :: assertion; end function
414#endif
415#if RK1_ENABLED
416 module function test_isSorted_D1_RK1() result(assertion); logical(LK) :: assertion; end function
417#endif
418
419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
420
421#if SK5_ENABLED
422 module function test_isSorted_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
423#endif
424#if SK4_ENABLED
425 module function test_isSorted_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
426#endif
427#if SK3_ENABLED
428 module function test_isSorted_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
429#endif
430#if SK2_ENABLED
431 module function test_isSorted_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
432#endif
433#if SK1_ENABLED
434 module function test_isSorted_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
435#endif
436
437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
438
439 end interface
440
441!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442
443 interface
444
445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446
447#if SK5_ENABLED
448 module function test_setSortedIndDef_D0_SK5() result(assertion); logical(LK) :: assertion; end function
449#endif
450#if SK4_ENABLED
451 module function test_setSortedIndDef_D0_SK4() result(assertion); logical(LK) :: assertion; end function
452#endif
453#if SK3_ENABLED
454 module function test_setSortedIndDef_D0_SK3() result(assertion); logical(LK) :: assertion; end function
455#endif
456#if SK2_ENABLED
457 module function test_setSortedIndDef_D0_SK2() result(assertion); logical(LK) :: assertion; end function
458#endif
459#if SK1_ENABLED
460 module function test_setSortedIndDef_D0_SK1() result(assertion); logical(LK) :: assertion; end function
461#endif
462
463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464
465#if SK5_ENABLED
466 module function test_setSortedIndDef_D1_SK5() result(assertion); logical(LK) :: assertion; end function
467#endif
468#if SK4_ENABLED
469 module function test_setSortedIndDef_D1_SK4() result(assertion); logical(LK) :: assertion; end function
470#endif
471#if SK3_ENABLED
472 module function test_setSortedIndDef_D1_SK3() result(assertion); logical(LK) :: assertion; end function
473#endif
474#if SK2_ENABLED
475 module function test_setSortedIndDef_D1_SK2() result(assertion); logical(LK) :: assertion; end function
476#endif
477#if SK1_ENABLED
478 module function test_setSortedIndDef_D1_SK1() result(assertion); logical(LK) :: assertion; end function
479#endif
480
481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
482
483#if IK5_ENABLED
484 module function test_setSortedIndDef_D1_IK5() result(assertion); logical(LK) :: assertion; end function
485#endif
486#if IK4_ENABLED
487 module function test_setSortedIndDef_D1_IK4() result(assertion); logical(LK) :: assertion; end function
488#endif
489#if IK3_ENABLED
490 module function test_setSortedIndDef_D1_IK3() result(assertion); logical(LK) :: assertion; end function
491#endif
492#if IK2_ENABLED
493 module function test_setSortedIndDef_D1_IK2() result(assertion); logical(LK) :: assertion; end function
494#endif
495#if IK1_ENABLED
496 module function test_setSortedIndDef_D1_IK1() result(assertion); logical(LK) :: assertion; end function
497#endif
498
499 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
500
501#if LK5_ENABLED
502 module function test_setSortedIndDef_D1_LK5() result(assertion); logical(LK) :: assertion; end function
503#endif
504#if LK4_ENABLED
505 module function test_setSortedIndDef_D1_LK4() result(assertion); logical(LK) :: assertion; end function
506#endif
507#if LK3_ENABLED
508 module function test_setSortedIndDef_D1_LK3() result(assertion); logical(LK) :: assertion; end function
509#endif
510#if LK2_ENABLED
511 module function test_setSortedIndDef_D1_LK2() result(assertion); logical(LK) :: assertion; end function
512#endif
513#if LK1_ENABLED
514 module function test_setSortedIndDef_D1_LK1() result(assertion); logical(LK) :: assertion; end function
515#endif
516
517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518
519#if CK5_ENABLED
520 module function test_setSortedIndDef_D1_CK5() result(assertion); logical(LK) :: assertion; end function
521#endif
522#if CK4_ENABLED
523 module function test_setSortedIndDef_D1_CK4() result(assertion); logical(LK) :: assertion; end function
524#endif
525#if CK3_ENABLED
526 module function test_setSortedIndDef_D1_CK3() result(assertion); logical(LK) :: assertion; end function
527#endif
528#if CK2_ENABLED
529 module function test_setSortedIndDef_D1_CK2() result(assertion); logical(LK) :: assertion; end function
530#endif
531#if CK1_ENABLED
532 module function test_setSortedIndDef_D1_CK1() result(assertion); logical(LK) :: assertion; end function
533#endif
534
535 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
536
537#if RK5_ENABLED
538 module function test_setSortedIndDef_D1_RK5() result(assertion); logical(LK) :: assertion; end function
539#endif
540#if RK4_ENABLED
541 module function test_setSortedIndDef_D1_RK4() result(assertion); logical(LK) :: assertion; end function
542#endif
543#if RK3_ENABLED
544 module function test_setSortedIndDef_D1_RK3() result(assertion); logical(LK) :: assertion; end function
545#endif
546#if RK2_ENABLED
547 module function test_setSortedIndDef_D1_RK2() result(assertion); logical(LK) :: assertion; end function
548#endif
549#if RK1_ENABLED
550 module function test_setSortedIndDef_D1_RK1() result(assertion); logical(LK) :: assertion; end function
551#endif
552
553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554
555#if SK5_ENABLED
556 module function test_setSortedIndDef_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
557#endif
558#if SK4_ENABLED
559 module function test_setSortedIndDef_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
560#endif
561#if SK3_ENABLED
562 module function test_setSortedIndDef_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
563#endif
564#if SK2_ENABLED
565 module function test_setSortedIndDef_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
566#endif
567#if SK1_ENABLED
568 module function test_setSortedIndDef_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
569#endif
570
571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572
573 end interface
574
575!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576
577 interface
578
579 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
580
581#if SK5_ENABLED
582 module function test_setSortedArrQsorti_D0_SK5() result(assertion); logical(LK) :: assertion; end function
583#endif
584#if SK4_ENABLED
585 module function test_setSortedArrQsorti_D0_SK4() result(assertion); logical(LK) :: assertion; end function
586#endif
587#if SK3_ENABLED
588 module function test_setSortedArrQsorti_D0_SK3() result(assertion); logical(LK) :: assertion; end function
589#endif
590#if SK2_ENABLED
591 module function test_setSortedArrQsorti_D0_SK2() result(assertion); logical(LK) :: assertion; end function
592#endif
593#if SK1_ENABLED
594 module function test_setSortedArrQsorti_D0_SK1() result(assertion); logical(LK) :: assertion; end function
595#endif
596
597 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598
599#if SK5_ENABLED
600 module function test_setSortedArrQsorti_D1_SK5() result(assertion); logical(LK) :: assertion; end function
601#endif
602#if SK4_ENABLED
603 module function test_setSortedArrQsorti_D1_SK4() result(assertion); logical(LK) :: assertion; end function
604#endif
605#if SK3_ENABLED
606 module function test_setSortedArrQsorti_D1_SK3() result(assertion); logical(LK) :: assertion; end function
607#endif
608#if SK2_ENABLED
609 module function test_setSortedArrQsorti_D1_SK2() result(assertion); logical(LK) :: assertion; end function
610#endif
611#if SK1_ENABLED
612 module function test_setSortedArrQsorti_D1_SK1() result(assertion); logical(LK) :: assertion; end function
613#endif
614
615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
616
617#if IK5_ENABLED
618 module function test_setSortedArrQsorti_D1_IK5() result(assertion); logical(LK) :: assertion; end function
619#endif
620#if IK4_ENABLED
621 module function test_setSortedArrQsorti_D1_IK4() result(assertion); logical(LK) :: assertion; end function
622#endif
623#if IK3_ENABLED
624 module function test_setSortedArrQsorti_D1_IK3() result(assertion); logical(LK) :: assertion; end function
625#endif
626#if IK2_ENABLED
627 module function test_setSortedArrQsorti_D1_IK2() result(assertion); logical(LK) :: assertion; end function
628#endif
629#if IK1_ENABLED
630 module function test_setSortedArrQsorti_D1_IK1() result(assertion); logical(LK) :: assertion; end function
631#endif
632
633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634
635#if LK5_ENABLED
636 module function test_setSortedArrQsorti_D1_LK5() result(assertion); logical(LK) :: assertion; end function
637#endif
638#if LK4_ENABLED
639 module function test_setSortedArrQsorti_D1_LK4() result(assertion); logical(LK) :: assertion; end function
640#endif
641#if LK3_ENABLED
642 module function test_setSortedArrQsorti_D1_LK3() result(assertion); logical(LK) :: assertion; end function
643#endif
644#if LK2_ENABLED
645 module function test_setSortedArrQsorti_D1_LK2() result(assertion); logical(LK) :: assertion; end function
646#endif
647#if LK1_ENABLED
648 module function test_setSortedArrQsorti_D1_LK1() result(assertion); logical(LK) :: assertion; end function
649#endif
650
651 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
652
653#if CK5_ENABLED
654 module function test_setSortedArrQsorti_D1_CK5() result(assertion); logical(LK) :: assertion; end function
655#endif
656#if CK4_ENABLED
657 module function test_setSortedArrQsorti_D1_CK4() result(assertion); logical(LK) :: assertion; end function
658#endif
659#if CK3_ENABLED
660 module function test_setSortedArrQsorti_D1_CK3() result(assertion); logical(LK) :: assertion; end function
661#endif
662#if CK2_ENABLED
663 module function test_setSortedArrQsorti_D1_CK2() result(assertion); logical(LK) :: assertion; end function
664#endif
665#if CK1_ENABLED
666 module function test_setSortedArrQsorti_D1_CK1() result(assertion); logical(LK) :: assertion; end function
667#endif
668
669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
670
671#if RK5_ENABLED
672 module function test_setSortedArrQsorti_D1_RK5() result(assertion); logical(LK) :: assertion; end function
673#endif
674#if RK4_ENABLED
675 module function test_setSortedArrQsorti_D1_RK4() result(assertion); logical(LK) :: assertion; end function
676#endif
677#if RK3_ENABLED
678 module function test_setSortedArrQsorti_D1_RK3() result(assertion); logical(LK) :: assertion; end function
679#endif
680#if RK2_ENABLED
681 module function test_setSortedArrQsorti_D1_RK2() result(assertion); logical(LK) :: assertion; end function
682#endif
683#if RK1_ENABLED
684 module function test_setSortedArrQsorti_D1_RK1() result(assertion); logical(LK) :: assertion; end function
685#endif
686
687 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
688
689#if SK5_ENABLED
690 module function test_setSortedArrQsorti_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
691#endif
692#if SK4_ENABLED
693 module function test_setSortedArrQsorti_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
694#endif
695#if SK3_ENABLED
696 module function test_setSortedArrQsorti_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
697#endif
698#if SK2_ENABLED
699 module function test_setSortedArrQsorti_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
700#endif
701#if SK1_ENABLED
702 module function test_setSortedArrQsorti_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
703#endif
704
705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
706
707 end interface
708
709!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
710
711 interface
712
713 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
714
715#if SK5_ENABLED
716 module function test_setSortedArrQsortr_D0_SK5() result(assertion); logical(LK) :: assertion; end function
717#endif
718#if SK4_ENABLED
719 module function test_setSortedArrQsortr_D0_SK4() result(assertion); logical(LK) :: assertion; end function
720#endif
721#if SK3_ENABLED
722 module function test_setSortedArrQsortr_D0_SK3() result(assertion); logical(LK) :: assertion; end function
723#endif
724#if SK2_ENABLED
725 module function test_setSortedArrQsortr_D0_SK2() result(assertion); logical(LK) :: assertion; end function
726#endif
727#if SK1_ENABLED
728 module function test_setSortedArrQsortr_D0_SK1() result(assertion); logical(LK) :: assertion; end function
729#endif
730
731 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
732
733#if SK5_ENABLED
734 module function test_setSortedArrQsortr_D1_SK5() result(assertion); logical(LK) :: assertion; end function
735#endif
736#if SK4_ENABLED
737 module function test_setSortedArrQsortr_D1_SK4() result(assertion); logical(LK) :: assertion; end function
738#endif
739#if SK3_ENABLED
740 module function test_setSortedArrQsortr_D1_SK3() result(assertion); logical(LK) :: assertion; end function
741#endif
742#if SK2_ENABLED
743 module function test_setSortedArrQsortr_D1_SK2() result(assertion); logical(LK) :: assertion; end function
744#endif
745#if SK1_ENABLED
746 module function test_setSortedArrQsortr_D1_SK1() result(assertion); logical(LK) :: assertion; end function
747#endif
748
749 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
750
751#if IK5_ENABLED
752 module function test_setSortedArrQsortr_D1_IK5() result(assertion); logical(LK) :: assertion; end function
753#endif
754#if IK4_ENABLED
755 module function test_setSortedArrQsortr_D1_IK4() result(assertion); logical(LK) :: assertion; end function
756#endif
757#if IK3_ENABLED
758 module function test_setSortedArrQsortr_D1_IK3() result(assertion); logical(LK) :: assertion; end function
759#endif
760#if IK2_ENABLED
761 module function test_setSortedArrQsortr_D1_IK2() result(assertion); logical(LK) :: assertion; end function
762#endif
763#if IK1_ENABLED
764 module function test_setSortedArrQsortr_D1_IK1() result(assertion); logical(LK) :: assertion; end function
765#endif
766
767 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
768
769#if LK5_ENABLED
770 module function test_setSortedArrQsortr_D1_LK5() result(assertion); logical(LK) :: assertion; end function
771#endif
772#if LK4_ENABLED
773 module function test_setSortedArrQsortr_D1_LK4() result(assertion); logical(LK) :: assertion; end function
774#endif
775#if LK3_ENABLED
776 module function test_setSortedArrQsortr_D1_LK3() result(assertion); logical(LK) :: assertion; end function
777#endif
778#if LK2_ENABLED
779 module function test_setSortedArrQsortr_D1_LK2() result(assertion); logical(LK) :: assertion; end function
780#endif
781#if LK1_ENABLED
782 module function test_setSortedArrQsortr_D1_LK1() result(assertion); logical(LK) :: assertion; end function
783#endif
784
785 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
786
787#if CK5_ENABLED
788 module function test_setSortedArrQsortr_D1_CK5() result(assertion); logical(LK) :: assertion; end function
789#endif
790#if CK4_ENABLED
791 module function test_setSortedArrQsortr_D1_CK4() result(assertion); logical(LK) :: assertion; end function
792#endif
793#if CK3_ENABLED
794 module function test_setSortedArrQsortr_D1_CK3() result(assertion); logical(LK) :: assertion; end function
795#endif
796#if CK2_ENABLED
797 module function test_setSortedArrQsortr_D1_CK2() result(assertion); logical(LK) :: assertion; end function
798#endif
799#if CK1_ENABLED
800 module function test_setSortedArrQsortr_D1_CK1() result(assertion); logical(LK) :: assertion; end function
801#endif
802
803 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
804
805#if RK5_ENABLED
806 module function test_setSortedArrQsortr_D1_RK5() result(assertion); logical(LK) :: assertion; end function
807#endif
808#if RK4_ENABLED
809 module function test_setSortedArrQsortr_D1_RK4() result(assertion); logical(LK) :: assertion; end function
810#endif
811#if RK3_ENABLED
812 module function test_setSortedArrQsortr_D1_RK3() result(assertion); logical(LK) :: assertion; end function
813#endif
814#if RK2_ENABLED
815 module function test_setSortedArrQsortr_D1_RK2() result(assertion); logical(LK) :: assertion; end function
816#endif
817#if RK1_ENABLED
818 module function test_setSortedArrQsortr_D1_RK1() result(assertion); logical(LK) :: assertion; end function
819#endif
820
821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
822
823#if SK5_ENABLED
824 module function test_setSortedArrQsortr_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
825#endif
826#if SK4_ENABLED
827 module function test_setSortedArrQsortr_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
828#endif
829#if SK3_ENABLED
830 module function test_setSortedArrQsortr_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
831#endif
832#if SK2_ENABLED
833 module function test_setSortedArrQsortr_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
834#endif
835#if SK1_ENABLED
836 module function test_setSortedArrQsortr_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
837#endif
838
839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
840
841 end interface
842
843!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
844
845 interface
846
847 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
848
849#if SK5_ENABLED
850 module function test_setSortedArrQsortrdp_D0_SK5() result(assertion); logical(LK) :: assertion; end function
851#endif
852#if SK4_ENABLED
853 module function test_setSortedArrQsortrdp_D0_SK4() result(assertion); logical(LK) :: assertion; end function
854#endif
855#if SK3_ENABLED
856 module function test_setSortedArrQsortrdp_D0_SK3() result(assertion); logical(LK) :: assertion; end function
857#endif
858#if SK2_ENABLED
859 module function test_setSortedArrQsortrdp_D0_SK2() result(assertion); logical(LK) :: assertion; end function
860#endif
861#if SK1_ENABLED
862 module function test_setSortedArrQsortrdp_D0_SK1() result(assertion); logical(LK) :: assertion; end function
863#endif
864
865 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
866
867#if SK5_ENABLED
868 module function test_setSortedArrQsortrdp_D1_SK5() result(assertion); logical(LK) :: assertion; end function
869#endif
870#if SK4_ENABLED
871 module function test_setSortedArrQsortrdp_D1_SK4() result(assertion); logical(LK) :: assertion; end function
872#endif
873#if SK3_ENABLED
874 module function test_setSortedArrQsortrdp_D1_SK3() result(assertion); logical(LK) :: assertion; end function
875#endif
876#if SK2_ENABLED
877 module function test_setSortedArrQsortrdp_D1_SK2() result(assertion); logical(LK) :: assertion; end function
878#endif
879#if SK1_ENABLED
880 module function test_setSortedArrQsortrdp_D1_SK1() result(assertion); logical(LK) :: assertion; end function
881#endif
882
883 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
884
885#if IK5_ENABLED
886 module function test_setSortedArrQsortrdp_D1_IK5() result(assertion); logical(LK) :: assertion; end function
887#endif
888#if IK4_ENABLED
889 module function test_setSortedArrQsortrdp_D1_IK4() result(assertion); logical(LK) :: assertion; end function
890#endif
891#if IK3_ENABLED
892 module function test_setSortedArrQsortrdp_D1_IK3() result(assertion); logical(LK) :: assertion; end function
893#endif
894#if IK2_ENABLED
895 module function test_setSortedArrQsortrdp_D1_IK2() result(assertion); logical(LK) :: assertion; end function
896#endif
897#if IK1_ENABLED
898 module function test_setSortedArrQsortrdp_D1_IK1() result(assertion); logical(LK) :: assertion; end function
899#endif
900
901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
902
903#if LK5_ENABLED
904 module function test_setSortedArrQsortrdp_D1_LK5() result(assertion); logical(LK) :: assertion; end function
905#endif
906#if LK4_ENABLED
907 module function test_setSortedArrQsortrdp_D1_LK4() result(assertion); logical(LK) :: assertion; end function
908#endif
909#if LK3_ENABLED
910 module function test_setSortedArrQsortrdp_D1_LK3() result(assertion); logical(LK) :: assertion; end function
911#endif
912#if LK2_ENABLED
913 module function test_setSortedArrQsortrdp_D1_LK2() result(assertion); logical(LK) :: assertion; end function
914#endif
915#if LK1_ENABLED
916 module function test_setSortedArrQsortrdp_D1_LK1() result(assertion); logical(LK) :: assertion; end function
917#endif
918
919 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
920
921#if CK5_ENABLED
922 module function test_setSortedArrQsortrdp_D1_CK5() result(assertion); logical(LK) :: assertion; end function
923#endif
924#if CK4_ENABLED
925 module function test_setSortedArrQsortrdp_D1_CK4() result(assertion); logical(LK) :: assertion; end function
926#endif
927#if CK3_ENABLED
928 module function test_setSortedArrQsortrdp_D1_CK3() result(assertion); logical(LK) :: assertion; end function
929#endif
930#if CK2_ENABLED
931 module function test_setSortedArrQsortrdp_D1_CK2() result(assertion); logical(LK) :: assertion; end function
932#endif
933#if CK1_ENABLED
934 module function test_setSortedArrQsortrdp_D1_CK1() result(assertion); logical(LK) :: assertion; end function
935#endif
936
937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
938
939#if RK5_ENABLED
940 module function test_setSortedArrQsortrdp_D1_RK5() result(assertion); logical(LK) :: assertion; end function
941#endif
942#if RK4_ENABLED
943 module function test_setSortedArrQsortrdp_D1_RK4() result(assertion); logical(LK) :: assertion; end function
944#endif
945#if RK3_ENABLED
946 module function test_setSortedArrQsortrdp_D1_RK3() result(assertion); logical(LK) :: assertion; end function
947#endif
948#if RK2_ENABLED
949 module function test_setSortedArrQsortrdp_D1_RK2() result(assertion); logical(LK) :: assertion; end function
950#endif
951#if RK1_ENABLED
952 module function test_setSortedArrQsortrdp_D1_RK1() result(assertion); logical(LK) :: assertion; end function
953#endif
954
955 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
956
957#if SK5_ENABLED
958 module function test_setSortedArrQsortrdp_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
959#endif
960#if SK4_ENABLED
961 module function test_setSortedArrQsortrdp_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
962#endif
963#if SK3_ENABLED
964 module function test_setSortedArrQsortrdp_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
965#endif
966#if SK2_ENABLED
967 module function test_setSortedArrQsortrdp_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
968#endif
969#if SK1_ENABLED
970 module function test_setSortedArrQsortrdp_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
971#endif
972
973 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
974
975 end interface
976
977!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
978
979 interface
980
981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
982
983#if SK5_ENABLED
984 module function test_setSortedArrBubble_D0_SK5() result(assertion); logical(LK) :: assertion; end function
985#endif
986#if SK4_ENABLED
987 module function test_setSortedArrBubble_D0_SK4() result(assertion); logical(LK) :: assertion; end function
988#endif
989#if SK3_ENABLED
990 module function test_setSortedArrBubble_D0_SK3() result(assertion); logical(LK) :: assertion; end function
991#endif
992#if SK2_ENABLED
993 module function test_setSortedArrBubble_D0_SK2() result(assertion); logical(LK) :: assertion; end function
994#endif
995#if SK1_ENABLED
996 module function test_setSortedArrBubble_D0_SK1() result(assertion); logical(LK) :: assertion; end function
997#endif
998
999 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1000
1001#if SK5_ENABLED
1002 module function test_setSortedArrBubble_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1003#endif
1004#if SK4_ENABLED
1005 module function test_setSortedArrBubble_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1006#endif
1007#if SK3_ENABLED
1008 module function test_setSortedArrBubble_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1009#endif
1010#if SK2_ENABLED
1011 module function test_setSortedArrBubble_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1012#endif
1013#if SK1_ENABLED
1014 module function test_setSortedArrBubble_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1015#endif
1016
1017 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1018
1019#if IK5_ENABLED
1020 module function test_setSortedArrBubble_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1021#endif
1022#if IK4_ENABLED
1023 module function test_setSortedArrBubble_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1024#endif
1025#if IK3_ENABLED
1026 module function test_setSortedArrBubble_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1027#endif
1028#if IK2_ENABLED
1029 module function test_setSortedArrBubble_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1030#endif
1031#if IK1_ENABLED
1032 module function test_setSortedArrBubble_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1033#endif
1034
1035 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1036
1037#if LK5_ENABLED
1038 module function test_setSortedArrBubble_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1039#endif
1040#if LK4_ENABLED
1041 module function test_setSortedArrBubble_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1042#endif
1043#if LK3_ENABLED
1044 module function test_setSortedArrBubble_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1045#endif
1046#if LK2_ENABLED
1047 module function test_setSortedArrBubble_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1048#endif
1049#if LK1_ENABLED
1050 module function test_setSortedArrBubble_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1051#endif
1052
1053 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1054
1055#if CK5_ENABLED
1056 module function test_setSortedArrBubble_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1057#endif
1058#if CK4_ENABLED
1059 module function test_setSortedArrBubble_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1060#endif
1061#if CK3_ENABLED
1062 module function test_setSortedArrBubble_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1063#endif
1064#if CK2_ENABLED
1065 module function test_setSortedArrBubble_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1066#endif
1067#if CK1_ENABLED
1068 module function test_setSortedArrBubble_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1069#endif
1070
1071 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1072
1073#if RK5_ENABLED
1074 module function test_setSortedArrBubble_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1075#endif
1076#if RK4_ENABLED
1077 module function test_setSortedArrBubble_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1078#endif
1079#if RK3_ENABLED
1080 module function test_setSortedArrBubble_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1081#endif
1082#if RK2_ENABLED
1083 module function test_setSortedArrBubble_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1084#endif
1085#if RK1_ENABLED
1086 module function test_setSortedArrBubble_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1087#endif
1088
1089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1090
1091#if SK5_ENABLED
1092 module function test_setSortedArrBubble_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1093#endif
1094#if SK4_ENABLED
1095 module function test_setSortedArrBubble_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1096#endif
1097#if SK3_ENABLED
1098 module function test_setSortedArrBubble_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1099#endif
1100#if SK2_ENABLED
1101 module function test_setSortedArrBubble_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1102#endif
1103#if SK1_ENABLED
1104 module function test_setSortedArrBubble_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1105#endif
1106
1107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1108
1109 end interface
1110
1111!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1112
1113 interface
1114
1115 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1116
1117#if SK5_ENABLED
1118 module function test_setSortedArrHeapi_D0_SK5() result(assertion); logical(LK) :: assertion; end function
1119#endif
1120#if SK4_ENABLED
1121 module function test_setSortedArrHeapi_D0_SK4() result(assertion); logical(LK) :: assertion; end function
1122#endif
1123#if SK3_ENABLED
1124 module function test_setSortedArrHeapi_D0_SK3() result(assertion); logical(LK) :: assertion; end function
1125#endif
1126#if SK2_ENABLED
1127 module function test_setSortedArrHeapi_D0_SK2() result(assertion); logical(LK) :: assertion; end function
1128#endif
1129#if SK1_ENABLED
1130 module function test_setSortedArrHeapi_D0_SK1() result(assertion); logical(LK) :: assertion; end function
1131#endif
1132
1133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1134
1135#if SK5_ENABLED
1136 module function test_setSortedArrHeapi_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1137#endif
1138#if SK4_ENABLED
1139 module function test_setSortedArrHeapi_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1140#endif
1141#if SK3_ENABLED
1142 module function test_setSortedArrHeapi_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1143#endif
1144#if SK2_ENABLED
1145 module function test_setSortedArrHeapi_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1146#endif
1147#if SK1_ENABLED
1148 module function test_setSortedArrHeapi_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1149#endif
1150
1151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1152
1153#if IK5_ENABLED
1154 module function test_setSortedArrHeapi_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1155#endif
1156#if IK4_ENABLED
1157 module function test_setSortedArrHeapi_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1158#endif
1159#if IK3_ENABLED
1160 module function test_setSortedArrHeapi_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1161#endif
1162#if IK2_ENABLED
1163 module function test_setSortedArrHeapi_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1164#endif
1165#if IK1_ENABLED
1166 module function test_setSortedArrHeapi_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1167#endif
1168
1169 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1170
1171#if LK5_ENABLED
1172 module function test_setSortedArrHeapi_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1173#endif
1174#if LK4_ENABLED
1175 module function test_setSortedArrHeapi_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1176#endif
1177#if LK3_ENABLED
1178 module function test_setSortedArrHeapi_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1179#endif
1180#if LK2_ENABLED
1181 module function test_setSortedArrHeapi_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1182#endif
1183#if LK1_ENABLED
1184 module function test_setSortedArrHeapi_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1185#endif
1186
1187 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1188
1189#if CK5_ENABLED
1190 module function test_setSortedArrHeapi_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1191#endif
1192#if CK4_ENABLED
1193 module function test_setSortedArrHeapi_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1194#endif
1195#if CK3_ENABLED
1196 module function test_setSortedArrHeapi_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1197#endif
1198#if CK2_ENABLED
1199 module function test_setSortedArrHeapi_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1200#endif
1201#if CK1_ENABLED
1202 module function test_setSortedArrHeapi_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1203#endif
1204
1205 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1206
1207#if RK5_ENABLED
1208 module function test_setSortedArrHeapi_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1209#endif
1210#if RK4_ENABLED
1211 module function test_setSortedArrHeapi_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1212#endif
1213#if RK3_ENABLED
1214 module function test_setSortedArrHeapi_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1215#endif
1216#if RK2_ENABLED
1217 module function test_setSortedArrHeapi_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1218#endif
1219#if RK1_ENABLED
1220 module function test_setSortedArrHeapi_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1221#endif
1222
1223 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1224
1225#if SK5_ENABLED
1226 module function test_setSortedArrHeapi_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1227#endif
1228#if SK4_ENABLED
1229 module function test_setSortedArrHeapi_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1230#endif
1231#if SK3_ENABLED
1232 module function test_setSortedArrHeapi_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1233#endif
1234#if SK2_ENABLED
1235 module function test_setSortedArrHeapi_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1236#endif
1237#if SK1_ENABLED
1238 module function test_setSortedArrHeapi_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1239#endif
1240
1241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1242
1243 end interface
1244
1245!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1246
1247 interface
1248
1249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1250
1251#if SK5_ENABLED
1252 module function test_setSortedArrHeapr_D0_SK5() result(assertion); logical(LK) :: assertion; end function
1253#endif
1254#if SK4_ENABLED
1255 module function test_setSortedArrHeapr_D0_SK4() result(assertion); logical(LK) :: assertion; end function
1256#endif
1257#if SK3_ENABLED
1258 module function test_setSortedArrHeapr_D0_SK3() result(assertion); logical(LK) :: assertion; end function
1259#endif
1260#if SK2_ENABLED
1261 module function test_setSortedArrHeapr_D0_SK2() result(assertion); logical(LK) :: assertion; end function
1262#endif
1263#if SK1_ENABLED
1264 module function test_setSortedArrHeapr_D0_SK1() result(assertion); logical(LK) :: assertion; end function
1265#endif
1266
1267 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1268
1269#if SK5_ENABLED
1270 module function test_setSortedArrHeapr_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1271#endif
1272#if SK4_ENABLED
1273 module function test_setSortedArrHeapr_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1274#endif
1275#if SK3_ENABLED
1276 module function test_setSortedArrHeapr_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1277#endif
1278#if SK2_ENABLED
1279 module function test_setSortedArrHeapr_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1280#endif
1281#if SK1_ENABLED
1282 module function test_setSortedArrHeapr_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1283#endif
1284
1285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1286
1287#if IK5_ENABLED
1288 module function test_setSortedArrHeapr_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1289#endif
1290#if IK4_ENABLED
1291 module function test_setSortedArrHeapr_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1292#endif
1293#if IK3_ENABLED
1294 module function test_setSortedArrHeapr_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1295#endif
1296#if IK2_ENABLED
1297 module function test_setSortedArrHeapr_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1298#endif
1299#if IK1_ENABLED
1300 module function test_setSortedArrHeapr_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1301#endif
1302
1303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1304
1305#if LK5_ENABLED
1306 module function test_setSortedArrHeapr_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1307#endif
1308#if LK4_ENABLED
1309 module function test_setSortedArrHeapr_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1310#endif
1311#if LK3_ENABLED
1312 module function test_setSortedArrHeapr_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1313#endif
1314#if LK2_ENABLED
1315 module function test_setSortedArrHeapr_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1316#endif
1317#if LK1_ENABLED
1318 module function test_setSortedArrHeapr_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1319#endif
1320
1321 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1322
1323#if CK5_ENABLED
1324 module function test_setSortedArrHeapr_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1325#endif
1326#if CK4_ENABLED
1327 module function test_setSortedArrHeapr_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1328#endif
1329#if CK3_ENABLED
1330 module function test_setSortedArrHeapr_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1331#endif
1332#if CK2_ENABLED
1333 module function test_setSortedArrHeapr_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1334#endif
1335#if CK1_ENABLED
1336 module function test_setSortedArrHeapr_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1337#endif
1338
1339 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1340
1341#if RK5_ENABLED
1342 module function test_setSortedArrHeapr_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1343#endif
1344#if RK4_ENABLED
1345 module function test_setSortedArrHeapr_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1346#endif
1347#if RK3_ENABLED
1348 module function test_setSortedArrHeapr_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1349#endif
1350#if RK2_ENABLED
1351 module function test_setSortedArrHeapr_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1352#endif
1353#if RK1_ENABLED
1354 module function test_setSortedArrHeapr_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1355#endif
1356
1357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1358
1359#if SK5_ENABLED
1360 module function test_setSortedArrHeapr_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1361#endif
1362#if SK4_ENABLED
1363 module function test_setSortedArrHeapr_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1364#endif
1365#if SK3_ENABLED
1366 module function test_setSortedArrHeapr_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1367#endif
1368#if SK2_ENABLED
1369 module function test_setSortedArrHeapr_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1370#endif
1371#if SK1_ENABLED
1372 module function test_setSortedArrHeapr_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1373#endif
1374
1375 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1376
1377 end interface
1378
1379!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1380
1381 interface
1382
1383 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1384
1385#if SK5_ENABLED
1386 module function test_setSortedArrInsertionl_D0_SK5() result(assertion); logical(LK) :: assertion; end function
1387#endif
1388#if SK4_ENABLED
1389 module function test_setSortedArrInsertionl_D0_SK4() result(assertion); logical(LK) :: assertion; end function
1390#endif
1391#if SK3_ENABLED
1392 module function test_setSortedArrInsertionl_D0_SK3() result(assertion); logical(LK) :: assertion; end function
1393#endif
1394#if SK2_ENABLED
1395 module function test_setSortedArrInsertionl_D0_SK2() result(assertion); logical(LK) :: assertion; end function
1396#endif
1397#if SK1_ENABLED
1398 module function test_setSortedArrInsertionl_D0_SK1() result(assertion); logical(LK) :: assertion; end function
1399#endif
1400
1401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1402
1403#if SK5_ENABLED
1404 module function test_setSortedArrInsertionl_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1405#endif
1406#if SK4_ENABLED
1407 module function test_setSortedArrInsertionl_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1408#endif
1409#if SK3_ENABLED
1410 module function test_setSortedArrInsertionl_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1411#endif
1412#if SK2_ENABLED
1413 module function test_setSortedArrInsertionl_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1414#endif
1415#if SK1_ENABLED
1416 module function test_setSortedArrInsertionl_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1417#endif
1418
1419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1420
1421#if IK5_ENABLED
1422 module function test_setSortedArrInsertionl_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1423#endif
1424#if IK4_ENABLED
1425 module function test_setSortedArrInsertionl_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1426#endif
1427#if IK3_ENABLED
1428 module function test_setSortedArrInsertionl_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1429#endif
1430#if IK2_ENABLED
1431 module function test_setSortedArrInsertionl_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1432#endif
1433#if IK1_ENABLED
1434 module function test_setSortedArrInsertionl_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1435#endif
1436
1437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1438
1439#if LK5_ENABLED
1440 module function test_setSortedArrInsertionl_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1441#endif
1442#if LK4_ENABLED
1443 module function test_setSortedArrInsertionl_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1444#endif
1445#if LK3_ENABLED
1446 module function test_setSortedArrInsertionl_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1447#endif
1448#if LK2_ENABLED
1449 module function test_setSortedArrInsertionl_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1450#endif
1451#if LK1_ENABLED
1452 module function test_setSortedArrInsertionl_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1453#endif
1454
1455 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1456
1457#if CK5_ENABLED
1458 module function test_setSortedArrInsertionl_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1459#endif
1460#if CK4_ENABLED
1461 module function test_setSortedArrInsertionl_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1462#endif
1463#if CK3_ENABLED
1464 module function test_setSortedArrInsertionl_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1465#endif
1466#if CK2_ENABLED
1467 module function test_setSortedArrInsertionl_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1468#endif
1469#if CK1_ENABLED
1470 module function test_setSortedArrInsertionl_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1471#endif
1472
1473 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1474
1475#if RK5_ENABLED
1476 module function test_setSortedArrInsertionl_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1477#endif
1478#if RK4_ENABLED
1479 module function test_setSortedArrInsertionl_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1480#endif
1481#if RK3_ENABLED
1482 module function test_setSortedArrInsertionl_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1483#endif
1484#if RK2_ENABLED
1485 module function test_setSortedArrInsertionl_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1486#endif
1487#if RK1_ENABLED
1488 module function test_setSortedArrInsertionl_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1489#endif
1490
1491 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1492
1493#if SK5_ENABLED
1494 module function test_setSortedArrInsertionl_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1495#endif
1496#if SK4_ENABLED
1497 module function test_setSortedArrInsertionl_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1498#endif
1499#if SK3_ENABLED
1500 module function test_setSortedArrInsertionl_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1501#endif
1502#if SK2_ENABLED
1503 module function test_setSortedArrInsertionl_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1504#endif
1505#if SK1_ENABLED
1506 module function test_setSortedArrInsertionl_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1507#endif
1508
1509 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1510
1511 end interface
1512
1513!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1514
1515 interface
1516
1517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1518
1519#if SK5_ENABLED
1520 module function test_setSortedArrInsertionb_D0_SK5() result(assertion); logical(LK) :: assertion; end function
1521#endif
1522#if SK4_ENABLED
1523 module function test_setSortedArrInsertionb_D0_SK4() result(assertion); logical(LK) :: assertion; end function
1524#endif
1525#if SK3_ENABLED
1526 module function test_setSortedArrInsertionb_D0_SK3() result(assertion); logical(LK) :: assertion; end function
1527#endif
1528#if SK2_ENABLED
1529 module function test_setSortedArrInsertionb_D0_SK2() result(assertion); logical(LK) :: assertion; end function
1530#endif
1531#if SK1_ENABLED
1532 module function test_setSortedArrInsertionb_D0_SK1() result(assertion); logical(LK) :: assertion; end function
1533#endif
1534
1535 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1536
1537#if SK5_ENABLED
1538 module function test_setSortedArrInsertionb_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1539#endif
1540#if SK4_ENABLED
1541 module function test_setSortedArrInsertionb_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1542#endif
1543#if SK3_ENABLED
1544 module function test_setSortedArrInsertionb_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1545#endif
1546#if SK2_ENABLED
1547 module function test_setSortedArrInsertionb_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1548#endif
1549#if SK1_ENABLED
1550 module function test_setSortedArrInsertionb_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1551#endif
1552
1553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1554
1555#if IK5_ENABLED
1556 module function test_setSortedArrInsertionb_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1557#endif
1558#if IK4_ENABLED
1559 module function test_setSortedArrInsertionb_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1560#endif
1561#if IK3_ENABLED
1562 module function test_setSortedArrInsertionb_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1563#endif
1564#if IK2_ENABLED
1565 module function test_setSortedArrInsertionb_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1566#endif
1567#if IK1_ENABLED
1568 module function test_setSortedArrInsertionb_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1569#endif
1570
1571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1572
1573#if LK5_ENABLED
1574 module function test_setSortedArrInsertionb_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1575#endif
1576#if LK4_ENABLED
1577 module function test_setSortedArrInsertionb_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1578#endif
1579#if LK3_ENABLED
1580 module function test_setSortedArrInsertionb_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1581#endif
1582#if LK2_ENABLED
1583 module function test_setSortedArrInsertionb_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1584#endif
1585#if LK1_ENABLED
1586 module function test_setSortedArrInsertionb_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1587#endif
1588
1589 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1590
1591#if CK5_ENABLED
1592 module function test_setSortedArrInsertionb_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1593#endif
1594#if CK4_ENABLED
1595 module function test_setSortedArrInsertionb_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1596#endif
1597#if CK3_ENABLED
1598 module function test_setSortedArrInsertionb_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1599#endif
1600#if CK2_ENABLED
1601 module function test_setSortedArrInsertionb_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1602#endif
1603#if CK1_ENABLED
1604 module function test_setSortedArrInsertionb_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1605#endif
1606
1607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1608
1609#if RK5_ENABLED
1610 module function test_setSortedArrInsertionb_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1611#endif
1612#if RK4_ENABLED
1613 module function test_setSortedArrInsertionb_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1614#endif
1615#if RK3_ENABLED
1616 module function test_setSortedArrInsertionb_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1617#endif
1618#if RK2_ENABLED
1619 module function test_setSortedArrInsertionb_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1620#endif
1621#if RK1_ENABLED
1622 module function test_setSortedArrInsertionb_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1623#endif
1624
1625 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1626
1627#if SK5_ENABLED
1628 module function test_setSortedArrInsertionb_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1629#endif
1630#if SK4_ENABLED
1631 module function test_setSortedArrInsertionb_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1632#endif
1633#if SK3_ENABLED
1634 module function test_setSortedArrInsertionb_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1635#endif
1636#if SK2_ENABLED
1637 module function test_setSortedArrInsertionb_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1638#endif
1639#if SK1_ENABLED
1640 module function test_setSortedArrInsertionb_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1641#endif
1642
1643 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1644
1645 end interface
1646
1647!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1648
1649 interface
1650
1651 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1652
1653#if SK5_ENABLED
1654 module function test_setSortedArrMerger_D0_SK5() result(assertion); logical(LK) :: assertion; end function
1655#endif
1656#if SK4_ENABLED
1657 module function test_setSortedArrMerger_D0_SK4() result(assertion); logical(LK) :: assertion; end function
1658#endif
1659#if SK3_ENABLED
1660 module function test_setSortedArrMerger_D0_SK3() result(assertion); logical(LK) :: assertion; end function
1661#endif
1662#if SK2_ENABLED
1663 module function test_setSortedArrMerger_D0_SK2() result(assertion); logical(LK) :: assertion; end function
1664#endif
1665#if SK1_ENABLED
1666 module function test_setSortedArrMerger_D0_SK1() result(assertion); logical(LK) :: assertion; end function
1667#endif
1668
1669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670
1671#if SK5_ENABLED
1672 module function test_setSortedArrMerger_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1673#endif
1674#if SK4_ENABLED
1675 module function test_setSortedArrMerger_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1676#endif
1677#if SK3_ENABLED
1678 module function test_setSortedArrMerger_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1679#endif
1680#if SK2_ENABLED
1681 module function test_setSortedArrMerger_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1682#endif
1683#if SK1_ENABLED
1684 module function test_setSortedArrMerger_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1685#endif
1686
1687 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1688
1689#if IK5_ENABLED
1690 module function test_setSortedArrMerger_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1691#endif
1692#if IK4_ENABLED
1693 module function test_setSortedArrMerger_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1694#endif
1695#if IK3_ENABLED
1696 module function test_setSortedArrMerger_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1697#endif
1698#if IK2_ENABLED
1699 module function test_setSortedArrMerger_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1700#endif
1701#if IK1_ENABLED
1702 module function test_setSortedArrMerger_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1703#endif
1704
1705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1706
1707#if LK5_ENABLED
1708 module function test_setSortedArrMerger_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1709#endif
1710#if LK4_ENABLED
1711 module function test_setSortedArrMerger_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1712#endif
1713#if LK3_ENABLED
1714 module function test_setSortedArrMerger_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1715#endif
1716#if LK2_ENABLED
1717 module function test_setSortedArrMerger_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1718#endif
1719#if LK1_ENABLED
1720 module function test_setSortedArrMerger_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1721#endif
1722
1723 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1724
1725#if CK5_ENABLED
1726 module function test_setSortedArrMerger_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1727#endif
1728#if CK4_ENABLED
1729 module function test_setSortedArrMerger_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1730#endif
1731#if CK3_ENABLED
1732 module function test_setSortedArrMerger_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1733#endif
1734#if CK2_ENABLED
1735 module function test_setSortedArrMerger_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1736#endif
1737#if CK1_ENABLED
1738 module function test_setSortedArrMerger_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1739#endif
1740
1741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1742
1743#if RK5_ENABLED
1744 module function test_setSortedArrMerger_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1745#endif
1746#if RK4_ENABLED
1747 module function test_setSortedArrMerger_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1748#endif
1749#if RK3_ENABLED
1750 module function test_setSortedArrMerger_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1751#endif
1752#if RK2_ENABLED
1753 module function test_setSortedArrMerger_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1754#endif
1755#if RK1_ENABLED
1756 module function test_setSortedArrMerger_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1757#endif
1758
1759 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1760
1761#if SK5_ENABLED
1762 module function test_setSortedArrMerger_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1763#endif
1764#if SK4_ENABLED
1765 module function test_setSortedArrMerger_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1766#endif
1767#if SK3_ENABLED
1768 module function test_setSortedArrMerger_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1769#endif
1770#if SK2_ENABLED
1771 module function test_setSortedArrMerger_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1772#endif
1773#if SK1_ENABLED
1774 module function test_setSortedArrMerger_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1775#endif
1776
1777 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1778
1779 end interface
1780
1781!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1782
1783 interface
1784
1785 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1786
1787#if SK5_ENABLED
1788 module function test_setSortedArrSelection_D0_SK5() result(assertion); logical(LK) :: assertion; end function
1789#endif
1790#if SK4_ENABLED
1791 module function test_setSortedArrSelection_D0_SK4() result(assertion); logical(LK) :: assertion; end function
1792#endif
1793#if SK3_ENABLED
1794 module function test_setSortedArrSelection_D0_SK3() result(assertion); logical(LK) :: assertion; end function
1795#endif
1796#if SK2_ENABLED
1797 module function test_setSortedArrSelection_D0_SK2() result(assertion); logical(LK) :: assertion; end function
1798#endif
1799#if SK1_ENABLED
1800 module function test_setSortedArrSelection_D0_SK1() result(assertion); logical(LK) :: assertion; end function
1801#endif
1802
1803 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1804
1805#if SK5_ENABLED
1806 module function test_setSortedArrSelection_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1807#endif
1808#if SK4_ENABLED
1809 module function test_setSortedArrSelection_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1810#endif
1811#if SK3_ENABLED
1812 module function test_setSortedArrSelection_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1813#endif
1814#if SK2_ENABLED
1815 module function test_setSortedArrSelection_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1816#endif
1817#if SK1_ENABLED
1818 module function test_setSortedArrSelection_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1819#endif
1820
1821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1822
1823#if IK5_ENABLED
1824 module function test_setSortedArrSelection_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1825#endif
1826#if IK4_ENABLED
1827 module function test_setSortedArrSelection_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1828#endif
1829#if IK3_ENABLED
1830 module function test_setSortedArrSelection_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1831#endif
1832#if IK2_ENABLED
1833 module function test_setSortedArrSelection_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1834#endif
1835#if IK1_ENABLED
1836 module function test_setSortedArrSelection_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1837#endif
1838
1839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1840
1841#if LK5_ENABLED
1842 module function test_setSortedArrSelection_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1843#endif
1844#if LK4_ENABLED
1845 module function test_setSortedArrSelection_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1846#endif
1847#if LK3_ENABLED
1848 module function test_setSortedArrSelection_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1849#endif
1850#if LK2_ENABLED
1851 module function test_setSortedArrSelection_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1852#endif
1853#if LK1_ENABLED
1854 module function test_setSortedArrSelection_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1855#endif
1856
1857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1858
1859#if CK5_ENABLED
1860 module function test_setSortedArrSelection_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1861#endif
1862#if CK4_ENABLED
1863 module function test_setSortedArrSelection_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1864#endif
1865#if CK3_ENABLED
1866 module function test_setSortedArrSelection_D1_CK3() result(assertion); logical(LK) :: assertion; end function
1867#endif
1868#if CK2_ENABLED
1869 module function test_setSortedArrSelection_D1_CK2() result(assertion); logical(LK) :: assertion; end function
1870#endif
1871#if CK1_ENABLED
1872 module function test_setSortedArrSelection_D1_CK1() result(assertion); logical(LK) :: assertion; end function
1873#endif
1874
1875 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1876
1877#if RK5_ENABLED
1878 module function test_setSortedArrSelection_D1_RK5() result(assertion); logical(LK) :: assertion; end function
1879#endif
1880#if RK4_ENABLED
1881 module function test_setSortedArrSelection_D1_RK4() result(assertion); logical(LK) :: assertion; end function
1882#endif
1883#if RK3_ENABLED
1884 module function test_setSortedArrSelection_D1_RK3() result(assertion); logical(LK) :: assertion; end function
1885#endif
1886#if RK2_ENABLED
1887 module function test_setSortedArrSelection_D1_RK2() result(assertion); logical(LK) :: assertion; end function
1888#endif
1889#if RK1_ENABLED
1890 module function test_setSortedArrSelection_D1_RK1() result(assertion); logical(LK) :: assertion; end function
1891#endif
1892
1893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1894
1895#if SK5_ENABLED
1896 module function test_setSortedArrSelection_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
1897#endif
1898#if SK4_ENABLED
1899 module function test_setSortedArrSelection_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
1900#endif
1901#if SK3_ENABLED
1902 module function test_setSortedArrSelection_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
1903#endif
1904#if SK2_ENABLED
1905 module function test_setSortedArrSelection_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
1906#endif
1907#if SK1_ENABLED
1908 module function test_setSortedArrSelection_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
1909#endif
1910
1911 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1912
1913 end interface
1914
1915!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1916
1917 interface
1918
1919 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1920
1921#if SK5_ENABLED
1922 module function test_setSortedArrShell_D0_SK5() result(assertion); logical(LK) :: assertion; end function
1923#endif
1924#if SK4_ENABLED
1925 module function test_setSortedArrShell_D0_SK4() result(assertion); logical(LK) :: assertion; end function
1926#endif
1927#if SK3_ENABLED
1928 module function test_setSortedArrShell_D0_SK3() result(assertion); logical(LK) :: assertion; end function
1929#endif
1930#if SK2_ENABLED
1931 module function test_setSortedArrShell_D0_SK2() result(assertion); logical(LK) :: assertion; end function
1932#endif
1933#if SK1_ENABLED
1934 module function test_setSortedArrShell_D0_SK1() result(assertion); logical(LK) :: assertion; end function
1935#endif
1936
1937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1938
1939#if SK5_ENABLED
1940 module function test_setSortedArrShell_D1_SK5() result(assertion); logical(LK) :: assertion; end function
1941#endif
1942#if SK4_ENABLED
1943 module function test_setSortedArrShell_D1_SK4() result(assertion); logical(LK) :: assertion; end function
1944#endif
1945#if SK3_ENABLED
1946 module function test_setSortedArrShell_D1_SK3() result(assertion); logical(LK) :: assertion; end function
1947#endif
1948#if SK2_ENABLED
1949 module function test_setSortedArrShell_D1_SK2() result(assertion); logical(LK) :: assertion; end function
1950#endif
1951#if SK1_ENABLED
1952 module function test_setSortedArrShell_D1_SK1() result(assertion); logical(LK) :: assertion; end function
1953#endif
1954
1955 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1956
1957#if IK5_ENABLED
1958 module function test_setSortedArrShell_D1_IK5() result(assertion); logical(LK) :: assertion; end function
1959#endif
1960#if IK4_ENABLED
1961 module function test_setSortedArrShell_D1_IK4() result(assertion); logical(LK) :: assertion; end function
1962#endif
1963#if IK3_ENABLED
1964 module function test_setSortedArrShell_D1_IK3() result(assertion); logical(LK) :: assertion; end function
1965#endif
1966#if IK2_ENABLED
1967 module function test_setSortedArrShell_D1_IK2() result(assertion); logical(LK) :: assertion; end function
1968#endif
1969#if IK1_ENABLED
1970 module function test_setSortedArrShell_D1_IK1() result(assertion); logical(LK) :: assertion; end function
1971#endif
1972
1973 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1974
1975#if LK5_ENABLED
1976 module function test_setSortedArrShell_D1_LK5() result(assertion); logical(LK) :: assertion; end function
1977#endif
1978#if LK4_ENABLED
1979 module function test_setSortedArrShell_D1_LK4() result(assertion); logical(LK) :: assertion; end function
1980#endif
1981#if LK3_ENABLED
1982 module function test_setSortedArrShell_D1_LK3() result(assertion); logical(LK) :: assertion; end function
1983#endif
1984#if LK2_ENABLED
1985 module function test_setSortedArrShell_D1_LK2() result(assertion); logical(LK) :: assertion; end function
1986#endif
1987#if LK1_ENABLED
1988 module function test_setSortedArrShell_D1_LK1() result(assertion); logical(LK) :: assertion; end function
1989#endif
1990
1991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1992
1993#if CK5_ENABLED
1994 module function test_setSortedArrShell_D1_CK5() result(assertion); logical(LK) :: assertion; end function
1995#endif
1996#if CK4_ENABLED
1997 module function test_setSortedArrShell_D1_CK4() result(assertion); logical(LK) :: assertion; end function
1998#endif
1999#if CK3_ENABLED
2000 module function test_setSortedArrShell_D1_CK3() result(assertion); logical(LK) :: assertion; end function
2001#endif
2002#if CK2_ENABLED
2003 module function test_setSortedArrShell_D1_CK2() result(assertion); logical(LK) :: assertion; end function
2004#endif
2005#if CK1_ENABLED
2006 module function test_setSortedArrShell_D1_CK1() result(assertion); logical(LK) :: assertion; end function
2007#endif
2008
2009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2010
2011#if RK5_ENABLED
2012 module function test_setSortedArrShell_D1_RK5() result(assertion); logical(LK) :: assertion; end function
2013#endif
2014#if RK4_ENABLED
2015 module function test_setSortedArrShell_D1_RK4() result(assertion); logical(LK) :: assertion; end function
2016#endif
2017#if RK3_ENABLED
2018 module function test_setSortedArrShell_D1_RK3() result(assertion); logical(LK) :: assertion; end function
2019#endif
2020#if RK2_ENABLED
2021 module function test_setSortedArrShell_D1_RK2() result(assertion); logical(LK) :: assertion; end function
2022#endif
2023#if RK1_ENABLED
2024 module function test_setSortedArrShell_D1_RK1() result(assertion); logical(LK) :: assertion; end function
2025#endif
2026
2027 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2028
2029#if SK5_ENABLED
2030 module function test_setSortedArrShell_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
2031#endif
2032#if SK4_ENABLED
2033 module function test_setSortedArrShell_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
2034#endif
2035#if SK3_ENABLED
2036 module function test_setSortedArrShell_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
2037#endif
2038#if SK2_ENABLED
2039 module function test_setSortedArrShell_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
2040#endif
2041#if SK1_ENABLED
2042 module function test_setSortedArrShell_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
2043#endif
2044
2045 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2046
2047 end interface
2048
2049!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2050
2051contains
2052
2053!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2054
2055 subroutine setTest()
2056 test = test_type(MODULE_NAME)
2057
2058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2059
2060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2062 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2063
2064 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2065
2066#if SK5_ENABLED
2067 call test%run(test_isAscending_D0_SK5, SK_"test_isAscending_D0_SK5")
2068#endif
2069#if SK4_ENABLED
2070 call test%run(test_isAscending_D0_SK4, SK_"test_isAscending_D0_SK4")
2071#endif
2072#if SK3_ENABLED
2073 call test%run(test_isAscending_D0_SK3, SK_"test_isAscending_D0_SK3")
2074#endif
2075#if SK2_ENABLED
2076 call test%run(test_isAscending_D0_SK2, SK_"test_isAscending_D0_SK2")
2077#endif
2078#if SK1_ENABLED
2079 call test%run(test_isAscending_D0_SK1, SK_"test_isAscending_D0_SK1")
2080#endif
2081
2082 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2083
2084#if SK5_ENABLED
2085 call test%run(test_isAscending_D1_SK5, SK_"test_isAscending_D1_SK5")
2086#endif
2087#if SK4_ENABLED
2088 call test%run(test_isAscending_D1_SK4, SK_"test_isAscending_D1_SK4")
2089#endif
2090#if SK3_ENABLED
2091 call test%run(test_isAscending_D1_SK3, SK_"test_isAscending_D1_SK3")
2092#endif
2093#if SK2_ENABLED
2094 call test%run(test_isAscending_D1_SK2, SK_"test_isAscending_D1_SK2")
2095#endif
2096#if SK1_ENABLED
2097 call test%run(test_isAscending_D1_SK1, SK_"test_isAscending_D1_SK1")
2098#endif
2099
2100 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2101
2102#if IK5_ENABLED
2103 call test%run(test_isAscending_D1_IK5, SK_"test_isAscending_D1_IK5")
2104#endif
2105#if IK4_ENABLED
2106 call test%run(test_isAscending_D1_IK4, SK_"test_isAscending_D1_IK4")
2107#endif
2108#if IK3_ENABLED
2109 call test%run(test_isAscending_D1_IK3, SK_"test_isAscending_D1_IK3")
2110#endif
2111#if IK2_ENABLED
2112 call test%run(test_isAscending_D1_IK2, SK_"test_isAscending_D1_IK2")
2113#endif
2114#if IK1_ENABLED
2115 call test%run(test_isAscending_D1_IK1, SK_"test_isAscending_D1_IK1")
2116#endif
2117
2118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2119
2120#if LK5_ENABLED
2121 call test%run(test_isAscending_D1_LK5, SK_"test_isAscending_D1_LK5")
2122#endif
2123#if LK4_ENABLED
2124 call test%run(test_isAscending_D1_LK4, SK_"test_isAscending_D1_LK4")
2125#endif
2126#if LK3_ENABLED
2127 call test%run(test_isAscending_D1_LK3, SK_"test_isAscending_D1_LK3")
2128#endif
2129#if LK2_ENABLED
2130 call test%run(test_isAscending_D1_LK2, SK_"test_isAscending_D1_LK2")
2131#endif
2132#if LK1_ENABLED
2133 call test%run(test_isAscending_D1_LK1, SK_"test_isAscending_D1_LK1")
2134#endif
2135
2136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2137
2138#if CK5_ENABLED
2139 call test%run(test_isAscending_D1_CK5, SK_"test_isAscending_D1_CK5")
2140#endif
2141#if CK4_ENABLED
2142 call test%run(test_isAscending_D1_CK4, SK_"test_isAscending_D1_CK4")
2143#endif
2144#if CK3_ENABLED
2145 call test%run(test_isAscending_D1_CK3, SK_"test_isAscending_D1_CK3")
2146#endif
2147#if CK2_ENABLED
2148 call test%run(test_isAscending_D1_CK2, SK_"test_isAscending_D1_CK2")
2149#endif
2150#if CK1_ENABLED
2151 call test%run(test_isAscending_D1_CK1, SK_"test_isAscending_D1_CK1")
2152#endif
2153
2154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2155
2156#if RK5_ENABLED
2157 call test%run(test_isAscending_D1_RK5, SK_"test_isAscending_D1_RK5")
2158#endif
2159#if RK4_ENABLED
2160 call test%run(test_isAscending_D1_RK4, SK_"test_isAscending_D1_RK4")
2161#endif
2162#if RK3_ENABLED
2163 call test%run(test_isAscending_D1_RK3, SK_"test_isAscending_D1_RK3")
2164#endif
2165#if RK2_ENABLED
2166 call test%run(test_isAscending_D1_RK2, SK_"test_isAscending_D1_RK2")
2167#endif
2168#if RK1_ENABLED
2169 call test%run(test_isAscending_D1_RK1, SK_"test_isAscending_D1_RK1")
2170#endif
2171
2172 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2173#if 0
2174#if SK5_ENABLED
2175 call test%run(test_isAscending_D1_PSSK5, SK_"test_isAscending_D1_PSSK5")
2176#endif
2177#if SK4_ENABLED
2178 call test%run(test_isAscending_D1_PSSK4, SK_"test_isAscending_D1_PSSK4")
2179#endif
2180#if SK3_ENABLED
2181 call test%run(test_isAscending_D1_PSSK3, SK_"test_isAscending_D1_PSSK3")
2182#endif
2183#if SK2_ENABLED
2184 call test%run(test_isAscending_D1_PSSK2, SK_"test_isAscending_D1_PSSK2")
2185#endif
2186#if SK1_ENABLED
2187 call test%run(test_isAscending_D1_PSSK1, SK_"test_isAscending_D1_PSSK1")
2188#endif
2189#endif
2190 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2191
2192 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2193 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2194 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2195
2196 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2197
2198#if SK5_ENABLED
2199 call test%run(test_isDescending_D0_SK5, SK_"test_isDescending_D0_SK5")
2200#endif
2201#if SK4_ENABLED
2202 call test%run(test_isDescending_D0_SK4, SK_"test_isDescending_D0_SK4")
2203#endif
2204#if SK3_ENABLED
2205 call test%run(test_isDescending_D0_SK3, SK_"test_isDescending_D0_SK3")
2206#endif
2207#if SK2_ENABLED
2208 call test%run(test_isDescending_D0_SK2, SK_"test_isDescending_D0_SK2")
2209#endif
2210#if SK1_ENABLED
2211 call test%run(test_isDescending_D0_SK1, SK_"test_isDescending_D0_SK1")
2212#endif
2213
2214 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2215
2216#if SK5_ENABLED
2217 call test%run(test_isDescending_D1_SK5, SK_"test_isDescending_D1_SK5")
2218#endif
2219#if SK4_ENABLED
2220 call test%run(test_isDescending_D1_SK4, SK_"test_isDescending_D1_SK4")
2221#endif
2222#if SK3_ENABLED
2223 call test%run(test_isDescending_D1_SK3, SK_"test_isDescending_D1_SK3")
2224#endif
2225#if SK2_ENABLED
2226 call test%run(test_isDescending_D1_SK2, SK_"test_isDescending_D1_SK2")
2227#endif
2228#if SK1_ENABLED
2229 call test%run(test_isDescending_D1_SK1, SK_"test_isDescending_D1_SK1")
2230#endif
2231
2232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2233
2234#if IK5_ENABLED
2235 call test%run(test_isDescending_D1_IK5, SK_"test_isDescending_D1_IK5")
2236#endif
2237#if IK4_ENABLED
2238 call test%run(test_isDescending_D1_IK4, SK_"test_isDescending_D1_IK4")
2239#endif
2240#if IK3_ENABLED
2241 call test%run(test_isDescending_D1_IK3, SK_"test_isDescending_D1_IK3")
2242#endif
2243#if IK2_ENABLED
2244 call test%run(test_isDescending_D1_IK2, SK_"test_isDescending_D1_IK2")
2245#endif
2246#if IK1_ENABLED
2247 call test%run(test_isDescending_D1_IK1, SK_"test_isDescending_D1_IK1")
2248#endif
2249
2250 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2251
2252#if LK5_ENABLED
2253 call test%run(test_isDescending_D1_LK5, SK_"test_isDescending_D1_LK5")
2254#endif
2255#if LK4_ENABLED
2256 call test%run(test_isDescending_D1_LK4, SK_"test_isDescending_D1_LK4")
2257#endif
2258#if LK3_ENABLED
2259 call test%run(test_isDescending_D1_LK3, SK_"test_isDescending_D1_LK3")
2260#endif
2261#if LK2_ENABLED
2262 call test%run(test_isDescending_D1_LK2, SK_"test_isDescending_D1_LK2")
2263#endif
2264#if LK1_ENABLED
2265 call test%run(test_isDescending_D1_LK1, SK_"test_isDescending_D1_LK1")
2266#endif
2267
2268 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2269
2270#if CK5_ENABLED
2271 call test%run(test_isDescending_D1_CK5, SK_"test_isDescending_D1_CK5")
2272#endif
2273#if CK4_ENABLED
2274 call test%run(test_isDescending_D1_CK4, SK_"test_isDescending_D1_CK4")
2275#endif
2276#if CK3_ENABLED
2277 call test%run(test_isDescending_D1_CK3, SK_"test_isDescending_D1_CK3")
2278#endif
2279#if CK2_ENABLED
2280 call test%run(test_isDescending_D1_CK2, SK_"test_isDescending_D1_CK2")
2281#endif
2282#if CK1_ENABLED
2283 call test%run(test_isDescending_D1_CK1, SK_"test_isDescending_D1_CK1")
2284#endif
2285
2286 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2287
2288#if RK5_ENABLED
2289 call test%run(test_isDescending_D1_RK5, SK_"test_isDescending_D1_RK5")
2290#endif
2291#if RK4_ENABLED
2292 call test%run(test_isDescending_D1_RK4, SK_"test_isDescending_D1_RK4")
2293#endif
2294#if RK3_ENABLED
2295 call test%run(test_isDescending_D1_RK3, SK_"test_isDescending_D1_RK3")
2296#endif
2297#if RK2_ENABLED
2298 call test%run(test_isDescending_D1_RK2, SK_"test_isDescending_D1_RK2")
2299#endif
2300#if RK1_ENABLED
2301 call test%run(test_isDescending_D1_RK1, SK_"test_isDescending_D1_RK1")
2302#endif
2303
2304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2305#if 0
2306#if SK5_ENABLED
2307 call test%run(test_isDescending_D1_PSSK5, SK_"test_isDescending_D1_PSSK5")
2308#endif
2309#if SK4_ENABLED
2310 call test%run(test_isDescending_D1_PSSK4, SK_"test_isDescending_D1_PSSK4")
2311#endif
2312#if SK3_ENABLED
2313 call test%run(test_isDescending_D1_PSSK3, SK_"test_isDescending_D1_PSSK3")
2314#endif
2315#if SK2_ENABLED
2316 call test%run(test_isDescending_D1_PSSK2, SK_"test_isDescending_D1_PSSK2")
2317#endif
2318#if SK1_ENABLED
2319 call test%run(test_isDescending_D1_PSSK1, SK_"test_isDescending_D1_PSSK1")
2320#endif
2321#endif
2322 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2323
2324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2325 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2326 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2327
2328 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2329
2330#if SK5_ENABLED
2331 call test%run(test_isSorted_D0_SK5, SK_"test_isSorted_D0_SK5")
2332#endif
2333#if SK4_ENABLED
2334 call test%run(test_isSorted_D0_SK4, SK_"test_isSorted_D0_SK4")
2335#endif
2336#if SK3_ENABLED
2337 call test%run(test_isSorted_D0_SK3, SK_"test_isSorted_D0_SK3")
2338#endif
2339#if SK2_ENABLED
2340 call test%run(test_isSorted_D0_SK2, SK_"test_isSorted_D0_SK2")
2341#endif
2342#if SK1_ENABLED
2343 call test%run(test_isSorted_D0_SK1, SK_"test_isSorted_D0_SK1")
2344#endif
2345
2346 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2347
2348#if SK5_ENABLED
2349 call test%run(test_isSorted_D1_SK5, SK_"test_isSorted_D1_SK5")
2350#endif
2351#if SK4_ENABLED
2352 call test%run(test_isSorted_D1_SK4, SK_"test_isSorted_D1_SK4")
2353#endif
2354#if SK3_ENABLED
2355 call test%run(test_isSorted_D1_SK3, SK_"test_isSorted_D1_SK3")
2356#endif
2357#if SK2_ENABLED
2358 call test%run(test_isSorted_D1_SK2, SK_"test_isSorted_D1_SK2")
2359#endif
2360#if SK1_ENABLED
2361 call test%run(test_isSorted_D1_SK1, SK_"test_isSorted_D1_SK1")
2362#endif
2363
2364 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2365
2366#if IK5_ENABLED
2367 call test%run(test_isSorted_D1_IK5, SK_"test_isSorted_D1_IK5")
2368#endif
2369#if IK4_ENABLED
2370 call test%run(test_isSorted_D1_IK4, SK_"test_isSorted_D1_IK4")
2371#endif
2372#if IK3_ENABLED
2373 call test%run(test_isSorted_D1_IK3, SK_"test_isSorted_D1_IK3")
2374#endif
2375#if IK2_ENABLED
2376 call test%run(test_isSorted_D1_IK2, SK_"test_isSorted_D1_IK2")
2377#endif
2378#if IK1_ENABLED
2379 call test%run(test_isSorted_D1_IK1, SK_"test_isSorted_D1_IK1")
2380#endif
2381
2382 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2383
2384#if LK5_ENABLED
2385 call test%run(test_isSorted_D1_LK5, SK_"test_isSorted_D1_LK5")
2386#endif
2387#if LK4_ENABLED
2388 call test%run(test_isSorted_D1_LK4, SK_"test_isSorted_D1_LK4")
2389#endif
2390#if LK3_ENABLED
2391 call test%run(test_isSorted_D1_LK3, SK_"test_isSorted_D1_LK3")
2392#endif
2393#if LK2_ENABLED
2394 call test%run(test_isSorted_D1_LK2, SK_"test_isSorted_D1_LK2")
2395#endif
2396#if LK1_ENABLED
2397 call test%run(test_isSorted_D1_LK1, SK_"test_isSorted_D1_LK1")
2398#endif
2399
2400 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2401
2402#if CK5_ENABLED
2403 call test%run(test_isSorted_D1_CK5, SK_"test_isSorted_D1_CK5")
2404#endif
2405#if CK4_ENABLED
2406 call test%run(test_isSorted_D1_CK4, SK_"test_isSorted_D1_CK4")
2407#endif
2408#if CK3_ENABLED
2409 call test%run(test_isSorted_D1_CK3, SK_"test_isSorted_D1_CK3")
2410#endif
2411#if CK2_ENABLED
2412 call test%run(test_isSorted_D1_CK2, SK_"test_isSorted_D1_CK2")
2413#endif
2414#if CK1_ENABLED
2415 call test%run(test_isSorted_D1_CK1, SK_"test_isSorted_D1_CK1")
2416#endif
2417
2418 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2419
2420#if RK5_ENABLED
2421 call test%run(test_isSorted_D1_RK5, SK_"test_isSorted_D1_RK5")
2422#endif
2423#if RK4_ENABLED
2424 call test%run(test_isSorted_D1_RK4, SK_"test_isSorted_D1_RK4")
2425#endif
2426#if RK3_ENABLED
2427 call test%run(test_isSorted_D1_RK3, SK_"test_isSorted_D1_RK3")
2428#endif
2429#if RK2_ENABLED
2430 call test%run(test_isSorted_D1_RK2, SK_"test_isSorted_D1_RK2")
2431#endif
2432#if RK1_ENABLED
2433 call test%run(test_isSorted_D1_RK1, SK_"test_isSorted_D1_RK1")
2434#endif
2435
2436 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2437#if 0
2438#if SK5_ENABLED
2439 call test%run(test_isSorted_D1_PSSK5, SK_"test_isSorted_D1_PSSK5")
2440#endif
2441#if SK4_ENABLED
2442 call test%run(test_isSorted_D1_PSSK4, SK_"test_isSorted_D1_PSSK4")
2443#endif
2444#if SK3_ENABLED
2445 call test%run(test_isSorted_D1_PSSK3, SK_"test_isSorted_D1_PSSK3")
2446#endif
2447#if SK2_ENABLED
2448 call test%run(test_isSorted_D1_PSSK2, SK_"test_isSorted_D1_PSSK2")
2449#endif
2450#if SK1_ENABLED
2451 call test%run(test_isSorted_D1_PSSK1, SK_"test_isSorted_D1_PSSK1")
2452#endif
2453#endif
2454 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2455
2456 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2457 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2458 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2459
2460 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2461
2462 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2464 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2465
2466 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2467
2468#if SK5_ENABLED
2469 call test%run(test_setSortedIndDef_D0_SK5, SK_"test_setSortedIndDef_D0_SK5")
2470#endif
2471#if SK4_ENABLED
2472 call test%run(test_setSortedIndDef_D0_SK4, SK_"test_setSortedIndDef_D0_SK4")
2473#endif
2474#if SK3_ENABLED
2475 call test%run(test_setSortedIndDef_D0_SK3, SK_"test_setSortedIndDef_D0_SK3")
2476#endif
2477#if SK2_ENABLED
2478 call test%run(test_setSortedIndDef_D0_SK2, SK_"test_setSortedIndDef_D0_SK2")
2479#endif
2480#if SK1_ENABLED
2481 call test%run(test_setSortedIndDef_D0_SK1, SK_"test_setSortedIndDef_D0_SK1")
2482#endif
2483
2484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2485
2486#if SK5_ENABLED
2487 call test%run(test_setSortedIndDef_D1_SK5, SK_"test_setSortedIndDef_D1_SK5")
2488#endif
2489#if SK4_ENABLED
2490 call test%run(test_setSortedIndDef_D1_SK4, SK_"test_setSortedIndDef_D1_SK4")
2491#endif
2492#if SK3_ENABLED
2493 call test%run(test_setSortedIndDef_D1_SK3, SK_"test_setSortedIndDef_D1_SK3")
2494#endif
2495#if SK2_ENABLED
2496 call test%run(test_setSortedIndDef_D1_SK2, SK_"test_setSortedIndDef_D1_SK2")
2497#endif
2498#if SK1_ENABLED
2499 call test%run(test_setSortedIndDef_D1_SK1, SK_"test_setSortedIndDef_D1_SK1")
2500#endif
2501
2502 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2503
2504#if IK5_ENABLED
2505 call test%run(test_setSortedIndDef_D1_IK5, SK_"test_setSortedIndDef_D1_IK5")
2506#endif
2507#if IK4_ENABLED
2508 call test%run(test_setSortedIndDef_D1_IK4, SK_"test_setSortedIndDef_D1_IK4")
2509#endif
2510#if IK3_ENABLED
2511 call test%run(test_setSortedIndDef_D1_IK3, SK_"test_setSortedIndDef_D1_IK3")
2512#endif
2513#if IK2_ENABLED
2514 call test%run(test_setSortedIndDef_D1_IK2, SK_"test_setSortedIndDef_D1_IK2")
2515#endif
2516#if IK1_ENABLED
2517 call test%run(test_setSortedIndDef_D1_IK1, SK_"test_setSortedIndDef_D1_IK1")
2518#endif
2519
2520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2521
2522#if LK5_ENABLED
2523 call test%run(test_setSortedIndDef_D1_LK5, SK_"test_setSortedIndDef_D1_LK5")
2524#endif
2525#if LK4_ENABLED
2526 call test%run(test_setSortedIndDef_D1_LK4, SK_"test_setSortedIndDef_D1_LK4")
2527#endif
2528#if LK3_ENABLED
2529 call test%run(test_setSortedIndDef_D1_LK3, SK_"test_setSortedIndDef_D1_LK3")
2530#endif
2531#if LK2_ENABLED
2532 call test%run(test_setSortedIndDef_D1_LK2, SK_"test_setSortedIndDef_D1_LK2")
2533#endif
2534#if LK1_ENABLED
2535 call test%run(test_setSortedIndDef_D1_LK1, SK_"test_setSortedIndDef_D1_LK1")
2536#endif
2537
2538 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2539
2540#if CK5_ENABLED
2541 call test%run(test_setSortedIndDef_D1_CK5, SK_"test_setSortedIndDef_D1_CK5")
2542#endif
2543#if CK4_ENABLED
2544 call test%run(test_setSortedIndDef_D1_CK4, SK_"test_setSortedIndDef_D1_CK4")
2545#endif
2546#if CK3_ENABLED
2547 call test%run(test_setSortedIndDef_D1_CK3, SK_"test_setSortedIndDef_D1_CK3")
2548#endif
2549#if CK2_ENABLED
2550 call test%run(test_setSortedIndDef_D1_CK2, SK_"test_setSortedIndDef_D1_CK2")
2551#endif
2552#if CK1_ENABLED
2553 call test%run(test_setSortedIndDef_D1_CK1, SK_"test_setSortedIndDef_D1_CK1")
2554#endif
2555
2556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2557
2558#if RK5_ENABLED
2559 call test%run(test_setSortedIndDef_D1_RK5, SK_"test_setSortedIndDef_D1_RK5")
2560#endif
2561#if RK4_ENABLED
2562 call test%run(test_setSortedIndDef_D1_RK4, SK_"test_setSortedIndDef_D1_RK4")
2563#endif
2564#if RK3_ENABLED
2565 call test%run(test_setSortedIndDef_D1_RK3, SK_"test_setSortedIndDef_D1_RK3")
2566#endif
2567#if RK2_ENABLED
2568 call test%run(test_setSortedIndDef_D1_RK2, SK_"test_setSortedIndDef_D1_RK2")
2569#endif
2570#if RK1_ENABLED
2571 call test%run(test_setSortedIndDef_D1_RK1, SK_"test_setSortedIndDef_D1_RK1")
2572#endif
2573
2574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2575#if 0
2576#if SK5_ENABLED
2577 call test%run(test_setSortedIndDef_D1_PSSK5, SK_"test_setSortedIndDef_D1_PSSK5")
2578#endif
2579#if SK4_ENABLED
2580 call test%run(test_setSortedIndDef_D1_PSSK4, SK_"test_setSortedIndDef_D1_PSSK4")
2581#endif
2582#if SK3_ENABLED
2583 call test%run(test_setSortedIndDef_D1_PSSK3, SK_"test_setSortedIndDef_D1_PSSK3")
2584#endif
2585#if SK2_ENABLED
2586 call test%run(test_setSortedIndDef_D1_PSSK2, SK_"test_setSortedIndDef_D1_PSSK2")
2587#endif
2588#if SK1_ENABLED
2589 call test%run(test_setSortedIndDef_D1_PSSK1, SK_"test_setSortedIndDef_D1_PSSK1")
2590#endif
2591#endif
2592 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2593
2594 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2595 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2596 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2597
2598 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2599
2600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2602 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2603
2604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2605
2606#if SK5_ENABLED
2607 call test%run(test_setSortedArrQsorti_D0_SK5, SK_"test_setSortedArrQsorti_D0_SK5")
2608#endif
2609#if SK4_ENABLED
2610 call test%run(test_setSortedArrQsorti_D0_SK4, SK_"test_setSortedArrQsorti_D0_SK4")
2611#endif
2612#if SK3_ENABLED
2613 call test%run(test_setSortedArrQsorti_D0_SK3, SK_"test_setSortedArrQsorti_D0_SK3")
2614#endif
2615#if SK2_ENABLED
2616 call test%run(test_setSortedArrQsorti_D0_SK2, SK_"test_setSortedArrQsorti_D0_SK2")
2617#endif
2618#if SK1_ENABLED
2619 call test%run(test_setSortedArrQsorti_D0_SK1, SK_"test_setSortedArrQsorti_D0_SK1")
2620#endif
2621
2622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2623
2624#if SK5_ENABLED
2625 call test%run(test_setSortedArrQsorti_D1_SK5, SK_"test_setSortedArrQsorti_D1_SK5")
2626#endif
2627#if SK4_ENABLED
2628 call test%run(test_setSortedArrQsorti_D1_SK4, SK_"test_setSortedArrQsorti_D1_SK4")
2629#endif
2630#if SK3_ENABLED
2631 call test%run(test_setSortedArrQsorti_D1_SK3, SK_"test_setSortedArrQsorti_D1_SK3")
2632#endif
2633#if SK2_ENABLED
2634 call test%run(test_setSortedArrQsorti_D1_SK2, SK_"test_setSortedArrQsorti_D1_SK2")
2635#endif
2636#if SK1_ENABLED
2637 call test%run(test_setSortedArrQsorti_D1_SK1, SK_"test_setSortedArrQsorti_D1_SK1")
2638#endif
2639
2640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2641
2642#if IK5_ENABLED
2643 call test%run(test_setSortedArrQsorti_D1_IK5, SK_"test_setSortedArrQsorti_D1_IK5")
2644#endif
2645#if IK4_ENABLED
2646 call test%run(test_setSortedArrQsorti_D1_IK4, SK_"test_setSortedArrQsorti_D1_IK4")
2647#endif
2648#if IK3_ENABLED
2649 call test%run(test_setSortedArrQsorti_D1_IK3, SK_"test_setSortedArrQsorti_D1_IK3")
2650#endif
2651#if IK2_ENABLED
2652 call test%run(test_setSortedArrQsorti_D1_IK2, SK_"test_setSortedArrQsorti_D1_IK2")
2653#endif
2654#if IK1_ENABLED
2655 call test%run(test_setSortedArrQsorti_D1_IK1, SK_"test_setSortedArrQsorti_D1_IK1")
2656#endif
2657
2658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2659
2660#if LK5_ENABLED
2661 call test%run(test_setSortedArrQsorti_D1_LK5, SK_"test_setSortedArrQsorti_D1_LK5")
2662#endif
2663#if LK4_ENABLED
2664 call test%run(test_setSortedArrQsorti_D1_LK4, SK_"test_setSortedArrQsorti_D1_LK4")
2665#endif
2666#if LK3_ENABLED
2667 call test%run(test_setSortedArrQsorti_D1_LK3, SK_"test_setSortedArrQsorti_D1_LK3")
2668#endif
2669#if LK2_ENABLED
2670 call test%run(test_setSortedArrQsorti_D1_LK2, SK_"test_setSortedArrQsorti_D1_LK2")
2671#endif
2672#if LK1_ENABLED
2673 call test%run(test_setSortedArrQsorti_D1_LK1, SK_"test_setSortedArrQsorti_D1_LK1")
2674#endif
2675
2676 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2677
2678#if CK5_ENABLED
2679 call test%run(test_setSortedArrQsorti_D1_CK5, SK_"test_setSortedArrQsorti_D1_CK5")
2680#endif
2681#if CK4_ENABLED
2682 call test%run(test_setSortedArrQsorti_D1_CK4, SK_"test_setSortedArrQsorti_D1_CK4")
2683#endif
2684#if CK3_ENABLED
2685 call test%run(test_setSortedArrQsorti_D1_CK3, SK_"test_setSortedArrQsorti_D1_CK3")
2686#endif
2687#if CK2_ENABLED
2688 call test%run(test_setSortedArrQsorti_D1_CK2, SK_"test_setSortedArrQsorti_D1_CK2")
2689#endif
2690#if CK1_ENABLED
2691 call test%run(test_setSortedArrQsorti_D1_CK1, SK_"test_setSortedArrQsorti_D1_CK1")
2692#endif
2693
2694 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2695
2696#if RK5_ENABLED
2697 call test%run(test_setSortedArrQsorti_D1_RK5, SK_"test_setSortedArrQsorti_D1_RK5")
2698#endif
2699#if RK4_ENABLED
2700 call test%run(test_setSortedArrQsorti_D1_RK4, SK_"test_setSortedArrQsorti_D1_RK4")
2701#endif
2702#if RK3_ENABLED
2703 call test%run(test_setSortedArrQsorti_D1_RK3, SK_"test_setSortedArrQsorti_D1_RK3")
2704#endif
2705#if RK2_ENABLED
2706 call test%run(test_setSortedArrQsorti_D1_RK2, SK_"test_setSortedArrQsorti_D1_RK2")
2707#endif
2708#if RK1_ENABLED
2709 call test%run(test_setSortedArrQsorti_D1_RK1, SK_"test_setSortedArrQsorti_D1_RK1")
2710#endif
2711
2712 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2713#if 0
2714#if SK5_ENABLED
2715 call test%run(test_setSortedArrQsorti_D1_PSSK5, SK_"test_setSortedArrQsorti_D1_PSSK5")
2716#endif
2717#if SK4_ENABLED
2718 call test%run(test_setSortedArrQsorti_D1_PSSK4, SK_"test_setSortedArrQsorti_D1_PSSK4")
2719#endif
2720#if SK3_ENABLED
2721 call test%run(test_setSortedArrQsorti_D1_PSSK3, SK_"test_setSortedArrQsorti_D1_PSSK3")
2722#endif
2723#if SK2_ENABLED
2724 call test%run(test_setSortedArrQsorti_D1_PSSK2, SK_"test_setSortedArrQsorti_D1_PSSK2")
2725#endif
2726#if SK1_ENABLED
2727 call test%run(test_setSortedArrQsorti_D1_PSSK1, SK_"test_setSortedArrQsorti_D1_PSSK1")
2728#endif
2729#endif
2730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2731
2732 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2733 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2734 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2735
2736 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2737
2738 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2740 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2741
2742 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2743
2744#if SK5_ENABLED
2745 call test%run(test_setSortedArrQsortr_D0_SK5, SK_"test_setSortedArrQsortr_D0_SK5")
2746#endif
2747#if SK4_ENABLED
2748 call test%run(test_setSortedArrQsortr_D0_SK4, SK_"test_setSortedArrQsortr_D0_SK4")
2749#endif
2750#if SK3_ENABLED
2751 call test%run(test_setSortedArrQsortr_D0_SK3, SK_"test_setSortedArrQsortr_D0_SK3")
2752#endif
2753#if SK2_ENABLED
2754 call test%run(test_setSortedArrQsortr_D0_SK2, SK_"test_setSortedArrQsortr_D0_SK2")
2755#endif
2756#if SK1_ENABLED
2757 call test%run(test_setSortedArrQsortr_D0_SK1, SK_"test_setSortedArrQsortr_D0_SK1")
2758#endif
2759
2760 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2761
2762#if SK5_ENABLED
2763 call test%run(test_setSortedArrQsortr_D1_SK5, SK_"test_setSortedArrQsortr_D1_SK5")
2764#endif
2765#if SK4_ENABLED
2766 call test%run(test_setSortedArrQsortr_D1_SK4, SK_"test_setSortedArrQsortr_D1_SK4")
2767#endif
2768#if SK3_ENABLED
2769 call test%run(test_setSortedArrQsortr_D1_SK3, SK_"test_setSortedArrQsortr_D1_SK3")
2770#endif
2771#if SK2_ENABLED
2772 call test%run(test_setSortedArrQsortr_D1_SK2, SK_"test_setSortedArrQsortr_D1_SK2")
2773#endif
2774#if SK1_ENABLED
2775 call test%run(test_setSortedArrQsortr_D1_SK1, SK_"test_setSortedArrQsortr_D1_SK1")
2776#endif
2777
2778 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2779
2780#if IK5_ENABLED
2781 call test%run(test_setSortedArrQsortr_D1_IK5, SK_"test_setSortedArrQsortr_D1_IK5")
2782#endif
2783#if IK4_ENABLED
2784 call test%run(test_setSortedArrQsortr_D1_IK4, SK_"test_setSortedArrQsortr_D1_IK4")
2785#endif
2786#if IK3_ENABLED
2787 call test%run(test_setSortedArrQsortr_D1_IK3, SK_"test_setSortedArrQsortr_D1_IK3")
2788#endif
2789#if IK2_ENABLED
2790 call test%run(test_setSortedArrQsortr_D1_IK2, SK_"test_setSortedArrQsortr_D1_IK2")
2791#endif
2792#if IK1_ENABLED
2793 call test%run(test_setSortedArrQsortr_D1_IK1, SK_"test_setSortedArrQsortr_D1_IK1")
2794#endif
2795
2796 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2797
2798#if LK5_ENABLED
2799 call test%run(test_setSortedArrQsortr_D1_LK5, SK_"test_setSortedArrQsortr_D1_LK5")
2800#endif
2801#if LK4_ENABLED
2802 call test%run(test_setSortedArrQsortr_D1_LK4, SK_"test_setSortedArrQsortr_D1_LK4")
2803#endif
2804#if LK3_ENABLED
2805 call test%run(test_setSortedArrQsortr_D1_LK3, SK_"test_setSortedArrQsortr_D1_LK3")
2806#endif
2807#if LK2_ENABLED
2808 call test%run(test_setSortedArrQsortr_D1_LK2, SK_"test_setSortedArrQsortr_D1_LK2")
2809#endif
2810#if LK1_ENABLED
2811 call test%run(test_setSortedArrQsortr_D1_LK1, SK_"test_setSortedArrQsortr_D1_LK1")
2812#endif
2813
2814 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2815
2816#if CK5_ENABLED
2817 call test%run(test_setSortedArrQsortr_D1_CK5, SK_"test_setSortedArrQsortr_D1_CK5")
2818#endif
2819#if CK4_ENABLED
2820 call test%run(test_setSortedArrQsortr_D1_CK4, SK_"test_setSortedArrQsortr_D1_CK4")
2821#endif
2822#if CK3_ENABLED
2823 call test%run(test_setSortedArrQsortr_D1_CK3, SK_"test_setSortedArrQsortr_D1_CK3")
2824#endif
2825#if CK2_ENABLED
2826 call test%run(test_setSortedArrQsortr_D1_CK2, SK_"test_setSortedArrQsortr_D1_CK2")
2827#endif
2828#if CK1_ENABLED
2829 call test%run(test_setSortedArrQsortr_D1_CK1, SK_"test_setSortedArrQsortr_D1_CK1")
2830#endif
2831
2832 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2833
2834#if RK5_ENABLED
2835 call test%run(test_setSortedArrQsortr_D1_RK5, SK_"test_setSortedArrQsortr_D1_RK5")
2836#endif
2837#if RK4_ENABLED
2838 call test%run(test_setSortedArrQsortr_D1_RK4, SK_"test_setSortedArrQsortr_D1_RK4")
2839#endif
2840#if RK3_ENABLED
2841 call test%run(test_setSortedArrQsortr_D1_RK3, SK_"test_setSortedArrQsortr_D1_RK3")
2842#endif
2843#if RK2_ENABLED
2844 call test%run(test_setSortedArrQsortr_D1_RK2, SK_"test_setSortedArrQsortr_D1_RK2")
2845#endif
2846#if RK1_ENABLED
2847 call test%run(test_setSortedArrQsortr_D1_RK1, SK_"test_setSortedArrQsortr_D1_RK1")
2848#endif
2849
2850 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2851#if 0
2852#if SK5_ENABLED
2853 call test%run(test_setSortedArrQsortr_D1_PSSK5, SK_"test_setSortedArrQsortr_D1_PSSK5")
2854#endif
2855#if SK4_ENABLED
2856 call test%run(test_setSortedArrQsortr_D1_PSSK4, SK_"test_setSortedArrQsortr_D1_PSSK4")
2857#endif
2858#if SK3_ENABLED
2859 call test%run(test_setSortedArrQsortr_D1_PSSK3, SK_"test_setSortedArrQsortr_D1_PSSK3")
2860#endif
2861#if SK2_ENABLED
2862 call test%run(test_setSortedArrQsortr_D1_PSSK2, SK_"test_setSortedArrQsortr_D1_PSSK2")
2863#endif
2864#if SK1_ENABLED
2865 call test%run(test_setSortedArrQsortr_D1_PSSK1, SK_"test_setSortedArrQsortr_D1_PSSK1")
2866#endif
2867#endif
2868 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2869
2870 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2872 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2873
2874 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2875
2876 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2878 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2879
2880 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2881
2882#if SK5_ENABLED
2883 call test%run(test_setSortedArrQsortrdp_D0_SK5, SK_"test_setSortedArrQsortrdp_D0_SK5")
2884#endif
2885#if SK4_ENABLED
2886 call test%run(test_setSortedArrQsortrdp_D0_SK4, SK_"test_setSortedArrQsortrdp_D0_SK4")
2887#endif
2888#if SK3_ENABLED
2889 call test%run(test_setSortedArrQsortrdp_D0_SK3, SK_"test_setSortedArrQsortrdp_D0_SK3")
2890#endif
2891#if SK2_ENABLED
2892 call test%run(test_setSortedArrQsortrdp_D0_SK2, SK_"test_setSortedArrQsortrdp_D0_SK2")
2893#endif
2894#if SK1_ENABLED
2895 call test%run(test_setSortedArrQsortrdp_D0_SK1, SK_"test_setSortedArrQsortrdp_D0_SK1")
2896#endif
2897
2898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2899
2900#if SK5_ENABLED
2901 call test%run(test_setSortedArrQsortrdp_D1_SK5, SK_"test_setSortedArrQsortrdp_D1_SK5")
2902#endif
2903#if SK4_ENABLED
2904 call test%run(test_setSortedArrQsortrdp_D1_SK4, SK_"test_setSortedArrQsortrdp_D1_SK4")
2905#endif
2906#if SK3_ENABLED
2907 call test%run(test_setSortedArrQsortrdp_D1_SK3, SK_"test_setSortedArrQsortrdp_D1_SK3")
2908#endif
2909#if SK2_ENABLED
2910 call test%run(test_setSortedArrQsortrdp_D1_SK2, SK_"test_setSortedArrQsortrdp_D1_SK2")
2911#endif
2912#if SK1_ENABLED
2913 call test%run(test_setSortedArrQsortrdp_D1_SK1, SK_"test_setSortedArrQsortrdp_D1_SK1")
2914#endif
2915
2916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2917
2918#if IK5_ENABLED
2919 call test%run(test_setSortedArrQsortrdp_D1_IK5, SK_"test_setSortedArrQsortrdp_D1_IK5")
2920#endif
2921#if IK4_ENABLED
2922 call test%run(test_setSortedArrQsortrdp_D1_IK4, SK_"test_setSortedArrQsortrdp_D1_IK4")
2923#endif
2924#if IK3_ENABLED
2925 call test%run(test_setSortedArrQsortrdp_D1_IK3, SK_"test_setSortedArrQsortrdp_D1_IK3")
2926#endif
2927#if IK2_ENABLED
2928 call test%run(test_setSortedArrQsortrdp_D1_IK2, SK_"test_setSortedArrQsortrdp_D1_IK2")
2929#endif
2930#if IK1_ENABLED
2931 call test%run(test_setSortedArrQsortrdp_D1_IK1, SK_"test_setSortedArrQsortrdp_D1_IK1")
2932#endif
2933
2934 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2935
2936#if LK5_ENABLED
2937 call test%run(test_setSortedArrQsortrdp_D1_LK5, SK_"test_setSortedArrQsortrdp_D1_LK5")
2938#endif
2939#if LK4_ENABLED
2940 call test%run(test_setSortedArrQsortrdp_D1_LK4, SK_"test_setSortedArrQsortrdp_D1_LK4")
2941#endif
2942#if LK3_ENABLED
2943 call test%run(test_setSortedArrQsortrdp_D1_LK3, SK_"test_setSortedArrQsortrdp_D1_LK3")
2944#endif
2945#if LK2_ENABLED
2946 call test%run(test_setSortedArrQsortrdp_D1_LK2, SK_"test_setSortedArrQsortrdp_D1_LK2")
2947#endif
2948#if LK1_ENABLED
2949 call test%run(test_setSortedArrQsortrdp_D1_LK1, SK_"test_setSortedArrQsortrdp_D1_LK1")
2950#endif
2951
2952 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2953
2954#if CK5_ENABLED
2955 call test%run(test_setSortedArrQsortrdp_D1_CK5, SK_"test_setSortedArrQsortrdp_D1_CK5")
2956#endif
2957#if CK4_ENABLED
2958 call test%run(test_setSortedArrQsortrdp_D1_CK4, SK_"test_setSortedArrQsortrdp_D1_CK4")
2959#endif
2960#if CK3_ENABLED
2961 call test%run(test_setSortedArrQsortrdp_D1_CK3, SK_"test_setSortedArrQsortrdp_D1_CK3")
2962#endif
2963#if CK2_ENABLED
2964 call test%run(test_setSortedArrQsortrdp_D1_CK2, SK_"test_setSortedArrQsortrdp_D1_CK2")
2965#endif
2966#if CK1_ENABLED
2967 call test%run(test_setSortedArrQsortrdp_D1_CK1, SK_"test_setSortedArrQsortrdp_D1_CK1")
2968#endif
2969
2970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2971
2972#if RK5_ENABLED
2973 call test%run(test_setSortedArrQsortrdp_D1_RK5, SK_"test_setSortedArrQsortrdp_D1_RK5")
2974#endif
2975#if RK4_ENABLED
2976 call test%run(test_setSortedArrQsortrdp_D1_RK4, SK_"test_setSortedArrQsortrdp_D1_RK4")
2977#endif
2978#if RK3_ENABLED
2979 call test%run(test_setSortedArrQsortrdp_D1_RK3, SK_"test_setSortedArrQsortrdp_D1_RK3")
2980#endif
2981#if RK2_ENABLED
2982 call test%run(test_setSortedArrQsortrdp_D1_RK2, SK_"test_setSortedArrQsortrdp_D1_RK2")
2983#endif
2984#if RK1_ENABLED
2985 call test%run(test_setSortedArrQsortrdp_D1_RK1, SK_"test_setSortedArrQsortrdp_D1_RK1")
2986#endif
2987
2988 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2989#if 0
2990#if SK5_ENABLED
2991 call test%run(test_setSortedArrQsortrdp_D1_PSSK5, SK_"test_setSortedArrQsortrdp_D1_PSSK5")
2992#endif
2993#if SK4_ENABLED
2994 call test%run(test_setSortedArrQsortrdp_D1_PSSK4, SK_"test_setSortedArrQsortrdp_D1_PSSK4")
2995#endif
2996#if SK3_ENABLED
2997 call test%run(test_setSortedArrQsortrdp_D1_PSSK3, SK_"test_setSortedArrQsortrdp_D1_PSSK3")
2998#endif
2999#if SK2_ENABLED
3000 call test%run(test_setSortedArrQsortrdp_D1_PSSK2, SK_"test_setSortedArrQsortrdp_D1_PSSK2")
3001#endif
3002#if SK1_ENABLED
3003 call test%run(test_setSortedArrQsortrdp_D1_PSSK1, SK_"test_setSortedArrQsortrdp_D1_PSSK1")
3004#endif
3005#endif
3006 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3007
3008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3010 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3011
3012 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3013
3014 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3016 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3017
3018 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3019
3020#if SK5_ENABLED
3021 call test%run(test_setSortedArrBubble_D0_SK5, SK_"test_setSortedArrBubble_D0_SK5")
3022#endif
3023#if SK4_ENABLED
3024 call test%run(test_setSortedArrBubble_D0_SK4, SK_"test_setSortedArrBubble_D0_SK4")
3025#endif
3026#if SK3_ENABLED
3027 call test%run(test_setSortedArrBubble_D0_SK3, SK_"test_setSortedArrBubble_D0_SK3")
3028#endif
3029#if SK2_ENABLED
3030 call test%run(test_setSortedArrBubble_D0_SK2, SK_"test_setSortedArrBubble_D0_SK2")
3031#endif
3032#if SK1_ENABLED
3033 call test%run(test_setSortedArrBubble_D0_SK1, SK_"test_setSortedArrBubble_D0_SK1")
3034#endif
3035
3036 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3037
3038#if SK5_ENABLED
3039 call test%run(test_setSortedArrBubble_D1_SK5, SK_"test_setSortedArrBubble_D1_SK5")
3040#endif
3041#if SK4_ENABLED
3042 call test%run(test_setSortedArrBubble_D1_SK4, SK_"test_setSortedArrBubble_D1_SK4")
3043#endif
3044#if SK3_ENABLED
3045 call test%run(test_setSortedArrBubble_D1_SK3, SK_"test_setSortedArrBubble_D1_SK3")
3046#endif
3047#if SK2_ENABLED
3048 call test%run(test_setSortedArrBubble_D1_SK2, SK_"test_setSortedArrBubble_D1_SK2")
3049#endif
3050#if SK1_ENABLED
3051 call test%run(test_setSortedArrBubble_D1_SK1, SK_"test_setSortedArrBubble_D1_SK1")
3052#endif
3053
3054 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3055
3056#if IK5_ENABLED
3057 call test%run(test_setSortedArrBubble_D1_IK5, SK_"test_setSortedArrBubble_D1_IK5")
3058#endif
3059#if IK4_ENABLED
3060 call test%run(test_setSortedArrBubble_D1_IK4, SK_"test_setSortedArrBubble_D1_IK4")
3061#endif
3062#if IK3_ENABLED
3063 call test%run(test_setSortedArrBubble_D1_IK3, SK_"test_setSortedArrBubble_D1_IK3")
3064#endif
3065#if IK2_ENABLED
3066 call test%run(test_setSortedArrBubble_D1_IK2, SK_"test_setSortedArrBubble_D1_IK2")
3067#endif
3068#if IK1_ENABLED
3069 call test%run(test_setSortedArrBubble_D1_IK1, SK_"test_setSortedArrBubble_D1_IK1")
3070#endif
3071
3072 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3073
3074#if LK5_ENABLED
3075 call test%run(test_setSortedArrBubble_D1_LK5, SK_"test_setSortedArrBubble_D1_LK5")
3076#endif
3077#if LK4_ENABLED
3078 call test%run(test_setSortedArrBubble_D1_LK4, SK_"test_setSortedArrBubble_D1_LK4")
3079#endif
3080#if LK3_ENABLED
3081 call test%run(test_setSortedArrBubble_D1_LK3, SK_"test_setSortedArrBubble_D1_LK3")
3082#endif
3083#if LK2_ENABLED
3084 call test%run(test_setSortedArrBubble_D1_LK2, SK_"test_setSortedArrBubble_D1_LK2")
3085#endif
3086#if LK1_ENABLED
3087 call test%run(test_setSortedArrBubble_D1_LK1, SK_"test_setSortedArrBubble_D1_LK1")
3088#endif
3089
3090 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3091
3092#if CK5_ENABLED
3093 call test%run(test_setSortedArrBubble_D1_CK5, SK_"test_setSortedArrBubble_D1_CK5")
3094#endif
3095#if CK4_ENABLED
3096 call test%run(test_setSortedArrBubble_D1_CK4, SK_"test_setSortedArrBubble_D1_CK4")
3097#endif
3098#if CK3_ENABLED
3099 call test%run(test_setSortedArrBubble_D1_CK3, SK_"test_setSortedArrBubble_D1_CK3")
3100#endif
3101#if CK2_ENABLED
3102 call test%run(test_setSortedArrBubble_D1_CK2, SK_"test_setSortedArrBubble_D1_CK2")
3103#endif
3104#if CK1_ENABLED
3105 call test%run(test_setSortedArrBubble_D1_CK1, SK_"test_setSortedArrBubble_D1_CK1")
3106#endif
3107
3108 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3109
3110#if RK5_ENABLED
3111 call test%run(test_setSortedArrBubble_D1_RK5, SK_"test_setSortedArrBubble_D1_RK5")
3112#endif
3113#if RK4_ENABLED
3114 call test%run(test_setSortedArrBubble_D1_RK4, SK_"test_setSortedArrBubble_D1_RK4")
3115#endif
3116#if RK3_ENABLED
3117 call test%run(test_setSortedArrBubble_D1_RK3, SK_"test_setSortedArrBubble_D1_RK3")
3118#endif
3119#if RK2_ENABLED
3120 call test%run(test_setSortedArrBubble_D1_RK2, SK_"test_setSortedArrBubble_D1_RK2")
3121#endif
3122#if RK1_ENABLED
3123 call test%run(test_setSortedArrBubble_D1_RK1, SK_"test_setSortedArrBubble_D1_RK1")
3124#endif
3125
3126 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3127#if 0
3128#if SK5_ENABLED
3129 call test%run(test_setSortedArrBubble_D1_PSSK5, SK_"test_setSortedArrBubble_D1_PSSK5")
3130#endif
3131#if SK4_ENABLED
3132 call test%run(test_setSortedArrBubble_D1_PSSK4, SK_"test_setSortedArrBubble_D1_PSSK4")
3133#endif
3134#if SK3_ENABLED
3135 call test%run(test_setSortedArrBubble_D1_PSSK3, SK_"test_setSortedArrBubble_D1_PSSK3")
3136#endif
3137#if SK2_ENABLED
3138 call test%run(test_setSortedArrBubble_D1_PSSK2, SK_"test_setSortedArrBubble_D1_PSSK2")
3139#endif
3140#if SK1_ENABLED
3141 call test%run(test_setSortedArrBubble_D1_PSSK1, SK_"test_setSortedArrBubble_D1_PSSK1")
3142#endif
3143#endif
3144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3145
3146 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3149
3150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3151
3152 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3155
3156 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3157
3158#if SK5_ENABLED
3159 call test%run(test_setSortedArrHeapi_D0_SK5, SK_"test_setSortedArrHeapi_D0_SK5")
3160#endif
3161#if SK4_ENABLED
3162 call test%run(test_setSortedArrHeapi_D0_SK4, SK_"test_setSortedArrHeapi_D0_SK4")
3163#endif
3164#if SK3_ENABLED
3165 call test%run(test_setSortedArrHeapi_D0_SK3, SK_"test_setSortedArrHeapi_D0_SK3")
3166#endif
3167#if SK2_ENABLED
3168 call test%run(test_setSortedArrHeapi_D0_SK2, SK_"test_setSortedArrHeapi_D0_SK2")
3169#endif
3170#if SK1_ENABLED
3171 call test%run(test_setSortedArrHeapi_D0_SK1, SK_"test_setSortedArrHeapi_D0_SK1")
3172#endif
3173
3174 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3175
3176#if SK5_ENABLED
3177 call test%run(test_setSortedArrHeapi_D1_SK5, SK_"test_setSortedArrHeapi_D1_SK5")
3178#endif
3179#if SK4_ENABLED
3180 call test%run(test_setSortedArrHeapi_D1_SK4, SK_"test_setSortedArrHeapi_D1_SK4")
3181#endif
3182#if SK3_ENABLED
3183 call test%run(test_setSortedArrHeapi_D1_SK3, SK_"test_setSortedArrHeapi_D1_SK3")
3184#endif
3185#if SK2_ENABLED
3186 call test%run(test_setSortedArrHeapi_D1_SK2, SK_"test_setSortedArrHeapi_D1_SK2")
3187#endif
3188#if SK1_ENABLED
3189 call test%run(test_setSortedArrHeapi_D1_SK1, SK_"test_setSortedArrHeapi_D1_SK1")
3190#endif
3191
3192 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3193
3194#if IK5_ENABLED
3195 call test%run(test_setSortedArrHeapi_D1_IK5, SK_"test_setSortedArrHeapi_D1_IK5")
3196#endif
3197#if IK4_ENABLED
3198 call test%run(test_setSortedArrHeapi_D1_IK4, SK_"test_setSortedArrHeapi_D1_IK4")
3199#endif
3200#if IK3_ENABLED
3201 call test%run(test_setSortedArrHeapi_D1_IK3, SK_"test_setSortedArrHeapi_D1_IK3")
3202#endif
3203#if IK2_ENABLED
3204 call test%run(test_setSortedArrHeapi_D1_IK2, SK_"test_setSortedArrHeapi_D1_IK2")
3205#endif
3206#if IK1_ENABLED
3207 call test%run(test_setSortedArrHeapi_D1_IK1, SK_"test_setSortedArrHeapi_D1_IK1")
3208#endif
3209
3210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3211
3212#if LK5_ENABLED
3213 call test%run(test_setSortedArrHeapi_D1_LK5, SK_"test_setSortedArrHeapi_D1_LK5")
3214#endif
3215#if LK4_ENABLED
3216 call test%run(test_setSortedArrHeapi_D1_LK4, SK_"test_setSortedArrHeapi_D1_LK4")
3217#endif
3218#if LK3_ENABLED
3219 call test%run(test_setSortedArrHeapi_D1_LK3, SK_"test_setSortedArrHeapi_D1_LK3")
3220#endif
3221#if LK2_ENABLED
3222 call test%run(test_setSortedArrHeapi_D1_LK2, SK_"test_setSortedArrHeapi_D1_LK2")
3223#endif
3224#if LK1_ENABLED
3225 call test%run(test_setSortedArrHeapi_D1_LK1, SK_"test_setSortedArrHeapi_D1_LK1")
3226#endif
3227
3228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3229
3230#if CK5_ENABLED
3231 call test%run(test_setSortedArrHeapi_D1_CK5, SK_"test_setSortedArrHeapi_D1_CK5")
3232#endif
3233#if CK4_ENABLED
3234 call test%run(test_setSortedArrHeapi_D1_CK4, SK_"test_setSortedArrHeapi_D1_CK4")
3235#endif
3236#if CK3_ENABLED
3237 call test%run(test_setSortedArrHeapi_D1_CK3, SK_"test_setSortedArrHeapi_D1_CK3")
3238#endif
3239#if CK2_ENABLED
3240 call test%run(test_setSortedArrHeapi_D1_CK2, SK_"test_setSortedArrHeapi_D1_CK2")
3241#endif
3242#if CK1_ENABLED
3243 call test%run(test_setSortedArrHeapi_D1_CK1, SK_"test_setSortedArrHeapi_D1_CK1")
3244#endif
3245
3246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3247
3248#if RK5_ENABLED
3249 call test%run(test_setSortedArrHeapi_D1_RK5, SK_"test_setSortedArrHeapi_D1_RK5")
3250#endif
3251#if RK4_ENABLED
3252 call test%run(test_setSortedArrHeapi_D1_RK4, SK_"test_setSortedArrHeapi_D1_RK4")
3253#endif
3254#if RK3_ENABLED
3255 call test%run(test_setSortedArrHeapi_D1_RK3, SK_"test_setSortedArrHeapi_D1_RK3")
3256#endif
3257#if RK2_ENABLED
3258 call test%run(test_setSortedArrHeapi_D1_RK2, SK_"test_setSortedArrHeapi_D1_RK2")
3259#endif
3260#if RK1_ENABLED
3261 call test%run(test_setSortedArrHeapi_D1_RK1, SK_"test_setSortedArrHeapi_D1_RK1")
3262#endif
3263
3264 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3265#if 0
3266#if SK5_ENABLED
3267 call test%run(test_setSortedArrHeapi_D1_PSSK5, SK_"test_setSortedArrHeapi_D1_PSSK5")
3268#endif
3269#if SK4_ENABLED
3270 call test%run(test_setSortedArrHeapi_D1_PSSK4, SK_"test_setSortedArrHeapi_D1_PSSK4")
3271#endif
3272#if SK3_ENABLED
3273 call test%run(test_setSortedArrHeapi_D1_PSSK3, SK_"test_setSortedArrHeapi_D1_PSSK3")
3274#endif
3275#if SK2_ENABLED
3276 call test%run(test_setSortedArrHeapi_D1_PSSK2, SK_"test_setSortedArrHeapi_D1_PSSK2")
3277#endif
3278#if SK1_ENABLED
3279 call test%run(test_setSortedArrHeapi_D1_PSSK1, SK_"test_setSortedArrHeapi_D1_PSSK1")
3280#endif
3281#endif
3282 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3283
3284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3285 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3286 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3287
3288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3289
3290 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3291 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3292 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3293
3294 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3295
3296#if SK5_ENABLED
3297 call test%run(test_setSortedArrHeapr_D0_SK5, SK_"test_setSortedArrHeapr_D0_SK5")
3298#endif
3299#if SK4_ENABLED
3300 call test%run(test_setSortedArrHeapr_D0_SK4, SK_"test_setSortedArrHeapr_D0_SK4")
3301#endif
3302#if SK3_ENABLED
3303 call test%run(test_setSortedArrHeapr_D0_SK3, SK_"test_setSortedArrHeapr_D0_SK3")
3304#endif
3305#if SK2_ENABLED
3306 call test%run(test_setSortedArrHeapr_D0_SK2, SK_"test_setSortedArrHeapr_D0_SK2")
3307#endif
3308#if SK1_ENABLED
3309 call test%run(test_setSortedArrHeapr_D0_SK1, SK_"test_setSortedArrHeapr_D0_SK1")
3310#endif
3311
3312 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3313
3314#if SK5_ENABLED
3315 call test%run(test_setSortedArrHeapr_D1_SK5, SK_"test_setSortedArrHeapr_D1_SK5")
3316#endif
3317#if SK4_ENABLED
3318 call test%run(test_setSortedArrHeapr_D1_SK4, SK_"test_setSortedArrHeapr_D1_SK4")
3319#endif
3320#if SK3_ENABLED
3321 call test%run(test_setSortedArrHeapr_D1_SK3, SK_"test_setSortedArrHeapr_D1_SK3")
3322#endif
3323#if SK2_ENABLED
3324 call test%run(test_setSortedArrHeapr_D1_SK2, SK_"test_setSortedArrHeapr_D1_SK2")
3325#endif
3326#if SK1_ENABLED
3327 call test%run(test_setSortedArrHeapr_D1_SK1, SK_"test_setSortedArrHeapr_D1_SK1")
3328#endif
3329
3330 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3331
3332#if IK5_ENABLED
3333 call test%run(test_setSortedArrHeapr_D1_IK5, SK_"test_setSortedArrHeapr_D1_IK5")
3334#endif
3335#if IK4_ENABLED
3336 call test%run(test_setSortedArrHeapr_D1_IK4, SK_"test_setSortedArrHeapr_D1_IK4")
3337#endif
3338#if IK3_ENABLED
3339 call test%run(test_setSortedArrHeapr_D1_IK3, SK_"test_setSortedArrHeapr_D1_IK3")
3340#endif
3341#if IK2_ENABLED
3342 call test%run(test_setSortedArrHeapr_D1_IK2, SK_"test_setSortedArrHeapr_D1_IK2")
3343#endif
3344#if IK1_ENABLED
3345 call test%run(test_setSortedArrHeapr_D1_IK1, SK_"test_setSortedArrHeapr_D1_IK1")
3346#endif
3347
3348 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3349
3350#if LK5_ENABLED
3351 call test%run(test_setSortedArrHeapr_D1_LK5, SK_"test_setSortedArrHeapr_D1_LK5")
3352#endif
3353#if LK4_ENABLED
3354 call test%run(test_setSortedArrHeapr_D1_LK4, SK_"test_setSortedArrHeapr_D1_LK4")
3355#endif
3356#if LK3_ENABLED
3357 call test%run(test_setSortedArrHeapr_D1_LK3, SK_"test_setSortedArrHeapr_D1_LK3")
3358#endif
3359#if LK2_ENABLED
3360 call test%run(test_setSortedArrHeapr_D1_LK2, SK_"test_setSortedArrHeapr_D1_LK2")
3361#endif
3362#if LK1_ENABLED
3363 call test%run(test_setSortedArrHeapr_D1_LK1, SK_"test_setSortedArrHeapr_D1_LK1")
3364#endif
3365
3366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3367
3368#if CK5_ENABLED
3369 call test%run(test_setSortedArrHeapr_D1_CK5, SK_"test_setSortedArrHeapr_D1_CK5")
3370#endif
3371#if CK4_ENABLED
3372 call test%run(test_setSortedArrHeapr_D1_CK4, SK_"test_setSortedArrHeapr_D1_CK4")
3373#endif
3374#if CK3_ENABLED
3375 call test%run(test_setSortedArrHeapr_D1_CK3, SK_"test_setSortedArrHeapr_D1_CK3")
3376#endif
3377#if CK2_ENABLED
3378 call test%run(test_setSortedArrHeapr_D1_CK2, SK_"test_setSortedArrHeapr_D1_CK2")
3379#endif
3380#if CK1_ENABLED
3381 call test%run(test_setSortedArrHeapr_D1_CK1, SK_"test_setSortedArrHeapr_D1_CK1")
3382#endif
3383
3384 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3385
3386#if RK5_ENABLED
3387 call test%run(test_setSortedArrHeapr_D1_RK5, SK_"test_setSortedArrHeapr_D1_RK5")
3388#endif
3389#if RK4_ENABLED
3390 call test%run(test_setSortedArrHeapr_D1_RK4, SK_"test_setSortedArrHeapr_D1_RK4")
3391#endif
3392#if RK3_ENABLED
3393 call test%run(test_setSortedArrHeapr_D1_RK3, SK_"test_setSortedArrHeapr_D1_RK3")
3394#endif
3395#if RK2_ENABLED
3396 call test%run(test_setSortedArrHeapr_D1_RK2, SK_"test_setSortedArrHeapr_D1_RK2")
3397#endif
3398#if RK1_ENABLED
3399 call test%run(test_setSortedArrHeapr_D1_RK1, SK_"test_setSortedArrHeapr_D1_RK1")
3400#endif
3401
3402 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3403#if 0
3404#if SK5_ENABLED
3405 call test%run(test_setSortedArrHeapr_D1_PSSK5, SK_"test_setSortedArrHeapr_D1_PSSK5")
3406#endif
3407#if SK4_ENABLED
3408 call test%run(test_setSortedArrHeapr_D1_PSSK4, SK_"test_setSortedArrHeapr_D1_PSSK4")
3409#endif
3410#if SK3_ENABLED
3411 call test%run(test_setSortedArrHeapr_D1_PSSK3, SK_"test_setSortedArrHeapr_D1_PSSK3")
3412#endif
3413#if SK2_ENABLED
3414 call test%run(test_setSortedArrHeapr_D1_PSSK2, SK_"test_setSortedArrHeapr_D1_PSSK2")
3415#endif
3416#if SK1_ENABLED
3417 call test%run(test_setSortedArrHeapr_D1_PSSK1, SK_"test_setSortedArrHeapr_D1_PSSK1")
3418#endif
3419#endif
3420 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3421
3422 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3423 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3424 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3425
3426 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3427
3428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3429 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3431
3432 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3433
3434#if SK5_ENABLED
3435 call test%run(test_setSortedArrInsertionl_D0_SK5, SK_"test_setSortedArrInsertionl_D0_SK5")
3436#endif
3437#if SK4_ENABLED
3438 call test%run(test_setSortedArrInsertionl_D0_SK4, SK_"test_setSortedArrInsertionl_D0_SK4")
3439#endif
3440#if SK3_ENABLED
3441 call test%run(test_setSortedArrInsertionl_D0_SK3, SK_"test_setSortedArrInsertionl_D0_SK3")
3442#endif
3443#if SK2_ENABLED
3444 call test%run(test_setSortedArrInsertionl_D0_SK2, SK_"test_setSortedArrInsertionl_D0_SK2")
3445#endif
3446#if SK1_ENABLED
3447 call test%run(test_setSortedArrInsertionl_D0_SK1, SK_"test_setSortedArrInsertionl_D0_SK1")
3448#endif
3449
3450 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3451
3452#if SK5_ENABLED
3453 call test%run(test_setSortedArrInsertionl_D1_SK5, SK_"test_setSortedArrInsertionl_D1_SK5")
3454#endif
3455#if SK4_ENABLED
3456 call test%run(test_setSortedArrInsertionl_D1_SK4, SK_"test_setSortedArrInsertionl_D1_SK4")
3457#endif
3458#if SK3_ENABLED
3459 call test%run(test_setSortedArrInsertionl_D1_SK3, SK_"test_setSortedArrInsertionl_D1_SK3")
3460#endif
3461#if SK2_ENABLED
3462 call test%run(test_setSortedArrInsertionl_D1_SK2, SK_"test_setSortedArrInsertionl_D1_SK2")
3463#endif
3464#if SK1_ENABLED
3465 call test%run(test_setSortedArrInsertionl_D1_SK1, SK_"test_setSortedArrInsertionl_D1_SK1")
3466#endif
3467
3468 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3469
3470#if IK5_ENABLED
3471 call test%run(test_setSortedArrInsertionl_D1_IK5, SK_"test_setSortedArrInsertionl_D1_IK5")
3472#endif
3473#if IK4_ENABLED
3474 call test%run(test_setSortedArrInsertionl_D1_IK4, SK_"test_setSortedArrInsertionl_D1_IK4")
3475#endif
3476#if IK3_ENABLED
3477 call test%run(test_setSortedArrInsertionl_D1_IK3, SK_"test_setSortedArrInsertionl_D1_IK3")
3478#endif
3479#if IK2_ENABLED
3480 call test%run(test_setSortedArrInsertionl_D1_IK2, SK_"test_setSortedArrInsertionl_D1_IK2")
3481#endif
3482#if IK1_ENABLED
3483 call test%run(test_setSortedArrInsertionl_D1_IK1, SK_"test_setSortedArrInsertionl_D1_IK1")
3484#endif
3485
3486 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3487
3488#if LK5_ENABLED
3489 call test%run(test_setSortedArrInsertionl_D1_LK5, SK_"test_setSortedArrInsertionl_D1_LK5")
3490#endif
3491#if LK4_ENABLED
3492 call test%run(test_setSortedArrInsertionl_D1_LK4, SK_"test_setSortedArrInsertionl_D1_LK4")
3493#endif
3494#if LK3_ENABLED
3495 call test%run(test_setSortedArrInsertionl_D1_LK3, SK_"test_setSortedArrInsertionl_D1_LK3")
3496#endif
3497#if LK2_ENABLED
3498 call test%run(test_setSortedArrInsertionl_D1_LK2, SK_"test_setSortedArrInsertionl_D1_LK2")
3499#endif
3500#if LK1_ENABLED
3501 call test%run(test_setSortedArrInsertionl_D1_LK1, SK_"test_setSortedArrInsertionl_D1_LK1")
3502#endif
3503
3504 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3505
3506#if CK5_ENABLED
3507 call test%run(test_setSortedArrInsertionl_D1_CK5, SK_"test_setSortedArrInsertionl_D1_CK5")
3508#endif
3509#if CK4_ENABLED
3510 call test%run(test_setSortedArrInsertionl_D1_CK4, SK_"test_setSortedArrInsertionl_D1_CK4")
3511#endif
3512#if CK3_ENABLED
3513 call test%run(test_setSortedArrInsertionl_D1_CK3, SK_"test_setSortedArrInsertionl_D1_CK3")
3514#endif
3515#if CK2_ENABLED
3516 call test%run(test_setSortedArrInsertionl_D1_CK2, SK_"test_setSortedArrInsertionl_D1_CK2")
3517#endif
3518#if CK1_ENABLED
3519 call test%run(test_setSortedArrInsertionl_D1_CK1, SK_"test_setSortedArrInsertionl_D1_CK1")
3520#endif
3521
3522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3523
3524#if RK5_ENABLED
3525 call test%run(test_setSortedArrInsertionl_D1_RK5, SK_"test_setSortedArrInsertionl_D1_RK5")
3526#endif
3527#if RK4_ENABLED
3528 call test%run(test_setSortedArrInsertionl_D1_RK4, SK_"test_setSortedArrInsertionl_D1_RK4")
3529#endif
3530#if RK3_ENABLED
3531 call test%run(test_setSortedArrInsertionl_D1_RK3, SK_"test_setSortedArrInsertionl_D1_RK3")
3532#endif
3533#if RK2_ENABLED
3534 call test%run(test_setSortedArrInsertionl_D1_RK2, SK_"test_setSortedArrInsertionl_D1_RK2")
3535#endif
3536#if RK1_ENABLED
3537 call test%run(test_setSortedArrInsertionl_D1_RK1, SK_"test_setSortedArrInsertionl_D1_RK1")
3538#endif
3539
3540 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3541#if 0
3542#if SK5_ENABLED
3543 call test%run(test_setSortedArrInsertionl_D1_PSSK5, SK_"test_setSortedArrInsertionl_D1_PSSK5")
3544#endif
3545#if SK4_ENABLED
3546 call test%run(test_setSortedArrInsertionl_D1_PSSK4, SK_"test_setSortedArrInsertionl_D1_PSSK4")
3547#endif
3548#if SK3_ENABLED
3549 call test%run(test_setSortedArrInsertionl_D1_PSSK3, SK_"test_setSortedArrInsertionl_D1_PSSK3")
3550#endif
3551#if SK2_ENABLED
3552 call test%run(test_setSortedArrInsertionl_D1_PSSK2, SK_"test_setSortedArrInsertionl_D1_PSSK2")
3553#endif
3554#if SK1_ENABLED
3555 call test%run(test_setSortedArrInsertionl_D1_PSSK1, SK_"test_setSortedArrInsertionl_D1_PSSK1")
3556#endif
3557#endif
3558 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3559
3560 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3561 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3562 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3563
3564 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3565
3566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3567 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3568 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3569
3570 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3571
3572#if SK5_ENABLED
3573 call test%run(test_setSortedArrInsertionb_D0_SK5, SK_"test_setSortedArrInsertionb_D0_SK5")
3574#endif
3575#if SK4_ENABLED
3576 call test%run(test_setSortedArrInsertionb_D0_SK4, SK_"test_setSortedArrInsertionb_D0_SK4")
3577#endif
3578#if SK3_ENABLED
3579 call test%run(test_setSortedArrInsertionb_D0_SK3, SK_"test_setSortedArrInsertionb_D0_SK3")
3580#endif
3581#if SK2_ENABLED
3582 call test%run(test_setSortedArrInsertionb_D0_SK2, SK_"test_setSortedArrInsertionb_D0_SK2")
3583#endif
3584#if SK1_ENABLED
3585 call test%run(test_setSortedArrInsertionb_D0_SK1, SK_"test_setSortedArrInsertionb_D0_SK1")
3586#endif
3587
3588 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3589
3590#if SK5_ENABLED
3591 call test%run(test_setSortedArrInsertionb_D1_SK5, SK_"test_setSortedArrInsertionb_D1_SK5")
3592#endif
3593#if SK4_ENABLED
3594 call test%run(test_setSortedArrInsertionb_D1_SK4, SK_"test_setSortedArrInsertionb_D1_SK4")
3595#endif
3596#if SK3_ENABLED
3597 call test%run(test_setSortedArrInsertionb_D1_SK3, SK_"test_setSortedArrInsertionb_D1_SK3")
3598#endif
3599#if SK2_ENABLED
3600 call test%run(test_setSortedArrInsertionb_D1_SK2, SK_"test_setSortedArrInsertionb_D1_SK2")
3601#endif
3602#if SK1_ENABLED
3603 call test%run(test_setSortedArrInsertionb_D1_SK1, SK_"test_setSortedArrInsertionb_D1_SK1")
3604#endif
3605
3606 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3607
3608#if IK5_ENABLED
3609 call test%run(test_setSortedArrInsertionb_D1_IK5, SK_"test_setSortedArrInsertionb_D1_IK5")
3610#endif
3611#if IK4_ENABLED
3612 call test%run(test_setSortedArrInsertionb_D1_IK4, SK_"test_setSortedArrInsertionb_D1_IK4")
3613#endif
3614#if IK3_ENABLED
3615 call test%run(test_setSortedArrInsertionb_D1_IK3, SK_"test_setSortedArrInsertionb_D1_IK3")
3616#endif
3617#if IK2_ENABLED
3618 call test%run(test_setSortedArrInsertionb_D1_IK2, SK_"test_setSortedArrInsertionb_D1_IK2")
3619#endif
3620#if IK1_ENABLED
3621 call test%run(test_setSortedArrInsertionb_D1_IK1, SK_"test_setSortedArrInsertionb_D1_IK1")
3622#endif
3623
3624 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3625
3626#if LK5_ENABLED
3627 call test%run(test_setSortedArrInsertionb_D1_LK5, SK_"test_setSortedArrInsertionb_D1_LK5")
3628#endif
3629#if LK4_ENABLED
3630 call test%run(test_setSortedArrInsertionb_D1_LK4, SK_"test_setSortedArrInsertionb_D1_LK4")
3631#endif
3632#if LK3_ENABLED
3633 call test%run(test_setSortedArrInsertionb_D1_LK3, SK_"test_setSortedArrInsertionb_D1_LK3")
3634#endif
3635#if LK2_ENABLED
3636 call test%run(test_setSortedArrInsertionb_D1_LK2, SK_"test_setSortedArrInsertionb_D1_LK2")
3637#endif
3638#if LK1_ENABLED
3639 call test%run(test_setSortedArrInsertionb_D1_LK1, SK_"test_setSortedArrInsertionb_D1_LK1")
3640#endif
3641
3642 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3643
3644#if CK5_ENABLED
3645 call test%run(test_setSortedArrInsertionb_D1_CK5, SK_"test_setSortedArrInsertionb_D1_CK5")
3646#endif
3647#if CK4_ENABLED
3648 call test%run(test_setSortedArrInsertionb_D1_CK4, SK_"test_setSortedArrInsertionb_D1_CK4")
3649#endif
3650#if CK3_ENABLED
3651 call test%run(test_setSortedArrInsertionb_D1_CK3, SK_"test_setSortedArrInsertionb_D1_CK3")
3652#endif
3653#if CK2_ENABLED
3654 call test%run(test_setSortedArrInsertionb_D1_CK2, SK_"test_setSortedArrInsertionb_D1_CK2")
3655#endif
3656#if CK1_ENABLED
3657 call test%run(test_setSortedArrInsertionb_D1_CK1, SK_"test_setSortedArrInsertionb_D1_CK1")
3658#endif
3659
3660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3661
3662#if RK5_ENABLED
3663 call test%run(test_setSortedArrInsertionb_D1_RK5, SK_"test_setSortedArrInsertionb_D1_RK5")
3664#endif
3665#if RK4_ENABLED
3666 call test%run(test_setSortedArrInsertionb_D1_RK4, SK_"test_setSortedArrInsertionb_D1_RK4")
3667#endif
3668#if RK3_ENABLED
3669 call test%run(test_setSortedArrInsertionb_D1_RK3, SK_"test_setSortedArrInsertionb_D1_RK3")
3670#endif
3671#if RK2_ENABLED
3672 call test%run(test_setSortedArrInsertionb_D1_RK2, SK_"test_setSortedArrInsertionb_D1_RK2")
3673#endif
3674#if RK1_ENABLED
3675 call test%run(test_setSortedArrInsertionb_D1_RK1, SK_"test_setSortedArrInsertionb_D1_RK1")
3676#endif
3677
3678 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3679#if 0
3680#if SK5_ENABLED
3681 call test%run(test_setSortedArrInsertionb_D1_PSSK5, SK_"test_setSortedArrInsertionb_D1_PSSK5")
3682#endif
3683#if SK4_ENABLED
3684 call test%run(test_setSortedArrInsertionb_D1_PSSK4, SK_"test_setSortedArrInsertionb_D1_PSSK4")
3685#endif
3686#if SK3_ENABLED
3687 call test%run(test_setSortedArrInsertionb_D1_PSSK3, SK_"test_setSortedArrInsertionb_D1_PSSK3")
3688#endif
3689#if SK2_ENABLED
3690 call test%run(test_setSortedArrInsertionb_D1_PSSK2, SK_"test_setSortedArrInsertionb_D1_PSSK2")
3691#endif
3692#if SK1_ENABLED
3693 call test%run(test_setSortedArrInsertionb_D1_PSSK1, SK_"test_setSortedArrInsertionb_D1_PSSK1")
3694#endif
3695#endif
3696 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3697
3698 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3699 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3700 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3701
3702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3703
3704 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3706 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3707
3708 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3709
3710#if SK5_ENABLED
3711 call test%run(test_setSortedArrMerger_D0_SK5, SK_"test_setSortedArrMerger_D0_SK5")
3712#endif
3713#if SK4_ENABLED
3714 call test%run(test_setSortedArrMerger_D0_SK4, SK_"test_setSortedArrMerger_D0_SK4")
3715#endif
3716#if SK3_ENABLED
3717 call test%run(test_setSortedArrMerger_D0_SK3, SK_"test_setSortedArrMerger_D0_SK3")
3718#endif
3719#if SK2_ENABLED
3720 call test%run(test_setSortedArrMerger_D0_SK2, SK_"test_setSortedArrMerger_D0_SK2")
3721#endif
3722#if SK1_ENABLED
3723 call test%run(test_setSortedArrMerger_D0_SK1, SK_"test_setSortedArrMerger_D0_SK1")
3724#endif
3725
3726 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3727
3728#if SK5_ENABLED
3729 call test%run(test_setSortedArrMerger_D1_SK5, SK_"test_setSortedArrMerger_D1_SK5")
3730#endif
3731#if SK4_ENABLED
3732 call test%run(test_setSortedArrMerger_D1_SK4, SK_"test_setSortedArrMerger_D1_SK4")
3733#endif
3734#if SK3_ENABLED
3735 call test%run(test_setSortedArrMerger_D1_SK3, SK_"test_setSortedArrMerger_D1_SK3")
3736#endif
3737#if SK2_ENABLED
3738 call test%run(test_setSortedArrMerger_D1_SK2, SK_"test_setSortedArrMerger_D1_SK2")
3739#endif
3740#if SK1_ENABLED
3741 call test%run(test_setSortedArrMerger_D1_SK1, SK_"test_setSortedArrMerger_D1_SK1")
3742#endif
3743
3744 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3745
3746#if IK5_ENABLED
3747 call test%run(test_setSortedArrMerger_D1_IK5, SK_"test_setSortedArrMerger_D1_IK5")
3748#endif
3749#if IK4_ENABLED
3750 call test%run(test_setSortedArrMerger_D1_IK4, SK_"test_setSortedArrMerger_D1_IK4")
3751#endif
3752#if IK3_ENABLED
3753 call test%run(test_setSortedArrMerger_D1_IK3, SK_"test_setSortedArrMerger_D1_IK3")
3754#endif
3755#if IK2_ENABLED
3756 call test%run(test_setSortedArrMerger_D1_IK2, SK_"test_setSortedArrMerger_D1_IK2")
3757#endif
3758#if IK1_ENABLED
3759 call test%run(test_setSortedArrMerger_D1_IK1, SK_"test_setSortedArrMerger_D1_IK1")
3760#endif
3761
3762 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3763
3764#if LK5_ENABLED
3765 call test%run(test_setSortedArrMerger_D1_LK5, SK_"test_setSortedArrMerger_D1_LK5")
3766#endif
3767#if LK4_ENABLED
3768 call test%run(test_setSortedArrMerger_D1_LK4, SK_"test_setSortedArrMerger_D1_LK4")
3769#endif
3770#if LK3_ENABLED
3771 call test%run(test_setSortedArrMerger_D1_LK3, SK_"test_setSortedArrMerger_D1_LK3")
3772#endif
3773#if LK2_ENABLED
3774 call test%run(test_setSortedArrMerger_D1_LK2, SK_"test_setSortedArrMerger_D1_LK2")
3775#endif
3776#if LK1_ENABLED
3777 call test%run(test_setSortedArrMerger_D1_LK1, SK_"test_setSortedArrMerger_D1_LK1")
3778#endif
3779
3780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3781
3782#if CK5_ENABLED
3783 call test%run(test_setSortedArrMerger_D1_CK5, SK_"test_setSortedArrMerger_D1_CK5")
3784#endif
3785#if CK4_ENABLED
3786 call test%run(test_setSortedArrMerger_D1_CK4, SK_"test_setSortedArrMerger_D1_CK4")
3787#endif
3788#if CK3_ENABLED
3789 call test%run(test_setSortedArrMerger_D1_CK3, SK_"test_setSortedArrMerger_D1_CK3")
3790#endif
3791#if CK2_ENABLED
3792 call test%run(test_setSortedArrMerger_D1_CK2, SK_"test_setSortedArrMerger_D1_CK2")
3793#endif
3794#if CK1_ENABLED
3795 call test%run(test_setSortedArrMerger_D1_CK1, SK_"test_setSortedArrMerger_D1_CK1")
3796#endif
3797
3798 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3799
3800#if RK5_ENABLED
3801 call test%run(test_setSortedArrMerger_D1_RK5, SK_"test_setSortedArrMerger_D1_RK5")
3802#endif
3803#if RK4_ENABLED
3804 call test%run(test_setSortedArrMerger_D1_RK4, SK_"test_setSortedArrMerger_D1_RK4")
3805#endif
3806#if RK3_ENABLED
3807 call test%run(test_setSortedArrMerger_D1_RK3, SK_"test_setSortedArrMerger_D1_RK3")
3808#endif
3809#if RK2_ENABLED
3810 call test%run(test_setSortedArrMerger_D1_RK2, SK_"test_setSortedArrMerger_D1_RK2")
3811#endif
3812#if RK1_ENABLED
3813 call test%run(test_setSortedArrMerger_D1_RK1, SK_"test_setSortedArrMerger_D1_RK1")
3814#endif
3815
3816 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3817#if 0
3818#if SK5_ENABLED
3819 call test%run(test_setSortedArrMerger_D1_PSSK5, SK_"test_setSortedArrMerger_D1_PSSK5")
3820#endif
3821#if SK4_ENABLED
3822 call test%run(test_setSortedArrMerger_D1_PSSK4, SK_"test_setSortedArrMerger_D1_PSSK4")
3823#endif
3824#if SK3_ENABLED
3825 call test%run(test_setSortedArrMerger_D1_PSSK3, SK_"test_setSortedArrMerger_D1_PSSK3")
3826#endif
3827#if SK2_ENABLED
3828 call test%run(test_setSortedArrMerger_D1_PSSK2, SK_"test_setSortedArrMerger_D1_PSSK2")
3829#endif
3830#if SK1_ENABLED
3831 call test%run(test_setSortedArrMerger_D1_PSSK1, SK_"test_setSortedArrMerger_D1_PSSK1")
3832#endif
3833#endif
3834 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3835
3836 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3837 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3838 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3839
3840 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3841
3842 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3843 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3844 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3845
3846 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3847
3848#if SK5_ENABLED
3849 call test%run(test_setSortedArrSelection_D0_SK5, SK_"test_setSortedArrSelection_D0_SK5")
3850#endif
3851#if SK4_ENABLED
3852 call test%run(test_setSortedArrSelection_D0_SK4, SK_"test_setSortedArrSelection_D0_SK4")
3853#endif
3854#if SK3_ENABLED
3855 call test%run(test_setSortedArrSelection_D0_SK3, SK_"test_setSortedArrSelection_D0_SK3")
3856#endif
3857#if SK2_ENABLED
3858 call test%run(test_setSortedArrSelection_D0_SK2, SK_"test_setSortedArrSelection_D0_SK2")
3859#endif
3860#if SK1_ENABLED
3861 call test%run(test_setSortedArrSelection_D0_SK1, SK_"test_setSortedArrSelection_D0_SK1")
3862#endif
3863
3864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3865
3866#if SK5_ENABLED
3867 call test%run(test_setSortedArrSelection_D1_SK5, SK_"test_setSortedArrSelection_D1_SK5")
3868#endif
3869#if SK4_ENABLED
3870 call test%run(test_setSortedArrSelection_D1_SK4, SK_"test_setSortedArrSelection_D1_SK4")
3871#endif
3872#if SK3_ENABLED
3873 call test%run(test_setSortedArrSelection_D1_SK3, SK_"test_setSortedArrSelection_D1_SK3")
3874#endif
3875#if SK2_ENABLED
3876 call test%run(test_setSortedArrSelection_D1_SK2, SK_"test_setSortedArrSelection_D1_SK2")
3877#endif
3878#if SK1_ENABLED
3879 call test%run(test_setSortedArrSelection_D1_SK1, SK_"test_setSortedArrSelection_D1_SK1")
3880#endif
3881
3882 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3883
3884#if IK5_ENABLED
3885 call test%run(test_setSortedArrSelection_D1_IK5, SK_"test_setSortedArrSelection_D1_IK5")
3886#endif
3887#if IK4_ENABLED
3888 call test%run(test_setSortedArrSelection_D1_IK4, SK_"test_setSortedArrSelection_D1_IK4")
3889#endif
3890#if IK3_ENABLED
3891 call test%run(test_setSortedArrSelection_D1_IK3, SK_"test_setSortedArrSelection_D1_IK3")
3892#endif
3893#if IK2_ENABLED
3894 call test%run(test_setSortedArrSelection_D1_IK2, SK_"test_setSortedArrSelection_D1_IK2")
3895#endif
3896#if IK1_ENABLED
3897 call test%run(test_setSortedArrSelection_D1_IK1, SK_"test_setSortedArrSelection_D1_IK1")
3898#endif
3899
3900 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3901
3902#if LK5_ENABLED
3903 call test%run(test_setSortedArrSelection_D1_LK5, SK_"test_setSortedArrSelection_D1_LK5")
3904#endif
3905#if LK4_ENABLED
3906 call test%run(test_setSortedArrSelection_D1_LK4, SK_"test_setSortedArrSelection_D1_LK4")
3907#endif
3908#if LK3_ENABLED
3909 call test%run(test_setSortedArrSelection_D1_LK3, SK_"test_setSortedArrSelection_D1_LK3")
3910#endif
3911#if LK2_ENABLED
3912 call test%run(test_setSortedArrSelection_D1_LK2, SK_"test_setSortedArrSelection_D1_LK2")
3913#endif
3914#if LK1_ENABLED
3915 call test%run(test_setSortedArrSelection_D1_LK1, SK_"test_setSortedArrSelection_D1_LK1")
3916#endif
3917
3918 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3919
3920#if CK5_ENABLED
3921 call test%run(test_setSortedArrSelection_D1_CK5, SK_"test_setSortedArrSelection_D1_CK5")
3922#endif
3923#if CK4_ENABLED
3924 call test%run(test_setSortedArrSelection_D1_CK4, SK_"test_setSortedArrSelection_D1_CK4")
3925#endif
3926#if CK3_ENABLED
3927 call test%run(test_setSortedArrSelection_D1_CK3, SK_"test_setSortedArrSelection_D1_CK3")
3928#endif
3929#if CK2_ENABLED
3930 call test%run(test_setSortedArrSelection_D1_CK2, SK_"test_setSortedArrSelection_D1_CK2")
3931#endif
3932#if CK1_ENABLED
3933 call test%run(test_setSortedArrSelection_D1_CK1, SK_"test_setSortedArrSelection_D1_CK1")
3934#endif
3935
3936 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3937
3938#if RK5_ENABLED
3939 call test%run(test_setSortedArrSelection_D1_RK5, SK_"test_setSortedArrSelection_D1_RK5")
3940#endif
3941#if RK4_ENABLED
3942 call test%run(test_setSortedArrSelection_D1_RK4, SK_"test_setSortedArrSelection_D1_RK4")
3943#endif
3944#if RK3_ENABLED
3945 call test%run(test_setSortedArrSelection_D1_RK3, SK_"test_setSortedArrSelection_D1_RK3")
3946#endif
3947#if RK2_ENABLED
3948 call test%run(test_setSortedArrSelection_D1_RK2, SK_"test_setSortedArrSelection_D1_RK2")
3949#endif
3950#if RK1_ENABLED
3951 call test%run(test_setSortedArrSelection_D1_RK1, SK_"test_setSortedArrSelection_D1_RK1")
3952#endif
3953
3954 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3955#if 0
3956#if SK5_ENABLED
3957 call test%run(test_setSortedArrSelection_D1_PSSK5, SK_"test_setSortedArrSelection_D1_PSSK5")
3958#endif
3959#if SK4_ENABLED
3960 call test%run(test_setSortedArrSelection_D1_PSSK4, SK_"test_setSortedArrSelection_D1_PSSK4")
3961#endif
3962#if SK3_ENABLED
3963 call test%run(test_setSortedArrSelection_D1_PSSK3, SK_"test_setSortedArrSelection_D1_PSSK3")
3964#endif
3965#if SK2_ENABLED
3966 call test%run(test_setSortedArrSelection_D1_PSSK2, SK_"test_setSortedArrSelection_D1_PSSK2")
3967#endif
3968#if SK1_ENABLED
3969 call test%run(test_setSortedArrSelection_D1_PSSK1, SK_"test_setSortedArrSelection_D1_PSSK1")
3970#endif
3971#endif
3972 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3973
3974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3975 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3976 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3977
3978 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3979
3980 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3982 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3983
3984 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3985
3986#if SK5_ENABLED
3987 call test%run(test_setSortedArrShell_D0_SK5, SK_"test_setSortedArrShell_D0_SK5")
3988#endif
3989#if SK4_ENABLED
3990 call test%run(test_setSortedArrShell_D0_SK4, SK_"test_setSortedArrShell_D0_SK4")
3991#endif
3992#if SK3_ENABLED
3993 call test%run(test_setSortedArrShell_D0_SK3, SK_"test_setSortedArrShell_D0_SK3")
3994#endif
3995#if SK2_ENABLED
3996 call test%run(test_setSortedArrShell_D0_SK2, SK_"test_setSortedArrShell_D0_SK2")
3997#endif
3998#if SK1_ENABLED
3999 call test%run(test_setSortedArrShell_D0_SK1, SK_"test_setSortedArrShell_D0_SK1")
4000#endif
4001
4002 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4003
4004#if SK5_ENABLED
4005 call test%run(test_setSortedArrShell_D1_SK5, SK_"test_setSortedArrShell_D1_SK5")
4006#endif
4007#if SK4_ENABLED
4008 call test%run(test_setSortedArrShell_D1_SK4, SK_"test_setSortedArrShell_D1_SK4")
4009#endif
4010#if SK3_ENABLED
4011 call test%run(test_setSortedArrShell_D1_SK3, SK_"test_setSortedArrShell_D1_SK3")
4012#endif
4013#if SK2_ENABLED
4014 call test%run(test_setSortedArrShell_D1_SK2, SK_"test_setSortedArrShell_D1_SK2")
4015#endif
4016#if SK1_ENABLED
4017 call test%run(test_setSortedArrShell_D1_SK1, SK_"test_setSortedArrShell_D1_SK1")
4018#endif
4019
4020 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4021
4022#if IK5_ENABLED
4023 call test%run(test_setSortedArrShell_D1_IK5, SK_"test_setSortedArrShell_D1_IK5")
4024#endif
4025#if IK4_ENABLED
4026 call test%run(test_setSortedArrShell_D1_IK4, SK_"test_setSortedArrShell_D1_IK4")
4027#endif
4028#if IK3_ENABLED
4029 call test%run(test_setSortedArrShell_D1_IK3, SK_"test_setSortedArrShell_D1_IK3")
4030#endif
4031#if IK2_ENABLED
4032 call test%run(test_setSortedArrShell_D1_IK2, SK_"test_setSortedArrShell_D1_IK2")
4033#endif
4034#if IK1_ENABLED
4035 call test%run(test_setSortedArrShell_D1_IK1, SK_"test_setSortedArrShell_D1_IK1")
4036#endif
4037
4038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4039
4040#if LK5_ENABLED
4041 call test%run(test_setSortedArrShell_D1_LK5, SK_"test_setSortedArrShell_D1_LK5")
4042#endif
4043#if LK4_ENABLED
4044 call test%run(test_setSortedArrShell_D1_LK4, SK_"test_setSortedArrShell_D1_LK4")
4045#endif
4046#if LK3_ENABLED
4047 call test%run(test_setSortedArrShell_D1_LK3, SK_"test_setSortedArrShell_D1_LK3")
4048#endif
4049#if LK2_ENABLED
4050 call test%run(test_setSortedArrShell_D1_LK2, SK_"test_setSortedArrShell_D1_LK2")
4051#endif
4052#if LK1_ENABLED
4053 call test%run(test_setSortedArrShell_D1_LK1, SK_"test_setSortedArrShell_D1_LK1")
4054#endif
4055
4056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4057
4058#if CK5_ENABLED
4059 call test%run(test_setSortedArrShell_D1_CK5, SK_"test_setSortedArrShell_D1_CK5")
4060#endif
4061#if CK4_ENABLED
4062 call test%run(test_setSortedArrShell_D1_CK4, SK_"test_setSortedArrShell_D1_CK4")
4063#endif
4064#if CK3_ENABLED
4065 call test%run(test_setSortedArrShell_D1_CK3, SK_"test_setSortedArrShell_D1_CK3")
4066#endif
4067#if CK2_ENABLED
4068 call test%run(test_setSortedArrShell_D1_CK2, SK_"test_setSortedArrShell_D1_CK2")
4069#endif
4070#if CK1_ENABLED
4071 call test%run(test_setSortedArrShell_D1_CK1, SK_"test_setSortedArrShell_D1_CK1")
4072#endif
4073
4074 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4075
4076#if RK5_ENABLED
4077 call test%run(test_setSortedArrShell_D1_RK5, SK_"test_setSortedArrShell_D1_RK5")
4078#endif
4079#if RK4_ENABLED
4080 call test%run(test_setSortedArrShell_D1_RK4, SK_"test_setSortedArrShell_D1_RK4")
4081#endif
4082#if RK3_ENABLED
4083 call test%run(test_setSortedArrShell_D1_RK3, SK_"test_setSortedArrShell_D1_RK3")
4084#endif
4085#if RK2_ENABLED
4086 call test%run(test_setSortedArrShell_D1_RK2, SK_"test_setSortedArrShell_D1_RK2")
4087#endif
4088#if RK1_ENABLED
4089 call test%run(test_setSortedArrShell_D1_RK1, SK_"test_setSortedArrShell_D1_RK1")
4090#endif
4091
4092 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4093#if 0
4094#if SK5_ENABLED
4095 call test%run(test_setSortedArrShell_D1_PSSK5, SK_"test_setSortedArrShell_D1_PSSK5")
4096#endif
4097#if SK4_ENABLED
4098 call test%run(test_setSortedArrShell_D1_PSSK4, SK_"test_setSortedArrShell_D1_PSSK4")
4099#endif
4100#if SK3_ENABLED
4101 call test%run(test_setSortedArrShell_D1_PSSK3, SK_"test_setSortedArrShell_D1_PSSK3")
4102#endif
4103#if SK2_ENABLED
4104 call test%run(test_setSortedArrShell_D1_PSSK2, SK_"test_setSortedArrShell_D1_PSSK2")
4105#endif
4106#if SK1_ENABLED
4107 call test%run(test_setSortedArrShell_D1_PSSK1, SK_"test_setSortedArrShell_D1_PSSK1")
4108#endif
4109#endif
4110 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4111
4112 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4113 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4114 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4115
4116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4117
4118 !error stop
4119 call test%summarize()
4120
4121 end subroutine setTest
4122
4123!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4124
4125#if 0
4126
4128 ! LCOV_EXCL_START
4129 function test_performance_1() result(assertion)
4130
4131 implicit none
4132 logical(LK) :: assertion
4133 character(:, SK), allocatable :: methodName
4134
4135 assertion = .true._LK
4136 test%File = test%openFile()
4137
4138 !write(test%File%unit,"(*(g0,:,' '))") "Smooth sort" ! Smooth search is too slow to request arrays sizes > 10000.
4139 !call bench(sortSmooth,10000_IK)
4140 !write(test%File%unit,"(*(g0,:,' '))")
4141
4142 methodName = "Bubble sort"
4143 write(test%File%unit,"(*(g0,:,' '))") methodName
4144 call bench(setSortedBubble_RK2,10000_IK)
4145 write(test%File%unit,"(*(g0,:,' '))")
4146
4147 methodName = "Selection sort"
4148 write(test%File%unit,"(*(g0,:,' '))") methodName
4149 call bench(setSortedSelection_RK2,10000_IK)
4150 write(test%File%unit,"(*(g0,:,' '))")
4151
4152 methodName = "insertion sort"
4153 write(test%File%unit,"(*(g0,:,' '))") methodName
4154 call bench(setSortedInsertion_RK2,10000_IK)
4155 write(test%File%unit,"(*(g0,:,' '))")
4156
4157 methodName = "Binary insertion sort"
4158 write(test%File%unit,"(*(g0,:,' '))") methodName
4159 call bench(setSortedInsertionb_RK2,10000_IK)
4160 write(test%File%unit,"(*(g0,:,' '))")
4161
4162 !methodName = "Pair insertion sort"
4163 !write(test%File%unit,"(*(g0,:,' '))") methodName
4164 !call bench(setSortedInsertionPair,10000_IK)
4165 !write(test%File%unit,"(*(g0,:,' '))")
4166
4167 methodName = "Double insertion sort"
4168 write(test%File%unit,"(*(g0,:,' '))") methodName
4169 call bench(setSortedInsertionDouble_RK2,10000_IK)
4170 write(test%File%unit,"(*(g0,:,' '))")
4171
4172 methodName = "Shell sort"
4173 write(test%File%unit,"(*(g0,:,' '))") methodName
4174 call bench(setSortedShell_RK2,100000_IK)
4175 write(test%File%unit,"(*(g0,:,' '))")
4176
4177 methodName = "Merge sort"
4178 write(test%File%unit,"(*(g0,:,' '))") methodName
4179 call bench(setSortedMergeRecDefCom_RK2,100000_IK)
4180 write(test%File%unit,"(*(g0,:,' '))")
4181
4182 methodName = "Heap sort"
4183 write(test%File%unit,"(*(g0,:,' '))") methodName
4184 call bench(setSortedHeap_RK2,100000_IK)
4185 write(test%File%unit,"(*(g0,:,' '))")
4186
4187 methodName = "Heap sort recursive"
4188 write(test%File%unit,"(*(g0,:,' '))") methodName
4189 call bench(setSortedHeapRec_RK2,100000_IK)
4190 write(test%File%unit,"(*(g0,:,' '))")
4191
4192 methodName = "Quicksort"
4193 write(test%File%unit,"(*(g0,:,' '))") methodName
4194 call bench(setSortedRec_RK2,100000_IK)
4195 write(test%File%unit,"(*(g0,:,' '))")
4196
4197 methodName = "Dual pivot quicksort"
4198 write(test%File%unit,"(*(g0,:,' '))") methodName
4199 call bench(setSortedDualPivot_RK2,100000_IK)
4200 write(test%File%unit,"(*(g0,:,' '))")
4201
4202 methodName = "Quicksort (no recursion)"
4203 write(test%File%unit,"(*(g0,:,' '))") methodName
4204 call bench(sortWrapper,100000_IK)
4205 write(test%File%unit,"(*(g0,:,' '))")
4206
4207 close(test%File%unit)
4208
4209 contains
4210
4211 subroutine sortWrapper(Array)
4212 real(RK), intent(inout), contiguous :: Array(:)
4213 call setSorted(Array)
4214 end subroutine
4215
4216 subroutine bench(sort,arraySize)
4217 abstract interface
4218 subroutine setSorted_proc_RK2(Array)
4219 use pm_kind, only: RK2
4220 real(RK2) , intent(inout), contiguous :: Array(:)
4221 end subroutine setSorted_proc_RK2
4222 end interface
4223 procedure(setSorted_proc_RK2) :: sort
4224 real(RK) , allocatable :: Array(:)
4225 integer(IK) , intent(in) :: arraySize
4226 integer(IK) :: i,j,off,t1,t2,rate
4227 real(RK) :: check
4228 allocate(Array(arraySize))
4229 i = 10_IK
4230 ! find rate
4231 call system_clock(t1,rate)
4232 write(test%File%unit,"(*(g0,:,' '))") " Size time/element"
4233 do while(i <= arraySize)
4234 call random_number(Array)
4235 check = sum(Array(1:i))
4236 off = 1
4237 call system_clock(t1)
4238 do while(off+i-1 <= arraySize)
4239 call setSorted(Array(off:off+i-1))
4240 off = off + i
4241 end do
4242 call system_clock(t2)
4243 ! Check result is ordered
4244 do j = 2, i
4245 if (Array(j) < Array(j-1)) then
4246 assertion = .false._LK
4247 write(test%File%unit,"(*(g0,:,' '))") "Sort error at ",j," value ",Array(j)
4248 if (i <= 100_IK) then
4249 write(test%File%unit,"(*(g0,:,' '))") Array(1:i)
4250 else
4251 !write(test%File%unit,"(*(g0,:,' '))") Array(j-3:j+3)
4252 write(test%File%unit,"(*(g0,:,' '))") Array(j-1), Array(j)
4253 end if
4254 write(*,*) methodName
4255 !return
4256 end if
4257 end do
4258 ! Check sum of result is approximately the same as it was
4259 check = check - sum(Array(1:i))
4260 if (check > 1e-15_RK * i*sqrt(real(i,RK))) then
4261 write(test%File%unit,"(*(g0,:,' '))") "Large difference in sums before and after",check
4262 end if
4263
4264 write(test%File%unit,"(*(g0,:,' '))")i,real(t2-t1,RK)/(real(rate,RK)*i*(arraySize/i))
4265 i = 10 * i
4266 end do
4267 deallocate(Array)
4268 end subroutine bench
4269
4270 end function test_performance_1
4271 ! LCOV_EXCL_STOP
4272#endif
4273
4274!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4275
4276end module test_pm_arraySort
pm_arraySort::setSorted
Sort the input scalar string or contiguous vector in ascending order, or return the sorted indices of...
Definition: pm_arraySort.F90:5540
pm_arraySort
This module contains procedures and generic interfaces for various sorting tasks.
Definition: pm_arraySort.F90:89
pm_arraySort::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arraySort.F90:95
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::RK
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
Definition: pm_kind.F90:543
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arraySort
This module contains tests of the module pm_arraySort.
Definition: test_pm_arraySort.F90:27
test_pm_arraySort::setTest
subroutine setTest()
Definition: test_pm_arraySort.F90:2056
test_pm_arraySort::test
type(test_type) test
Definition: test_pm_arraySort.F90:37
test_pm_arraySort::test_performance_1
logical(LK) function test_performance_1()
Test the performance of different sorting algorithms in pm_arraySort.
Definition: test_pm_arraySort.F90:4130
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209
sortWrapper
subroutine sortWrapper(Array)
Definition: test_pm_arraySort.F90:4212
bench
subroutine bench(sort, arraySize)
Definition: test_pm_arraySort.F90:4217