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_mathCumPropExp](@ref pm_mathCumPropExp).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \AmirShahmoradi, Tuesday 12:01 AM, August 11, 2021, Dallas, TX
23 :
24 : submodule (test_pm_mathCumPropExp) routines
25 :
26 : use pm_arrayReverse, only: setReversed
27 : use pm_arrayResize, only: setResized
28 : use pm_mathCumSum, only: getCumSum
29 : use pm_distUnif, only: getUnifRand
30 : use pm_val2str, only: getStr
31 :
32 : implicit none
33 :
34 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
35 :
36 : contains
37 :
38 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 :
40 : #define getCumPropExp_ENABLED 1
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : #define Sel_ENABLED 1
47 :
48 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49 :
50 : #define RK_ENABLED 1
51 :
52 : #if RK5_ENABLED
53 : module procedure test_getCumPropExpSel_RK5
54 : use pm_kind, only: RKC => RK5
55 : #include "test_pm_mathCumPropExp@routines.inc.F90"
56 : end procedure
57 : #endif
58 :
59 : #if RK4_ENABLED
60 1 : module procedure test_getCumPropExpSel_RK4
61 : use pm_kind, only: RKC => RK4
62 : #include "test_pm_mathCumPropExp@routines.inc.F90"
63 : end procedure
64 : #endif
65 :
66 : #if RK3_ENABLED
67 1 : module procedure test_getCumPropExpSel_RK3
68 : use pm_kind, only: RKC => RK3
69 : #include "test_pm_mathCumPropExp@routines.inc.F90"
70 : end procedure
71 : #endif
72 :
73 : #if RK2_ENABLED
74 1 : module procedure test_getCumPropExpSel_RK2
75 : use pm_kind, only: RKC => RK2
76 : #include "test_pm_mathCumPropExp@routines.inc.F90"
77 : end procedure
78 : #endif
79 :
80 : #if RK1_ENABLED
81 1 : module procedure test_getCumPropExpSel_RK1
82 : use pm_kind, only: RKC => RK1
83 : #include "test_pm_mathCumPropExp@routines.inc.F90"
84 : end procedure
85 : #endif
86 :
87 : #undef RK_ENABLED
88 :
89 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90 :
91 : #undef Sel_ENABLED
92 :
93 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96 :
97 : #define Seq_ENABLED 1
98 :
99 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100 :
101 : #define RK_ENABLED 1
102 :
103 : #if RK5_ENABLED
104 : module procedure test_getCumPropExpSeq_RK5
105 : use pm_kind, only: RKC => RK5
106 : #include "test_pm_mathCumPropExp@routines.inc.F90"
107 : end procedure
108 : #endif
109 :
110 : #if RK4_ENABLED
111 1 : module procedure test_getCumPropExpSeq_RK4
112 : use pm_kind, only: RKC => RK4
113 : #include "test_pm_mathCumPropExp@routines.inc.F90"
114 : end procedure
115 : #endif
116 :
117 : #if RK3_ENABLED
118 1 : module procedure test_getCumPropExpSeq_RK3
119 : use pm_kind, only: RKC => RK3
120 : #include "test_pm_mathCumPropExp@routines.inc.F90"
121 : end procedure
122 : #endif
123 :
124 : #if RK2_ENABLED
125 1 : module procedure test_getCumPropExpSeq_RK2
126 : use pm_kind, only: RKC => RK2
127 : #include "test_pm_mathCumPropExp@routines.inc.F90"
128 : end procedure
129 : #endif
130 :
131 : #if RK1_ENABLED
132 1 : module procedure test_getCumPropExpSeq_RK1
133 : use pm_kind, only: RKC => RK1
134 : #include "test_pm_mathCumPropExp@routines.inc.F90"
135 : end procedure
136 : #endif
137 :
138 : #undef RK_ENABLED
139 :
140 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
141 :
142 : #undef Seq_ENABLED
143 :
144 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
145 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
146 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
147 :
148 : #undef getCumPropExp_ENABLED
149 :
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 :
152 : #define setCumPropExp_ENABLED 1
153 :
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 :
158 : #define Sel_ENABLED 1
159 :
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 :
162 : #define RK_ENABLED 1
163 :
164 : #if RK5_ENABLED
165 : module procedure test_setCumPropExpSel_RK5
166 : use pm_kind, only: RKC => RK5
167 : #include "test_pm_mathCumPropExp@routines.inc.F90"
168 : end procedure
169 : #endif
170 :
171 : #if RK4_ENABLED
172 1 : module procedure test_setCumPropExpSel_RK4
173 : use pm_kind, only: RKC => RK4
174 : #include "test_pm_mathCumPropExp@routines.inc.F90"
175 : end procedure
176 : #endif
177 :
178 : #if RK3_ENABLED
179 1 : module procedure test_setCumPropExpSel_RK3
180 : use pm_kind, only: RKC => RK3
181 : #include "test_pm_mathCumPropExp@routines.inc.F90"
182 : end procedure
183 : #endif
184 :
185 : #if RK2_ENABLED
186 1 : module procedure test_setCumPropExpSel_RK2
187 : use pm_kind, only: RKC => RK2
188 : #include "test_pm_mathCumPropExp@routines.inc.F90"
189 : end procedure
190 : #endif
191 :
192 : #if RK1_ENABLED
193 1 : module procedure test_setCumPropExpSel_RK1
194 : use pm_kind, only: RKC => RK1
195 : #include "test_pm_mathCumPropExp@routines.inc.F90"
196 : end procedure
197 : #endif
198 :
199 : #undef RK_ENABLED
200 :
201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
202 :
203 : #undef Sel_ENABLED
204 :
205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
208 :
209 : #define Seq_ENABLED 1
210 :
211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
212 :
213 : #define RK_ENABLED 1
214 :
215 : #if RK5_ENABLED
216 : module procedure test_setCumPropExpSeq_RK5
217 : use pm_kind, only: RKC => RK5
218 : #include "test_pm_mathCumPropExp@routines.inc.F90"
219 : end procedure
220 : #endif
221 :
222 : #if RK4_ENABLED
223 1 : module procedure test_setCumPropExpSeq_RK4
224 : use pm_kind, only: RKC => RK4
225 : #include "test_pm_mathCumPropExp@routines.inc.F90"
226 : end procedure
227 : #endif
228 :
229 : #if RK3_ENABLED
230 1 : module procedure test_setCumPropExpSeq_RK3
231 : use pm_kind, only: RKC => RK3
232 : #include "test_pm_mathCumPropExp@routines.inc.F90"
233 : end procedure
234 : #endif
235 :
236 : #if RK2_ENABLED
237 1 : module procedure test_setCumPropExpSeq_RK2
238 : use pm_kind, only: RKC => RK2
239 : #include "test_pm_mathCumPropExp@routines.inc.F90"
240 : end procedure
241 : #endif
242 :
243 : #if RK1_ENABLED
244 1 : module procedure test_setCumPropExpSeq_RK1
245 : use pm_kind, only: RKC => RK1
246 : #include "test_pm_mathCumPropExp@routines.inc.F90"
247 : end procedure
248 : #endif
249 :
250 : #undef RK_ENABLED
251 :
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 :
254 : #undef Seq_ENABLED
255 :
256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 :
260 : #undef setCumPropExp_ENABLED
261 :
262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 :
264 : end submodule routines ! LCOV_EXCL_LINE
|
