ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_sampleCov.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
24
25!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26
27module 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
316contains
317
318!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319
320 subroutine setTest()
321
322 implicit none
323
324 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 call test%run(test_getCov_CK4, SK_"test_getCov_CK4")
337#endif
338#if CK3_ENABLED
339 call test%run(test_getCov_CK3, SK_"test_getCov_CK3")
340#endif
341#if CK2_ENABLED
342 call test%run(test_getCov_CK2, SK_"test_getCov_CK2")
343#endif
344#if CK1_ENABLED
345 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 call test%run(test_getCov_RK4, SK_"test_getCov_RK4")
355#endif
356#if RK3_ENABLED
357 call test%run(test_getCov_RK3, SK_"test_getCov_RK3")
358#endif
359#if RK2_ENABLED
360 call test%run(test_getCov_RK2, SK_"test_getCov_RK2")
361#endif
362#if RK1_ENABLED
363 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 call test%run(test_setCov_CK4, SK_"test_setCov_CK4")
381#endif
382#if CK3_ENABLED
383 call test%run(test_setCov_CK3, SK_"test_setCov_CK3")
384#endif
385#if CK2_ENABLED
386 call test%run(test_setCov_CK2, SK_"test_setCov_CK2")
387#endif
388#if CK1_ENABLED
389 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 call test%run(test_setCov_RK4, SK_"test_setCov_RK4")
399#endif
400#if RK3_ENABLED
401 call test%run(test_setCov_RK3, SK_"test_setCov_RK3")
402#endif
403#if RK2_ENABLED
404 call test%run(test_setCov_RK2, SK_"test_setCov_RK2")
405#endif
406#if RK1_ENABLED
407 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 call test%run(test_setCovMean_CK4, SK_"test_setCovMean_CK4")
425#endif
426#if CK3_ENABLED
427 call test%run(test_setCovMean_CK3, SK_"test_setCovMean_CK3")
428#endif
429#if CK2_ENABLED
430 call test%run(test_setCovMean_CK2, SK_"test_setCovMean_CK2")
431#endif
432#if CK1_ENABLED
433 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 call test%run(test_setCovMean_RK4, SK_"test_setCovMean_RK4")
443#endif
444#if RK3_ENABLED
445 call test%run(test_setCovMean_RK3, SK_"test_setCovMean_RK3")
446#endif
447#if RK2_ENABLED
448 call test%run(test_setCovMean_RK2, SK_"test_setCovMean_RK2")
449#endif
450#if RK1_ENABLED
451 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 call test%run(test_getCovMerged_CK4, SK_"test_getCovMerged_CK4")
469#endif
470#if CK3_ENABLED
471 call test%run(test_getCovMerged_CK3, SK_"test_getCovMerged_CK3")
472#endif
473#if CK2_ENABLED
474 call test%run(test_getCovMerged_CK2, SK_"test_getCovMerged_CK2")
475#endif
476#if CK1_ENABLED
477 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 call test%run(test_getCovMerged_RK4, SK_"test_getCovMerged_RK4")
487#endif
488#if RK3_ENABLED
489 call test%run(test_getCovMerged_RK3, SK_"test_getCovMerged_RK3")
490#endif
491#if RK2_ENABLED
492 call test%run(test_getCovMerged_RK2, SK_"test_getCovMerged_RK2")
493#endif
494#if RK1_ENABLED
495 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 call test%run(test_setCovMerged_CK4, SK_"test_setCovMerged_CK4")
513#endif
514#if CK3_ENABLED
515 call test%run(test_setCovMerged_CK3, SK_"test_setCovMerged_CK3")
516#endif
517#if CK2_ENABLED
518 call test%run(test_setCovMerged_CK2, SK_"test_setCovMerged_CK2")
519#endif
520#if CK1_ENABLED
521 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 call test%run(test_setCovMerged_RK4, SK_"test_setCovMerged_RK4")
531#endif
532#if RK3_ENABLED
533 call test%run(test_setCovMerged_RK3, SK_"test_setCovMerged_RK3")
534#endif
535#if RK2_ENABLED
536 call test%run(test_setCovMerged_RK2, SK_"test_setCovMerged_RK2")
537#endif
538#if RK1_ENABLED
539 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 call test%run(test_setCovMeanMerged_CK4, SK_"test_setCovMeanMerged_CK4")
557#endif
558#if CK3_ENABLED
559 call test%run(test_setCovMeanMerged_CK3, SK_"test_setCovMeanMerged_CK3")
560#endif
561#if CK2_ENABLED
562 call test%run(test_setCovMeanMerged_CK2, SK_"test_setCovMeanMerged_CK2")
563#endif
564#if CK1_ENABLED
565 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 call test%run(test_setCovMeanMerged_RK4, SK_"test_setCovMeanMerged_RK4")
575#endif
576#if RK3_ENABLED
577 call test%run(test_setCovMeanMerged_RK3, SK_"test_setCovMeanMerged_RK3")
578#endif
579#if RK2_ENABLED
580 call test%run(test_setCovMeanMerged_RK2, SK_"test_setCovMeanMerged_RK2")
581#endif
582#if RK1_ENABLED
583 call test%run(test_setCovMeanMerged_RK1, SK_"test_setCovMeanMerged_RK1")
584#endif
585
586 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587
588 end block
589
590 call test%summarize()
591
592 end subroutine setTest
593
594!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
595
596end module test_pm_sampleCov
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_sampleCov
This module contains classes and procedures for computing the properties related to the covariance ma...
Definition: pm_sampleCov.F90:170
pm_sampleCov::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_sampleCov.F90:182
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_sampleCov
This module contains tests of the module pm_sampleCov.
Definition: test_pm_sampleCov.F90:27
test_pm_sampleCov::setTest
subroutine setTest()
Definition: test_pm_sampleCov.F90:321
test_pm_sampleCov::test
type(test_type) test
Definition: test_pm_sampleCov.F90:36
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