ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_distExp.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_distExp
27
28 use pm_distExp
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
42#if RK5_ENABLED
43 module function test_getExpLogPDF_RK5() result(assertion); logical(LK) :: assertion; end function
44#endif
45#if RK4_ENABLED
46 module function test_getExpLogPDF_RK4() result(assertion); logical(LK) :: assertion; end function
47#endif
48#if RK3_ENABLED
49 module function test_getExpLogPDF_RK3() result(assertion); logical(LK) :: assertion; end function
50#endif
51#if RK2_ENABLED
52 module function test_getExpLogPDF_RK2() result(assertion); logical(LK) :: assertion; end function
53#endif
54#if RK1_ENABLED
55 module function test_getExpLogPDF_RK1() result(assertion); logical(LK) :: assertion; end function
56#endif
57
58 end interface
59
60!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62 interface
63
64#if RK5_ENABLED
65 module function test_setExpLogPDF_RK5() result(assertion); logical(LK) :: assertion; end function
66#endif
67#if RK4_ENABLED
68 module function test_setExpLogPDF_RK4() result(assertion); logical(LK) :: assertion; end function
69#endif
70#if RK3_ENABLED
71 module function test_setExpLogPDF_RK3() result(assertion); logical(LK) :: assertion; end function
72#endif
73#if RK2_ENABLED
74 module function test_setExpLogPDF_RK2() result(assertion); logical(LK) :: assertion; end function
75#endif
76#if RK1_ENABLED
77 module function test_setExpLogPDF_RK1() result(assertion); logical(LK) :: assertion; end function
78#endif
79
80 end interface
81
82!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83
84 interface
85
86#if RK5_ENABLED
87 module function test_getExpCDF_RK5() result(assertion); logical(LK) :: assertion; end function
88#endif
89#if RK4_ENABLED
90 module function test_getExpCDF_RK4() result(assertion); logical(LK) :: assertion; end function
91#endif
92#if RK3_ENABLED
93 module function test_getExpCDF_RK3() result(assertion); logical(LK) :: assertion; end function
94#endif
95#if RK2_ENABLED
96 module function test_getExpCDF_RK2() result(assertion); logical(LK) :: assertion; end function
97#endif
98#if RK1_ENABLED
99 module function test_getExpCDF_RK1() result(assertion); logical(LK) :: assertion; end function
100#endif
101
102 end interface
103
104!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105
106 interface
107
108#if RK5_ENABLED
109 module function test_setExpCDF_RK5() result(assertion); logical(LK) :: assertion; end function
110#endif
111#if RK4_ENABLED
112 module function test_setExpCDF_RK4() result(assertion); logical(LK) :: assertion; end function
113#endif
114#if RK3_ENABLED
115 module function test_setExpCDF_RK3() result(assertion); logical(LK) :: assertion; end function
116#endif
117#if RK2_ENABLED
118 module function test_setExpCDF_RK2() result(assertion); logical(LK) :: assertion; end function
119#endif
120#if RK1_ENABLED
121 module function test_setExpCDF_RK1() result(assertion); logical(LK) :: assertion; end function
122#endif
123
124 end interface
125
126!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
127
128 interface
129#if RK5_ENABLED
130 module function test_getExpRand_RK5_1() result(assertion); logical(LK) :: assertion; end function
131#endif
132#if RK4_ENABLED
133 module function test_getExpRand_RK4_1() result(assertion); logical(LK) :: assertion; end function
134#endif
135#if RK3_ENABLED
136 module function test_getExpRand_RK3_1() result(assertion); logical(LK) :: assertion; end function
137#endif
138#if RK2_ENABLED
139 module function test_getExpRand_RK2_1() result(assertion); logical(LK) :: assertion; end function
140#endif
141#if RK1_ENABLED
142 module function test_getExpRand_RK1_1() result(assertion); logical(LK) :: assertion; end function
143#endif
144 end interface
145
146!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
147
148 interface
149#if RK5_ENABLED
150 module function test_setExpRand_RK5_1() result(assertion); logical(LK) :: assertion; end function
151#endif
152#if RK4_ENABLED
153 module function test_setExpRand_RK4_1() result(assertion); logical(LK) :: assertion; end function
154#endif
155#if RK3_ENABLED
156 module function test_setExpRand_RK3_1() result(assertion); logical(LK) :: assertion; end function
157#endif
158#if RK2_ENABLED
159 module function test_setExpRand_RK2_1() result(assertion); logical(LK) :: assertion; end function
160#endif
161#if RK1_ENABLED
162 module function test_setExpRand_RK1_1() result(assertion); logical(LK) :: assertion; end function
163#endif
164 end interface
165
166!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167
168contains
169
170!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171
172 subroutine setTest()
173
174 test = test_type(MODULE_NAME)
175
176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177
178#if RK5_ENABLED
179 call test%run(test_getExpLogPDF_RK5, SK_"test_getExpLogPDF_RK5")
180#endif
181#if RK4_ENABLED
182 call test%run(test_getExpLogPDF_RK4, SK_"test_getExpLogPDF_RK4")
183#endif
184#if RK3_ENABLED
185 call test%run(test_getExpLogPDF_RK3, SK_"test_getExpLogPDF_RK3")
186#endif
187#if RK2_ENABLED
188 call test%run(test_getExpLogPDF_RK2, SK_"test_getExpLogPDF_RK2")
189#endif
190#if RK1_ENABLED
191 call test%run(test_getExpLogPDF_RK1, SK_"test_getExpLogPDF_RK1")
192#endif
193
194 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
195
196#if RK5_ENABLED
197 call test%run(test_setExpLogPDF_RK5, SK_"test_setExpLogPDF_RK5")
198#endif
199#if RK4_ENABLED
200 call test%run(test_setExpLogPDF_RK4, SK_"test_setExpLogPDF_RK4")
201#endif
202#if RK3_ENABLED
203 call test%run(test_setExpLogPDF_RK3, SK_"test_setExpLogPDF_RK3")
204#endif
205#if RK2_ENABLED
206 call test%run(test_setExpLogPDF_RK2, SK_"test_setExpLogPDF_RK2")
207#endif
208#if RK1_ENABLED
209 call test%run(test_setExpLogPDF_RK1, SK_"test_setExpLogPDF_RK1")
210#endif
211
212 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213
214#if RK5_ENABLED
215 call test%run(test_getExpCDF_RK5, SK_"test_getExpCDF_RK5")
216#endif
217#if RK4_ENABLED
218 call test%run(test_getExpCDF_RK4, SK_"test_getExpCDF_RK4")
219#endif
220#if RK3_ENABLED
221 call test%run(test_getExpCDF_RK3, SK_"test_getExpCDF_RK3")
222#endif
223#if RK2_ENABLED
224 call test%run(test_getExpCDF_RK2, SK_"test_getExpCDF_RK2")
225#endif
226#if RK1_ENABLED
227 call test%run(test_getExpCDF_RK1, SK_"test_getExpCDF_RK1")
228#endif
229
230 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
231
232#if RK5_ENABLED
233 call test%run(test_setExpCDF_RK5, SK_"test_setExpCDF_RK5")
234#endif
235#if RK4_ENABLED
236 call test%run(test_setExpCDF_RK4, SK_"test_setExpCDF_RK4")
237#endif
238#if RK3_ENABLED
239 call test%run(test_setExpCDF_RK3, SK_"test_setExpCDF_RK3")
240#endif
241#if RK2_ENABLED
242 call test%run(test_setExpCDF_RK2, SK_"test_setExpCDF_RK2")
243#endif
244#if RK1_ENABLED
245 call test%run(test_setExpCDF_RK1, SK_"test_setExpCDF_RK1")
246#endif
247
248 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249
250#if RK5_ENABLED
251 call test%run(test_getExpRand_RK5_1, SK_"test_getExpRand_RK5_1")
252#endif
253#if RK4_ENABLED
254 call test%run(test_getExpRand_RK4_1, SK_"test_getExpRand_RK4_1")
255#endif
256#if RK3_ENABLED
257 call test%run(test_getExpRand_RK3_1, SK_"test_getExpRand_RK3_1")
258#endif
259#if RK2_ENABLED
260 call test%run(test_getExpRand_RK2_1, SK_"test_getExpRand_RK2_1")
261#endif
262#if RK1_ENABLED
263 call test%run(test_getExpRand_RK1_1, SK_"test_getExpRand_RK1_1")
264#endif
265
266 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267
268#if RK5_ENABLED
269 call test%run(test_setExpRand_RK5_1, SK_"test_setExpRand_RK5_1")
270#endif
271#if RK4_ENABLED
272 call test%run(test_setExpRand_RK4_1, SK_"test_setExpRand_RK4_1")
273#endif
274#if RK3_ENABLED
275 call test%run(test_setExpRand_RK3_1, SK_"test_setExpRand_RK3_1")
276#endif
277#if RK2_ENABLED
278 call test%run(test_setExpRand_RK2_1, SK_"test_setExpRand_RK2_1")
279#endif
280#if RK1_ENABLED
281 call test%run(test_setExpRand_RK1_1, SK_"test_setExpRand_RK1_1")
282#endif
283
284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285 call test%summarize()
286
287 end subroutine setTest
288
289!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290
291end module test_pm_distExp
pm_distExp
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distExp.F90:112
pm_distExp::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distExp.F90:118
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_distExp
This module contains tests of the module pm_distExp.
Definition: test_pm_distExp.F90:26
test_pm_distExp::setTest
subroutine setTest()
Definition: test_pm_distExp.F90:173
test_pm_distExp::test
type(test_type) test
Definition: test_pm_distExp.F90:36
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