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 module contains tests of the module [pm_sampleCov](@ref pm_sampleCov).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Thursday 12:45 AM, August 20, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : module test_pm_sampleCov
28 :
29 : use pm_sampleCov
30 : use pm_kind, only: IK
31 : use pm_test, only: test_type, LK
32 : implicit none
33 :
34 : private
35 : public :: setTest
36 : type(test_type) :: test
37 :
38 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 :
40 : ! getCov
41 :
42 : interface
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : #if CK5_ENABLED
47 : module function test_getCov_CK5() result(assertion); logical(LK) :: assertion; end function
48 : #endif
49 : #if CK4_ENABLED
50 : module function test_getCov_CK4() result(assertion); logical(LK) :: assertion; end function
51 : #endif
52 : #if CK3_ENABLED
53 : module function test_getCov_CK3() result(assertion); logical(LK) :: assertion; end function
54 : #endif
55 : #if CK2_ENABLED
56 : module function test_getCov_CK2() result(assertion); logical(LK) :: assertion; end function
57 : #endif
58 : #if CK1_ENABLED
59 : module function test_getCov_CK1() result(assertion); logical(LK) :: assertion; end function
60 : #endif
61 :
62 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63 :
64 : #if RK5_ENABLED
65 : module function test_getCov_RK5() result(assertion); logical(LK) :: assertion; end function
66 : #endif
67 : #if RK4_ENABLED
68 : module function test_getCov_RK4() result(assertion); logical(LK) :: assertion; end function
69 : #endif
70 : #if RK3_ENABLED
71 : module function test_getCov_RK3() result(assertion); logical(LK) :: assertion; end function
72 : #endif
73 : #if RK2_ENABLED
74 : module function test_getCov_RK2() result(assertion); logical(LK) :: assertion; end function
75 : #endif
76 : #if RK1_ENABLED
77 : module function test_getCov_RK1() result(assertion); logical(LK) :: assertion; end function
78 : #endif
79 :
80 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
81 :
82 : end interface
83 :
84 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85 :
86 : ! setCov
87 :
88 : interface
89 :
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 :
92 : #if CK5_ENABLED
93 : module function test_setCov_CK5() result(assertion); logical(LK) :: assertion; end function
94 : #endif
95 : #if CK4_ENABLED
96 : module function test_setCov_CK4() result(assertion); logical(LK) :: assertion; end function
97 : #endif
98 : #if CK3_ENABLED
99 : module function test_setCov_CK3() result(assertion); logical(LK) :: assertion; end function
100 : #endif
101 : #if CK2_ENABLED
102 : module function test_setCov_CK2() result(assertion); logical(LK) :: assertion; end function
103 : #endif
104 : #if CK1_ENABLED
105 : module function test_setCov_CK1() result(assertion); logical(LK) :: assertion; end function
106 : #endif
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 :
110 : #if RK5_ENABLED
111 : module function test_setCov_RK5() result(assertion); logical(LK) :: assertion; end function
112 : #endif
113 : #if RK4_ENABLED
114 : module function test_setCov_RK4() result(assertion); logical(LK) :: assertion; end function
115 : #endif
116 : #if RK3_ENABLED
117 : module function test_setCov_RK3() result(assertion); logical(LK) :: assertion; end function
118 : #endif
119 : #if RK2_ENABLED
120 : module function test_setCov_RK2() result(assertion); logical(LK) :: assertion; end function
121 : #endif
122 : #if RK1_ENABLED
123 : module function test_setCov_RK1() result(assertion); logical(LK) :: assertion; end function
124 : #endif
125 :
126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
127 :
128 : end interface
129 :
130 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
131 :
132 : ! getCovMerged
133 :
134 : interface
135 :
136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
137 :
138 : #if CK5_ENABLED
139 : module function test_getCovMerged_CK5() result(assertion); logical(LK) :: assertion; end function
140 : #endif
141 : #if CK4_ENABLED
142 : module function test_getCovMerged_CK4() result(assertion); logical(LK) :: assertion; end function
143 : #endif
144 : #if CK3_ENABLED
145 : module function test_getCovMerged_CK3() result(assertion); logical(LK) :: assertion; end function
146 : #endif
147 : #if CK2_ENABLED
148 : module function test_getCovMerged_CK2() result(assertion); logical(LK) :: assertion; end function
149 : #endif
150 : #if CK1_ENABLED
151 : module function test_getCovMerged_CK1() result(assertion); logical(LK) :: assertion; end function
152 : #endif
153 :
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 :
156 : #if RK5_ENABLED
157 : module function test_getCovMerged_RK5() result(assertion); logical(LK) :: assertion; end function
158 : #endif
159 : #if RK4_ENABLED
160 : module function test_getCovMerged_RK4() result(assertion); logical(LK) :: assertion; end function
161 : #endif
162 : #if RK3_ENABLED
163 : module function test_getCovMerged_RK3() result(assertion); logical(LK) :: assertion; end function
164 : #endif
165 : #if RK2_ENABLED
166 : module function test_getCovMerged_RK2() result(assertion); logical(LK) :: assertion; end function
167 : #endif
168 : #if RK1_ENABLED
169 : module function test_getCovMerged_RK1() result(assertion); logical(LK) :: assertion; end function
170 : #endif
171 :
172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173 :
174 : end interface
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 :
178 : ! setCovMean
179 :
180 : interface
181 :
182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183 :
184 : #if CK5_ENABLED
185 : module function test_setCovMean_CK5() result(assertion); logical(LK) :: assertion; end function
186 : #endif
187 : #if CK4_ENABLED
188 : module function test_setCovMean_CK4() result(assertion); logical(LK) :: assertion; end function
189 : #endif
190 : #if CK3_ENABLED
191 : module function test_setCovMean_CK3() result(assertion); logical(LK) :: assertion; end function
192 : #endif
193 : #if CK2_ENABLED
194 : module function test_setCovMean_CK2() result(assertion); logical(LK) :: assertion; end function
195 : #endif
196 : #if CK1_ENABLED
197 : module function test_setCovMean_CK1() result(assertion); logical(LK) :: assertion; end function
198 : #endif
199 :
200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201 :
202 : #if RK5_ENABLED
203 : module function test_setCovMean_RK5() result(assertion); logical(LK) :: assertion; end function
204 : #endif
205 : #if RK4_ENABLED
206 : module function test_setCovMean_RK4() result(assertion); logical(LK) :: assertion; end function
207 : #endif
208 : #if RK3_ENABLED
209 : module function test_setCovMean_RK3() result(assertion); logical(LK) :: assertion; end function
210 : #endif
211 : #if RK2_ENABLED
212 : module function test_setCovMean_RK2() result(assertion); logical(LK) :: assertion; end function
213 : #endif
214 : #if RK1_ENABLED
215 : module function test_setCovMean_RK1() result(assertion); logical(LK) :: assertion; end function
216 : #endif
217 :
218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
219 :
220 : end interface
221 :
222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
223 :
224 : ! setCovMerged
225 :
226 : interface
227 :
228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 :
230 : #if CK5_ENABLED
231 : module function test_setCovMerged_CK5() result(assertion); logical(LK) :: assertion; end function
232 : #endif
233 : #if CK4_ENABLED
234 : module function test_setCovMerged_CK4() result(assertion); logical(LK) :: assertion; end function
235 : #endif
236 : #if CK3_ENABLED
237 : module function test_setCovMerged_CK3() result(assertion); logical(LK) :: assertion; end function
238 : #endif
239 : #if CK2_ENABLED
240 : module function test_setCovMerged_CK2() result(assertion); logical(LK) :: assertion; end function
241 : #endif
242 : #if CK1_ENABLED
243 : module function test_setCovMerged_CK1() result(assertion); logical(LK) :: assertion; end function
244 : #endif
245 :
246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 :
248 : #if RK5_ENABLED
249 : module function test_setCovMerged_RK5() result(assertion); logical(LK) :: assertion; end function
250 : #endif
251 : #if RK4_ENABLED
252 : module function test_setCovMerged_RK4() result(assertion); logical(LK) :: assertion; end function
253 : #endif
254 : #if RK3_ENABLED
255 : module function test_setCovMerged_RK3() result(assertion); logical(LK) :: assertion; end function
256 : #endif
257 : #if RK2_ENABLED
258 : module function test_setCovMerged_RK2() result(assertion); logical(LK) :: assertion; end function
259 : #endif
260 : #if RK1_ENABLED
261 : module function test_setCovMerged_RK1() result(assertion); logical(LK) :: assertion; end function
262 : #endif
263 :
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : end interface
267 :
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 :
270 : ! setCovMeanMerged
271 :
272 : interface
273 :
274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275 :
276 : #if CK5_ENABLED
277 : module function test_setCovMeanMerged_CK5() result(assertion); logical(LK) :: assertion; end function
278 : #endif
279 : #if CK4_ENABLED
280 : module function test_setCovMeanMerged_CK4() result(assertion); logical(LK) :: assertion; end function
281 : #endif
282 : #if CK3_ENABLED
283 : module function test_setCovMeanMerged_CK3() result(assertion); logical(LK) :: assertion; end function
284 : #endif
285 : #if CK2_ENABLED
286 : module function test_setCovMeanMerged_CK2() result(assertion); logical(LK) :: assertion; end function
287 : #endif
288 : #if CK1_ENABLED
289 : module function test_setCovMeanMerged_CK1() result(assertion); logical(LK) :: assertion; end function
290 : #endif
291 :
292 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
293 :
294 : #if RK5_ENABLED
295 : module function test_setCovMeanMerged_RK5() result(assertion); logical(LK) :: assertion; end function
296 : #endif
297 : #if RK4_ENABLED
298 : module function test_setCovMeanMerged_RK4() result(assertion); logical(LK) :: assertion; end function
299 : #endif
300 : #if RK3_ENABLED
301 : module function test_setCovMeanMerged_RK3() result(assertion); logical(LK) :: assertion; end function
302 : #endif
303 : #if RK2_ENABLED
304 : module function test_setCovMeanMerged_RK2() result(assertion); logical(LK) :: assertion; end function
305 : #endif
306 : #if RK1_ENABLED
307 : module function test_setCovMeanMerged_RK1() result(assertion); logical(LK) :: assertion; end function
308 : #endif
309 :
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 :
312 : end interface
313 :
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 :
316 : contains
317 :
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 1 : subroutine setTest()
321 :
322 : implicit none
323 :
324 1 : test = test_type(MODULE_NAME)
325 :
326 : ! getCov
327 :
328 : block
329 :
330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 :
332 : #if CK5_ENABLED
333 : call test%run(test_getCov_CK5, SK_"test_getCov_CK5")
334 : #endif
335 : #if CK4_ENABLED
336 1 : call test%run(test_getCov_CK4, SK_"test_getCov_CK4")
337 : #endif
338 : #if CK3_ENABLED
339 1 : call test%run(test_getCov_CK3, SK_"test_getCov_CK3")
340 : #endif
341 : #if CK2_ENABLED
342 1 : call test%run(test_getCov_CK2, SK_"test_getCov_CK2")
343 : #endif
344 : #if CK1_ENABLED
345 1 : call test%run(test_getCov_CK1, SK_"test_getCov_CK1")
346 : #endif
347 :
348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349 :
350 : #if RK5_ENABLED
351 : call test%run(test_getCov_RK5, SK_"test_getCov_RK5")
352 : #endif
353 : #if RK4_ENABLED
354 1 : call test%run(test_getCov_RK4, SK_"test_getCov_RK4")
355 : #endif
356 : #if RK3_ENABLED
357 1 : call test%run(test_getCov_RK3, SK_"test_getCov_RK3")
358 : #endif
359 : #if RK2_ENABLED
360 1 : call test%run(test_getCov_RK2, SK_"test_getCov_RK2")
361 : #endif
362 : #if RK1_ENABLED
363 1 : call test%run(test_getCov_RK1, SK_"test_getCov_RK1")
364 : #endif
365 :
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 :
368 : end block
369 :
370 : ! setCov
371 :
372 : block
373 :
374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375 :
376 : #if CK5_ENABLED
377 : call test%run(test_setCov_CK5, SK_"test_setCov_CK5")
378 : #endif
379 : #if CK4_ENABLED
380 1 : call test%run(test_setCov_CK4, SK_"test_setCov_CK4")
381 : #endif
382 : #if CK3_ENABLED
383 1 : call test%run(test_setCov_CK3, SK_"test_setCov_CK3")
384 : #endif
385 : #if CK2_ENABLED
386 1 : call test%run(test_setCov_CK2, SK_"test_setCov_CK2")
387 : #endif
388 : #if CK1_ENABLED
389 1 : call test%run(test_setCov_CK1, SK_"test_setCov_CK1")
390 : #endif
391 :
392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393 :
394 : #if RK5_ENABLED
395 : call test%run(test_setCov_RK5, SK_"test_setCov_RK5")
396 : #endif
397 : #if RK4_ENABLED
398 1 : call test%run(test_setCov_RK4, SK_"test_setCov_RK4")
399 : #endif
400 : #if RK3_ENABLED
401 1 : call test%run(test_setCov_RK3, SK_"test_setCov_RK3")
402 : #endif
403 : #if RK2_ENABLED
404 1 : call test%run(test_setCov_RK2, SK_"test_setCov_RK2")
405 : #endif
406 : #if RK1_ENABLED
407 1 : call test%run(test_setCov_RK1, SK_"test_setCov_RK1")
408 : #endif
409 :
410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411 :
412 : end block
413 :
414 : ! setCovMean
415 :
416 : block
417 :
418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
419 :
420 : #if CK5_ENABLED
421 : call test%run(test_setCovMean_CK5, SK_"test_setCovMean_CK5")
422 : #endif
423 : #if CK4_ENABLED
424 1 : call test%run(test_setCovMean_CK4, SK_"test_setCovMean_CK4")
425 : #endif
426 : #if CK3_ENABLED
427 1 : call test%run(test_setCovMean_CK3, SK_"test_setCovMean_CK3")
428 : #endif
429 : #if CK2_ENABLED
430 1 : call test%run(test_setCovMean_CK2, SK_"test_setCovMean_CK2")
431 : #endif
432 : #if CK1_ENABLED
433 1 : call test%run(test_setCovMean_CK1, SK_"test_setCovMean_CK1")
434 : #endif
435 :
436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437 :
438 : #if RK5_ENABLED
439 : call test%run(test_setCovMean_RK5, SK_"test_setCovMean_RK5")
440 : #endif
441 : #if RK4_ENABLED
442 1 : call test%run(test_setCovMean_RK4, SK_"test_setCovMean_RK4")
443 : #endif
444 : #if RK3_ENABLED
445 1 : call test%run(test_setCovMean_RK3, SK_"test_setCovMean_RK3")
446 : #endif
447 : #if RK2_ENABLED
448 1 : call test%run(test_setCovMean_RK2, SK_"test_setCovMean_RK2")
449 : #endif
450 : #if RK1_ENABLED
451 1 : call test%run(test_setCovMean_RK1, SK_"test_setCovMean_RK1")
452 : #endif
453 :
454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
455 :
456 : end block
457 :
458 : ! getCovMerged
459 :
460 : block
461 :
462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
463 :
464 : #if CK5_ENABLED
465 : call test%run(test_getCovMerged_CK5, SK_"test_getCovMerged_CK5")
466 : #endif
467 : #if CK4_ENABLED
468 1 : call test%run(test_getCovMerged_CK4, SK_"test_getCovMerged_CK4")
469 : #endif
470 : #if CK3_ENABLED
471 1 : call test%run(test_getCovMerged_CK3, SK_"test_getCovMerged_CK3")
472 : #endif
473 : #if CK2_ENABLED
474 1 : call test%run(test_getCovMerged_CK2, SK_"test_getCovMerged_CK2")
475 : #endif
476 : #if CK1_ENABLED
477 1 : call test%run(test_getCovMerged_CK1, SK_"test_getCovMerged_CK1")
478 : #endif
479 :
480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
481 :
482 : #if RK5_ENABLED
483 : call test%run(test_getCovMerged_RK5, SK_"test_getCovMerged_RK5")
484 : #endif
485 : #if RK4_ENABLED
486 1 : call test%run(test_getCovMerged_RK4, SK_"test_getCovMerged_RK4")
487 : #endif
488 : #if RK3_ENABLED
489 1 : call test%run(test_getCovMerged_RK3, SK_"test_getCovMerged_RK3")
490 : #endif
491 : #if RK2_ENABLED
492 1 : call test%run(test_getCovMerged_RK2, SK_"test_getCovMerged_RK2")
493 : #endif
494 : #if RK1_ENABLED
495 1 : call test%run(test_getCovMerged_RK1, SK_"test_getCovMerged_RK1")
496 : #endif
497 :
498 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
499 :
500 : end block
501 :
502 : ! setCovMerged
503 :
504 : block
505 :
506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507 :
508 : #if CK5_ENABLED
509 : call test%run(test_setCovMerged_CK5, SK_"test_setCovMerged_CK5")
510 : #endif
511 : #if CK4_ENABLED
512 1 : call test%run(test_setCovMerged_CK4, SK_"test_setCovMerged_CK4")
513 : #endif
514 : #if CK3_ENABLED
515 1 : call test%run(test_setCovMerged_CK3, SK_"test_setCovMerged_CK3")
516 : #endif
517 : #if CK2_ENABLED
518 1 : call test%run(test_setCovMerged_CK2, SK_"test_setCovMerged_CK2")
519 : #endif
520 : #if CK1_ENABLED
521 1 : call test%run(test_setCovMerged_CK1, SK_"test_setCovMerged_CK1")
522 : #endif
523 :
524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
525 :
526 : #if RK5_ENABLED
527 : call test%run(test_setCovMerged_RK5, SK_"test_setCovMerged_RK5")
528 : #endif
529 : #if RK4_ENABLED
530 1 : call test%run(test_setCovMerged_RK4, SK_"test_setCovMerged_RK4")
531 : #endif
532 : #if RK3_ENABLED
533 1 : call test%run(test_setCovMerged_RK3, SK_"test_setCovMerged_RK3")
534 : #endif
535 : #if RK2_ENABLED
536 1 : call test%run(test_setCovMerged_RK2, SK_"test_setCovMerged_RK2")
537 : #endif
538 : #if RK1_ENABLED
539 1 : call test%run(test_setCovMerged_RK1, SK_"test_setCovMerged_RK1")
540 : #endif
541 :
542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543 :
544 : end block
545 :
546 : ! setCovMeanMerged
547 :
548 : block
549 :
550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551 :
552 : #if CK5_ENABLED
553 : call test%run(test_setCovMeanMerged_CK5, SK_"test_setCovMeanMerged_CK5")
554 : #endif
555 : #if CK4_ENABLED
556 1 : call test%run(test_setCovMeanMerged_CK4, SK_"test_setCovMeanMerged_CK4")
557 : #endif
558 : #if CK3_ENABLED
559 1 : call test%run(test_setCovMeanMerged_CK3, SK_"test_setCovMeanMerged_CK3")
560 : #endif
561 : #if CK2_ENABLED
562 1 : call test%run(test_setCovMeanMerged_CK2, SK_"test_setCovMeanMerged_CK2")
563 : #endif
564 : #if CK1_ENABLED
565 1 : call test%run(test_setCovMeanMerged_CK1, SK_"test_setCovMeanMerged_CK1")
566 : #endif
567 :
568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
569 :
570 : #if RK5_ENABLED
571 : call test%run(test_setCovMeanMerged_RK5, SK_"test_setCovMeanMerged_RK5")
572 : #endif
573 : #if RK4_ENABLED
574 1 : call test%run(test_setCovMeanMerged_RK4, SK_"test_setCovMeanMerged_RK4")
575 : #endif
576 : #if RK3_ENABLED
577 1 : call test%run(test_setCovMeanMerged_RK3, SK_"test_setCovMeanMerged_RK3")
578 : #endif
579 : #if RK2_ENABLED
580 1 : call test%run(test_setCovMeanMerged_RK2, SK_"test_setCovMeanMerged_RK2")
581 : #endif
582 : #if RK1_ENABLED
583 1 : call test%run(test_setCovMeanMerged_RK1, SK_"test_setCovMeanMerged_RK1")
584 : #endif
585 :
586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587 :
588 : end block
589 :
590 1 : call test%summarize()
591 :
592 1 : end subroutine setTest
593 :
594 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
595 :
596 : end module test_pm_sampleCov
|
