ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_distUnif.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_distUnif
28
29 use pm_distUnif
30 use pm_err, only: err_type
31 use pm_test, only: test_type, LK
32
33 implicit none
34
35 private
36 public :: setTest
37 type(test_type) :: test
38
39!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40
41 interface
42#if IK5_ENABLED
43 module function test_getUnifCDF_IK3() result(assertion); logical(LK) :: assertion; end function
44#endif
45#if IK4_ENABLED
46 module function test_getUnifCDF_IK3() result(assertion); logical(LK) :: assertion; end function
47#endif
48#if IK3_ENABLED
49 module function test_getUnifCDF_IK3() result(assertion); logical(LK) :: assertion; end function
50#endif
51#if IK2_ENABLED
52 module function test_getUnifCDF_IK2() result(assertion); logical(LK) :: assertion; end function
53#endif
54#if IK1_ENABLED
55 module function test_getUnifCDF_IK1() result(assertion); logical(LK) :: assertion; end function
56#endif
57 end interface
58
59 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60
61 interface
62#if CK5_ENABLED
63 module function test_getUnifCDF_CK3() result(assertion); logical(LK) :: assertion; end function
64#endif
65#if CK4_ENABLED
66 module function test_getUnifCDF_CK3() result(assertion); logical(LK) :: assertion; end function
67#endif
68#if CK3_ENABLED
69 module function test_getUnifCDF_CK3() result(assertion); logical(LK) :: assertion; end function
70#endif
71#if CK2_ENABLED
72 module function test_getUnifCDF_CK2() result(assertion); logical(LK) :: assertion; end function
73#endif
74#if CK1_ENABLED
75 module function test_getUnifCDF_CK1() result(assertion); logical(LK) :: assertion; end function
76#endif
77 end interface
78
79 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80
81 interface
82#if RK5_ENABLED
83 module function test_getUnifCDF_RK3() result(assertion); logical(LK) :: assertion; end function
84#endif
85#if RK4_ENABLED
86 module function test_getUnifCDF_RK3() result(assertion); logical(LK) :: assertion; end function
87#endif
88#if RK3_ENABLED
89 module function test_getUnifCDF_RK3() result(assertion); logical(LK) :: assertion; end function
90#endif
91#if RK2_ENABLED
92 module function test_getUnifCDF_RK2() result(assertion); logical(LK) :: assertion; end function
93#endif
94#if RK1_ENABLED
95 module function test_getUnifCDF_RK1() result(assertion); logical(LK) :: assertion; end function
96#endif
97 end interface
98
99!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100
101 interface
102#if RK5_ENABLED && IK5_ENABLED
103 module function test_setUnifCDF_RK5_IK5() result(assertion); logical(LK) :: assertion; end function
104#endif
105#if RK5_ENABLED && IK4_ENABLED
106 module function test_setUnifCDF_RK5_IK4() result(assertion); logical(LK) :: assertion; end function
107#endif
108#if RK5_ENABLED && IK3_ENABLED
109 module function test_setUnifCDF_RK5_IK3() result(assertion); logical(LK) :: assertion; end function
110#endif
111#if RK5_ENABLED && IK2_ENABLED
112 module function test_setUnifCDF_RK5_IK2() result(assertion); logical(LK) :: assertion; end function
113#endif
114#if RK5_ENABLED && IK1_ENABLED
115 module function test_setUnifCDF_RK5_IK1() result(assertion); logical(LK) :: assertion; end function
116#endif
117 end interface
118
119 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
120
121 interface
122#if RK4_ENABLED && IK5_ENABLED
123 module function test_setUnifCDF_RK4_IK5() result(assertion); logical(LK) :: assertion; end function
124#endif
125#if RK4_ENABLED && IK4_ENABLED
126 module function test_setUnifCDF_RK4_IK4() result(assertion); logical(LK) :: assertion; end function
127#endif
128#if RK4_ENABLED && IK3_ENABLED
129 module function test_setUnifCDF_RK4_IK3() result(assertion); logical(LK) :: assertion; end function
130#endif
131#if RK4_ENABLED && IK2_ENABLED
132 module function test_setUnifCDF_RK4_IK2() result(assertion); logical(LK) :: assertion; end function
133#endif
134#if RK4_ENABLED && IK1_ENABLED
135 module function test_setUnifCDF_RK4_IK1() result(assertion); logical(LK) :: assertion; end function
136#endif
137 end interface
138
139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
141 interface
142#if RK3_ENABLED && IK5_ENABLED
143 module function test_setUnifCDF_RK3_IK5() result(assertion); logical(LK) :: assertion; end function
144#endif
145#if RK3_ENABLED && IK4_ENABLED
146 module function test_setUnifCDF_RK3_IK4() result(assertion); logical(LK) :: assertion; end function
147#endif
148#if RK3_ENABLED && IK3_ENABLED
149 module function test_setUnifCDF_RK3_IK3() result(assertion); logical(LK) :: assertion; end function
150#endif
151#if RK3_ENABLED && IK2_ENABLED
152 module function test_setUnifCDF_RK3_IK2() result(assertion); logical(LK) :: assertion; end function
153#endif
154#if RK3_ENABLED && IK1_ENABLED
155 module function test_setUnifCDF_RK3_IK1() result(assertion); logical(LK) :: assertion; end function
156#endif
157 end interface
158
159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
160
161 interface
162#if RK2_ENABLED && IK5_ENABLED
163 module function test_setUnifCDF_RK2_IK5() result(assertion); logical(LK) :: assertion; end function
164#endif
165#if RK2_ENABLED && IK4_ENABLED
166 module function test_setUnifCDF_RK2_IK4() result(assertion); logical(LK) :: assertion; end function
167#endif
168#if RK2_ENABLED && IK3_ENABLED
169 module function test_setUnifCDF_RK2_IK3() result(assertion); logical(LK) :: assertion; end function
170#endif
171#if RK2_ENABLED && IK2_ENABLED
172 module function test_setUnifCDF_RK2_IK2() result(assertion); logical(LK) :: assertion; end function
173#endif
174#if RK2_ENABLED && IK1_ENABLED
175 module function test_setUnifCDF_RK2_IK1() result(assertion); logical(LK) :: assertion; end function
176#endif
177 end interface
178
179 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
180
181 interface
182#if RK1_ENABLED && IK5_ENABLED
183 module function test_setUnifCDF_RK1_IK5() result(assertion); logical(LK) :: assertion; end function
184#endif
185#if RK1_ENABLED && IK4_ENABLED
186 module function test_setUnifCDF_RK1_IK4() result(assertion); logical(LK) :: assertion; end function
187#endif
188#if RK1_ENABLED && IK3_ENABLED
189 module function test_setUnifCDF_RK1_IK3() result(assertion); logical(LK) :: assertion; end function
190#endif
191#if RK1_ENABLED && IK2_ENABLED
192 module function test_setUnifCDF_RK1_IK2() result(assertion); logical(LK) :: assertion; end function
193#endif
194#if RK1_ENABLED && IK1_ENABLED
195 module function test_setUnifCDF_RK1_IK1() result(assertion); logical(LK) :: assertion; end function
196#endif
197 end interface
198
199 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200
201 interface
202#if CK5_ENABLED
203 module function test_setUnifCDF_CK3() result(assertion); logical(LK) :: assertion; end function
204#endif
205#if CK4_ENABLED
206 module function test_setUnifCDF_CK3() result(assertion); logical(LK) :: assertion; end function
207#endif
208#if CK3_ENABLED
209 module function test_setUnifCDF_CK3() result(assertion); logical(LK) :: assertion; end function
210#endif
211#if CK2_ENABLED
212 module function test_setUnifCDF_CK2() result(assertion); logical(LK) :: assertion; end function
213#endif
214#if CK1_ENABLED
215 module function test_setUnifCDF_CK1() result(assertion); logical(LK) :: assertion; end function
216#endif
217 end interface
218
219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
220
221 interface
222#if RK5_ENABLED
223 module function test_setUnifCDF_RK3() result(assertion); logical(LK) :: assertion; end function
224#endif
225#if RK4_ENABLED
226 module function test_setUnifCDF_RK3() result(assertion); logical(LK) :: assertion; end function
227#endif
228#if RK3_ENABLED
229 module function test_setUnifCDF_RK3() result(assertion); logical(LK) :: assertion; end function
230#endif
231#if RK2_ENABLED
232 module function test_setUnifCDF_RK2() result(assertion); logical(LK) :: assertion; end function
233#endif
234#if RK1_ENABLED
235 module function test_setUnifCDF_RK1() result(assertion); logical(LK) :: assertion; end function
236#endif
237 end interface
238
239!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240
241 interface
242#if SK5_ENABLED
243 module function test_getUnifRand_SK5() result(assertion); logical(LK) :: assertion; end function
244#endif
245#if SK4_ENABLED
246 module function test_getUnifRand_SK4() result(assertion); logical(LK) :: assertion; end function
247#endif
248#if SK3_ENABLED
249 module function test_getUnifRand_SK3() result(assertion); logical(LK) :: assertion; end function
250#endif
251#if SK2_ENABLED
252 module function test_getUnifRand_SK2() result(assertion); logical(LK) :: assertion; end function
253#endif
254#if SK1_ENABLED
255 module function test_getUnifRand_SK1() result(assertion); logical(LK) :: assertion; end function
256#endif
257 end interface
258
259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260
261 interface
262#if IK5_ENABLED
263 module function test_getUnifRand_IK5() result(assertion); logical(LK) :: assertion; end function
264#endif
265#if IK4_ENABLED
266 module function test_getUnifRand_IK4() result(assertion); logical(LK) :: assertion; end function
267#endif
268#if IK3_ENABLED
269 module function test_getUnifRand_IK3() result(assertion); logical(LK) :: assertion; end function
270#endif
271#if IK2_ENABLED
272 module function test_getUnifRand_IK2() result(assertion); logical(LK) :: assertion; end function
273#endif
274#if IK1_ENABLED
275 module function test_getUnifRand_IK1() result(assertion); logical(LK) :: assertion; end function
276#endif
277 end interface
278
279 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
280
281 interface
282#if LK5_ENABLED
283 module function test_getUnifRand_LK5() result(assertion); logical(LK) :: assertion; end function
284#endif
285#if LK4_ENABLED
286 module function test_getUnifRand_LK4() result(assertion); logical(LK) :: assertion; end function
287#endif
288#if LK3_ENABLED
289 module function test_getUnifRand_LK3() result(assertion); logical(LK) :: assertion; end function
290#endif
291#if LK2_ENABLED
292 module function test_getUnifRand_LK2() result(assertion); logical(LK) :: assertion; end function
293#endif
294#if LK1_ENABLED
295 module function test_getUnifRand_LK1() result(assertion); logical(LK) :: assertion; end function
296#endif
297 end interface
298
299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
300
301 interface
302#if CK5_ENABLED
303 module function test_getUnifRand_CK5() result(assertion); logical(LK) :: assertion; end function
304#endif
305#if CK4_ENABLED
306 module function test_getUnifRand_CK4() result(assertion); logical(LK) :: assertion; end function
307#endif
308#if CK3_ENABLED
309 module function test_getUnifRand_CK3() result(assertion); logical(LK) :: assertion; end function
310#endif
311#if CK2_ENABLED
312 module function test_getUnifRand_CK2() result(assertion); logical(LK) :: assertion; end function
313#endif
314#if CK1_ENABLED
315 module function test_getUnifRand_CK1() result(assertion); logical(LK) :: assertion; end function
316#endif
317 end interface
318
319 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320
321 interface
322#if RK5_ENABLED
323 module function test_getUnifRand_RK5() result(assertion); logical(LK) :: assertion; end function
324#endif
325#if RK4_ENABLED
326 module function test_getUnifRand_RK4() result(assertion); logical(LK) :: assertion; end function
327#endif
328#if RK3_ENABLED
329 module function test_getUnifRand_RK3() result(assertion); logical(LK) :: assertion; end function
330#endif
331#if RK2_ENABLED
332 module function test_getUnifRand_RK2() result(assertion); logical(LK) :: assertion; end function
333#endif
334#if RK1_ENABLED
335 module function test_getUnifRand_RK1() result(assertion); logical(LK) :: assertion; end function
336#endif
337 end interface
338
339!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
340
341 interface
342#if SK5_ENABLED
343 module function test_setUnifRand_SK5() result(assertion); logical(LK) :: assertion; end function
344#endif
345#if SK4_ENABLED
346 module function test_setUnifRand_SK4() result(assertion); logical(LK) :: assertion; end function
347#endif
348#if SK3_ENABLED
349 module function test_setUnifRand_SK3() result(assertion); logical(LK) :: assertion; end function
350#endif
351#if SK2_ENABLED
352 module function test_setUnifRand_SK2() result(assertion); logical(LK) :: assertion; end function
353#endif
354#if SK1_ENABLED
355 module function test_setUnifRand_SK1() result(assertion); logical(LK) :: assertion; end function
356#endif
357 end interface
358
359 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
360
361 interface
362#if IK5_ENABLED
363 module function test_setUnifRand_IK5() result(assertion); logical(LK) :: assertion; end function
364#endif
365#if IK4_ENABLED
366 module function test_setUnifRand_IK4() result(assertion); logical(LK) :: assertion; end function
367#endif
368#if IK3_ENABLED
369 module function test_setUnifRand_IK3() result(assertion); logical(LK) :: assertion; end function
370#endif
371#if IK2_ENABLED
372 module function test_setUnifRand_IK2() result(assertion); logical(LK) :: assertion; end function
373#endif
374#if IK1_ENABLED
375 module function test_setUnifRand_IK1() result(assertion); logical(LK) :: assertion; end function
376#endif
377 end interface
378
379 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380
381 interface
382#if LK5_ENABLED
383 module function test_setUnifRand_LK5() result(assertion); logical(LK) :: assertion; end function
384#endif
385#if LK4_ENABLED
386 module function test_setUnifRand_LK4() result(assertion); logical(LK) :: assertion; end function
387#endif
388#if LK3_ENABLED
389 module function test_setUnifRand_LK3() result(assertion); logical(LK) :: assertion; end function
390#endif
391#if LK2_ENABLED
392 module function test_setUnifRand_LK2() result(assertion); logical(LK) :: assertion; end function
393#endif
394#if LK1_ENABLED
395 module function test_setUnifRand_LK1() result(assertion); logical(LK) :: assertion; end function
396#endif
397 end interface
398
399 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400
401 interface
402#if CK5_ENABLED
403 module function test_setUnifRand_CK5() result(assertion); logical(LK) :: assertion; end function
404#endif
405#if CK4_ENABLED
406 module function test_setUnifRand_CK4() result(assertion); logical(LK) :: assertion; end function
407#endif
408#if CK3_ENABLED
409 module function test_setUnifRand_CK3() result(assertion); logical(LK) :: assertion; end function
410#endif
411#if CK2_ENABLED
412 module function test_setUnifRand_CK2() result(assertion); logical(LK) :: assertion; end function
413#endif
414#if CK1_ENABLED
415 module function test_setUnifRand_CK1() result(assertion); logical(LK) :: assertion; end function
416#endif
417 end interface
418
419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
420
421 interface
422#if RK5_ENABLED
423 module function test_setUnifRand_RK5() result(assertion); logical(LK) :: assertion; end function
424#endif
425#if RK4_ENABLED
426 module function test_setUnifRand_RK4() result(assertion); logical(LK) :: assertion; end function
427#endif
428#if RK3_ENABLED
429 module function test_setUnifRand_RK3() result(assertion); logical(LK) :: assertion; end function
430#endif
431#if RK2_ENABLED
432 module function test_setUnifRand_RK2() result(assertion); logical(LK) :: assertion; end function
433#endif
434#if RK1_ENABLED
435 module function test_setUnifRand_RK1() result(assertion); logical(LK) :: assertion; end function
436#endif
437 end interface
438
439!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440
441contains
442
443!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
444
445 subroutine setTest()
446
447 test = test_type(MODULE_NAME)
448
449 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
450
451#if IK5_ENABLED
452 call test%run(test_getUnifCDF_IK5, SK_"test_getUnifCDF_IK5")
453#endif
454#if IK4_ENABLED
455 call test%run(test_getUnifCDF_IK4, SK_"test_getUnifCDF_IK4")
456#endif
457#if IK3_ENABLED
458 call test%run(test_getUnifCDF_IK3, SK_"test_getUnifCDF_IK3")
459#endif
460#if IK2_ENABLED
461 call test%run(test_getUnifCDF_IK2, SK_"test_getUnifCDF_IK2")
462#endif
463#if IK1_ENABLED
464 call test%run(test_getUnifCDF_IK1, SK_"test_getUnifCDF_IK1")
465#endif
466
467 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
468
469#if CK5_ENABLED
470 call test%run(test_getUnifCDF_CK5, SK_"test_getUnifCDF_CK5")
471#endif
472#if CK4_ENABLED
473 call test%run(test_getUnifCDF_CK4, SK_"test_getUnifCDF_CK4")
474#endif
475#if CK3_ENABLED
476 call test%run(test_getUnifCDF_CK3, SK_"test_getUnifCDF_CK3")
477#endif
478#if CK2_ENABLED
479 call test%run(test_getUnifCDF_CK2, SK_"test_getUnifCDF_CK2")
480#endif
481#if CK1_ENABLED
482 call test%run(test_getUnifCDF_CK1, SK_"test_getUnifCDF_CK1")
483#endif
484
485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
486
487#if RK5_ENABLED
488 call test%run(test_getUnifCDF_RK5, SK_"test_getUnifCDF_RK5")
489#endif
490#if RK4_ENABLED
491 call test%run(test_getUnifCDF_RK4, SK_"test_getUnifCDF_RK4")
492#endif
493#if RK3_ENABLED
494 call test%run(test_getUnifCDF_RK3, SK_"test_getUnifCDF_RK3")
495#endif
496#if RK2_ENABLED
497 call test%run(test_getUnifCDF_RK2, SK_"test_getUnifCDF_RK2")
498#endif
499#if RK1_ENABLED
500 call test%run(test_getUnifCDF_RK1, SK_"test_getUnifCDF_RK1")
501#endif
502
503 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
504
505#if RK5_ENABLED && IK5_ENABLED
506 call test%run(test_setUnifCDF_RK5_IK5, SK_"test_setUnifCDF_RK5_IK5")
507#endif
508#if RK5_ENABLED && IK4_ENABLED
509 call test%run(test_setUnifCDF_RK5_IK4, SK_"test_setUnifCDF_RK5_IK4")
510#endif
511#if RK5_ENABLED && IK3_ENABLED
512 call test%run(test_setUnifCDF_RK5_IK3, SK_"test_setUnifCDF_RK5_IK3")
513#endif
514#if RK5_ENABLED && IK2_ENABLED
515 call test%run(test_setUnifCDF_RK5_IK2, SK_"test_setUnifCDF_RK5_IK2")
516#endif
517#if RK5_ENABLED && IK1_ENABLED
518 call test%run(test_setUnifCDF_RK5_IK1, SK_"test_setUnifCDF_RK5_IK1")
519#endif
520
521 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522
523#if RK4_ENABLED && IK5_ENABLED
524 call test%run(test_setUnifCDF_RK4_IK5, SK_"test_setUnifCDF_RK4_IK5")
525#endif
526#if RK4_ENABLED && IK4_ENABLED
527 call test%run(test_setUnifCDF_RK4_IK4, SK_"test_setUnifCDF_RK4_IK4")
528#endif
529#if RK4_ENABLED && IK3_ENABLED
530 call test%run(test_setUnifCDF_RK4_IK3, SK_"test_setUnifCDF_RK4_IK3")
531#endif
532#if RK4_ENABLED && IK2_ENABLED
533 call test%run(test_setUnifCDF_RK4_IK2, SK_"test_setUnifCDF_RK4_IK2")
534#endif
535#if RK4_ENABLED && IK1_ENABLED
536 call test%run(test_setUnifCDF_RK4_IK1, SK_"test_setUnifCDF_RK4_IK1")
537#endif
538
539 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540
541#if RK3_ENABLED && IK5_ENABLED
542 call test%run(test_setUnifCDF_RK3_IK5, SK_"test_setUnifCDF_RK3_IK5")
543#endif
544#if RK3_ENABLED && IK4_ENABLED
545 call test%run(test_setUnifCDF_RK3_IK4, SK_"test_setUnifCDF_RK3_IK4")
546#endif
547#if RK3_ENABLED && IK3_ENABLED
548 call test%run(test_setUnifCDF_RK3_IK3, SK_"test_setUnifCDF_RK3_IK3")
549#endif
550#if RK3_ENABLED && IK2_ENABLED
551 call test%run(test_setUnifCDF_RK3_IK2, SK_"test_setUnifCDF_RK3_IK2")
552#endif
553#if RK3_ENABLED && IK1_ENABLED
554 call test%run(test_setUnifCDF_RK3_IK1, SK_"test_setUnifCDF_RK3_IK1")
555#endif
556
557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
558
559#if RK2_ENABLED && IK5_ENABLED
560 call test%run(test_setUnifCDF_RK2_IK5, SK_"test_setUnifCDF_RK2_IK5")
561#endif
562#if RK2_ENABLED && IK4_ENABLED
563 call test%run(test_setUnifCDF_RK2_IK4, SK_"test_setUnifCDF_RK2_IK4")
564#endif
565#if RK2_ENABLED && IK3_ENABLED
566 call test%run(test_setUnifCDF_RK2_IK3, SK_"test_setUnifCDF_RK2_IK3")
567#endif
568#if RK2_ENABLED && IK2_ENABLED
569 call test%run(test_setUnifCDF_RK2_IK2, SK_"test_setUnifCDF_RK2_IK2")
570#endif
571#if RK2_ENABLED && IK1_ENABLED
572 call test%run(test_setUnifCDF_RK2_IK1, SK_"test_setUnifCDF_RK2_IK1")
573#endif
574
575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576
577#if RK1_ENABLED && IK5_ENABLED
578 call test%run(test_setUnifCDF_RK1_IK5, SK_"test_setUnifCDF_RK1_IK5")
579#endif
580#if RK1_ENABLED && IK4_ENABLED
581 call test%run(test_setUnifCDF_RK1_IK4, SK_"test_setUnifCDF_RK1_IK4")
582#endif
583#if RK1_ENABLED && IK3_ENABLED
584 call test%run(test_setUnifCDF_RK1_IK3, SK_"test_setUnifCDF_RK1_IK3")
585#endif
586#if RK1_ENABLED && IK2_ENABLED
587 call test%run(test_setUnifCDF_RK1_IK2, SK_"test_setUnifCDF_RK1_IK2")
588#endif
589#if RK1_ENABLED && IK1_ENABLED
590 call test%run(test_setUnifCDF_RK1_IK1, SK_"test_setUnifCDF_RK1_IK1")
591#endif
592
593 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
594
595#if CK5_ENABLED
596 call test%run(test_setUnifCDF_CK5, SK_"test_setUnifCDF_CK5")
597#endif
598#if CK4_ENABLED
599 call test%run(test_setUnifCDF_CK4, SK_"test_setUnifCDF_CK4")
600#endif
601#if CK3_ENABLED
602 call test%run(test_setUnifCDF_CK3, SK_"test_setUnifCDF_CK3")
603#endif
604#if CK2_ENABLED
605 call test%run(test_setUnifCDF_CK2, SK_"test_setUnifCDF_CK2")
606#endif
607#if CK1_ENABLED
608 call test%run(test_setUnifCDF_CK1, SK_"test_setUnifCDF_CK1")
609#endif
610
611 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
612
613#if RK5_ENABLED
614 call test%run(test_setUnifCDF_RK5, SK_"test_setUnifCDF_RK5")
615#endif
616#if RK4_ENABLED
617 call test%run(test_setUnifCDF_RK4, SK_"test_setUnifCDF_RK4")
618#endif
619#if RK3_ENABLED
620 call test%run(test_setUnifCDF_RK3, SK_"test_setUnifCDF_RK3")
621#endif
622#if RK2_ENABLED
623 call test%run(test_setUnifCDF_RK2, SK_"test_setUnifCDF_RK2")
624#endif
625#if RK1_ENABLED
626 call test%run(test_setUnifCDF_RK1, SK_"test_setUnifCDF_RK1")
627#endif
628
629 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630
631#if SK5_ENABLED
632 call test%run(test_getUnifRand_SK5, SK_"test_getUnifRand_SK5")
633#endif
634#if SK4_ENABLED
635 call test%run(test_getUnifRand_SK4, SK_"test_getUnifRand_SK4")
636#endif
637#if SK3_ENABLED
638 call test%run(test_getUnifRand_SK3, SK_"test_getUnifRand_SK3")
639#endif
640#if SK2_ENABLED
641 call test%run(test_getUnifRand_SK2, SK_"test_getUnifRand_SK2")
642#endif
643#if SK1_ENABLED
644 call test%run(test_getUnifRand_SK1, SK_"test_getUnifRand_SK1")
645#endif
646
647 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
648
649#if IK5_ENABLED
650 call test%run(test_getUnifRand_IK5, SK_"test_getUnifRand_IK5")
651#endif
652#if IK4_ENABLED
653 call test%run(test_getUnifRand_IK4, SK_"test_getUnifRand_IK4")
654#endif
655#if IK3_ENABLED
656 call test%run(test_getUnifRand_IK3, SK_"test_getUnifRand_IK3")
657#endif
658#if IK2_ENABLED
659 call test%run(test_getUnifRand_IK2, SK_"test_getUnifRand_IK2")
660#endif
661#if IK1_ENABLED
662 call test%run(test_getUnifRand_IK1, SK_"test_getUnifRand_IK1")
663#endif
664
665 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
666
667#if LK5_ENABLED
668 call test%run(test_getUnifRand_LK5, SK_"test_getUnifRand_LK5")
669#endif
670#if LK4_ENABLED
671 call test%run(test_getUnifRand_LK4, SK_"test_getUnifRand_LK4")
672#endif
673#if LK3_ENABLED
674 call test%run(test_getUnifRand_LK3, SK_"test_getUnifRand_LK3")
675#endif
676#if LK2_ENABLED
677 call test%run(test_getUnifRand_LK2, SK_"test_getUnifRand_LK2")
678#endif
679#if LK1_ENABLED
680 call test%run(test_getUnifRand_LK1, SK_"test_getUnifRand_LK1")
681#endif
682
683 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
684
685#if CK5_ENABLED
686 call test%run(test_getUnifRand_CK5, SK_"test_getUnifRand_CK5")
687#endif
688#if CK4_ENABLED
689 call test%run(test_getUnifRand_CK4, SK_"test_getUnifRand_CK4")
690#endif
691#if CK3_ENABLED
692 call test%run(test_getUnifRand_CK3, SK_"test_getUnifRand_CK3")
693#endif
694#if CK2_ENABLED
695 call test%run(test_getUnifRand_CK2, SK_"test_getUnifRand_CK2")
696#endif
697#if CK1_ENABLED
698 call test%run(test_getUnifRand_CK1, SK_"test_getUnifRand_CK1")
699#endif
700
701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
702
703#if RK5_ENABLED
704 call test%run(test_getUnifRand_RK5, SK_"test_getUnifRand_RK5")
705#endif
706#if RK4_ENABLED
707 call test%run(test_getUnifRand_RK4, SK_"test_getUnifRand_RK4")
708#endif
709#if RK3_ENABLED
710 call test%run(test_getUnifRand_RK3, SK_"test_getUnifRand_RK3")
711#endif
712#if RK2_ENABLED
713 call test%run(test_getUnifRand_RK2, SK_"test_getUnifRand_RK2")
714#endif
715#if RK1_ENABLED
716 call test%run(test_getUnifRand_RK1, SK_"test_getUnifRand_RK1")
717#endif
718
719 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
720
721#if SK5_ENABLED
722 call test%run(test_setUnifRand_SK5, SK_"test_setUnifRand_SK5")
723#endif
724#if SK4_ENABLED
725 call test%run(test_setUnifRand_SK4, SK_"test_setUnifRand_SK4")
726#endif
727#if SK3_ENABLED
728 call test%run(test_setUnifRand_SK3, SK_"test_setUnifRand_SK3")
729#endif
730#if SK2_ENABLED
731 call test%run(test_setUnifRand_SK2, SK_"test_setUnifRand_SK2")
732#endif
733#if SK1_ENABLED
734 call test%run(test_setUnifRand_SK1, SK_"test_setUnifRand_SK1")
735#endif
736
737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738
739#if IK5_ENABLED
740 call test%run(test_setUnifRand_IK5, SK_"test_setUnifRand_IK5")
741#endif
742#if IK4_ENABLED
743 call test%run(test_setUnifRand_IK4, SK_"test_setUnifRand_IK4")
744#endif
745#if IK3_ENABLED
746 call test%run(test_setUnifRand_IK3, SK_"test_setUnifRand_IK3")
747#endif
748#if IK2_ENABLED
749 call test%run(test_setUnifRand_IK2, SK_"test_setUnifRand_IK2")
750#endif
751#if IK1_ENABLED
752 call test%run(test_setUnifRand_IK1, SK_"test_setUnifRand_IK1")
753#endif
754
755 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
756
757#if LK5_ENABLED
758 call test%run(test_setUnifRand_LK5, SK_"test_setUnifRand_LK5")
759#endif
760#if LK4_ENABLED
761 call test%run(test_setUnifRand_LK4, SK_"test_setUnifRand_LK4")
762#endif
763#if LK3_ENABLED
764 call test%run(test_setUnifRand_LK3, SK_"test_setUnifRand_LK3")
765#endif
766#if LK2_ENABLED
767 call test%run(test_setUnifRand_LK2, SK_"test_setUnifRand_LK2")
768#endif
769#if LK1_ENABLED
770 call test%run(test_setUnifRand_LK1, SK_"test_setUnifRand_LK1")
771#endif
772
773 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
774
775#if CK5_ENABLED
776 call test%run(test_setUnifRand_CK5, SK_"test_setUnifRand_CK5")
777#endif
778#if CK4_ENABLED
779 call test%run(test_setUnifRand_CK4, SK_"test_setUnifRand_CK4")
780#endif
781#if CK3_ENABLED
782 call test%run(test_setUnifRand_CK3, SK_"test_setUnifRand_CK3")
783#endif
784#if CK2_ENABLED
785 call test%run(test_setUnifRand_CK2, SK_"test_setUnifRand_CK2")
786#endif
787#if CK1_ENABLED
788 call test%run(test_setUnifRand_CK1, SK_"test_setUnifRand_CK1")
789#endif
790
791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
792
793#if RK5_ENABLED
794 call test%run(test_setUnifRand_RK5, SK_"test_setUnifRand_RK5")
795#endif
796#if RK4_ENABLED
797 call test%run(test_setUnifRand_RK4, SK_"test_setUnifRand_RK4")
798#endif
799#if RK3_ENABLED
800 call test%run(test_setUnifRand_RK3, SK_"test_setUnifRand_RK3")
801#endif
802#if RK2_ENABLED
803 call test%run(test_setUnifRand_RK2, SK_"test_setUnifRand_RK2")
804#endif
805#if RK1_ENABLED
806 call test%run(test_setUnifRand_RK1, SK_"test_setUnifRand_RK1")
807#endif
808
809 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
810 call test%summarize()
811
812 end subroutine setTest
813
814!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
815
816end module test_pm_distUnif
pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274
pm_distUnif::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distUnif.F90:284
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_distUnif
This module contains tests of the module pm_distUnif.
Definition: test_pm_distUnif.F90:27
test_pm_distUnif::test
type(test_type) test
Definition: test_pm_distUnif.F90:37
test_pm_distUnif::setTest
subroutine setTest()
Definition: test_pm_distUnif.F90:446
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