ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayShuffle.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_arrayShuffle
28
29 use pm_arrayShuffle
30 use pm_test, only: test_type, LK
31 use pm_kind, only: IK, RK
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_getShuffled_D0_SK5_1() result(assertion); logical(LK) :: assertion; end function
46#endif
47#if SK4_ENABLED
48 module function test_getShuffled_D0_SK4_1() result(assertion); logical(LK) :: assertion; end function
49#endif
50#if SK3_ENABLED
51 module function test_getShuffled_D0_SK3_1() result(assertion); logical(LK) :: assertion; end function
52#endif
53#if SK2_ENABLED
54 module function test_getShuffled_D0_SK2_1() result(assertion); logical(LK) :: assertion; end function
55#endif
56#if SK1_ENABLED
57 module function test_getShuffled_D0_SK1_1() result(assertion); logical(LK) :: assertion; end function
58#endif
59
60 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62#if SK5_ENABLED
63 module function test_getShuffled_D1_SK5_1() result(assertion); logical(LK) :: assertion; end function
64#endif
65#if SK4_ENABLED
66 module function test_getShuffled_D1_SK4_1() result(assertion); logical(LK) :: assertion; end function
67#endif
68#if SK3_ENABLED
69 module function test_getShuffled_D1_SK3_1() result(assertion); logical(LK) :: assertion; end function
70#endif
71#if SK2_ENABLED
72 module function test_getShuffled_D1_SK2_1() result(assertion); logical(LK) :: assertion; end function
73#endif
74#if SK1_ENABLED
75 module function test_getShuffled_D1_SK1_1() result(assertion); logical(LK) :: assertion; end function
76#endif
77
78 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
80#if IK5_ENABLED
81 module function test_getShuffled_D1_IK5_1() result(assertion); logical(LK) :: assertion; end function
82#endif
83#if IK4_ENABLED
84 module function test_getShuffled_D1_IK4_1() result(assertion); logical(LK) :: assertion; end function
85#endif
86#if IK3_ENABLED
87 module function test_getShuffled_D1_IK3_1() result(assertion); logical(LK) :: assertion; end function
88#endif
89#if IK2_ENABLED
90 module function test_getShuffled_D1_IK2_1() result(assertion); logical(LK) :: assertion; end function
91#endif
92#if IK1_ENABLED
93 module function test_getShuffled_D1_IK1_1() result(assertion); logical(LK) :: assertion; end function
94#endif
95
96 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97
98#if LK5_ENABLED
99 module function test_getShuffled_D1_LK5_1() result(assertion); logical(LK) :: assertion; end function
100#endif
101#if LK4_ENABLED
102 module function test_getShuffled_D1_LK4_1() result(assertion); logical(LK) :: assertion; end function
103#endif
104#if LK3_ENABLED
105 module function test_getShuffled_D1_LK3_1() result(assertion); logical(LK) :: assertion; end function
106#endif
107#if LK2_ENABLED
108 module function test_getShuffled_D1_LK2_1() result(assertion); logical(LK) :: assertion; end function
109#endif
110#if LK1_ENABLED
111 module function test_getShuffled_D1_LK1_1() result(assertion); logical(LK) :: assertion; end function
112#endif
113
114 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115
116#if CK5_ENABLED
117 module function test_getShuffled_D1_CK5_1() result(assertion); logical(LK) :: assertion; end function
118#endif
119#if CK4_ENABLED
120 module function test_getShuffled_D1_CK4_1() result(assertion); logical(LK) :: assertion; end function
121#endif
122#if CK3_ENABLED
123 module function test_getShuffled_D1_CK3_1() result(assertion); logical(LK) :: assertion; end function
124#endif
125#if CK2_ENABLED
126 module function test_getShuffled_D1_CK2_1() result(assertion); logical(LK) :: assertion; end function
127#endif
128#if CK1_ENABLED
129 module function test_getShuffled_D1_CK1_1() result(assertion); logical(LK) :: assertion; end function
130#endif
131
132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133
134#if RK5_ENABLED
135 module function test_getShuffled_D1_RK5_1() result(assertion); logical(LK) :: assertion; end function
136#endif
137#if RK4_ENABLED
138 module function test_getShuffled_D1_RK4_1() result(assertion); logical(LK) :: assertion; end function
139#endif
140#if RK3_ENABLED
141 module function test_getShuffled_D1_RK3_1() result(assertion); logical(LK) :: assertion; end function
142#endif
143#if RK2_ENABLED
144 module function test_getShuffled_D1_RK2_1() result(assertion); logical(LK) :: assertion; end function
145#endif
146#if RK1_ENABLED
147 module function test_getShuffled_D1_RK1_1() result(assertion); logical(LK) :: assertion; end function
148#endif
149
150 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151
152 end interface
153
154!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155
156 interface
157
158 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159
160#if SK5_ENABLED
161 module function test_setShuffled_D0_SK5_1() result(assertion); logical(LK) :: assertion; end function
162#endif
163#if SK4_ENABLED
164 module function test_setShuffled_D0_SK4_1() result(assertion); logical(LK) :: assertion; end function
165#endif
166#if SK3_ENABLED
167 module function test_setShuffled_D0_SK3_1() result(assertion); logical(LK) :: assertion; end function
168#endif
169#if SK2_ENABLED
170 module function test_setShuffled_D0_SK2_1() result(assertion); logical(LK) :: assertion; end function
171#endif
172#if SK1_ENABLED
173 module function test_setShuffled_D0_SK1_1() result(assertion); logical(LK) :: assertion; end function
174#endif
175
176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177
178#if SK5_ENABLED
179 module function test_setShuffled_D1_SK5_1() result(assertion); logical(LK) :: assertion; end function
180#endif
181#if SK4_ENABLED
182 module function test_setShuffled_D1_SK4_1() result(assertion); logical(LK) :: assertion; end function
183#endif
184#if SK3_ENABLED
185 module function test_setShuffled_D1_SK3_1() result(assertion); logical(LK) :: assertion; end function
186#endif
187#if SK2_ENABLED
188 module function test_setShuffled_D1_SK2_1() result(assertion); logical(LK) :: assertion; end function
189#endif
190#if SK1_ENABLED
191 module function test_setShuffled_D1_SK1_1() result(assertion); logical(LK) :: assertion; end function
192#endif
193
194 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
195
196#if IK5_ENABLED
197 module function test_setShuffled_D1_IK5_1() result(assertion); logical(LK) :: assertion; end function
198#endif
199#if IK4_ENABLED
200 module function test_setShuffled_D1_IK4_1() result(assertion); logical(LK) :: assertion; end function
201#endif
202#if IK3_ENABLED
203 module function test_setShuffled_D1_IK3_1() result(assertion); logical(LK) :: assertion; end function
204#endif
205#if IK2_ENABLED
206 module function test_setShuffled_D1_IK2_1() result(assertion); logical(LK) :: assertion; end function
207#endif
208#if IK1_ENABLED
209 module function test_setShuffled_D1_IK1_1() result(assertion); logical(LK) :: assertion; end function
210#endif
211
212 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213
214#if LK5_ENABLED
215 module function test_setShuffled_D1_LK5_1() result(assertion); logical(LK) :: assertion; end function
216#endif
217#if LK4_ENABLED
218 module function test_setShuffled_D1_LK4_1() result(assertion); logical(LK) :: assertion; end function
219#endif
220#if LK3_ENABLED
221 module function test_setShuffled_D1_LK3_1() result(assertion); logical(LK) :: assertion; end function
222#endif
223#if LK2_ENABLED
224 module function test_setShuffled_D1_LK2_1() result(assertion); logical(LK) :: assertion; end function
225#endif
226#if LK1_ENABLED
227 module function test_setShuffled_D1_LK1_1() result(assertion); logical(LK) :: assertion; end function
228#endif
229
230 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
231
232#if CK5_ENABLED
233 module function test_setShuffled_D1_CK5_1() result(assertion); logical(LK) :: assertion; end function
234#endif
235#if CK4_ENABLED
236 module function test_setShuffled_D1_CK4_1() result(assertion); logical(LK) :: assertion; end function
237#endif
238#if CK3_ENABLED
239 module function test_setShuffled_D1_CK3_1() result(assertion); logical(LK) :: assertion; end function
240#endif
241#if CK2_ENABLED
242 module function test_setShuffled_D1_CK2_1() result(assertion); logical(LK) :: assertion; end function
243#endif
244#if CK1_ENABLED
245 module function test_setShuffled_D1_CK1_1() result(assertion); logical(LK) :: assertion; end function
246#endif
247
248 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249
250#if RK5_ENABLED
251 module function test_setShuffled_D1_RK5_1() result(assertion); logical(LK) :: assertion; end function
252#endif
253#if RK4_ENABLED
254 module function test_setShuffled_D1_RK4_1() result(assertion); logical(LK) :: assertion; end function
255#endif
256#if RK3_ENABLED
257 module function test_setShuffled_D1_RK3_1() result(assertion); logical(LK) :: assertion; end function
258#endif
259#if RK2_ENABLED
260 module function test_setShuffled_D1_RK2_1() result(assertion); logical(LK) :: assertion; end function
261#endif
262#if RK1_ENABLED
263 module function test_setShuffled_D1_RK1_1() result(assertion); logical(LK) :: assertion; end function
264#endif
265
266 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267
268 end interface
269
270!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271
272contains
273
274!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275
276 subroutine setTest()
277
278 test = test_type(MODULE_NAME)
279
280 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
282 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
283
284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285
286#if SK5_ENABLED
287 call test%run(test_getShuffled_D0_SK5_1, SK_"test_getShuffled_D0_SK5_1")
288#endif
289#if SK4_ENABLED
290 call test%run(test_getShuffled_D0_SK4_1, SK_"test_getShuffled_D0_SK4_1")
291#endif
292#if SK3_ENABLED
293 call test%run(test_getShuffled_D0_SK3_1, SK_"test_getShuffled_D0_SK3_1")
294#endif
295#if SK2_ENABLED
296 call test%run(test_getShuffled_D0_SK2_1, SK_"test_getShuffled_D0_SK2_1")
297#endif
298#if SK1_ENABLED
299 call test%run(test_getShuffled_D0_SK1_1, SK_"test_getShuffled_D0_SK1_1")
300#endif
301
302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303
304#if SK5_ENABLED
305 call test%run(test_getShuffled_D1_SK5_1, SK_"test_getShuffled_D1_SK5_1")
306#endif
307#if SK4_ENABLED
308 call test%run(test_getShuffled_D1_SK4_1, SK_"test_getShuffled_D1_SK4_1")
309#endif
310#if SK3_ENABLED
311 call test%run(test_getShuffled_D1_SK3_1, SK_"test_getShuffled_D1_SK3_1")
312#endif
313#if SK2_ENABLED
314 call test%run(test_getShuffled_D1_SK2_1, SK_"test_getShuffled_D1_SK2_1")
315#endif
316#if SK1_ENABLED
317 call test%run(test_getShuffled_D1_SK1_1, SK_"test_getShuffled_D1_SK1_1")
318#endif
319
320 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321
322#if IK5_ENABLED
323 call test%run(test_getShuffled_D1_IK5_1, SK_"test_getShuffled_D1_IK5_1")
324#endif
325#if IK4_ENABLED
326 call test%run(test_getShuffled_D1_IK4_1, SK_"test_getShuffled_D1_IK4_1")
327#endif
328#if IK3_ENABLED
329 call test%run(test_getShuffled_D1_IK3_1, SK_"test_getShuffled_D1_IK3_1")
330#endif
331#if IK2_ENABLED
332 call test%run(test_getShuffled_D1_IK2_1, SK_"test_getShuffled_D1_IK2_1")
333#endif
334#if IK1_ENABLED
335 call test%run(test_getShuffled_D1_IK1_1, SK_"test_getShuffled_D1_IK1_1")
336#endif
337
338 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
339
340#if LK5_ENABLED
341 call test%run(test_getShuffled_D1_LK5_1, SK_"test_getShuffled_D1_LK5_1")
342#endif
343#if LK4_ENABLED
344 call test%run(test_getShuffled_D1_LK4_1, SK_"test_getShuffled_D1_LK4_1")
345#endif
346#if LK3_ENABLED
347 call test%run(test_getShuffled_D1_LK3_1, SK_"test_getShuffled_D1_LK3_1")
348#endif
349#if LK2_ENABLED
350 call test%run(test_getShuffled_D1_LK2_1, SK_"test_getShuffled_D1_LK2_1")
351#endif
352#if LK1_ENABLED
353 call test%run(test_getShuffled_D1_LK1_1, SK_"test_getShuffled_D1_LK1_1")
354#endif
355
356 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357
358#if CK5_ENABLED
359 call test%run(test_getShuffled_D1_CK5_1, SK_"test_getShuffled_D1_CK5_1")
360#endif
361#if CK4_ENABLED
362 call test%run(test_getShuffled_D1_CK4_1, SK_"test_getShuffled_D1_CK4_1")
363#endif
364#if CK3_ENABLED
365 call test%run(test_getShuffled_D1_CK3_1, SK_"test_getShuffled_D1_CK3_1")
366#endif
367#if CK2_ENABLED
368 call test%run(test_getShuffled_D1_CK2_1, SK_"test_getShuffled_D1_CK2_1")
369#endif
370#if CK1_ENABLED
371 call test%run(test_getShuffled_D1_CK1_1, SK_"test_getShuffled_D1_CK1_1")
372#endif
373
374 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375
376#if RK5_ENABLED
377 call test%run(test_getShuffled_D1_RK5_1, SK_"test_getShuffled_D1_RK5_1")
378#endif
379#if RK4_ENABLED
380 call test%run(test_getShuffled_D1_RK4_1, SK_"test_getShuffled_D1_RK4_1")
381#endif
382#if RK3_ENABLED
383 call test%run(test_getShuffled_D1_RK3_1, SK_"test_getShuffled_D1_RK3_1")
384#endif
385#if RK2_ENABLED
386 call test%run(test_getShuffled_D1_RK2_1, SK_"test_getShuffled_D1_RK2_1")
387#endif
388#if RK1_ENABLED
389 call test%run(test_getShuffled_D1_RK1_1, SK_"test_getShuffled_D1_RK1_1")
390#endif
391
392 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393
394 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397
398 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399
400#if SK5_ENABLED
401 call test%run(test_setShuffled_D0_SK5_1, SK_"test_setShuffled_D0_SK5_1")
402#endif
403#if SK4_ENABLED
404 call test%run(test_setShuffled_D0_SK4_1, SK_"test_setShuffled_D0_SK4_1")
405#endif
406#if SK3_ENABLED
407 call test%run(test_setShuffled_D0_SK3_1, SK_"test_setShuffled_D0_SK3_1")
408#endif
409#if SK2_ENABLED
410 call test%run(test_setShuffled_D0_SK2_1, SK_"test_setShuffled_D0_SK2_1")
411#endif
412#if SK1_ENABLED
413 call test%run(test_setShuffled_D0_SK1_1, SK_"test_setShuffled_D0_SK1_1")
414#endif
415
416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417
418#if SK5_ENABLED
419 call test%run(test_setShuffled_D1_SK5_1, SK_"test_setShuffled_D1_SK5_1")
420#endif
421#if SK4_ENABLED
422 call test%run(test_setShuffled_D1_SK4_1, SK_"test_setShuffled_D1_SK4_1")
423#endif
424#if SK3_ENABLED
425 call test%run(test_setShuffled_D1_SK3_1, SK_"test_setShuffled_D1_SK3_1")
426#endif
427#if SK2_ENABLED
428 call test%run(test_setShuffled_D1_SK2_1, SK_"test_setShuffled_D1_SK2_1")
429#endif
430#if SK1_ENABLED
431 call test%run(test_setShuffled_D1_SK1_1, SK_"test_setShuffled_D1_SK1_1")
432#endif
433
434 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435
436#if IK5_ENABLED
437 call test%run(test_setShuffled_D1_IK5_1, SK_"test_setShuffled_D1_IK5_1")
438#endif
439#if IK4_ENABLED
440 call test%run(test_setShuffled_D1_IK4_1, SK_"test_setShuffled_D1_IK4_1")
441#endif
442#if IK3_ENABLED
443 call test%run(test_setShuffled_D1_IK3_1, SK_"test_setShuffled_D1_IK3_1")
444#endif
445#if IK2_ENABLED
446 call test%run(test_setShuffled_D1_IK2_1, SK_"test_setShuffled_D1_IK2_1")
447#endif
448#if IK1_ENABLED
449 call test%run(test_setShuffled_D1_IK1_1, SK_"test_setShuffled_D1_IK1_1")
450#endif
451
452 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
454#if LK5_ENABLED
455 call test%run(test_setShuffled_D1_LK5_1, SK_"test_setShuffled_D1_LK5_1")
456#endif
457#if LK4_ENABLED
458 call test%run(test_setShuffled_D1_LK4_1, SK_"test_setShuffled_D1_LK4_1")
459#endif
460#if LK3_ENABLED
461 call test%run(test_setShuffled_D1_LK3_1, SK_"test_setShuffled_D1_LK3_1")
462#endif
463#if LK2_ENABLED
464 call test%run(test_setShuffled_D1_LK2_1, SK_"test_setShuffled_D1_LK2_1")
465#endif
466#if LK1_ENABLED
467 call test%run(test_setShuffled_D1_LK1_1, SK_"test_setShuffled_D1_LK1_1")
468#endif
469
470 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
471
472#if CK5_ENABLED
473 call test%run(test_setShuffled_D1_CK5_1, SK_"test_setShuffled_D1_CK5_1")
474#endif
475#if CK4_ENABLED
476 call test%run(test_setShuffled_D1_CK4_1, SK_"test_setShuffled_D1_CK4_1")
477#endif
478#if CK3_ENABLED
479 call test%run(test_setShuffled_D1_CK3_1, SK_"test_setShuffled_D1_CK3_1")
480#endif
481#if CK2_ENABLED
482 call test%run(test_setShuffled_D1_CK2_1, SK_"test_setShuffled_D1_CK2_1")
483#endif
484#if CK1_ENABLED
485 call test%run(test_setShuffled_D1_CK1_1, SK_"test_setShuffled_D1_CK1_1")
486#endif
487
488 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489
490#if RK5_ENABLED
491 call test%run(test_setShuffled_D1_RK5_1, SK_"test_setShuffled_D1_RK5_1")
492#endif
493#if RK4_ENABLED
494 call test%run(test_setShuffled_D1_RK4_1, SK_"test_setShuffled_D1_RK4_1")
495#endif
496#if RK3_ENABLED
497 call test%run(test_setShuffled_D1_RK3_1, SK_"test_setShuffled_D1_RK3_1")
498#endif
499#if RK2_ENABLED
500 call test%run(test_setShuffled_D1_RK2_1, SK_"test_setShuffled_D1_RK2_1")
501#endif
502#if RK1_ENABLED
503 call test%run(test_setShuffled_D1_RK1_1, SK_"test_setShuffled_D1_RK1_1")
504#endif
505
506 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507
508 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511 call test%summarize()
512
513 end subroutine setTest
514
515!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516
517end module test_pm_arrayShuffle
pm_arrayShuffle
This module contains procedures and generic interfaces for shuffling arrays of various types.
Definition: pm_arrayShuffle.F90:56
pm_arrayShuffle::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayShuffle.F90:67
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::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_arrayShuffle
This module contains tests of the module pm_arrayShuffle.
Definition: test_pm_arrayShuffle.F90:27
test_pm_arrayShuffle::test
type(test_type) test
Definition: test_pm_arrayShuffle.F90:36
test_pm_arrayShuffle::setTest
subroutine setTest()
Definition: test_pm_arrayShuffle.F90:277
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