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_cosmology](@ref pm_cosmology).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \FatemehBagheri, 12:27 AM Tuesday, February 22, 2022, Dallas, TX
23 :
24 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 :
26 : submodule (test_pm_cosmology) routines
27 :
28 : use pm_distUnif, only: getUnifRand
29 : use pm_val2str, only: getStr
30 : implicit none
31 :
32 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
33 :
34 : contains
35 :
36 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 :
38 : #define getSizeUnivNormed_ENABLED 1
39 :
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 :
42 : #define RK_ENABLED 1
43 :
44 : #if RK5_ENABLED
45 : module procedure test_getSizeUnivNormed_RK5
46 : use pm_kind, only: RKC => RK5
47 : #include "test_pm_cosmology@routines.inc.F90"
48 : end procedure
49 : #endif
50 :
51 : #if RK4_ENABLED
52 1 : module procedure test_getSizeUnivNormed_RK4
53 : use pm_kind, only: RKC => RK4
54 : #include "test_pm_cosmology@routines.inc.F90"
55 : end procedure
56 : #endif
57 :
58 : #if RK3_ENABLED
59 1 : module procedure test_getSizeUnivNormed_RK3
60 : use pm_kind, only: RKC => RK3
61 : #include "test_pm_cosmology@routines.inc.F90"
62 : end procedure
63 : #endif
64 :
65 : #if RK2_ENABLED
66 1 : module procedure test_getSizeUnivNormed_RK2
67 : use pm_kind, only: RKC => RK2
68 : #include "test_pm_cosmology@routines.inc.F90"
69 : end procedure
70 : #endif
71 :
72 : #if RK1_ENABLED
73 1 : module procedure test_getSizeUnivNormed_RK1
74 : use pm_kind, only: RKC => RK1
75 : #include "test_pm_cosmology@routines.inc.F90"
76 : end procedure
77 : #endif
78 :
79 : #undef RK_ENABLED
80 :
81 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
82 :
83 : #undef getSizeUnivNormed_ENABLED
84 :
85 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
86 :
87 : #define getDisLookbackNormed_ENABLED 1
88 :
89 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90 :
91 : #define RK_ENABLED 1
92 :
93 : #if RK5_ENABLED
94 : module procedure test_getDisLookbackNormed_RK5
95 : use pm_kind, only: RKC => RK5
96 : #include "test_pm_cosmology@routines.inc.F90"
97 : end procedure
98 : #endif
99 :
100 : #if RK4_ENABLED
101 1 : module procedure test_getDisLookbackNormed_RK4
102 : use pm_kind, only: RKC => RK4
103 : #include "test_pm_cosmology@routines.inc.F90"
104 : end procedure
105 : #endif
106 :
107 : #if RK3_ENABLED
108 1 : module procedure test_getDisLookbackNormed_RK3
109 : use pm_kind, only: RKC => RK3
110 : #include "test_pm_cosmology@routines.inc.F90"
111 : end procedure
112 : #endif
113 :
114 : #if RK2_ENABLED
115 1 : module procedure test_getDisLookbackNormed_RK2
116 : use pm_kind, only: RKC => RK2
117 : #include "test_pm_cosmology@routines.inc.F90"
118 : end procedure
119 : #endif
120 :
121 : #if RK1_ENABLED
122 1 : module procedure test_getDisLookbackNormed_RK1
123 : use pm_kind, only: RKC => RK1
124 : #include "test_pm_cosmology@routines.inc.F90"
125 : end procedure
126 : #endif
127 :
128 : #undef RK_ENABLED
129 :
130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
131 :
132 : #undef getDisLookbackNormed_ENABLED
133 :
134 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
135 :
136 : #define getDisComNormed_ENABLED 1
137 :
138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139 :
140 : #define RK_ENABLED 1
141 :
142 : #if RK5_ENABLED
143 : module procedure test_getDisComNormed_RK5
144 : use pm_kind, only: RKC => RK5
145 : #include "test_pm_cosmology@routines.inc.F90"
146 : end procedure
147 : #endif
148 :
149 : #if RK4_ENABLED
150 1 : module procedure test_getDisComNormed_RK4
151 : use pm_kind, only: RKC => RK4
152 : #include "test_pm_cosmology@routines.inc.F90"
153 : end procedure
154 : #endif
155 :
156 : #if RK3_ENABLED
157 1 : module procedure test_getDisComNormed_RK3
158 : use pm_kind, only: RKC => RK3
159 : #include "test_pm_cosmology@routines.inc.F90"
160 : end procedure
161 : #endif
162 :
163 : #if RK2_ENABLED
164 1 : module procedure test_getDisComNormed_RK2
165 : use pm_kind, only: RKC => RK2
166 : #include "test_pm_cosmology@routines.inc.F90"
167 : end procedure
168 : #endif
169 :
170 : #if RK1_ENABLED
171 1 : module procedure test_getDisComNormed_RK1
172 : use pm_kind, only: RKC => RK1
173 : #include "test_pm_cosmology@routines.inc.F90"
174 : end procedure
175 : #endif
176 :
177 : #undef RK_ENABLED
178 :
179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
180 :
181 : #undef getDisComNormed_ENABLED
182 :
183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
184 :
185 : #define getDisComTransNormed_ENABLED 1
186 :
187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188 :
189 : #define RK_ENABLED 1
190 :
191 : #if RK5_ENABLED
192 : module procedure test_getDisComTransNormed_RK5
193 : use pm_kind, only: RKC => RK5
194 : #include "test_pm_cosmology@routines.inc.F90"
195 : end procedure
196 : #endif
197 :
198 : #if RK4_ENABLED
199 1 : module procedure test_getDisComTransNormed_RK4
200 : use pm_kind, only: RKC => RK4
201 : #include "test_pm_cosmology@routines.inc.F90"
202 : end procedure
203 : #endif
204 :
205 : #if RK3_ENABLED
206 1 : module procedure test_getDisComTransNormed_RK3
207 : use pm_kind, only: RKC => RK3
208 : #include "test_pm_cosmology@routines.inc.F90"
209 : end procedure
210 : #endif
211 :
212 : #if RK2_ENABLED
213 1 : module procedure test_getDisComTransNormed_RK2
214 : use pm_kind, only: RKC => RK2
215 : #include "test_pm_cosmology@routines.inc.F90"
216 : end procedure
217 : #endif
218 :
219 : #if RK1_ENABLED
220 1 : module procedure test_getDisComTransNormed_RK1
221 : use pm_kind, only: RKC => RK1
222 : #include "test_pm_cosmology@routines.inc.F90"
223 : end procedure
224 : #endif
225 :
226 : #undef RK_ENABLED
227 :
228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 :
230 : #undef getDisComTransNormed_ENABLED
231 :
232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
233 :
234 : #define getDisAngNormed_ENABLED 1
235 :
236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
237 :
238 : #define RK_ENABLED 1
239 :
240 : #if RK5_ENABLED
241 : module procedure test_getDisAngNormed_RK5
242 : use pm_kind, only: RKC => RK5
243 : #include "test_pm_cosmology@routines.inc.F90"
244 : end procedure
245 : #endif
246 :
247 : #if RK4_ENABLED
248 1 : module procedure test_getDisAngNormed_RK4
249 : use pm_kind, only: RKC => RK4
250 : #include "test_pm_cosmology@routines.inc.F90"
251 : end procedure
252 : #endif
253 :
254 : #if RK3_ENABLED
255 1 : module procedure test_getDisAngNormed_RK3
256 : use pm_kind, only: RKC => RK3
257 : #include "test_pm_cosmology@routines.inc.F90"
258 : end procedure
259 : #endif
260 :
261 : #if RK2_ENABLED
262 1 : module procedure test_getDisAngNormed_RK2
263 : use pm_kind, only: RKC => RK2
264 : #include "test_pm_cosmology@routines.inc.F90"
265 : end procedure
266 : #endif
267 :
268 : #if RK1_ENABLED
269 1 : module procedure test_getDisAngNormed_RK1
270 : use pm_kind, only: RKC => RK1
271 : #include "test_pm_cosmology@routines.inc.F90"
272 : end procedure
273 : #endif
274 :
275 : #undef RK_ENABLED
276 :
277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
278 :
279 : #undef getDisAngNormed_ENABLED
280 :
281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
282 :
283 : #define getDisLumNormed_ENABLED 1
284 :
285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 :
287 : #define RK_ENABLED 1
288 :
289 : #if RK5_ENABLED
290 : module procedure test_getDisLumNormed_RK5
291 : use pm_kind, only: RKC => RK5
292 : #include "test_pm_cosmology@routines.inc.F90"
293 : end procedure
294 : #endif
295 :
296 : #if RK4_ENABLED
297 1 : module procedure test_getDisLumNormed_RK4
298 : use pm_kind, only: RKC => RK4
299 : #include "test_pm_cosmology@routines.inc.F90"
300 : end procedure
301 : #endif
302 :
303 : #if RK3_ENABLED
304 1 : module procedure test_getDisLumNormed_RK3
305 : use pm_kind, only: RKC => RK3
306 : #include "test_pm_cosmology@routines.inc.F90"
307 : end procedure
308 : #endif
309 :
310 : #if RK2_ENABLED
311 1 : module procedure test_getDisLumNormed_RK2
312 : use pm_kind, only: RKC => RK2
313 : #include "test_pm_cosmology@routines.inc.F90"
314 : end procedure
315 : #endif
316 :
317 : #if RK1_ENABLED
318 1 : module procedure test_getDisLumNormed_RK1
319 : use pm_kind, only: RKC => RK1
320 : #include "test_pm_cosmology@routines.inc.F90"
321 : end procedure
322 : #endif
323 :
324 : #undef RK_ENABLED
325 :
326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
327 :
328 : #undef getDisLumNormed_ENABLED
329 :
330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 :
332 : #define getDisComTransNormedWU10_ENABLED 1
333 :
334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335 :
336 : #define RK_ENABLED 1
337 :
338 : #if RK5_ENABLED
339 : module procedure test_getDisComTransNormedWU10_RK5
340 : use pm_kind, only: RKC => RK5
341 : #include "test_pm_cosmology@routines.inc.F90"
342 : end procedure
343 : #endif
344 :
345 : #if RK4_ENABLED
346 1 : module procedure test_getDisComTransNormedWU10_RK4
347 : use pm_kind, only: RKC => RK4
348 : #include "test_pm_cosmology@routines.inc.F90"
349 : end procedure
350 : #endif
351 :
352 : #if RK3_ENABLED
353 1 : module procedure test_getDisComTransNormedWU10_RK3
354 : use pm_kind, only: RKC => RK3
355 : #include "test_pm_cosmology@routines.inc.F90"
356 : end procedure
357 : #endif
358 :
359 : #if RK2_ENABLED
360 1 : module procedure test_getDisComTransNormedWU10_RK2
361 : use pm_kind, only: RKC => RK2
362 : #include "test_pm_cosmology@routines.inc.F90"
363 : end procedure
364 : #endif
365 :
366 : #if RK1_ENABLED
367 1 : module procedure test_getDisComTransNormedWU10_RK1
368 : use pm_kind, only: RKC => RK1
369 : #include "test_pm_cosmology@routines.inc.F90"
370 : end procedure
371 : #endif
372 :
373 : #undef RK_ENABLED
374 :
375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
376 :
377 : #undef getDisComTransNormedWU10_ENABLED
378 :
379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380 :
381 : #define getHubbleParamNormedSq_ENABLED 1
382 :
383 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384 :
385 : #define RK_ENABLED 1
386 :
387 : #if RK5_ENABLED
388 : module procedure test_getHubbleParamNormedSq_RK5
389 : use pm_kind, only: RKC => RK5
390 : #include "test_pm_cosmology@routines.inc.F90"
391 : end procedure
392 : #endif
393 :
394 : #if RK4_ENABLED
395 1 : module procedure test_getHubbleParamNormedSq_RK4
396 : use pm_kind, only: RKC => RK4
397 : #include "test_pm_cosmology@routines.inc.F90"
398 : end procedure
399 : #endif
400 :
401 : #if RK3_ENABLED
402 1 : module procedure test_getHubbleParamNormedSq_RK3
403 : use pm_kind, only: RKC => RK3
404 : #include "test_pm_cosmology@routines.inc.F90"
405 : end procedure
406 : #endif
407 :
408 : #if RK2_ENABLED
409 1 : module procedure test_getHubbleParamNormedSq_RK2
410 : use pm_kind, only: RKC => RK2
411 : #include "test_pm_cosmology@routines.inc.F90"
412 : end procedure
413 : #endif
414 :
415 : #if RK1_ENABLED
416 1 : module procedure test_getHubbleParamNormedSq_RK1
417 : use pm_kind, only: RKC => RK1
418 : #include "test_pm_cosmology@routines.inc.F90"
419 : end procedure
420 : #endif
421 :
422 : #undef RK_ENABLED
423 :
424 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
425 :
426 : #undef getHubbleParamNormedSq_ENABLED
427 :
428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429 :
430 : #define setVolComDiffNormed_ENABLED 1
431 :
432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
433 :
434 : #define RK_ENABLED 1
435 :
436 : #if RK5_ENABLED
437 : module procedure test_setVolComDiffNormed_RK5
438 : use pm_kind, only: RKC => RK5
439 : #include "test_pm_cosmology@routines.inc.F90"
440 : end procedure
441 : #endif
442 :
443 : #if RK4_ENABLED
444 1 : module procedure test_setVolComDiffNormed_RK4
445 : use pm_kind, only: RKC => RK4
446 : #include "test_pm_cosmology@routines.inc.F90"
447 : end procedure
448 : #endif
449 :
450 : #if RK3_ENABLED
451 1 : module procedure test_setVolComDiffNormed_RK3
452 : use pm_kind, only: RKC => RK3
453 : #include "test_pm_cosmology@routines.inc.F90"
454 : end procedure
455 : #endif
456 :
457 : #if RK2_ENABLED
458 1 : module procedure test_setVolComDiffNormed_RK2
459 : use pm_kind, only: RKC => RK2
460 : #include "test_pm_cosmology@routines.inc.F90"
461 : end procedure
462 : #endif
463 :
464 : #if RK1_ENABLED
465 1 : module procedure test_setVolComDiffNormed_RK1
466 : use pm_kind, only: RKC => RK1
467 : #include "test_pm_cosmology@routines.inc.F90"
468 : end procedure
469 : #endif
470 :
471 : #undef RK_ENABLED
472 :
473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
474 :
475 : #undef setVolComDiffNormed_ENABLED
476 :
477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
478 :
479 : #define getVolComDiffNormed_ENABLED 1
480 :
481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
482 :
483 : #define RK_ENABLED 1
484 :
485 : #if RK5_ENABLED
486 : module procedure test_getVolComDiffNormed_RK5
487 : use pm_kind, only: RKC => RK5
488 : #include "test_pm_cosmology@routines.inc.F90"
489 : end procedure
490 : #endif
491 :
492 : #if RK4_ENABLED
493 1 : module procedure test_getVolComDiffNormed_RK4
494 : use pm_kind, only: RKC => RK4
495 : #include "test_pm_cosmology@routines.inc.F90"
496 : end procedure
497 : #endif
498 :
499 : #if RK3_ENABLED
500 1 : module procedure test_getVolComDiffNormed_RK3
501 : use pm_kind, only: RKC => RK3
502 : #include "test_pm_cosmology@routines.inc.F90"
503 : end procedure
504 : #endif
505 :
506 : #if RK2_ENABLED
507 1 : module procedure test_getVolComDiffNormed_RK2
508 : use pm_kind, only: RKC => RK2
509 : #include "test_pm_cosmology@routines.inc.F90"
510 : end procedure
511 : #endif
512 :
513 : #if RK1_ENABLED
514 1 : module procedure test_getVolComDiffNormed_RK1
515 : use pm_kind, only: RKC => RK1
516 : #include "test_pm_cosmology@routines.inc.F90"
517 : end procedure
518 : #endif
519 :
520 : #undef RK_ENABLED
521 :
522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523 :
524 : #undef getVolComDiffNormed_ENABLED
525 :
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 :
528 : #define getVolComNormed_ENABLED 1
529 :
530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
531 :
532 : #define RK_ENABLED 1
533 :
534 : #if RK5_ENABLED
535 : module procedure test_getVolComNormed_RK5
536 : use pm_kind, only: RKC => RK5
537 : #include "test_pm_cosmology@routines.inc.F90"
538 : end procedure
539 : #endif
540 :
541 : #if RK4_ENABLED
542 1 : module procedure test_getVolComNormed_RK4
543 : use pm_kind, only: RKC => RK4
544 : #include "test_pm_cosmology@routines.inc.F90"
545 : end procedure
546 : #endif
547 :
548 : #if RK3_ENABLED
549 1 : module procedure test_getVolComNormed_RK3
550 : use pm_kind, only: RKC => RK3
551 : #include "test_pm_cosmology@routines.inc.F90"
552 : end procedure
553 : #endif
554 :
555 : #if RK2_ENABLED
556 1 : module procedure test_getVolComNormed_RK2
557 : use pm_kind, only: RKC => RK2
558 : #include "test_pm_cosmology@routines.inc.F90"
559 : end procedure
560 : #endif
561 :
562 : #if RK1_ENABLED
563 1 : module procedure test_getVolComNormed_RK1
564 : use pm_kind, only: RKC => RK1
565 : #include "test_pm_cosmology@routines.inc.F90"
566 : end procedure
567 : #endif
568 :
569 : #undef RK_ENABLED
570 :
571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572 :
573 : #undef getVolComNormed_ENABLED
574 :
575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576 :
577 : end submodule routines ! LCOV_EXCL_LINE
|
