ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arraySplit.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_arraySplit
28
29 use pm_arraySplit
30 use pm_err, only: err_type
31 use pm_test, only: test_type, LK
32 implicit none
33
34 private
35 public :: setTest
36 type(test_type) :: test
37
38!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39
40 interface
41
42 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45
46 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47
48#if SK5_ENABLED
49 module function test_setSplit_D0_D0_SK5 () result(assertion); logical(LK) :: assertion; end function
50#endif
51#if SK4_ENABLED
52 module function test_setSplit_D0_D0_SK4 () result(assertion); logical(LK) :: assertion; end function
53#endif
54#if SK3_ENABLED
55 module function test_setSplit_D0_D0_SK3 () result(assertion); logical(LK) :: assertion; end function
56#endif
57#if SK2_ENABLED
58 module function test_setSplit_D0_D0_SK2 () result(assertion); logical(LK) :: assertion; end function
59#endif
60#if SK1_ENABLED
61 module function test_setSplit_D0_D0_SK1 () result(assertion); logical(LK) :: assertion; end function
62#endif
63 module function test_setSplit_D0_D0_SK () result(assertion); logical(LK) :: assertion; end function
64
65 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66
67 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
68 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
69 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
70
71 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
72
73#if SK5_ENABLED
74 module function test_setSplit_D1_D0_SK5 () result(assertion); logical(LK) :: assertion; end function
75#endif
76#if SK4_ENABLED
77 module function test_setSplit_D1_D0_SK4 () result(assertion); logical(LK) :: assertion; end function
78#endif
79#if SK3_ENABLED
80 module function test_setSplit_D1_D0_SK3 () result(assertion); logical(LK) :: assertion; end function
81#endif
82#if SK2_ENABLED
83 module function test_setSplit_D1_D0_SK2 () result(assertion); logical(LK) :: assertion; end function
84#endif
85#if SK1_ENABLED
86 module function test_setSplit_D1_D0_SK1 () result(assertion); logical(LK) :: assertion; end function
87#endif
88 module function test_setSplit_D1_D0_SK () result(assertion); logical(LK) :: assertion; end function
89
90 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91
92#if IK5_ENABLED
93 module function test_setSplit_D1_D0_IK5 () result(assertion); logical(LK) :: assertion; end function
94#endif
95#if IK4_ENABLED
96 module function test_setSplit_D1_D0_IK4 () result(assertion); logical(LK) :: assertion; end function
97#endif
98#if IK3_ENABLED
99 module function test_setSplit_D1_D0_IK3 () result(assertion); logical(LK) :: assertion; end function
100#endif
101#if IK2_ENABLED
102 module function test_setSplit_D1_D0_IK2 () result(assertion); logical(LK) :: assertion; end function
103#endif
104#if IK1_ENABLED
105 module function test_setSplit_D1_D0_IK1 () result(assertion); logical(LK) :: assertion; end function
106#endif
107 module function test_setSplit_D1_D0_IK () result(assertion); logical(LK) :: assertion; end function
108
109 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110
111#if LK5_ENABLED
112 module function test_setSplit_D1_D0_LK5 () result(assertion); logical(LK) :: assertion; end function
113#endif
114#if LK4_ENABLED
115 module function test_setSplit_D1_D0_LK4 () result(assertion); logical(LK) :: assertion; end function
116#endif
117#if LK3_ENABLED
118 module function test_setSplit_D1_D0_LK3 () result(assertion); logical(LK) :: assertion; end function
119#endif
120#if LK2_ENABLED
121 module function test_setSplit_D1_D0_LK2 () result(assertion); logical(LK) :: assertion; end function
122#endif
123#if LK1_ENABLED
124 module function test_setSplit_D1_D0_LK1 () result(assertion); logical(LK) :: assertion; end function
125#endif
126 module function test_setSplit_D1_D0_LK () result(assertion); logical(LK) :: assertion; end function
127
128 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
129
130#if CK5_ENABLED
131 module function test_setSplit_D1_D0_CK5 () result(assertion); logical(LK) :: assertion; end function
132#endif
133#if CK4_ENABLED
134 module function test_setSplit_D1_D0_CK4 () result(assertion); logical(LK) :: assertion; end function
135#endif
136#if CK3_ENABLED
137 module function test_setSplit_D1_D0_CK3 () result(assertion); logical(LK) :: assertion; end function
138#endif
139#if CK2_ENABLED
140 module function test_setSplit_D1_D0_CK2 () result(assertion); logical(LK) :: assertion; end function
141#endif
142#if CK1_ENABLED
143 module function test_setSplit_D1_D0_CK1 () result(assertion); logical(LK) :: assertion; end function
144#endif
145 module function test_setSplit_D1_D0_CK () result(assertion); logical(LK) :: assertion; end function
146
147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
148
149#if RK5_ENABLED
150 module function test_setSplit_D1_D0_RK5 () result(assertion); logical(LK) :: assertion; end function
151#endif
152#if RK4_ENABLED
153 module function test_setSplit_D1_D0_RK4 () result(assertion); logical(LK) :: assertion; end function
154#endif
155#if RK3_ENABLED
156 module function test_setSplit_D1_D0_RK3 () result(assertion); logical(LK) :: assertion; end function
157#endif
158#if RK2_ENABLED
159 module function test_setSplit_D1_D0_RK2 () result(assertion); logical(LK) :: assertion; end function
160#endif
161#if RK1_ENABLED
162 module function test_setSplit_D1_D0_RK1 () result(assertion); logical(LK) :: assertion; end function
163#endif
164 module function test_setSplit_D1_D0_RK () result(assertion); logical(LK) :: assertion; end function
165
166 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167
168 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
169 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171
172 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173
174#if SK5_ENABLED
175 module function test_setSplit_D1_D1_SK5 () result(assertion); logical(LK) :: assertion; end function
176#endif
177#if SK4_ENABLED
178 module function test_setSplit_D1_D1_SK4 () result(assertion); logical(LK) :: assertion; end function
179#endif
180#if SK3_ENABLED
181 module function test_setSplit_D1_D1_SK3 () result(assertion); logical(LK) :: assertion; end function
182#endif
183#if SK2_ENABLED
184 module function test_setSplit_D1_D1_SK2 () result(assertion); logical(LK) :: assertion; end function
185#endif
186#if SK1_ENABLED
187 module function test_setSplit_D1_D1_SK1 () result(assertion); logical(LK) :: assertion; end function
188#endif
189 module function test_setSplit_D1_D1_SK () result(assertion); logical(LK) :: assertion; end function
190
191 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
192
193#if IK5_ENABLED
194 module function test_setSplit_D1_D1_IK5 () result(assertion); logical(LK) :: assertion; end function
195#endif
196#if IK4_ENABLED
197 module function test_setSplit_D1_D1_IK4 () result(assertion); logical(LK) :: assertion; end function
198#endif
199#if IK3_ENABLED
200 module function test_setSplit_D1_D1_IK3 () result(assertion); logical(LK) :: assertion; end function
201#endif
202#if IK2_ENABLED
203 module function test_setSplit_D1_D1_IK2 () result(assertion); logical(LK) :: assertion; end function
204#endif
205#if IK1_ENABLED
206 module function test_setSplit_D1_D1_IK1 () result(assertion); logical(LK) :: assertion; end function
207#endif
208 module function test_setSplit_D1_D1_IK () result(assertion); logical(LK) :: assertion; end function
209
210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211
212#if LK5_ENABLED
213 module function test_setSplit_D1_D1_LK5 () result(assertion); logical(LK) :: assertion; end function
214#endif
215#if LK4_ENABLED
216 module function test_setSplit_D1_D1_LK4 () result(assertion); logical(LK) :: assertion; end function
217#endif
218#if LK3_ENABLED
219 module function test_setSplit_D1_D1_LK3 () result(assertion); logical(LK) :: assertion; end function
220#endif
221#if LK2_ENABLED
222 module function test_setSplit_D1_D1_LK2 () result(assertion); logical(LK) :: assertion; end function
223#endif
224#if LK1_ENABLED
225 module function test_setSplit_D1_D1_LK1 () result(assertion); logical(LK) :: assertion; end function
226#endif
227 module function test_setSplit_D1_D1_LK () result(assertion); logical(LK) :: assertion; end function
228
229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
230
231#if CK5_ENABLED
232 module function test_setSplit_D1_D1_CK5 () result(assertion); logical(LK) :: assertion; end function
233#endif
234#if CK4_ENABLED
235 module function test_setSplit_D1_D1_CK4 () result(assertion); logical(LK) :: assertion; end function
236#endif
237#if CK3_ENABLED
238 module function test_setSplit_D1_D1_CK3 () result(assertion); logical(LK) :: assertion; end function
239#endif
240#if CK2_ENABLED
241 module function test_setSplit_D1_D1_CK2 () result(assertion); logical(LK) :: assertion; end function
242#endif
243#if CK1_ENABLED
244 module function test_setSplit_D1_D1_CK1 () result(assertion); logical(LK) :: assertion; end function
245#endif
246 module function test_setSplit_D1_D1_CK () result(assertion); logical(LK) :: assertion; end function
247
248 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249
250#if RK5_ENABLED
251 module function test_setSplit_D1_D1_RK5 () result(assertion); logical(LK) :: assertion; end function
252#endif
253#if RK4_ENABLED
254 module function test_setSplit_D1_D1_RK4 () result(assertion); logical(LK) :: assertion; end function
255#endif
256#if RK3_ENABLED
257 module function test_setSplit_D1_D1_RK3 () result(assertion); logical(LK) :: assertion; end function
258#endif
259#if RK2_ENABLED
260 module function test_setSplit_D1_D1_RK2 () result(assertion); logical(LK) :: assertion; end function
261#endif
262#if RK1_ENABLED
263 module function test_setSplit_D1_D1_RK1 () result(assertion); logical(LK) :: assertion; end function
264#endif
265 module function test_setSplit_D1_D1_RK () result(assertion); logical(LK) :: assertion; end function
266
267 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268
269 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
272
273 end interface
274
275!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
276
277contains
278
279!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
280
281 subroutine setTest()
282
283 implicit none
284
285 test = test_type(MODULE_NAME)
286
287 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290
291 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
292
293 call test%run(test_setSplit_D0_D0_SK, SK_"test_setSplit_D0_D0_SK")
294
295 call test%run(test_setSplit_D1_D0_SK, SK_"test_setSplit_D1_D0_SK")
296 call test%run(test_setSplit_D1_D0_IK, SK_"test_setSplit_D1_D0_IK")
297 call test%run(test_setSplit_D1_D0_LK, SK_"test_setSplit_D1_D0_LK")
298 call test%run(test_setSplit_D1_D0_CK, SK_"test_setSplit_D1_D0_CK")
299 call test%run(test_setSplit_D1_D0_RK, SK_"test_setSplit_D1_D0_RK")
300
301 call test%run(test_setSplit_D1_D1_SK, SK_"test_setSplit_D1_D1_SK")
302 call test%run(test_setSplit_D1_D1_IK, SK_"test_setSplit_D1_D1_IK")
303 call test%run(test_setSplit_D1_D1_LK, SK_"test_setSplit_D1_D1_LK")
304 call test%run(test_setSplit_D1_D1_CK, SK_"test_setSplit_D1_D1_CK")
305 call test%run(test_setSplit_D1_D1_RK, SK_"test_setSplit_D1_D1_RK")
306
307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308
309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312
313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314
315#if SK5_ENABLED
316 call test%run(test_setSplit_D0_D0_SK5, SK_"test_setSplit_D0_D0_SK5")
317#endif
318#if SK4_ENABLED
319 call test%run(test_setSplit_D0_D0_SK4, SK_"test_setSplit_D0_D0_SK4")
320#endif
321#if SK3_ENABLED
322 call test%run(test_setSplit_D0_D0_SK3, SK_"test_setSplit_D0_D0_SK3")
323#endif
324#if SK2_ENABLED
325 call test%run(test_setSplit_D0_D0_SK2, SK_"test_setSplit_D0_D0_SK2")
326#endif
327#if SK1_ENABLED
328 call test%run(test_setSplit_D0_D0_SK1, SK_"test_setSplit_D0_D0_SK1")
329#endif
330
331 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
332
333 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336
337 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
338
339#if SK5_ENABLED
340 call test%run(test_setSplit_D1_D0_SK5, SK_"test_setSplit_D1_D0_SK5")
341#endif
342#if SK4_ENABLED
343 call test%run(test_setSplit_D1_D0_SK4, SK_"test_setSplit_D1_D0_SK4")
344#endif
345#if SK3_ENABLED
346 call test%run(test_setSplit_D1_D0_SK3, SK_"test_setSplit_D1_D0_SK3")
347#endif
348#if SK2_ENABLED
349 call test%run(test_setSplit_D1_D0_SK2, SK_"test_setSplit_D1_D1_SK2")
350#endif
351#if SK1_ENABLED
352 call test%run(test_setSplit_D1_D0_SK1, SK_"test_setSplit_D1_D0_SK1")
353#endif
354
355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
356
357#if IK5_ENABLED
358 call test%run(test_setSplit_D1_D0_IK5, SK_"test_setSplit_D1_D0_IK5")
359#endif
360#if IK4_ENABLED
361 call test%run(test_setSplit_D1_D0_IK4, SK_"test_setSplit_D1_D0_IK4")
362#endif
363#if IK3_ENABLED
364 call test%run(test_setSplit_D1_D0_IK3, SK_"test_setSplit_D1_D0_IK3")
365#endif
366#if IK2_ENABLED
367 call test%run(test_setSplit_D1_D0_IK2, SK_"test_setSplit_D1_D1_IK2")
368#endif
369#if IK1_ENABLED
370 call test%run(test_setSplit_D1_D0_IK1, SK_"test_setSplit_D1_D0_IK1")
371#endif
372
373 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374
375#if LK5_ENABLED
376 call test%run(test_setSplit_D1_D0_LK5, SK_"test_setSplit_D1_D0_LK5")
377#endif
378#if LK4_ENABLED
379 call test%run(test_setSplit_D1_D0_LK4, SK_"test_setSplit_D1_D0_LK4")
380#endif
381#if LK3_ENABLED
382 call test%run(test_setSplit_D1_D0_LK3, SK_"test_setSplit_D1_D0_LK3")
383#endif
384#if LK2_ENABLED
385 call test%run(test_setSplit_D1_D0_LK2, SK_"test_setSplit_D1_D1_LK2")
386#endif
387#if LK1_ENABLED
388 call test%run(test_setSplit_D1_D0_LK1, SK_"test_setSplit_D1_D0_LK1")
389#endif
390
391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392
393#if CK5_ENABLED
394 call test%run(test_setSplit_D1_D0_CK5, SK_"test_setSplit_D1_D0_CK5")
395#endif
396#if CK4_ENABLED
397 call test%run(test_setSplit_D1_D0_CK4, SK_"test_setSplit_D1_D0_CK4")
398#endif
399#if CK3_ENABLED
400 call test%run(test_setSplit_D1_D0_CK3, SK_"test_setSplit_D1_D0_CK3")
401#endif
402#if CK2_ENABLED
403 call test%run(test_setSplit_D1_D0_CK2, SK_"test_setSplit_D1_D1_CK2")
404#endif
405#if CK1_ENABLED
406 call test%run(test_setSplit_D1_D0_CK1, SK_"test_setSplit_D1_D0_CK1")
407#endif
408
409 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
410
411#if RK5_ENABLED
412 call test%run(test_setSplit_D1_D0_RK5, SK_"test_setSplit_D1_D0_RK5")
413#endif
414#if RK4_ENABLED
415 call test%run(test_setSplit_D1_D0_RK4, SK_"test_setSplit_D1_D0_RK4")
416#endif
417#if RK3_ENABLED
418 call test%run(test_setSplit_D1_D0_RK3, SK_"test_setSplit_D1_D0_RK3")
419#endif
420#if RK2_ENABLED
421 call test%run(test_setSplit_D1_D0_RK2, SK_"test_setSplit_D1_D1_RK2")
422#endif
423#if RK1_ENABLED
424 call test%run(test_setSplit_D1_D0_RK1, SK_"test_setSplit_D1_D0_RK1")
425#endif
426
427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
428
429 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
432
433 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
434
435#if SK5_ENABLED
436 call test%run(test_setSplit_D1_D1_SK5, SK_"test_setSplit_D1_D1_SK5")
437#endif
438#if SK4_ENABLED
439 call test%run(test_setSplit_D1_D1_SK4, SK_"test_setSplit_D1_D1_SK4")
440#endif
441#if SK3_ENABLED
442 call test%run(test_setSplit_D1_D1_SK3, SK_"test_setSplit_D1_D1_SK3")
443#endif
444#if SK2_ENABLED
445 call test%run(test_setSplit_D1_D1_SK2, SK_"test_setSplit_D1_D1_SK2")
446#endif
447#if SK1_ENABLED
448 call test%run(test_setSplit_D1_D1_SK1, SK_"test_setSplit_D1_D1_SK1")
449#endif
450
451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
452
453#if IK5_ENABLED
454 call test%run(test_setSplit_D1_D1_IK5, SK_"test_setSplit_D1_D1_IK5")
455#endif
456#if IK4_ENABLED
457 call test%run(test_setSplit_D1_D1_IK4, SK_"test_setSplit_D1_D1_IK4")
458#endif
459#if IK3_ENABLED
460 call test%run(test_setSplit_D1_D1_IK3, SK_"test_setSplit_D1_D1_IK3")
461#endif
462#if IK2_ENABLED
463 call test%run(test_setSplit_D1_D1_IK2, SK_"test_setSplit_D1_D1_IK2")
464#endif
465#if IK1_ENABLED
466 call test%run(test_setSplit_D1_D1_IK1, SK_"test_setSplit_D1_D1_IK1")
467#endif
468
469 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
470
471#if LK5_ENABLED
472 call test%run(test_setSplit_D1_D1_LK5, SK_"test_setSplit_D1_D1_LK5")
473#endif
474#if LK4_ENABLED
475 call test%run(test_setSplit_D1_D1_LK4, SK_"test_setSplit_D1_D1_LK4")
476#endif
477#if LK3_ENABLED
478 call test%run(test_setSplit_D1_D1_LK3, SK_"test_setSplit_D1_D1_LK3")
479#endif
480#if LK2_ENABLED
481 call test%run(test_setSplit_D1_D1_LK2, SK_"test_setSplit_D1_D1_LK2")
482#endif
483#if LK1_ENABLED
484 call test%run(test_setSplit_D1_D1_LK1, SK_"test_setSplit_D1_D1_LK1")
485#endif
486
487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
488
489#if CK5_ENABLED
490 call test%run(test_setSplit_D1_D1_CK5, SK_"test_setSplit_D1_D1_CK5")
491#endif
492#if CK4_ENABLED
493 call test%run(test_setSplit_D1_D1_CK4, SK_"test_setSplit_D1_D1_CK4")
494#endif
495#if CK3_ENABLED
496 call test%run(test_setSplit_D1_D1_CK3, SK_"test_setSplit_D1_D1_CK3")
497#endif
498#if CK2_ENABLED
499 call test%run(test_setSplit_D1_D1_CK2, SK_"test_setSplit_D1_D1_CK2")
500#endif
501#if CK1_ENABLED
502 call test%run(test_setSplit_D1_D1_CK1, SK_"test_setSplit_D1_D1_CK1")
503#endif
504
505 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506
507#if RK5_ENABLED
508 call test%run(test_setSplit_D1_D1_RK5, SK_"test_setSplit_D1_D1_RK5")
509#endif
510#if RK4_ENABLED
511 call test%run(test_setSplit_D1_D1_RK4, SK_"test_setSplit_D1_D1_RK4")
512#endif
513#if RK3_ENABLED
514 call test%run(test_setSplit_D1_D1_RK3, SK_"test_setSplit_D1_D1_RK3")
515#endif
516#if RK2_ENABLED
517 call test%run(test_setSplit_D1_D1_RK2, SK_"test_setSplit_D1_D1_RK2")
518#endif
519#if RK1_ENABLED
520 call test%run(test_setSplit_D1_D1_RK1, SK_"test_setSplit_D1_D1_RK1")
521#endif
522
523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
524
525 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
526 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528
529 call test%summarize()
530
531 end subroutine setTest
532
533!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534
535end module test_pm_arraySplit ! LCOV_EXCL_LINE
pm_arraySplit
This module contains procedures and generic interfaces for splitting arrays of various types at the s...
Definition: pm_arraySplit.F90:48
pm_arraySplit::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arraySplit.F90:54
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arraySplit
This module contains tests of the module pm_arraySplit.
Definition: test_pm_arraySplit.F90:27
test_pm_arraySplit::setTest
subroutine setTest()
Definition: test_pm_arraySplit.F90:282
test_pm_arraySplit::test
type(test_type) test
Definition: test_pm_arraySplit.F90:36
pm_err::err_type
This is the derived type for generating objects to gracefully and verbosely handle runtime unexpected...
Definition: pm_err.F90:157
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