ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayInit.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
38
39!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40
41module test_pm_arrayInit
42
43 use pm_arrayInit
44 use pm_test, only: test_type, LK
45
46 implicit none
47
48 private
49 public :: setTest
50 type(test_type) :: test
51
52!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53
54 interface
55
56 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59
60 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62#if SK5_ENABLED
63 module function test_getCoreHaloArr_D0_SK5() result(assertion); logical(LK) :: assertion; end function
64#endif
65#if SK4_ENABLED
66 module function test_getCoreHaloArr_D0_SK4() result(assertion); logical(LK) :: assertion; end function
67#endif
68#if SK3_ENABLED
69 module function test_getCoreHaloArr_D0_SK3() result(assertion); logical(LK) :: assertion; end function
70#endif
71#if SK2_ENABLED
72 module function test_getCoreHaloArr_D0_SK2() result(assertion); logical(LK) :: assertion; end function
73#endif
74#if SK1_ENABLED
75 module function test_getCoreHaloArr_D0_SK1() result(assertion); logical(LK) :: assertion; end function
76#endif
77
78 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
80 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
81 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
82 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83
84 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85
86#if SK5_ENABLED
87 module function test_getCoreHaloArr_D1_SK5() result(assertion); logical(LK) :: assertion; end function
88#endif
89#if SK4_ENABLED
90 module function test_getCoreHaloArr_D1_SK4() result(assertion); logical(LK) :: assertion; end function
91#endif
92#if SK3_ENABLED
93 module function test_getCoreHaloArr_D1_SK3() result(assertion); logical(LK) :: assertion; end function
94#endif
95#if SK2_ENABLED
96 module function test_getCoreHaloArr_D1_SK2() result(assertion); logical(LK) :: assertion; end function
97#endif
98#if SK1_ENABLED
99 module function test_getCoreHaloArr_D1_SK1() result(assertion); logical(LK) :: assertion; end function
100#endif
101
102 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103
104#if IK5_ENABLED
105 module function test_getCoreHaloArr_D1_IK5() result(assertion); logical(LK) :: assertion; end function
106#endif
107#if IK4_ENABLED
108 module function test_getCoreHaloArr_D1_IK4() result(assertion); logical(LK) :: assertion; end function
109#endif
110#if IK3_ENABLED
111 module function test_getCoreHaloArr_D1_IK3() result(assertion); logical(LK) :: assertion; end function
112#endif
113#if IK2_ENABLED
114 module function test_getCoreHaloArr_D1_IK2() result(assertion); logical(LK) :: assertion; end function
115#endif
116#if IK1_ENABLED
117 module function test_getCoreHaloArr_D1_IK1() result(assertion); logical(LK) :: assertion; end function
118#endif
119
120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
121
122#if LK5_ENABLED
123 module function test_getCoreHaloArr_D1_LK5() result(assertion); logical(LK) :: assertion; end function
124#endif
125#if LK4_ENABLED
126 module function test_getCoreHaloArr_D1_LK4() result(assertion); logical(LK) :: assertion; end function
127#endif
128#if LK3_ENABLED
129 module function test_getCoreHaloArr_D1_LK3() result(assertion); logical(LK) :: assertion; end function
130#endif
131#if LK2_ENABLED
132 module function test_getCoreHaloArr_D1_LK2() result(assertion); logical(LK) :: assertion; end function
133#endif
134#if LK1_ENABLED
135 module function test_getCoreHaloArr_D1_LK1() result(assertion); logical(LK) :: assertion; end function
136#endif
137
138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139
140#if CK5_ENABLED
141 module function test_getCoreHaloArr_D1_CK5() result(assertion); logical(LK) :: assertion; end function
142#endif
143#if CK4_ENABLED
144 module function test_getCoreHaloArr_D1_CK4() result(assertion); logical(LK) :: assertion; end function
145#endif
146#if CK3_ENABLED
147 module function test_getCoreHaloArr_D1_CK3() result(assertion); logical(LK) :: assertion; end function
148#endif
149#if CK2_ENABLED
150 module function test_getCoreHaloArr_D1_CK2() result(assertion); logical(LK) :: assertion; end function
151#endif
152#if CK1_ENABLED
153 module function test_getCoreHaloArr_D1_CK1() result(assertion); logical(LK) :: assertion; end function
154#endif
155
156 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157
158#if RK5_ENABLED
159 module function test_getCoreHaloArr_D1_RK5() result(assertion); logical(LK) :: assertion; end function
160#endif
161#if RK4_ENABLED
162 module function test_getCoreHaloArr_D1_RK4() result(assertion); logical(LK) :: assertion; end function
163#endif
164#if RK3_ENABLED
165 module function test_getCoreHaloArr_D1_RK3() result(assertion); logical(LK) :: assertion; end function
166#endif
167#if RK2_ENABLED
168 module function test_getCoreHaloArr_D1_RK2() result(assertion); logical(LK) :: assertion; end function
169#endif
170#if RK1_ENABLED
171 module function test_getCoreHaloArr_D1_RK1() result(assertion); logical(LK) :: assertion; end function
172#endif
173
174 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
175
176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179
180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
181
182#if SK5_ENABLED
183 module function test_getCoreHaloArr_D2_SK5() result(assertion); logical(LK) :: assertion; end function
184#endif
185#if SK4_ENABLED
186 module function test_getCoreHaloArr_D2_SK4() result(assertion); logical(LK) :: assertion; end function
187#endif
188#if SK3_ENABLED
189 module function test_getCoreHaloArr_D2_SK3() result(assertion); logical(LK) :: assertion; end function
190#endif
191#if SK2_ENABLED
192 module function test_getCoreHaloArr_D2_SK2() result(assertion); logical(LK) :: assertion; end function
193#endif
194#if SK1_ENABLED
195 module function test_getCoreHaloArr_D2_SK1() result(assertion); logical(LK) :: assertion; end function
196#endif
197
198 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
199
200#if IK5_ENABLED
201 module function test_getCoreHaloArr_D2_IK5() result(assertion); logical(LK) :: assertion; end function
202#endif
203#if IK4_ENABLED
204 module function test_getCoreHaloArr_D2_IK4() result(assertion); logical(LK) :: assertion; end function
205#endif
206#if IK3_ENABLED
207 module function test_getCoreHaloArr_D2_IK3() result(assertion); logical(LK) :: assertion; end function
208#endif
209#if IK2_ENABLED
210 module function test_getCoreHaloArr_D2_IK2() result(assertion); logical(LK) :: assertion; end function
211#endif
212#if IK1_ENABLED
213 module function test_getCoreHaloArr_D2_IK1() result(assertion); logical(LK) :: assertion; end function
214#endif
215
216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
217
218#if LK5_ENABLED
219 module function test_getCoreHaloArr_D2_LK5() result(assertion); logical(LK) :: assertion; end function
220#endif
221#if LK4_ENABLED
222 module function test_getCoreHaloArr_D2_LK4() result(assertion); logical(LK) :: assertion; end function
223#endif
224#if LK3_ENABLED
225 module function test_getCoreHaloArr_D2_LK3() result(assertion); logical(LK) :: assertion; end function
226#endif
227#if LK2_ENABLED
228 module function test_getCoreHaloArr_D2_LK2() result(assertion); logical(LK) :: assertion; end function
229#endif
230#if LK1_ENABLED
231 module function test_getCoreHaloArr_D2_LK1() result(assertion); logical(LK) :: assertion; end function
232#endif
233
234 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
235
236#if CK5_ENABLED
237 module function test_getCoreHaloArr_D2_CK5() result(assertion); logical(LK) :: assertion; end function
238#endif
239#if CK4_ENABLED
240 module function test_getCoreHaloArr_D2_CK4() result(assertion); logical(LK) :: assertion; end function
241#endif
242#if CK3_ENABLED
243 module function test_getCoreHaloArr_D2_CK3() result(assertion); logical(LK) :: assertion; end function
244#endif
245#if CK2_ENABLED
246 module function test_getCoreHaloArr_D2_CK2() result(assertion); logical(LK) :: assertion; end function
247#endif
248#if CK1_ENABLED
249 module function test_getCoreHaloArr_D2_CK1() result(assertion); logical(LK) :: assertion; end function
250#endif
251
252 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253
254#if RK5_ENABLED
255 module function test_getCoreHaloArr_D2_RK5() result(assertion); logical(LK) :: assertion; end function
256#endif
257#if RK4_ENABLED
258 module function test_getCoreHaloArr_D2_RK4() result(assertion); logical(LK) :: assertion; end function
259#endif
260#if RK3_ENABLED
261 module function test_getCoreHaloArr_D2_RK3() result(assertion); logical(LK) :: assertion; end function
262#endif
263#if RK2_ENABLED
264 module function test_getCoreHaloArr_D2_RK2() result(assertion); logical(LK) :: assertion; end function
265#endif
266#if RK1_ENABLED
267 module function test_getCoreHaloArr_D2_RK1() result(assertion); logical(LK) :: assertion; end function
268#endif
269
270 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271
272 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275
276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
277
278#if SK5_ENABLED
279 module function test_getCoreHaloArr_D3_SK5() result(assertion); logical(LK) :: assertion; end function
280#endif
281#if SK4_ENABLED
282 module function test_getCoreHaloArr_D3_SK4() result(assertion); logical(LK) :: assertion; end function
283#endif
284#if SK3_ENABLED
285 module function test_getCoreHaloArr_D3_SK3() result(assertion); logical(LK) :: assertion; end function
286#endif
287#if SK2_ENABLED
288 module function test_getCoreHaloArr_D3_SK2() result(assertion); logical(LK) :: assertion; end function
289#endif
290#if SK1_ENABLED
291 module function test_getCoreHaloArr_D3_SK1() result(assertion); logical(LK) :: assertion; end function
292#endif
293
294 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295
296#if IK5_ENABLED
297 module function test_getCoreHaloArr_D3_IK5() result(assertion); logical(LK) :: assertion; end function
298#endif
299#if IK4_ENABLED
300 module function test_getCoreHaloArr_D3_IK4() result(assertion); logical(LK) :: assertion; end function
301#endif
302#if IK3_ENABLED
303 module function test_getCoreHaloArr_D3_IK3() result(assertion); logical(LK) :: assertion; end function
304#endif
305#if IK2_ENABLED
306 module function test_getCoreHaloArr_D3_IK2() result(assertion); logical(LK) :: assertion; end function
307#endif
308#if IK1_ENABLED
309 module function test_getCoreHaloArr_D3_IK1() result(assertion); logical(LK) :: assertion; end function
310#endif
311
312 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313
314#if LK5_ENABLED
315 module function test_getCoreHaloArr_D3_LK5() result(assertion); logical(LK) :: assertion; end function
316#endif
317#if LK4_ENABLED
318 module function test_getCoreHaloArr_D3_LK4() result(assertion); logical(LK) :: assertion; end function
319#endif
320#if LK3_ENABLED
321 module function test_getCoreHaloArr_D3_LK3() result(assertion); logical(LK) :: assertion; end function
322#endif
323#if LK2_ENABLED
324 module function test_getCoreHaloArr_D3_LK2() result(assertion); logical(LK) :: assertion; end function
325#endif
326#if LK1_ENABLED
327 module function test_getCoreHaloArr_D3_LK1() result(assertion); logical(LK) :: assertion; end function
328#endif
329
330 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331
332#if CK5_ENABLED
333 module function test_getCoreHaloArr_D3_CK5() result(assertion); logical(LK) :: assertion; end function
334#endif
335#if CK4_ENABLED
336 module function test_getCoreHaloArr_D3_CK4() result(assertion); logical(LK) :: assertion; end function
337#endif
338#if CK3_ENABLED
339 module function test_getCoreHaloArr_D3_CK3() result(assertion); logical(LK) :: assertion; end function
340#endif
341#if CK2_ENABLED
342 module function test_getCoreHaloArr_D3_CK2() result(assertion); logical(LK) :: assertion; end function
343#endif
344#if CK1_ENABLED
345 module function test_getCoreHaloArr_D3_CK1() result(assertion); logical(LK) :: assertion; end function
346#endif
347
348 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349
350#if RK5_ENABLED
351 module function test_getCoreHaloArr_D3_RK5() result(assertion); logical(LK) :: assertion; end function
352#endif
353#if RK4_ENABLED
354 module function test_getCoreHaloArr_D3_RK4() result(assertion); logical(LK) :: assertion; end function
355#endif
356#if RK3_ENABLED
357 module function test_getCoreHaloArr_D3_RK3() result(assertion); logical(LK) :: assertion; end function
358#endif
359#if RK2_ENABLED
360 module function test_getCoreHaloArr_D3_RK2() result(assertion); logical(LK) :: assertion; end function
361#endif
362#if RK1_ENABLED
363 module function test_getCoreHaloArr_D3_RK1() result(assertion); logical(LK) :: assertion; end function
364#endif
365
366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367
368 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
370 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371
372 end interface
373
374!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375
376 interface
377
378 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
381
382 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
383
384#if SK5_ENABLED
385 module function test_setCoreHaloArr_D0_SK5() result(assertion); logical(LK) :: assertion; end function
386#endif
387#if SK4_ENABLED
388 module function test_setCoreHaloArr_D0_SK4() result(assertion); logical(LK) :: assertion; end function
389#endif
390#if SK3_ENABLED
391 module function test_setCoreHaloArr_D0_SK3() result(assertion); logical(LK) :: assertion; end function
392#endif
393#if SK2_ENABLED
394 module function test_setCoreHaloArr_D0_SK2() result(assertion); logical(LK) :: assertion; end function
395#endif
396#if SK1_ENABLED
397 module function test_setCoreHaloArr_D0_SK1() result(assertion); logical(LK) :: assertion; end function
398#endif
399
400 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401
402 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
405
406 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
407
408#if SK5_ENABLED
409 module function test_setCoreHaloArr_D1_SK5() result(assertion); logical(LK) :: assertion; end function
410#endif
411#if SK4_ENABLED
412 module function test_setCoreHaloArr_D1_SK4() result(assertion); logical(LK) :: assertion; end function
413#endif
414#if SK3_ENABLED
415 module function test_setCoreHaloArr_D1_SK3() result(assertion); logical(LK) :: assertion; end function
416#endif
417#if SK2_ENABLED
418 module function test_setCoreHaloArr_D1_SK2() result(assertion); logical(LK) :: assertion; end function
419#endif
420#if SK1_ENABLED
421 module function test_setCoreHaloArr_D1_SK1() result(assertion); logical(LK) :: assertion; end function
422#endif
423
424 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
425
426#if IK5_ENABLED
427 module function test_setCoreHaloArr_D1_IK5() result(assertion); logical(LK) :: assertion; end function
428#endif
429#if IK4_ENABLED
430 module function test_setCoreHaloArr_D1_IK4() result(assertion); logical(LK) :: assertion; end function
431#endif
432#if IK3_ENABLED
433 module function test_setCoreHaloArr_D1_IK3() result(assertion); logical(LK) :: assertion; end function
434#endif
435#if IK2_ENABLED
436 module function test_setCoreHaloArr_D1_IK2() result(assertion); logical(LK) :: assertion; end function
437#endif
438#if IK1_ENABLED
439 module function test_setCoreHaloArr_D1_IK1() result(assertion); logical(LK) :: assertion; end function
440#endif
441
442 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
443
444#if LK5_ENABLED
445 module function test_setCoreHaloArr_D1_LK5() result(assertion); logical(LK) :: assertion; end function
446#endif
447#if LK4_ENABLED
448 module function test_setCoreHaloArr_D1_LK4() result(assertion); logical(LK) :: assertion; end function
449#endif
450#if LK3_ENABLED
451 module function test_setCoreHaloArr_D1_LK3() result(assertion); logical(LK) :: assertion; end function
452#endif
453#if LK2_ENABLED
454 module function test_setCoreHaloArr_D1_LK2() result(assertion); logical(LK) :: assertion; end function
455#endif
456#if LK1_ENABLED
457 module function test_setCoreHaloArr_D1_LK1() result(assertion); logical(LK) :: assertion; end function
458#endif
459
460 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
461
462#if CK5_ENABLED
463 module function test_setCoreHaloArr_D1_CK5() result(assertion); logical(LK) :: assertion; end function
464#endif
465#if CK4_ENABLED
466 module function test_setCoreHaloArr_D1_CK4() result(assertion); logical(LK) :: assertion; end function
467#endif
468#if CK3_ENABLED
469 module function test_setCoreHaloArr_D1_CK3() result(assertion); logical(LK) :: assertion; end function
470#endif
471#if CK2_ENABLED
472 module function test_setCoreHaloArr_D1_CK2() result(assertion); logical(LK) :: assertion; end function
473#endif
474#if CK1_ENABLED
475 module function test_setCoreHaloArr_D1_CK1() result(assertion); logical(LK) :: assertion; end function
476#endif
477
478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
479
480#if RK5_ENABLED
481 module function test_setCoreHaloArr_D1_RK5() result(assertion); logical(LK) :: assertion; end function
482#endif
483#if RK4_ENABLED
484 module function test_setCoreHaloArr_D1_RK4() result(assertion); logical(LK) :: assertion; end function
485#endif
486#if RK3_ENABLED
487 module function test_setCoreHaloArr_D1_RK3() result(assertion); logical(LK) :: assertion; end function
488#endif
489#if RK2_ENABLED
490 module function test_setCoreHaloArr_D1_RK2() result(assertion); logical(LK) :: assertion; end function
491#endif
492#if RK1_ENABLED
493 module function test_setCoreHaloArr_D1_RK1() result(assertion); logical(LK) :: assertion; end function
494#endif
495
496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497
498 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
500 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
501
502 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
503
504#if SK5_ENABLED
505 module function test_setCoreHaloArr_D2_SK5() result(assertion); logical(LK) :: assertion; end function
506#endif
507#if SK4_ENABLED
508 module function test_setCoreHaloArr_D2_SK4() result(assertion); logical(LK) :: assertion; end function
509#endif
510#if SK3_ENABLED
511 module function test_setCoreHaloArr_D2_SK3() result(assertion); logical(LK) :: assertion; end function
512#endif
513#if SK2_ENABLED
514 module function test_setCoreHaloArr_D2_SK2() result(assertion); logical(LK) :: assertion; end function
515#endif
516#if SK1_ENABLED
517 module function test_setCoreHaloArr_D2_SK1() result(assertion); logical(LK) :: assertion; end function
518#endif
519
520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521
522#if IK5_ENABLED
523 module function test_setCoreHaloArr_D2_IK5() result(assertion); logical(LK) :: assertion; end function
524#endif
525#if IK4_ENABLED
526 module function test_setCoreHaloArr_D2_IK4() result(assertion); logical(LK) :: assertion; end function
527#endif
528#if IK3_ENABLED
529 module function test_setCoreHaloArr_D2_IK3() result(assertion); logical(LK) :: assertion; end function
530#endif
531#if IK2_ENABLED
532 module function test_setCoreHaloArr_D2_IK2() result(assertion); logical(LK) :: assertion; end function
533#endif
534#if IK1_ENABLED
535 module function test_setCoreHaloArr_D2_IK1() result(assertion); logical(LK) :: assertion; end function
536#endif
537
538 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539
540#if LK5_ENABLED
541 module function test_setCoreHaloArr_D2_LK5() result(assertion); logical(LK) :: assertion; end function
542#endif
543#if LK4_ENABLED
544 module function test_setCoreHaloArr_D2_LK4() result(assertion); logical(LK) :: assertion; end function
545#endif
546#if LK3_ENABLED
547 module function test_setCoreHaloArr_D2_LK3() result(assertion); logical(LK) :: assertion; end function
548#endif
549#if LK2_ENABLED
550 module function test_setCoreHaloArr_D2_LK2() result(assertion); logical(LK) :: assertion; end function
551#endif
552#if LK1_ENABLED
553 module function test_setCoreHaloArr_D2_LK1() result(assertion); logical(LK) :: assertion; end function
554#endif
555
556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557
558#if CK5_ENABLED
559 module function test_setCoreHaloArr_D2_CK5() result(assertion); logical(LK) :: assertion; end function
560#endif
561#if CK4_ENABLED
562 module function test_setCoreHaloArr_D2_CK4() result(assertion); logical(LK) :: assertion; end function
563#endif
564#if CK3_ENABLED
565 module function test_setCoreHaloArr_D2_CK3() result(assertion); logical(LK) :: assertion; end function
566#endif
567#if CK2_ENABLED
568 module function test_setCoreHaloArr_D2_CK2() result(assertion); logical(LK) :: assertion; end function
569#endif
570#if CK1_ENABLED
571 module function test_setCoreHaloArr_D2_CK1() result(assertion); logical(LK) :: assertion; end function
572#endif
573
574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575
576#if RK5_ENABLED
577 module function test_setCoreHaloArr_D2_RK5() result(assertion); logical(LK) :: assertion; end function
578#endif
579#if RK4_ENABLED
580 module function test_setCoreHaloArr_D2_RK4() result(assertion); logical(LK) :: assertion; end function
581#endif
582#if RK3_ENABLED
583 module function test_setCoreHaloArr_D2_RK3() result(assertion); logical(LK) :: assertion; end function
584#endif
585#if RK2_ENABLED
586 module function test_setCoreHaloArr_D2_RK2() result(assertion); logical(LK) :: assertion; end function
587#endif
588#if RK1_ENABLED
589 module function test_setCoreHaloArr_D2_RK1() result(assertion); logical(LK) :: assertion; end function
590#endif
591
592 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
593
594 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
595 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
596 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
597
598 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
599
600#if SK5_ENABLED
601 module function test_setCoreHaloArr_D3_SK5() result(assertion); logical(LK) :: assertion; end function
602#endif
603#if SK4_ENABLED
604 module function test_setCoreHaloArr_D3_SK4() result(assertion); logical(LK) :: assertion; end function
605#endif
606#if SK3_ENABLED
607 module function test_setCoreHaloArr_D3_SK3() result(assertion); logical(LK) :: assertion; end function
608#endif
609#if SK2_ENABLED
610 module function test_setCoreHaloArr_D3_SK2() result(assertion); logical(LK) :: assertion; end function
611#endif
612#if SK1_ENABLED
613 module function test_setCoreHaloArr_D3_SK1() result(assertion); logical(LK) :: assertion; end function
614#endif
615
616 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
617
618#if IK5_ENABLED
619 module function test_setCoreHaloArr_D3_IK5() result(assertion); logical(LK) :: assertion; end function
620#endif
621#if IK4_ENABLED
622 module function test_setCoreHaloArr_D3_IK4() result(assertion); logical(LK) :: assertion; end function
623#endif
624#if IK3_ENABLED
625 module function test_setCoreHaloArr_D3_IK3() result(assertion); logical(LK) :: assertion; end function
626#endif
627#if IK2_ENABLED
628 module function test_setCoreHaloArr_D3_IK2() result(assertion); logical(LK) :: assertion; end function
629#endif
630#if IK1_ENABLED
631 module function test_setCoreHaloArr_D3_IK1() result(assertion); logical(LK) :: assertion; end function
632#endif
633
634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
635
636#if LK5_ENABLED
637 module function test_setCoreHaloArr_D3_LK5() result(assertion); logical(LK) :: assertion; end function
638#endif
639#if LK4_ENABLED
640 module function test_setCoreHaloArr_D3_LK4() result(assertion); logical(LK) :: assertion; end function
641#endif
642#if LK3_ENABLED
643 module function test_setCoreHaloArr_D3_LK3() result(assertion); logical(LK) :: assertion; end function
644#endif
645#if LK2_ENABLED
646 module function test_setCoreHaloArr_D3_LK2() result(assertion); logical(LK) :: assertion; end function
647#endif
648#if LK1_ENABLED
649 module function test_setCoreHaloArr_D3_LK1() result(assertion); logical(LK) :: assertion; end function
650#endif
651
652 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
653
654#if CK5_ENABLED
655 module function test_setCoreHaloArr_D3_CK5() result(assertion); logical(LK) :: assertion; end function
656#endif
657#if CK4_ENABLED
658 module function test_setCoreHaloArr_D3_CK4() result(assertion); logical(LK) :: assertion; end function
659#endif
660#if CK3_ENABLED
661 module function test_setCoreHaloArr_D3_CK3() result(assertion); logical(LK) :: assertion; end function
662#endif
663#if CK2_ENABLED
664 module function test_setCoreHaloArr_D3_CK2() result(assertion); logical(LK) :: assertion; end function
665#endif
666#if CK1_ENABLED
667 module function test_setCoreHaloArr_D3_CK1() result(assertion); logical(LK) :: assertion; end function
668#endif
669
670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
671
672#if RK5_ENABLED
673 module function test_setCoreHaloArr_D3_RK5() result(assertion); logical(LK) :: assertion; end function
674#endif
675#if RK4_ENABLED
676 module function test_setCoreHaloArr_D3_RK4() result(assertion); logical(LK) :: assertion; end function
677#endif
678#if RK3_ENABLED
679 module function test_setCoreHaloArr_D3_RK3() result(assertion); logical(LK) :: assertion; end function
680#endif
681#if RK2_ENABLED
682 module function test_setCoreHaloArr_D3_RK2() result(assertion); logical(LK) :: assertion; end function
683#endif
684#if RK1_ENABLED
685 module function test_setCoreHaloArr_D3_RK1() result(assertion); logical(LK) :: assertion; end function
686#endif
687
688 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
689
690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
691 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
693
694 end interface
695
696!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
697
698 interface
699
700 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
703
704 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
705
706#if SK5_ENABLED
707 module function test_setCoreHaloSca_D0_SK5() result(assertion); logical(LK) :: assertion; end function
708#endif
709#if SK4_ENABLED
710 module function test_setCoreHaloSca_D0_SK4() result(assertion); logical(LK) :: assertion; end function
711#endif
712#if SK3_ENABLED
713 module function test_setCoreHaloSca_D0_SK3() result(assertion); logical(LK) :: assertion; end function
714#endif
715#if SK2_ENABLED
716 module function test_setCoreHaloSca_D0_SK2() result(assertion); logical(LK) :: assertion; end function
717#endif
718#if SK1_ENABLED
719 module function test_setCoreHaloSca_D0_SK1() result(assertion); logical(LK) :: assertion; end function
720#endif
721
722 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723
724 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
726 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
727
728 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
729
730#if SK5_ENABLED
731 module function test_setCoreHaloSca_D1_SK5() result(assertion); logical(LK) :: assertion; end function
732#endif
733#if SK4_ENABLED
734 module function test_setCoreHaloSca_D1_SK4() result(assertion); logical(LK) :: assertion; end function
735#endif
736#if SK3_ENABLED
737 module function test_setCoreHaloSca_D1_SK3() result(assertion); logical(LK) :: assertion; end function
738#endif
739#if SK2_ENABLED
740 module function test_setCoreHaloSca_D1_SK2() result(assertion); logical(LK) :: assertion; end function
741#endif
742#if SK1_ENABLED
743 module function test_setCoreHaloSca_D1_SK1() result(assertion); logical(LK) :: assertion; end function
744#endif
745
746 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
747
748#if IK5_ENABLED
749 module function test_setCoreHaloSca_D1_IK5() result(assertion); logical(LK) :: assertion; end function
750#endif
751#if IK4_ENABLED
752 module function test_setCoreHaloSca_D1_IK4() result(assertion); logical(LK) :: assertion; end function
753#endif
754#if IK3_ENABLED
755 module function test_setCoreHaloSca_D1_IK3() result(assertion); logical(LK) :: assertion; end function
756#endif
757#if IK2_ENABLED
758 module function test_setCoreHaloSca_D1_IK2() result(assertion); logical(LK) :: assertion; end function
759#endif
760#if IK1_ENABLED
761 module function test_setCoreHaloSca_D1_IK1() result(assertion); logical(LK) :: assertion; end function
762#endif
763
764 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
765
766#if LK5_ENABLED
767 module function test_setCoreHaloSca_D1_LK5() result(assertion); logical(LK) :: assertion; end function
768#endif
769#if LK4_ENABLED
770 module function test_setCoreHaloSca_D1_LK4() result(assertion); logical(LK) :: assertion; end function
771#endif
772#if LK3_ENABLED
773 module function test_setCoreHaloSca_D1_LK3() result(assertion); logical(LK) :: assertion; end function
774#endif
775#if LK2_ENABLED
776 module function test_setCoreHaloSca_D1_LK2() result(assertion); logical(LK) :: assertion; end function
777#endif
778#if LK1_ENABLED
779 module function test_setCoreHaloSca_D1_LK1() result(assertion); logical(LK) :: assertion; end function
780#endif
781
782 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
783
784#if CK5_ENABLED
785 module function test_setCoreHaloSca_D1_CK5() result(assertion); logical(LK) :: assertion; end function
786#endif
787#if CK4_ENABLED
788 module function test_setCoreHaloSca_D1_CK4() result(assertion); logical(LK) :: assertion; end function
789#endif
790#if CK3_ENABLED
791 module function test_setCoreHaloSca_D1_CK3() result(assertion); logical(LK) :: assertion; end function
792#endif
793#if CK2_ENABLED
794 module function test_setCoreHaloSca_D1_CK2() result(assertion); logical(LK) :: assertion; end function
795#endif
796#if CK1_ENABLED
797 module function test_setCoreHaloSca_D1_CK1() result(assertion); logical(LK) :: assertion; end function
798#endif
799
800 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
801
802#if RK5_ENABLED
803 module function test_setCoreHaloSca_D1_RK5() result(assertion); logical(LK) :: assertion; end function
804#endif
805#if RK4_ENABLED
806 module function test_setCoreHaloSca_D1_RK4() result(assertion); logical(LK) :: assertion; end function
807#endif
808#if RK3_ENABLED
809 module function test_setCoreHaloSca_D1_RK3() result(assertion); logical(LK) :: assertion; end function
810#endif
811#if RK2_ENABLED
812 module function test_setCoreHaloSca_D1_RK2() result(assertion); logical(LK) :: assertion; end function
813#endif
814#if RK1_ENABLED
815 module function test_setCoreHaloSca_D1_RK1() result(assertion); logical(LK) :: assertion; end function
816#endif
817
818 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
819
820 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
822 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
823
824 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
825
826#if SK5_ENABLED
827 module function test_setCoreHaloSca_D2_SK5() result(assertion); logical(LK) :: assertion; end function
828#endif
829#if SK4_ENABLED
830 module function test_setCoreHaloSca_D2_SK4() result(assertion); logical(LK) :: assertion; end function
831#endif
832#if SK3_ENABLED
833 module function test_setCoreHaloSca_D2_SK3() result(assertion); logical(LK) :: assertion; end function
834#endif
835#if SK2_ENABLED
836 module function test_setCoreHaloSca_D2_SK2() result(assertion); logical(LK) :: assertion; end function
837#endif
838#if SK1_ENABLED
839 module function test_setCoreHaloSca_D2_SK1() result(assertion); logical(LK) :: assertion; end function
840#endif
841
842 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
843
844#if IK5_ENABLED
845 module function test_setCoreHaloSca_D2_IK5() result(assertion); logical(LK) :: assertion; end function
846#endif
847#if IK4_ENABLED
848 module function test_setCoreHaloSca_D2_IK4() result(assertion); logical(LK) :: assertion; end function
849#endif
850#if IK3_ENABLED
851 module function test_setCoreHaloSca_D2_IK3() result(assertion); logical(LK) :: assertion; end function
852#endif
853#if IK2_ENABLED
854 module function test_setCoreHaloSca_D2_IK2() result(assertion); logical(LK) :: assertion; end function
855#endif
856#if IK1_ENABLED
857 module function test_setCoreHaloSca_D2_IK1() result(assertion); logical(LK) :: assertion; end function
858#endif
859
860 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
861
862#if LK5_ENABLED
863 module function test_setCoreHaloSca_D2_LK5() result(assertion); logical(LK) :: assertion; end function
864#endif
865#if LK4_ENABLED
866 module function test_setCoreHaloSca_D2_LK4() result(assertion); logical(LK) :: assertion; end function
867#endif
868#if LK3_ENABLED
869 module function test_setCoreHaloSca_D2_LK3() result(assertion); logical(LK) :: assertion; end function
870#endif
871#if LK2_ENABLED
872 module function test_setCoreHaloSca_D2_LK2() result(assertion); logical(LK) :: assertion; end function
873#endif
874#if LK1_ENABLED
875 module function test_setCoreHaloSca_D2_LK1() result(assertion); logical(LK) :: assertion; end function
876#endif
877
878 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
879
880#if CK5_ENABLED
881 module function test_setCoreHaloSca_D2_CK5() result(assertion); logical(LK) :: assertion; end function
882#endif
883#if CK4_ENABLED
884 module function test_setCoreHaloSca_D2_CK4() result(assertion); logical(LK) :: assertion; end function
885#endif
886#if CK3_ENABLED
887 module function test_setCoreHaloSca_D2_CK3() result(assertion); logical(LK) :: assertion; end function
888#endif
889#if CK2_ENABLED
890 module function test_setCoreHaloSca_D2_CK2() result(assertion); logical(LK) :: assertion; end function
891#endif
892#if CK1_ENABLED
893 module function test_setCoreHaloSca_D2_CK1() result(assertion); logical(LK) :: assertion; end function
894#endif
895
896 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
897
898#if RK5_ENABLED
899 module function test_setCoreHaloSca_D2_RK5() result(assertion); logical(LK) :: assertion; end function
900#endif
901#if RK4_ENABLED
902 module function test_setCoreHaloSca_D2_RK4() result(assertion); logical(LK) :: assertion; end function
903#endif
904#if RK3_ENABLED
905 module function test_setCoreHaloSca_D2_RK3() result(assertion); logical(LK) :: assertion; end function
906#endif
907#if RK2_ENABLED
908 module function test_setCoreHaloSca_D2_RK2() result(assertion); logical(LK) :: assertion; end function
909#endif
910#if RK1_ENABLED
911 module function test_setCoreHaloSca_D2_RK1() result(assertion); logical(LK) :: assertion; end function
912#endif
913
914 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
915
916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
917 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
918 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
919
920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
921
922#if SK5_ENABLED
923 module function test_setCoreHaloSca_D3_SK5() result(assertion); logical(LK) :: assertion; end function
924#endif
925#if SK4_ENABLED
926 module function test_setCoreHaloSca_D3_SK4() result(assertion); logical(LK) :: assertion; end function
927#endif
928#if SK3_ENABLED
929 module function test_setCoreHaloSca_D3_SK3() result(assertion); logical(LK) :: assertion; end function
930#endif
931#if SK2_ENABLED
932 module function test_setCoreHaloSca_D3_SK2() result(assertion); logical(LK) :: assertion; end function
933#endif
934#if SK1_ENABLED
935 module function test_setCoreHaloSca_D3_SK1() result(assertion); logical(LK) :: assertion; end function
936#endif
937
938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
939
940#if IK5_ENABLED
941 module function test_setCoreHaloSca_D3_IK5() result(assertion); logical(LK) :: assertion; end function
942#endif
943#if IK4_ENABLED
944 module function test_setCoreHaloSca_D3_IK4() result(assertion); logical(LK) :: assertion; end function
945#endif
946#if IK3_ENABLED
947 module function test_setCoreHaloSca_D3_IK3() result(assertion); logical(LK) :: assertion; end function
948#endif
949#if IK2_ENABLED
950 module function test_setCoreHaloSca_D3_IK2() result(assertion); logical(LK) :: assertion; end function
951#endif
952#if IK1_ENABLED
953 module function test_setCoreHaloSca_D3_IK1() result(assertion); logical(LK) :: assertion; end function
954#endif
955
956 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
957
958#if LK5_ENABLED
959 module function test_setCoreHaloSca_D3_LK5() result(assertion); logical(LK) :: assertion; end function
960#endif
961#if LK4_ENABLED
962 module function test_setCoreHaloSca_D3_LK4() result(assertion); logical(LK) :: assertion; end function
963#endif
964#if LK3_ENABLED
965 module function test_setCoreHaloSca_D3_LK3() result(assertion); logical(LK) :: assertion; end function
966#endif
967#if LK2_ENABLED
968 module function test_setCoreHaloSca_D3_LK2() result(assertion); logical(LK) :: assertion; end function
969#endif
970#if LK1_ENABLED
971 module function test_setCoreHaloSca_D3_LK1() result(assertion); logical(LK) :: assertion; end function
972#endif
973
974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
975
976#if CK5_ENABLED
977 module function test_setCoreHaloSca_D3_CK5() result(assertion); logical(LK) :: assertion; end function
978#endif
979#if CK4_ENABLED
980 module function test_setCoreHaloSca_D3_CK4() result(assertion); logical(LK) :: assertion; end function
981#endif
982#if CK3_ENABLED
983 module function test_setCoreHaloSca_D3_CK3() result(assertion); logical(LK) :: assertion; end function
984#endif
985#if CK2_ENABLED
986 module function test_setCoreHaloSca_D3_CK2() result(assertion); logical(LK) :: assertion; end function
987#endif
988#if CK1_ENABLED
989 module function test_setCoreHaloSca_D3_CK1() result(assertion); logical(LK) :: assertion; end function
990#endif
991
992 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993
994#if RK5_ENABLED
995 module function test_setCoreHaloSca_D3_RK5() result(assertion); logical(LK) :: assertion; end function
996#endif
997#if RK4_ENABLED
998 module function test_setCoreHaloSca_D3_RK4() result(assertion); logical(LK) :: assertion; end function
999#endif
1000#if RK3_ENABLED
1001 module function test_setCoreHaloSca_D3_RK3() result(assertion); logical(LK) :: assertion; end function
1002#endif
1003#if RK2_ENABLED
1004 module function test_setCoreHaloSca_D3_RK2() result(assertion); logical(LK) :: assertion; end function
1005#endif
1006#if RK1_ENABLED
1007 module function test_setCoreHaloSca_D3_RK1() result(assertion); logical(LK) :: assertion; end function
1008#endif
1009
1010 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1011
1012 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1013 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1014 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1015
1016 end interface
1017
1018!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1019
1020contains
1021
1022!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1023
1024 subroutine setTest()
1025
1026 test = test_type(MODULE_NAME)
1027
1028 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1029
1030 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1031 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1032 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1033
1034 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1035
1036#if SK5_ENABLED
1037 call test%run(test_getCoreHaloArr_D0_SK5, SK_"test_getCoreHaloArr_D0_SK5")
1038#endif
1039#if SK4_ENABLED
1040 call test%run(test_getCoreHaloArr_D0_SK4, SK_"test_getCoreHaloArr_D0_SK4")
1041#endif
1042#if SK3_ENABLED
1043 call test%run(test_getCoreHaloArr_D0_SK3, SK_"test_getCoreHaloArr_D0_SK3")
1044#endif
1045#if SK2_ENABLED
1046 call test%run(test_getCoreHaloArr_D0_SK2, SK_"test_getCoreHaloArr_D0_SK2")
1047#endif
1048#if SK1_ENABLED
1049 call test%run(test_getCoreHaloArr_D0_SK1, SK_"test_getCoreHaloArr_D0_SK1")
1050#endif
1051
1052 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1053
1054 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1055 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1057
1058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1059
1060#if SK5_ENABLED
1061 call test%run(test_getCoreHaloArr_D1_SK5, SK_"test_getCoreHaloArr_D1_SK5")
1062#endif
1063#if SK4_ENABLED
1064 call test%run(test_getCoreHaloArr_D1_SK4, SK_"test_getCoreHaloArr_D1_SK4")
1065#endif
1066#if SK3_ENABLED
1067 call test%run(test_getCoreHaloArr_D1_SK3, SK_"test_getCoreHaloArr_D1_SK3")
1068#endif
1069#if SK2_ENABLED
1070 call test%run(test_getCoreHaloArr_D1_SK2, SK_"test_getCoreHaloArr_D1_SK2")
1071#endif
1072#if SK1_ENABLED
1073 call test%run(test_getCoreHaloArr_D1_SK1, SK_"test_getCoreHaloArr_D1_SK1")
1074#endif
1075
1076 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1077
1078#if IK5_ENABLED
1079 call test%run(test_getCoreHaloArr_D1_IK5, SK_"test_getCoreHaloArr_D1_IK5")
1080#endif
1081#if IK4_ENABLED
1082 call test%run(test_getCoreHaloArr_D1_IK4, SK_"test_getCoreHaloArr_D1_IK4")
1083#endif
1084#if IK3_ENABLED
1085 call test%run(test_getCoreHaloArr_D1_IK3, SK_"test_getCoreHaloArr_D1_IK3")
1086#endif
1087#if IK2_ENABLED
1088 call test%run(test_getCoreHaloArr_D1_IK2, SK_"test_getCoreHaloArr_D1_IK2")
1089#endif
1090#if IK1_ENABLED
1091 call test%run(test_getCoreHaloArr_D1_IK1, SK_"test_getCoreHaloArr_D1_IK1")
1092#endif
1093
1094 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1095
1096#if LK5_ENABLED
1097 call test%run(test_getCoreHaloArr_D1_LK5, SK_"test_getCoreHaloArr_D1_LK5")
1098#endif
1099#if LK4_ENABLED
1100 call test%run(test_getCoreHaloArr_D1_LK4, SK_"test_getCoreHaloArr_D1_LK4")
1101#endif
1102#if LK3_ENABLED
1103 call test%run(test_getCoreHaloArr_D1_LK3, SK_"test_getCoreHaloArr_D1_LK3")
1104#endif
1105#if LK2_ENABLED
1106 call test%run(test_getCoreHaloArr_D1_LK2, SK_"test_getCoreHaloArr_D1_LK2")
1107#endif
1108#if LK1_ENABLED
1109 call test%run(test_getCoreHaloArr_D1_LK1, SK_"test_getCoreHaloArr_D1_LK1")
1110#endif
1111
1112 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1113
1114#if CK5_ENABLED
1115 call test%run(test_getCoreHaloArr_D1_CK5, SK_"test_getCoreHaloArr_D1_CK5")
1116#endif
1117#if CK4_ENABLED
1118 call test%run(test_getCoreHaloArr_D1_CK4, SK_"test_getCoreHaloArr_D1_CK4")
1119#endif
1120#if CK3_ENABLED
1121 call test%run(test_getCoreHaloArr_D1_CK3, SK_"test_getCoreHaloArr_D1_CK3")
1122#endif
1123#if CK2_ENABLED
1124 call test%run(test_getCoreHaloArr_D1_CK2, SK_"test_getCoreHaloArr_D1_CK2")
1125#endif
1126#if CK1_ENABLED
1127 call test%run(test_getCoreHaloArr_D1_CK1, SK_"test_getCoreHaloArr_D1_CK1")
1128#endif
1129
1130 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1131
1132#if RK5_ENABLED
1133 call test%run(test_getCoreHaloArr_D1_RK5, SK_"test_getCoreHaloArr_D1_RK5")
1134#endif
1135#if RK4_ENABLED
1136 call test%run(test_getCoreHaloArr_D1_RK4, SK_"test_getCoreHaloArr_D1_RK4")
1137#endif
1138#if RK3_ENABLED
1139 call test%run(test_getCoreHaloArr_D1_RK3, SK_"test_getCoreHaloArr_D1_RK3")
1140#endif
1141#if RK2_ENABLED
1142 call test%run(test_getCoreHaloArr_D1_RK2, SK_"test_getCoreHaloArr_D1_RK2")
1143#endif
1144#if RK1_ENABLED
1145 call test%run(test_getCoreHaloArr_D1_RK1, SK_"test_getCoreHaloArr_D1_RK1")
1146#endif
1147
1148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1149
1150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1151 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1152 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1153
1154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1155
1156#if SK5_ENABLED
1157 call test%run(test_getCoreHaloArr_D2_SK5, SK_"test_getCoreHaloArr_D2_SK5")
1158#endif
1159#if SK4_ENABLED
1160 call test%run(test_getCoreHaloArr_D2_SK4, SK_"test_getCoreHaloArr_D2_SK4")
1161#endif
1162#if SK3_ENABLED
1163 call test%run(test_getCoreHaloArr_D2_SK3, SK_"test_getCoreHaloArr_D2_SK3")
1164#endif
1165#if SK2_ENABLED
1166 call test%run(test_getCoreHaloArr_D2_SK2, SK_"test_getCoreHaloArr_D2_SK2")
1167#endif
1168#if SK1_ENABLED
1169 call test%run(test_getCoreHaloArr_D2_SK1, SK_"test_getCoreHaloArr_D2_SK1")
1170#endif
1171
1172 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1173
1174#if IK5_ENABLED
1175 call test%run(test_getCoreHaloArr_D2_IK5, SK_"test_getCoreHaloArr_D2_IK5")
1176#endif
1177#if IK4_ENABLED
1178 call test%run(test_getCoreHaloArr_D2_IK4, SK_"test_getCoreHaloArr_D2_IK4")
1179#endif
1180#if IK3_ENABLED
1181 call test%run(test_getCoreHaloArr_D2_IK3, SK_"test_getCoreHaloArr_D2_IK3")
1182#endif
1183#if IK2_ENABLED
1184 call test%run(test_getCoreHaloArr_D2_IK2, SK_"test_getCoreHaloArr_D2_IK2")
1185#endif
1186#if IK1_ENABLED
1187 call test%run(test_getCoreHaloArr_D2_IK1, SK_"test_getCoreHaloArr_D2_IK1")
1188#endif
1189
1190 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1191
1192#if LK5_ENABLED
1193 call test%run(test_getCoreHaloArr_D2_LK5, SK_"test_getCoreHaloArr_D2_LK5")
1194#endif
1195#if LK4_ENABLED
1196 call test%run(test_getCoreHaloArr_D2_LK4, SK_"test_getCoreHaloArr_D2_LK4")
1197#endif
1198#if LK3_ENABLED
1199 call test%run(test_getCoreHaloArr_D2_LK3, SK_"test_getCoreHaloArr_D2_LK3")
1200#endif
1201#if LK2_ENABLED
1202 call test%run(test_getCoreHaloArr_D2_LK2, SK_"test_getCoreHaloArr_D2_LK2")
1203#endif
1204#if LK1_ENABLED
1205 call test%run(test_getCoreHaloArr_D2_LK1, SK_"test_getCoreHaloArr_D2_LK1")
1206#endif
1207
1208 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1209
1210#if CK5_ENABLED
1211 call test%run(test_getCoreHaloArr_D2_CK5, SK_"test_getCoreHaloArr_D2_CK5")
1212#endif
1213#if CK4_ENABLED
1214 call test%run(test_getCoreHaloArr_D2_CK4, SK_"test_getCoreHaloArr_D2_CK4")
1215#endif
1216#if CK3_ENABLED
1217 call test%run(test_getCoreHaloArr_D2_CK3, SK_"test_getCoreHaloArr_D2_CK3")
1218#endif
1219#if CK2_ENABLED
1220 call test%run(test_getCoreHaloArr_D2_CK2, SK_"test_getCoreHaloArr_D2_CK2")
1221#endif
1222#if CK1_ENABLED
1223 call test%run(test_getCoreHaloArr_D2_CK1, SK_"test_getCoreHaloArr_D2_CK1")
1224#endif
1225
1226 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1227
1228#if RK5_ENABLED
1229 call test%run(test_getCoreHaloArr_D2_RK5, SK_"test_getCoreHaloArr_D2_RK5")
1230#endif
1231#if RK4_ENABLED
1232 call test%run(test_getCoreHaloArr_D2_RK4, SK_"test_getCoreHaloArr_D2_RK4")
1233#endif
1234#if RK3_ENABLED
1235 call test%run(test_getCoreHaloArr_D2_RK3, SK_"test_getCoreHaloArr_D2_RK3")
1236#endif
1237#if RK2_ENABLED
1238 call test%run(test_getCoreHaloArr_D2_RK2, SK_"test_getCoreHaloArr_D2_RK2")
1239#endif
1240#if RK1_ENABLED
1241 call test%run(test_getCoreHaloArr_D2_RK1, SK_"test_getCoreHaloArr_D2_RK1")
1242#endif
1243
1244 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1245
1246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1248 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1249
1250 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1251
1252#if SK5_ENABLED
1253 call test%run(test_getCoreHaloArr_D3_SK5, SK_"test_getCoreHaloArr_D3_SK5")
1254#endif
1255#if SK4_ENABLED
1256 call test%run(test_getCoreHaloArr_D3_SK4, SK_"test_getCoreHaloArr_D3_SK4")
1257#endif
1258#if SK3_ENABLED
1259 call test%run(test_getCoreHaloArr_D3_SK3, SK_"test_getCoreHaloArr_D3_SK3")
1260#endif
1261#if SK2_ENABLED
1262 call test%run(test_getCoreHaloArr_D3_SK2, SK_"test_getCoreHaloArr_D3_SK2")
1263#endif
1264#if SK1_ENABLED
1265 call test%run(test_getCoreHaloArr_D3_SK1, SK_"test_getCoreHaloArr_D3_SK1")
1266#endif
1267
1268 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1269
1270#if IK5_ENABLED
1271 call test%run(test_getCoreHaloArr_D3_IK5, SK_"test_getCoreHaloArr_D3_IK5")
1272#endif
1273#if IK4_ENABLED
1274 call test%run(test_getCoreHaloArr_D3_IK4, SK_"test_getCoreHaloArr_D3_IK4")
1275#endif
1276#if IK3_ENABLED
1277 call test%run(test_getCoreHaloArr_D3_IK3, SK_"test_getCoreHaloArr_D3_IK3")
1278#endif
1279#if IK2_ENABLED
1280 call test%run(test_getCoreHaloArr_D3_IK2, SK_"test_getCoreHaloArr_D3_IK2")
1281#endif
1282#if IK1_ENABLED
1283 call test%run(test_getCoreHaloArr_D3_IK1, SK_"test_getCoreHaloArr_D3_IK1")
1284#endif
1285
1286 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1287
1288#if LK5_ENABLED
1289 call test%run(test_getCoreHaloArr_D3_LK5, SK_"test_getCoreHaloArr_D3_LK5")
1290#endif
1291#if LK4_ENABLED
1292 call test%run(test_getCoreHaloArr_D3_LK4, SK_"test_getCoreHaloArr_D3_LK4")
1293#endif
1294#if LK3_ENABLED
1295 call test%run(test_getCoreHaloArr_D3_LK3, SK_"test_getCoreHaloArr_D3_LK3")
1296#endif
1297#if LK2_ENABLED
1298 call test%run(test_getCoreHaloArr_D3_LK2, SK_"test_getCoreHaloArr_D3_LK2")
1299#endif
1300#if LK1_ENABLED
1301 call test%run(test_getCoreHaloArr_D3_LK1, SK_"test_getCoreHaloArr_D3_LK1")
1302#endif
1303
1304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1305
1306#if CK5_ENABLED
1307 call test%run(test_getCoreHaloArr_D3_CK5, SK_"test_getCoreHaloArr_D3_CK5")
1308#endif
1309#if CK4_ENABLED
1310 call test%run(test_getCoreHaloArr_D3_CK4, SK_"test_getCoreHaloArr_D3_CK4")
1311#endif
1312#if CK3_ENABLED
1313 call test%run(test_getCoreHaloArr_D3_CK3, SK_"test_getCoreHaloArr_D3_CK3")
1314#endif
1315#if CK2_ENABLED
1316 call test%run(test_getCoreHaloArr_D3_CK2, SK_"test_getCoreHaloArr_D3_CK2")
1317#endif
1318#if CK1_ENABLED
1319 call test%run(test_getCoreHaloArr_D3_CK1, SK_"test_getCoreHaloArr_D3_CK1")
1320#endif
1321
1322 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1323
1324#if RK5_ENABLED
1325 call test%run(test_getCoreHaloArr_D3_RK5, SK_"test_getCoreHaloArr_D3_RK5")
1326#endif
1327#if RK4_ENABLED
1328 call test%run(test_getCoreHaloArr_D3_RK4, SK_"test_getCoreHaloArr_D3_RK4")
1329#endif
1330#if RK3_ENABLED
1331 call test%run(test_getCoreHaloArr_D3_RK3, SK_"test_getCoreHaloArr_D3_RK3")
1332#endif
1333#if RK2_ENABLED
1334 call test%run(test_getCoreHaloArr_D3_RK2, SK_"test_getCoreHaloArr_D3_RK2")
1335#endif
1336#if RK1_ENABLED
1337 call test%run(test_getCoreHaloArr_D3_RK1, SK_"test_getCoreHaloArr_D3_RK1")
1338#endif
1339
1340 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1341
1342 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1343 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1344 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1345
1346 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1347
1348 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1349 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1350 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1351
1352 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1353
1354#if SK5_ENABLED
1355 call test%run(test_setCoreHaloArr_D0_SK5, SK_"test_setCoreHaloArr_D0_SK5")
1356#endif
1357#if SK4_ENABLED
1358 call test%run(test_setCoreHaloArr_D0_SK4, SK_"test_setCoreHaloArr_D0_SK4")
1359#endif
1360#if SK3_ENABLED
1361 call test%run(test_setCoreHaloArr_D0_SK3, SK_"test_setCoreHaloArr_D0_SK3")
1362#endif
1363#if SK2_ENABLED
1364 call test%run(test_setCoreHaloArr_D0_SK2, SK_"test_setCoreHaloArr_D0_SK2")
1365#endif
1366#if SK1_ENABLED
1367 call test%run(test_setCoreHaloArr_D0_SK1, SK_"test_setCoreHaloArr_D0_SK1")
1368#endif
1369
1370 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1371
1372 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1373 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1374 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1375
1376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1377
1378#if SK5_ENABLED
1379 call test%run(test_setCoreHaloArr_D1_SK5, SK_"test_setCoreHaloArr_D1_SK5")
1380#endif
1381#if SK4_ENABLED
1382 call test%run(test_setCoreHaloArr_D1_SK4, SK_"test_setCoreHaloArr_D1_SK4")
1383#endif
1384#if SK3_ENABLED
1385 call test%run(test_setCoreHaloArr_D1_SK3, SK_"test_setCoreHaloArr_D1_SK3")
1386#endif
1387#if SK2_ENABLED
1388 call test%run(test_setCoreHaloArr_D1_SK2, SK_"test_setCoreHaloArr_D1_SK2")
1389#endif
1390#if SK1_ENABLED
1391 call test%run(test_setCoreHaloArr_D1_SK1, SK_"test_setCoreHaloArr_D1_SK1")
1392#endif
1393
1394 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1395
1396#if IK5_ENABLED
1397 call test%run(test_setCoreHaloArr_D1_IK5, SK_"test_setCoreHaloArr_D1_IK5")
1398#endif
1399#if IK4_ENABLED
1400 call test%run(test_setCoreHaloArr_D1_IK4, SK_"test_setCoreHaloArr_D1_IK4")
1401#endif
1402#if IK3_ENABLED
1403 call test%run(test_setCoreHaloArr_D1_IK3, SK_"test_setCoreHaloArr_D1_IK3")
1404#endif
1405#if IK2_ENABLED
1406 call test%run(test_setCoreHaloArr_D1_IK2, SK_"test_setCoreHaloArr_D1_IK2")
1407#endif
1408#if IK1_ENABLED
1409 call test%run(test_setCoreHaloArr_D1_IK1, SK_"test_setCoreHaloArr_D1_IK1")
1410#endif
1411
1412 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1413
1414#if LK5_ENABLED
1415 call test%run(test_setCoreHaloArr_D1_LK5, SK_"test_setCoreHaloArr_D1_LK5")
1416#endif
1417#if LK4_ENABLED
1418 call test%run(test_setCoreHaloArr_D1_LK4, SK_"test_setCoreHaloArr_D1_LK4")
1419#endif
1420#if LK3_ENABLED
1421 call test%run(test_setCoreHaloArr_D1_LK3, SK_"test_setCoreHaloArr_D1_LK3")
1422#endif
1423#if LK2_ENABLED
1424 call test%run(test_setCoreHaloArr_D1_LK2, SK_"test_setCoreHaloArr_D1_LK2")
1425#endif
1426#if LK1_ENABLED
1427 call test%run(test_setCoreHaloArr_D1_LK1, SK_"test_setCoreHaloArr_D1_LK1")
1428#endif
1429
1430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1431
1432#if CK5_ENABLED
1433 call test%run(test_setCoreHaloArr_D1_CK5, SK_"test_setCoreHaloArr_D1_CK5")
1434#endif
1435#if CK4_ENABLED
1436 call test%run(test_setCoreHaloArr_D1_CK4, SK_"test_setCoreHaloArr_D1_CK4")
1437#endif
1438#if CK3_ENABLED
1439 call test%run(test_setCoreHaloArr_D1_CK3, SK_"test_setCoreHaloArr_D1_CK3")
1440#endif
1441#if CK2_ENABLED
1442 call test%run(test_setCoreHaloArr_D1_CK2, SK_"test_setCoreHaloArr_D1_CK2")
1443#endif
1444#if CK1_ENABLED
1445 call test%run(test_setCoreHaloArr_D1_CK1, SK_"test_setCoreHaloArr_D1_CK1")
1446#endif
1447
1448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1449
1450#if RK5_ENABLED
1451 call test%run(test_setCoreHaloArr_D1_RK5, SK_"test_setCoreHaloArr_D1_RK5")
1452#endif
1453#if RK4_ENABLED
1454 call test%run(test_setCoreHaloArr_D1_RK4, SK_"test_setCoreHaloArr_D1_RK4")
1455#endif
1456#if RK3_ENABLED
1457 call test%run(test_setCoreHaloArr_D1_RK3, SK_"test_setCoreHaloArr_D1_RK3")
1458#endif
1459#if RK2_ENABLED
1460 call test%run(test_setCoreHaloArr_D1_RK2, SK_"test_setCoreHaloArr_D1_RK2")
1461#endif
1462#if RK1_ENABLED
1463 call test%run(test_setCoreHaloArr_D1_RK1, SK_"test_setCoreHaloArr_D1_RK1")
1464#endif
1465
1466 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1467
1468 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1469 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1470 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1471
1472 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1473
1474#if SK5_ENABLED
1475 call test%run(test_setCoreHaloArr_D2_SK5, SK_"test_setCoreHaloArr_D2_SK5")
1476#endif
1477#if SK4_ENABLED
1478 call test%run(test_setCoreHaloArr_D2_SK4, SK_"test_setCoreHaloArr_D2_SK4")
1479#endif
1480#if SK3_ENABLED
1481 call test%run(test_setCoreHaloArr_D2_SK3, SK_"test_setCoreHaloArr_D2_SK3")
1482#endif
1483#if SK2_ENABLED
1484 call test%run(test_setCoreHaloArr_D2_SK2, SK_"test_setCoreHaloArr_D2_SK2")
1485#endif
1486#if SK1_ENABLED
1487 call test%run(test_setCoreHaloArr_D2_SK1, SK_"test_setCoreHaloArr_D2_SK1")
1488#endif
1489
1490 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1491
1492#if IK5_ENABLED
1493 call test%run(test_setCoreHaloArr_D2_IK5, SK_"test_setCoreHaloArr_D2_IK5")
1494#endif
1495#if IK4_ENABLED
1496 call test%run(test_setCoreHaloArr_D2_IK4, SK_"test_setCoreHaloArr_D2_IK4")
1497#endif
1498#if IK3_ENABLED
1499 call test%run(test_setCoreHaloArr_D2_IK3, SK_"test_setCoreHaloArr_D2_IK3")
1500#endif
1501#if IK2_ENABLED
1502 call test%run(test_setCoreHaloArr_D2_IK2, SK_"test_setCoreHaloArr_D2_IK2")
1503#endif
1504#if IK1_ENABLED
1505 call test%run(test_setCoreHaloArr_D2_IK1, SK_"test_setCoreHaloArr_D2_IK1")
1506#endif
1507
1508 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1509
1510#if LK5_ENABLED
1511 call test%run(test_setCoreHaloArr_D2_LK5, SK_"test_setCoreHaloArr_D2_LK5")
1512#endif
1513#if LK4_ENABLED
1514 call test%run(test_setCoreHaloArr_D2_LK4, SK_"test_setCoreHaloArr_D2_LK4")
1515#endif
1516#if LK3_ENABLED
1517 call test%run(test_setCoreHaloArr_D2_LK3, SK_"test_setCoreHaloArr_D2_LK3")
1518#endif
1519#if LK2_ENABLED
1520 call test%run(test_setCoreHaloArr_D2_LK2, SK_"test_setCoreHaloArr_D2_LK2")
1521#endif
1522#if LK1_ENABLED
1523 call test%run(test_setCoreHaloArr_D2_LK1, SK_"test_setCoreHaloArr_D2_LK1")
1524#endif
1525
1526 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1527
1528#if CK5_ENABLED
1529 call test%run(test_setCoreHaloArr_D2_CK5, SK_"test_setCoreHaloArr_D2_CK5")
1530#endif
1531#if CK4_ENABLED
1532 call test%run(test_setCoreHaloArr_D2_CK4, SK_"test_setCoreHaloArr_D2_CK4")
1533#endif
1534#if CK3_ENABLED
1535 call test%run(test_setCoreHaloArr_D2_CK3, SK_"test_setCoreHaloArr_D2_CK3")
1536#endif
1537#if CK2_ENABLED
1538 call test%run(test_setCoreHaloArr_D2_CK2, SK_"test_setCoreHaloArr_D2_CK2")
1539#endif
1540#if CK1_ENABLED
1541 call test%run(test_setCoreHaloArr_D2_CK1, SK_"test_setCoreHaloArr_D2_CK1")
1542#endif
1543
1544 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1545
1546#if RK5_ENABLED
1547 call test%run(test_setCoreHaloArr_D2_RK5, SK_"test_setCoreHaloArr_D2_RK5")
1548#endif
1549#if RK4_ENABLED
1550 call test%run(test_setCoreHaloArr_D2_RK4, SK_"test_setCoreHaloArr_D2_RK4")
1551#endif
1552#if RK3_ENABLED
1553 call test%run(test_setCoreHaloArr_D2_RK3, SK_"test_setCoreHaloArr_D2_RK3")
1554#endif
1555#if RK2_ENABLED
1556 call test%run(test_setCoreHaloArr_D2_RK2, SK_"test_setCoreHaloArr_D2_RK2")
1557#endif
1558#if RK1_ENABLED
1559 call test%run(test_setCoreHaloArr_D2_RK1, SK_"test_setCoreHaloArr_D2_RK1")
1560#endif
1561
1562 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1563
1564 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1567
1568 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1569
1570#if SK5_ENABLED
1571 call test%run(test_setCoreHaloArr_D3_SK5, SK_"test_setCoreHaloArr_D3_SK5")
1572#endif
1573#if SK4_ENABLED
1574 call test%run(test_setCoreHaloArr_D3_SK4, SK_"test_setCoreHaloArr_D3_SK4")
1575#endif
1576#if SK3_ENABLED
1577 call test%run(test_setCoreHaloArr_D3_SK3, SK_"test_setCoreHaloArr_D3_SK3")
1578#endif
1579#if SK2_ENABLED
1580 call test%run(test_setCoreHaloArr_D3_SK2, SK_"test_setCoreHaloArr_D3_SK2")
1581#endif
1582#if SK1_ENABLED
1583 call test%run(test_setCoreHaloArr_D3_SK1, SK_"test_setCoreHaloArr_D3_SK1")
1584#endif
1585
1586 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1587
1588#if IK5_ENABLED
1589 call test%run(test_setCoreHaloArr_D3_IK5, SK_"test_setCoreHaloArr_D3_IK5")
1590#endif
1591#if IK4_ENABLED
1592 call test%run(test_setCoreHaloArr_D3_IK4, SK_"test_setCoreHaloArr_D3_IK4")
1593#endif
1594#if IK3_ENABLED
1595 call test%run(test_setCoreHaloArr_D3_IK3, SK_"test_setCoreHaloArr_D3_IK3")
1596#endif
1597#if IK2_ENABLED
1598 call test%run(test_setCoreHaloArr_D3_IK2, SK_"test_setCoreHaloArr_D3_IK2")
1599#endif
1600#if IK1_ENABLED
1601 call test%run(test_setCoreHaloArr_D3_IK1, SK_"test_setCoreHaloArr_D3_IK1")
1602#endif
1603
1604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1605
1606#if LK5_ENABLED
1607 call test%run(test_setCoreHaloArr_D3_LK5, SK_"test_setCoreHaloArr_D3_LK5")
1608#endif
1609#if LK4_ENABLED
1610 call test%run(test_setCoreHaloArr_D3_LK4, SK_"test_setCoreHaloArr_D3_LK4")
1611#endif
1612#if LK3_ENABLED
1613 call test%run(test_setCoreHaloArr_D3_LK3, SK_"test_setCoreHaloArr_D3_LK3")
1614#endif
1615#if LK2_ENABLED
1616 call test%run(test_setCoreHaloArr_D3_LK2, SK_"test_setCoreHaloArr_D3_LK2")
1617#endif
1618#if LK1_ENABLED
1619 call test%run(test_setCoreHaloArr_D3_LK1, SK_"test_setCoreHaloArr_D3_LK1")
1620#endif
1621
1622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1623
1624#if CK5_ENABLED
1625 call test%run(test_setCoreHaloArr_D3_CK5, SK_"test_setCoreHaloArr_D3_CK5")
1626#endif
1627#if CK4_ENABLED
1628 call test%run(test_setCoreHaloArr_D3_CK4, SK_"test_setCoreHaloArr_D3_CK4")
1629#endif
1630#if CK3_ENABLED
1631 call test%run(test_setCoreHaloArr_D3_CK3, SK_"test_setCoreHaloArr_D3_CK3")
1632#endif
1633#if CK2_ENABLED
1634 call test%run(test_setCoreHaloArr_D3_CK2, SK_"test_setCoreHaloArr_D3_CK2")
1635#endif
1636#if CK1_ENABLED
1637 call test%run(test_setCoreHaloArr_D3_CK1, SK_"test_setCoreHaloArr_D3_CK1")
1638#endif
1639
1640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1641
1642#if RK5_ENABLED
1643 call test%run(test_setCoreHaloArr_D3_RK5, SK_"test_setCoreHaloArr_D3_RK5")
1644#endif
1645#if RK4_ENABLED
1646 call test%run(test_setCoreHaloArr_D3_RK4, SK_"test_setCoreHaloArr_D3_RK4")
1647#endif
1648#if RK3_ENABLED
1649 call test%run(test_setCoreHaloArr_D3_RK3, SK_"test_setCoreHaloArr_D3_RK3")
1650#endif
1651#if RK2_ENABLED
1652 call test%run(test_setCoreHaloArr_D3_RK2, SK_"test_setCoreHaloArr_D3_RK2")
1653#endif
1654#if RK1_ENABLED
1655 call test%run(test_setCoreHaloArr_D3_RK1, SK_"test_setCoreHaloArr_D3_RK1")
1656#endif
1657
1658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1659
1660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1663
1664 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1665
1666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1668 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1669
1670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1671
1672#if SK5_ENABLED
1673 call test%run(test_setCoreHaloSca_D0_SK5, SK_"test_setCoreHaloSca_D0_SK5")
1674#endif
1675#if SK4_ENABLED
1676 call test%run(test_setCoreHaloSca_D0_SK4, SK_"test_setCoreHaloSca_D0_SK4")
1677#endif
1678#if SK3_ENABLED
1679 call test%run(test_setCoreHaloSca_D0_SK3, SK_"test_setCoreHaloSca_D0_SK3")
1680#endif
1681#if SK2_ENABLED
1682 call test%run(test_setCoreHaloSca_D0_SK2, SK_"test_setCoreHaloSca_D0_SK2")
1683#endif
1684#if SK1_ENABLED
1685 call test%run(test_setCoreHaloSca_D0_SK1, SK_"test_setCoreHaloSca_D0_SK1")
1686#endif
1687
1688 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1689
1690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1691 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1693
1694 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1695
1696#if SK5_ENABLED
1697 call test%run(test_setCoreHaloSca_D1_SK5, SK_"test_setCoreHaloSca_D1_SK5")
1698#endif
1699#if SK4_ENABLED
1700 call test%run(test_setCoreHaloSca_D1_SK4, SK_"test_setCoreHaloSca_D1_SK4")
1701#endif
1702#if SK3_ENABLED
1703 call test%run(test_setCoreHaloSca_D1_SK3, SK_"test_setCoreHaloSca_D1_SK3")
1704#endif
1705#if SK2_ENABLED
1706 call test%run(test_setCoreHaloSca_D1_SK2, SK_"test_setCoreHaloSca_D1_SK2")
1707#endif
1708#if SK1_ENABLED
1709 call test%run(test_setCoreHaloSca_D1_SK1, SK_"test_setCoreHaloSca_D1_SK1")
1710#endif
1711
1712 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1713
1714#if IK5_ENABLED
1715 call test%run(test_setCoreHaloSca_D1_IK5, SK_"test_setCoreHaloSca_D1_IK5")
1716#endif
1717#if IK4_ENABLED
1718 call test%run(test_setCoreHaloSca_D1_IK4, SK_"test_setCoreHaloSca_D1_IK4")
1719#endif
1720#if IK3_ENABLED
1721 call test%run(test_setCoreHaloSca_D1_IK3, SK_"test_setCoreHaloSca_D1_IK3")
1722#endif
1723#if IK2_ENABLED
1724 call test%run(test_setCoreHaloSca_D1_IK2, SK_"test_setCoreHaloSca_D1_IK2")
1725#endif
1726#if IK1_ENABLED
1727 call test%run(test_setCoreHaloSca_D1_IK1, SK_"test_setCoreHaloSca_D1_IK1")
1728#endif
1729
1730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1731
1732#if LK5_ENABLED
1733 call test%run(test_setCoreHaloSca_D1_LK5, SK_"test_setCoreHaloSca_D1_LK5")
1734#endif
1735#if LK4_ENABLED
1736 call test%run(test_setCoreHaloSca_D1_LK4, SK_"test_setCoreHaloSca_D1_LK4")
1737#endif
1738#if LK3_ENABLED
1739 call test%run(test_setCoreHaloSca_D1_LK3, SK_"test_setCoreHaloSca_D1_LK3")
1740#endif
1741#if LK2_ENABLED
1742 call test%run(test_setCoreHaloSca_D1_LK2, SK_"test_setCoreHaloSca_D1_LK2")
1743#endif
1744#if LK1_ENABLED
1745 call test%run(test_setCoreHaloSca_D1_LK1, SK_"test_setCoreHaloSca_D1_LK1")
1746#endif
1747
1748 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1749
1750#if CK5_ENABLED
1751 call test%run(test_setCoreHaloSca_D1_CK5, SK_"test_setCoreHaloSca_D1_CK5")
1752#endif
1753#if CK4_ENABLED
1754 call test%run(test_setCoreHaloSca_D1_CK4, SK_"test_setCoreHaloSca_D1_CK4")
1755#endif
1756#if CK3_ENABLED
1757 call test%run(test_setCoreHaloSca_D1_CK3, SK_"test_setCoreHaloSca_D1_CK3")
1758#endif
1759#if CK2_ENABLED
1760 call test%run(test_setCoreHaloSca_D1_CK2, SK_"test_setCoreHaloSca_D1_CK2")
1761#endif
1762#if CK1_ENABLED
1763 call test%run(test_setCoreHaloSca_D1_CK1, SK_"test_setCoreHaloSca_D1_CK1")
1764#endif
1765
1766 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1767
1768#if RK5_ENABLED
1769 call test%run(test_setCoreHaloSca_D1_RK5, SK_"test_setCoreHaloSca_D1_RK5")
1770#endif
1771#if RK4_ENABLED
1772 call test%run(test_setCoreHaloSca_D1_RK4, SK_"test_setCoreHaloSca_D1_RK4")
1773#endif
1774#if RK3_ENABLED
1775 call test%run(test_setCoreHaloSca_D1_RK3, SK_"test_setCoreHaloSca_D1_RK3")
1776#endif
1777#if RK2_ENABLED
1778 call test%run(test_setCoreHaloSca_D1_RK2, SK_"test_setCoreHaloSca_D1_RK2")
1779#endif
1780#if RK1_ENABLED
1781 call test%run(test_setCoreHaloSca_D1_RK1, SK_"test_setCoreHaloSca_D1_RK1")
1782#endif
1783
1784 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1785
1786 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1788 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1789
1790 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1791
1792#if SK5_ENABLED
1793 call test%run(test_setCoreHaloSca_D2_SK5, SK_"test_setCoreHaloSca_D2_SK5")
1794#endif
1795#if SK4_ENABLED
1796 call test%run(test_setCoreHaloSca_D2_SK4, SK_"test_setCoreHaloSca_D2_SK4")
1797#endif
1798#if SK3_ENABLED
1799 call test%run(test_setCoreHaloSca_D2_SK3, SK_"test_setCoreHaloSca_D2_SK3")
1800#endif
1801#if SK2_ENABLED
1802 call test%run(test_setCoreHaloSca_D2_SK2, SK_"test_setCoreHaloSca_D2_SK2")
1803#endif
1804#if SK1_ENABLED
1805 call test%run(test_setCoreHaloSca_D2_SK1, SK_"test_setCoreHaloSca_D2_SK1")
1806#endif
1807
1808 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1809
1810#if IK5_ENABLED
1811 call test%run(test_setCoreHaloSca_D2_IK5, SK_"test_setCoreHaloSca_D2_IK5")
1812#endif
1813#if IK4_ENABLED
1814 call test%run(test_setCoreHaloSca_D2_IK4, SK_"test_setCoreHaloSca_D2_IK4")
1815#endif
1816#if IK3_ENABLED
1817 call test%run(test_setCoreHaloSca_D2_IK3, SK_"test_setCoreHaloSca_D2_IK3")
1818#endif
1819#if IK2_ENABLED
1820 call test%run(test_setCoreHaloSca_D2_IK2, SK_"test_setCoreHaloSca_D2_IK2")
1821#endif
1822#if IK1_ENABLED
1823 call test%run(test_setCoreHaloSca_D2_IK1, SK_"test_setCoreHaloSca_D2_IK1")
1824#endif
1825
1826 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1827
1828#if LK5_ENABLED
1829 call test%run(test_setCoreHaloSca_D2_LK5, SK_"test_setCoreHaloSca_D2_LK5")
1830#endif
1831#if LK4_ENABLED
1832 call test%run(test_setCoreHaloSca_D2_LK4, SK_"test_setCoreHaloSca_D2_LK4")
1833#endif
1834#if LK3_ENABLED
1835 call test%run(test_setCoreHaloSca_D2_LK3, SK_"test_setCoreHaloSca_D2_LK3")
1836#endif
1837#if LK2_ENABLED
1838 call test%run(test_setCoreHaloSca_D2_LK2, SK_"test_setCoreHaloSca_D2_LK2")
1839#endif
1840#if LK1_ENABLED
1841 call test%run(test_setCoreHaloSca_D2_LK1, SK_"test_setCoreHaloSca_D2_LK1")
1842#endif
1843
1844 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1845
1846#if CK5_ENABLED
1847 call test%run(test_setCoreHaloSca_D2_CK5, SK_"test_setCoreHaloSca_D2_CK5")
1848#endif
1849#if CK4_ENABLED
1850 call test%run(test_setCoreHaloSca_D2_CK4, SK_"test_setCoreHaloSca_D2_CK4")
1851#endif
1852#if CK3_ENABLED
1853 call test%run(test_setCoreHaloSca_D2_CK3, SK_"test_setCoreHaloSca_D2_CK3")
1854#endif
1855#if CK2_ENABLED
1856 call test%run(test_setCoreHaloSca_D2_CK2, SK_"test_setCoreHaloSca_D2_CK2")
1857#endif
1858#if CK1_ENABLED
1859 call test%run(test_setCoreHaloSca_D2_CK1, SK_"test_setCoreHaloSca_D2_CK1")
1860#endif
1861
1862 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1863
1864#if RK5_ENABLED
1865 call test%run(test_setCoreHaloSca_D2_RK5, SK_"test_setCoreHaloSca_D2_RK5")
1866#endif
1867#if RK4_ENABLED
1868 call test%run(test_setCoreHaloSca_D2_RK4, SK_"test_setCoreHaloSca_D2_RK4")
1869#endif
1870#if RK3_ENABLED
1871 call test%run(test_setCoreHaloSca_D2_RK3, SK_"test_setCoreHaloSca_D2_RK3")
1872#endif
1873#if RK2_ENABLED
1874 call test%run(test_setCoreHaloSca_D2_RK2, SK_"test_setCoreHaloSca_D2_RK2")
1875#endif
1876#if RK1_ENABLED
1877 call test%run(test_setCoreHaloSca_D2_RK1, SK_"test_setCoreHaloSca_D2_RK1")
1878#endif
1879
1880 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1881
1882 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1883 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1884 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1885
1886 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1887
1888#if SK5_ENABLED
1889 call test%run(test_setCoreHaloSca_D3_SK5, SK_"test_setCoreHaloSca_D3_SK5")
1890#endif
1891#if SK4_ENABLED
1892 call test%run(test_setCoreHaloSca_D3_SK4, SK_"test_setCoreHaloSca_D3_SK4")
1893#endif
1894#if SK3_ENABLED
1895 call test%run(test_setCoreHaloSca_D3_SK3, SK_"test_setCoreHaloSca_D3_SK3")
1896#endif
1897#if SK2_ENABLED
1898 call test%run(test_setCoreHaloSca_D3_SK2, SK_"test_setCoreHaloSca_D3_SK2")
1899#endif
1900#if SK1_ENABLED
1901 call test%run(test_setCoreHaloSca_D3_SK1, SK_"test_setCoreHaloSca_D3_SK1")
1902#endif
1903
1904 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1905
1906#if IK5_ENABLED
1907 call test%run(test_setCoreHaloSca_D3_IK5, SK_"test_setCoreHaloSca_D3_IK5")
1908#endif
1909#if IK4_ENABLED
1910 call test%run(test_setCoreHaloSca_D3_IK4, SK_"test_setCoreHaloSca_D3_IK4")
1911#endif
1912#if IK3_ENABLED
1913 call test%run(test_setCoreHaloSca_D3_IK3, SK_"test_setCoreHaloSca_D3_IK3")
1914#endif
1915#if IK2_ENABLED
1916 call test%run(test_setCoreHaloSca_D3_IK2, SK_"test_setCoreHaloSca_D3_IK2")
1917#endif
1918#if IK1_ENABLED
1919 call test%run(test_setCoreHaloSca_D3_IK1, SK_"test_setCoreHaloSca_D3_IK1")
1920#endif
1921
1922 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1923
1924#if LK5_ENABLED
1925 call test%run(test_setCoreHaloSca_D3_LK5, SK_"test_setCoreHaloSca_D3_LK5")
1926#endif
1927#if LK4_ENABLED
1928 call test%run(test_setCoreHaloSca_D3_LK4, SK_"test_setCoreHaloSca_D3_LK4")
1929#endif
1930#if LK3_ENABLED
1931 call test%run(test_setCoreHaloSca_D3_LK3, SK_"test_setCoreHaloSca_D3_LK3")
1932#endif
1933#if LK2_ENABLED
1934 call test%run(test_setCoreHaloSca_D3_LK2, SK_"test_setCoreHaloSca_D3_LK2")
1935#endif
1936#if LK1_ENABLED
1937 call test%run(test_setCoreHaloSca_D3_LK1, SK_"test_setCoreHaloSca_D3_LK1")
1938#endif
1939
1940 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1941
1942#if CK5_ENABLED
1943 call test%run(test_setCoreHaloSca_D3_CK5, SK_"test_setCoreHaloSca_D3_CK5")
1944#endif
1945#if CK4_ENABLED
1946 call test%run(test_setCoreHaloSca_D3_CK4, SK_"test_setCoreHaloSca_D3_CK4")
1947#endif
1948#if CK3_ENABLED
1949 call test%run(test_setCoreHaloSca_D3_CK3, SK_"test_setCoreHaloSca_D3_CK3")
1950#endif
1951#if CK2_ENABLED
1952 call test%run(test_setCoreHaloSca_D3_CK2, SK_"test_setCoreHaloSca_D3_CK2")
1953#endif
1954#if CK1_ENABLED
1955 call test%run(test_setCoreHaloSca_D3_CK1, SK_"test_setCoreHaloSca_D3_CK1")
1956#endif
1957
1958 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1959
1960#if RK5_ENABLED
1961 call test%run(test_setCoreHaloSca_D3_RK5, SK_"test_setCoreHaloSca_D3_RK5")
1962#endif
1963#if RK4_ENABLED
1964 call test%run(test_setCoreHaloSca_D3_RK4, SK_"test_setCoreHaloSca_D3_RK4")
1965#endif
1966#if RK3_ENABLED
1967 call test%run(test_setCoreHaloSca_D3_RK3, SK_"test_setCoreHaloSca_D3_RK3")
1968#endif
1969#if RK2_ENABLED
1970 call test%run(test_setCoreHaloSca_D3_RK2, SK_"test_setCoreHaloSca_D3_RK2")
1971#endif
1972#if RK1_ENABLED
1973 call test%run(test_setCoreHaloSca_D3_RK1, SK_"test_setCoreHaloSca_D3_RK1")
1974#endif
1975
1976 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1977
1978 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1980 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1981
1982 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1983
1984 call test%summarize()
1985
1986 end subroutine setTest
1987
1988!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1989
1990end module test_pm_arrayInit
pm_arrayInit
This module contains procedures and generic interfaces for efficient initialization of arbitrary rect...
Definition: pm_arrayInit.F90:64
pm_arrayInit::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayInit.F90:70
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arrayInit
This module contains tests of the module pm_arrayInit.
Definition: test_pm_arrayInit.F90:41
test_pm_arrayInit::test
type(test_type) test
Definition: test_pm_arrayInit.F90:50
test_pm_arrayInit::setTest
subroutine setTest()
Definition: test_pm_arrayInit.F90:1025
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