ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_distPiwiPoweto.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_distPiwiPoweto
27
28 use pm_distPiwiPoweto
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#if RK5_ENABLED
43 module function test_getPiwiPowetoLogPDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
44#endif
45#if RK4_ENABLED
46 module function test_getPiwiPowetoLogPDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
47#endif
48#if RK3_ENABLED
49 module function test_getPiwiPowetoLogPDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
50#endif
51#if RK2_ENABLED
52 module function test_getPiwiPowetoLogPDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
53#endif
54#if RK1_ENABLED
55 module function test_getPiwiPowetoLogPDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
56#endif
57
58 end interface
59
60!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62 interface
63
64#if RK5_ENABLED
65 module function test_setPiwiPowetoLogPDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
66#endif
67#if RK4_ENABLED
68 module function test_setPiwiPowetoLogPDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
69#endif
70#if RK3_ENABLED
71 module function test_setPiwiPowetoLogPDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
72#endif
73#if RK2_ENABLED
74 module function test_setPiwiPowetoLogPDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
75#endif
76#if RK1_ENABLED
77 module function test_setPiwiPowetoLogPDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
78#endif
79
80 end interface
81
82!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83
84 interface
85
86#if RK5_ENABLED
87 module function test_getPiwiPowetoCDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
88#endif
89#if RK4_ENABLED
90 module function test_getPiwiPowetoCDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
91#endif
92#if RK3_ENABLED
93 module function test_getPiwiPowetoCDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
94#endif
95#if RK2_ENABLED
96 module function test_getPiwiPowetoCDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
97#endif
98#if RK1_ENABLED
99 module function test_getPiwiPowetoCDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
100#endif
101
102 end interface
103
104!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105
106 interface
107
108#if RK5_ENABLED
109 module function test_setPiwiPowetoCDF_RK5_1() result(assertion); logical(LK) :: assertion; end function
110#endif
111#if RK4_ENABLED
112 module function test_setPiwiPowetoCDF_RK4_1() result(assertion); logical(LK) :: assertion; end function
113#endif
114#if RK3_ENABLED
115 module function test_setPiwiPowetoCDF_RK3_1() result(assertion); logical(LK) :: assertion; end function
116#endif
117#if RK2_ENABLED
118 module function test_setPiwiPowetoCDF_RK2_1() result(assertion); logical(LK) :: assertion; end function
119#endif
120#if RK1_ENABLED
121 module function test_setPiwiPowetoCDF_RK1_1() result(assertion); logical(LK) :: assertion; end function
122#endif
123
124 end interface
125
126!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
127
128contains
129
130!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
131
132 subroutine setTest()
133
134 test = test_type(MODULE_NAME)
135
136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
137
138#if RK5_ENABLED
139 call test%run(test_getPiwiPowetoLogPDF_RK5_1, SK_"test_getPiwiPowetoLogPDF_RK5_1")
140#endif
141#if RK4_ENABLED
142 call test%run(test_getPiwiPowetoLogPDF_RK4_1, SK_"test_getPiwiPowetoLogPDF_RK4_1")
143#endif
144#if RK3_ENABLED
145 call test%run(test_getPiwiPowetoLogPDF_RK3_1, SK_"test_getPiwiPowetoLogPDF_RK3_1")
146#endif
147#if RK2_ENABLED
148 call test%run(test_getPiwiPowetoLogPDF_RK2_1, SK_"test_getPiwiPowetoLogPDF_RK2_1")
149#endif
150#if RK1_ENABLED
151 call test%run(test_getPiwiPowetoLogPDF_RK1_1, SK_"test_getPiwiPowetoLogPDF_RK1_1")
152#endif
153
154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155
156#if RK5_ENABLED
157 call test%run(test_setPiwiPowetoLogPDF_RK5_1, SK_"test_setPiwiPowetoLogPDF_RK5_1")
158#endif
159#if RK4_ENABLED
160 call test%run(test_setPiwiPowetoLogPDF_RK4_1, SK_"test_setPiwiPowetoLogPDF_RK4_1")
161#endif
162#if RK3_ENABLED
163 call test%run(test_setPiwiPowetoLogPDF_RK3_1, SK_"test_setPiwiPowetoLogPDF_RK3_1")
164#endif
165#if RK2_ENABLED
166 call test%run(test_setPiwiPowetoLogPDF_RK2_1, SK_"test_setPiwiPowetoLogPDF_RK2_1")
167#endif
168#if RK1_ENABLED
169 call test%run(test_setPiwiPowetoLogPDF_RK1_1, SK_"test_setPiwiPowetoLogPDF_RK1_1")
170#endif
171
172 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173
174#if RK5_ENABLED
175 call test%run(test_getPiwiPowetoCDF_RK5_1, SK_"test_getPiwiPowetoCDF_RK5_1")
176#endif
177#if RK4_ENABLED
178 call test%run(test_getPiwiPowetoCDF_RK4_1, SK_"test_getPiwiPowetoCDF_RK4_1")
179#endif
180#if RK3_ENABLED
181 call test%run(test_getPiwiPowetoCDF_RK3_1, SK_"test_getPiwiPowetoCDF_RK3_1")
182#endif
183#if RK2_ENABLED
184 call test%run(test_getPiwiPowetoCDF_RK2_1, SK_"test_getPiwiPowetoCDF_RK2_1")
185#endif
186#if RK1_ENABLED
187 call test%run(test_getPiwiPowetoCDF_RK1_1, SK_"test_getPiwiPowetoCDF_RK1_1")
188#endif
189
190 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
191
192#if RK5_ENABLED
193 call test%run(test_setPiwiPowetoCDF_RK5_1, SK_"test_setPiwiPowetoCDF_RK5_1")
194#endif
195#if RK4_ENABLED
196 call test%run(test_setPiwiPowetoCDF_RK4_1, SK_"test_setPiwiPowetoCDF_RK4_1")
197#endif
198#if RK3_ENABLED
199 call test%run(test_setPiwiPowetoCDF_RK3_1, SK_"test_setPiwiPowetoCDF_RK3_1")
200#endif
201#if RK2_ENABLED
202 call test%run(test_setPiwiPowetoCDF_RK2_1, SK_"test_setPiwiPowetoCDF_RK2_1")
203#endif
204#if RK1_ENABLED
205 call test%run(test_setPiwiPowetoCDF_RK1_1, SK_"test_setPiwiPowetoCDF_RK1_1")
206#endif
207
208 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
209 call test%summarize()
210
211 end subroutine setTest
212
213!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214
215end module test_pm_distPiwiPoweto
pm_distPiwiPoweto
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distPiwiPoweto.F90:94
pm_distPiwiPoweto::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_distPiwiPoweto.F90:100
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_distPiwiPoweto
This module contains tests of the module pm_distPiwiPoweto.
Definition: test_pm_distPiwiPoweto.F90:26
test_pm_distPiwiPoweto::test
type(test_type) test
Definition: test_pm_distPiwiPoweto.F90:36
test_pm_distPiwiPoweto::setTest
subroutine setTest()
Definition: test_pm_distPiwiPoweto.F90:133
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