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 [pm_sampleCov](@ref pm_sampleCov).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Monday March 6, 2017, 2:48 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin.<br>
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_sampleCov) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : use pm_sampleMean, only: getMean, setMean
40 : use pm_complexMinMax, only: minval, maxval
41 : use pm_complexCompareAll, only: operator(<=)
42 : implicit none
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : contains
47 :
48 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
49 :
50 : #define getCov_ENABLED 1
51 :
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55 :
56 : #define CorStd_ENABLED 1
57 :
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 :
62 : #define ULD_UXD_ENABLED 1
63 :
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 :
66 : #define CK_ENABLED 1
67 :
68 : #if CK5_ENABLED
69 : module procedure getCovCorStd_ULD_UXD_CK5
70 : use pm_kind, only: TKC => CK5
71 : #include "pm_sampleCov@routines.inc.F90"
72 : end procedure
73 : #endif
74 :
75 : #if CK4_ENABLED
76 100 : module procedure getCovCorStd_ULD_UXD_CK4
77 : use pm_kind, only: TKC => CK4
78 : #include "pm_sampleCov@routines.inc.F90"
79 100 : end procedure
80 : #endif
81 :
82 : #if CK3_ENABLED
83 100 : module procedure getCovCorStd_ULD_UXD_CK3
84 : use pm_kind, only: TKC => CK3
85 : #include "pm_sampleCov@routines.inc.F90"
86 100 : end procedure
87 : #endif
88 :
89 : #if CK2_ENABLED
90 100 : module procedure getCovCorStd_ULD_UXD_CK2
91 : use pm_kind, only: TKC => CK2
92 : #include "pm_sampleCov@routines.inc.F90"
93 100 : end procedure
94 : #endif
95 :
96 : #if CK1_ENABLED
97 100 : module procedure getCovCorStd_ULD_UXD_CK1
98 : use pm_kind, only: TKC => CK1
99 : #include "pm_sampleCov@routines.inc.F90"
100 100 : end procedure
101 : #endif
102 :
103 : #undef CK_ENABLED
104 :
105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
106 :
107 : #define RK_ENABLED 1
108 :
109 : #if RK5_ENABLED
110 : module procedure getCovCorStd_ULD_UXD_RK5
111 : use pm_kind, only: TKC => RK5
112 : #include "pm_sampleCov@routines.inc.F90"
113 : end procedure
114 : #endif
115 :
116 : #if RK4_ENABLED
117 100 : module procedure getCovCorStd_ULD_UXD_RK4
118 : use pm_kind, only: TKC => RK4
119 : #include "pm_sampleCov@routines.inc.F90"
120 100 : end procedure
121 : #endif
122 :
123 : #if RK3_ENABLED
124 100 : module procedure getCovCorStd_ULD_UXD_RK3
125 : use pm_kind, only: TKC => RK3
126 : #include "pm_sampleCov@routines.inc.F90"
127 100 : end procedure
128 : #endif
129 :
130 : #if RK2_ENABLED
131 122 : module procedure getCovCorStd_ULD_UXD_RK2
132 : use pm_kind, only: TKC => RK2
133 : #include "pm_sampleCov@routines.inc.F90"
134 122 : end procedure
135 : #endif
136 :
137 : #if RK1_ENABLED
138 120 : module procedure getCovCorStd_ULD_UXD_RK1
139 : use pm_kind, only: TKC => RK1
140 : #include "pm_sampleCov@routines.inc.F90"
141 120 : end procedure
142 : #endif
143 :
144 : #undef RK_ENABLED
145 :
146 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
147 :
148 : #undef ULD_UXD_ENABLED
149 :
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 :
154 : #define ULD_XLD_ENABLED 1
155 :
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 :
158 : #define CK_ENABLED 1
159 :
160 : #if CK5_ENABLED
161 : module procedure getCovCorStd_ULD_XLD_CK5
162 : use pm_kind, only: TKC => CK5
163 : #include "pm_sampleCov@routines.inc.F90"
164 : end procedure
165 : #endif
166 :
167 : #if CK4_ENABLED
168 50 : module procedure getCovCorStd_ULD_XLD_CK4
169 : use pm_kind, only: TKC => CK4
170 : #include "pm_sampleCov@routines.inc.F90"
171 50 : end procedure
172 : #endif
173 :
174 : #if CK3_ENABLED
175 50 : module procedure getCovCorStd_ULD_XLD_CK3
176 : use pm_kind, only: TKC => CK3
177 : #include "pm_sampleCov@routines.inc.F90"
178 50 : end procedure
179 : #endif
180 :
181 : #if CK2_ENABLED
182 50 : module procedure getCovCorStd_ULD_XLD_CK2
183 : use pm_kind, only: TKC => CK2
184 : #include "pm_sampleCov@routines.inc.F90"
185 50 : end procedure
186 : #endif
187 :
188 : #if CK1_ENABLED
189 50 : module procedure getCovCorStd_ULD_XLD_CK1
190 : use pm_kind, only: TKC => CK1
191 : #include "pm_sampleCov@routines.inc.F90"
192 50 : end procedure
193 : #endif
194 :
195 : #undef CK_ENABLED
196 :
197 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
198 :
199 : #define RK_ENABLED 1
200 :
201 : #if RK5_ENABLED
202 : module procedure getCovCorStd_ULD_XLD_RK5
203 : use pm_kind, only: TKC => RK5
204 : #include "pm_sampleCov@routines.inc.F90"
205 : end procedure
206 : #endif
207 :
208 : #if RK4_ENABLED
209 50 : module procedure getCovCorStd_ULD_XLD_RK4
210 : use pm_kind, only: TKC => RK4
211 : #include "pm_sampleCov@routines.inc.F90"
212 50 : end procedure
213 : #endif
214 :
215 : #if RK3_ENABLED
216 50 : module procedure getCovCorStd_ULD_XLD_RK3
217 : use pm_kind, only: TKC => RK3
218 : #include "pm_sampleCov@routines.inc.F90"
219 50 : end procedure
220 : #endif
221 :
222 : #if RK2_ENABLED
223 50 : module procedure getCovCorStd_ULD_XLD_RK2
224 : use pm_kind, only: TKC => RK2
225 : #include "pm_sampleCov@routines.inc.F90"
226 50 : end procedure
227 : #endif
228 :
229 : #if RK1_ENABLED
230 80 : module procedure getCovCorStd_ULD_XLD_RK1
231 : use pm_kind, only: TKC => RK1
232 : #include "pm_sampleCov@routines.inc.F90"
233 80 : end procedure
234 : #endif
235 :
236 : #undef RK_ENABLED
237 :
238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
239 :
240 : #undef ULD_XLD_ENABLED
241 :
242 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
243 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
245 :
246 : #undef CorStd_ENABLED
247 :
248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
251 :
252 : #undef getCov_ENABLED
253 :
254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 :
256 : #define getCov_ENABLED 1
257 :
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261 :
262 : #define XY_ENABLED 1
263 :
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 :
268 : #define WNO_ENABLED 1
269 :
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : #define CK_ENABLED 1
273 :
274 : #if CK5_ENABLED
275 : module procedure getCovWNO_XY_CK5
276 : use pm_kind, only: TKC => CK5
277 : #include "pm_sampleCov@routines.inc.F90"
278 : end procedure
279 : #endif
280 :
281 : #if CK4_ENABLED
282 100 : module procedure getCovWNO_XY_CK4
283 : use pm_kind, only: TKC => CK4
284 : #include "pm_sampleCov@routines.inc.F90"
285 100 : end procedure
286 : #endif
287 :
288 : #if CK3_ENABLED
289 100 : module procedure getCovWNO_XY_CK3
290 : use pm_kind, only: TKC => CK3
291 : #include "pm_sampleCov@routines.inc.F90"
292 100 : end procedure
293 : #endif
294 :
295 : #if CK2_ENABLED
296 100 : module procedure getCovWNO_XY_CK2
297 : use pm_kind, only: TKC => CK2
298 : #include "pm_sampleCov@routines.inc.F90"
299 100 : end procedure
300 : #endif
301 :
302 : #if CK1_ENABLED
303 101 : module procedure getCovWNO_XY_CK1
304 : use pm_kind, only: TKC => CK1
305 : #include "pm_sampleCov@routines.inc.F90"
306 101 : end procedure
307 : #endif
308 :
309 : #undef CK_ENABLED
310 :
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 :
313 : #define RK_ENABLED 1
314 :
315 : #if RK5_ENABLED
316 : module procedure getCovWNO_XY_RK5
317 : use pm_kind, only: TKC => RK5
318 : #include "pm_sampleCov@routines.inc.F90"
319 : end procedure
320 : #endif
321 :
322 : #if RK4_ENABLED
323 100 : module procedure getCovWNO_XY_RK4
324 : use pm_kind, only: TKC => RK4
325 : #include "pm_sampleCov@routines.inc.F90"
326 100 : end procedure
327 : #endif
328 :
329 : #if RK3_ENABLED
330 100 : module procedure getCovWNO_XY_RK3
331 : use pm_kind, only: TKC => RK3
332 : #include "pm_sampleCov@routines.inc.F90"
333 100 : end procedure
334 : #endif
335 :
336 : #if RK2_ENABLED
337 100 : module procedure getCovWNO_XY_RK2
338 : use pm_kind, only: TKC => RK2
339 : #include "pm_sampleCov@routines.inc.F90"
340 100 : end procedure
341 : #endif
342 :
343 : #if RK1_ENABLED
344 101 : module procedure getCovWNO_XY_RK1
345 : use pm_kind, only: TKC => RK1
346 : #include "pm_sampleCov@routines.inc.F90"
347 101 : end procedure
348 : #endif
349 :
350 : #undef RK_ENABLED
351 :
352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
353 :
354 : #undef WNO_ENABLED
355 :
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
359 :
360 : #define WTI_ENABLED 1
361 :
362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 :
364 : #define CK_ENABLED 1
365 :
366 : #if CK5_ENABLED
367 : module procedure getCovWTI_XY_CK5
368 : use pm_kind, only: TKC => CK5
369 : #include "pm_sampleCov@routines.inc.F90"
370 : end procedure
371 : #endif
372 :
373 : #if CK4_ENABLED
374 100 : module procedure getCovWTI_XY_CK4
375 : use pm_kind, only: TKC => CK4
376 : #include "pm_sampleCov@routines.inc.F90"
377 100 : end procedure
378 : #endif
379 :
380 : #if CK3_ENABLED
381 100 : module procedure getCovWTI_XY_CK3
382 : use pm_kind, only: TKC => CK3
383 : #include "pm_sampleCov@routines.inc.F90"
384 100 : end procedure
385 : #endif
386 :
387 : #if CK2_ENABLED
388 100 : module procedure getCovWTI_XY_CK2
389 : use pm_kind, only: TKC => CK2
390 : #include "pm_sampleCov@routines.inc.F90"
391 100 : end procedure
392 : #endif
393 :
394 : #if CK1_ENABLED
395 101 : module procedure getCovWTI_XY_CK1
396 : use pm_kind, only: TKC => CK1
397 : #include "pm_sampleCov@routines.inc.F90"
398 101 : end procedure
399 : #endif
400 :
401 : #undef CK_ENABLED
402 :
403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404 :
405 : #define RK_ENABLED 1
406 :
407 : #if RK5_ENABLED
408 : module procedure getCovWTI_XY_RK5
409 : use pm_kind, only: TKC => RK5
410 : #include "pm_sampleCov@routines.inc.F90"
411 : end procedure
412 : #endif
413 :
414 : #if RK4_ENABLED
415 100 : module procedure getCovWTI_XY_RK4
416 : use pm_kind, only: TKC => RK4
417 : #include "pm_sampleCov@routines.inc.F90"
418 100 : end procedure
419 : #endif
420 :
421 : #if RK3_ENABLED
422 100 : module procedure getCovWTI_XY_RK3
423 : use pm_kind, only: TKC => RK3
424 : #include "pm_sampleCov@routines.inc.F90"
425 100 : end procedure
426 : #endif
427 :
428 : #if RK2_ENABLED
429 100 : module procedure getCovWTI_XY_RK2
430 : use pm_kind, only: TKC => RK2
431 : #include "pm_sampleCov@routines.inc.F90"
432 100 : end procedure
433 : #endif
434 :
435 : #if RK1_ENABLED
436 101 : module procedure getCovWTI_XY_RK1
437 : use pm_kind, only: TKC => RK1
438 : #include "pm_sampleCov@routines.inc.F90"
439 101 : end procedure
440 : #endif
441 :
442 : #undef RK_ENABLED
443 :
444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
445 :
446 : #undef WTI_ENABLED
447 :
448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
451 :
452 : #define WTR_ENABLED 1
453 :
454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
455 :
456 : #define CK_ENABLED 1
457 :
458 : #if CK5_ENABLED
459 : module procedure getCovWTR_XY_CK5
460 : use pm_kind, only: TKC => CK5
461 : #include "pm_sampleCov@routines.inc.F90"
462 : end procedure
463 : #endif
464 :
465 : #if CK4_ENABLED
466 100 : module procedure getCovWTR_XY_CK4
467 : use pm_kind, only: TKC => CK4
468 : #include "pm_sampleCov@routines.inc.F90"
469 100 : end procedure
470 : #endif
471 :
472 : #if CK3_ENABLED
473 100 : module procedure getCovWTR_XY_CK3
474 : use pm_kind, only: TKC => CK3
475 : #include "pm_sampleCov@routines.inc.F90"
476 100 : end procedure
477 : #endif
478 :
479 : #if CK2_ENABLED
480 100 : module procedure getCovWTR_XY_CK2
481 : use pm_kind, only: TKC => CK2
482 : #include "pm_sampleCov@routines.inc.F90"
483 100 : end procedure
484 : #endif
485 :
486 : #if CK1_ENABLED
487 101 : module procedure getCovWTR_XY_CK1
488 : use pm_kind, only: TKC => CK1
489 : #include "pm_sampleCov@routines.inc.F90"
490 101 : end procedure
491 : #endif
492 :
493 : #undef CK_ENABLED
494 :
495 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
496 :
497 : #define RK_ENABLED 1
498 :
499 : #if RK5_ENABLED
500 : module procedure getCovWTR_XY_RK5
501 : use pm_kind, only: TKC => RK5
502 : #include "pm_sampleCov@routines.inc.F90"
503 : end procedure
504 : #endif
505 :
506 : #if RK4_ENABLED
507 100 : module procedure getCovWTR_XY_RK4
508 : use pm_kind, only: TKC => RK4
509 : #include "pm_sampleCov@routines.inc.F90"
510 100 : end procedure
511 : #endif
512 :
513 : #if RK3_ENABLED
514 100 : module procedure getCovWTR_XY_RK3
515 : use pm_kind, only: TKC => RK3
516 : #include "pm_sampleCov@routines.inc.F90"
517 100 : end procedure
518 : #endif
519 :
520 : #if RK2_ENABLED
521 100 : module procedure getCovWTR_XY_RK2
522 : use pm_kind, only: TKC => RK2
523 : #include "pm_sampleCov@routines.inc.F90"
524 100 : end procedure
525 : #endif
526 :
527 : #if RK1_ENABLED
528 101 : module procedure getCovWTR_XY_RK1
529 : use pm_kind, only: TKC => RK1
530 : #include "pm_sampleCov@routines.inc.F90"
531 101 : end procedure
532 : #endif
533 :
534 : #undef RK_ENABLED
535 :
536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
537 :
538 : #undef WTR_ENABLED
539 :
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543 :
544 : #undef XY_ENABLED
545 :
546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 :
550 : #undef getCov_ENABLED
551 :
552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 :
554 : #define getCov_ENABLED 1
555 :
556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559 :
560 : #define ULD_ENABLED 1
561 :
562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
565 :
566 : #define WNO_ENABLED 1
567 :
568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
569 :
570 : #define CK_ENABLED 1
571 :
572 : #if CK5_ENABLED
573 : module procedure getCovWNO_ULD_CK5
574 : use pm_kind, only: TKC => CK5
575 : #include "pm_sampleCov@routines.inc.F90"
576 : end procedure
577 : #endif
578 :
579 : #if CK4_ENABLED
580 550 : module procedure getCovWNO_ULD_CK4
581 : use pm_kind, only: TKC => CK4
582 : #include "pm_sampleCov@routines.inc.F90"
583 550 : end procedure
584 : #endif
585 :
586 : #if CK3_ENABLED
587 550 : module procedure getCovWNO_ULD_CK3
588 : use pm_kind, only: TKC => CK3
589 : #include "pm_sampleCov@routines.inc.F90"
590 550 : end procedure
591 : #endif
592 :
593 : #if CK2_ENABLED
594 550 : module procedure getCovWNO_ULD_CK2
595 : use pm_kind, only: TKC => CK2
596 : #include "pm_sampleCov@routines.inc.F90"
597 550 : end procedure
598 : #endif
599 :
600 : #if CK1_ENABLED
601 552 : module procedure getCovWNO_ULD_CK1
602 : use pm_kind, only: TKC => CK1
603 : #include "pm_sampleCov@routines.inc.F90"
604 552 : end procedure
605 : #endif
606 :
607 : #undef CK_ENABLED
608 :
609 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
610 :
611 : #define RK_ENABLED 1
612 :
613 : #if RK5_ENABLED
614 : module procedure getCovWNO_ULD_RK5
615 : use pm_kind, only: TKC => RK5
616 : #include "pm_sampleCov@routines.inc.F90"
617 : end procedure
618 : #endif
619 :
620 : #if RK4_ENABLED
621 550 : module procedure getCovWNO_ULD_RK4
622 : use pm_kind, only: TKC => RK4
623 : #include "pm_sampleCov@routines.inc.F90"
624 550 : end procedure
625 : #endif
626 :
627 : #if RK3_ENABLED
628 550 : module procedure getCovWNO_ULD_RK3
629 : use pm_kind, only: TKC => RK3
630 : #include "pm_sampleCov@routines.inc.F90"
631 550 : end procedure
632 : #endif
633 :
634 : #if RK2_ENABLED
635 550 : module procedure getCovWNO_ULD_RK2
636 : use pm_kind, only: TKC => RK2
637 : #include "pm_sampleCov@routines.inc.F90"
638 550 : end procedure
639 : #endif
640 :
641 : #if RK1_ENABLED
642 642 : module procedure getCovWNO_ULD_RK1
643 : use pm_kind, only: TKC => RK1
644 : #include "pm_sampleCov@routines.inc.F90"
645 642 : end procedure
646 : #endif
647 :
648 : #undef RK_ENABLED
649 :
650 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
651 :
652 : #undef WNO_ENABLED
653 :
654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
656 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
657 :
658 : #define WTI_ENABLED 1
659 :
660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
661 :
662 : #define CK_ENABLED 1
663 :
664 : #if CK5_ENABLED
665 : module procedure getCovWTI_ULD_CK5
666 : use pm_kind, only: TKC => CK5
667 : #include "pm_sampleCov@routines.inc.F90"
668 : end procedure
669 : #endif
670 :
671 : #if CK4_ENABLED
672 100 : module procedure getCovWTI_ULD_CK4
673 : use pm_kind, only: TKC => CK4
674 : #include "pm_sampleCov@routines.inc.F90"
675 100 : end procedure
676 : #endif
677 :
678 : #if CK3_ENABLED
679 100 : module procedure getCovWTI_ULD_CK3
680 : use pm_kind, only: TKC => CK3
681 : #include "pm_sampleCov@routines.inc.F90"
682 100 : end procedure
683 : #endif
684 :
685 : #if CK2_ENABLED
686 100 : module procedure getCovWTI_ULD_CK2
687 : use pm_kind, only: TKC => CK2
688 : #include "pm_sampleCov@routines.inc.F90"
689 100 : end procedure
690 : #endif
691 :
692 : #if CK1_ENABLED
693 102 : module procedure getCovWTI_ULD_CK1
694 : use pm_kind, only: TKC => CK1
695 : #include "pm_sampleCov@routines.inc.F90"
696 102 : end procedure
697 : #endif
698 :
699 : #undef CK_ENABLED
700 :
701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
702 :
703 : #define RK_ENABLED 1
704 :
705 : #if RK5_ENABLED
706 : module procedure getCovWTI_ULD_RK5
707 : use pm_kind, only: TKC => RK5
708 : #include "pm_sampleCov@routines.inc.F90"
709 : end procedure
710 : #endif
711 :
712 : #if RK4_ENABLED
713 100 : module procedure getCovWTI_ULD_RK4
714 : use pm_kind, only: TKC => RK4
715 : #include "pm_sampleCov@routines.inc.F90"
716 100 : end procedure
717 : #endif
718 :
719 : #if RK3_ENABLED
720 100 : module procedure getCovWTI_ULD_RK3
721 : use pm_kind, only: TKC => RK3
722 : #include "pm_sampleCov@routines.inc.F90"
723 100 : end procedure
724 : #endif
725 :
726 : #if RK2_ENABLED
727 100 : module procedure getCovWTI_ULD_RK2
728 : use pm_kind, only: TKC => RK2
729 : #include "pm_sampleCov@routines.inc.F90"
730 100 : end procedure
731 : #endif
732 :
733 : #if RK1_ENABLED
734 192 : module procedure getCovWTI_ULD_RK1
735 : use pm_kind, only: TKC => RK1
736 : #include "pm_sampleCov@routines.inc.F90"
737 192 : end procedure
738 : #endif
739 :
740 : #undef RK_ENABLED
741 :
742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 :
744 : #undef WTI_ENABLED
745 :
746 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 :
750 : #define WTR_ENABLED 1
751 :
752 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
753 :
754 : #define CK_ENABLED 1
755 :
756 : #if CK5_ENABLED
757 : module procedure getCovWTR_ULD_CK5
758 : use pm_kind, only: TKC => CK5
759 : #include "pm_sampleCov@routines.inc.F90"
760 : end procedure
761 : #endif
762 :
763 : #if CK4_ENABLED
764 100 : module procedure getCovWTR_ULD_CK4
765 : use pm_kind, only: TKC => CK4
766 : #include "pm_sampleCov@routines.inc.F90"
767 100 : end procedure
768 : #endif
769 :
770 : #if CK3_ENABLED
771 100 : module procedure getCovWTR_ULD_CK3
772 : use pm_kind, only: TKC => CK3
773 : #include "pm_sampleCov@routines.inc.F90"
774 100 : end procedure
775 : #endif
776 :
777 : #if CK2_ENABLED
778 100 : module procedure getCovWTR_ULD_CK2
779 : use pm_kind, only: TKC => CK2
780 : #include "pm_sampleCov@routines.inc.F90"
781 100 : end procedure
782 : #endif
783 :
784 : #if CK1_ENABLED
785 102 : module procedure getCovWTR_ULD_CK1
786 : use pm_kind, only: TKC => CK1
787 : #include "pm_sampleCov@routines.inc.F90"
788 102 : end procedure
789 : #endif
790 :
791 : #undef CK_ENABLED
792 :
793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
794 :
795 : #define RK_ENABLED 1
796 :
797 : #if RK5_ENABLED
798 : module procedure getCovWTR_ULD_RK5
799 : use pm_kind, only: TKC => RK5
800 : #include "pm_sampleCov@routines.inc.F90"
801 : end procedure
802 : #endif
803 :
804 : #if RK4_ENABLED
805 100 : module procedure getCovWTR_ULD_RK4
806 : use pm_kind, only: TKC => RK4
807 : #include "pm_sampleCov@routines.inc.F90"
808 100 : end procedure
809 : #endif
810 :
811 : #if RK3_ENABLED
812 100 : module procedure getCovWTR_ULD_RK3
813 : use pm_kind, only: TKC => RK3
814 : #include "pm_sampleCov@routines.inc.F90"
815 100 : end procedure
816 : #endif
817 :
818 : #if RK2_ENABLED
819 100 : module procedure getCovWTR_ULD_RK2
820 : use pm_kind, only: TKC => RK2
821 : #include "pm_sampleCov@routines.inc.F90"
822 100 : end procedure
823 : #endif
824 :
825 : #if RK1_ENABLED
826 192 : module procedure getCovWTR_ULD_RK1
827 : use pm_kind, only: TKC => RK1
828 : #include "pm_sampleCov@routines.inc.F90"
829 192 : end procedure
830 : #endif
831 :
832 : #undef RK_ENABLED
833 :
834 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
835 :
836 : #undef WTR_ENABLED
837 :
838 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
841 :
842 : #undef ULD_ENABLED
843 :
844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
847 :
848 : #undef getCov_ENABLED
849 :
850 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
851 :
852 : #define setCov_ENABLED 1
853 :
854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
856 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
857 :
858 : #define CorStd_ENABLED 1
859 :
860 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
861 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
862 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
863 :
864 : #define UXD_UXD_ENABLED 1
865 :
866 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
867 :
868 : #define CK_ENABLED 1
869 :
870 : #if CK5_ENABLED
871 : module procedure setCovCorStd_UXD_UXD_CK5
872 : use pm_kind, only: TKC => CK5
873 : #include "pm_sampleCov@routines.inc.F90"
874 : end procedure
875 : #endif
876 :
877 : #if CK4_ENABLED
878 300 : module procedure setCovCorStd_UXD_UXD_CK4
879 : use pm_kind, only: TKC => CK4
880 : #include "pm_sampleCov@routines.inc.F90"
881 : end procedure
882 : #endif
883 :
884 : #if CK3_ENABLED
885 300 : module procedure setCovCorStd_UXD_UXD_CK3
886 : use pm_kind, only: TKC => CK3
887 : #include "pm_sampleCov@routines.inc.F90"
888 : end procedure
889 : #endif
890 :
891 : #if CK2_ENABLED
892 300 : module procedure setCovCorStd_UXD_UXD_CK2
893 : use pm_kind, only: TKC => CK2
894 : #include "pm_sampleCov@routines.inc.F90"
895 : end procedure
896 : #endif
897 :
898 : #if CK1_ENABLED
899 300 : module procedure setCovCorStd_UXD_UXD_CK1
900 : use pm_kind, only: TKC => CK1
901 : #include "pm_sampleCov@routines.inc.F90"
902 : end procedure
903 : #endif
904 :
905 : #undef CK_ENABLED
906 :
907 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
908 :
909 : #define RK_ENABLED 1
910 :
911 : #if RK5_ENABLED
912 : module procedure setCovCorStd_UXD_UXD_RK5
913 : use pm_kind, only: TKC => RK5
914 : #include "pm_sampleCov@routines.inc.F90"
915 : end procedure
916 : #endif
917 :
918 : #if RK4_ENABLED
919 300 : module procedure setCovCorStd_UXD_UXD_RK4
920 : use pm_kind, only: TKC => RK4
921 : #include "pm_sampleCov@routines.inc.F90"
922 : end procedure
923 : #endif
924 :
925 : #if RK3_ENABLED
926 300 : module procedure setCovCorStd_UXD_UXD_RK3
927 : use pm_kind, only: TKC => RK3
928 : #include "pm_sampleCov@routines.inc.F90"
929 : end procedure
930 : #endif
931 :
932 : #if RK2_ENABLED
933 322 : module procedure setCovCorStd_UXD_UXD_RK2
934 : use pm_kind, only: TKC => RK2
935 : #include "pm_sampleCov@routines.inc.F90"
936 : end procedure
937 : #endif
938 :
939 : #if RK1_ENABLED
940 320 : module procedure setCovCorStd_UXD_UXD_RK1
941 : use pm_kind, only: TKC => RK1
942 : #include "pm_sampleCov@routines.inc.F90"
943 : end procedure
944 : #endif
945 :
946 : #undef RK_ENABLED
947 :
948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
949 :
950 : #undef UXD_UXD_ENABLED
951 :
952 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
953 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
955 :
956 : #define UXD_XLD_ENABLED 1
957 :
958 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
959 :
960 : #define CK_ENABLED 1
961 :
962 : #if CK5_ENABLED
963 : module procedure setCovCorStd_UXD_XLD_CK5
964 : use pm_kind, only: TKC => CK5
965 : #include "pm_sampleCov@routines.inc.F90"
966 : end procedure
967 : #endif
968 :
969 : #if CK4_ENABLED
970 200 : module procedure setCovCorStd_UXD_XLD_CK4
971 : use pm_kind, only: TKC => CK4
972 : #include "pm_sampleCov@routines.inc.F90"
973 : end procedure
974 : #endif
975 :
976 : #if CK3_ENABLED
977 200 : module procedure setCovCorStd_UXD_XLD_CK3
978 : use pm_kind, only: TKC => CK3
979 : #include "pm_sampleCov@routines.inc.F90"
980 : end procedure
981 : #endif
982 :
983 : #if CK2_ENABLED
984 200 : module procedure setCovCorStd_UXD_XLD_CK2
985 : use pm_kind, only: TKC => CK2
986 : #include "pm_sampleCov@routines.inc.F90"
987 : end procedure
988 : #endif
989 :
990 : #if CK1_ENABLED
991 200 : module procedure setCovCorStd_UXD_XLD_CK1
992 : use pm_kind, only: TKC => CK1
993 : #include "pm_sampleCov@routines.inc.F90"
994 : end procedure
995 : #endif
996 :
997 : #undef CK_ENABLED
998 :
999 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1000 :
1001 : #define RK_ENABLED 1
1002 :
1003 : #if RK5_ENABLED
1004 : module procedure setCovCorStd_UXD_XLD_RK5
1005 : use pm_kind, only: TKC => RK5
1006 : #include "pm_sampleCov@routines.inc.F90"
1007 : end procedure
1008 : #endif
1009 :
1010 : #if RK4_ENABLED
1011 200 : module procedure setCovCorStd_UXD_XLD_RK4
1012 : use pm_kind, only: TKC => RK4
1013 : #include "pm_sampleCov@routines.inc.F90"
1014 : end procedure
1015 : #endif
1016 :
1017 : #if RK3_ENABLED
1018 200 : module procedure setCovCorStd_UXD_XLD_RK3
1019 : use pm_kind, only: TKC => RK3
1020 : #include "pm_sampleCov@routines.inc.F90"
1021 : end procedure
1022 : #endif
1023 :
1024 : #if RK2_ENABLED
1025 200 : module procedure setCovCorStd_UXD_XLD_RK2
1026 : use pm_kind, only: TKC => RK2
1027 : #include "pm_sampleCov@routines.inc.F90"
1028 : end procedure
1029 : #endif
1030 :
1031 : #if RK1_ENABLED
1032 240 : module procedure setCovCorStd_UXD_XLD_RK1
1033 : use pm_kind, only: TKC => RK1
1034 : #include "pm_sampleCov@routines.inc.F90"
1035 : end procedure
1036 : #endif
1037 :
1038 : #undef RK_ENABLED
1039 :
1040 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1041 :
1042 : #undef UXD_XLD_ENABLED
1043 :
1044 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1045 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1047 :
1048 : #define XLD_UXD_ENABLED 1
1049 :
1050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1051 :
1052 : #define CK_ENABLED 1
1053 :
1054 : #if CK5_ENABLED
1055 : module procedure setCovCorStd_XLD_UXD_CK5
1056 : use pm_kind, only: TKC => CK5
1057 : #include "pm_sampleCov@routines.inc.F90"
1058 : end procedure
1059 : #endif
1060 :
1061 : #if CK4_ENABLED
1062 150 : module procedure setCovCorStd_XLD_UXD_CK4
1063 : use pm_kind, only: TKC => CK4
1064 : #include "pm_sampleCov@routines.inc.F90"
1065 : end procedure
1066 : #endif
1067 :
1068 : #if CK3_ENABLED
1069 150 : module procedure setCovCorStd_XLD_UXD_CK3
1070 : use pm_kind, only: TKC => CK3
1071 : #include "pm_sampleCov@routines.inc.F90"
1072 : end procedure
1073 : #endif
1074 :
1075 : #if CK2_ENABLED
1076 150 : module procedure setCovCorStd_XLD_UXD_CK2
1077 : use pm_kind, only: TKC => CK2
1078 : #include "pm_sampleCov@routines.inc.F90"
1079 : end procedure
1080 : #endif
1081 :
1082 : #if CK1_ENABLED
1083 150 : module procedure setCovCorStd_XLD_UXD_CK1
1084 : use pm_kind, only: TKC => CK1
1085 : #include "pm_sampleCov@routines.inc.F90"
1086 : end procedure
1087 : #endif
1088 :
1089 : #undef CK_ENABLED
1090 :
1091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1092 :
1093 : #define RK_ENABLED 1
1094 :
1095 : #if RK5_ENABLED
1096 : module procedure setCovCorStd_XLD_UXD_RK5
1097 : use pm_kind, only: TKC => RK5
1098 : #include "pm_sampleCov@routines.inc.F90"
1099 : end procedure
1100 : #endif
1101 :
1102 : #if RK4_ENABLED
1103 150 : module procedure setCovCorStd_XLD_UXD_RK4
1104 : use pm_kind, only: TKC => RK4
1105 : #include "pm_sampleCov@routines.inc.F90"
1106 : end procedure
1107 : #endif
1108 :
1109 : #if RK3_ENABLED
1110 150 : module procedure setCovCorStd_XLD_UXD_RK3
1111 : use pm_kind, only: TKC => RK3
1112 : #include "pm_sampleCov@routines.inc.F90"
1113 : end procedure
1114 : #endif
1115 :
1116 : #if RK2_ENABLED
1117 150 : module procedure setCovCorStd_XLD_UXD_RK2
1118 : use pm_kind, only: TKC => RK2
1119 : #include "pm_sampleCov@routines.inc.F90"
1120 : end procedure
1121 : #endif
1122 :
1123 : #if RK1_ENABLED
1124 160 : module procedure setCovCorStd_XLD_UXD_RK1
1125 : use pm_kind, only: TKC => RK1
1126 : #include "pm_sampleCov@routines.inc.F90"
1127 : end procedure
1128 : #endif
1129 :
1130 : #undef RK_ENABLED
1131 :
1132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1133 :
1134 : #undef XLD_UXD_ENABLED
1135 :
1136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1139 :
1140 : #define XLD_XLD_ENABLED 1
1141 :
1142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1143 :
1144 : #define CK_ENABLED 1
1145 :
1146 : #if CK5_ENABLED
1147 : module procedure setCovCorStd_XLD_XLD_CK5
1148 : use pm_kind, only: TKC => CK5
1149 : #include "pm_sampleCov@routines.inc.F90"
1150 : end procedure
1151 : #endif
1152 :
1153 : #if CK4_ENABLED
1154 200 : module procedure setCovCorStd_XLD_XLD_CK4
1155 : use pm_kind, only: TKC => CK4
1156 : #include "pm_sampleCov@routines.inc.F90"
1157 : end procedure
1158 : #endif
1159 :
1160 : #if CK3_ENABLED
1161 200 : module procedure setCovCorStd_XLD_XLD_CK3
1162 : use pm_kind, only: TKC => CK3
1163 : #include "pm_sampleCov@routines.inc.F90"
1164 : end procedure
1165 : #endif
1166 :
1167 : #if CK2_ENABLED
1168 200 : module procedure setCovCorStd_XLD_XLD_CK2
1169 : use pm_kind, only: TKC => CK2
1170 : #include "pm_sampleCov@routines.inc.F90"
1171 : end procedure
1172 : #endif
1173 :
1174 : #if CK1_ENABLED
1175 200 : module procedure setCovCorStd_XLD_XLD_CK1
1176 : use pm_kind, only: TKC => CK1
1177 : #include "pm_sampleCov@routines.inc.F90"
1178 : end procedure
1179 : #endif
1180 :
1181 : #undef CK_ENABLED
1182 :
1183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1184 :
1185 : #define RK_ENABLED 1
1186 :
1187 : #if RK5_ENABLED
1188 : module procedure setCovCorStd_XLD_XLD_RK5
1189 : use pm_kind, only: TKC => RK5
1190 : #include "pm_sampleCov@routines.inc.F90"
1191 : end procedure
1192 : #endif
1193 :
1194 : #if RK4_ENABLED
1195 200 : module procedure setCovCorStd_XLD_XLD_RK4
1196 : use pm_kind, only: TKC => RK4
1197 : #include "pm_sampleCov@routines.inc.F90"
1198 : end procedure
1199 : #endif
1200 :
1201 : #if RK3_ENABLED
1202 200 : module procedure setCovCorStd_XLD_XLD_RK3
1203 : use pm_kind, only: TKC => RK3
1204 : #include "pm_sampleCov@routines.inc.F90"
1205 : end procedure
1206 : #endif
1207 :
1208 : #if RK2_ENABLED
1209 200 : module procedure setCovCorStd_XLD_XLD_RK2
1210 : use pm_kind, only: TKC => RK2
1211 : #include "pm_sampleCov@routines.inc.F90"
1212 : end procedure
1213 : #endif
1214 :
1215 : #if RK1_ENABLED
1216 200 : module procedure setCovCorStd_XLD_XLD_RK1
1217 : use pm_kind, only: TKC => RK1
1218 : #include "pm_sampleCov@routines.inc.F90"
1219 : end procedure
1220 : #endif
1221 :
1222 : #undef RK_ENABLED
1223 :
1224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1225 :
1226 : #undef XLD_XLD_ENABLED
1227 :
1228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1230 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1231 :
1232 : #undef CorStd_ENABLED
1233 :
1234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1237 :
1238 : #undef setCov_ENABLED
1239 :
1240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1241 :
1242 : #define setCov_ENABLED 1
1243 :
1244 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1247 :
1248 : #define XY_ENABLED 1
1249 :
1250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1253 :
1254 : #define WNO_ENABLED 1
1255 :
1256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1259 :
1260 : #define Avg_ENABLED 1
1261 :
1262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1263 :
1264 : #define CK_ENABLED 1
1265 :
1266 : #if CK5_ENABLED
1267 : module procedure setCovAvgWNO_XY_CK5
1268 : use pm_kind, only: TKC => CK5
1269 : #include "pm_sampleCov@routines.inc.F90"
1270 : end procedure
1271 : #endif
1272 :
1273 : #if CK4_ENABLED
1274 250 : module procedure setCovAvgWNO_XY_CK4
1275 : use pm_kind, only: TKC => CK4
1276 : #include "pm_sampleCov@routines.inc.F90"
1277 250 : end procedure
1278 : #endif
1279 :
1280 : #if CK3_ENABLED
1281 250 : module procedure setCovAvgWNO_XY_CK3
1282 : use pm_kind, only: TKC => CK3
1283 : #include "pm_sampleCov@routines.inc.F90"
1284 250 : end procedure
1285 : #endif
1286 :
1287 : #if CK2_ENABLED
1288 250 : module procedure setCovAvgWNO_XY_CK2
1289 : use pm_kind, only: TKC => CK2
1290 : #include "pm_sampleCov@routines.inc.F90"
1291 250 : end procedure
1292 : #endif
1293 :
1294 : #if CK1_ENABLED
1295 250 : module procedure setCovAvgWNO_XY_CK1
1296 : use pm_kind, only: TKC => CK1
1297 : #include "pm_sampleCov@routines.inc.F90"
1298 250 : end procedure
1299 : #endif
1300 :
1301 : #undef CK_ENABLED
1302 :
1303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1304 :
1305 : #define RK_ENABLED 1
1306 :
1307 : #if RK5_ENABLED
1308 : module procedure setCovAvgWNO_XY_RK5
1309 : use pm_kind, only: TKC => RK5
1310 : #include "pm_sampleCov@routines.inc.F90"
1311 : end procedure
1312 : #endif
1313 :
1314 : #if RK4_ENABLED
1315 250 : module procedure setCovAvgWNO_XY_RK4
1316 : use pm_kind, only: TKC => RK4
1317 : #include "pm_sampleCov@routines.inc.F90"
1318 250 : end procedure
1319 : #endif
1320 :
1321 : #if RK3_ENABLED
1322 250 : module procedure setCovAvgWNO_XY_RK3
1323 : use pm_kind, only: TKC => RK3
1324 : #include "pm_sampleCov@routines.inc.F90"
1325 250 : end procedure
1326 : #endif
1327 :
1328 : #if RK2_ENABLED
1329 2655 : module procedure setCovAvgWNO_XY_RK2
1330 : use pm_kind, only: TKC => RK2
1331 : #include "pm_sampleCov@routines.inc.F90"
1332 2655 : end procedure
1333 : #endif
1334 :
1335 : #if RK1_ENABLED
1336 253 : module procedure setCovAvgWNO_XY_RK1
1337 : use pm_kind, only: TKC => RK1
1338 : #include "pm_sampleCov@routines.inc.F90"
1339 253 : end procedure
1340 : #endif
1341 :
1342 : #undef RK_ENABLED
1343 :
1344 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1345 :
1346 : #undef Avg_ENABLED
1347 :
1348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1351 :
1352 : #define Org_ENABLED 1
1353 :
1354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1355 :
1356 : #define CK_ENABLED 1
1357 :
1358 : #if CK5_ENABLED
1359 : module procedure setCovOrgWNO_XY_CK5
1360 : use pm_kind, only: TKC => CK5
1361 : #include "pm_sampleCov@routines.inc.F90"
1362 : end procedure
1363 : #endif
1364 :
1365 : #if CK4_ENABLED
1366 100 : module procedure setCovOrgWNO_XY_CK4
1367 : use pm_kind, only: TKC => CK4
1368 : #include "pm_sampleCov@routines.inc.F90"
1369 100 : end procedure
1370 : #endif
1371 :
1372 : #if CK3_ENABLED
1373 100 : module procedure setCovOrgWNO_XY_CK3
1374 : use pm_kind, only: TKC => CK3
1375 : #include "pm_sampleCov@routines.inc.F90"
1376 100 : end procedure
1377 : #endif
1378 :
1379 : #if CK2_ENABLED
1380 100 : module procedure setCovOrgWNO_XY_CK2
1381 : use pm_kind, only: TKC => CK2
1382 : #include "pm_sampleCov@routines.inc.F90"
1383 100 : end procedure
1384 : #endif
1385 :
1386 : #if CK1_ENABLED
1387 100 : module procedure setCovOrgWNO_XY_CK1
1388 : use pm_kind, only: TKC => CK1
1389 : #include "pm_sampleCov@routines.inc.F90"
1390 100 : end procedure
1391 : #endif
1392 :
1393 : #undef CK_ENABLED
1394 :
1395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1396 :
1397 : #define RK_ENABLED 1
1398 :
1399 : #if RK5_ENABLED
1400 : module procedure setCovOrgWNO_XY_RK5
1401 : use pm_kind, only: TKC => RK5
1402 : #include "pm_sampleCov@routines.inc.F90"
1403 : end procedure
1404 : #endif
1405 :
1406 : #if RK4_ENABLED
1407 100 : module procedure setCovOrgWNO_XY_RK4
1408 : use pm_kind, only: TKC => RK4
1409 : #include "pm_sampleCov@routines.inc.F90"
1410 100 : end procedure
1411 : #endif
1412 :
1413 : #if RK3_ENABLED
1414 100 : module procedure setCovOrgWNO_XY_RK3
1415 : use pm_kind, only: TKC => RK3
1416 : #include "pm_sampleCov@routines.inc.F90"
1417 100 : end procedure
1418 : #endif
1419 :
1420 : #if RK2_ENABLED
1421 100 : module procedure setCovOrgWNO_XY_RK2
1422 : use pm_kind, only: TKC => RK2
1423 : #include "pm_sampleCov@routines.inc.F90"
1424 100 : end procedure
1425 : #endif
1426 :
1427 : #if RK1_ENABLED
1428 102 : module procedure setCovOrgWNO_XY_RK1
1429 : use pm_kind, only: TKC => RK1
1430 : #include "pm_sampleCov@routines.inc.F90"
1431 102 : end procedure
1432 : #endif
1433 :
1434 : #undef RK_ENABLED
1435 :
1436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1437 :
1438 : #undef Org_ENABLED
1439 :
1440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1443 :
1444 : #undef WNO_ENABLED
1445 :
1446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1449 :
1450 : #define WTI_ENABLED 1
1451 :
1452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1455 :
1456 : #define Avg_ENABLED 1
1457 :
1458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1459 :
1460 : #define CK_ENABLED 1
1461 :
1462 : #if CK5_ENABLED
1463 : module procedure setCovAvgWTI_XY_CK5
1464 : use pm_kind, only: TKC => CK5
1465 : #include "pm_sampleCov@routines.inc.F90"
1466 : end procedure
1467 : #endif
1468 :
1469 : #if CK4_ENABLED
1470 250 : module procedure setCovAvgWTI_XY_CK4
1471 : use pm_kind, only: TKC => CK4
1472 : #include "pm_sampleCov@routines.inc.F90"
1473 250 : end procedure
1474 : #endif
1475 :
1476 : #if CK3_ENABLED
1477 250 : module procedure setCovAvgWTI_XY_CK3
1478 : use pm_kind, only: TKC => CK3
1479 : #include "pm_sampleCov@routines.inc.F90"
1480 250 : end procedure
1481 : #endif
1482 :
1483 : #if CK2_ENABLED
1484 250 : module procedure setCovAvgWTI_XY_CK2
1485 : use pm_kind, only: TKC => CK2
1486 : #include "pm_sampleCov@routines.inc.F90"
1487 250 : end procedure
1488 : #endif
1489 :
1490 : #if CK1_ENABLED
1491 250 : module procedure setCovAvgWTI_XY_CK1
1492 : use pm_kind, only: TKC => CK1
1493 : #include "pm_sampleCov@routines.inc.F90"
1494 250 : end procedure
1495 : #endif
1496 :
1497 : #undef CK_ENABLED
1498 :
1499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1500 :
1501 : #define RK_ENABLED 1
1502 :
1503 : #if RK5_ENABLED
1504 : module procedure setCovAvgWTI_XY_RK5
1505 : use pm_kind, only: TKC => RK5
1506 : #include "pm_sampleCov@routines.inc.F90"
1507 : end procedure
1508 : #endif
1509 :
1510 : #if RK4_ENABLED
1511 250 : module procedure setCovAvgWTI_XY_RK4
1512 : use pm_kind, only: TKC => RK4
1513 : #include "pm_sampleCov@routines.inc.F90"
1514 250 : end procedure
1515 : #endif
1516 :
1517 : #if RK3_ENABLED
1518 250 : module procedure setCovAvgWTI_XY_RK3
1519 : use pm_kind, only: TKC => RK3
1520 : #include "pm_sampleCov@routines.inc.F90"
1521 250 : end procedure
1522 : #endif
1523 :
1524 : #if RK2_ENABLED
1525 1452 : module procedure setCovAvgWTI_XY_RK2
1526 : use pm_kind, only: TKC => RK2
1527 : #include "pm_sampleCov@routines.inc.F90"
1528 1452 : end procedure
1529 : #endif
1530 :
1531 : #if RK1_ENABLED
1532 253 : module procedure setCovAvgWTI_XY_RK1
1533 : use pm_kind, only: TKC => RK1
1534 : #include "pm_sampleCov@routines.inc.F90"
1535 253 : end procedure
1536 : #endif
1537 :
1538 : #undef RK_ENABLED
1539 :
1540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1541 :
1542 : #undef Avg_ENABLED
1543 :
1544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1547 :
1548 : #define Org_ENABLED 1
1549 :
1550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1551 :
1552 : #define CK_ENABLED 1
1553 :
1554 : #if CK5_ENABLED
1555 : module procedure setCovOrgWTI_XY_CK5
1556 : use pm_kind, only: TKC => CK5
1557 : #include "pm_sampleCov@routines.inc.F90"
1558 : end procedure
1559 : #endif
1560 :
1561 : #if CK4_ENABLED
1562 100 : module procedure setCovOrgWTI_XY_CK4
1563 : use pm_kind, only: TKC => CK4
1564 : #include "pm_sampleCov@routines.inc.F90"
1565 100 : end procedure
1566 : #endif
1567 :
1568 : #if CK3_ENABLED
1569 100 : module procedure setCovOrgWTI_XY_CK3
1570 : use pm_kind, only: TKC => CK3
1571 : #include "pm_sampleCov@routines.inc.F90"
1572 100 : end procedure
1573 : #endif
1574 :
1575 : #if CK2_ENABLED
1576 100 : module procedure setCovOrgWTI_XY_CK2
1577 : use pm_kind, only: TKC => CK2
1578 : #include "pm_sampleCov@routines.inc.F90"
1579 100 : end procedure
1580 : #endif
1581 :
1582 : #if CK1_ENABLED
1583 100 : module procedure setCovOrgWTI_XY_CK1
1584 : use pm_kind, only: TKC => CK1
1585 : #include "pm_sampleCov@routines.inc.F90"
1586 100 : end procedure
1587 : #endif
1588 :
1589 : #undef CK_ENABLED
1590 :
1591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1592 :
1593 : #define RK_ENABLED 1
1594 :
1595 : #if RK5_ENABLED
1596 : module procedure setCovOrgWTI_XY_RK5
1597 : use pm_kind, only: TKC => RK5
1598 : #include "pm_sampleCov@routines.inc.F90"
1599 : end procedure
1600 : #endif
1601 :
1602 : #if RK4_ENABLED
1603 100 : module procedure setCovOrgWTI_XY_RK4
1604 : use pm_kind, only: TKC => RK4
1605 : #include "pm_sampleCov@routines.inc.F90"
1606 100 : end procedure
1607 : #endif
1608 :
1609 : #if RK3_ENABLED
1610 100 : module procedure setCovOrgWTI_XY_RK3
1611 : use pm_kind, only: TKC => RK3
1612 : #include "pm_sampleCov@routines.inc.F90"
1613 100 : end procedure
1614 : #endif
1615 :
1616 : #if RK2_ENABLED
1617 100 : module procedure setCovOrgWTI_XY_RK2
1618 : use pm_kind, only: TKC => RK2
1619 : #include "pm_sampleCov@routines.inc.F90"
1620 100 : end procedure
1621 : #endif
1622 :
1623 : #if RK1_ENABLED
1624 102 : module procedure setCovOrgWTI_XY_RK1
1625 : use pm_kind, only: TKC => RK1
1626 : #include "pm_sampleCov@routines.inc.F90"
1627 102 : end procedure
1628 : #endif
1629 :
1630 : #undef RK_ENABLED
1631 :
1632 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1633 :
1634 : #undef Org_ENABLED
1635 :
1636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1638 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1639 :
1640 : #undef WTI_ENABLED
1641 :
1642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1643 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1644 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1645 :
1646 : #define WTR_ENABLED 1
1647 :
1648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1650 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1651 :
1652 : #define Avg_ENABLED 1
1653 :
1654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1655 :
1656 : #define CK_ENABLED 1
1657 :
1658 : #if CK5_ENABLED
1659 : module procedure setCovAvgWTR_XY_CK5
1660 : use pm_kind, only: TKC => CK5
1661 : #include "pm_sampleCov@routines.inc.F90"
1662 : end procedure
1663 : #endif
1664 :
1665 : #if CK4_ENABLED
1666 250 : module procedure setCovAvgWTR_XY_CK4
1667 : use pm_kind, only: TKC => CK4
1668 : #include "pm_sampleCov@routines.inc.F90"
1669 250 : end procedure
1670 : #endif
1671 :
1672 : #if CK3_ENABLED
1673 250 : module procedure setCovAvgWTR_XY_CK3
1674 : use pm_kind, only: TKC => CK3
1675 : #include "pm_sampleCov@routines.inc.F90"
1676 250 : end procedure
1677 : #endif
1678 :
1679 : #if CK2_ENABLED
1680 250 : module procedure setCovAvgWTR_XY_CK2
1681 : use pm_kind, only: TKC => CK2
1682 : #include "pm_sampleCov@routines.inc.F90"
1683 250 : end procedure
1684 : #endif
1685 :
1686 : #if CK1_ENABLED
1687 250 : module procedure setCovAvgWTR_XY_CK1
1688 : use pm_kind, only: TKC => CK1
1689 : #include "pm_sampleCov@routines.inc.F90"
1690 250 : end procedure
1691 : #endif
1692 :
1693 : #undef CK_ENABLED
1694 :
1695 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1696 :
1697 : #define RK_ENABLED 1
1698 :
1699 : #if RK5_ENABLED
1700 : module procedure setCovAvgWTR_XY_RK5
1701 : use pm_kind, only: TKC => RK5
1702 : #include "pm_sampleCov@routines.inc.F90"
1703 : end procedure
1704 : #endif
1705 :
1706 : #if RK4_ENABLED
1707 250 : module procedure setCovAvgWTR_XY_RK4
1708 : use pm_kind, only: TKC => RK4
1709 : #include "pm_sampleCov@routines.inc.F90"
1710 250 : end procedure
1711 : #endif
1712 :
1713 : #if RK3_ENABLED
1714 250 : module procedure setCovAvgWTR_XY_RK3
1715 : use pm_kind, only: TKC => RK3
1716 : #include "pm_sampleCov@routines.inc.F90"
1717 250 : end procedure
1718 : #endif
1719 :
1720 : #if RK2_ENABLED
1721 3852 : module procedure setCovAvgWTR_XY_RK2
1722 : use pm_kind, only: TKC => RK2
1723 : #include "pm_sampleCov@routines.inc.F90"
1724 3852 : end procedure
1725 : #endif
1726 :
1727 : #if RK1_ENABLED
1728 253 : module procedure setCovAvgWTR_XY_RK1
1729 : use pm_kind, only: TKC => RK1
1730 : #include "pm_sampleCov@routines.inc.F90"
1731 253 : end procedure
1732 : #endif
1733 :
1734 : #undef RK_ENABLED
1735 :
1736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1737 :
1738 : #undef Avg_ENABLED
1739 :
1740 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1743 :
1744 : #define Org_ENABLED 1
1745 :
1746 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1747 :
1748 : #define CK_ENABLED 1
1749 :
1750 : #if CK5_ENABLED
1751 : module procedure setCovOrgWTR_XY_CK5
1752 : use pm_kind, only: TKC => CK5
1753 : #include "pm_sampleCov@routines.inc.F90"
1754 : end procedure
1755 : #endif
1756 :
1757 : #if CK4_ENABLED
1758 100 : module procedure setCovOrgWTR_XY_CK4
1759 : use pm_kind, only: TKC => CK4
1760 : #include "pm_sampleCov@routines.inc.F90"
1761 100 : end procedure
1762 : #endif
1763 :
1764 : #if CK3_ENABLED
1765 100 : module procedure setCovOrgWTR_XY_CK3
1766 : use pm_kind, only: TKC => CK3
1767 : #include "pm_sampleCov@routines.inc.F90"
1768 100 : end procedure
1769 : #endif
1770 :
1771 : #if CK2_ENABLED
1772 100 : module procedure setCovOrgWTR_XY_CK2
1773 : use pm_kind, only: TKC => CK2
1774 : #include "pm_sampleCov@routines.inc.F90"
1775 100 : end procedure
1776 : #endif
1777 :
1778 : #if CK1_ENABLED
1779 100 : module procedure setCovOrgWTR_XY_CK1
1780 : use pm_kind, only: TKC => CK1
1781 : #include "pm_sampleCov@routines.inc.F90"
1782 100 : end procedure
1783 : #endif
1784 :
1785 : #undef CK_ENABLED
1786 :
1787 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1788 :
1789 : #define RK_ENABLED 1
1790 :
1791 : #if RK5_ENABLED
1792 : module procedure setCovOrgWTR_XY_RK5
1793 : use pm_kind, only: TKC => RK5
1794 : #include "pm_sampleCov@routines.inc.F90"
1795 : end procedure
1796 : #endif
1797 :
1798 : #if RK4_ENABLED
1799 100 : module procedure setCovOrgWTR_XY_RK4
1800 : use pm_kind, only: TKC => RK4
1801 : #include "pm_sampleCov@routines.inc.F90"
1802 100 : end procedure
1803 : #endif
1804 :
1805 : #if RK3_ENABLED
1806 100 : module procedure setCovOrgWTR_XY_RK3
1807 : use pm_kind, only: TKC => RK3
1808 : #include "pm_sampleCov@routines.inc.F90"
1809 100 : end procedure
1810 : #endif
1811 :
1812 : #if RK2_ENABLED
1813 100 : module procedure setCovOrgWTR_XY_RK2
1814 : use pm_kind, only: TKC => RK2
1815 : #include "pm_sampleCov@routines.inc.F90"
1816 100 : end procedure
1817 : #endif
1818 :
1819 : #if RK1_ENABLED
1820 102 : module procedure setCovOrgWTR_XY_RK1
1821 : use pm_kind, only: TKC => RK1
1822 : #include "pm_sampleCov@routines.inc.F90"
1823 102 : end procedure
1824 : #endif
1825 :
1826 : #undef RK_ENABLED
1827 :
1828 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1829 :
1830 : #undef Org_ENABLED
1831 :
1832 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1833 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1834 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1835 :
1836 : #undef WTR_ENABLED
1837 :
1838 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1841 :
1842 : #undef WNO_ENABLED
1843 :
1844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1847 :
1848 : #undef XY_ENABLED
1849 :
1850 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1853 :
1854 : #undef setCov_ENABLED
1855 :
1856 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1857 :
1858 : #define setCov_ENABLED 1
1859 :
1860 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1861 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1862 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1863 :
1864 : #define UXD_ENABLED 1
1865 :
1866 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1867 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1868 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1869 :
1870 : #define WNO_ENABLED 1
1871 :
1872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1873 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1875 :
1876 : #define Avg_ENABLED 1
1877 :
1878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1879 :
1880 : #define CK_ENABLED 1
1881 :
1882 : #if CK5_ENABLED
1883 : module procedure setCovAvgWNO_UXD_CK5
1884 : use pm_kind, only: TKC => CK5
1885 : #include "pm_sampleCov@routines.inc.F90"
1886 : end procedure
1887 : #endif
1888 :
1889 : #if CK4_ENABLED
1890 250 : module procedure setCovAvgWNO_UXD_CK4
1891 : use pm_kind, only: TKC => CK4
1892 : #include "pm_sampleCov@routines.inc.F90"
1893 250 : end procedure
1894 : #endif
1895 :
1896 : #if CK3_ENABLED
1897 250 : module procedure setCovAvgWNO_UXD_CK3
1898 : use pm_kind, only: TKC => CK3
1899 : #include "pm_sampleCov@routines.inc.F90"
1900 250 : end procedure
1901 : #endif
1902 :
1903 : #if CK2_ENABLED
1904 250 : module procedure setCovAvgWNO_UXD_CK2
1905 : use pm_kind, only: TKC => CK2
1906 : #include "pm_sampleCov@routines.inc.F90"
1907 250 : end procedure
1908 : #endif
1909 :
1910 : #if CK1_ENABLED
1911 250 : module procedure setCovAvgWNO_UXD_CK1
1912 : use pm_kind, only: TKC => CK1
1913 : #include "pm_sampleCov@routines.inc.F90"
1914 250 : end procedure
1915 : #endif
1916 :
1917 : #undef CK_ENABLED
1918 :
1919 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1920 :
1921 : #define RK_ENABLED 1
1922 :
1923 : #if RK5_ENABLED
1924 : module procedure setCovAvgWNO_UXD_RK5
1925 : use pm_kind, only: TKC => RK5
1926 : #include "pm_sampleCov@routines.inc.F90"
1927 : end procedure
1928 : #endif
1929 :
1930 : #if RK4_ENABLED
1931 250 : module procedure setCovAvgWNO_UXD_RK4
1932 : use pm_kind, only: TKC => RK4
1933 : #include "pm_sampleCov@routines.inc.F90"
1934 250 : end procedure
1935 : #endif
1936 :
1937 : #if RK3_ENABLED
1938 250 : module procedure setCovAvgWNO_UXD_RK3
1939 : use pm_kind, only: TKC => RK3
1940 : #include "pm_sampleCov@routines.inc.F90"
1941 250 : end procedure
1942 : #endif
1943 :
1944 : #if RK2_ENABLED
1945 3008 : module procedure setCovAvgWNO_UXD_RK2
1946 : use pm_kind, only: TKC => RK2
1947 : #include "pm_sampleCov@routines.inc.F90"
1948 3008 : end procedure
1949 : #endif
1950 :
1951 : #if RK1_ENABLED
1952 256 : module procedure setCovAvgWNO_UXD_RK1
1953 : use pm_kind, only: TKC => RK1
1954 : #include "pm_sampleCov@routines.inc.F90"
1955 256 : end procedure
1956 : #endif
1957 :
1958 : #undef RK_ENABLED
1959 :
1960 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1961 :
1962 : #undef Avg_ENABLED
1963 :
1964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1967 :
1968 : #define Org_ENABLED 1
1969 :
1970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1971 :
1972 : #define CK_ENABLED 1
1973 :
1974 : #if CK5_ENABLED
1975 : module procedure setCovOrgWNO_UXD_CK5
1976 : use pm_kind, only: TKC => CK5
1977 : #include "pm_sampleCov@routines.inc.F90"
1978 : end procedure
1979 : #endif
1980 :
1981 : #if CK4_ENABLED
1982 250 : module procedure setCovOrgWNO_UXD_CK4
1983 : use pm_kind, only: TKC => CK4
1984 : #include "pm_sampleCov@routines.inc.F90"
1985 250 : end procedure
1986 : #endif
1987 :
1988 : #if CK3_ENABLED
1989 250 : module procedure setCovOrgWNO_UXD_CK3
1990 : use pm_kind, only: TKC => CK3
1991 : #include "pm_sampleCov@routines.inc.F90"
1992 250 : end procedure
1993 : #endif
1994 :
1995 : #if CK2_ENABLED
1996 250 : module procedure setCovOrgWNO_UXD_CK2
1997 : use pm_kind, only: TKC => CK2
1998 : #include "pm_sampleCov@routines.inc.F90"
1999 250 : end procedure
2000 : #endif
2001 :
2002 : #if CK1_ENABLED
2003 250 : module procedure setCovOrgWNO_UXD_CK1
2004 : use pm_kind, only: TKC => CK1
2005 : #include "pm_sampleCov@routines.inc.F90"
2006 250 : end procedure
2007 : #endif
2008 :
2009 : #undef CK_ENABLED
2010 :
2011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2012 :
2013 : #define RK_ENABLED 1
2014 :
2015 : #if RK5_ENABLED
2016 : module procedure setCovOrgWNO_UXD_RK5
2017 : use pm_kind, only: TKC => RK5
2018 : #include "pm_sampleCov@routines.inc.F90"
2019 : end procedure
2020 : #endif
2021 :
2022 : #if RK4_ENABLED
2023 250 : module procedure setCovOrgWNO_UXD_RK4
2024 : use pm_kind, only: TKC => RK4
2025 : #include "pm_sampleCov@routines.inc.F90"
2026 250 : end procedure
2027 : #endif
2028 :
2029 : #if RK3_ENABLED
2030 250 : module procedure setCovOrgWNO_UXD_RK3
2031 : use pm_kind, only: TKC => RK3
2032 : #include "pm_sampleCov@routines.inc.F90"
2033 250 : end procedure
2034 : #endif
2035 :
2036 : #if RK2_ENABLED
2037 251 : module procedure setCovOrgWNO_UXD_RK2
2038 : use pm_kind, only: TKC => RK2
2039 : #include "pm_sampleCov@routines.inc.F90"
2040 251 : end procedure
2041 : #endif
2042 :
2043 : #if RK1_ENABLED
2044 254 : module procedure setCovOrgWNO_UXD_RK1
2045 : use pm_kind, only: TKC => RK1
2046 : #include "pm_sampleCov@routines.inc.F90"
2047 254 : end procedure
2048 : #endif
2049 :
2050 : #undef RK_ENABLED
2051 :
2052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2053 :
2054 : #undef Org_ENABLED
2055 :
2056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2058 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2059 :
2060 : #undef WNO_ENABLED
2061 :
2062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2065 :
2066 : #define WTI_ENABLED 1
2067 :
2068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2071 :
2072 : #define Avg_ENABLED 1
2073 :
2074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2075 :
2076 : #define CK_ENABLED 1
2077 :
2078 : #if CK5_ENABLED
2079 : module procedure setCovAvgWTI_UXD_CK5
2080 : use pm_kind, only: TKC => CK5
2081 : #include "pm_sampleCov@routines.inc.F90"
2082 : end procedure
2083 : #endif
2084 :
2085 : #if CK4_ENABLED
2086 250 : module procedure setCovAvgWTI_UXD_CK4
2087 : use pm_kind, only: TKC => CK4
2088 : #include "pm_sampleCov@routines.inc.F90"
2089 250 : end procedure
2090 : #endif
2091 :
2092 : #if CK3_ENABLED
2093 250 : module procedure setCovAvgWTI_UXD_CK3
2094 : use pm_kind, only: TKC => CK3
2095 : #include "pm_sampleCov@routines.inc.F90"
2096 250 : end procedure
2097 : #endif
2098 :
2099 : #if CK2_ENABLED
2100 250 : module procedure setCovAvgWTI_UXD_CK2
2101 : use pm_kind, only: TKC => CK2
2102 : #include "pm_sampleCov@routines.inc.F90"
2103 250 : end procedure
2104 : #endif
2105 :
2106 : #if CK1_ENABLED
2107 250 : module procedure setCovAvgWTI_UXD_CK1
2108 : use pm_kind, only: TKC => CK1
2109 : #include "pm_sampleCov@routines.inc.F90"
2110 250 : end procedure
2111 : #endif
2112 :
2113 : #undef CK_ENABLED
2114 :
2115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2116 :
2117 : #define RK_ENABLED 1
2118 :
2119 : #if RK5_ENABLED
2120 : module procedure setCovAvgWTI_UXD_RK5
2121 : use pm_kind, only: TKC => RK5
2122 : #include "pm_sampleCov@routines.inc.F90"
2123 : end procedure
2124 : #endif
2125 :
2126 : #if RK4_ENABLED
2127 250 : module procedure setCovAvgWTI_UXD_RK4
2128 : use pm_kind, only: TKC => RK4
2129 : #include "pm_sampleCov@routines.inc.F90"
2130 250 : end procedure
2131 : #endif
2132 :
2133 : #if RK3_ENABLED
2134 250 : module procedure setCovAvgWTI_UXD_RK3
2135 : use pm_kind, only: TKC => RK3
2136 : #include "pm_sampleCov@routines.inc.F90"
2137 250 : end procedure
2138 : #endif
2139 :
2140 : #if RK2_ENABLED
2141 1354 : module procedure setCovAvgWTI_UXD_RK2
2142 : use pm_kind, only: TKC => RK2
2143 : #include "pm_sampleCov@routines.inc.F90"
2144 1354 : end procedure
2145 : #endif
2146 :
2147 : #if RK1_ENABLED
2148 256 : module procedure setCovAvgWTI_UXD_RK1
2149 : use pm_kind, only: TKC => RK1
2150 : #include "pm_sampleCov@routines.inc.F90"
2151 256 : end procedure
2152 : #endif
2153 :
2154 : #undef RK_ENABLED
2155 :
2156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2157 :
2158 : #undef Avg_ENABLED
2159 :
2160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2163 :
2164 : #define Org_ENABLED 1
2165 :
2166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2167 :
2168 : #define CK_ENABLED 1
2169 :
2170 : #if CK5_ENABLED
2171 : module procedure setCovOrgWTI_UXD_CK5
2172 : use pm_kind, only: TKC => CK5
2173 : #include "pm_sampleCov@routines.inc.F90"
2174 : end procedure
2175 : #endif
2176 :
2177 : #if CK4_ENABLED
2178 100 : module procedure setCovOrgWTI_UXD_CK4
2179 : use pm_kind, only: TKC => CK4
2180 : #include "pm_sampleCov@routines.inc.F90"
2181 100 : end procedure
2182 : #endif
2183 :
2184 : #if CK3_ENABLED
2185 100 : module procedure setCovOrgWTI_UXD_CK3
2186 : use pm_kind, only: TKC => CK3
2187 : #include "pm_sampleCov@routines.inc.F90"
2188 100 : end procedure
2189 : #endif
2190 :
2191 : #if CK2_ENABLED
2192 100 : module procedure setCovOrgWTI_UXD_CK2
2193 : use pm_kind, only: TKC => CK2
2194 : #include "pm_sampleCov@routines.inc.F90"
2195 100 : end procedure
2196 : #endif
2197 :
2198 : #if CK1_ENABLED
2199 100 : module procedure setCovOrgWTI_UXD_CK1
2200 : use pm_kind, only: TKC => CK1
2201 : #include "pm_sampleCov@routines.inc.F90"
2202 100 : end procedure
2203 : #endif
2204 :
2205 : #undef CK_ENABLED
2206 :
2207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2208 :
2209 : #define RK_ENABLED 1
2210 :
2211 : #if RK5_ENABLED
2212 : module procedure setCovOrgWTI_UXD_RK5
2213 : use pm_kind, only: TKC => RK5
2214 : #include "pm_sampleCov@routines.inc.F90"
2215 : end procedure
2216 : #endif
2217 :
2218 : #if RK4_ENABLED
2219 100 : module procedure setCovOrgWTI_UXD_RK4
2220 : use pm_kind, only: TKC => RK4
2221 : #include "pm_sampleCov@routines.inc.F90"
2222 100 : end procedure
2223 : #endif
2224 :
2225 : #if RK3_ENABLED
2226 100 : module procedure setCovOrgWTI_UXD_RK3
2227 : use pm_kind, only: TKC => RK3
2228 : #include "pm_sampleCov@routines.inc.F90"
2229 100 : end procedure
2230 : #endif
2231 :
2232 : #if RK2_ENABLED
2233 100 : module procedure setCovOrgWTI_UXD_RK2
2234 : use pm_kind, only: TKC => RK2
2235 : #include "pm_sampleCov@routines.inc.F90"
2236 100 : end procedure
2237 : #endif
2238 :
2239 : #if RK1_ENABLED
2240 104 : module procedure setCovOrgWTI_UXD_RK1
2241 : use pm_kind, only: TKC => RK1
2242 : #include "pm_sampleCov@routines.inc.F90"
2243 104 : end procedure
2244 : #endif
2245 :
2246 : #undef RK_ENABLED
2247 :
2248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2249 :
2250 : #undef Org_ENABLED
2251 :
2252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2255 :
2256 : #undef WTI_ENABLED
2257 :
2258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2260 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2261 :
2262 : #define WTR_ENABLED 1
2263 :
2264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2267 :
2268 : #define Avg_ENABLED 1
2269 :
2270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2271 :
2272 : #define CK_ENABLED 1
2273 :
2274 : #if CK5_ENABLED
2275 : module procedure setCovAvgWTR_UXD_CK5
2276 : use pm_kind, only: TKC => CK5
2277 : #include "pm_sampleCov@routines.inc.F90"
2278 : end procedure
2279 : #endif
2280 :
2281 : #if CK4_ENABLED
2282 250 : module procedure setCovAvgWTR_UXD_CK4
2283 : use pm_kind, only: TKC => CK4
2284 : #include "pm_sampleCov@routines.inc.F90"
2285 250 : end procedure
2286 : #endif
2287 :
2288 : #if CK3_ENABLED
2289 250 : module procedure setCovAvgWTR_UXD_CK3
2290 : use pm_kind, only: TKC => CK3
2291 : #include "pm_sampleCov@routines.inc.F90"
2292 250 : end procedure
2293 : #endif
2294 :
2295 : #if CK2_ENABLED
2296 250 : module procedure setCovAvgWTR_UXD_CK2
2297 : use pm_kind, only: TKC => CK2
2298 : #include "pm_sampleCov@routines.inc.F90"
2299 250 : end procedure
2300 : #endif
2301 :
2302 : #if CK1_ENABLED
2303 250 : module procedure setCovAvgWTR_UXD_CK1
2304 : use pm_kind, only: TKC => CK1
2305 : #include "pm_sampleCov@routines.inc.F90"
2306 250 : end procedure
2307 : #endif
2308 :
2309 : #undef CK_ENABLED
2310 :
2311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2312 :
2313 : #define RK_ENABLED 1
2314 :
2315 : #if RK5_ENABLED
2316 : module procedure setCovAvgWTR_UXD_RK5
2317 : use pm_kind, only: TKC => RK5
2318 : #include "pm_sampleCov@routines.inc.F90"
2319 : end procedure
2320 : #endif
2321 :
2322 : #if RK4_ENABLED
2323 250 : module procedure setCovAvgWTR_UXD_RK4
2324 : use pm_kind, only: TKC => RK4
2325 : #include "pm_sampleCov@routines.inc.F90"
2326 250 : end procedure
2327 : #endif
2328 :
2329 : #if RK3_ENABLED
2330 250 : module procedure setCovAvgWTR_UXD_RK3
2331 : use pm_kind, only: TKC => RK3
2332 : #include "pm_sampleCov@routines.inc.F90"
2333 250 : end procedure
2334 : #endif
2335 :
2336 : #if RK2_ENABLED
2337 4654 : module procedure setCovAvgWTR_UXD_RK2
2338 : use pm_kind, only: TKC => RK2
2339 : #include "pm_sampleCov@routines.inc.F90"
2340 4654 : end procedure
2341 : #endif
2342 :
2343 : #if RK1_ENABLED
2344 256 : module procedure setCovAvgWTR_UXD_RK1
2345 : use pm_kind, only: TKC => RK1
2346 : #include "pm_sampleCov@routines.inc.F90"
2347 256 : end procedure
2348 : #endif
2349 :
2350 : #undef RK_ENABLED
2351 :
2352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2353 :
2354 : #undef Avg_ENABLED
2355 :
2356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2359 :
2360 : #define Org_ENABLED 1
2361 :
2362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2363 :
2364 : #define CK_ENABLED 1
2365 :
2366 : #if CK5_ENABLED
2367 : module procedure setCovOrgWTR_UXD_CK5
2368 : use pm_kind, only: TKC => CK5
2369 : #include "pm_sampleCov@routines.inc.F90"
2370 : end procedure
2371 : #endif
2372 :
2373 : #if CK4_ENABLED
2374 400 : module procedure setCovOrgWTR_UXD_CK4
2375 : use pm_kind, only: TKC => CK4
2376 : #include "pm_sampleCov@routines.inc.F90"
2377 400 : end procedure
2378 : #endif
2379 :
2380 : #if CK3_ENABLED
2381 400 : module procedure setCovOrgWTR_UXD_CK3
2382 : use pm_kind, only: TKC => CK3
2383 : #include "pm_sampleCov@routines.inc.F90"
2384 400 : end procedure
2385 : #endif
2386 :
2387 : #if CK2_ENABLED
2388 400 : module procedure setCovOrgWTR_UXD_CK2
2389 : use pm_kind, only: TKC => CK2
2390 : #include "pm_sampleCov@routines.inc.F90"
2391 400 : end procedure
2392 : #endif
2393 :
2394 : #if CK1_ENABLED
2395 400 : module procedure setCovOrgWTR_UXD_CK1
2396 : use pm_kind, only: TKC => CK1
2397 : #include "pm_sampleCov@routines.inc.F90"
2398 400 : end procedure
2399 : #endif
2400 :
2401 : #undef CK_ENABLED
2402 :
2403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2404 :
2405 : #define RK_ENABLED 1
2406 :
2407 : #if RK5_ENABLED
2408 : module procedure setCovOrgWTR_UXD_RK5
2409 : use pm_kind, only: TKC => RK5
2410 : #include "pm_sampleCov@routines.inc.F90"
2411 : end procedure
2412 : #endif
2413 :
2414 : #if RK4_ENABLED
2415 400 : module procedure setCovOrgWTR_UXD_RK4
2416 : use pm_kind, only: TKC => RK4
2417 : #include "pm_sampleCov@routines.inc.F90"
2418 400 : end procedure
2419 : #endif
2420 :
2421 : #if RK3_ENABLED
2422 400 : module procedure setCovOrgWTR_UXD_RK3
2423 : use pm_kind, only: TKC => RK3
2424 : #include "pm_sampleCov@routines.inc.F90"
2425 400 : end procedure
2426 : #endif
2427 :
2428 : #if RK2_ENABLED
2429 400 : module procedure setCovOrgWTR_UXD_RK2
2430 : use pm_kind, only: TKC => RK2
2431 : #include "pm_sampleCov@routines.inc.F90"
2432 400 : end procedure
2433 : #endif
2434 :
2435 : #if RK1_ENABLED
2436 404 : module procedure setCovOrgWTR_UXD_RK1
2437 : use pm_kind, only: TKC => RK1
2438 : #include "pm_sampleCov@routines.inc.F90"
2439 404 : end procedure
2440 : #endif
2441 :
2442 : #undef RK_ENABLED
2443 :
2444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2445 :
2446 : #undef Org_ENABLED
2447 :
2448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2451 :
2452 : #undef WTR_ENABLED
2453 :
2454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2457 :
2458 : #undef UXD_ENABLED
2459 :
2460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2463 :
2464 : #undef setCov_ENABLED
2465 :
2466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2467 :
2468 : #define setCov_ENABLED 1
2469 :
2470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2471 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2473 :
2474 : #define XLD_ENABLED 1
2475 :
2476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2479 :
2480 : #define WNO_ENABLED 1
2481 :
2482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2485 :
2486 : #define Avg_ENABLED 1
2487 :
2488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2489 :
2490 : #define CK_ENABLED 1
2491 :
2492 : #if CK5_ENABLED
2493 : module procedure setCovAvgWNO_XLD_CK5
2494 : use pm_kind, only: TKC => CK5
2495 : #include "pm_sampleCov@routines.inc.F90"
2496 : end procedure
2497 : #endif
2498 :
2499 : #if CK4_ENABLED
2500 150 : module procedure setCovAvgWNO_XLD_CK4
2501 : use pm_kind, only: TKC => CK4
2502 : #include "pm_sampleCov@routines.inc.F90"
2503 150 : end procedure
2504 : #endif
2505 :
2506 : #if CK3_ENABLED
2507 150 : module procedure setCovAvgWNO_XLD_CK3
2508 : use pm_kind, only: TKC => CK3
2509 : #include "pm_sampleCov@routines.inc.F90"
2510 150 : end procedure
2511 : #endif
2512 :
2513 : #if CK2_ENABLED
2514 150 : module procedure setCovAvgWNO_XLD_CK2
2515 : use pm_kind, only: TKC => CK2
2516 : #include "pm_sampleCov@routines.inc.F90"
2517 150 : end procedure
2518 : #endif
2519 :
2520 : #if CK1_ENABLED
2521 150 : module procedure setCovAvgWNO_XLD_CK1
2522 : use pm_kind, only: TKC => CK1
2523 : #include "pm_sampleCov@routines.inc.F90"
2524 150 : end procedure
2525 : #endif
2526 :
2527 : #undef CK_ENABLED
2528 :
2529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2530 :
2531 : #define RK_ENABLED 1
2532 :
2533 : #if RK5_ENABLED
2534 : module procedure setCovAvgWNO_XLD_RK5
2535 : use pm_kind, only: TKC => RK5
2536 : #include "pm_sampleCov@routines.inc.F90"
2537 : end procedure
2538 : #endif
2539 :
2540 : #if RK4_ENABLED
2541 150 : module procedure setCovAvgWNO_XLD_RK4
2542 : use pm_kind, only: TKC => RK4
2543 : #include "pm_sampleCov@routines.inc.F90"
2544 150 : end procedure
2545 : #endif
2546 :
2547 : #if RK3_ENABLED
2548 150 : module procedure setCovAvgWNO_XLD_RK3
2549 : use pm_kind, only: TKC => RK3
2550 : #include "pm_sampleCov@routines.inc.F90"
2551 150 : end procedure
2552 : #endif
2553 :
2554 : #if RK2_ENABLED
2555 702 : module procedure setCovAvgWNO_XLD_RK2
2556 : use pm_kind, only: TKC => RK2
2557 : #include "pm_sampleCov@routines.inc.F90"
2558 702 : end procedure
2559 : #endif
2560 :
2561 : #if RK1_ENABLED
2562 154 : module procedure setCovAvgWNO_XLD_RK1
2563 : use pm_kind, only: TKC => RK1
2564 : #include "pm_sampleCov@routines.inc.F90"
2565 154 : end procedure
2566 : #endif
2567 :
2568 : #undef RK_ENABLED
2569 :
2570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2571 :
2572 : #undef Avg_ENABLED
2573 :
2574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2577 :
2578 : #define Org_ENABLED 1
2579 :
2580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2581 :
2582 : #define CK_ENABLED 1
2583 :
2584 : #if CK5_ENABLED
2585 : module procedure setCovOrgWNO_XLD_CK5
2586 : use pm_kind, only: TKC => CK5
2587 : #include "pm_sampleCov@routines.inc.F90"
2588 : end procedure
2589 : #endif
2590 :
2591 : #if CK4_ENABLED
2592 100 : module procedure setCovOrgWNO_XLD_CK4
2593 : use pm_kind, only: TKC => CK4
2594 : #include "pm_sampleCov@routines.inc.F90"
2595 100 : end procedure
2596 : #endif
2597 :
2598 : #if CK3_ENABLED
2599 100 : module procedure setCovOrgWNO_XLD_CK3
2600 : use pm_kind, only: TKC => CK3
2601 : #include "pm_sampleCov@routines.inc.F90"
2602 100 : end procedure
2603 : #endif
2604 :
2605 : #if CK2_ENABLED
2606 100 : module procedure setCovOrgWNO_XLD_CK2
2607 : use pm_kind, only: TKC => CK2
2608 : #include "pm_sampleCov@routines.inc.F90"
2609 100 : end procedure
2610 : #endif
2611 :
2612 : #if CK1_ENABLED
2613 100 : module procedure setCovOrgWNO_XLD_CK1
2614 : use pm_kind, only: TKC => CK1
2615 : #include "pm_sampleCov@routines.inc.F90"
2616 100 : end procedure
2617 : #endif
2618 :
2619 : #undef CK_ENABLED
2620 :
2621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2622 :
2623 : #define RK_ENABLED 1
2624 :
2625 : #if RK5_ENABLED
2626 : module procedure setCovOrgWNO_XLD_RK5
2627 : use pm_kind, only: TKC => RK5
2628 : #include "pm_sampleCov@routines.inc.F90"
2629 : end procedure
2630 : #endif
2631 :
2632 : #if RK4_ENABLED
2633 100 : module procedure setCovOrgWNO_XLD_RK4
2634 : use pm_kind, only: TKC => RK4
2635 : #include "pm_sampleCov@routines.inc.F90"
2636 100 : end procedure
2637 : #endif
2638 :
2639 : #if RK3_ENABLED
2640 100 : module procedure setCovOrgWNO_XLD_RK3
2641 : use pm_kind, only: TKC => RK3
2642 : #include "pm_sampleCov@routines.inc.F90"
2643 100 : end procedure
2644 : #endif
2645 :
2646 : #if RK2_ENABLED
2647 100 : module procedure setCovOrgWNO_XLD_RK2
2648 : use pm_kind, only: TKC => RK2
2649 : #include "pm_sampleCov@routines.inc.F90"
2650 100 : end procedure
2651 : #endif
2652 :
2653 : #if RK1_ENABLED
2654 105 : module procedure setCovOrgWNO_XLD_RK1
2655 : use pm_kind, only: TKC => RK1
2656 : #include "pm_sampleCov@routines.inc.F90"
2657 105 : end procedure
2658 : #endif
2659 :
2660 : #undef RK_ENABLED
2661 :
2662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2663 :
2664 : #undef Org_ENABLED
2665 :
2666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2669 :
2670 : #undef WNO_ENABLED
2671 :
2672 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2675 :
2676 : #define WTI_ENABLED 1
2677 :
2678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2681 :
2682 : #define Avg_ENABLED 1
2683 :
2684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2685 :
2686 : #define CK_ENABLED 1
2687 :
2688 : #if CK5_ENABLED
2689 : module procedure setCovAvgWTI_XLD_CK5
2690 : use pm_kind, only: TKC => CK5
2691 : #include "pm_sampleCov@routines.inc.F90"
2692 : end procedure
2693 : #endif
2694 :
2695 : #if CK4_ENABLED
2696 150 : module procedure setCovAvgWTI_XLD_CK4
2697 : use pm_kind, only: TKC => CK4
2698 : #include "pm_sampleCov@routines.inc.F90"
2699 150 : end procedure
2700 : #endif
2701 :
2702 : #if CK3_ENABLED
2703 150 : module procedure setCovAvgWTI_XLD_CK3
2704 : use pm_kind, only: TKC => CK3
2705 : #include "pm_sampleCov@routines.inc.F90"
2706 150 : end procedure
2707 : #endif
2708 :
2709 : #if CK2_ENABLED
2710 150 : module procedure setCovAvgWTI_XLD_CK2
2711 : use pm_kind, only: TKC => CK2
2712 : #include "pm_sampleCov@routines.inc.F90"
2713 150 : end procedure
2714 : #endif
2715 :
2716 : #if CK1_ENABLED
2717 150 : module procedure setCovAvgWTI_XLD_CK1
2718 : use pm_kind, only: TKC => CK1
2719 : #include "pm_sampleCov@routines.inc.F90"
2720 150 : end procedure
2721 : #endif
2722 :
2723 : #undef CK_ENABLED
2724 :
2725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2726 :
2727 : #define RK_ENABLED 1
2728 :
2729 : #if RK5_ENABLED
2730 : module procedure setCovAvgWTI_XLD_RK5
2731 : use pm_kind, only: TKC => RK5
2732 : #include "pm_sampleCov@routines.inc.F90"
2733 : end procedure
2734 : #endif
2735 :
2736 : #if RK4_ENABLED
2737 150 : module procedure setCovAvgWTI_XLD_RK4
2738 : use pm_kind, only: TKC => RK4
2739 : #include "pm_sampleCov@routines.inc.F90"
2740 150 : end procedure
2741 : #endif
2742 :
2743 : #if RK3_ENABLED
2744 150 : module procedure setCovAvgWTI_XLD_RK3
2745 : use pm_kind, only: TKC => RK3
2746 : #include "pm_sampleCov@routines.inc.F90"
2747 150 : end procedure
2748 : #endif
2749 :
2750 : #if RK2_ENABLED
2751 50853 : module procedure setCovAvgWTI_XLD_RK2
2752 : use pm_kind, only: TKC => RK2
2753 : #include "pm_sampleCov@routines.inc.F90"
2754 50853 : end procedure
2755 : #endif
2756 :
2757 : #if RK1_ENABLED
2758 853 : module procedure setCovAvgWTI_XLD_RK1
2759 : use pm_kind, only: TKC => RK1
2760 : #include "pm_sampleCov@routines.inc.F90"
2761 853 : end procedure
2762 : #endif
2763 :
2764 : #undef RK_ENABLED
2765 :
2766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2767 :
2768 : #undef Avg_ENABLED
2769 :
2770 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2771 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2773 :
2774 : #define Org_ENABLED 1
2775 :
2776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2777 :
2778 : #define CK_ENABLED 1
2779 :
2780 : #if CK5_ENABLED
2781 : module procedure setCovOrgWTI_XLD_CK5
2782 : use pm_kind, only: TKC => CK5
2783 : #include "pm_sampleCov@routines.inc.F90"
2784 : end procedure
2785 : #endif
2786 :
2787 : #if CK4_ENABLED
2788 100 : module procedure setCovOrgWTI_XLD_CK4
2789 : use pm_kind, only: TKC => CK4
2790 : #include "pm_sampleCov@routines.inc.F90"
2791 100 : end procedure
2792 : #endif
2793 :
2794 : #if CK3_ENABLED
2795 100 : module procedure setCovOrgWTI_XLD_CK3
2796 : use pm_kind, only: TKC => CK3
2797 : #include "pm_sampleCov@routines.inc.F90"
2798 100 : end procedure
2799 : #endif
2800 :
2801 : #if CK2_ENABLED
2802 100 : module procedure setCovOrgWTI_XLD_CK2
2803 : use pm_kind, only: TKC => CK2
2804 : #include "pm_sampleCov@routines.inc.F90"
2805 100 : end procedure
2806 : #endif
2807 :
2808 : #if CK1_ENABLED
2809 100 : module procedure setCovOrgWTI_XLD_CK1
2810 : use pm_kind, only: TKC => CK1
2811 : #include "pm_sampleCov@routines.inc.F90"
2812 100 : end procedure
2813 : #endif
2814 :
2815 : #undef CK_ENABLED
2816 :
2817 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2818 :
2819 : #define RK_ENABLED 1
2820 :
2821 : #if RK5_ENABLED
2822 : module procedure setCovOrgWTI_XLD_RK5
2823 : use pm_kind, only: TKC => RK5
2824 : #include "pm_sampleCov@routines.inc.F90"
2825 : end procedure
2826 : #endif
2827 :
2828 : #if RK4_ENABLED
2829 100 : module procedure setCovOrgWTI_XLD_RK4
2830 : use pm_kind, only: TKC => RK4
2831 : #include "pm_sampleCov@routines.inc.F90"
2832 100 : end procedure
2833 : #endif
2834 :
2835 : #if RK3_ENABLED
2836 100 : module procedure setCovOrgWTI_XLD_RK3
2837 : use pm_kind, only: TKC => RK3
2838 : #include "pm_sampleCov@routines.inc.F90"
2839 100 : end procedure
2840 : #endif
2841 :
2842 : #if RK2_ENABLED
2843 100 : module procedure setCovOrgWTI_XLD_RK2
2844 : use pm_kind, only: TKC => RK2
2845 : #include "pm_sampleCov@routines.inc.F90"
2846 100 : end procedure
2847 : #endif
2848 :
2849 : #if RK1_ENABLED
2850 104 : module procedure setCovOrgWTI_XLD_RK1
2851 : use pm_kind, only: TKC => RK1
2852 : #include "pm_sampleCov@routines.inc.F90"
2853 104 : end procedure
2854 : #endif
2855 :
2856 : #undef RK_ENABLED
2857 :
2858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2859 :
2860 : #undef Org_ENABLED
2861 :
2862 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2864 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2865 :
2866 : #undef WTI_ENABLED
2867 :
2868 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2871 :
2872 : #define WTR_ENABLED 1
2873 :
2874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2875 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2877 :
2878 : #define Avg_ENABLED 1
2879 :
2880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2881 :
2882 : #define CK_ENABLED 1
2883 :
2884 : #if CK5_ENABLED
2885 : module procedure setCovAvgWTR_XLD_CK5
2886 : use pm_kind, only: TKC => CK5
2887 : #include "pm_sampleCov@routines.inc.F90"
2888 : end procedure
2889 : #endif
2890 :
2891 : #if CK4_ENABLED
2892 150 : module procedure setCovAvgWTR_XLD_CK4
2893 : use pm_kind, only: TKC => CK4
2894 : #include "pm_sampleCov@routines.inc.F90"
2895 150 : end procedure
2896 : #endif
2897 :
2898 : #if CK3_ENABLED
2899 150 : module procedure setCovAvgWTR_XLD_CK3
2900 : use pm_kind, only: TKC => CK3
2901 : #include "pm_sampleCov@routines.inc.F90"
2902 150 : end procedure
2903 : #endif
2904 :
2905 : #if CK2_ENABLED
2906 150 : module procedure setCovAvgWTR_XLD_CK2
2907 : use pm_kind, only: TKC => CK2
2908 : #include "pm_sampleCov@routines.inc.F90"
2909 150 : end procedure
2910 : #endif
2911 :
2912 : #if CK1_ENABLED
2913 150 : module procedure setCovAvgWTR_XLD_CK1
2914 : use pm_kind, only: TKC => CK1
2915 : #include "pm_sampleCov@routines.inc.F90"
2916 150 : end procedure
2917 : #endif
2918 :
2919 : #undef CK_ENABLED
2920 :
2921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2922 :
2923 : #define RK_ENABLED 1
2924 :
2925 : #if RK5_ENABLED
2926 : module procedure setCovAvgWTR_XLD_RK5
2927 : use pm_kind, only: TKC => RK5
2928 : #include "pm_sampleCov@routines.inc.F90"
2929 : end procedure
2930 : #endif
2931 :
2932 : #if RK4_ENABLED
2933 150 : module procedure setCovAvgWTR_XLD_RK4
2934 : use pm_kind, only: TKC => RK4
2935 : #include "pm_sampleCov@routines.inc.F90"
2936 150 : end procedure
2937 : #endif
2938 :
2939 : #if RK3_ENABLED
2940 150 : module procedure setCovAvgWTR_XLD_RK3
2941 : use pm_kind, only: TKC => RK3
2942 : #include "pm_sampleCov@routines.inc.F90"
2943 150 : end procedure
2944 : #endif
2945 :
2946 : #if RK2_ENABLED
2947 702 : module procedure setCovAvgWTR_XLD_RK2
2948 : use pm_kind, only: TKC => RK2
2949 : #include "pm_sampleCov@routines.inc.F90"
2950 702 : end procedure
2951 : #endif
2952 :
2953 : #if RK1_ENABLED
2954 154 : module procedure setCovAvgWTR_XLD_RK1
2955 : use pm_kind, only: TKC => RK1
2956 : #include "pm_sampleCov@routines.inc.F90"
2957 154 : end procedure
2958 : #endif
2959 :
2960 : #undef RK_ENABLED
2961 :
2962 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2963 :
2964 : #undef Avg_ENABLED
2965 :
2966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2967 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2968 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2969 :
2970 : #define Org_ENABLED 1
2971 :
2972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2973 :
2974 : #define CK_ENABLED 1
2975 :
2976 : #if CK5_ENABLED
2977 : module procedure setCovOrgWTR_XLD_CK5
2978 : use pm_kind, only: TKC => CK5
2979 : #include "pm_sampleCov@routines.inc.F90"
2980 : end procedure
2981 : #endif
2982 :
2983 : #if CK4_ENABLED
2984 100 : module procedure setCovOrgWTR_XLD_CK4
2985 : use pm_kind, only: TKC => CK4
2986 : #include "pm_sampleCov@routines.inc.F90"
2987 100 : end procedure
2988 : #endif
2989 :
2990 : #if CK3_ENABLED
2991 100 : module procedure setCovOrgWTR_XLD_CK3
2992 : use pm_kind, only: TKC => CK3
2993 : #include "pm_sampleCov@routines.inc.F90"
2994 100 : end procedure
2995 : #endif
2996 :
2997 : #if CK2_ENABLED
2998 100 : module procedure setCovOrgWTR_XLD_CK2
2999 : use pm_kind, only: TKC => CK2
3000 : #include "pm_sampleCov@routines.inc.F90"
3001 100 : end procedure
3002 : #endif
3003 :
3004 : #if CK1_ENABLED
3005 100 : module procedure setCovOrgWTR_XLD_CK1
3006 : use pm_kind, only: TKC => CK1
3007 : #include "pm_sampleCov@routines.inc.F90"
3008 100 : end procedure
3009 : #endif
3010 :
3011 : #undef CK_ENABLED
3012 :
3013 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3014 :
3015 : #define RK_ENABLED 1
3016 :
3017 : #if RK5_ENABLED
3018 : module procedure setCovOrgWTR_XLD_RK5
3019 : use pm_kind, only: TKC => RK5
3020 : #include "pm_sampleCov@routines.inc.F90"
3021 : end procedure
3022 : #endif
3023 :
3024 : #if RK4_ENABLED
3025 100 : module procedure setCovOrgWTR_XLD_RK4
3026 : use pm_kind, only: TKC => RK4
3027 : #include "pm_sampleCov@routines.inc.F90"
3028 100 : end procedure
3029 : #endif
3030 :
3031 : #if RK3_ENABLED
3032 100 : module procedure setCovOrgWTR_XLD_RK3
3033 : use pm_kind, only: TKC => RK3
3034 : #include "pm_sampleCov@routines.inc.F90"
3035 100 : end procedure
3036 : #endif
3037 :
3038 : #if RK2_ENABLED
3039 100 : module procedure setCovOrgWTR_XLD_RK2
3040 : use pm_kind, only: TKC => RK2
3041 : #include "pm_sampleCov@routines.inc.F90"
3042 100 : end procedure
3043 : #endif
3044 :
3045 : #if RK1_ENABLED
3046 104 : module procedure setCovOrgWTR_XLD_RK1
3047 : use pm_kind, only: TKC => RK1
3048 : #include "pm_sampleCov@routines.inc.F90"
3049 104 : end procedure
3050 : #endif
3051 :
3052 : #undef RK_ENABLED
3053 :
3054 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3055 :
3056 : #undef Org_ENABLED
3057 :
3058 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3059 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3060 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3061 :
3062 : #undef WTR_ENABLED
3063 :
3064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3065 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3066 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3067 :
3068 : #undef XLD_ENABLED
3069 :
3070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3071 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3072 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3073 :
3074 : #undef setCov_ENABLED
3075 :
3076 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3077 :
3078 : #define setCovMean_ENABLED 1
3079 :
3080 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3081 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3082 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3083 :
3084 : #define XY_ENABLED 1
3085 :
3086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3089 :
3090 : #define WNO_ENABLED 1
3091 :
3092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3093 :
3094 : #define CK_ENABLED 1
3095 :
3096 : #if CK5_ENABLED
3097 : module procedure setCovMeanWNO_XY_CK5
3098 : use pm_kind, only: TKC => CK5
3099 : #include "pm_sampleCov@routines.inc.F90"
3100 : end procedure
3101 : #endif
3102 :
3103 : #if CK4_ENABLED
3104 200 : module procedure setCovMeanWNO_XY_CK4
3105 : use pm_kind, only: TKC => CK4
3106 : #include "pm_sampleCov@routines.inc.F90"
3107 200 : end procedure
3108 : #endif
3109 :
3110 : #if CK3_ENABLED
3111 200 : module procedure setCovMeanWNO_XY_CK3
3112 : use pm_kind, only: TKC => CK3
3113 : #include "pm_sampleCov@routines.inc.F90"
3114 200 : end procedure
3115 : #endif
3116 :
3117 : #if CK2_ENABLED
3118 200 : module procedure setCovMeanWNO_XY_CK2
3119 : use pm_kind, only: TKC => CK2
3120 : #include "pm_sampleCov@routines.inc.F90"
3121 200 : end procedure
3122 : #endif
3123 :
3124 : #if CK1_ENABLED
3125 201 : module procedure setCovMeanWNO_XY_CK1
3126 : use pm_kind, only: TKC => CK1
3127 : #include "pm_sampleCov@routines.inc.F90"
3128 201 : end procedure
3129 : #endif
3130 :
3131 : #undef CK_ENABLED
3132 :
3133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3134 :
3135 : #define RK_ENABLED 1
3136 :
3137 : #if RK5_ENABLED
3138 : module procedure setCovMeanWNO_XY_RK5
3139 : use pm_kind, only: TKC => RK5
3140 : #include "pm_sampleCov@routines.inc.F90"
3141 : end procedure
3142 : #endif
3143 :
3144 : #if RK4_ENABLED
3145 200 : module procedure setCovMeanWNO_XY_RK4
3146 : use pm_kind, only: TKC => RK4
3147 : #include "pm_sampleCov@routines.inc.F90"
3148 200 : end procedure
3149 : #endif
3150 :
3151 : #if RK3_ENABLED
3152 200 : module procedure setCovMeanWNO_XY_RK3
3153 : use pm_kind, only: TKC => RK3
3154 : #include "pm_sampleCov@routines.inc.F90"
3155 200 : end procedure
3156 : #endif
3157 :
3158 : #if RK2_ENABLED
3159 200 : module procedure setCovMeanWNO_XY_RK2
3160 : use pm_kind, only: TKC => RK2
3161 : #include "pm_sampleCov@routines.inc.F90"
3162 200 : end procedure
3163 : #endif
3164 :
3165 : #if RK1_ENABLED
3166 202 : module procedure setCovMeanWNO_XY_RK1
3167 : use pm_kind, only: TKC => RK1
3168 : #include "pm_sampleCov@routines.inc.F90"
3169 202 : end procedure
3170 : #endif
3171 :
3172 : #undef RK_ENABLED
3173 :
3174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3175 :
3176 : #undef WNO_ENABLED
3177 :
3178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3181 :
3182 : #define WTI_ENABLED 1
3183 :
3184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3185 :
3186 : #define CK_ENABLED 1
3187 :
3188 : #if CK5_ENABLED
3189 : module procedure setCovMeanWTI_XY_CK5
3190 : use pm_kind, only: TKC => CK5
3191 : #include "pm_sampleCov@routines.inc.F90"
3192 : end procedure
3193 : #endif
3194 :
3195 : #if CK4_ENABLED
3196 200 : module procedure setCovMeanWTI_XY_CK4
3197 : use pm_kind, only: TKC => CK4
3198 : #include "pm_sampleCov@routines.inc.F90"
3199 200 : end procedure
3200 : #endif
3201 :
3202 : #if CK3_ENABLED
3203 200 : module procedure setCovMeanWTI_XY_CK3
3204 : use pm_kind, only: TKC => CK3
3205 : #include "pm_sampleCov@routines.inc.F90"
3206 200 : end procedure
3207 : #endif
3208 :
3209 : #if CK2_ENABLED
3210 200 : module procedure setCovMeanWTI_XY_CK2
3211 : use pm_kind, only: TKC => CK2
3212 : #include "pm_sampleCov@routines.inc.F90"
3213 200 : end procedure
3214 : #endif
3215 :
3216 : #if CK1_ENABLED
3217 201 : module procedure setCovMeanWTI_XY_CK1
3218 : use pm_kind, only: TKC => CK1
3219 : #include "pm_sampleCov@routines.inc.F90"
3220 201 : end procedure
3221 : #endif
3222 :
3223 : #undef CK_ENABLED
3224 :
3225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3226 :
3227 : #define RK_ENABLED 1
3228 :
3229 : #if RK5_ENABLED
3230 : module procedure setCovMeanWTI_XY_RK5
3231 : use pm_kind, only: TKC => RK5
3232 : #include "pm_sampleCov@routines.inc.F90"
3233 : end procedure
3234 : #endif
3235 :
3236 : #if RK4_ENABLED
3237 200 : module procedure setCovMeanWTI_XY_RK4
3238 : use pm_kind, only: TKC => RK4
3239 : #include "pm_sampleCov@routines.inc.F90"
3240 200 : end procedure
3241 : #endif
3242 :
3243 : #if RK3_ENABLED
3244 200 : module procedure setCovMeanWTI_XY_RK3
3245 : use pm_kind, only: TKC => RK3
3246 : #include "pm_sampleCov@routines.inc.F90"
3247 200 : end procedure
3248 : #endif
3249 :
3250 : #if RK2_ENABLED
3251 200 : module procedure setCovMeanWTI_XY_RK2
3252 : use pm_kind, only: TKC => RK2
3253 : #include "pm_sampleCov@routines.inc.F90"
3254 200 : end procedure
3255 : #endif
3256 :
3257 : #if RK1_ENABLED
3258 202 : module procedure setCovMeanWTI_XY_RK1
3259 : use pm_kind, only: TKC => RK1
3260 : #include "pm_sampleCov@routines.inc.F90"
3261 202 : end procedure
3262 : #endif
3263 :
3264 : #undef RK_ENABLED
3265 :
3266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3267 :
3268 : #undef WTI_ENABLED
3269 :
3270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3271 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3272 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3273 :
3274 : #define WTR_ENABLED 1
3275 :
3276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3277 :
3278 : #define CK_ENABLED 1
3279 :
3280 : #if CK5_ENABLED
3281 : module procedure setCovMeanWTR_XY_CK5
3282 : use pm_kind, only: TKC => CK5
3283 : #include "pm_sampleCov@routines.inc.F90"
3284 : end procedure
3285 : #endif
3286 :
3287 : #if CK4_ENABLED
3288 200 : module procedure setCovMeanWTR_XY_CK4
3289 : use pm_kind, only: TKC => CK4
3290 : #include "pm_sampleCov@routines.inc.F90"
3291 200 : end procedure
3292 : #endif
3293 :
3294 : #if CK3_ENABLED
3295 200 : module procedure setCovMeanWTR_XY_CK3
3296 : use pm_kind, only: TKC => CK3
3297 : #include "pm_sampleCov@routines.inc.F90"
3298 200 : end procedure
3299 : #endif
3300 :
3301 : #if CK2_ENABLED
3302 200 : module procedure setCovMeanWTR_XY_CK2
3303 : use pm_kind, only: TKC => CK2
3304 : #include "pm_sampleCov@routines.inc.F90"
3305 200 : end procedure
3306 : #endif
3307 :
3308 : #if CK1_ENABLED
3309 201 : module procedure setCovMeanWTR_XY_CK1
3310 : use pm_kind, only: TKC => CK1
3311 : #include "pm_sampleCov@routines.inc.F90"
3312 201 : end procedure
3313 : #endif
3314 :
3315 : #undef CK_ENABLED
3316 :
3317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3318 :
3319 : #define RK_ENABLED 1
3320 :
3321 : #if RK5_ENABLED
3322 : module procedure setCovMeanWTR_XY_RK5
3323 : use pm_kind, only: TKC => RK5
3324 : #include "pm_sampleCov@routines.inc.F90"
3325 : end procedure
3326 : #endif
3327 :
3328 : #if RK4_ENABLED
3329 200 : module procedure setCovMeanWTR_XY_RK4
3330 : use pm_kind, only: TKC => RK4
3331 : #include "pm_sampleCov@routines.inc.F90"
3332 200 : end procedure
3333 : #endif
3334 :
3335 : #if RK3_ENABLED
3336 200 : module procedure setCovMeanWTR_XY_RK3
3337 : use pm_kind, only: TKC => RK3
3338 : #include "pm_sampleCov@routines.inc.F90"
3339 200 : end procedure
3340 : #endif
3341 :
3342 : #if RK2_ENABLED
3343 200 : module procedure setCovMeanWTR_XY_RK2
3344 : use pm_kind, only: TKC => RK2
3345 : #include "pm_sampleCov@routines.inc.F90"
3346 200 : end procedure
3347 : #endif
3348 :
3349 : #if RK1_ENABLED
3350 202 : module procedure setCovMeanWTR_XY_RK1
3351 : use pm_kind, only: TKC => RK1
3352 : #include "pm_sampleCov@routines.inc.F90"
3353 202 : end procedure
3354 : #endif
3355 :
3356 : #undef RK_ENABLED
3357 :
3358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3359 :
3360 : #undef WTR_ENABLED
3361 :
3362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3365 :
3366 : #undef WNO_ENABLED
3367 :
3368 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3371 :
3372 : #undef XY_ENABLED
3373 :
3374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3377 :
3378 : #undef setCovMean_ENABLED
3379 :
3380 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3381 :
3382 : #define setCovMean_ENABLED 1
3383 :
3384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3387 :
3388 : #define UXD_ENABLED 1
3389 :
3390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3393 :
3394 : #define WNO_ENABLED 1
3395 :
3396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3397 :
3398 : #define CK_ENABLED 1
3399 :
3400 : #if CK5_ENABLED
3401 : module procedure setCovMeanWNO_UXD_CK5
3402 : use pm_kind, only: TKC => CK5
3403 : #include "pm_sampleCov@routines.inc.F90"
3404 : end procedure
3405 : #endif
3406 :
3407 : #if CK4_ENABLED
3408 600 : module procedure setCovMeanWNO_UXD_CK4
3409 : use pm_kind, only: TKC => CK4
3410 : #include "pm_sampleCov@routines.inc.F90"
3411 600 : end procedure
3412 : #endif
3413 :
3414 : #if CK3_ENABLED
3415 600 : module procedure setCovMeanWNO_UXD_CK3
3416 : use pm_kind, only: TKC => CK3
3417 : #include "pm_sampleCov@routines.inc.F90"
3418 600 : end procedure
3419 : #endif
3420 :
3421 : #if CK2_ENABLED
3422 600 : module procedure setCovMeanWNO_UXD_CK2
3423 : use pm_kind, only: TKC => CK2
3424 : #include "pm_sampleCov@routines.inc.F90"
3425 600 : end procedure
3426 : #endif
3427 :
3428 : #if CK1_ENABLED
3429 602 : module procedure setCovMeanWNO_UXD_CK1
3430 : use pm_kind, only: TKC => CK1
3431 : #include "pm_sampleCov@routines.inc.F90"
3432 602 : end procedure
3433 : #endif
3434 :
3435 : #undef CK_ENABLED
3436 :
3437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3438 :
3439 : #define RK_ENABLED 1
3440 :
3441 : #if RK5_ENABLED
3442 : module procedure setCovMeanWNO_UXD_RK5
3443 : use pm_kind, only: TKC => RK5
3444 : #include "pm_sampleCov@routines.inc.F90"
3445 : end procedure
3446 : #endif
3447 :
3448 : #if RK4_ENABLED
3449 600 : module procedure setCovMeanWNO_UXD_RK4
3450 : use pm_kind, only: TKC => RK4
3451 : #include "pm_sampleCov@routines.inc.F90"
3452 600 : end procedure
3453 : #endif
3454 :
3455 : #if RK3_ENABLED
3456 600 : module procedure setCovMeanWNO_UXD_RK3
3457 : use pm_kind, only: TKC => RK3
3458 : #include "pm_sampleCov@routines.inc.F90"
3459 600 : end procedure
3460 : #endif
3461 :
3462 : #if RK2_ENABLED
3463 600 : module procedure setCovMeanWNO_UXD_RK2
3464 : use pm_kind, only: TKC => RK2
3465 : #include "pm_sampleCov@routines.inc.F90"
3466 600 : end procedure
3467 : #endif
3468 :
3469 : #if RK1_ENABLED
3470 694 : module procedure setCovMeanWNO_UXD_RK1
3471 : use pm_kind, only: TKC => RK1
3472 : #include "pm_sampleCov@routines.inc.F90"
3473 694 : end procedure
3474 : #endif
3475 :
3476 : #undef RK_ENABLED
3477 :
3478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3479 :
3480 : #undef WNO_ENABLED
3481 :
3482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3485 :
3486 : #define WTI_ENABLED 1
3487 :
3488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3489 :
3490 : #define CK_ENABLED 1
3491 :
3492 : #if CK5_ENABLED
3493 : module procedure setCovMeanWTI_UXD_CK5
3494 : use pm_kind, only: TKC => CK5
3495 : #include "pm_sampleCov@routines.inc.F90"
3496 : end procedure
3497 : #endif
3498 :
3499 : #if CK4_ENABLED
3500 150 : module procedure setCovMeanWTI_UXD_CK4
3501 : use pm_kind, only: TKC => CK4
3502 : #include "pm_sampleCov@routines.inc.F90"
3503 150 : end procedure
3504 : #endif
3505 :
3506 : #if CK3_ENABLED
3507 150 : module procedure setCovMeanWTI_UXD_CK3
3508 : use pm_kind, only: TKC => CK3
3509 : #include "pm_sampleCov@routines.inc.F90"
3510 150 : end procedure
3511 : #endif
3512 :
3513 : #if CK2_ENABLED
3514 150 : module procedure setCovMeanWTI_UXD_CK2
3515 : use pm_kind, only: TKC => CK2
3516 : #include "pm_sampleCov@routines.inc.F90"
3517 150 : end procedure
3518 : #endif
3519 :
3520 : #if CK1_ENABLED
3521 152 : module procedure setCovMeanWTI_UXD_CK1
3522 : use pm_kind, only: TKC => CK1
3523 : #include "pm_sampleCov@routines.inc.F90"
3524 152 : end procedure
3525 : #endif
3526 :
3527 : #undef CK_ENABLED
3528 :
3529 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3530 :
3531 : #define RK_ENABLED 1
3532 :
3533 : #if RK5_ENABLED
3534 : module procedure setCovMeanWTI_UXD_RK5
3535 : use pm_kind, only: TKC => RK5
3536 : #include "pm_sampleCov@routines.inc.F90"
3537 : end procedure
3538 : #endif
3539 :
3540 : #if RK4_ENABLED
3541 150 : module procedure setCovMeanWTI_UXD_RK4
3542 : use pm_kind, only: TKC => RK4
3543 : #include "pm_sampleCov@routines.inc.F90"
3544 150 : end procedure
3545 : #endif
3546 :
3547 : #if RK3_ENABLED
3548 150 : module procedure setCovMeanWTI_UXD_RK3
3549 : use pm_kind, only: TKC => RK3
3550 : #include "pm_sampleCov@routines.inc.F90"
3551 150 : end procedure
3552 : #endif
3553 :
3554 : #if RK2_ENABLED
3555 150 : module procedure setCovMeanWTI_UXD_RK2
3556 : use pm_kind, only: TKC => RK2
3557 : #include "pm_sampleCov@routines.inc.F90"
3558 150 : end procedure
3559 : #endif
3560 :
3561 : #if RK1_ENABLED
3562 244 : module procedure setCovMeanWTI_UXD_RK1
3563 : use pm_kind, only: TKC => RK1
3564 : #include "pm_sampleCov@routines.inc.F90"
3565 244 : end procedure
3566 : #endif
3567 :
3568 : #undef RK_ENABLED
3569 :
3570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3571 :
3572 : #undef WTI_ENABLED
3573 :
3574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3577 :
3578 : #define WTR_ENABLED 1
3579 :
3580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3581 :
3582 : #define CK_ENABLED 1
3583 :
3584 : #if CK5_ENABLED
3585 : module procedure setCovMeanWTR_UXD_CK5
3586 : use pm_kind, only: TKC => CK5
3587 : #include "pm_sampleCov@routines.inc.F90"
3588 : end procedure
3589 : #endif
3590 :
3591 : #if CK4_ENABLED
3592 150 : module procedure setCovMeanWTR_UXD_CK4
3593 : use pm_kind, only: TKC => CK4
3594 : #include "pm_sampleCov@routines.inc.F90"
3595 150 : end procedure
3596 : #endif
3597 :
3598 : #if CK3_ENABLED
3599 150 : module procedure setCovMeanWTR_UXD_CK3
3600 : use pm_kind, only: TKC => CK3
3601 : #include "pm_sampleCov@routines.inc.F90"
3602 150 : end procedure
3603 : #endif
3604 :
3605 : #if CK2_ENABLED
3606 150 : module procedure setCovMeanWTR_UXD_CK2
3607 : use pm_kind, only: TKC => CK2
3608 : #include "pm_sampleCov@routines.inc.F90"
3609 150 : end procedure
3610 : #endif
3611 :
3612 : #if CK1_ENABLED
3613 152 : module procedure setCovMeanWTR_UXD_CK1
3614 : use pm_kind, only: TKC => CK1
3615 : #include "pm_sampleCov@routines.inc.F90"
3616 152 : end procedure
3617 : #endif
3618 :
3619 : #undef CK_ENABLED
3620 :
3621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3622 :
3623 : #define RK_ENABLED 1
3624 :
3625 : #if RK5_ENABLED
3626 : module procedure setCovMeanWTR_UXD_RK5
3627 : use pm_kind, only: TKC => RK5
3628 : #include "pm_sampleCov@routines.inc.F90"
3629 : end procedure
3630 : #endif
3631 :
3632 : #if RK4_ENABLED
3633 150 : module procedure setCovMeanWTR_UXD_RK4
3634 : use pm_kind, only: TKC => RK4
3635 : #include "pm_sampleCov@routines.inc.F90"
3636 150 : end procedure
3637 : #endif
3638 :
3639 : #if RK3_ENABLED
3640 150 : module procedure setCovMeanWTR_UXD_RK3
3641 : use pm_kind, only: TKC => RK3
3642 : #include "pm_sampleCov@routines.inc.F90"
3643 150 : end procedure
3644 : #endif
3645 :
3646 : #if RK2_ENABLED
3647 150 : module procedure setCovMeanWTR_UXD_RK2
3648 : use pm_kind, only: TKC => RK2
3649 : #include "pm_sampleCov@routines.inc.F90"
3650 150 : end procedure
3651 : #endif
3652 :
3653 : #if RK1_ENABLED
3654 244 : module procedure setCovMeanWTR_UXD_RK1
3655 : use pm_kind, only: TKC => RK1
3656 : #include "pm_sampleCov@routines.inc.F90"
3657 244 : end procedure
3658 : #endif
3659 :
3660 : #undef RK_ENABLED
3661 :
3662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3663 :
3664 : #undef WTR_ENABLED
3665 :
3666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3667 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3669 :
3670 : #undef UXD_ENABLED
3671 :
3672 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3675 :
3676 : #undef setCovMean_ENABLED
3677 :
3678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3679 :
3680 : #define setCovMean_ENABLED 1
3681 :
3682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3685 :
3686 : #define XLD_ENABLED 1
3687 :
3688 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3689 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3690 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3691 :
3692 : #define WNO_ENABLED 1
3693 :
3694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3695 :
3696 : #define CK_ENABLED 1
3697 :
3698 : #if CK5_ENABLED
3699 : module procedure setCovMeanWNO_XLD_CK5
3700 : use pm_kind, only: TKC => CK5
3701 : #include "pm_sampleCov@routines.inc.F90"
3702 : end procedure
3703 : #endif
3704 :
3705 : #if CK4_ENABLED
3706 100 : module procedure setCovMeanWNO_XLD_CK4
3707 : use pm_kind, only: TKC => CK4
3708 : #include "pm_sampleCov@routines.inc.F90"
3709 100 : end procedure
3710 : #endif
3711 :
3712 : #if CK3_ENABLED
3713 100 : module procedure setCovMeanWNO_XLD_CK3
3714 : use pm_kind, only: TKC => CK3
3715 : #include "pm_sampleCov@routines.inc.F90"
3716 100 : end procedure
3717 : #endif
3718 :
3719 : #if CK2_ENABLED
3720 100 : module procedure setCovMeanWNO_XLD_CK2
3721 : use pm_kind, only: TKC => CK2
3722 : #include "pm_sampleCov@routines.inc.F90"
3723 100 : end procedure
3724 : #endif
3725 :
3726 : #if CK1_ENABLED
3727 100 : module procedure setCovMeanWNO_XLD_CK1
3728 : use pm_kind, only: TKC => CK1
3729 : #include "pm_sampleCov@routines.inc.F90"
3730 100 : end procedure
3731 : #endif
3732 :
3733 : #undef CK_ENABLED
3734 :
3735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3736 :
3737 : #define RK_ENABLED 1
3738 :
3739 : #if RK5_ENABLED
3740 : module procedure setCovMeanWNO_XLD_RK5
3741 : use pm_kind, only: TKC => RK5
3742 : #include "pm_sampleCov@routines.inc.F90"
3743 : end procedure
3744 : #endif
3745 :
3746 : #if RK4_ENABLED
3747 100 : module procedure setCovMeanWNO_XLD_RK4
3748 : use pm_kind, only: TKC => RK4
3749 : #include "pm_sampleCov@routines.inc.F90"
3750 100 : end procedure
3751 : #endif
3752 :
3753 : #if RK3_ENABLED
3754 100 : module procedure setCovMeanWNO_XLD_RK3
3755 : use pm_kind, only: TKC => RK3
3756 : #include "pm_sampleCov@routines.inc.F90"
3757 100 : end procedure
3758 : #endif
3759 :
3760 : #if RK2_ENABLED
3761 100 : module procedure setCovMeanWNO_XLD_RK2
3762 : use pm_kind, only: TKC => RK2
3763 : #include "pm_sampleCov@routines.inc.F90"
3764 100 : end procedure
3765 : #endif
3766 :
3767 : #if RK1_ENABLED
3768 102 : module procedure setCovMeanWNO_XLD_RK1
3769 : use pm_kind, only: TKC => RK1
3770 : #include "pm_sampleCov@routines.inc.F90"
3771 102 : end procedure
3772 : #endif
3773 :
3774 : #undef RK_ENABLED
3775 :
3776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3777 :
3778 : #undef WNO_ENABLED
3779 :
3780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3783 :
3784 : #define WTI_ENABLED 1
3785 :
3786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3787 :
3788 : #define CK_ENABLED 1
3789 :
3790 : #if CK5_ENABLED
3791 : module procedure setCovMeanWTI_XLD_CK5
3792 : use pm_kind, only: TKC => CK5
3793 : #include "pm_sampleCov@routines.inc.F90"
3794 : end procedure
3795 : #endif
3796 :
3797 : #if CK4_ENABLED
3798 100 : module procedure setCovMeanWTI_XLD_CK4
3799 : use pm_kind, only: TKC => CK4
3800 : #include "pm_sampleCov@routines.inc.F90"
3801 100 : end procedure
3802 : #endif
3803 :
3804 : #if CK3_ENABLED
3805 100 : module procedure setCovMeanWTI_XLD_CK3
3806 : use pm_kind, only: TKC => CK3
3807 : #include "pm_sampleCov@routines.inc.F90"
3808 100 : end procedure
3809 : #endif
3810 :
3811 : #if CK2_ENABLED
3812 100 : module procedure setCovMeanWTI_XLD_CK2
3813 : use pm_kind, only: TKC => CK2
3814 : #include "pm_sampleCov@routines.inc.F90"
3815 100 : end procedure
3816 : #endif
3817 :
3818 : #if CK1_ENABLED
3819 100 : module procedure setCovMeanWTI_XLD_CK1
3820 : use pm_kind, only: TKC => CK1
3821 : #include "pm_sampleCov@routines.inc.F90"
3822 100 : end procedure
3823 : #endif
3824 :
3825 : #undef CK_ENABLED
3826 :
3827 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3828 :
3829 : #define RK_ENABLED 1
3830 :
3831 : #if RK5_ENABLED
3832 : module procedure setCovMeanWTI_XLD_RK5
3833 : use pm_kind, only: TKC => RK5
3834 : #include "pm_sampleCov@routines.inc.F90"
3835 : end procedure
3836 : #endif
3837 :
3838 : #if RK4_ENABLED
3839 100 : module procedure setCovMeanWTI_XLD_RK4
3840 : use pm_kind, only: TKC => RK4
3841 : #include "pm_sampleCov@routines.inc.F90"
3842 100 : end procedure
3843 : #endif
3844 :
3845 : #if RK3_ENABLED
3846 100 : module procedure setCovMeanWTI_XLD_RK3
3847 : use pm_kind, only: TKC => RK3
3848 : #include "pm_sampleCov@routines.inc.F90"
3849 100 : end procedure
3850 : #endif
3851 :
3852 : #if RK2_ENABLED
3853 100 : module procedure setCovMeanWTI_XLD_RK2
3854 : use pm_kind, only: TKC => RK2
3855 : #include "pm_sampleCov@routines.inc.F90"
3856 100 : end procedure
3857 : #endif
3858 :
3859 : #if RK1_ENABLED
3860 102 : module procedure setCovMeanWTI_XLD_RK1
3861 : use pm_kind, only: TKC => RK1
3862 : #include "pm_sampleCov@routines.inc.F90"
3863 102 : end procedure
3864 : #endif
3865 :
3866 : #undef RK_ENABLED
3867 :
3868 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3869 :
3870 : #undef WTI_ENABLED
3871 :
3872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3873 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3874 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3875 :
3876 : #define WTR_ENABLED 1
3877 :
3878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3879 :
3880 : #define CK_ENABLED 1
3881 :
3882 : #if CK5_ENABLED
3883 : module procedure setCovMeanWTR_XLD_CK5
3884 : use pm_kind, only: TKC => CK5
3885 : #include "pm_sampleCov@routines.inc.F90"
3886 : end procedure
3887 : #endif
3888 :
3889 : #if CK4_ENABLED
3890 100 : module procedure setCovMeanWTR_XLD_CK4
3891 : use pm_kind, only: TKC => CK4
3892 : #include "pm_sampleCov@routines.inc.F90"
3893 100 : end procedure
3894 : #endif
3895 :
3896 : #if CK3_ENABLED
3897 100 : module procedure setCovMeanWTR_XLD_CK3
3898 : use pm_kind, only: TKC => CK3
3899 : #include "pm_sampleCov@routines.inc.F90"
3900 100 : end procedure
3901 : #endif
3902 :
3903 : #if CK2_ENABLED
3904 100 : module procedure setCovMeanWTR_XLD_CK2
3905 : use pm_kind, only: TKC => CK2
3906 : #include "pm_sampleCov@routines.inc.F90"
3907 100 : end procedure
3908 : #endif
3909 :
3910 : #if CK1_ENABLED
3911 100 : module procedure setCovMeanWTR_XLD_CK1
3912 : use pm_kind, only: TKC => CK1
3913 : #include "pm_sampleCov@routines.inc.F90"
3914 100 : end procedure
3915 : #endif
3916 :
3917 : #undef CK_ENABLED
3918 :
3919 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3920 :
3921 : #define RK_ENABLED 1
3922 :
3923 : #if RK5_ENABLED
3924 : module procedure setCovMeanWTR_XLD_RK5
3925 : use pm_kind, only: TKC => RK5
3926 : #include "pm_sampleCov@routines.inc.F90"
3927 : end procedure
3928 : #endif
3929 :
3930 : #if RK4_ENABLED
3931 100 : module procedure setCovMeanWTR_XLD_RK4
3932 : use pm_kind, only: TKC => RK4
3933 : #include "pm_sampleCov@routines.inc.F90"
3934 100 : end procedure
3935 : #endif
3936 :
3937 : #if RK3_ENABLED
3938 100 : module procedure setCovMeanWTR_XLD_RK3
3939 : use pm_kind, only: TKC => RK3
3940 : #include "pm_sampleCov@routines.inc.F90"
3941 100 : end procedure
3942 : #endif
3943 :
3944 : #if RK2_ENABLED
3945 100 : module procedure setCovMeanWTR_XLD_RK2
3946 : use pm_kind, only: TKC => RK2
3947 : #include "pm_sampleCov@routines.inc.F90"
3948 100 : end procedure
3949 : #endif
3950 :
3951 : #if RK1_ENABLED
3952 102 : module procedure setCovMeanWTR_XLD_RK1
3953 : use pm_kind, only: TKC => RK1
3954 : #include "pm_sampleCov@routines.inc.F90"
3955 102 : end procedure
3956 : #endif
3957 :
3958 : #undef RK_ENABLED
3959 :
3960 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3961 :
3962 : #undef WTR_ENABLED
3963 :
3964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3967 :
3968 : #undef XLD_ENABLED
3969 :
3970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3973 :
3974 : #undef setCovMean_ENABLED
3975 :
3976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3977 :
3978 : #define getCovMerged_ENABLED 1
3979 :
3980 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3981 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3982 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3983 :
3984 : #define New_ENABLED 1
3985 :
3986 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3987 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3988 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3989 :
3990 : #define RDP_ENABLED 1
3991 :
3992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3993 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3994 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3995 :
3996 : #define ULD_ENABLED 1
3997 :
3998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3999 :
4000 : #define CK_ENABLED 1
4001 :
4002 : #if CK5_ENABLED
4003 : module procedure getCovMergedNew_RDP_ULD_CK5
4004 : use pm_kind, only: TKC => CK5
4005 : #include "pm_sampleCov@routines.inc.F90"
4006 : end procedure
4007 : #endif
4008 :
4009 : #if CK4_ENABLED
4010 50 : module procedure getCovMergedNew_RDP_ULD_CK4
4011 : use pm_kind, only: TKC => CK4
4012 : #include "pm_sampleCov@routines.inc.F90"
4013 50 : end procedure
4014 : #endif
4015 :
4016 : #if CK3_ENABLED
4017 50 : module procedure getCovMergedNew_RDP_ULD_CK3
4018 : use pm_kind, only: TKC => CK3
4019 : #include "pm_sampleCov@routines.inc.F90"
4020 50 : end procedure
4021 : #endif
4022 :
4023 : #if CK2_ENABLED
4024 50 : module procedure getCovMergedNew_RDP_ULD_CK2
4025 : use pm_kind, only: TKC => CK2
4026 : #include "pm_sampleCov@routines.inc.F90"
4027 50 : end procedure
4028 : #endif
4029 :
4030 : #if CK1_ENABLED
4031 50 : module procedure getCovMergedNew_RDP_ULD_CK1
4032 : use pm_kind, only: TKC => CK1
4033 : #include "pm_sampleCov@routines.inc.F90"
4034 50 : end procedure
4035 : #endif
4036 :
4037 : #undef CK_ENABLED
4038 :
4039 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4040 :
4041 : #define RK_ENABLED 1
4042 :
4043 : #if RK5_ENABLED
4044 : module procedure getCovMergedNew_RDP_ULD_RK5
4045 : use pm_kind, only: TKC => RK5
4046 : #include "pm_sampleCov@routines.inc.F90"
4047 : end procedure
4048 : #endif
4049 :
4050 : #if RK4_ENABLED
4051 50 : module procedure getCovMergedNew_RDP_ULD_RK4
4052 : use pm_kind, only: TKC => RK4
4053 : #include "pm_sampleCov@routines.inc.F90"
4054 50 : end procedure
4055 : #endif
4056 :
4057 : #if RK3_ENABLED
4058 50 : module procedure getCovMergedNew_RDP_ULD_RK3
4059 : use pm_kind, only: TKC => RK3
4060 : #include "pm_sampleCov@routines.inc.F90"
4061 50 : end procedure
4062 : #endif
4063 :
4064 : #if RK2_ENABLED
4065 50 : module procedure getCovMergedNew_RDP_ULD_RK2
4066 : use pm_kind, only: TKC => RK2
4067 : #include "pm_sampleCov@routines.inc.F90"
4068 50 : end procedure
4069 : #endif
4070 :
4071 : #if RK1_ENABLED
4072 110 : module procedure getCovMergedNew_RDP_ULD_RK1
4073 : use pm_kind, only: TKC => RK1
4074 : #include "pm_sampleCov@routines.inc.F90"
4075 110 : end procedure
4076 : #endif
4077 :
4078 : #undef RK_ENABLED
4079 :
4080 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4081 :
4082 : #undef RDP_ENABLED
4083 :
4084 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4087 :
4088 : #undef ULD_ENABLED
4089 :
4090 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4093 :
4094 : #undef New_ENABLED
4095 :
4096 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4099 :
4100 : #undef getCovMerged_ENABLED
4101 :
4102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4103 :
4104 : #define setCovMerged_ENABLED 1
4105 :
4106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4109 :
4110 : #define New_ENABLED 1
4111 :
4112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4115 :
4116 : #define RDP_ENABLED 1
4117 :
4118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4121 :
4122 : #define UXD_ENABLED 1
4123 :
4124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4125 :
4126 : #define CK_ENABLED 1
4127 :
4128 : #if CK5_ENABLED
4129 : module procedure setCovMergedNew_RDP_UXD_CK5
4130 : use pm_kind, only: TKC => CK5
4131 : #include "pm_sampleCov@routines.inc.F90"
4132 : end procedure
4133 : #endif
4134 :
4135 : #if CK4_ENABLED
4136 100 : module procedure setCovMergedNew_RDP_UXD_CK4
4137 : use pm_kind, only: TKC => CK4
4138 : #include "pm_sampleCov@routines.inc.F90"
4139 100 : end procedure
4140 : #endif
4141 :
4142 : #if CK3_ENABLED
4143 100 : module procedure setCovMergedNew_RDP_UXD_CK3
4144 : use pm_kind, only: TKC => CK3
4145 : #include "pm_sampleCov@routines.inc.F90"
4146 100 : end procedure
4147 : #endif
4148 :
4149 : #if CK2_ENABLED
4150 100 : module procedure setCovMergedNew_RDP_UXD_CK2
4151 : use pm_kind, only: TKC => CK2
4152 : #include "pm_sampleCov@routines.inc.F90"
4153 100 : end procedure
4154 : #endif
4155 :
4156 : #if CK1_ENABLED
4157 100 : module procedure setCovMergedNew_RDP_UXD_CK1
4158 : use pm_kind, only: TKC => CK1
4159 : #include "pm_sampleCov@routines.inc.F90"
4160 100 : end procedure
4161 : #endif
4162 :
4163 : #undef CK_ENABLED
4164 :
4165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4166 :
4167 : #define RK_ENABLED 1
4168 :
4169 : #if RK5_ENABLED
4170 : module procedure setCovMergedNew_RDP_UXD_RK5
4171 : use pm_kind, only: TKC => RK5
4172 : #include "pm_sampleCov@routines.inc.F90"
4173 : end procedure
4174 : #endif
4175 :
4176 : #if RK4_ENABLED
4177 100 : module procedure setCovMergedNew_RDP_UXD_RK4
4178 : use pm_kind, only: TKC => RK4
4179 : #include "pm_sampleCov@routines.inc.F90"
4180 100 : end procedure
4181 : #endif
4182 :
4183 : #if RK3_ENABLED
4184 100 : module procedure setCovMergedNew_RDP_UXD_RK3
4185 : use pm_kind, only: TKC => RK3
4186 : #include "pm_sampleCov@routines.inc.F90"
4187 100 : end procedure
4188 : #endif
4189 :
4190 : #if RK2_ENABLED
4191 100 : module procedure setCovMergedNew_RDP_UXD_RK2
4192 : use pm_kind, only: TKC => RK2
4193 : #include "pm_sampleCov@routines.inc.F90"
4194 100 : end procedure
4195 : #endif
4196 :
4197 : #if RK1_ENABLED
4198 190 : module procedure setCovMergedNew_RDP_UXD_RK1
4199 : use pm_kind, only: TKC => RK1
4200 : #include "pm_sampleCov@routines.inc.F90"
4201 190 : end procedure
4202 : #endif
4203 :
4204 : #undef RK_ENABLED
4205 :
4206 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4207 :
4208 : #undef UXD_ENABLED
4209 :
4210 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4213 :
4214 : #define XLD_ENABLED 1
4215 :
4216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4217 :
4218 : #define CK_ENABLED 1
4219 :
4220 : #if CK5_ENABLED
4221 : module procedure setCovMergedNew_RDP_XLD_CK5
4222 : use pm_kind, only: TKC => CK5
4223 : #include "pm_sampleCov@routines.inc.F90"
4224 : end procedure
4225 : #endif
4226 :
4227 : #if CK4_ENABLED
4228 50 : module procedure setCovMergedNew_RDP_XLD_CK4
4229 : use pm_kind, only: TKC => CK4
4230 : #include "pm_sampleCov@routines.inc.F90"
4231 50 : end procedure
4232 : #endif
4233 :
4234 : #if CK3_ENABLED
4235 50 : module procedure setCovMergedNew_RDP_XLD_CK3
4236 : use pm_kind, only: TKC => CK3
4237 : #include "pm_sampleCov@routines.inc.F90"
4238 50 : end procedure
4239 : #endif
4240 :
4241 : #if CK2_ENABLED
4242 50 : module procedure setCovMergedNew_RDP_XLD_CK2
4243 : use pm_kind, only: TKC => CK2
4244 : #include "pm_sampleCov@routines.inc.F90"
4245 50 : end procedure
4246 : #endif
4247 :
4248 : #if CK1_ENABLED
4249 50 : module procedure setCovMergedNew_RDP_XLD_CK1
4250 : use pm_kind, only: TKC => CK1
4251 : #include "pm_sampleCov@routines.inc.F90"
4252 50 : end procedure
4253 : #endif
4254 :
4255 : #undef CK_ENABLED
4256 :
4257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4258 :
4259 : #define RK_ENABLED 1
4260 :
4261 : #if RK5_ENABLED
4262 : module procedure setCovMergedNew_RDP_XLD_RK5
4263 : use pm_kind, only: TKC => RK5
4264 : #include "pm_sampleCov@routines.inc.F90"
4265 : end procedure
4266 : #endif
4267 :
4268 : #if RK4_ENABLED
4269 50 : module procedure setCovMergedNew_RDP_XLD_RK4
4270 : use pm_kind, only: TKC => RK4
4271 : #include "pm_sampleCov@routines.inc.F90"
4272 50 : end procedure
4273 : #endif
4274 :
4275 : #if RK3_ENABLED
4276 50 : module procedure setCovMergedNew_RDP_XLD_RK3
4277 : use pm_kind, only: TKC => RK3
4278 : #include "pm_sampleCov@routines.inc.F90"
4279 50 : end procedure
4280 : #endif
4281 :
4282 : #if RK2_ENABLED
4283 50 : module procedure setCovMergedNew_RDP_XLD_RK2
4284 : use pm_kind, only: TKC => RK2
4285 : #include "pm_sampleCov@routines.inc.F90"
4286 50 : end procedure
4287 : #endif
4288 :
4289 : #if RK1_ENABLED
4290 80 : module procedure setCovMergedNew_RDP_XLD_RK1
4291 : use pm_kind, only: TKC => RK1
4292 : #include "pm_sampleCov@routines.inc.F90"
4293 80 : end procedure
4294 : #endif
4295 :
4296 : #undef RK_ENABLED
4297 :
4298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4299 :
4300 : #undef XLD_ENABLED
4301 :
4302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4305 :
4306 : #undef RDP_ENABLED
4307 :
4308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4311 :
4312 : #undef New_ENABLED
4313 :
4314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4317 :
4318 : #define Old_ENABLED 1
4319 :
4320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4323 :
4324 : #define RDP_ENABLED 1
4325 :
4326 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4329 :
4330 : #define UXD_ENABLED 1
4331 :
4332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4333 :
4334 : #define CK_ENABLED 1
4335 :
4336 : #if CK5_ENABLED
4337 : module procedure setCovMergedOld_RDP_UXD_CK5
4338 : use pm_kind, only: TKC => CK5
4339 : #include "pm_sampleCov@routines.inc.F90"
4340 : end procedure
4341 : #endif
4342 :
4343 : #if CK4_ENABLED
4344 50 : module procedure setCovMergedOld_RDP_UXD_CK4
4345 : use pm_kind, only: TKC => CK4
4346 : #include "pm_sampleCov@routines.inc.F90"
4347 50 : end procedure
4348 : #endif
4349 :
4350 : #if CK3_ENABLED
4351 50 : module procedure setCovMergedOld_RDP_UXD_CK3
4352 : use pm_kind, only: TKC => CK3
4353 : #include "pm_sampleCov@routines.inc.F90"
4354 50 : end procedure
4355 : #endif
4356 :
4357 : #if CK2_ENABLED
4358 50 : module procedure setCovMergedOld_RDP_UXD_CK2
4359 : use pm_kind, only: TKC => CK2
4360 : #include "pm_sampleCov@routines.inc.F90"
4361 50 : end procedure
4362 : #endif
4363 :
4364 : #if CK1_ENABLED
4365 50 : module procedure setCovMergedOld_RDP_UXD_CK1
4366 : use pm_kind, only: TKC => CK1
4367 : #include "pm_sampleCov@routines.inc.F90"
4368 50 : end procedure
4369 : #endif
4370 :
4371 : #undef CK_ENABLED
4372 :
4373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4374 :
4375 : #define RK_ENABLED 1
4376 :
4377 : #if RK5_ENABLED
4378 : module procedure setCovMergedOld_RDP_UXD_RK5
4379 : use pm_kind, only: TKC => RK5
4380 : #include "pm_sampleCov@routines.inc.F90"
4381 : end procedure
4382 : #endif
4383 :
4384 : #if RK4_ENABLED
4385 50 : module procedure setCovMergedOld_RDP_UXD_RK4
4386 : use pm_kind, only: TKC => RK4
4387 : #include "pm_sampleCov@routines.inc.F90"
4388 50 : end procedure
4389 : #endif
4390 :
4391 : #if RK3_ENABLED
4392 50 : module procedure setCovMergedOld_RDP_UXD_RK3
4393 : use pm_kind, only: TKC => RK3
4394 : #include "pm_sampleCov@routines.inc.F90"
4395 50 : end procedure
4396 : #endif
4397 :
4398 : #if RK2_ENABLED
4399 50 : module procedure setCovMergedOld_RDP_UXD_RK2
4400 : use pm_kind, only: TKC => RK2
4401 : #include "pm_sampleCov@routines.inc.F90"
4402 50 : end procedure
4403 : #endif
4404 :
4405 : #if RK1_ENABLED
4406 70 : module procedure setCovMergedOld_RDP_UXD_RK1
4407 : use pm_kind, only: TKC => RK1
4408 : #include "pm_sampleCov@routines.inc.F90"
4409 70 : end procedure
4410 : #endif
4411 :
4412 : #undef RK_ENABLED
4413 :
4414 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4415 :
4416 : #undef UXD_ENABLED
4417 :
4418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4419 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4421 :
4422 : #define XLD_ENABLED 1
4423 :
4424 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4425 :
4426 : #define CK_ENABLED 1
4427 :
4428 : #if CK5_ENABLED
4429 : module procedure setCovMergedOld_RDP_XLD_CK5
4430 : use pm_kind, only: TKC => CK5
4431 : #include "pm_sampleCov@routines.inc.F90"
4432 : end procedure
4433 : #endif
4434 :
4435 : #if CK4_ENABLED
4436 50 : module procedure setCovMergedOld_RDP_XLD_CK4
4437 : use pm_kind, only: TKC => CK4
4438 : #include "pm_sampleCov@routines.inc.F90"
4439 50 : end procedure
4440 : #endif
4441 :
4442 : #if CK3_ENABLED
4443 50 : module procedure setCovMergedOld_RDP_XLD_CK3
4444 : use pm_kind, only: TKC => CK3
4445 : #include "pm_sampleCov@routines.inc.F90"
4446 50 : end procedure
4447 : #endif
4448 :
4449 : #if CK2_ENABLED
4450 50 : module procedure setCovMergedOld_RDP_XLD_CK2
4451 : use pm_kind, only: TKC => CK2
4452 : #include "pm_sampleCov@routines.inc.F90"
4453 50 : end procedure
4454 : #endif
4455 :
4456 : #if CK1_ENABLED
4457 50 : module procedure setCovMergedOld_RDP_XLD_CK1
4458 : use pm_kind, only: TKC => CK1
4459 : #include "pm_sampleCov@routines.inc.F90"
4460 50 : end procedure
4461 : #endif
4462 :
4463 : #undef CK_ENABLED
4464 :
4465 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4466 :
4467 : #define RK_ENABLED 1
4468 :
4469 : #if RK5_ENABLED
4470 : module procedure setCovMergedOld_RDP_XLD_RK5
4471 : use pm_kind, only: TKC => RK5
4472 : #include "pm_sampleCov@routines.inc.F90"
4473 : end procedure
4474 : #endif
4475 :
4476 : #if RK4_ENABLED
4477 50 : module procedure setCovMergedOld_RDP_XLD_RK4
4478 : use pm_kind, only: TKC => RK4
4479 : #include "pm_sampleCov@routines.inc.F90"
4480 50 : end procedure
4481 : #endif
4482 :
4483 : #if RK3_ENABLED
4484 50 : module procedure setCovMergedOld_RDP_XLD_RK3
4485 : use pm_kind, only: TKC => RK3
4486 : #include "pm_sampleCov@routines.inc.F90"
4487 50 : end procedure
4488 : #endif
4489 :
4490 : #if RK2_ENABLED
4491 50 : module procedure setCovMergedOld_RDP_XLD_RK2
4492 : use pm_kind, only: TKC => RK2
4493 : #include "pm_sampleCov@routines.inc.F90"
4494 50 : end procedure
4495 : #endif
4496 :
4497 : #if RK1_ENABLED
4498 60 : module procedure setCovMergedOld_RDP_XLD_RK1
4499 : use pm_kind, only: TKC => RK1
4500 : #include "pm_sampleCov@routines.inc.F90"
4501 60 : end procedure
4502 : #endif
4503 :
4504 : #undef RK_ENABLED
4505 :
4506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4507 :
4508 : #undef XLD_ENABLED
4509 :
4510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4511 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4513 :
4514 : #undef RDP_ENABLED
4515 :
4516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4519 :
4520 : #undef Old_ENABLED
4521 :
4522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4523 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4525 :
4526 : #undef setCovMerged_ENABLED
4527 :
4528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4529 :
4530 : #define setCovMeanMerged_ENABLED 1
4531 :
4532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4535 :
4536 : #define New_ENABLED 1
4537 :
4538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4541 :
4542 : #define RDP_ENABLED 1
4543 :
4544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4547 :
4548 : #define UXD_ENABLED 1
4549 :
4550 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4551 :
4552 : #define CK_ENABLED 1
4553 :
4554 : #if CK5_ENABLED
4555 : module procedure setCovMeanMergedNew_RDP_UXD_CK5
4556 : use pm_kind, only: TKC => CK5
4557 : #include "pm_sampleCov@routines.inc.F90"
4558 : end procedure
4559 : #endif
4560 :
4561 : #if CK4_ENABLED
4562 50 : module procedure setCovMeanMergedNew_RDP_UXD_CK4
4563 : use pm_kind, only: TKC => CK4
4564 : #include "pm_sampleCov@routines.inc.F90"
4565 50 : end procedure
4566 : #endif
4567 :
4568 : #if CK3_ENABLED
4569 50 : module procedure setCovMeanMergedNew_RDP_UXD_CK3
4570 : use pm_kind, only: TKC => CK3
4571 : #include "pm_sampleCov@routines.inc.F90"
4572 50 : end procedure
4573 : #endif
4574 :
4575 : #if CK2_ENABLED
4576 50 : module procedure setCovMeanMergedNew_RDP_UXD_CK2
4577 : use pm_kind, only: TKC => CK2
4578 : #include "pm_sampleCov@routines.inc.F90"
4579 50 : end procedure
4580 : #endif
4581 :
4582 : #if CK1_ENABLED
4583 50 : module procedure setCovMeanMergedNew_RDP_UXD_CK1
4584 : use pm_kind, only: TKC => CK1
4585 : #include "pm_sampleCov@routines.inc.F90"
4586 50 : end procedure
4587 : #endif
4588 :
4589 : #undef CK_ENABLED
4590 :
4591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4592 :
4593 : #define RK_ENABLED 1
4594 :
4595 : #if RK5_ENABLED
4596 : module procedure setCovMeanMergedNew_RDP_UXD_RK5
4597 : use pm_kind, only: TKC => RK5
4598 : #include "pm_sampleCov@routines.inc.F90"
4599 : end procedure
4600 : #endif
4601 :
4602 : #if RK4_ENABLED
4603 50 : module procedure setCovMeanMergedNew_RDP_UXD_RK4
4604 : use pm_kind, only: TKC => RK4
4605 : #include "pm_sampleCov@routines.inc.F90"
4606 50 : end procedure
4607 : #endif
4608 :
4609 : #if RK3_ENABLED
4610 50 : module procedure setCovMeanMergedNew_RDP_UXD_RK3
4611 : use pm_kind, only: TKC => RK3
4612 : #include "pm_sampleCov@routines.inc.F90"
4613 50 : end procedure
4614 : #endif
4615 :
4616 : #if RK2_ENABLED
4617 50 : module procedure setCovMeanMergedNew_RDP_UXD_RK2
4618 : use pm_kind, only: TKC => RK2
4619 : #include "pm_sampleCov@routines.inc.F90"
4620 50 : end procedure
4621 : #endif
4622 :
4623 : #if RK1_ENABLED
4624 80 : module procedure setCovMeanMergedNew_RDP_UXD_RK1
4625 : use pm_kind, only: TKC => RK1
4626 : #include "pm_sampleCov@routines.inc.F90"
4627 80 : end procedure
4628 : #endif
4629 :
4630 : #undef RK_ENABLED
4631 :
4632 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4633 :
4634 : #undef UXD_ENABLED
4635 :
4636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4638 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4639 :
4640 : #define XLD_ENABLED 1
4641 :
4642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4643 :
4644 : #define CK_ENABLED 1
4645 :
4646 : #if CK5_ENABLED
4647 : module procedure setCovMeanMergedNew_RDP_XLD_CK5
4648 : use pm_kind, only: TKC => CK5
4649 : #include "pm_sampleCov@routines.inc.F90"
4650 : end procedure
4651 : #endif
4652 :
4653 : #if CK4_ENABLED
4654 50 : module procedure setCovMeanMergedNew_RDP_XLD_CK4
4655 : use pm_kind, only: TKC => CK4
4656 : #include "pm_sampleCov@routines.inc.F90"
4657 50 : end procedure
4658 : #endif
4659 :
4660 : #if CK3_ENABLED
4661 50 : module procedure setCovMeanMergedNew_RDP_XLD_CK3
4662 : use pm_kind, only: TKC => CK3
4663 : #include "pm_sampleCov@routines.inc.F90"
4664 50 : end procedure
4665 : #endif
4666 :
4667 : #if CK2_ENABLED
4668 50 : module procedure setCovMeanMergedNew_RDP_XLD_CK2
4669 : use pm_kind, only: TKC => CK2
4670 : #include "pm_sampleCov@routines.inc.F90"
4671 50 : end procedure
4672 : #endif
4673 :
4674 : #if CK1_ENABLED
4675 50 : module procedure setCovMeanMergedNew_RDP_XLD_CK1
4676 : use pm_kind, only: TKC => CK1
4677 : #include "pm_sampleCov@routines.inc.F90"
4678 50 : end procedure
4679 : #endif
4680 :
4681 : #undef CK_ENABLED
4682 :
4683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4684 :
4685 : #define RK_ENABLED 1
4686 :
4687 : #if RK5_ENABLED
4688 : module procedure setCovMeanMergedNew_RDP_XLD_RK5
4689 : use pm_kind, only: TKC => RK5
4690 : #include "pm_sampleCov@routines.inc.F90"
4691 : end procedure
4692 : #endif
4693 :
4694 : #if RK4_ENABLED
4695 50 : module procedure setCovMeanMergedNew_RDP_XLD_RK4
4696 : use pm_kind, only: TKC => RK4
4697 : #include "pm_sampleCov@routines.inc.F90"
4698 50 : end procedure
4699 : #endif
4700 :
4701 : #if RK3_ENABLED
4702 50 : module procedure setCovMeanMergedNew_RDP_XLD_RK3
4703 : use pm_kind, only: TKC => RK3
4704 : #include "pm_sampleCov@routines.inc.F90"
4705 50 : end procedure
4706 : #endif
4707 :
4708 : #if RK2_ENABLED
4709 50166 : module procedure setCovMeanMergedNew_RDP_XLD_RK2
4710 : use pm_kind, only: TKC => RK2
4711 : #include "pm_sampleCov@routines.inc.F90"
4712 50166 : end procedure
4713 : #endif
4714 :
4715 : #if RK1_ENABLED
4716 776 : module procedure setCovMeanMergedNew_RDP_XLD_RK1
4717 : use pm_kind, only: TKC => RK1
4718 : #include "pm_sampleCov@routines.inc.F90"
4719 776 : end procedure
4720 : #endif
4721 :
4722 : #undef RK_ENABLED
4723 :
4724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4725 :
4726 : #undef XLD_ENABLED
4727 :
4728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4731 :
4732 : #undef RDP_ENABLED
4733 :
4734 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4737 :
4738 : #undef New_ENABLED
4739 :
4740 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4743 :
4744 : #define Old_ENABLED 1
4745 :
4746 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4749 :
4750 : #define RDP_ENABLED 1
4751 :
4752 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4753 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4755 :
4756 : #define UXD_ENABLED 1
4757 :
4758 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4759 :
4760 : #define CK_ENABLED 1
4761 :
4762 : #if CK5_ENABLED
4763 : module procedure setCovMeanMergedOld_RDP_UXD_CK5
4764 : use pm_kind, only: TKC => CK5
4765 : #include "pm_sampleCov@routines.inc.F90"
4766 : end procedure
4767 : #endif
4768 :
4769 : #if CK4_ENABLED
4770 50 : module procedure setCovMeanMergedOld_RDP_UXD_CK4
4771 : use pm_kind, only: TKC => CK4
4772 : #include "pm_sampleCov@routines.inc.F90"
4773 50 : end procedure
4774 : #endif
4775 :
4776 : #if CK3_ENABLED
4777 50 : module procedure setCovMeanMergedOld_RDP_UXD_CK3
4778 : use pm_kind, only: TKC => CK3
4779 : #include "pm_sampleCov@routines.inc.F90"
4780 50 : end procedure
4781 : #endif
4782 :
4783 : #if CK2_ENABLED
4784 50 : module procedure setCovMeanMergedOld_RDP_UXD_CK2
4785 : use pm_kind, only: TKC => CK2
4786 : #include "pm_sampleCov@routines.inc.F90"
4787 50 : end procedure
4788 : #endif
4789 :
4790 : #if CK1_ENABLED
4791 50 : module procedure setCovMeanMergedOld_RDP_UXD_CK1
4792 : use pm_kind, only: TKC => CK1
4793 : #include "pm_sampleCov@routines.inc.F90"
4794 50 : end procedure
4795 : #endif
4796 :
4797 : #undef CK_ENABLED
4798 :
4799 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4800 :
4801 : #define RK_ENABLED 1
4802 :
4803 : #if RK5_ENABLED
4804 : module procedure setCovMeanMergedOld_RDP_UXD_RK5
4805 : use pm_kind, only: TKC => RK5
4806 : #include "pm_sampleCov@routines.inc.F90"
4807 : end procedure
4808 : #endif
4809 :
4810 : #if RK4_ENABLED
4811 50 : module procedure setCovMeanMergedOld_RDP_UXD_RK4
4812 : use pm_kind, only: TKC => RK4
4813 : #include "pm_sampleCov@routines.inc.F90"
4814 50 : end procedure
4815 : #endif
4816 :
4817 : #if RK3_ENABLED
4818 50 : module procedure setCovMeanMergedOld_RDP_UXD_RK3
4819 : use pm_kind, only: TKC => RK3
4820 : #include "pm_sampleCov@routines.inc.F90"
4821 50 : end procedure
4822 : #endif
4823 :
4824 : #if RK2_ENABLED
4825 50 : module procedure setCovMeanMergedOld_RDP_UXD_RK2
4826 : use pm_kind, only: TKC => RK2
4827 : #include "pm_sampleCov@routines.inc.F90"
4828 50 : end procedure
4829 : #endif
4830 :
4831 : #if RK1_ENABLED
4832 80 : module procedure setCovMeanMergedOld_RDP_UXD_RK1
4833 : use pm_kind, only: TKC => RK1
4834 : #include "pm_sampleCov@routines.inc.F90"
4835 80 : end procedure
4836 : #endif
4837 :
4838 : #undef RK_ENABLED
4839 :
4840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4841 :
4842 : #undef UXD_ENABLED
4843 :
4844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4847 :
4848 : #define XLD_ENABLED 1
4849 :
4850 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4851 :
4852 : #define CK_ENABLED 1
4853 :
4854 : #if CK5_ENABLED
4855 : module procedure setCovMeanMergedOld_RDP_XLD_CK5
4856 : use pm_kind, only: TKC => CK5
4857 : #include "pm_sampleCov@routines.inc.F90"
4858 : end procedure
4859 : #endif
4860 :
4861 : #if CK4_ENABLED
4862 50 : module procedure setCovMeanMergedOld_RDP_XLD_CK4
4863 : use pm_kind, only: TKC => CK4
4864 : #include "pm_sampleCov@routines.inc.F90"
4865 50 : end procedure
4866 : #endif
4867 :
4868 : #if CK3_ENABLED
4869 50 : module procedure setCovMeanMergedOld_RDP_XLD_CK3
4870 : use pm_kind, only: TKC => CK3
4871 : #include "pm_sampleCov@routines.inc.F90"
4872 50 : end procedure
4873 : #endif
4874 :
4875 : #if CK2_ENABLED
4876 50 : module procedure setCovMeanMergedOld_RDP_XLD_CK2
4877 : use pm_kind, only: TKC => CK2
4878 : #include "pm_sampleCov@routines.inc.F90"
4879 50 : end procedure
4880 : #endif
4881 :
4882 : #if CK1_ENABLED
4883 50 : module procedure setCovMeanMergedOld_RDP_XLD_CK1
4884 : use pm_kind, only: TKC => CK1
4885 : #include "pm_sampleCov@routines.inc.F90"
4886 50 : end procedure
4887 : #endif
4888 :
4889 : #undef CK_ENABLED
4890 :
4891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4892 :
4893 : #define RK_ENABLED 1
4894 :
4895 : #if RK5_ENABLED
4896 : module procedure setCovMeanMergedOld_RDP_XLD_RK5
4897 : use pm_kind, only: TKC => RK5
4898 : #include "pm_sampleCov@routines.inc.F90"
4899 : end procedure
4900 : #endif
4901 :
4902 : #if RK4_ENABLED
4903 50 : module procedure setCovMeanMergedOld_RDP_XLD_RK4
4904 : use pm_kind, only: TKC => RK4
4905 : #include "pm_sampleCov@routines.inc.F90"
4906 50 : end procedure
4907 : #endif
4908 :
4909 : #if RK3_ENABLED
4910 50 : module procedure setCovMeanMergedOld_RDP_XLD_RK3
4911 : use pm_kind, only: TKC => RK3
4912 : #include "pm_sampleCov@routines.inc.F90"
4913 50 : end procedure
4914 : #endif
4915 :
4916 : #if RK2_ENABLED
4917 50 : module procedure setCovMeanMergedOld_RDP_XLD_RK2
4918 : use pm_kind, only: TKC => RK2
4919 : #include "pm_sampleCov@routines.inc.F90"
4920 50 : end procedure
4921 : #endif
4922 :
4923 : #if RK1_ENABLED
4924 50 : module procedure setCovMeanMergedOld_RDP_XLD_RK1
4925 : use pm_kind, only: TKC => RK1
4926 : #include "pm_sampleCov@routines.inc.F90"
4927 50 : end procedure
4928 : #endif
4929 :
4930 : #undef RK_ENABLED
4931 :
4932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4933 :
4934 : #undef XLD_ENABLED
4935 :
4936 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4937 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4939 :
4940 : #undef RDP_ENABLED
4941 :
4942 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4943 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4945 :
4946 : #undef Old_ENABLED
4947 :
4948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4949 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4951 :
4952 : #undef setCovMeanMerged_ENABLED
4953 :
4954 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4955 :
4956 : #undef CHECK_ASSERTION
4957 :
4958 : end submodule routines
|
