ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_cosmology.F90
Go to the documentation of this file.
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
23
24!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25
26module 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
326contains
327
328!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329
330 subroutine setTest()
331
332 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 call test%run(test_getSizeUnivNormed_RK4, SK_"test_getSizeUnivNormed_RK4")
343#endif
344#if RK3_ENABLED
345 call test%run(test_getSizeUnivNormed_RK3, SK_"test_getSizeUnivNormed_RK3")
346#endif
347#if RK2_ENABLED
348 call test%run(test_getSizeUnivNormed_RK2, SK_"test_getSizeUnivNormed_RK2")
349#endif
350#if RK1_ENABLED
351 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 call test%run(test_getDisLookbackNormed_RK4, SK_"test_getDisLookbackNormed_RK4")
365#endif
366#if RK3_ENABLED
367 call test%run(test_getDisLookbackNormed_RK3, SK_"test_getDisLookbackNormed_RK3")
368#endif
369#if RK2_ENABLED
370 call test%run(test_getDisLookbackNormed_RK2, SK_"test_getDisLookbackNormed_RK2")
371#endif
372#if RK1_ENABLED
373 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 call test%run(test_getDisComNormed_RK4, SK_"test_getDisComNormed_RK4")
387#endif
388#if RK3_ENABLED
389 call test%run(test_getDisComNormed_RK3, SK_"test_getDisComNormed_RK3")
390#endif
391#if RK2_ENABLED
392 call test%run(test_getDisComNormed_RK2, SK_"test_getDisComNormed_RK2")
393#endif
394#if RK1_ENABLED
395 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 call test%run(test_getDisComTransNormed_RK4, SK_"test_getDisComTransNormed_RK4")
409#endif
410#if RK3_ENABLED
411 call test%run(test_getDisComTransNormed_RK3, SK_"test_getDisComTransNormed_RK3")
412#endif
413#if RK2_ENABLED
414 call test%run(test_getDisComTransNormed_RK2, SK_"test_getDisComTransNormed_RK2")
415#endif
416#if RK1_ENABLED
417 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 call test%run(test_getDisAngNormed_RK4, SK_"test_getDisAngNormed_RK4")
431#endif
432#if RK3_ENABLED
433 call test%run(test_getDisAngNormed_RK3, SK_"test_getDisAngNormed_RK3")
434#endif
435#if RK2_ENABLED
436 call test%run(test_getDisAngNormed_RK2, SK_"test_getDisAngNormed_RK2")
437#endif
438#if RK1_ENABLED
439 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 call test%run(test_getDisLumNormed_RK4, SK_"test_getDisLumNormed_RK4")
453#endif
454#if RK3_ENABLED
455 call test%run(test_getDisLumNormed_RK3, SK_"test_getDisLumNormed_RK3")
456#endif
457#if RK2_ENABLED
458 call test%run(test_getDisLumNormed_RK2, SK_"test_getDisLumNormed_RK2")
459#endif
460#if RK1_ENABLED
461 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 call test%run(test_getDisComTransNormedWU10_RK4, SK_"test_getDisComTransNormedWU10_RK4")
475#endif
476#if RK3_ENABLED
477 call test%run(test_getDisComTransNormedWU10_RK3, SK_"test_getDisComTransNormedWU10_RK3")
478#endif
479#if RK2_ENABLED
480 call test%run(test_getDisComTransNormedWU10_RK2, SK_"test_getDisComTransNormedWU10_RK2")
481#endif
482#if RK1_ENABLED
483 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 call test%run(test_getHubbleParamNormedSq_RK4, SK_"test_getHubbleParamNormedSq_RK4")
497#endif
498#if RK3_ENABLED
499 call test%run(test_getHubbleParamNormedSq_RK3, SK_"test_getHubbleParamNormedSq_RK3")
500#endif
501#if RK2_ENABLED
502 call test%run(test_getHubbleParamNormedSq_RK2, SK_"test_getHubbleParamNormedSq_RK2")
503#endif
504#if RK1_ENABLED
505 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 call test%run(test_setVolComDiffNormed_RK4, SK_"test_setVolComDiffNormed_RK4")
519#endif
520#if RK3_ENABLED
521 call test%run(test_setVolComDiffNormed_RK3, SK_"test_setVolComDiffNormed_RK3")
522#endif
523#if RK2_ENABLED
524 call test%run(test_setVolComDiffNormed_RK2, SK_"test_setVolComDiffNormed_RK2")
525#endif
526#if RK1_ENABLED
527 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 call test%run(test_getVolComDiffNormed_RK4, SK_"test_getVolComDiffNormed_RK4")
541#endif
542#if RK3_ENABLED
543 call test%run(test_getVolComDiffNormed_RK3, SK_"test_getVolComDiffNormed_RK3")
544#endif
545#if RK2_ENABLED
546 call test%run(test_getVolComDiffNormed_RK2, SK_"test_getVolComDiffNormed_RK2")
547#endif
548#if RK1_ENABLED
549 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 call test%run(test_getVolComNormed_RK4, SK_"test_getVolComNormed_RK4")
563#endif
564#if RK3_ENABLED
565 call test%run(test_getVolComNormed_RK3, SK_"test_getVolComNormed_RK3")
566#endif
567#if RK2_ENABLED
568 call test%run(test_getVolComNormed_RK2, SK_"test_getVolComNormed_RK2")
569#endif
570#if RK1_ENABLED
571 call test%run(test_getVolComNormed_RK1, SK_"test_getVolComNormed_RK1")
572#endif
573
574 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575
576 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577 call test%summarize()
578
579 end subroutine setTest
580
581!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
582
583end module test_pm_cosmology
pm_cosmology
This module contains procedures and generic interfaces and constants for cosmological calculations.
Definition: pm_cosmology.F90:78
pm_cosmology::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_cosmology.F90:84
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_cosmology
This module contains tests of the module pm_cosmology.
Definition: test_pm_cosmology.F90:26
test_pm_cosmology::setTest
subroutine setTest()
Definition: test_pm_cosmology.F90:331
test_pm_cosmology::test
type(test_type) test
Definition: test_pm_cosmology.F90:36
pm_err::err_type
This is the derived type for generating objects to gracefully and verbosely handle runtime unexpected...
Definition: pm_err.F90:157
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209