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 file contains the implementations of the tests of module [pm_distPower](@ref pm_distPower).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \FatemehBagheri, 12:27 AM Tuesday, February 22, 2022, Dallas, TX
23 :
24 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 :
26 : submodule (test_pm_distPower) routines
27 :
28 : use pm_option, only: getOption
29 : use pm_arraySort, only: setSorted
30 : use pm_arraySpace, only: getLinSpace
31 : use pm_distUnif, only: getUnifRand
32 : use pm_distUnif, only: setUnifRand
33 :
34 : implicit none
35 :
36 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 :
38 : contains
39 :
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 :
42 : #define getPowerLogPDF_ENABLED 1
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : #define RK_ENABLED 1
47 :
48 : #if RK5_ENABLED
49 : module procedure test_getPowerLogPDF_RK5_1
50 : use pm_kind, only: RKC => RK5
51 : #include "test_pm_distPower@routines.inc.F90"
52 : end procedure
53 : #endif
54 :
55 : #if RK4_ENABLED
56 1 : module procedure test_getPowerLogPDF_RK4_1
57 : use pm_kind, only: RKC => RK4
58 : #include "test_pm_distPower@routines.inc.F90"
59 : end procedure
60 : #endif
61 :
62 : #if RK3_ENABLED
63 1 : module procedure test_getPowerLogPDF_RK3_1
64 : use pm_kind, only: RKC => RK3
65 : #include "test_pm_distPower@routines.inc.F90"
66 : end procedure
67 : #endif
68 :
69 : #if RK2_ENABLED
70 1 : module procedure test_getPowerLogPDF_RK2_1
71 : use pm_kind, only: RKC => RK2
72 : #include "test_pm_distPower@routines.inc.F90"
73 : end procedure
74 : #endif
75 :
76 : #if RK1_ENABLED
77 1 : module procedure test_getPowerLogPDF_RK1_1
78 : use pm_kind, only: RKC => RK1
79 : #include "test_pm_distPower@routines.inc.F90"
80 : end procedure
81 : #endif
82 :
83 : #undef RK_ENABLED
84 :
85 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
86 :
87 : #undef getPowerLogPDF_ENABLED
88 :
89 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90 :
91 : #define setPowerLogPDF_ENABLED 1
92 :
93 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
94 :
95 : #define RK_ENABLED 1
96 :
97 : #if RK5_ENABLED
98 : module procedure test_setPowerLogPDF_RK5_1
99 : use pm_kind, only: RKC => RK5
100 : #include "test_pm_distPower@routines.inc.F90"
101 : end procedure
102 : #endif
103 :
104 : #if RK4_ENABLED
105 1 : module procedure test_setPowerLogPDF_RK4_1
106 : use pm_kind, only: RKC => RK4
107 : #include "test_pm_distPower@routines.inc.F90"
108 : end procedure
109 : #endif
110 :
111 : #if RK3_ENABLED
112 1 : module procedure test_setPowerLogPDF_RK3_1
113 : use pm_kind, only: RKC => RK3
114 : #include "test_pm_distPower@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if RK2_ENABLED
119 1 : module procedure test_setPowerLogPDF_RK2_1
120 : use pm_kind, only: RKC => RK2
121 : #include "test_pm_distPower@routines.inc.F90"
122 : end procedure
123 : #endif
124 :
125 : #if RK1_ENABLED
126 1 : module procedure test_setPowerLogPDF_RK1_1
127 : use pm_kind, only: RKC => RK1
128 : #include "test_pm_distPower@routines.inc.F90"
129 : end procedure
130 : #endif
131 :
132 : #undef RK_ENABLED
133 :
134 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
135 :
136 : #undef setPowerLogPDF_ENABLED
137 :
138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139 :
140 : #define getPowerLogCDF_ENABLED 1
141 :
142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143 :
144 : #define RK_ENABLED 1
145 :
146 : #if RK5_ENABLED
147 : module procedure test_getPowerLogCDF_RK5_1
148 : use pm_kind, only: RKC => RK5
149 : #include "test_pm_distPower@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #if RK4_ENABLED
154 1 : module procedure test_getPowerLogCDF_RK4_1
155 : use pm_kind, only: RKC => RK4
156 : #include "test_pm_distPower@routines.inc.F90"
157 : end procedure
158 : #endif
159 :
160 : #if RK3_ENABLED
161 1 : module procedure test_getPowerLogCDF_RK3_1
162 : use pm_kind, only: RKC => RK3
163 : #include "test_pm_distPower@routines.inc.F90"
164 : end procedure
165 : #endif
166 :
167 : #if RK2_ENABLED
168 1 : module procedure test_getPowerLogCDF_RK2_1
169 : use pm_kind, only: RKC => RK2
170 : #include "test_pm_distPower@routines.inc.F90"
171 : end procedure
172 : #endif
173 :
174 : #if RK1_ENABLED
175 1 : module procedure test_getPowerLogCDF_RK1_1
176 : use pm_kind, only: RKC => RK1
177 : #include "test_pm_distPower@routines.inc.F90"
178 : end procedure
179 : #endif
180 :
181 : #undef RK_ENABLED
182 :
183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
184 :
185 : #undef getPowerLogCDF_ENABLED
186 :
187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188 :
189 : #define setPowerLogCDF_ENABLED 1
190 :
191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
192 :
193 : #define RK_ENABLED 1
194 :
195 : #if RK5_ENABLED
196 : module procedure test_setPowerLogCDF_RK5_1
197 : use pm_kind, only: RKC => RK5
198 : #include "test_pm_distPower@routines.inc.F90"
199 : end procedure
200 : #endif
201 :
202 : #if RK4_ENABLED
203 1 : module procedure test_setPowerLogCDF_RK4_1
204 : use pm_kind, only: RKC => RK4
205 : #include "test_pm_distPower@routines.inc.F90"
206 : end procedure
207 : #endif
208 :
209 : #if RK3_ENABLED
210 1 : module procedure test_setPowerLogCDF_RK3_1
211 : use pm_kind, only: RKC => RK3
212 : #include "test_pm_distPower@routines.inc.F90"
213 : end procedure
214 : #endif
215 :
216 : #if RK2_ENABLED
217 1 : module procedure test_setPowerLogCDF_RK2_1
218 : use pm_kind, only: RKC => RK2
219 : #include "test_pm_distPower@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #if RK1_ENABLED
224 1 : module procedure test_setPowerLogCDF_RK1_1
225 : use pm_kind, only: RKC => RK1
226 : #include "test_pm_distPower@routines.inc.F90"
227 : end procedure
228 : #endif
229 :
230 : #undef RK_ENABLED
231 :
232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
233 :
234 : #undef setPowerLogCDF_ENABLED
235 :
236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
237 :
238 : #define getPowerLogQuan_ENABLED 1
239 :
240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
241 :
242 : #define RK_ENABLED 1
243 :
244 : #if RK5_ENABLED
245 : module procedure test_getPowerLogQuan_RK5_1
246 : use pm_kind, only: RKC => RK5
247 : #include "test_pm_distPower@routines.inc.F90"
248 : end procedure
249 : #endif
250 :
251 : #if RK4_ENABLED
252 1 : module procedure test_getPowerLogQuan_RK4_1
253 : use pm_kind, only: RKC => RK4
254 : #include "test_pm_distPower@routines.inc.F90"
255 : end procedure
256 : #endif
257 :
258 : #if RK3_ENABLED
259 1 : module procedure test_getPowerLogQuan_RK3_1
260 : use pm_kind, only: RKC => RK3
261 : #include "test_pm_distPower@routines.inc.F90"
262 : end procedure
263 : #endif
264 :
265 : #if RK2_ENABLED
266 1 : module procedure test_getPowerLogQuan_RK2_1
267 : use pm_kind, only: RKC => RK2
268 : #include "test_pm_distPower@routines.inc.F90"
269 : end procedure
270 : #endif
271 :
272 : #if RK1_ENABLED
273 1 : module procedure test_getPowerLogQuan_RK1_1
274 : use pm_kind, only: RKC => RK1
275 : #include "test_pm_distPower@routines.inc.F90"
276 : end procedure
277 : #endif
278 :
279 : #undef RK_ENABLED
280 :
281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
282 :
283 : #undef getPowerLogQuan_ENABLED
284 :
285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 :
287 : #define setPowerLogQuan_ENABLED 1
288 :
289 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
290 :
291 : #define RK_ENABLED 1
292 :
293 : #if RK5_ENABLED
294 : module procedure test_setPowerLogQuan_RK5_1
295 : use pm_kind, only: RKC => RK5
296 : #include "test_pm_distPower@routines.inc.F90"
297 : end procedure
298 : #endif
299 :
300 : #if RK4_ENABLED
301 1 : module procedure test_setPowerLogQuan_RK4_1
302 : use pm_kind, only: RKC => RK4
303 : #include "test_pm_distPower@routines.inc.F90"
304 : end procedure
305 : #endif
306 :
307 : #if RK3_ENABLED
308 1 : module procedure test_setPowerLogQuan_RK3_1
309 : use pm_kind, only: RKC => RK3
310 : #include "test_pm_distPower@routines.inc.F90"
311 : end procedure
312 : #endif
313 :
314 : #if RK2_ENABLED
315 1 : module procedure test_setPowerLogQuan_RK2_1
316 : use pm_kind, only: RKC => RK2
317 : #include "test_pm_distPower@routines.inc.F90"
318 : end procedure
319 : #endif
320 :
321 : #if RK1_ENABLED
322 1 : module procedure test_setPowerLogQuan_RK1_1
323 : use pm_kind, only: RKC => RK1
324 : #include "test_pm_distPower@routines.inc.F90"
325 : end procedure
326 : #endif
327 :
328 : #undef RK_ENABLED
329 :
330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 :
332 : #undef setPowerLogQuan_ENABLED
333 :
334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335 :
336 : #define getPowerLogRand_ENABLED 1
337 :
338 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
339 :
340 : #define RK_ENABLED 1
341 :
342 : #if RK5_ENABLED
343 : module procedure test_getPowerLogRand_RK5_1
344 : use pm_kind, only: RKC => RK5
345 : #include "test_pm_distPower@routines.inc.F90"
346 : end procedure
347 : #endif
348 :
349 : #if RK4_ENABLED
350 1 : module procedure test_getPowerLogRand_RK4_1
351 : use pm_kind, only: RKC => RK4
352 : #include "test_pm_distPower@routines.inc.F90"
353 : end procedure
354 : #endif
355 :
356 : #if RK3_ENABLED
357 1 : module procedure test_getPowerLogRand_RK3_1
358 : use pm_kind, only: RKC => RK3
359 : #include "test_pm_distPower@routines.inc.F90"
360 : end procedure
361 : #endif
362 :
363 : #if RK2_ENABLED
364 1 : module procedure test_getPowerLogRand_RK2_1
365 : use pm_kind, only: RKC => RK2
366 : #include "test_pm_distPower@routines.inc.F90"
367 : end procedure
368 : #endif
369 :
370 : #if RK1_ENABLED
371 1 : module procedure test_getPowerLogRand_RK1_1
372 : use pm_kind, only: RKC => RK1
373 : #include "test_pm_distPower@routines.inc.F90"
374 : end procedure
375 : #endif
376 :
377 : #undef RK_ENABLED
378 :
379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380 :
381 : #undef getPowerLogRand_ENABLED
382 :
383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384 :
385 : #define setPowerLogRand_ENABLED 1
386 :
387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
388 :
389 : #define RK_ENABLED 1
390 :
391 : #if RK5_ENABLED
392 : module procedure test_setPowerLogRand_RK5_1
393 : use pm_kind, only: RKC => RK5
394 : #include "test_pm_distPower@routines.inc.F90"
395 : end procedure
396 : #endif
397 :
398 : #if RK4_ENABLED
399 1 : module procedure test_setPowerLogRand_RK4_1
400 : use pm_kind, only: RKC => RK4
401 : #include "test_pm_distPower@routines.inc.F90"
402 : end procedure
403 : #endif
404 :
405 : #if RK3_ENABLED
406 1 : module procedure test_setPowerLogRand_RK3_1
407 : use pm_kind, only: RKC => RK3
408 : #include "test_pm_distPower@routines.inc.F90"
409 : end procedure
410 : #endif
411 :
412 : #if RK2_ENABLED
413 1 : module procedure test_setPowerLogRand_RK2_1
414 : use pm_kind, only: RKC => RK2
415 : #include "test_pm_distPower@routines.inc.F90"
416 : end procedure
417 : #endif
418 :
419 : #if RK1_ENABLED
420 1 : module procedure test_setPowerLogRand_RK1_1
421 : use pm_kind, only: RKC => RK1
422 : #include "test_pm_distPower@routines.inc.F90"
423 : end procedure
424 : #endif
425 :
426 : #undef RK_ENABLED
427 :
428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429 :
430 : #undef setPowerLogRand_ENABLED
431 :
432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
433 :
434 : end submodule routines ! LCOV_EXCL_LINE
|
