ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_sampleVar.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_sampleVar
28
29 use pm_sampleVar
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 ! getVarCorrection
41
42 interface
43
44 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45
46#if RK5_ENABLED
47 module function test_getVarCorrection_RK5() result(assertion); logical(LK) :: assertion; end function
48#endif
49#if RK4_ENABLED
50 module function test_getVarCorrection_RK4() result(assertion); logical(LK) :: assertion; end function
51#endif
52#if RK3_ENABLED
53 module function test_getVarCorrection_RK3() result(assertion); logical(LK) :: assertion; end function
54#endif
55#if RK2_ENABLED
56 module function test_getVarCorrection_RK2() result(assertion); logical(LK) :: assertion; end function
57#endif
58#if RK1_ENABLED
59 module function test_getVarCorrection_RK1() result(assertion); logical(LK) :: assertion; end function
60#endif
61
62 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63
64 end interface
65
66!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
67
68 ! getVar
69
70 interface
71
72 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
73
74#if CK5_ENABLED
75 module function test_getVar_CK5() result(assertion); logical(LK) :: assertion; end function
76#endif
77#if CK4_ENABLED
78 module function test_getVar_CK4() result(assertion); logical(LK) :: assertion; end function
79#endif
80#if CK3_ENABLED
81 module function test_getVar_CK3() result(assertion); logical(LK) :: assertion; end function
82#endif
83#if CK2_ENABLED
84 module function test_getVar_CK2() result(assertion); logical(LK) :: assertion; end function
85#endif
86#if CK1_ENABLED
87 module function test_getVar_CK1() result(assertion); logical(LK) :: assertion; end function
88#endif
89
90 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91
92#if RK5_ENABLED
93 module function test_getVar_RK5() result(assertion); logical(LK) :: assertion; end function
94#endif
95#if RK4_ENABLED
96 module function test_getVar_RK4() result(assertion); logical(LK) :: assertion; end function
97#endif
98#if RK3_ENABLED
99 module function test_getVar_RK3() result(assertion); logical(LK) :: assertion; end function
100#endif
101#if RK2_ENABLED
102 module function test_getVar_RK2() result(assertion); logical(LK) :: assertion; end function
103#endif
104#if RK1_ENABLED
105 module function test_getVar_RK1() result(assertion); logical(LK) :: assertion; end function
106#endif
107
108 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109
110 end interface
111
112!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113
114 ! setVar
115
116 interface
117
118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
119
120#if CK5_ENABLED
121 module function test_setVar_CK5() result(assertion); logical(LK) :: assertion; end function
122#endif
123#if CK4_ENABLED
124 module function test_setVar_CK4() result(assertion); logical(LK) :: assertion; end function
125#endif
126#if CK3_ENABLED
127 module function test_setVar_CK3() result(assertion); logical(LK) :: assertion; end function
128#endif
129#if CK2_ENABLED
130 module function test_setVar_CK2() result(assertion); logical(LK) :: assertion; end function
131#endif
132#if CK1_ENABLED
133 module function test_setVar_CK1() result(assertion); logical(LK) :: assertion; end function
134#endif
135
136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
137
138#if RK5_ENABLED
139 module function test_setVar_RK5() result(assertion); logical(LK) :: assertion; end function
140#endif
141#if RK4_ENABLED
142 module function test_setVar_RK4() result(assertion); logical(LK) :: assertion; end function
143#endif
144#if RK3_ENABLED
145 module function test_setVar_RK3() result(assertion); logical(LK) :: assertion; end function
146#endif
147#if RK2_ENABLED
148 module function test_setVar_RK2() result(assertion); logical(LK) :: assertion; end function
149#endif
150#if RK1_ENABLED
151 module function test_setVar_RK1() result(assertion); logical(LK) :: assertion; end function
152#endif
153
154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155
156 end interface
157
158!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159
160 ! getVarMerged
161
162 interface
163
164 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165
166#if CK5_ENABLED
167 module function test_getVarMerged_CK5() result(assertion); logical(LK) :: assertion; end function
168#endif
169#if CK4_ENABLED
170 module function test_getVarMerged_CK4() result(assertion); logical(LK) :: assertion; end function
171#endif
172#if CK3_ENABLED
173 module function test_getVarMerged_CK3() result(assertion); logical(LK) :: assertion; end function
174#endif
175#if CK2_ENABLED
176 module function test_getVarMerged_CK2() result(assertion); logical(LK) :: assertion; end function
177#endif
178#if CK1_ENABLED
179 module function test_getVarMerged_CK1() result(assertion); logical(LK) :: assertion; end function
180#endif
181
182 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183
184#if RK5_ENABLED
185 module function test_getVarMerged_RK5() result(assertion); logical(LK) :: assertion; end function
186#endif
187#if RK4_ENABLED
188 module function test_getVarMerged_RK4() result(assertion); logical(LK) :: assertion; end function
189#endif
190#if RK3_ENABLED
191 module function test_getVarMerged_RK3() result(assertion); logical(LK) :: assertion; end function
192#endif
193#if RK2_ENABLED
194 module function test_getVarMerged_RK2() result(assertion); logical(LK) :: assertion; end function
195#endif
196#if RK1_ENABLED
197 module function test_getVarMerged_RK1() result(assertion); logical(LK) :: assertion; end function
198#endif
199
200 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201
202 end interface
203
204!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
205
206 ! setVarMean
207
208 interface
209
210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211
212#if CK5_ENABLED
213 module function test_setVarMean_CK5() result(assertion); logical(LK) :: assertion; end function
214#endif
215#if CK4_ENABLED
216 module function test_setVarMean_CK4() result(assertion); logical(LK) :: assertion; end function
217#endif
218#if CK3_ENABLED
219 module function test_setVarMean_CK3() result(assertion); logical(LK) :: assertion; end function
220#endif
221#if CK2_ENABLED
222 module function test_setVarMean_CK2() result(assertion); logical(LK) :: assertion; end function
223#endif
224#if CK1_ENABLED
225 module function test_setVarMean_CK1() result(assertion); logical(LK) :: assertion; end function
226#endif
227
228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229
230#if RK5_ENABLED
231 module function test_setVarMean_RK5() result(assertion); logical(LK) :: assertion; end function
232#endif
233#if RK4_ENABLED
234 module function test_setVarMean_RK4() result(assertion); logical(LK) :: assertion; end function
235#endif
236#if RK3_ENABLED
237 module function test_setVarMean_RK3() result(assertion); logical(LK) :: assertion; end function
238#endif
239#if RK2_ENABLED
240 module function test_setVarMean_RK2() result(assertion); logical(LK) :: assertion; end function
241#endif
242#if RK1_ENABLED
243 module function test_setVarMean_RK1() result(assertion); logical(LK) :: assertion; end function
244#endif
245
246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247
248 end interface
249
250!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
251
252 ! setVarMerged
253
254 interface
255
256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257
258#if CK5_ENABLED
259 module function test_setVarMerged_CK5() result(assertion); logical(LK) :: assertion; end function
260#endif
261#if CK4_ENABLED
262 module function test_setVarMerged_CK4() result(assertion); logical(LK) :: assertion; end function
263#endif
264#if CK3_ENABLED
265 module function test_setVarMerged_CK3() result(assertion); logical(LK) :: assertion; end function
266#endif
267#if CK2_ENABLED
268 module function test_setVarMerged_CK2() result(assertion); logical(LK) :: assertion; end function
269#endif
270#if CK1_ENABLED
271 module function test_setVarMerged_CK1() result(assertion); logical(LK) :: assertion; end function
272#endif
273
274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275
276#if RK5_ENABLED
277 module function test_setVarMerged_RK5() result(assertion); logical(LK) :: assertion; end function
278#endif
279#if RK4_ENABLED
280 module function test_setVarMerged_RK4() result(assertion); logical(LK) :: assertion; end function
281#endif
282#if RK3_ENABLED
283 module function test_setVarMerged_RK3() result(assertion); logical(LK) :: assertion; end function
284#endif
285#if RK2_ENABLED
286 module function test_setVarMerged_RK2() result(assertion); logical(LK) :: assertion; end function
287#endif
288#if RK1_ENABLED
289 module function test_setVarMerged_RK1() result(assertion); logical(LK) :: assertion; end function
290#endif
291
292 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
293
294 end interface
295
296!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298 ! setVarMeanMerged
299
300 interface
301
302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303
304#if CK5_ENABLED
305 module function test_setVarMeanMerged_CK5() result(assertion); logical(LK) :: assertion; end function
306#endif
307#if CK4_ENABLED
308 module function test_setVarMeanMerged_CK4() result(assertion); logical(LK) :: assertion; end function
309#endif
310#if CK3_ENABLED
311 module function test_setVarMeanMerged_CK3() result(assertion); logical(LK) :: assertion; end function
312#endif
313#if CK2_ENABLED
314 module function test_setVarMeanMerged_CK2() result(assertion); logical(LK) :: assertion; end function
315#endif
316#if CK1_ENABLED
317 module function test_setVarMeanMerged_CK1() result(assertion); logical(LK) :: assertion; end function
318#endif
319
320 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321
322#if RK5_ENABLED
323 module function test_setVarMeanMerged_RK5() result(assertion); logical(LK) :: assertion; end function
324#endif
325#if RK4_ENABLED
326 module function test_setVarMeanMerged_RK4() result(assertion); logical(LK) :: assertion; end function
327#endif
328#if RK3_ENABLED
329 module function test_setVarMeanMerged_RK3() result(assertion); logical(LK) :: assertion; end function
330#endif
331#if RK2_ENABLED
332 module function test_setVarMeanMerged_RK2() result(assertion); logical(LK) :: assertion; end function
333#endif
334#if RK1_ENABLED
335 module function test_setVarMeanMerged_RK1() result(assertion); logical(LK) :: assertion; end function
336#endif
337
338 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
339
340 end interface
341
342!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
343
344contains
345
346!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347
348 subroutine setTest()
349
350 implicit none
351
352 test = test_type(MODULE_NAME)
353
354 ! getVarCorrection
355
356 block
357
358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
359
360#if RK5_ENABLED
361 call test%run(test_getVarCorrection_RK5, SK_"test_getVarCorrection_RK5")
362#endif
363#if RK4_ENABLED
364 call test%run(test_getVarCorrection_RK4, SK_"test_getVarCorrection_RK4")
365#endif
366#if RK3_ENABLED
367 call test%run(test_getVarCorrection_RK3, SK_"test_getVarCorrection_RK3")
368#endif
369#if RK2_ENABLED
370 call test%run(test_getVarCorrection_RK2, SK_"test_getVarCorrection_RK2")
371#endif
372#if RK1_ENABLED
373 call test%run(test_getVarCorrection_RK1, SK_"test_getVarCorrection_RK1")
374#endif
375
376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377
378 end block
379
380 ! getVar
381
382 block
383
384 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385
386#if CK5_ENABLED
387 call test%run(test_getVar_CK5, SK_"test_getVar_CK5")
388#endif
389#if CK4_ENABLED
390 call test%run(test_getVar_CK4, SK_"test_getVar_CK4")
391#endif
392#if CK3_ENABLED
393 call test%run(test_getVar_CK3, SK_"test_getVar_CK3")
394#endif
395#if CK2_ENABLED
396 call test%run(test_getVar_CK2, SK_"test_getVar_CK2")
397#endif
398#if CK1_ENABLED
399 call test%run(test_getVar_CK1, SK_"test_getVar_CK1")
400#endif
401
402 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
403
404#if RK5_ENABLED
405 call test%run(test_getVar_RK5, SK_"test_getVar_RK5")
406#endif
407#if RK4_ENABLED
408 call test%run(test_getVar_RK4, SK_"test_getVar_RK4")
409#endif
410#if RK3_ENABLED
411 call test%run(test_getVar_RK3, SK_"test_getVar_RK3")
412#endif
413#if RK2_ENABLED
414 call test%run(test_getVar_RK2, SK_"test_getVar_RK2")
415#endif
416#if RK1_ENABLED
417 call test%run(test_getVar_RK1, SK_"test_getVar_RK1")
418#endif
419
420 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
421
422 end block
423
424 ! setVar
425
426 block
427
428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429
430#if CK5_ENABLED
431 call test%run(test_setVar_CK5, SK_"test_setVar_CK5")
432#endif
433#if CK4_ENABLED
434 call test%run(test_setVar_CK4, SK_"test_setVar_CK4")
435#endif
436#if CK3_ENABLED
437 call test%run(test_setVar_CK3, SK_"test_setVar_CK3")
438#endif
439#if CK2_ENABLED
440 call test%run(test_setVar_CK2, SK_"test_setVar_CK2")
441#endif
442#if CK1_ENABLED
443 call test%run(test_setVar_CK1, SK_"test_setVar_CK1")
444#endif
445
446 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447
448#if RK5_ENABLED
449 call test%run(test_setVar_RK5, SK_"test_setVar_RK5")
450#endif
451#if RK4_ENABLED
452 call test%run(test_setVar_RK4, SK_"test_setVar_RK4")
453#endif
454#if RK3_ENABLED
455 call test%run(test_setVar_RK3, SK_"test_setVar_RK3")
456#endif
457#if RK2_ENABLED
458 call test%run(test_setVar_RK2, SK_"test_setVar_RK2")
459#endif
460#if RK1_ENABLED
461 call test%run(test_setVar_RK1, SK_"test_setVar_RK1")
462#endif
463
464 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465
466 end block
467
468 ! setVarMean
469
470 block
471
472 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
473
474#if CK5_ENABLED
475 call test%run(test_setVarMean_CK5, SK_"test_setVarMean_CK5")
476#endif
477#if CK4_ENABLED
478 call test%run(test_setVarMean_CK4, SK_"test_setVarMean_CK4")
479#endif
480#if CK3_ENABLED
481 call test%run(test_setVarMean_CK3, SK_"test_setVarMean_CK3")
482#endif
483#if CK2_ENABLED
484 call test%run(test_setVarMean_CK2, SK_"test_setVarMean_CK2")
485#endif
486#if CK1_ENABLED
487 call test%run(test_setVarMean_CK1, SK_"test_setVarMean_CK1")
488#endif
489
490 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491
492#if RK5_ENABLED
493 call test%run(test_setVarMean_RK5, SK_"test_setVarMean_RK5")
494#endif
495#if RK4_ENABLED
496 call test%run(test_setVarMean_RK4, SK_"test_setVarMean_RK4")
497#endif
498#if RK3_ENABLED
499 call test%run(test_setVarMean_RK3, SK_"test_setVarMean_RK3")
500#endif
501#if RK2_ENABLED
502 call test%run(test_setVarMean_RK2, SK_"test_setVarMean_RK2")
503#endif
504#if RK1_ENABLED
505 call test%run(test_setVarMean_RK1, SK_"test_setVarMean_RK1")
506#endif
507
508 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509
510 end block
511
512 ! getVarMerged
513
514 block
515
516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517
518#if CK5_ENABLED
519 call test%run(test_getVarMerged_CK5, SK_"test_getVarMerged_CK5")
520#endif
521#if CK4_ENABLED
522 call test%run(test_getVarMerged_CK4, SK_"test_getVarMerged_CK4")
523#endif
524#if CK3_ENABLED
525 call test%run(test_getVarMerged_CK3, SK_"test_getVarMerged_CK3")
526#endif
527#if CK2_ENABLED
528 call test%run(test_getVarMerged_CK2, SK_"test_getVarMerged_CK2")
529#endif
530#if CK1_ENABLED
531 call test%run(test_getVarMerged_CK1, SK_"test_getVarMerged_CK1")
532#endif
533
534 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535
536#if RK5_ENABLED
537 call test%run(test_getVarMerged_RK5, SK_"test_getVarMerged_RK5")
538#endif
539#if RK4_ENABLED
540 call test%run(test_getVarMerged_RK4, SK_"test_getVarMerged_RK4")
541#endif
542#if RK3_ENABLED
543 call test%run(test_getVarMerged_RK3, SK_"test_getVarMerged_RK3")
544#endif
545#if RK2_ENABLED
546 call test%run(test_getVarMerged_RK2, SK_"test_getVarMerged_RK2")
547#endif
548#if RK1_ENABLED
549 call test%run(test_getVarMerged_RK1, SK_"test_getVarMerged_RK1")
550#endif
551
552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553
554 end block
555
556 ! setVarMerged
557
558 block
559
560 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561
562#if CK5_ENABLED
563 call test%run(test_setVarMerged_CK5, SK_"test_setVarMerged_CK5")
564#endif
565#if CK4_ENABLED
566 call test%run(test_setVarMerged_CK4, SK_"test_setVarMerged_CK4")
567#endif
568#if CK3_ENABLED
569 call test%run(test_setVarMerged_CK3, SK_"test_setVarMerged_CK3")
570#endif
571#if CK2_ENABLED
572 call test%run(test_setVarMerged_CK2, SK_"test_setVarMerged_CK2")
573#endif
574#if CK1_ENABLED
575 call test%run(test_setVarMerged_CK1, SK_"test_setVarMerged_CK1")
576#endif
577
578 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579
580#if RK5_ENABLED
581 call test%run(test_setVarMerged_RK5, SK_"test_setVarMerged_RK5")
582#endif
583#if RK4_ENABLED
584 call test%run(test_setVarMerged_RK4, SK_"test_setVarMerged_RK4")
585#endif
586#if RK3_ENABLED
587 call test%run(test_setVarMerged_RK3, SK_"test_setVarMerged_RK3")
588#endif
589#if RK2_ENABLED
590 call test%run(test_setVarMerged_RK2, SK_"test_setVarMerged_RK2")
591#endif
592#if RK1_ENABLED
593 call test%run(test_setVarMerged_RK1, SK_"test_setVarMerged_RK1")
594#endif
595
596 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
597
598 end block
599
600 ! setVarMeanMerged
601
602 block
603
604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
606#if CK5_ENABLED
607 call test%run(test_setVarMeanMerged_CK5, SK_"test_setVarMeanMerged_CK5")
608#endif
609#if CK4_ENABLED
610 call test%run(test_setVarMeanMerged_CK4, SK_"test_setVarMeanMerged_CK4")
611#endif
612#if CK3_ENABLED
613 call test%run(test_setVarMeanMerged_CK3, SK_"test_setVarMeanMerged_CK3")
614#endif
615#if CK2_ENABLED
616 call test%run(test_setVarMeanMerged_CK2, SK_"test_setVarMeanMerged_CK2")
617#endif
618#if CK1_ENABLED
619 call test%run(test_setVarMeanMerged_CK1, SK_"test_setVarMeanMerged_CK1")
620#endif
621
622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623
624#if RK5_ENABLED
625 call test%run(test_setVarMeanMerged_RK5, SK_"test_setVarMeanMerged_RK5")
626#endif
627#if RK4_ENABLED
628 call test%run(test_setVarMeanMerged_RK4, SK_"test_setVarMeanMerged_RK4")
629#endif
630#if RK3_ENABLED
631 call test%run(test_setVarMeanMerged_RK3, SK_"test_setVarMeanMerged_RK3")
632#endif
633#if RK2_ENABLED
634 call test%run(test_setVarMeanMerged_RK2, SK_"test_setVarMeanMerged_RK2")
635#endif
636#if RK1_ENABLED
637 call test%run(test_setVarMeanMerged_RK1, SK_"test_setVarMeanMerged_RK1")
638#endif
639
640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641
642 end block
643
644 call test%summarize()
645
646 end subroutine setTest
647
648!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649
650end module test_pm_sampleVar
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_sampleVar
This module contains classes and procedures for computing the properties related to the covariance ma...
Definition: pm_sampleVar.F90:394
pm_sampleVar::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_sampleVar.F90:403
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_sampleVar
This module contains tests of the module pm_sampleVar.
Definition: test_pm_sampleVar.F90:27
test_pm_sampleVar::setTest
subroutine setTest()
Definition: test_pm_sampleVar.F90:349
test_pm_sampleVar::test
type(test_type) test
Definition: test_pm_sampleVar.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