ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arraySelect.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
19
20module test_pm_arraySelect
21
22 use pm_arraySelect
23 use pm_test, only: test_type, LK
24 use pm_kind, only: IK, RK
25 implicit none
26
27 private
28 public :: setTest
29 type(test_type) :: test
30
31!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32
33 interface
34
35 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36
37#if SK5_ENABLED
38 module function test_getSelected_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
39#endif
40#if SK4_ENABLED
41 module function test_getSelected_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
42#endif
43#if SK3_ENABLED
44 module function test_getSelected_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
45#endif
46#if SK2_ENABLED
47 module function test_getSelected_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
48#endif
49#if SK1_ENABLED
50 module function test_getSelected_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
51#endif
52
53 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54
55#if SK5_ENABLED
56 module function test_getSelected_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
57#endif
58#if SK4_ENABLED
59 module function test_getSelected_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
60#endif
61#if SK3_ENABLED
62 module function test_getSelected_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
63#endif
64#if SK2_ENABLED
65 module function test_getSelected_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
66#endif
67#if SK1_ENABLED
68 module function test_getSelected_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
69#endif
70
71 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
72
73#if IK5_ENABLED
74 module function test_getSelected_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
75#endif
76#if IK4_ENABLED
77 module function test_getSelected_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
78#endif
79#if IK3_ENABLED
80 module function test_getSelected_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
81#endif
82#if IK2_ENABLED
83 module function test_getSelected_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
84#endif
85#if IK1_ENABLED
86 module function test_getSelected_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
87#endif
88
89 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90
91#if LK5_ENABLED
92 module function test_getSelected_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
93#endif
94#if LK4_ENABLED
95 module function test_getSelected_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
96#endif
97#if LK3_ENABLED
98 module function test_getSelected_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
99#endif
100#if LK2_ENABLED
101 module function test_getSelected_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
102#endif
103#if LK1_ENABLED
104 module function test_getSelected_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
105#endif
106
107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108
109#if CK5_ENABLED
110 module function test_getSelected_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
111#endif
112#if CK4_ENABLED
113 module function test_getSelected_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
114#endif
115#if CK3_ENABLED
116 module function test_getSelected_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
117#endif
118#if CK2_ENABLED
119 module function test_getSelected_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
120#endif
121#if CK1_ENABLED
122 module function test_getSelected_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
123#endif
124
125 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
126
127#if RK5_ENABLED
128 module function test_getSelected_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
129#endif
130#if RK4_ENABLED
131 module function test_getSelected_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
132#endif
133#if RK3_ENABLED
134 module function test_getSelected_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
135#endif
136#if RK2_ENABLED
137 module function test_getSelected_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
138#endif
139#if RK1_ENABLED
140 module function test_getSelected_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
141#endif
142
143 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144
145#if SK5_ENABLED
146 module function test_getSelected_D1_PSSK5_1 () result(assertion); logical(LK) :: assertion; end function
147#endif
148#if SK4_ENABLED
149 module function test_getSelected_D1_PSSK4_1 () result(assertion); logical(LK) :: assertion; end function
150#endif
151#if SK3_ENABLED
152 module function test_getSelected_D1_PSSK3_1 () result(assertion); logical(LK) :: assertion; end function
153#endif
154#if SK2_ENABLED
155 module function test_getSelected_D1_PSSK2_1 () result(assertion); logical(LK) :: assertion; end function
156#endif
157#if SK1_ENABLED
158 module function test_getSelected_D1_PSSK1_1 () result(assertion); logical(LK) :: assertion; end function
159#endif
160
161 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162
163 end interface
164
165!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166
167 interface
168
169 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170
171#if SK5_ENABLED
172 module function test_setSelected_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
173#endif
174#if SK4_ENABLED
175 module function test_setSelected_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
176#endif
177#if SK3_ENABLED
178 module function test_setSelected_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
179#endif
180#if SK2_ENABLED
181 module function test_setSelected_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
182#endif
183#if SK1_ENABLED
184 module function test_setSelected_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
185#endif
186
187 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188
189#if SK5_ENABLED
190 module function test_setSelected_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
191#endif
192#if SK4_ENABLED
193 module function test_setSelected_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
194#endif
195#if SK3_ENABLED
196 module function test_setSelected_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
197#endif
198#if SK2_ENABLED
199 module function test_setSelected_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
200#endif
201#if SK1_ENABLED
202 module function test_setSelected_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
203#endif
204
205 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
206
207#if IK5_ENABLED
208 module function test_setSelected_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
209#endif
210#if IK4_ENABLED
211 module function test_setSelected_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
212#endif
213#if IK3_ENABLED
214 module function test_setSelected_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
215#endif
216#if IK2_ENABLED
217 module function test_setSelected_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
218#endif
219#if IK1_ENABLED
220 module function test_setSelected_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
221#endif
222
223 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
224
225#if LK5_ENABLED
226 module function test_setSelected_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
227#endif
228#if LK4_ENABLED
229 module function test_setSelected_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
230#endif
231#if LK3_ENABLED
232 module function test_setSelected_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
233#endif
234#if LK2_ENABLED
235 module function test_setSelected_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
236#endif
237#if LK1_ENABLED
238 module function test_setSelected_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
239#endif
240
241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
242
243#if CK5_ENABLED
244 module function test_setSelected_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
245#endif
246#if CK4_ENABLED
247 module function test_setSelected_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
248#endif
249#if CK3_ENABLED
250 module function test_setSelected_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
251#endif
252#if CK2_ENABLED
253 module function test_setSelected_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
254#endif
255#if CK1_ENABLED
256 module function test_setSelected_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
257#endif
258
259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260
261#if RK5_ENABLED
262 module function test_setSelected_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
263#endif
264#if RK4_ENABLED
265 module function test_setSelected_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
266#endif
267#if RK3_ENABLED
268 module function test_setSelected_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
269#endif
270#if RK2_ENABLED
271 module function test_setSelected_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
272#endif
273#if RK1_ENABLED
274 module function test_setSelected_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
275#endif
276
277 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
278
279#if SK5_ENABLED
280 module function test_setSelected_D1_PSSK5_1 () result(assertion); logical(LK) :: assertion; end function
281#endif
282#if SK4_ENABLED
283 module function test_setSelected_D1_PSSK4_1 () result(assertion); logical(LK) :: assertion; end function
284#endif
285#if SK3_ENABLED
286 module function test_setSelected_D1_PSSK3_1 () result(assertion); logical(LK) :: assertion; end function
287#endif
288#if SK2_ENABLED
289 module function test_setSelected_D1_PSSK2_1 () result(assertion); logical(LK) :: assertion; end function
290#endif
291#if SK1_ENABLED
292 module function test_setSelected_D1_PSSK1_1 () result(assertion); logical(LK) :: assertion; end function
293#endif
294
295 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
296
297 end interface
298
299!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
300
301contains
302
303!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304
305 subroutine setTest()
306
307 test = test_type(MODULE_NAME)
308
309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312
313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314
315#if SK5_ENABLED
316 call test%run(test_getSelected_D0_SK5_1, SK_"test_getSelected_D0_SK5_1")
317#endif
318#if SK4_ENABLED
319 call test%run(test_getSelected_D0_SK4_1, SK_"test_getSelected_D0_SK4_1")
320#endif
321#if SK3_ENABLED
322 call test%run(test_getSelected_D0_SK3_1, SK_"test_getSelected_D0_SK3_1")
323#endif
324#if SK2_ENABLED
325 call test%run(test_getSelected_D0_SK2_1, SK_"test_getSelected_D0_SK2_1")
326#endif
327#if SK1_ENABLED
328 call test%run(test_getSelected_D0_SK1_1, SK_"test_getSelected_D0_SK1_1")
329#endif
330
331 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
332
333#if SK5_ENABLED
334 call test%run(test_getSelected_D1_SK5_1, SK_"test_getSelected_D1_SK5_1")
335#endif
336#if SK4_ENABLED
337 call test%run(test_getSelected_D1_SK4_1, SK_"test_getSelected_D1_SK4_1")
338#endif
339#if SK3_ENABLED
340 call test%run(test_getSelected_D1_SK3_1, SK_"test_getSelected_D1_SK3_1")
341#endif
342#if SK2_ENABLED
343 call test%run(test_getSelected_D1_SK2_1, SK_"test_getSelected_D1_SK2_1")
344#endif
345#if SK1_ENABLED
346 call test%run(test_getSelected_D1_SK1_1, SK_"test_getSelected_D1_SK1_1")
347#endif
348
349 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
350
351#if IK5_ENABLED
352 call test%run(test_getSelected_D1_IK5_1, SK_"test_getSelected_D1_IK5_1")
353#endif
354#if IK4_ENABLED
355 call test%run(test_getSelected_D1_IK4_1, SK_"test_getSelected_D1_IK4_1")
356#endif
357#if IK3_ENABLED
358 call test%run(test_getSelected_D1_IK3_1, SK_"test_getSelected_D1_IK3_1")
359#endif
360#if IK2_ENABLED
361 call test%run(test_getSelected_D1_IK2_1, SK_"test_getSelected_D1_IK2_1")
362#endif
363#if IK1_ENABLED
364 call test%run(test_getSelected_D1_IK1_1, SK_"test_getSelected_D1_IK1_1")
365#endif
366
367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
368
369#if LK5_ENABLED
370 call test%run(test_getSelected_D1_LK5_1, SK_"test_getSelected_D1_LK5_1")
371#endif
372#if LK4_ENABLED
373 call test%run(test_getSelected_D1_LK4_1, SK_"test_getSelected_D1_LK4_1")
374#endif
375#if LK3_ENABLED
376 call test%run(test_getSelected_D1_LK3_1, SK_"test_getSelected_D1_LK3_1")
377#endif
378#if LK2_ENABLED
379 call test%run(test_getSelected_D1_LK2_1, SK_"test_getSelected_D1_LK2_1")
380#endif
381#if LK1_ENABLED
382 call test%run(test_getSelected_D1_LK1_1, SK_"test_getSelected_D1_LK1_1")
383#endif
384
385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386
387#if CK5_ENABLED
388 call test%run(test_getSelected_D1_CK5_1, SK_"test_getSelected_D1_CK5_1")
389#endif
390#if CK4_ENABLED
391 call test%run(test_getSelected_D1_CK4_1, SK_"test_getSelected_D1_CK4_1")
392#endif
393#if CK3_ENABLED
394 call test%run(test_getSelected_D1_CK3_1, SK_"test_getSelected_D1_CK3_1")
395#endif
396#if CK2_ENABLED
397 call test%run(test_getSelected_D1_CK2_1, SK_"test_getSelected_D1_CK2_1")
398#endif
399#if CK1_ENABLED
400 call test%run(test_getSelected_D1_CK1_1, SK_"test_getSelected_D1_CK1_1")
401#endif
402
403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404
405#if RK5_ENABLED
406 call test%run(test_getSelected_D1_RK5_1, SK_"test_getSelected_D1_RK5_1")
407#endif
408#if RK4_ENABLED
409 call test%run(test_getSelected_D1_RK4_1, SK_"test_getSelected_D1_RK4_1")
410#endif
411#if RK3_ENABLED
412 call test%run(test_getSelected_D1_RK3_1, SK_"test_getSelected_D1_RK3_1")
413#endif
414#if RK2_ENABLED
415 call test%run(test_getSelected_D1_RK2_1, SK_"test_getSelected_D1_RK2_1")
416#endif
417#if RK1_ENABLED
418 call test%run(test_getSelected_D1_RK1_1, SK_"test_getSelected_D1_RK1_1")
419#endif
420
421 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
422#if 0
423#if SK5_ENABLED
424 call test%run(test_getSelected_D1_PSSK5_1, SK_"test_getSelected_D1_PSSK5_1")
425#endif
426#if SK4_ENABLED
427 call test%run(test_getSelected_D1_PSSK4_1, SK_"test_getSelected_D1_PSSK4_1")
428#endif
429#if SK3_ENABLED
430 call test%run(test_getSelected_D1_PSSK3_1, SK_"test_getSelected_D1_PSSK3_1")
431#endif
432#if SK2_ENABLED
433 call test%run(test_getSelected_D1_PSSK2_1, SK_"test_getSelected_D1_PSSK2_1")
434#endif
435#if SK1_ENABLED
436 call test%run(test_getSelected_D1_PSSK1_1, SK_"test_getSelected_D1_PSSK1_1")
437#endif
438#endif
439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440
441 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
443 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
444
445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446
447#if SK5_ENABLED
448 call test%run(test_setSelected_D0_SK5_1, SK_"test_setSelected_D0_SK5_1")
449#endif
450#if SK4_ENABLED
451 call test%run(test_setSelected_D0_SK4_1, SK_"test_setSelected_D0_SK4_1")
452#endif
453#if SK3_ENABLED
454 call test%run(test_setSelected_D0_SK3_1, SK_"test_setSelected_D0_SK3_1")
455#endif
456#if SK2_ENABLED
457 call test%run(test_setSelected_D0_SK2_1, SK_"test_setSelected_D0_SK2_1")
458#endif
459#if SK1_ENABLED
460 call test%run(test_setSelected_D0_SK1_1, SK_"test_setSelected_D0_SK1_1")
461#endif
462
463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464
465#if SK5_ENABLED
466 call test%run(test_setSelected_D1_SK5_1, SK_"test_setSelected_D1_SK5_1")
467#endif
468#if SK4_ENABLED
469 call test%run(test_setSelected_D1_SK4_1, SK_"test_setSelected_D1_SK4_1")
470#endif
471#if SK3_ENABLED
472 call test%run(test_setSelected_D1_SK3_1, SK_"test_setSelected_D1_SK3_1")
473#endif
474#if SK2_ENABLED
475 call test%run(test_setSelected_D1_SK2_1, SK_"test_setSelected_D1_SK2_1")
476#endif
477#if SK1_ENABLED
478 call test%run(test_setSelected_D1_SK1_1, SK_"test_setSelected_D1_SK1_1")
479#endif
480
481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
482
483#if IK5_ENABLED
484 call test%run(test_setSelected_D1_IK5_1, SK_"test_setSelected_D1_IK5_1")
485#endif
486#if IK4_ENABLED
487 call test%run(test_setSelected_D1_IK4_1, SK_"test_setSelected_D1_IK4_1")
488#endif
489#if IK3_ENABLED
490 call test%run(test_setSelected_D1_IK3_1, SK_"test_setSelected_D1_IK3_1")
491#endif
492#if IK2_ENABLED
493 call test%run(test_setSelected_D1_IK2_1, SK_"test_setSelected_D1_IK2_1")
494#endif
495#if IK1_ENABLED
496 call test%run(test_setSelected_D1_IK1_1, SK_"test_setSelected_D1_IK1_1")
497#endif
498
499 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
500
501#if LK5_ENABLED
502 call test%run(test_setSelected_D1_LK5_1, SK_"test_setSelected_D1_LK5_1")
503#endif
504#if LK4_ENABLED
505 call test%run(test_setSelected_D1_LK4_1, SK_"test_setSelected_D1_LK4_1")
506#endif
507#if LK3_ENABLED
508 call test%run(test_setSelected_D1_LK3_1, SK_"test_setSelected_D1_LK3_1")
509#endif
510#if LK2_ENABLED
511 call test%run(test_setSelected_D1_LK2_1, SK_"test_setSelected_D1_LK2_1")
512#endif
513#if LK1_ENABLED
514 call test%run(test_setSelected_D1_LK1_1, SK_"test_setSelected_D1_LK1_1")
515#endif
516
517 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518
519#if CK5_ENABLED
520 call test%run(test_setSelected_D1_CK5_1, SK_"test_setSelected_D1_CK5_1")
521#endif
522#if CK4_ENABLED
523 call test%run(test_setSelected_D1_CK4_1, SK_"test_setSelected_D1_CK4_1")
524#endif
525#if CK3_ENABLED
526 call test%run(test_setSelected_D1_CK3_1, SK_"test_setSelected_D1_CK3_1")
527#endif
528#if CK2_ENABLED
529 call test%run(test_setSelected_D1_CK2_1, SK_"test_setSelected_D1_CK2_1")
530#endif
531#if CK1_ENABLED
532 call test%run(test_setSelected_D1_CK1_1, SK_"test_setSelected_D1_CK1_1")
533#endif
534
535 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
536
537#if RK5_ENABLED
538 call test%run(test_setSelected_D1_RK5_1, SK_"test_setSelected_D1_RK5_1")
539#endif
540#if RK4_ENABLED
541 call test%run(test_setSelected_D1_RK4_1, SK_"test_setSelected_D1_RK4_1")
542#endif
543#if RK3_ENABLED
544 call test%run(test_setSelected_D1_RK3_1, SK_"test_setSelected_D1_RK3_1")
545#endif
546#if RK2_ENABLED
547 call test%run(test_setSelected_D1_RK2_1, SK_"test_setSelected_D1_RK2_1")
548#endif
549#if RK1_ENABLED
550 call test%run(test_setSelected_D1_RK1_1, SK_"test_setSelected_D1_RK1_1")
551#endif
552
553 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554#if 0
555#if SK5_ENABLED
556 call test%run(test_setSelected_D1_PSSK5_1, SK_"test_setSelected_D1_PSSK5_1")
557#endif
558#if SK4_ENABLED
559 call test%run(test_setSelected_D1_PSSK4_1, SK_"test_setSelected_D1_PSSK4_1")
560#endif
561#if SK3_ENABLED
562 call test%run(test_setSelected_D1_PSSK3_1, SK_"test_setSelected_D1_PSSK3_1")
563#endif
564#if SK2_ENABLED
565 call test%run(test_setSelected_D1_PSSK2_1, SK_"test_setSelected_D1_PSSK2_1")
566#endif
567#if SK1_ENABLED
568 call test%run(test_setSelected_D1_PSSK1_1, SK_"test_setSelected_D1_PSSK1_1")
569#endif
570#endif
571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572
573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576 call test%summarize()
577
578 end subroutine setTest
579
580!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581
582end module test_pm_arraySelect
pm_arraySelect
This module contains procedures and generic interfaces for selecting the th smallest element in unsor...
Definition: pm_arraySelect.F90:47
pm_arraySelect::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arraySelect.F90:53
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_arraySelect
This module contains tests of the module pm_arraySelect.
Definition: test_pm_arraySelect.F90:20
test_pm_arraySelect::setTest
subroutine setTest()
Definition: test_pm_arraySelect.F90:306
test_pm_arraySelect::test
type(test_type) test
Definition: test_pm_arraySelect.F90:29
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