ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayMerge.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
23
24!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25
26module test_pm_arrayMerge
27
28 use pm_arrayMerge
29 use pm_test, only: test_type, LK
30 use pm_kind, only: IK, RK
31 use pm_kind, only: LK
32 implicit none
33
34 private
35 public :: setTest
36 type(test_type) :: test
37
38!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39
40 interface
41
42 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43
44#if SK5_ENABLED
45 module function test_getMerged_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
46#endif
47#if SK4_ENABLED
48 module function test_getMerged_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
49#endif
50#if SK3_ENABLED
51 module function test_getMerged_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
52#endif
53#if SK2_ENABLED
54 module function test_getMerged_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
55#endif
56#if SK1_ENABLED
57 module function test_getMerged_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
58#endif
59
60 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62#if SK5_ENABLED
63 module function test_getMerged_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
64#endif
65#if SK4_ENABLED
66 module function test_getMerged_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
67#endif
68#if SK3_ENABLED
69 module function test_getMerged_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
70#endif
71#if SK2_ENABLED
72 module function test_getMerged_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
73#endif
74#if SK1_ENABLED
75 module function test_getMerged_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
76#endif
77
78 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
80#if IK5_ENABLED
81 module function test_getMerged_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
82#endif
83#if IK4_ENABLED
84 module function test_getMerged_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
85#endif
86#if IK3_ENABLED
87 module function test_getMerged_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
88#endif
89#if IK2_ENABLED
90 module function test_getMerged_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
91#endif
92#if IK1_ENABLED
93 module function test_getMerged_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
94#endif
95
96 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97
98#if LK5_ENABLED
99 module function test_getMerged_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
100#endif
101#if LK4_ENABLED
102 module function test_getMerged_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
103#endif
104#if LK3_ENABLED
105 module function test_getMerged_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
106#endif
107#if LK2_ENABLED
108 module function test_getMerged_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
109#endif
110#if LK1_ENABLED
111 module function test_getMerged_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
112#endif
113
114 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115
116#if CK5_ENABLED
117 module function test_getMerged_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
118#endif
119#if CK4_ENABLED
120 module function test_getMerged_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
121#endif
122#if CK3_ENABLED
123 module function test_getMerged_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
124#endif
125#if CK2_ENABLED
126 module function test_getMerged_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
127#endif
128#if CK1_ENABLED
129 module function test_getMerged_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
130#endif
131
132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133
134#if RK5_ENABLED
135 module function test_getMerged_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
136#endif
137#if RK4_ENABLED
138 module function test_getMerged_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
139#endif
140#if RK3_ENABLED
141 module function test_getMerged_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
142#endif
143#if RK2_ENABLED
144 module function test_getMerged_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
145#endif
146#if RK1_ENABLED
147 module function test_getMerged_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
148#endif
149
150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151
152#if SK5_ENABLED
153 module function test_getMerged_D1_PSSK5_1 () result(assertion); logical(LK) :: assertion; end function
154#endif
155#if SK4_ENABLED
156 module function test_getMerged_D1_PSSK4_1 () result(assertion); logical(LK) :: assertion; end function
157#endif
158#if SK3_ENABLED
159 module function test_getMerged_D1_PSSK3_1 () result(assertion); logical(LK) :: assertion; end function
160#endif
161#if SK2_ENABLED
162 module function test_getMerged_D1_PSSK2_1 () result(assertion); logical(LK) :: assertion; end function
163#endif
164#if SK1_ENABLED
165 module function test_getMerged_D1_PSSK1_1 () result(assertion); logical(LK) :: assertion; end function
166#endif
167
168 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
169
170 end interface
171
172!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173
174 interface
175
176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177
178#if SK5_ENABLED
179 module function test_setMerged_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
180#endif
181#if SK4_ENABLED
182 module function test_setMerged_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
183#endif
184#if SK3_ENABLED
185 module function test_setMerged_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
186#endif
187#if SK2_ENABLED
188 module function test_setMerged_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
189#endif
190#if SK1_ENABLED
191 module function test_setMerged_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
192#endif
193
194 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
195
196#if SK5_ENABLED
197 module function test_setMerged_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
198#endif
199#if SK4_ENABLED
200 module function test_setMerged_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
201#endif
202#if SK3_ENABLED
203 module function test_setMerged_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
204#endif
205#if SK2_ENABLED
206 module function test_setMerged_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
207#endif
208#if SK1_ENABLED
209 module function test_setMerged_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
210#endif
211
212 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213
214#if IK5_ENABLED
215 module function test_setMerged_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
216#endif
217#if IK4_ENABLED
218 module function test_setMerged_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
219#endif
220#if IK3_ENABLED
221 module function test_setMerged_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
222#endif
223#if IK2_ENABLED
224 module function test_setMerged_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
225#endif
226#if IK1_ENABLED
227 module function test_setMerged_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
228#endif
229
230 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
231
232#if LK5_ENABLED
233 module function test_setMerged_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
234#endif
235#if LK4_ENABLED
236 module function test_setMerged_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
237#endif
238#if LK3_ENABLED
239 module function test_setMerged_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
240#endif
241#if LK2_ENABLED
242 module function test_setMerged_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
243#endif
244#if LK1_ENABLED
245 module function test_setMerged_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
246#endif
247
248 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249
250#if CK5_ENABLED
251 module function test_setMerged_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
252#endif
253#if CK4_ENABLED
254 module function test_setMerged_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
255#endif
256#if CK3_ENABLED
257 module function test_setMerged_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
258#endif
259#if CK2_ENABLED
260 module function test_setMerged_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
261#endif
262#if CK1_ENABLED
263 module function test_setMerged_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
264#endif
265
266 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267
268#if RK5_ENABLED
269 module function test_setMerged_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
270#endif
271#if RK4_ENABLED
272 module function test_setMerged_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
273#endif
274#if RK3_ENABLED
275 module function test_setMerged_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
276#endif
277#if RK2_ENABLED
278 module function test_setMerged_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
279#endif
280#if RK1_ENABLED
281 module function test_setMerged_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
282#endif
283
284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285
286#if SK5_ENABLED
287 module function test_setMerged_D1_PSSK5_1 () result(assertion); logical(LK) :: assertion; end function
288#endif
289#if SK4_ENABLED
290 module function test_setMerged_D1_PSSK4_1 () result(assertion); logical(LK) :: assertion; end function
291#endif
292#if SK3_ENABLED
293 module function test_setMerged_D1_PSSK3_1 () result(assertion); logical(LK) :: assertion; end function
294#endif
295#if SK2_ENABLED
296 module function test_setMerged_D1_PSSK2_1 () result(assertion); logical(LK) :: assertion; end function
297#endif
298#if SK1_ENABLED
299 module function test_setMerged_D1_PSSK1_1 () result(assertion); logical(LK) :: assertion; end function
300#endif
301
302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303
304 end interface
305
306!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307
308contains
309
310!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311
312 subroutine setTest()
313
314 test = test_type(MODULE_NAME)
315
316 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319
320 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321
322#if SK5_ENABLED
323 call test%run(test_getMerged_D0_SK5_1, SK_"test_getMerged_D0_SK5_1")
324#endif
325#if SK4_ENABLED
326 call test%run(test_getMerged_D0_SK4_1, SK_"test_getMerged_D0_SK4_1")
327#endif
328#if SK3_ENABLED
329 call test%run(test_getMerged_D0_SK3_1, SK_"test_getMerged_D0_SK3_1")
330#endif
331#if SK2_ENABLED
332 call test%run(test_getMerged_D0_SK2_1, SK_"test_getMerged_D0_SK2_1")
333#endif
334#if SK1_ENABLED
335 call test%run(test_getMerged_D0_SK1_1, SK_"test_getMerged_D0_SK1_1")
336#endif
337
338 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
339
340#if SK5_ENABLED
341 call test%run(test_getMerged_D1_SK5_1, SK_"test_getMerged_D1_SK5_1")
342#endif
343#if SK4_ENABLED
344 call test%run(test_getMerged_D1_SK4_1, SK_"test_getMerged_D1_SK4_1")
345#endif
346#if SK3_ENABLED
347 call test%run(test_getMerged_D1_SK3_1, SK_"test_getMerged_D1_SK3_1")
348#endif
349#if SK2_ENABLED
350 call test%run(test_getMerged_D1_SK2_1, SK_"test_getMerged_D1_SK2_1")
351#endif
352#if SK1_ENABLED
353 call test%run(test_getMerged_D1_SK1_1, SK_"test_getMerged_D1_SK1_1")
354#endif
355
356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357
358#if IK5_ENABLED
359 call test%run(test_getMerged_D1_IK5_1, SK_"test_getMerged_D1_IK5_1")
360#endif
361#if IK4_ENABLED
362 call test%run(test_getMerged_D1_IK4_1, SK_"test_getMerged_D1_IK4_1")
363#endif
364#if IK3_ENABLED
365 call test%run(test_getMerged_D1_IK3_1, SK_"test_getMerged_D1_IK3_1")
366#endif
367#if IK2_ENABLED
368 call test%run(test_getMerged_D1_IK2_1, SK_"test_getMerged_D1_IK2_1")
369#endif
370#if IK1_ENABLED
371 call test%run(test_getMerged_D1_IK1_1, SK_"test_getMerged_D1_IK1_1")
372#endif
373
374 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375
376#if LK5_ENABLED
377 call test%run(test_getMerged_D1_LK5_1, SK_"test_getMerged_D1_LK5_1")
378#endif
379#if LK4_ENABLED
380 call test%run(test_getMerged_D1_LK4_1, SK_"test_getMerged_D1_LK4_1")
381#endif
382#if LK3_ENABLED
383 call test%run(test_getMerged_D1_LK3_1, SK_"test_getMerged_D1_LK3_1")
384#endif
385#if LK2_ENABLED
386 call test%run(test_getMerged_D1_LK2_1, SK_"test_getMerged_D1_LK2_1")
387#endif
388#if LK1_ENABLED
389 call test%run(test_getMerged_D1_LK1_1, SK_"test_getMerged_D1_LK1_1")
390#endif
391
392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393
394#if CK5_ENABLED
395 call test%run(test_getMerged_D1_CK5_1, SK_"test_getMerged_D1_CK5_1")
396#endif
397#if CK4_ENABLED
398 call test%run(test_getMerged_D1_CK4_1, SK_"test_getMerged_D1_CK4_1")
399#endif
400#if CK3_ENABLED
401 call test%run(test_getMerged_D1_CK3_1, SK_"test_getMerged_D1_CK3_1")
402#endif
403#if CK2_ENABLED
404 call test%run(test_getMerged_D1_CK2_1, SK_"test_getMerged_D1_CK2_1")
405#endif
406#if CK1_ENABLED
407 call test%run(test_getMerged_D1_CK1_1, SK_"test_getMerged_D1_CK1_1")
408#endif
409
410 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411
412#if RK5_ENABLED
413 call test%run(test_getMerged_D1_RK5_1, SK_"test_getMerged_D1_RK5_1")
414#endif
415#if RK4_ENABLED
416 call test%run(test_getMerged_D1_RK4_1, SK_"test_getMerged_D1_RK4_1")
417#endif
418#if RK3_ENABLED
419 call test%run(test_getMerged_D1_RK3_1, SK_"test_getMerged_D1_RK3_1")
420#endif
421#if RK2_ENABLED
422 call test%run(test_getMerged_D1_RK2_1, SK_"test_getMerged_D1_RK2_1")
423#endif
424#if RK1_ENABLED
425 call test%run(test_getMerged_D1_RK1_1, SK_"test_getMerged_D1_RK1_1")
426#endif
427
428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429
430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
432 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
433
434 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435
436#if SK5_ENABLED
437 call test%run(test_setMerged_D0_SK5_1, SK_"test_setMerged_D0_SK5_1")
438#endif
439#if SK4_ENABLED
440 call test%run(test_setMerged_D0_SK4_1, SK_"test_setMerged_D0_SK4_1")
441#endif
442#if SK3_ENABLED
443 call test%run(test_setMerged_D0_SK3_1, SK_"test_setMerged_D0_SK3_1")
444#endif
445#if SK2_ENABLED
446 call test%run(test_setMerged_D0_SK2_1, SK_"test_setMerged_D0_SK2_1")
447#endif
448#if SK1_ENABLED
449 call test%run(test_setMerged_D0_SK1_1, SK_"test_setMerged_D0_SK1_1")
450#endif
451
452 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
454#if SK5_ENABLED
455 call test%run(test_setMerged_D1_SK5_1, SK_"test_setMerged_D1_SK5_1")
456#endif
457#if SK4_ENABLED
458 call test%run(test_setMerged_D1_SK4_1, SK_"test_setMerged_D1_SK4_1")
459#endif
460#if SK3_ENABLED
461 call test%run(test_setMerged_D1_SK3_1, SK_"test_setMerged_D1_SK3_1")
462#endif
463#if SK2_ENABLED
464 call test%run(test_setMerged_D1_SK2_1, SK_"test_setMerged_D1_SK2_1")
465#endif
466#if SK1_ENABLED
467 call test%run(test_setMerged_D1_SK1_1, SK_"test_setMerged_D1_SK1_1")
468#endif
469
470 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
471
472#if IK5_ENABLED
473 call test%run(test_setMerged_D1_IK5_1, SK_"test_setMerged_D1_IK5_1")
474#endif
475#if IK4_ENABLED
476 call test%run(test_setMerged_D1_IK4_1, SK_"test_setMerged_D1_IK4_1")
477#endif
478#if IK3_ENABLED
479 call test%run(test_setMerged_D1_IK3_1, SK_"test_setMerged_D1_IK3_1")
480#endif
481#if IK2_ENABLED
482 call test%run(test_setMerged_D1_IK2_1, SK_"test_setMerged_D1_IK2_1")
483#endif
484#if IK1_ENABLED
485 call test%run(test_setMerged_D1_IK1_1, SK_"test_setMerged_D1_IK1_1")
486#endif
487
488 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489
490#if LK5_ENABLED
491 call test%run(test_setMerged_D1_LK5_1, SK_"test_setMerged_D1_LK5_1")
492#endif
493#if LK4_ENABLED
494 call test%run(test_setMerged_D1_LK4_1, SK_"test_setMerged_D1_LK4_1")
495#endif
496#if LK3_ENABLED
497 call test%run(test_setMerged_D1_LK3_1, SK_"test_setMerged_D1_LK3_1")
498#endif
499#if LK2_ENABLED
500 call test%run(test_setMerged_D1_LK2_1, SK_"test_setMerged_D1_LK2_1")
501#endif
502#if LK1_ENABLED
503 call test%run(test_setMerged_D1_LK1_1, SK_"test_setMerged_D1_LK1_1")
504#endif
505
506 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507
508#if CK5_ENABLED
509 call test%run(test_setMerged_D1_CK5_1, SK_"test_setMerged_D1_CK5_1")
510#endif
511#if CK4_ENABLED
512 call test%run(test_setMerged_D1_CK4_1, SK_"test_setMerged_D1_CK4_1")
513#endif
514#if CK3_ENABLED
515 call test%run(test_setMerged_D1_CK3_1, SK_"test_setMerged_D1_CK3_1")
516#endif
517#if CK2_ENABLED
518 call test%run(test_setMerged_D1_CK2_1, SK_"test_setMerged_D1_CK2_1")
519#endif
520#if CK1_ENABLED
521 call test%run(test_setMerged_D1_CK1_1, SK_"test_setMerged_D1_CK1_1")
522#endif
523
524 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
525
526#if RK5_ENABLED
527 call test%run(test_setMerged_D1_RK5_1, SK_"test_setMerged_D1_RK5_1")
528#endif
529#if RK4_ENABLED
530 call test%run(test_setMerged_D1_RK4_1, SK_"test_setMerged_D1_RK4_1")
531#endif
532#if RK3_ENABLED
533 call test%run(test_setMerged_D1_RK3_1, SK_"test_setMerged_D1_RK3_1")
534#endif
535#if RK2_ENABLED
536 call test%run(test_setMerged_D1_RK2_1, SK_"test_setMerged_D1_RK2_1")
537#endif
538#if RK1_ENABLED
539 call test%run(test_setMerged_D1_RK1_1, SK_"test_setMerged_D1_RK1_1")
540#endif
541
542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543
544 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
546 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 call test%summarize()
548
549 end subroutine setTest
550
551!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
552
553end module test_pm_arrayMerge
pm_arrayMerge
This module contains procedures and generic interfaces for sorting and merging two previously-sorted ...
Definition: pm_arrayMerge.F90:34
pm_arrayMerge::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayMerge.F90:40
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
Definition: pm_kind.F90:543
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arrayMerge
This module contains tests of the module pm_arrayMerge.
Definition: test_pm_arrayMerge.F90:26
test_pm_arrayMerge::setTest
subroutine setTest()
Definition: test_pm_arrayMerge.F90:313
test_pm_arrayMerge::test
type(test_type) test
Definition: test_pm_arrayMerge.F90:36
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