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 This module contains tests of the module [pm_distExp](@ref pm_distExp).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \FatemehBagheri, 12:27 AM Tuesday, February 22, 2022, Dallas, TX
23 :
24 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 :
26 : module 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 :
168 : contains
169 :
170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171 :
172 1 : subroutine setTest()
173 :
174 1 : 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 1 : call test%run(test_getExpLogPDF_RK4, SK_"test_getExpLogPDF_RK4")
183 : #endif
184 : #if RK3_ENABLED
185 1 : call test%run(test_getExpLogPDF_RK3, SK_"test_getExpLogPDF_RK3")
186 : #endif
187 : #if RK2_ENABLED
188 1 : call test%run(test_getExpLogPDF_RK2, SK_"test_getExpLogPDF_RK2")
189 : #endif
190 : #if RK1_ENABLED
191 1 : 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 1 : call test%run(test_setExpLogPDF_RK4, SK_"test_setExpLogPDF_RK4")
201 : #endif
202 : #if RK3_ENABLED
203 1 : call test%run(test_setExpLogPDF_RK3, SK_"test_setExpLogPDF_RK3")
204 : #endif
205 : #if RK2_ENABLED
206 1 : call test%run(test_setExpLogPDF_RK2, SK_"test_setExpLogPDF_RK2")
207 : #endif
208 : #if RK1_ENABLED
209 1 : 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 1 : call test%run(test_getExpCDF_RK4, SK_"test_getExpCDF_RK4")
219 : #endif
220 : #if RK3_ENABLED
221 1 : call test%run(test_getExpCDF_RK3, SK_"test_getExpCDF_RK3")
222 : #endif
223 : #if RK2_ENABLED
224 1 : call test%run(test_getExpCDF_RK2, SK_"test_getExpCDF_RK2")
225 : #endif
226 : #if RK1_ENABLED
227 1 : 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 1 : call test%run(test_setExpCDF_RK4, SK_"test_setExpCDF_RK4")
237 : #endif
238 : #if RK3_ENABLED
239 1 : call test%run(test_setExpCDF_RK3, SK_"test_setExpCDF_RK3")
240 : #endif
241 : #if RK2_ENABLED
242 1 : call test%run(test_setExpCDF_RK2, SK_"test_setExpCDF_RK2")
243 : #endif
244 : #if RK1_ENABLED
245 1 : 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 1 : call test%run(test_getExpRand_RK4_1, SK_"test_getExpRand_RK4_1")
255 : #endif
256 : #if RK3_ENABLED
257 1 : call test%run(test_getExpRand_RK3_1, SK_"test_getExpRand_RK3_1")
258 : #endif
259 : #if RK2_ENABLED
260 1 : call test%run(test_getExpRand_RK2_1, SK_"test_getExpRand_RK2_1")
261 : #endif
262 : #if RK1_ENABLED
263 1 : 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 1 : call test%run(test_setExpRand_RK4_1, SK_"test_setExpRand_RK4_1")
273 : #endif
274 : #if RK3_ENABLED
275 1 : call test%run(test_setExpRand_RK3_1, SK_"test_setExpRand_RK3_1")
276 : #endif
277 : #if RK2_ENABLED
278 1 : call test%run(test_setExpRand_RK2_1, SK_"test_setExpRand_RK2_1")
279 : #endif
280 : #if RK1_ENABLED
281 1 : call test%run(test_setExpRand_RK1_1, SK_"test_setExpRand_RK1_1")
282 : #endif
283 :
284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285 1 : call test%summarize()
286 :
287 1 : end subroutine setTest
288 :
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 :
291 : end module test_pm_distExp
|
