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_sampleVar](@ref pm_sampleVar).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Thursday 12:45 AM, August 20, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : module 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 :
344 : contains
345 :
346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347 :
348 1 : subroutine setTest()
349 :
350 : implicit none
351 :
352 1 : 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 1 : call test%run(test_getVarCorrection_RK4, SK_"test_getVarCorrection_RK4")
365 : #endif
366 : #if RK3_ENABLED
367 1 : call test%run(test_getVarCorrection_RK3, SK_"test_getVarCorrection_RK3")
368 : #endif
369 : #if RK2_ENABLED
370 1 : call test%run(test_getVarCorrection_RK2, SK_"test_getVarCorrection_RK2")
371 : #endif
372 : #if RK1_ENABLED
373 1 : 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 1 : call test%run(test_getVar_CK4, SK_"test_getVar_CK4")
391 : #endif
392 : #if CK3_ENABLED
393 1 : call test%run(test_getVar_CK3, SK_"test_getVar_CK3")
394 : #endif
395 : #if CK2_ENABLED
396 1 : call test%run(test_getVar_CK2, SK_"test_getVar_CK2")
397 : #endif
398 : #if CK1_ENABLED
399 1 : 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 1 : call test%run(test_getVar_RK4, SK_"test_getVar_RK4")
409 : #endif
410 : #if RK3_ENABLED
411 1 : call test%run(test_getVar_RK3, SK_"test_getVar_RK3")
412 : #endif
413 : #if RK2_ENABLED
414 1 : call test%run(test_getVar_RK2, SK_"test_getVar_RK2")
415 : #endif
416 : #if RK1_ENABLED
417 1 : 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 1 : call test%run(test_setVar_CK4, SK_"test_setVar_CK4")
435 : #endif
436 : #if CK3_ENABLED
437 1 : call test%run(test_setVar_CK3, SK_"test_setVar_CK3")
438 : #endif
439 : #if CK2_ENABLED
440 1 : call test%run(test_setVar_CK2, SK_"test_setVar_CK2")
441 : #endif
442 : #if CK1_ENABLED
443 1 : 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 1 : call test%run(test_setVar_RK4, SK_"test_setVar_RK4")
453 : #endif
454 : #if RK3_ENABLED
455 1 : call test%run(test_setVar_RK3, SK_"test_setVar_RK3")
456 : #endif
457 : #if RK2_ENABLED
458 1 : call test%run(test_setVar_RK2, SK_"test_setVar_RK2")
459 : #endif
460 : #if RK1_ENABLED
461 1 : 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 1 : call test%run(test_setVarMean_CK4, SK_"test_setVarMean_CK4")
479 : #endif
480 : #if CK3_ENABLED
481 1 : call test%run(test_setVarMean_CK3, SK_"test_setVarMean_CK3")
482 : #endif
483 : #if CK2_ENABLED
484 1 : call test%run(test_setVarMean_CK2, SK_"test_setVarMean_CK2")
485 : #endif
486 : #if CK1_ENABLED
487 1 : 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 1 : call test%run(test_setVarMean_RK4, SK_"test_setVarMean_RK4")
497 : #endif
498 : #if RK3_ENABLED
499 1 : call test%run(test_setVarMean_RK3, SK_"test_setVarMean_RK3")
500 : #endif
501 : #if RK2_ENABLED
502 1 : call test%run(test_setVarMean_RK2, SK_"test_setVarMean_RK2")
503 : #endif
504 : #if RK1_ENABLED
505 1 : 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 1 : call test%run(test_getVarMerged_CK4, SK_"test_getVarMerged_CK4")
523 : #endif
524 : #if CK3_ENABLED
525 1 : call test%run(test_getVarMerged_CK3, SK_"test_getVarMerged_CK3")
526 : #endif
527 : #if CK2_ENABLED
528 1 : call test%run(test_getVarMerged_CK2, SK_"test_getVarMerged_CK2")
529 : #endif
530 : #if CK1_ENABLED
531 1 : 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 1 : call test%run(test_getVarMerged_RK4, SK_"test_getVarMerged_RK4")
541 : #endif
542 : #if RK3_ENABLED
543 1 : call test%run(test_getVarMerged_RK3, SK_"test_getVarMerged_RK3")
544 : #endif
545 : #if RK2_ENABLED
546 1 : call test%run(test_getVarMerged_RK2, SK_"test_getVarMerged_RK2")
547 : #endif
548 : #if RK1_ENABLED
549 1 : 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 1 : call test%run(test_setVarMerged_CK4, SK_"test_setVarMerged_CK4")
567 : #endif
568 : #if CK3_ENABLED
569 1 : call test%run(test_setVarMerged_CK3, SK_"test_setVarMerged_CK3")
570 : #endif
571 : #if CK2_ENABLED
572 1 : call test%run(test_setVarMerged_CK2, SK_"test_setVarMerged_CK2")
573 : #endif
574 : #if CK1_ENABLED
575 1 : 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 1 : call test%run(test_setVarMerged_RK4, SK_"test_setVarMerged_RK4")
585 : #endif
586 : #if RK3_ENABLED
587 1 : call test%run(test_setVarMerged_RK3, SK_"test_setVarMerged_RK3")
588 : #endif
589 : #if RK2_ENABLED
590 1 : call test%run(test_setVarMerged_RK2, SK_"test_setVarMerged_RK2")
591 : #endif
592 : #if RK1_ENABLED
593 1 : 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 1 : call test%run(test_setVarMeanMerged_CK4, SK_"test_setVarMeanMerged_CK4")
611 : #endif
612 : #if CK3_ENABLED
613 1 : call test%run(test_setVarMeanMerged_CK3, SK_"test_setVarMeanMerged_CK3")
614 : #endif
615 : #if CK2_ENABLED
616 1 : call test%run(test_setVarMeanMerged_CK2, SK_"test_setVarMeanMerged_CK2")
617 : #endif
618 : #if CK1_ENABLED
619 1 : 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 1 : call test%run(test_setVarMeanMerged_RK4, SK_"test_setVarMeanMerged_RK4")
629 : #endif
630 : #if RK3_ENABLED
631 1 : call test%run(test_setVarMeanMerged_RK3, SK_"test_setVarMeanMerged_RK3")
632 : #endif
633 : #if RK2_ENABLED
634 1 : call test%run(test_setVarMeanMerged_RK2, SK_"test_setVarMeanMerged_RK2")
635 : #endif
636 : #if RK1_ENABLED
637 1 : call test%run(test_setVarMeanMerged_RK1, SK_"test_setVarMeanMerged_RK1")
638 : #endif
639 :
640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641 :
642 : end block
643 :
644 1 : call test%summarize()
645 :
646 1 : end subroutine setTest
647 :
648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649 :
650 : end module test_pm_sampleVar
|
