ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_distNorm.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
23
24!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25
26module test_pm_distNorm
27
28 use pm_distNorm
29 use pm_err, only: err_type
30 use pm_test, only: test_type, LK
31
32 implicit none
33
34 private
35 public :: setTest
36 type(test_type) :: test
37
38!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39
40 interface
41#if RK5_ENABLED
42 module function test_getNormLogPDF_RK5() result(assertion); logical(LK) :: assertion; end function
43#endif
44#if RK4_ENABLED
45 module function test_getNormLogPDF_RK4() result(assertion); logical(LK) :: assertion; end function
46#endif
47#if RK3_ENABLED
48 module function test_getNormLogPDF_RK3() result(assertion); logical(LK) :: assertion; end function
49#endif
50#if RK2_ENABLED
51 module function test_getNormLogPDF_RK2() result(assertion); logical(LK) :: assertion; end function
52#endif
53#if RK1_ENABLED
54 module function test_getNormLogPDF_RK1() result(assertion); logical(LK) :: assertion; end function
55#endif
56 end interface
57
58!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59
60 interface
61#if RK5_ENABLED
62 module function test_setNormLogPDF_RK5() result(assertion); logical(LK) :: assertion; end function
63#endif
64#if RK4_ENABLED
65 module function test_setNormLogPDF_RK4() result(assertion); logical(LK) :: assertion; end function
66#endif
67#if RK3_ENABLED
68 module function test_setNormLogPDF_RK3() result(assertion); logical(LK) :: assertion; end function
69#endif
70#if RK2_ENABLED
71 module function test_setNormLogPDF_RK2() result(assertion); logical(LK) :: assertion; end function
72#endif
73#if RK1_ENABLED
74 module function test_setNormLogPDF_RK1() result(assertion); logical(LK) :: assertion; end function
75#endif
76 end interface
77
78!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
80 interface
81#if RK5_ENABLED
82 module function test_getNormCDF_RK5() result(assertion); logical(LK) :: assertion; end function
83#endif
84#if RK4_ENABLED
85 module function test_getNormCDF_RK4() result(assertion); logical(LK) :: assertion; end function
86#endif
87#if RK3_ENABLED
88 module function test_getNormCDF_RK3() result(assertion); logical(LK) :: assertion; end function
89#endif
90#if RK2_ENABLED
91 module function test_getNormCDF_RK2() result(assertion); logical(LK) :: assertion; end function
92#endif
93#if RK1_ENABLED
94 module function test_getNormCDF_RK1() result(assertion); logical(LK) :: assertion; end function
95#endif
96 end interface
97
98!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99
100 interface
101#if RK5_ENABLED
102 module function test_setNormCDF_RK5() result(assertion); logical(LK) :: assertion; end function
103#endif
104#if RK4_ENABLED
105 module function test_setNormCDF_RK4() result(assertion); logical(LK) :: assertion; end function
106#endif
107#if RK3_ENABLED
108 module function test_setNormCDF_RK3() result(assertion); logical(LK) :: assertion; end function
109#endif
110#if RK2_ENABLED
111 module function test_setNormCDF_RK2() result(assertion); logical(LK) :: assertion; end function
112#endif
113#if RK1_ENABLED
114 module function test_setNormCDF_RK1() result(assertion); logical(LK) :: assertion; end function
115#endif
116 end interface
117
118!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
119
120 interface
121#if RK5_ENABLED
122 module function test_getNormRand_RK5() result(assertion); logical(LK) :: assertion; end function
123#endif
124#if RK4_ENABLED
125 module function test_getNormRand_RK4() result(assertion); logical(LK) :: assertion; end function
126#endif
127#if RK3_ENABLED
128 module function test_getNormRand_RK3() result(assertion); logical(LK) :: assertion; end function
129#endif
130#if RK2_ENABLED
131 module function test_getNormRand_RK2() result(assertion); logical(LK) :: assertion; end function
132#endif
133#if RK1_ENABLED
134 module function test_getNormRand_RK1() result(assertion); logical(LK) :: assertion; end function
135#endif
136 end interface
137
138!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139
140 interface
141#if RK5_ENABLED
142 module function test_setNormRand_RK5() result(assertion); logical(LK) :: assertion; end function
143#endif
144#if RK4_ENABLED
145 module function test_setNormRand_RK4() result(assertion); logical(LK) :: assertion; end function
146#endif
147#if RK3_ENABLED
148 module function test_setNormRand_RK3() result(assertion); logical(LK) :: assertion; end function
149#endif
150#if RK2_ENABLED
151 module function test_setNormRand_RK2() result(assertion); logical(LK) :: assertion; end function
152#endif
153#if RK1_ENABLED
154 module function test_setNormRand_RK1() result(assertion); logical(LK) :: assertion; end function
155#endif
156 end interface
157
158!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159
160 interface
161#if RK5_ENABLED
162 module function test_getNormQuan_RK5() result(assertion); logical(LK) :: assertion; end function
163#endif
164#if RK4_ENABLED
165 module function test_getNormQuan_RK4() result(assertion); logical(LK) :: assertion; end function
166#endif
167#if RK3_ENABLED
168 module function test_getNormQuan_RK3() result(assertion); logical(LK) :: assertion; end function
169#endif
170#if RK2_ENABLED
171 module function test_getNormQuan_RK2() result(assertion); logical(LK) :: assertion; end function
172#endif
173#if RK1_ENABLED
174 module function test_getNormQuan_RK1() result(assertion); logical(LK) :: assertion; end function
175#endif
176 end interface
177
178!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179
180 interface
181#if RK5_ENABLED
182 module function test_setNormQuan_RK5() result(assertion); logical(LK) :: assertion; end function
183#endif
184#if RK4_ENABLED
185 module function test_setNormQuan_RK4() result(assertion); logical(LK) :: assertion; end function
186#endif
187#if RK3_ENABLED
188 module function test_setNormQuan_RK3() result(assertion); logical(LK) :: assertion; end function
189#endif
190#if RK2_ENABLED
191 module function test_setNormQuan_RK2() result(assertion); logical(LK) :: assertion; end function
192#endif
193#if RK1_ENABLED
194 module function test_setNormQuan_RK1() result(assertion); logical(LK) :: assertion; end function
195#endif
196 end interface
197
198!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
199
200 interface
201#if RK5_ENABLED
202 module function test_getNormEntropy_RK5() result(assertion); logical(LK) :: assertion; end function
203#endif
204#if RK4_ENABLED
205 module function test_getNormEntropy_RK4() result(assertion); logical(LK) :: assertion; end function
206#endif
207#if RK3_ENABLED
208 module function test_getNormEntropy_RK3() result(assertion); logical(LK) :: assertion; end function
209#endif
210#if RK2_ENABLED
211 module function test_getNormEntropy_RK2() result(assertion); logical(LK) :: assertion; end function
212#endif
213#if RK1_ENABLED
214 module function test_getNormEntropy_RK1() result(assertion); logical(LK) :: assertion; end function
215#endif
216 end interface
217
218!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
219
220 interface
221#if RK5_ENABLED
222 module function test_getNormFisher_RK5() result(assertion); logical(LK) :: assertion; end function
223#endif
224#if RK4_ENABLED
225 module function test_getNormFisher_RK4() result(assertion); logical(LK) :: assertion; end function
226#endif
227#if RK3_ENABLED
228 module function test_getNormFisher_RK3() result(assertion); logical(LK) :: assertion; end function
229#endif
230#if RK2_ENABLED
231 module function test_getNormFisher_RK2() result(assertion); logical(LK) :: assertion; end function
232#endif
233#if RK1_ENABLED
234 module function test_getNormFisher_RK1() result(assertion); logical(LK) :: assertion; end function
235#endif
236 end interface
237
238!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
239
240 interface
241#if RK5_ENABLED
242 module function test_getNormKLD_RK5() result(assertion); logical(LK) :: assertion; end function
243#endif
244#if RK4_ENABLED
245 module function test_getNormKLD_RK4() result(assertion); logical(LK) :: assertion; end function
246#endif
247#if RK3_ENABLED
248 module function test_getNormKLD_RK3() result(assertion); logical(LK) :: assertion; end function
249#endif
250#if RK2_ENABLED
251 module function test_getNormKLD_RK2() result(assertion); logical(LK) :: assertion; end function
252#endif
253#if RK1_ENABLED
254 module function test_getNormKLD_RK1() result(assertion); logical(LK) :: assertion; end function
255#endif
256 end interface
257
258!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259
260contains
261
262!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263
264 subroutine setTest()
265
266 test = test_type(MODULE_NAME)
267
268 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269
270#if RK5_ENABLED
271 call test%run(test_getNormCDF_RK5, SK_"test_getNormCDF_RK3")
272#endif
273#if RK4_ENABLED
274 call test%run(test_getNormCDF_RK4, SK_"test_getNormCDF_RK3")
275#endif
276#if RK3_ENABLED
277 call test%run(test_getNormCDF_RK3, SK_"test_getNormCDF_RK3")
278#endif
279#if RK2_ENABLED
280 call test%run(test_getNormCDF_RK2, SK_"test_getNormCDF_RK2")
281#endif
282#if RK1_ENABLED
283 call test%run(test_getNormCDF_RK1, SK_"test_getNormCDF_RK1")
284#endif
285
286 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
287
288#if RK5_ENABLED
289 call test%run(test_setNormCDF_RK5, SK_"test_setNormCDF_RK3")
290#endif
291#if RK4_ENABLED
292 call test%run(test_setNormCDF_RK4, SK_"test_setNormCDF_RK3")
293#endif
294#if RK3_ENABLED
295 call test%run(test_setNormCDF_RK3, SK_"test_setNormCDF_RK3")
296#endif
297#if RK2_ENABLED
298 call test%run(test_setNormCDF_RK2, SK_"test_setNormCDF_RK2")
299#endif
300#if RK1_ENABLED
301 call test%run(test_setNormCDF_RK1, SK_"test_setNormCDF_RK1")
302#endif
303
304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305
306#if RK5_ENABLED
307 call test%run(test_getNormLogPDF_RK5, SK_"test_getNormLogPDF_RK3")
308#endif
309#if RK4_ENABLED
310 call test%run(test_getNormLogPDF_RK4, SK_"test_getNormLogPDF_RK3")
311#endif
312#if RK3_ENABLED
313 call test%run(test_getNormLogPDF_RK3, SK_"test_getNormLogPDF_RK3")
314#endif
315#if RK2_ENABLED
316 call test%run(test_getNormLogPDF_RK2, SK_"test_getNormLogPDF_RK2")
317#endif
318#if RK1_ENABLED
319 call test%run(test_getNormLogPDF_RK1, SK_"test_getNormLogPDF_RK1")
320#endif
321
322 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323
324#if RK5_ENABLED
325 call test%run(test_setNormLogPDF_RK5, SK_"test_setNormLogPDF_RK3")
326#endif
327#if RK4_ENABLED
328 call test%run(test_setNormLogPDF_RK4, SK_"test_setNormLogPDF_RK3")
329#endif
330#if RK3_ENABLED
331 call test%run(test_setNormLogPDF_RK3, SK_"test_setNormLogPDF_RK3")
332#endif
333#if RK2_ENABLED
334 call test%run(test_setNormLogPDF_RK2, SK_"test_setNormLogPDF_RK2")
335#endif
336#if RK1_ENABLED
337 call test%run(test_setNormLogPDF_RK1, SK_"test_setNormLogPDF_RK1")
338#endif
339
340 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341
342#if RK5_ENABLED
343 call test%run(test_getNormRand_RK5, SK_"test_getNormRand_RK3")
344#endif
345#if RK4_ENABLED
346 call test%run(test_getNormRand_RK4, SK_"test_getNormRand_RK3")
347#endif
348#if RK3_ENABLED
349 call test%run(test_getNormRand_RK3, SK_"test_getNormRand_RK3")
350#endif
351#if RK2_ENABLED
352 call test%run(test_getNormRand_RK2, SK_"test_getNormRand_RK2")
353#endif
354#if RK1_ENABLED
355 call test%run(test_getNormRand_RK1, SK_"test_getNormRand_RK1")
356#endif
357
358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
359
360#if RK5_ENABLED
361 call test%run(test_setNormRand_RK5, SK_"test_setNormRand_RK3")
362#endif
363#if RK4_ENABLED
364 call test%run(test_setNormRand_RK4, SK_"test_setNormRand_RK3")
365#endif
366#if RK3_ENABLED
367 call test%run(test_setNormRand_RK3, SK_"test_setNormRand_RK3")
368#endif
369#if RK2_ENABLED
370 call test%run(test_setNormRand_RK2, SK_"test_setNormRand_RK2")
371#endif
372#if RK1_ENABLED
373 call test%run(test_setNormRand_RK1, SK_"test_setNormRand_RK1")
374#endif
375
376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377
378#if RK5_ENABLED
379 call test%run(test_getNormQuan_RK5, SK_"test_getNormQuan_RK3")
380#endif
381#if RK4_ENABLED
382 call test%run(test_getNormQuan_RK4, SK_"test_getNormQuan_RK3")
383#endif
384#if RK3_ENABLED
385 call test%run(test_getNormQuan_RK3, SK_"test_getNormQuan_RK3")
386#endif
387#if RK2_ENABLED
388 call test%run(test_getNormQuan_RK2, SK_"test_getNormQuan_RK2")
389#endif
390#if RK1_ENABLED
391 call test%run(test_getNormQuan_RK1, SK_"test_getNormQuan_RK1")
392#endif
393
394 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395
396#if RK5_ENABLED
397 call test%run(test_setNormQuan_RK5, SK_"test_setNormQuan_RK3")
398#endif
399#if RK4_ENABLED
400 call test%run(test_setNormQuan_RK4, SK_"test_setNormQuan_RK3")
401#endif
402#if RK3_ENABLED
403 call test%run(test_setNormQuan_RK3, SK_"test_setNormQuan_RK3")
404#endif
405#if RK2_ENABLED
406 call test%run(test_setNormQuan_RK2, SK_"test_setNormQuan_RK2")
407#endif
408#if RK1_ENABLED
409 call test%run(test_setNormQuan_RK1, SK_"test_setNormQuan_RK1")
410#endif
411
412 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413
414#if RK5_ENABLED
415 call test%run(test_getNormEntropy_RK5, SK_"test_getNormEntropy_RK3")
416#endif
417#if RK4_ENABLED
418 call test%run(test_getNormEntropy_RK4, SK_"test_getNormEntropy_RK3")
419#endif
420#if RK3_ENABLED
421 call test%run(test_getNormEntropy_RK3, SK_"test_getNormEntropy_RK3")
422#endif
423#if RK2_ENABLED
424 call test%run(test_getNormEntropy_RK2, SK_"test_getNormEntropy_RK2")
425#endif
426#if RK1_ENABLED
427 call test%run(test_getNormEntropy_RK1, SK_"test_getNormEntropy_RK1")
428#endif
429
430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431
432#if RK5_ENABLED
433 call test%run(test_getNormFisher_RK5, SK_"test_getNormFisher_RK3")
434#endif
435#if RK4_ENABLED
436 call test%run(test_getNormFisher_RK4, SK_"test_getNormFisher_RK3")
437#endif
438#if RK3_ENABLED
439 call test%run(test_getNormFisher_RK3, SK_"test_getNormFisher_RK3")
440#endif
441#if RK2_ENABLED
442 call test%run(test_getNormFisher_RK2, SK_"test_getNormFisher_RK2")
443#endif
444#if RK1_ENABLED
445 call test%run(test_getNormFisher_RK1, SK_"test_getNormFisher_RK1")
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450#if RK5_ENABLED
451 call test%run(test_getNormKLD_RK5, SK_"test_getNormKLD_RK3")
452#endif
453#if RK4_ENABLED
454 call test%run(test_getNormKLD_RK4, SK_"test_getNormKLD_RK3")
455#endif
456#if RK3_ENABLED
457 call test%run(test_getNormKLD_RK3, SK_"test_getNormKLD_RK3")
458#endif
459#if RK2_ENABLED
460 call test%run(test_getNormKLD_RK2, SK_"test_getNormKLD_RK2")
461#endif
462#if RK1_ENABLED
463 call test%run(test_getNormKLD_RK1, SK_"test_getNormKLD_RK1")
464#endif
465
466 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 call test%summarize()
468
469 end subroutine setTest
470
471!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
472
473end module test_pm_distNorm
pm_distNorm
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distNorm.F90:179
pm_distNorm::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distNorm.F90:187
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_distNorm
This module contains tests of the module pm_distNorm.
Definition: test_pm_distNorm.F90:26
test_pm_distNorm::test
type(test_type) test
Definition: test_pm_distNorm.F90:36
test_pm_distNorm::setTest
subroutine setTest()
Definition: test_pm_distNorm.F90:265
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