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