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