Line data Source code
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 :
17 : !> \brief
18 : !> This module contains tests of the module [pm_arrayShuffle](@ref pm_arrayShuffle).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : module 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 :
272 : contains
273 :
274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275 :
276 1 : subroutine setTest()
277 :
278 1 : 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 1 : 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 1 : call test%run(test_getShuffled_D1_SK1_1, SK_"test_getShuffled_D1_SK1_1")
318 : #endif
319 :
320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321 :
322 : #if IK5_ENABLED
323 1 : call test%run(test_getShuffled_D1_IK5_1, SK_"test_getShuffled_D1_IK5_1")
324 : #endif
325 : #if IK4_ENABLED
326 1 : call test%run(test_getShuffled_D1_IK4_1, SK_"test_getShuffled_D1_IK4_1")
327 : #endif
328 : #if IK3_ENABLED
329 1 : call test%run(test_getShuffled_D1_IK3_1, SK_"test_getShuffled_D1_IK3_1")
330 : #endif
331 : #if IK2_ENABLED
332 1 : call test%run(test_getShuffled_D1_IK2_1, SK_"test_getShuffled_D1_IK2_1")
333 : #endif
334 : #if IK1_ENABLED
335 1 : call test%run(test_getShuffled_D1_IK1_1, SK_"test_getShuffled_D1_IK1_1")
336 : #endif
337 :
338 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
339 :
340 : #if LK5_ENABLED
341 1 : call test%run(test_getShuffled_D1_LK5_1, SK_"test_getShuffled_D1_LK5_1")
342 : #endif
343 : #if LK4_ENABLED
344 1 : call test%run(test_getShuffled_D1_LK4_1, SK_"test_getShuffled_D1_LK4_1")
345 : #endif
346 : #if LK3_ENABLED
347 1 : call test%run(test_getShuffled_D1_LK3_1, SK_"test_getShuffled_D1_LK3_1")
348 : #endif
349 : #if LK2_ENABLED
350 1 : call test%run(test_getShuffled_D1_LK2_1, SK_"test_getShuffled_D1_LK2_1")
351 : #endif
352 : #if LK1_ENABLED
353 1 : 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 1 : call test%run(test_getShuffled_D1_CK4_1, SK_"test_getShuffled_D1_CK4_1")
363 : #endif
364 : #if CK3_ENABLED
365 1 : call test%run(test_getShuffled_D1_CK3_1, SK_"test_getShuffled_D1_CK3_1")
366 : #endif
367 : #if CK2_ENABLED
368 1 : call test%run(test_getShuffled_D1_CK2_1, SK_"test_getShuffled_D1_CK2_1")
369 : #endif
370 : #if CK1_ENABLED
371 1 : 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 1 : call test%run(test_getShuffled_D1_RK4_1, SK_"test_getShuffled_D1_RK4_1")
381 : #endif
382 : #if RK3_ENABLED
383 1 : call test%run(test_getShuffled_D1_RK3_1, SK_"test_getShuffled_D1_RK3_1")
384 : #endif
385 : #if RK2_ENABLED
386 1 : call test%run(test_getShuffled_D1_RK2_1, SK_"test_getShuffled_D1_RK2_1")
387 : #endif
388 : #if RK1_ENABLED
389 1 : 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 1 : 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 1 : call test%run(test_setShuffled_D1_SK1_1, SK_"test_setShuffled_D1_SK1_1")
432 : #endif
433 :
434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435 :
436 : #if IK5_ENABLED
437 1 : call test%run(test_setShuffled_D1_IK5_1, SK_"test_setShuffled_D1_IK5_1")
438 : #endif
439 : #if IK4_ENABLED
440 1 : call test%run(test_setShuffled_D1_IK4_1, SK_"test_setShuffled_D1_IK4_1")
441 : #endif
442 : #if IK3_ENABLED
443 1 : call test%run(test_setShuffled_D1_IK3_1, SK_"test_setShuffled_D1_IK3_1")
444 : #endif
445 : #if IK2_ENABLED
446 1 : call test%run(test_setShuffled_D1_IK2_1, SK_"test_setShuffled_D1_IK2_1")
447 : #endif
448 : #if IK1_ENABLED
449 1 : call test%run(test_setShuffled_D1_IK1_1, SK_"test_setShuffled_D1_IK1_1")
450 : #endif
451 :
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 :
454 : #if LK5_ENABLED
455 1 : call test%run(test_setShuffled_D1_LK5_1, SK_"test_setShuffled_D1_LK5_1")
456 : #endif
457 : #if LK4_ENABLED
458 1 : call test%run(test_setShuffled_D1_LK4_1, SK_"test_setShuffled_D1_LK4_1")
459 : #endif
460 : #if LK3_ENABLED
461 1 : call test%run(test_setShuffled_D1_LK3_1, SK_"test_setShuffled_D1_LK3_1")
462 : #endif
463 : #if LK2_ENABLED
464 1 : call test%run(test_setShuffled_D1_LK2_1, SK_"test_setShuffled_D1_LK2_1")
465 : #endif
466 : #if LK1_ENABLED
467 1 : 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 1 : call test%run(test_setShuffled_D1_CK4_1, SK_"test_setShuffled_D1_CK4_1")
477 : #endif
478 : #if CK3_ENABLED
479 1 : call test%run(test_setShuffled_D1_CK3_1, SK_"test_setShuffled_D1_CK3_1")
480 : #endif
481 : #if CK2_ENABLED
482 1 : call test%run(test_setShuffled_D1_CK2_1, SK_"test_setShuffled_D1_CK2_1")
483 : #endif
484 : #if CK1_ENABLED
485 1 : 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 1 : call test%run(test_setShuffled_D1_RK4_1, SK_"test_setShuffled_D1_RK4_1")
495 : #endif
496 : #if RK3_ENABLED
497 1 : call test%run(test_setShuffled_D1_RK3_1, SK_"test_setShuffled_D1_RK3_1")
498 : #endif
499 : #if RK2_ENABLED
500 1 : call test%run(test_setShuffled_D1_RK2_1, SK_"test_setShuffled_D1_RK2_1")
501 : #endif
502 : #if RK1_ENABLED
503 1 : call test%run(test_setShuffled_D1_RK1_1, SK_"test_setShuffled_D1_RK1_1")
504 : #endif
505 :
506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507 :
508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511 1 : call test%summarize()
512 :
513 1 : end subroutine setTest
514 :
515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 :
517 : end module test_pm_arrayShuffle
|
