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
18 : !> This file contains procedure implementations of tests of [test_pm_sampleMean](@ref test_pm_sampleMean).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_sampleMean) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_distUnif, only: getUnifRand
30 : use pm_distUnif, only: setUnifRand
31 : use pm_arrayResize, only: setResized
32 : use pm_arrayChoice, only: getChoice
33 : use pm_complexCompareAll, only: operator(<)
34 : use pm_complexAbs, only: abs
35 : implicit none
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 :
39 : contains
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : #define getMean_ENABLED 1
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define CK_ENABLED 1
48 :
49 : #if CK5_ENABLED
50 : module procedure test_getMean_CK5
51 : use pm_kind, only: TKC => CK5
52 : #include "test_pm_sampleMean@routines.inc.F90"
53 : end procedure
54 : #endif
55 :
56 : #if CK4_ENABLED
57 1 : module procedure test_getMean_CK4
58 : use pm_kind, only: TKC => CK4
59 : #include "test_pm_sampleMean@routines.inc.F90"
60 : end procedure
61 : #endif
62 :
63 : #if CK3_ENABLED
64 1 : module procedure test_getMean_CK3
65 : use pm_kind, only: TKC => CK3
66 : #include "test_pm_sampleMean@routines.inc.F90"
67 : end procedure
68 : #endif
69 :
70 : #if CK2_ENABLED
71 1 : module procedure test_getMean_CK2
72 : use pm_kind, only: TKC => CK2
73 : #include "test_pm_sampleMean@routines.inc.F90"
74 : end procedure
75 : #endif
76 :
77 : #if CK1_ENABLED
78 1 : module procedure test_getMean_CK1
79 : use pm_kind, only: TKC => CK1
80 : #include "test_pm_sampleMean@routines.inc.F90"
81 : end procedure
82 : #endif
83 :
84 : #undef CK_ENABLED
85 :
86 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
87 :
88 : #define RK_ENABLED 1
89 :
90 : #if RK5_ENABLED
91 : module procedure test_getMean_RK5
92 : use pm_kind, only: TKC => RK5
93 : #include "test_pm_sampleMean@routines.inc.F90"
94 : end procedure
95 : #endif
96 :
97 : #if RK4_ENABLED
98 1 : module procedure test_getMean_RK4
99 : use pm_kind, only: TKC => RK4
100 : #include "test_pm_sampleMean@routines.inc.F90"
101 : end procedure
102 : #endif
103 :
104 : #if RK3_ENABLED
105 1 : module procedure test_getMean_RK3
106 : use pm_kind, only: TKC => RK3
107 : #include "test_pm_sampleMean@routines.inc.F90"
108 : end procedure
109 : #endif
110 :
111 : #if RK2_ENABLED
112 1 : module procedure test_getMean_RK2
113 : use pm_kind, only: TKC => RK2
114 : #include "test_pm_sampleMean@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if RK1_ENABLED
119 1 : module procedure test_getMean_RK1
120 : use pm_kind, only: TKC => RK1
121 : #include "test_pm_sampleMean@routines.inc.F90"
122 : end procedure
123 : #endif
124 :
125 : #undef RK_ENABLED
126 :
127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
128 :
129 : #undef getMean_ENABLED
130 :
131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
132 :
133 : #define setMean_ENABLED 1
134 :
135 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
136 :
137 : #define CK_ENABLED 1
138 :
139 : #if CK5_ENABLED
140 : module procedure test_setMean_CK5
141 : use pm_kind, only: TKC => CK5
142 : #include "test_pm_sampleMean@routines.inc.F90"
143 : end procedure
144 : #endif
145 :
146 : #if CK4_ENABLED
147 1 : module procedure test_setMean_CK4
148 : use pm_kind, only: TKC => CK4
149 : #include "test_pm_sampleMean@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #if CK3_ENABLED
154 1 : module procedure test_setMean_CK3
155 : use pm_kind, only: TKC => CK3
156 : #include "test_pm_sampleMean@routines.inc.F90"
157 : end procedure
158 : #endif
159 :
160 : #if CK2_ENABLED
161 1 : module procedure test_setMean_CK2
162 : use pm_kind, only: TKC => CK2
163 : #include "test_pm_sampleMean@routines.inc.F90"
164 : end procedure
165 : #endif
166 :
167 : #if CK1_ENABLED
168 1 : module procedure test_setMean_CK1
169 : use pm_kind, only: TKC => CK1
170 : #include "test_pm_sampleMean@routines.inc.F90"
171 : end procedure
172 : #endif
173 :
174 : #undef CK_ENABLED
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 :
178 : #define RK_ENABLED 1
179 :
180 : #if RK5_ENABLED
181 : module procedure test_setMean_RK5
182 : use pm_kind, only: TKC => RK5
183 : #include "test_pm_sampleMean@routines.inc.F90"
184 : end procedure
185 : #endif
186 :
187 : #if RK4_ENABLED
188 1 : module procedure test_setMean_RK4
189 : use pm_kind, only: TKC => RK4
190 : #include "test_pm_sampleMean@routines.inc.F90"
191 : end procedure
192 : #endif
193 :
194 : #if RK3_ENABLED
195 1 : module procedure test_setMean_RK3
196 : use pm_kind, only: TKC => RK3
197 : #include "test_pm_sampleMean@routines.inc.F90"
198 : end procedure
199 : #endif
200 :
201 : #if RK2_ENABLED
202 1 : module procedure test_setMean_RK2
203 : use pm_kind, only: TKC => RK2
204 : #include "test_pm_sampleMean@routines.inc.F90"
205 : end procedure
206 : #endif
207 :
208 : #if RK1_ENABLED
209 1 : module procedure test_setMean_RK1
210 : use pm_kind, only: TKC => RK1
211 : #include "test_pm_sampleMean@routines.inc.F90"
212 : end procedure
213 : #endif
214 :
215 : #undef RK_ENABLED
216 :
217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
218 :
219 : #undef setMean_ENABLED
220 :
221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
222 :
223 : #define getMeanMerged_ENABLED 1
224 :
225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226 :
227 : #define CK_ENABLED 1
228 :
229 : #if CK5_ENABLED
230 : module procedure test_getMeanMerged_CK5
231 : use pm_kind, only: TKC => CK5
232 : #include "test_pm_sampleMean@routines.inc.F90"
233 : end procedure
234 : #endif
235 :
236 : #if CK4_ENABLED
237 1 : module procedure test_getMeanMerged_CK4
238 : use pm_kind, only: TKC => CK4
239 : #include "test_pm_sampleMean@routines.inc.F90"
240 : end procedure
241 : #endif
242 :
243 : #if CK3_ENABLED
244 1 : module procedure test_getMeanMerged_CK3
245 : use pm_kind, only: TKC => CK3
246 : #include "test_pm_sampleMean@routines.inc.F90"
247 : end procedure
248 : #endif
249 :
250 : #if CK2_ENABLED
251 1 : module procedure test_getMeanMerged_CK2
252 : use pm_kind, only: TKC => CK2
253 : #include "test_pm_sampleMean@routines.inc.F90"
254 : end procedure
255 : #endif
256 :
257 : #if CK1_ENABLED
258 1 : module procedure test_getMeanMerged_CK1
259 : use pm_kind, only: TKC => CK1
260 : #include "test_pm_sampleMean@routines.inc.F90"
261 : end procedure
262 : #endif
263 :
264 : #undef CK_ENABLED
265 :
266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 :
268 : #define RK_ENABLED 1
269 :
270 : #if RK5_ENABLED
271 : module procedure test_getMeanMerged_RK5
272 : use pm_kind, only: TKC => RK5
273 : #include "test_pm_sampleMean@routines.inc.F90"
274 : end procedure
275 : #endif
276 :
277 : #if RK4_ENABLED
278 1 : module procedure test_getMeanMerged_RK4
279 : use pm_kind, only: TKC => RK4
280 : #include "test_pm_sampleMean@routines.inc.F90"
281 : end procedure
282 : #endif
283 :
284 : #if RK3_ENABLED
285 1 : module procedure test_getMeanMerged_RK3
286 : use pm_kind, only: TKC => RK3
287 : #include "test_pm_sampleMean@routines.inc.F90"
288 : end procedure
289 : #endif
290 :
291 : #if RK2_ENABLED
292 1 : module procedure test_getMeanMerged_RK2
293 : use pm_kind, only: TKC => RK2
294 : #include "test_pm_sampleMean@routines.inc.F90"
295 : end procedure
296 : #endif
297 :
298 : #if RK1_ENABLED
299 1 : module procedure test_getMeanMerged_RK1
300 : use pm_kind, only: TKC => RK1
301 : #include "test_pm_sampleMean@routines.inc.F90"
302 : end procedure
303 : #endif
304 :
305 : #undef RK_ENABLED
306 :
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 :
309 : #undef getMeanMerged_ENABLED
310 :
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 :
313 : #define setMeanMerged_ENABLED 1
314 :
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 :
317 : #define CK_ENABLED 1
318 :
319 : #if CK5_ENABLED
320 : module procedure test_setMeanMerged_CK5
321 : use pm_kind, only: TKC => CK5
322 : #include "test_pm_sampleMean@routines.inc.F90"
323 : end procedure
324 : #endif
325 :
326 : #if CK4_ENABLED
327 1 : module procedure test_setMeanMerged_CK4
328 : use pm_kind, only: TKC => CK4
329 : #include "test_pm_sampleMean@routines.inc.F90"
330 : end procedure
331 : #endif
332 :
333 : #if CK3_ENABLED
334 1 : module procedure test_setMeanMerged_CK3
335 : use pm_kind, only: TKC => CK3
336 : #include "test_pm_sampleMean@routines.inc.F90"
337 : end procedure
338 : #endif
339 :
340 : #if CK2_ENABLED
341 1 : module procedure test_setMeanMerged_CK2
342 : use pm_kind, only: TKC => CK2
343 : #include "test_pm_sampleMean@routines.inc.F90"
344 : end procedure
345 : #endif
346 :
347 : #if CK1_ENABLED
348 1 : module procedure test_setMeanMerged_CK1
349 : use pm_kind, only: TKC => CK1
350 : #include "test_pm_sampleMean@routines.inc.F90"
351 : end procedure
352 : #endif
353 :
354 : #undef CK_ENABLED
355 :
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 :
358 : #define RK_ENABLED 1
359 :
360 : #if RK5_ENABLED
361 : module procedure test_setMeanMerged_RK5
362 : use pm_kind, only: TKC => RK5
363 : #include "test_pm_sampleMean@routines.inc.F90"
364 : end procedure
365 : #endif
366 :
367 : #if RK4_ENABLED
368 1 : module procedure test_setMeanMerged_RK4
369 : use pm_kind, only: TKC => RK4
370 : #include "test_pm_sampleMean@routines.inc.F90"
371 : end procedure
372 : #endif
373 :
374 : #if RK3_ENABLED
375 1 : module procedure test_setMeanMerged_RK3
376 : use pm_kind, only: TKC => RK3
377 : #include "test_pm_sampleMean@routines.inc.F90"
378 : end procedure
379 : #endif
380 :
381 : #if RK2_ENABLED
382 1 : module procedure test_setMeanMerged_RK2
383 : use pm_kind, only: TKC => RK2
384 : #include "test_pm_sampleMean@routines.inc.F90"
385 : end procedure
386 : #endif
387 :
388 : #if RK1_ENABLED
389 1 : module procedure test_setMeanMerged_RK1
390 : use pm_kind, only: TKC => RK1
391 : #include "test_pm_sampleMean@routines.inc.F90"
392 : end procedure
393 : #endif
394 :
395 : #undef RK_ENABLED
396 :
397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398 :
399 : #undef setMeanMerged_ENABLED
400 :
401 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
402 :
403 : end submodule routines
|
