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_cosmicRate](@ref pm_cosmicRate).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \FatemehBagheri, 12:27 AM Tuesday, February 22, 2022, Dallas, TX
23 :
24 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 :
26 : submodule (test_pm_cosmicRate) routines
27 :
28 : use pm_distUnif, only: getUnifRand
29 : use pm_distUnif, only: setUnifRand
30 : implicit none
31 :
32 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33 :
34 : contains
35 :
36 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 :
38 : #define getLogRateDensity_ENABLED 1
39 :
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : #define D0_ENABLED 1
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define H06_ENABLED 1
52 :
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define RK_ENABLED 1
56 :
57 : #if RK5_ENABLED
58 : module procedure test_getLogRateDensityH06_D0_RK5
59 : use pm_kind, only: RKC => RK5
60 : #include "test_pm_cosmicRate@routines.inc.F90"
61 : end procedure
62 : #endif
63 :
64 : #if RK4_ENABLED
65 1 : module procedure test_getLogRateDensityH06_D0_RK4
66 : use pm_kind, only: RKC => RK4
67 : #include "test_pm_cosmicRate@routines.inc.F90"
68 : end procedure
69 : #endif
70 :
71 : #if RK3_ENABLED
72 2 : module procedure test_getLogRateDensityH06_D0_RK3
73 : use pm_kind, only: RKC => RK3
74 : #include "test_pm_cosmicRate@routines.inc.F90"
75 : end procedure
76 : #endif
77 :
78 : #if RK2_ENABLED
79 1 : module procedure test_getLogRateDensityH06_D0_RK2
80 : use pm_kind, only: RKC => RK2
81 : #include "test_pm_cosmicRate@routines.inc.F90"
82 : end procedure
83 : #endif
84 :
85 : #if RK1_ENABLED
86 1 : module procedure test_getLogRateDensityH06_D0_RK1
87 : use pm_kind, only: RKC => RK1
88 : #include "test_pm_cosmicRate@routines.inc.F90"
89 : end procedure
90 : #endif
91 :
92 : #undef RK_ENABLED
93 :
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 :
96 : #undef H06_ENABLED
97 :
98 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 :
102 : #define L08_ENABLED 1
103 :
104 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105 :
106 : #define RK_ENABLED 1
107 :
108 : #if RK5_ENABLED
109 : module procedure test_getLogRateDensityL08_D0_RK5
110 : use pm_kind, only: RKC => RK5
111 : #include "test_pm_cosmicRate@routines.inc.F90"
112 : end procedure
113 : #endif
114 :
115 : #if RK4_ENABLED
116 1 : module procedure test_getLogRateDensityL08_D0_RK4
117 : use pm_kind, only: RKC => RK4
118 : #include "test_pm_cosmicRate@routines.inc.F90"
119 : end procedure
120 : #endif
121 :
122 : #if RK3_ENABLED
123 2 : module procedure test_getLogRateDensityL08_D0_RK3
124 : use pm_kind, only: RKC => RK3
125 : #include "test_pm_cosmicRate@routines.inc.F90"
126 : end procedure
127 : #endif
128 :
129 : #if RK2_ENABLED
130 1 : module procedure test_getLogRateDensityL08_D0_RK2
131 : use pm_kind, only: RKC => RK2
132 : #include "test_pm_cosmicRate@routines.inc.F90"
133 : end procedure
134 : #endif
135 :
136 : #if RK1_ENABLED
137 1 : module procedure test_getLogRateDensityL08_D0_RK1
138 : use pm_kind, only: RKC => RK1
139 : #include "test_pm_cosmicRate@routines.inc.F90"
140 : end procedure
141 : #endif
142 :
143 : #undef RK_ENABLED
144 :
145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
146 :
147 : #undef L08_ENABLED
148 :
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 :
153 : #define B10_ENABLED 1
154 :
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 :
157 : #define RK_ENABLED 1
158 :
159 : #if RK5_ENABLED
160 : module procedure test_getLogRateDensityB10_D0_RK5
161 : use pm_kind, only: RKC => RK5
162 : #include "test_pm_cosmicRate@routines.inc.F90"
163 : end procedure
164 : #endif
165 :
166 : #if RK4_ENABLED
167 1 : module procedure test_getLogRateDensityB10_D0_RK4
168 : use pm_kind, only: RKC => RK4
169 : #include "test_pm_cosmicRate@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if RK3_ENABLED
174 2 : module procedure test_getLogRateDensityB10_D0_RK3
175 : use pm_kind, only: RKC => RK3
176 : #include "test_pm_cosmicRate@routines.inc.F90"
177 : end procedure
178 : #endif
179 :
180 : #if RK2_ENABLED
181 1 : module procedure test_getLogRateDensityB10_D0_RK2
182 : use pm_kind, only: RKC => RK2
183 : #include "test_pm_cosmicRate@routines.inc.F90"
184 : end procedure
185 : #endif
186 :
187 : #if RK1_ENABLED
188 1 : module procedure test_getLogRateDensityB10_D0_RK1
189 : use pm_kind, only: RKC => RK1
190 : #include "test_pm_cosmicRate@routines.inc.F90"
191 : end procedure
192 : #endif
193 :
194 : #undef RK_ENABLED
195 :
196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 :
198 : #undef B10_ENABLED
199 :
200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 :
204 : #define M14_ENABLED 1
205 :
206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
207 :
208 : #define RK_ENABLED 1
209 :
210 : #if RK5_ENABLED
211 : module procedure test_getLogRateDensityM14_D0_RK5
212 : use pm_kind, only: RKC => RK5
213 : #include "test_pm_cosmicRate@routines.inc.F90"
214 : end procedure
215 : #endif
216 :
217 : #if RK4_ENABLED
218 1 : module procedure test_getLogRateDensityM14_D0_RK4
219 : use pm_kind, only: RKC => RK4
220 : #include "test_pm_cosmicRate@routines.inc.F90"
221 : end procedure
222 : #endif
223 :
224 : #if RK3_ENABLED
225 2 : module procedure test_getLogRateDensityM14_D0_RK3
226 : use pm_kind, only: RKC => RK3
227 : #include "test_pm_cosmicRate@routines.inc.F90"
228 : end procedure
229 : #endif
230 :
231 : #if RK2_ENABLED
232 1 : module procedure test_getLogRateDensityM14_D0_RK2
233 : use pm_kind, only: RKC => RK2
234 : #include "test_pm_cosmicRate@routines.inc.F90"
235 : end procedure
236 : #endif
237 :
238 : #if RK1_ENABLED
239 1 : module procedure test_getLogRateDensityM14_D0_RK1
240 : use pm_kind, only: RKC => RK1
241 : #include "test_pm_cosmicRate@routines.inc.F90"
242 : end procedure
243 : #endif
244 :
245 : #undef RK_ENABLED
246 :
247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248 :
249 : #undef M14_ENABLED
250 :
251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 :
255 : #define P15_ENABLED 1
256 :
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 :
259 : #define RK_ENABLED 1
260 :
261 : #if RK5_ENABLED
262 : module procedure test_getLogRateDensityP15_D0_RK5
263 : use pm_kind, only: RKC => RK5
264 : #include "test_pm_cosmicRate@routines.inc.F90"
265 : end procedure
266 : #endif
267 :
268 : #if RK4_ENABLED
269 1 : module procedure test_getLogRateDensityP15_D0_RK4
270 : use pm_kind, only: RKC => RK4
271 : #include "test_pm_cosmicRate@routines.inc.F90"
272 : end procedure
273 : #endif
274 :
275 : #if RK3_ENABLED
276 2 : module procedure test_getLogRateDensityP15_D0_RK3
277 : use pm_kind, only: RKC => RK3
278 : #include "test_pm_cosmicRate@routines.inc.F90"
279 : end procedure
280 : #endif
281 :
282 : #if RK2_ENABLED
283 1 : module procedure test_getLogRateDensityP15_D0_RK2
284 : use pm_kind, only: RKC => RK2
285 : #include "test_pm_cosmicRate@routines.inc.F90"
286 : end procedure
287 : #endif
288 :
289 : #if RK1_ENABLED
290 1 : module procedure test_getLogRateDensityP15_D0_RK1
291 : use pm_kind, only: RKC => RK1
292 : #include "test_pm_cosmicRate@routines.inc.F90"
293 : end procedure
294 : #endif
295 :
296 : #undef RK_ENABLED
297 :
298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
299 :
300 : #undef P15_ENABLED
301 :
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305 :
306 : #define M17_ENABLED 1
307 :
308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
309 :
310 : #define RK_ENABLED 1
311 :
312 : #if RK5_ENABLED
313 : module procedure test_getLogRateDensityM17_D0_RK5
314 : use pm_kind, only: RKC => RK5
315 : #include "test_pm_cosmicRate@routines.inc.F90"
316 : end procedure
317 : #endif
318 :
319 : #if RK4_ENABLED
320 1 : module procedure test_getLogRateDensityM17_D0_RK4
321 : use pm_kind, only: RKC => RK4
322 : #include "test_pm_cosmicRate@routines.inc.F90"
323 : end procedure
324 : #endif
325 :
326 : #if RK3_ENABLED
327 2 : module procedure test_getLogRateDensityM17_D0_RK3
328 : use pm_kind, only: RKC => RK3
329 : #include "test_pm_cosmicRate@routines.inc.F90"
330 : end procedure
331 : #endif
332 :
333 : #if RK2_ENABLED
334 1 : module procedure test_getLogRateDensityM17_D0_RK2
335 : use pm_kind, only: RKC => RK2
336 : #include "test_pm_cosmicRate@routines.inc.F90"
337 : end procedure
338 : #endif
339 :
340 : #if RK1_ENABLED
341 1 : module procedure test_getLogRateDensityM17_D0_RK1
342 : use pm_kind, only: RKC => RK1
343 : #include "test_pm_cosmicRate@routines.inc.F90"
344 : end procedure
345 : #endif
346 :
347 : #undef RK_ENABLED
348 :
349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
350 :
351 : #undef M17_ENABLED
352 :
353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
356 :
357 : #define F18_ENABLED 1
358 :
359 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
360 :
361 : #define RK_ENABLED 1
362 :
363 : #if RK5_ENABLED
364 : module procedure test_getLogRateDensityF18_D0_RK5
365 : use pm_kind, only: RKC => RK5
366 : #include "test_pm_cosmicRate@routines.inc.F90"
367 : end procedure
368 : #endif
369 :
370 : #if RK4_ENABLED
371 1 : module procedure test_getLogRateDensityF18_D0_RK4
372 : use pm_kind, only: RKC => RK4
373 : #include "test_pm_cosmicRate@routines.inc.F90"
374 : end procedure
375 : #endif
376 :
377 : #if RK3_ENABLED
378 2 : module procedure test_getLogRateDensityF18_D0_RK3
379 : use pm_kind, only: RKC => RK3
380 : #include "test_pm_cosmicRate@routines.inc.F90"
381 : end procedure
382 : #endif
383 :
384 : #if RK2_ENABLED
385 1 : module procedure test_getLogRateDensityF18_D0_RK2
386 : use pm_kind, only: RKC => RK2
387 : #include "test_pm_cosmicRate@routines.inc.F90"
388 : end procedure
389 : #endif
390 :
391 : #if RK1_ENABLED
392 1 : module procedure test_getLogRateDensityF18_D0_RK1
393 : use pm_kind, only: RKC => RK1
394 : #include "test_pm_cosmicRate@routines.inc.F90"
395 : end procedure
396 : #endif
397 :
398 : #undef RK_ENABLED
399 :
400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401 :
402 : #undef F18_ENABLED
403 :
404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
405 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
407 :
408 : #undef D0_ENABLED
409 :
410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413 :
414 : #undef getLogRateDensity_ENABLED
415 :
416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417 :
418 : end submodule routines ! LCOV_EXCL_LINE
|
