ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_cosmicRate.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_cosmicRate
27
28 use pm_cosmicRate
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_getLogRateDensityH06_D0_RK5() result(assertion); logical(LK) :: assertion; end function
46#endif
47#if RK4_ENABLED
48 module function test_getLogRateDensityH06_D0_RK4() result(assertion); logical(LK) :: assertion; end function
49#endif
50#if RK3_ENABLED
51 module function test_getLogRateDensityH06_D0_RK3() result(assertion); logical(LK) :: assertion; end function
52#endif
53#if RK2_ENABLED
54 module function test_getLogRateDensityH06_D0_RK2() result(assertion); logical(LK) :: assertion; end function
55#endif
56#if RK1_ENABLED
57 module function test_getLogRateDensityH06_D0_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_getLogRateDensityL08_D0_RK5() result(assertion); logical(LK) :: assertion; end function
72#endif
73#if RK4_ENABLED
74 module function test_getLogRateDensityL08_D0_RK4() result(assertion); logical(LK) :: assertion; end function
75#endif
76#if RK3_ENABLED
77 module function test_getLogRateDensityL08_D0_RK3() result(assertion); logical(LK) :: assertion; end function
78#endif
79#if RK2_ENABLED
80 module function test_getLogRateDensityL08_D0_RK2() result(assertion); logical(LK) :: assertion; end function
81#endif
82#if RK1_ENABLED
83 module function test_getLogRateDensityL08_D0_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_getLogRateDensityB10_D0_RK5() result(assertion); logical(LK) :: assertion; end function
98#endif
99#if RK4_ENABLED
100 module function test_getLogRateDensityB10_D0_RK4() result(assertion); logical(LK) :: assertion; end function
101#endif
102#if RK3_ENABLED
103 module function test_getLogRateDensityB10_D0_RK3() result(assertion); logical(LK) :: assertion; end function
104#endif
105#if RK2_ENABLED
106 module function test_getLogRateDensityB10_D0_RK2() result(assertion); logical(LK) :: assertion; end function
107#endif
108#if RK1_ENABLED
109 module function test_getLogRateDensityB10_D0_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_getLogRateDensityM14_D0_RK5() result(assertion); logical(LK) :: assertion; end function
124#endif
125#if RK4_ENABLED
126 module function test_getLogRateDensityM14_D0_RK4() result(assertion); logical(LK) :: assertion; end function
127#endif
128#if RK3_ENABLED
129 module function test_getLogRateDensityM14_D0_RK3() result(assertion); logical(LK) :: assertion; end function
130#endif
131#if RK2_ENABLED
132 module function test_getLogRateDensityM14_D0_RK2() result(assertion); logical(LK) :: assertion; end function
133#endif
134#if RK1_ENABLED
135 module function test_getLogRateDensityM14_D0_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_getLogRateDensityP15_D0_RK5() result(assertion); logical(LK) :: assertion; end function
150#endif
151#if RK4_ENABLED
152 module function test_getLogRateDensityP15_D0_RK4() result(assertion); logical(LK) :: assertion; end function
153#endif
154#if RK3_ENABLED
155 module function test_getLogRateDensityP15_D0_RK3() result(assertion); logical(LK) :: assertion; end function
156#endif
157#if RK2_ENABLED
158 module function test_getLogRateDensityP15_D0_RK2() result(assertion); logical(LK) :: assertion; end function
159#endif
160#if RK1_ENABLED
161 module function test_getLogRateDensityP15_D0_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_getLogRateDensityM17_D0_RK5() result(assertion); logical(LK) :: assertion; end function
176#endif
177#if RK4_ENABLED
178 module function test_getLogRateDensityM17_D0_RK4() result(assertion); logical(LK) :: assertion; end function
179#endif
180#if RK3_ENABLED
181 module function test_getLogRateDensityM17_D0_RK3() result(assertion); logical(LK) :: assertion; end function
182#endif
183#if RK2_ENABLED
184 module function test_getLogRateDensityM17_D0_RK2() result(assertion); logical(LK) :: assertion; end function
185#endif
186#if RK1_ENABLED
187 module function test_getLogRateDensityM17_D0_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_getLogRateDensityF18_D0_RK5() result(assertion); logical(LK) :: assertion; end function
202#endif
203#if RK4_ENABLED
204 module function test_getLogRateDensityF18_D0_RK4() result(assertion); logical(LK) :: assertion; end function
205#endif
206#if RK3_ENABLED
207 module function test_getLogRateDensityF18_D0_RK3() result(assertion); logical(LK) :: assertion; end function
208#endif
209#if RK2_ENABLED
210 module function test_getLogRateDensityF18_D0_RK2() result(assertion); logical(LK) :: assertion; end function
211#endif
212#if RK1_ENABLED
213 module function test_getLogRateDensityF18_D0_RK1() result(assertion); logical(LK) :: assertion; end function
214#endif
215
216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
217
218 end interface
219
220!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
221
222contains
223
224!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
225
226 subroutine setTest()
227
228 test = test_type(MODULE_NAME)
229
230 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
231
232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
233
234#if RK5_ENABLED
235 call test%run(test_getLogRateDensityH06_D0_RK5, SK_"test_getLogRateDensityH06_D0_RK5")
236#endif
237#if RK4_ENABLED
238 call test%run(test_getLogRateDensityH06_D0_RK4, SK_"test_getLogRateDensityH06_D0_RK4")
239#endif
240#if RK3_ENABLED
241 call test%run(test_getLogRateDensityH06_D0_RK3, SK_"test_getLogRateDensityH06_D0_RK3")
242#endif
243#if RK3_ENABLED
244 call test%run(test_getLogRateDensityH06_D0_RK3, SK_"test_getLogRateDensityH06_D0_RK3")
245#endif
246#if RK2_ENABLED
247 call test%run(test_getLogRateDensityH06_D0_RK2, SK_"test_getLogRateDensityH06_D0_RK2")
248#endif
249#if RK1_ENABLED
250 call test%run(test_getLogRateDensityH06_D0_RK1, SK_"test_getLogRateDensityH06_D0_RK1")
251#endif
252
253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254
255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
256
257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258
259#if RK5_ENABLED
260 call test%run(test_getLogRateDensityL08_D0_RK5, SK_"test_getLogRateDensityL08_D0_RK5")
261#endif
262#if RK4_ENABLED
263 call test%run(test_getLogRateDensityL08_D0_RK4, SK_"test_getLogRateDensityL08_D0_RK4")
264#endif
265#if RK3_ENABLED
266 call test%run(test_getLogRateDensityL08_D0_RK3, SK_"test_getLogRateDensityL08_D0_RK3")
267#endif
268#if RK3_ENABLED
269 call test%run(test_getLogRateDensityL08_D0_RK3, SK_"test_getLogRateDensityL08_D0_RK3")
270#endif
271#if RK2_ENABLED
272 call test%run(test_getLogRateDensityL08_D0_RK2, SK_"test_getLogRateDensityL08_D0_RK2")
273#endif
274#if RK1_ENABLED
275 call test%run(test_getLogRateDensityL08_D0_RK1, SK_"test_getLogRateDensityL08_D0_RK1")
276#endif
277
278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
279
280 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281
282 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
283
284#if RK5_ENABLED
285 call test%run(test_getLogRateDensityB10_D0_RK5, SK_"test_getLogRateDensityB10_D0_RK5")
286#endif
287#if RK4_ENABLED
288 call test%run(test_getLogRateDensityB10_D0_RK4, SK_"test_getLogRateDensityB10_D0_RK4")
289#endif
290#if RK3_ENABLED
291 call test%run(test_getLogRateDensityB10_D0_RK3, SK_"test_getLogRateDensityB10_D0_RK3")
292#endif
293#if RK3_ENABLED
294 call test%run(test_getLogRateDensityB10_D0_RK3, SK_"test_getLogRateDensityB10_D0_RK3")
295#endif
296#if RK2_ENABLED
297 call test%run(test_getLogRateDensityB10_D0_RK2, SK_"test_getLogRateDensityB10_D0_RK2")
298#endif
299#if RK1_ENABLED
300 call test%run(test_getLogRateDensityB10_D0_RK1, SK_"test_getLogRateDensityB10_D0_RK1")
301#endif
302
303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304
305 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306
307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308
309#if RK5_ENABLED
310 call test%run(test_getLogRateDensityM14_D0_RK5, SK_"test_getLogRateDensityM14_D0_RK5")
311#endif
312#if RK4_ENABLED
313 call test%run(test_getLogRateDensityM14_D0_RK4, SK_"test_getLogRateDensityM14_D0_RK4")
314#endif
315#if RK3_ENABLED
316 call test%run(test_getLogRateDensityM14_D0_RK3, SK_"test_getLogRateDensityM14_D0_RK3")
317#endif
318#if RK3_ENABLED
319 call test%run(test_getLogRateDensityM14_D0_RK3, SK_"test_getLogRateDensityM14_D0_RK3")
320#endif
321#if RK2_ENABLED
322 call test%run(test_getLogRateDensityM14_D0_RK2, SK_"test_getLogRateDensityM14_D0_RK2")
323#endif
324#if RK1_ENABLED
325 call test%run(test_getLogRateDensityM14_D0_RK1, SK_"test_getLogRateDensityM14_D0_RK1")
326#endif
327
328 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329
330 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331
332 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333
334#if RK5_ENABLED
335 call test%run(test_getLogRateDensityP15_D0_RK5, SK_"test_getLogRateDensityP15_D0_RK5")
336#endif
337#if RK4_ENABLED
338 call test%run(test_getLogRateDensityP15_D0_RK4, SK_"test_getLogRateDensityP15_D0_RK4")
339#endif
340#if RK3_ENABLED
341 call test%run(test_getLogRateDensityP15_D0_RK3, SK_"test_getLogRateDensityP15_D0_RK3")
342#endif
343#if RK3_ENABLED
344 call test%run(test_getLogRateDensityP15_D0_RK3, SK_"test_getLogRateDensityP15_D0_RK3")
345#endif
346#if RK2_ENABLED
347 call test%run(test_getLogRateDensityP15_D0_RK2, SK_"test_getLogRateDensityP15_D0_RK2")
348#endif
349#if RK1_ENABLED
350 call test%run(test_getLogRateDensityP15_D0_RK1, SK_"test_getLogRateDensityP15_D0_RK1")
351#endif
352
353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
354
355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
356
357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358
359#if RK5_ENABLED
360 call test%run(test_getLogRateDensityM17_D0_RK5, SK_"test_getLogRateDensityM17_D0_RK5")
361#endif
362#if RK4_ENABLED
363 call test%run(test_getLogRateDensityM17_D0_RK4, SK_"test_getLogRateDensityM17_D0_RK4")
364#endif
365#if RK3_ENABLED
366 call test%run(test_getLogRateDensityM17_D0_RK3, SK_"test_getLogRateDensityM17_D0_RK3")
367#endif
368#if RK3_ENABLED
369 call test%run(test_getLogRateDensityM17_D0_RK3, SK_"test_getLogRateDensityM17_D0_RK3")
370#endif
371#if RK2_ENABLED
372 call test%run(test_getLogRateDensityM17_D0_RK2, SK_"test_getLogRateDensityM17_D0_RK2")
373#endif
374#if RK1_ENABLED
375 call test%run(test_getLogRateDensityM17_D0_RK1, SK_"test_getLogRateDensityM17_D0_RK1")
376#endif
377
378 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379
380 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
381
382 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
383
384#if RK5_ENABLED
385 call test%run(test_getLogRateDensityF18_D0_RK5, SK_"test_getLogRateDensityF18_D0_RK5")
386#endif
387#if RK4_ENABLED
388 call test%run(test_getLogRateDensityF18_D0_RK4, SK_"test_getLogRateDensityF18_D0_RK4")
389#endif
390#if RK3_ENABLED
391 call test%run(test_getLogRateDensityF18_D0_RK3, SK_"test_getLogRateDensityF18_D0_RK3")
392#endif
393#if RK3_ENABLED
394 call test%run(test_getLogRateDensityF18_D0_RK3, SK_"test_getLogRateDensityF18_D0_RK3")
395#endif
396#if RK2_ENABLED
397 call test%run(test_getLogRateDensityF18_D0_RK2, SK_"test_getLogRateDensityF18_D0_RK2")
398#endif
399#if RK1_ENABLED
400 call test%run(test_getLogRateDensityF18_D0_RK1, SK_"test_getLogRateDensityF18_D0_RK1")
401#endif
402
403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404
405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
406 call test%summarize()
407
408 end subroutine setTest
409
410!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411
412end module test_pm_cosmicRate
pm_cosmicRate
This module contains procedures and generic interfaces for computing the cosmic rates of celestial ph...
Definition: pm_cosmicRate.F90:49
pm_cosmicRate::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_cosmicRate.F90:55
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_cosmicRate
This module contains tests of the module pm_cosmicRate.
Definition: test_pm_cosmicRate.F90:26
test_pm_cosmicRate::setTest
subroutine setTest()
Definition: test_pm_cosmicRate.F90:227
test_pm_cosmicRate::test
type(test_type) test
Definition: test_pm_cosmicRate.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