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_distanceKolm](@ref pm_distanceKolm).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Oct 16, 2009, 11:14 AM, Michigan
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distanceKolm) 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_arraySort, only: isAscending
40 : use pm_arraySort, only: setSorted
41 : implicit none
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : contains
46 :
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 :
49 : #define getDisKolm_ENABLED 1
50 :
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define D1_ENABLED 1
56 :
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : #define WDD_ENABLED 1
62 :
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 :
67 : #define SSD_ENABLED 1
68 :
69 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
70 :
71 : #define RK_ENABLED 1
72 :
73 : #if RK5_ENABLED
74 : module procedure getDisKolmSSD_WDD_D1_RK5
75 : use pm_kind, only: TKC => RK5
76 : #include "pm_distanceKolm@routines.inc.F90"
77 : end procedure
78 : #endif
79 :
80 : #if RK4_ENABLED
81 0 : module procedure getDisKolmSSD_WDD_D1_RK4
82 : use pm_kind, only: TKC => RK4
83 : #include "pm_distanceKolm@routines.inc.F90"
84 0 : end procedure
85 : #endif
86 :
87 : #if RK3_ENABLED
88 0 : module procedure getDisKolmSSD_WDD_D1_RK3
89 : use pm_kind, only: TKC => RK3
90 : #include "pm_distanceKolm@routines.inc.F90"
91 0 : end procedure
92 : #endif
93 :
94 : #if RK2_ENABLED
95 0 : module procedure getDisKolmSSD_WDD_D1_RK2
96 : use pm_kind, only: TKC => RK2
97 : #include "pm_distanceKolm@routines.inc.F90"
98 0 : end procedure
99 : #endif
100 :
101 : #if RK1_ENABLED
102 50 : module procedure getDisKolmSSD_WDD_D1_RK1
103 : use pm_kind, only: TKC => RK1
104 : #include "pm_distanceKolm@routines.inc.F90"
105 50 : end procedure
106 : #endif
107 :
108 : #undef RK_ENABLED
109 :
110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
111 :
112 : #undef SSD_ENABLED
113 :
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
117 :
118 : #define SSA_ENABLED 1
119 :
120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
121 :
122 : #define RK_ENABLED 1
123 :
124 : #if RK5_ENABLED
125 : module procedure getDisKolmSSA_WDD_D1_RK5
126 : use pm_kind, only: TKC => RK5
127 : #include "pm_distanceKolm@routines.inc.F90"
128 : end procedure
129 : #endif
130 :
131 : #if RK4_ENABLED
132 0 : module procedure getDisKolmSSA_WDD_D1_RK4
133 : use pm_kind, only: TKC => RK4
134 : #include "pm_distanceKolm@routines.inc.F90"
135 0 : end procedure
136 : #endif
137 :
138 : #if RK3_ENABLED
139 0 : module procedure getDisKolmSSA_WDD_D1_RK3
140 : use pm_kind, only: TKC => RK3
141 : #include "pm_distanceKolm@routines.inc.F90"
142 0 : end procedure
143 : #endif
144 :
145 : #if RK2_ENABLED
146 0 : module procedure getDisKolmSSA_WDD_D1_RK2
147 : use pm_kind, only: TKC => RK2
148 : #include "pm_distanceKolm@routines.inc.F90"
149 0 : end procedure
150 : #endif
151 :
152 : #if RK1_ENABLED
153 10 : module procedure getDisKolmSSA_WDD_D1_RK1
154 : use pm_kind, only: TKC => RK1
155 : #include "pm_distanceKolm@routines.inc.F90"
156 10 : end procedure
157 : #endif
158 :
159 : #undef RK_ENABLED
160 :
161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 :
163 : #undef SSA_ENABLED
164 :
165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168 :
169 : #undef WDD_ENABLED
170 :
171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
174 :
175 : #define WID_ENABLED 1
176 :
177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
180 :
181 : #define SSD_ENABLED 1
182 :
183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
184 :
185 : #define RK_ENABLED 1
186 :
187 : #if RK5_ENABLED
188 : module procedure getDisKolmSSD_WID_D1_RK5
189 : use pm_kind, only: TKC => RK5
190 : #include "pm_distanceKolm@routines.inc.F90"
191 : end procedure
192 : #endif
193 :
194 : #if RK4_ENABLED
195 0 : module procedure getDisKolmSSD_WID_D1_RK4
196 : use pm_kind, only: TKC => RK4
197 : #include "pm_distanceKolm@routines.inc.F90"
198 0 : end procedure
199 : #endif
200 :
201 : #if RK3_ENABLED
202 0 : module procedure getDisKolmSSD_WID_D1_RK3
203 : use pm_kind, only: TKC => RK3
204 : #include "pm_distanceKolm@routines.inc.F90"
205 0 : end procedure
206 : #endif
207 :
208 : #if RK2_ENABLED
209 0 : module procedure getDisKolmSSD_WID_D1_RK2
210 : use pm_kind, only: TKC => RK2
211 : #include "pm_distanceKolm@routines.inc.F90"
212 0 : end procedure
213 : #endif
214 :
215 : #if RK1_ENABLED
216 30 : module procedure getDisKolmSSD_WID_D1_RK1
217 : use pm_kind, only: TKC => RK1
218 : #include "pm_distanceKolm@routines.inc.F90"
219 30 : end procedure
220 : #endif
221 :
222 : #undef RK_ENABLED
223 :
224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
225 :
226 : #undef SSD_ENABLED
227 :
228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
230 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
231 :
232 : #define SSA_ENABLED 1
233 :
234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
235 :
236 : #define RK_ENABLED 1
237 :
238 : #if RK5_ENABLED
239 : module procedure getDisKolmSSA_WID_D1_RK5
240 : use pm_kind, only: TKC => RK5
241 : #include "pm_distanceKolm@routines.inc.F90"
242 : end procedure
243 : #endif
244 :
245 : #if RK4_ENABLED
246 0 : module procedure getDisKolmSSA_WID_D1_RK4
247 : use pm_kind, only: TKC => RK4
248 : #include "pm_distanceKolm@routines.inc.F90"
249 0 : end procedure
250 : #endif
251 :
252 : #if RK3_ENABLED
253 0 : module procedure getDisKolmSSA_WID_D1_RK3
254 : use pm_kind, only: TKC => RK3
255 : #include "pm_distanceKolm@routines.inc.F90"
256 0 : end procedure
257 : #endif
258 :
259 : #if RK2_ENABLED
260 0 : module procedure getDisKolmSSA_WID_D1_RK2
261 : use pm_kind, only: TKC => RK2
262 : #include "pm_distanceKolm@routines.inc.F90"
263 0 : end procedure
264 : #endif
265 :
266 : #if RK1_ENABLED
267 0 : module procedure getDisKolmSSA_WID_D1_RK1
268 : use pm_kind, only: TKC => RK1
269 : #include "pm_distanceKolm@routines.inc.F90"
270 0 : end procedure
271 : #endif
272 :
273 : #undef RK_ENABLED
274 :
275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
276 :
277 : #undef SSA_ENABLED
278 :
279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
282 :
283 : #undef WID_ENABLED
284 :
285 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
288 :
289 : #define WRD_ENABLED 1
290 :
291 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
292 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
293 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
294 :
295 : #define SSD_ENABLED 1
296 :
297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
298 :
299 : #define RK_ENABLED 1
300 :
301 : #if RK5_ENABLED
302 : module procedure getDisKolmSSD_WRD_D1_RK5
303 : use pm_kind, only: TKC => RK5
304 : #include "pm_distanceKolm@routines.inc.F90"
305 : end procedure
306 : #endif
307 :
308 : #if RK4_ENABLED
309 0 : module procedure getDisKolmSSD_WRD_D1_RK4
310 : use pm_kind, only: TKC => RK4
311 : #include "pm_distanceKolm@routines.inc.F90"
312 0 : end procedure
313 : #endif
314 :
315 : #if RK3_ENABLED
316 0 : module procedure getDisKolmSSD_WRD_D1_RK3
317 : use pm_kind, only: TKC => RK3
318 : #include "pm_distanceKolm@routines.inc.F90"
319 0 : end procedure
320 : #endif
321 :
322 : #if RK2_ENABLED
323 0 : module procedure getDisKolmSSD_WRD_D1_RK2
324 : use pm_kind, only: TKC => RK2
325 : #include "pm_distanceKolm@routines.inc.F90"
326 0 : end procedure
327 : #endif
328 :
329 : #if RK1_ENABLED
330 30 : module procedure getDisKolmSSD_WRD_D1_RK1
331 : use pm_kind, only: TKC => RK1
332 : #include "pm_distanceKolm@routines.inc.F90"
333 30 : end procedure
334 : #endif
335 :
336 : #undef RK_ENABLED
337 :
338 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
339 :
340 : #undef SSD_ENABLED
341 :
342 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
344 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
345 :
346 : #define SSA_ENABLED 1
347 :
348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349 :
350 : #define RK_ENABLED 1
351 :
352 : #if RK5_ENABLED
353 : module procedure getDisKolmSSA_WRD_D1_RK5
354 : use pm_kind, only: TKC => RK5
355 : #include "pm_distanceKolm@routines.inc.F90"
356 : end procedure
357 : #endif
358 :
359 : #if RK4_ENABLED
360 0 : module procedure getDisKolmSSA_WRD_D1_RK4
361 : use pm_kind, only: TKC => RK4
362 : #include "pm_distanceKolm@routines.inc.F90"
363 0 : end procedure
364 : #endif
365 :
366 : #if RK3_ENABLED
367 0 : module procedure getDisKolmSSA_WRD_D1_RK3
368 : use pm_kind, only: TKC => RK3
369 : #include "pm_distanceKolm@routines.inc.F90"
370 0 : end procedure
371 : #endif
372 :
373 : #if RK2_ENABLED
374 0 : module procedure getDisKolmSSA_WRD_D1_RK2
375 : use pm_kind, only: TKC => RK2
376 : #include "pm_distanceKolm@routines.inc.F90"
377 0 : end procedure
378 : #endif
379 :
380 : #if RK1_ENABLED
381 0 : module procedure getDisKolmSSA_WRD_D1_RK1
382 : use pm_kind, only: TKC => RK1
383 : #include "pm_distanceKolm@routines.inc.F90"
384 0 : end procedure
385 : #endif
386 :
387 : #undef RK_ENABLED
388 :
389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390 :
391 : #undef SSA_ENABLED
392 :
393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 :
397 : #undef WRD_ENABLED
398 :
399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
402 :
403 : #define WII_ENABLED 1
404 :
405 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
407 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408 :
409 : #define SSD_ENABLED 1
410 :
411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412 :
413 : #define RK_ENABLED 1
414 :
415 : #if RK5_ENABLED
416 : module procedure getDisKolmSSD_WII_D1_RK5
417 : use pm_kind, only: TKC => RK5
418 : #include "pm_distanceKolm@routines.inc.F90"
419 : end procedure
420 : #endif
421 :
422 : #if RK4_ENABLED
423 0 : module procedure getDisKolmSSD_WII_D1_RK4
424 : use pm_kind, only: TKC => RK4
425 : #include "pm_distanceKolm@routines.inc.F90"
426 0 : end procedure
427 : #endif
428 :
429 : #if RK3_ENABLED
430 0 : module procedure getDisKolmSSD_WII_D1_RK3
431 : use pm_kind, only: TKC => RK3
432 : #include "pm_distanceKolm@routines.inc.F90"
433 0 : end procedure
434 : #endif
435 :
436 : #if RK2_ENABLED
437 0 : module procedure getDisKolmSSD_WII_D1_RK2
438 : use pm_kind, only: TKC => RK2
439 : #include "pm_distanceKolm@routines.inc.F90"
440 0 : end procedure
441 : #endif
442 :
443 : #if RK1_ENABLED
444 30 : module procedure getDisKolmSSD_WII_D1_RK1
445 : use pm_kind, only: TKC => RK1
446 : #include "pm_distanceKolm@routines.inc.F90"
447 30 : end procedure
448 : #endif
449 :
450 : #undef RK_ENABLED
451 :
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 :
454 : #undef SSD_ENABLED
455 :
456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
459 :
460 : #define SSA_ENABLED 1
461 :
462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
463 :
464 : #define RK_ENABLED 1
465 :
466 : #if RK5_ENABLED
467 : module procedure getDisKolmSSA_WII_D1_RK5
468 : use pm_kind, only: TKC => RK5
469 : #include "pm_distanceKolm@routines.inc.F90"
470 : end procedure
471 : #endif
472 :
473 : #if RK4_ENABLED
474 0 : module procedure getDisKolmSSA_WII_D1_RK4
475 : use pm_kind, only: TKC => RK4
476 : #include "pm_distanceKolm@routines.inc.F90"
477 0 : end procedure
478 : #endif
479 :
480 : #if RK3_ENABLED
481 0 : module procedure getDisKolmSSA_WII_D1_RK3
482 : use pm_kind, only: TKC => RK3
483 : #include "pm_distanceKolm@routines.inc.F90"
484 0 : end procedure
485 : #endif
486 :
487 : #if RK2_ENABLED
488 0 : module procedure getDisKolmSSA_WII_D1_RK2
489 : use pm_kind, only: TKC => RK2
490 : #include "pm_distanceKolm@routines.inc.F90"
491 0 : end procedure
492 : #endif
493 :
494 : #if RK1_ENABLED
495 0 : module procedure getDisKolmSSA_WII_D1_RK1
496 : use pm_kind, only: TKC => RK1
497 : #include "pm_distanceKolm@routines.inc.F90"
498 0 : end procedure
499 : #endif
500 :
501 : #undef RK_ENABLED
502 :
503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
504 :
505 : #undef SSA_ENABLED
506 :
507 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
510 :
511 : #undef WII_ENABLED
512 :
513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516 :
517 : #define WRR_ENABLED 1
518 :
519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
522 :
523 : #define SSD_ENABLED 1
524 :
525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
526 :
527 : #define RK_ENABLED 1
528 :
529 : #if RK5_ENABLED
530 : module procedure getDisKolmSSD_WRR_D1_RK5
531 : use pm_kind, only: TKC => RK5
532 : #include "pm_distanceKolm@routines.inc.F90"
533 : end procedure
534 : #endif
535 :
536 : #if RK4_ENABLED
537 0 : module procedure getDisKolmSSD_WRR_D1_RK4
538 : use pm_kind, only: TKC => RK4
539 : #include "pm_distanceKolm@routines.inc.F90"
540 0 : end procedure
541 : #endif
542 :
543 : #if RK3_ENABLED
544 0 : module procedure getDisKolmSSD_WRR_D1_RK3
545 : use pm_kind, only: TKC => RK3
546 : #include "pm_distanceKolm@routines.inc.F90"
547 0 : end procedure
548 : #endif
549 :
550 : #if RK2_ENABLED
551 0 : module procedure getDisKolmSSD_WRR_D1_RK2
552 : use pm_kind, only: TKC => RK2
553 : #include "pm_distanceKolm@routines.inc.F90"
554 0 : end procedure
555 : #endif
556 :
557 : #if RK1_ENABLED
558 30 : module procedure getDisKolmSSD_WRR_D1_RK1
559 : use pm_kind, only: TKC => RK1
560 : #include "pm_distanceKolm@routines.inc.F90"
561 30 : end procedure
562 : #endif
563 :
564 : #undef RK_ENABLED
565 :
566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
567 :
568 : #undef SSD_ENABLED
569 :
570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
573 :
574 : #define SSA_ENABLED 1
575 :
576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577 :
578 : #define RK_ENABLED 1
579 :
580 : #if RK5_ENABLED
581 : module procedure getDisKolmSSA_WRR_D1_RK5
582 : use pm_kind, only: TKC => RK5
583 : #include "pm_distanceKolm@routines.inc.F90"
584 : end procedure
585 : #endif
586 :
587 : #if RK4_ENABLED
588 0 : module procedure getDisKolmSSA_WRR_D1_RK4
589 : use pm_kind, only: TKC => RK4
590 : #include "pm_distanceKolm@routines.inc.F90"
591 0 : end procedure
592 : #endif
593 :
594 : #if RK3_ENABLED
595 0 : module procedure getDisKolmSSA_WRR_D1_RK3
596 : use pm_kind, only: TKC => RK3
597 : #include "pm_distanceKolm@routines.inc.F90"
598 0 : end procedure
599 : #endif
600 :
601 : #if RK2_ENABLED
602 0 : module procedure getDisKolmSSA_WRR_D1_RK2
603 : use pm_kind, only: TKC => RK2
604 : #include "pm_distanceKolm@routines.inc.F90"
605 0 : end procedure
606 : #endif
607 :
608 : #if RK1_ENABLED
609 0 : module procedure getDisKolmSSA_WRR_D1_RK1
610 : use pm_kind, only: TKC => RK1
611 : #include "pm_distanceKolm@routines.inc.F90"
612 0 : end procedure
613 : #endif
614 :
615 : #undef RK_ENABLED
616 :
617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
618 :
619 : #undef SSA_ENABLED
620 :
621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624 :
625 : #undef WRR_ENABLED
626 :
627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 :
631 : #define WDD_ENABLED 1
632 :
633 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
635 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
636 :
637 : #define SXD_ENABLED 1
638 :
639 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
640 :
641 : #define RK_ENABLED 1
642 :
643 : #if RK5_ENABLED
644 : module procedure getDisKolmSXD_WDD_D1_RK5
645 : use pm_kind, only: TKC => RK5
646 : #include "pm_distanceKolm@routines.inc.F90"
647 : end procedure
648 : #endif
649 :
650 : #if RK4_ENABLED
651 0 : module procedure getDisKolmSXD_WDD_D1_RK4
652 : use pm_kind, only: TKC => RK4
653 : #include "pm_distanceKolm@routines.inc.F90"
654 0 : end procedure
655 : #endif
656 :
657 : #if RK3_ENABLED
658 0 : module procedure getDisKolmSXD_WDD_D1_RK3
659 : use pm_kind, only: TKC => RK3
660 : #include "pm_distanceKolm@routines.inc.F90"
661 0 : end procedure
662 : #endif
663 :
664 : #if RK2_ENABLED
665 0 : module procedure getDisKolmSXD_WDD_D1_RK2
666 : use pm_kind, only: TKC => RK2
667 : #include "pm_distanceKolm@routines.inc.F90"
668 0 : end procedure
669 : #endif
670 :
671 : #if RK1_ENABLED
672 40 : module procedure getDisKolmSXD_WDD_D1_RK1
673 : use pm_kind, only: TKC => RK1
674 : #include "pm_distanceKolm@routines.inc.F90"
675 40 : end procedure
676 : #endif
677 :
678 : #undef RK_ENABLED
679 :
680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
681 :
682 : #undef SXD_ENABLED
683 :
684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
685 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
687 :
688 : #define SXA_ENABLED 1
689 :
690 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
691 :
692 : #define RK_ENABLED 1
693 :
694 : #if RK5_ENABLED
695 : module procedure getDisKolmSXA_WDD_D1_RK5
696 : use pm_kind, only: TKC => RK5
697 : #include "pm_distanceKolm@routines.inc.F90"
698 : end procedure
699 : #endif
700 :
701 : #if RK4_ENABLED
702 0 : module procedure getDisKolmSXA_WDD_D1_RK4
703 : use pm_kind, only: TKC => RK4
704 : #include "pm_distanceKolm@routines.inc.F90"
705 0 : end procedure
706 : #endif
707 :
708 : #if RK3_ENABLED
709 0 : module procedure getDisKolmSXA_WDD_D1_RK3
710 : use pm_kind, only: TKC => RK3
711 : #include "pm_distanceKolm@routines.inc.F90"
712 0 : end procedure
713 : #endif
714 :
715 : #if RK2_ENABLED
716 0 : module procedure getDisKolmSXA_WDD_D1_RK2
717 : use pm_kind, only: TKC => RK2
718 : #include "pm_distanceKolm@routines.inc.F90"
719 0 : end procedure
720 : #endif
721 :
722 : #if RK1_ENABLED
723 10 : module procedure getDisKolmSXA_WDD_D1_RK1
724 : use pm_kind, only: TKC => RK1
725 : #include "pm_distanceKolm@routines.inc.F90"
726 10 : end procedure
727 : #endif
728 :
729 : #undef RK_ENABLED
730 :
731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
732 :
733 : #undef SXA_ENABLED
734 :
735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738 :
739 : #undef WDD_ENABLED
740 :
741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
744 :
745 : #define WID_ENABLED 1
746 :
747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
750 :
751 : #define SXD_ENABLED 1
752 :
753 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
754 :
755 : #define RK_ENABLED 1
756 :
757 : #if RK5_ENABLED
758 : module procedure getDisKolmSXD_WID_D1_RK5
759 : use pm_kind, only: TKC => RK5
760 : #include "pm_distanceKolm@routines.inc.F90"
761 : end procedure
762 : #endif
763 :
764 : #if RK4_ENABLED
765 0 : module procedure getDisKolmSXD_WID_D1_RK4
766 : use pm_kind, only: TKC => RK4
767 : #include "pm_distanceKolm@routines.inc.F90"
768 0 : end procedure
769 : #endif
770 :
771 : #if RK3_ENABLED
772 0 : module procedure getDisKolmSXD_WID_D1_RK3
773 : use pm_kind, only: TKC => RK3
774 : #include "pm_distanceKolm@routines.inc.F90"
775 0 : end procedure
776 : #endif
777 :
778 : #if RK2_ENABLED
779 0 : module procedure getDisKolmSXD_WID_D1_RK2
780 : use pm_kind, only: TKC => RK2
781 : #include "pm_distanceKolm@routines.inc.F90"
782 0 : end procedure
783 : #endif
784 :
785 : #if RK1_ENABLED
786 30 : module procedure getDisKolmSXD_WID_D1_RK1
787 : use pm_kind, only: TKC => RK1
788 : #include "pm_distanceKolm@routines.inc.F90"
789 30 : end procedure
790 : #endif
791 :
792 : #undef RK_ENABLED
793 :
794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
795 :
796 : #undef SXD_ENABLED
797 :
798 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
799 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
800 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
801 :
802 : #define SXA_ENABLED 1
803 :
804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
805 :
806 : #define RK_ENABLED 1
807 :
808 : #if RK5_ENABLED
809 : module procedure getDisKolmSXA_WID_D1_RK5
810 : use pm_kind, only: TKC => RK5
811 : #include "pm_distanceKolm@routines.inc.F90"
812 : end procedure
813 : #endif
814 :
815 : #if RK4_ENABLED
816 0 : module procedure getDisKolmSXA_WID_D1_RK4
817 : use pm_kind, only: TKC => RK4
818 : #include "pm_distanceKolm@routines.inc.F90"
819 0 : end procedure
820 : #endif
821 :
822 : #if RK3_ENABLED
823 0 : module procedure getDisKolmSXA_WID_D1_RK3
824 : use pm_kind, only: TKC => RK3
825 : #include "pm_distanceKolm@routines.inc.F90"
826 0 : end procedure
827 : #endif
828 :
829 : #if RK2_ENABLED
830 0 : module procedure getDisKolmSXA_WID_D1_RK2
831 : use pm_kind, only: TKC => RK2
832 : #include "pm_distanceKolm@routines.inc.F90"
833 0 : end procedure
834 : #endif
835 :
836 : #if RK1_ENABLED
837 0 : module procedure getDisKolmSXA_WID_D1_RK1
838 : use pm_kind, only: TKC => RK1
839 : #include "pm_distanceKolm@routines.inc.F90"
840 0 : end procedure
841 : #endif
842 :
843 : #undef RK_ENABLED
844 :
845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846 :
847 : #undef SXA_ENABLED
848 :
849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
850 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
852 :
853 : #undef WID_ENABLED
854 :
855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
856 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
857 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
858 :
859 : #define WRD_ENABLED 1
860 :
861 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
862 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
864 :
865 : #define SXD_ENABLED 1
866 :
867 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
868 :
869 : #define RK_ENABLED 1
870 :
871 : #if RK5_ENABLED
872 : module procedure getDisKolmSXD_WRD_D1_RK5
873 : use pm_kind, only: TKC => RK5
874 : #include "pm_distanceKolm@routines.inc.F90"
875 : end procedure
876 : #endif
877 :
878 : #if RK4_ENABLED
879 0 : module procedure getDisKolmSXD_WRD_D1_RK4
880 : use pm_kind, only: TKC => RK4
881 : #include "pm_distanceKolm@routines.inc.F90"
882 0 : end procedure
883 : #endif
884 :
885 : #if RK3_ENABLED
886 0 : module procedure getDisKolmSXD_WRD_D1_RK3
887 : use pm_kind, only: TKC => RK3
888 : #include "pm_distanceKolm@routines.inc.F90"
889 0 : end procedure
890 : #endif
891 :
892 : #if RK2_ENABLED
893 0 : module procedure getDisKolmSXD_WRD_D1_RK2
894 : use pm_kind, only: TKC => RK2
895 : #include "pm_distanceKolm@routines.inc.F90"
896 0 : end procedure
897 : #endif
898 :
899 : #if RK1_ENABLED
900 30 : module procedure getDisKolmSXD_WRD_D1_RK1
901 : use pm_kind, only: TKC => RK1
902 : #include "pm_distanceKolm@routines.inc.F90"
903 30 : end procedure
904 : #endif
905 :
906 : #undef RK_ENABLED
907 :
908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
909 :
910 : #undef SXD_ENABLED
911 :
912 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
913 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
914 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
915 :
916 : #define SXA_ENABLED 1
917 :
918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
919 :
920 : #define RK_ENABLED 1
921 :
922 : #if RK5_ENABLED
923 : module procedure getDisKolmSXA_WRD_D1_RK5
924 : use pm_kind, only: TKC => RK5
925 : #include "pm_distanceKolm@routines.inc.F90"
926 : end procedure
927 : #endif
928 :
929 : #if RK4_ENABLED
930 0 : module procedure getDisKolmSXA_WRD_D1_RK4
931 : use pm_kind, only: TKC => RK4
932 : #include "pm_distanceKolm@routines.inc.F90"
933 0 : end procedure
934 : #endif
935 :
936 : #if RK3_ENABLED
937 0 : module procedure getDisKolmSXA_WRD_D1_RK3
938 : use pm_kind, only: TKC => RK3
939 : #include "pm_distanceKolm@routines.inc.F90"
940 0 : end procedure
941 : #endif
942 :
943 : #if RK2_ENABLED
944 0 : module procedure getDisKolmSXA_WRD_D1_RK2
945 : use pm_kind, only: TKC => RK2
946 : #include "pm_distanceKolm@routines.inc.F90"
947 0 : end procedure
948 : #endif
949 :
950 : #if RK1_ENABLED
951 0 : module procedure getDisKolmSXA_WRD_D1_RK1
952 : use pm_kind, only: TKC => RK1
953 : #include "pm_distanceKolm@routines.inc.F90"
954 0 : end procedure
955 : #endif
956 :
957 : #undef RK_ENABLED
958 :
959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
960 :
961 : #undef SXA_ENABLED
962 :
963 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
966 :
967 : #undef WRD_ENABLED
968 :
969 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
972 :
973 : #define WDD_ENABLED 1
974 :
975 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
977 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
978 :
979 : #define SCD_ENABLED 1
980 :
981 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
982 :
983 : #define RK_ENABLED 1
984 :
985 : #if RK5_ENABLED
986 : module procedure getDisKolmSCD_WDD_D1_RK5
987 : use pm_kind, only: TKC => RK5
988 : #include "pm_distanceKolm@routines.inc.F90"
989 : end procedure
990 : #endif
991 :
992 : #if RK4_ENABLED
993 0 : module procedure getDisKolmSCD_WDD_D1_RK4
994 : use pm_kind, only: TKC => RK4
995 : #include "pm_distanceKolm@routines.inc.F90"
996 0 : end procedure
997 : #endif
998 :
999 : #if RK3_ENABLED
1000 0 : module procedure getDisKolmSCD_WDD_D1_RK3
1001 : use pm_kind, only: TKC => RK3
1002 : #include "pm_distanceKolm@routines.inc.F90"
1003 0 : end procedure
1004 : #endif
1005 :
1006 : #if RK2_ENABLED
1007 0 : module procedure getDisKolmSCD_WDD_D1_RK2
1008 : use pm_kind, only: TKC => RK2
1009 : #include "pm_distanceKolm@routines.inc.F90"
1010 0 : end procedure
1011 : #endif
1012 :
1013 : #if RK1_ENABLED
1014 40 : module procedure getDisKolmSCD_WDD_D1_RK1
1015 : use pm_kind, only: TKC => RK1
1016 : #include "pm_distanceKolm@routines.inc.F90"
1017 40 : end procedure
1018 : #endif
1019 :
1020 : #undef RK_ENABLED
1021 :
1022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1023 :
1024 : #undef SCD_ENABLED
1025 :
1026 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1027 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1028 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1029 :
1030 : #define SCA_ENABLED 1
1031 :
1032 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1033 :
1034 : #define RK_ENABLED 1
1035 :
1036 : #if RK5_ENABLED
1037 : module procedure getDisKolmSCA_WDD_D1_RK5
1038 : use pm_kind, only: TKC => RK5
1039 : #include "pm_distanceKolm@routines.inc.F90"
1040 : end procedure
1041 : #endif
1042 :
1043 : #if RK4_ENABLED
1044 0 : module procedure getDisKolmSCA_WDD_D1_RK4
1045 : use pm_kind, only: TKC => RK4
1046 : #include "pm_distanceKolm@routines.inc.F90"
1047 0 : end procedure
1048 : #endif
1049 :
1050 : #if RK3_ENABLED
1051 0 : module procedure getDisKolmSCA_WDD_D1_RK3
1052 : use pm_kind, only: TKC => RK3
1053 : #include "pm_distanceKolm@routines.inc.F90"
1054 0 : end procedure
1055 : #endif
1056 :
1057 : #if RK2_ENABLED
1058 0 : module procedure getDisKolmSCA_WDD_D1_RK2
1059 : use pm_kind, only: TKC => RK2
1060 : #include "pm_distanceKolm@routines.inc.F90"
1061 0 : end procedure
1062 : #endif
1063 :
1064 : #if RK1_ENABLED
1065 10 : module procedure getDisKolmSCA_WDD_D1_RK1
1066 : use pm_kind, only: TKC => RK1
1067 : #include "pm_distanceKolm@routines.inc.F90"
1068 10 : end procedure
1069 : #endif
1070 :
1071 : #undef RK_ENABLED
1072 :
1073 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1074 :
1075 : #undef SCA_ENABLED
1076 :
1077 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1078 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1079 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1080 :
1081 : #undef WDD_ENABLED
1082 :
1083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1084 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1086 :
1087 : #define WID_ENABLED 1
1088 :
1089 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1090 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1092 :
1093 : #define SCD_ENABLED 1
1094 :
1095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1096 :
1097 : #define RK_ENABLED 1
1098 :
1099 : #if RK5_ENABLED
1100 : module procedure getDisKolmSCD_WID_D1_RK5
1101 : use pm_kind, only: TKC => RK5
1102 : #include "pm_distanceKolm@routines.inc.F90"
1103 : end procedure
1104 : #endif
1105 :
1106 : #if RK4_ENABLED
1107 0 : module procedure getDisKolmSCD_WID_D1_RK4
1108 : use pm_kind, only: TKC => RK4
1109 : #include "pm_distanceKolm@routines.inc.F90"
1110 0 : end procedure
1111 : #endif
1112 :
1113 : #if RK3_ENABLED
1114 0 : module procedure getDisKolmSCD_WID_D1_RK3
1115 : use pm_kind, only: TKC => RK3
1116 : #include "pm_distanceKolm@routines.inc.F90"
1117 0 : end procedure
1118 : #endif
1119 :
1120 : #if RK2_ENABLED
1121 0 : module procedure getDisKolmSCD_WID_D1_RK2
1122 : use pm_kind, only: TKC => RK2
1123 : #include "pm_distanceKolm@routines.inc.F90"
1124 0 : end procedure
1125 : #endif
1126 :
1127 : #if RK1_ENABLED
1128 30 : module procedure getDisKolmSCD_WID_D1_RK1
1129 : use pm_kind, only: TKC => RK1
1130 : #include "pm_distanceKolm@routines.inc.F90"
1131 30 : end procedure
1132 : #endif
1133 :
1134 : #undef RK_ENABLED
1135 :
1136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1137 :
1138 : #undef SCD_ENABLED
1139 :
1140 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1141 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1143 :
1144 : #define SCA_ENABLED 1
1145 :
1146 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1147 :
1148 : #define RK_ENABLED 1
1149 :
1150 : #if RK5_ENABLED
1151 : module procedure getDisKolmSCA_WID_D1_RK5
1152 : use pm_kind, only: TKC => RK5
1153 : #include "pm_distanceKolm@routines.inc.F90"
1154 : end procedure
1155 : #endif
1156 :
1157 : #if RK4_ENABLED
1158 0 : module procedure getDisKolmSCA_WID_D1_RK4
1159 : use pm_kind, only: TKC => RK4
1160 : #include "pm_distanceKolm@routines.inc.F90"
1161 0 : end procedure
1162 : #endif
1163 :
1164 : #if RK3_ENABLED
1165 0 : module procedure getDisKolmSCA_WID_D1_RK3
1166 : use pm_kind, only: TKC => RK3
1167 : #include "pm_distanceKolm@routines.inc.F90"
1168 0 : end procedure
1169 : #endif
1170 :
1171 : #if RK2_ENABLED
1172 0 : module procedure getDisKolmSCA_WID_D1_RK2
1173 : use pm_kind, only: TKC => RK2
1174 : #include "pm_distanceKolm@routines.inc.F90"
1175 0 : end procedure
1176 : #endif
1177 :
1178 : #if RK1_ENABLED
1179 0 : module procedure getDisKolmSCA_WID_D1_RK1
1180 : use pm_kind, only: TKC => RK1
1181 : #include "pm_distanceKolm@routines.inc.F90"
1182 0 : end procedure
1183 : #endif
1184 :
1185 : #undef RK_ENABLED
1186 :
1187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1188 :
1189 : #undef SCA_ENABLED
1190 :
1191 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1192 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1194 :
1195 : #undef WID_ENABLED
1196 :
1197 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1198 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1199 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1200 :
1201 : #define WRD_ENABLED 1
1202 :
1203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1206 :
1207 : #define SCD_ENABLED 1
1208 :
1209 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1210 :
1211 : #define RK_ENABLED 1
1212 :
1213 : #if RK5_ENABLED
1214 : module procedure getDisKolmSCD_WRD_D1_RK5
1215 : use pm_kind, only: TKC => RK5
1216 : #include "pm_distanceKolm@routines.inc.F90"
1217 : end procedure
1218 : #endif
1219 :
1220 : #if RK4_ENABLED
1221 0 : module procedure getDisKolmSCD_WRD_D1_RK4
1222 : use pm_kind, only: TKC => RK4
1223 : #include "pm_distanceKolm@routines.inc.F90"
1224 0 : end procedure
1225 : #endif
1226 :
1227 : #if RK3_ENABLED
1228 0 : module procedure getDisKolmSCD_WRD_D1_RK3
1229 : use pm_kind, only: TKC => RK3
1230 : #include "pm_distanceKolm@routines.inc.F90"
1231 0 : end procedure
1232 : #endif
1233 :
1234 : #if RK2_ENABLED
1235 0 : module procedure getDisKolmSCD_WRD_D1_RK2
1236 : use pm_kind, only: TKC => RK2
1237 : #include "pm_distanceKolm@routines.inc.F90"
1238 0 : end procedure
1239 : #endif
1240 :
1241 : #if RK1_ENABLED
1242 30 : module procedure getDisKolmSCD_WRD_D1_RK1
1243 : use pm_kind, only: TKC => RK1
1244 : #include "pm_distanceKolm@routines.inc.F90"
1245 30 : end procedure
1246 : #endif
1247 :
1248 : #undef RK_ENABLED
1249 :
1250 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1251 :
1252 : #undef SCD_ENABLED
1253 :
1254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1255 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1257 :
1258 : #define SCA_ENABLED 1
1259 :
1260 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1261 :
1262 : #define RK_ENABLED 1
1263 :
1264 : #if RK5_ENABLED
1265 : module procedure getDisKolmSCA_WRD_D1_RK5
1266 : use pm_kind, only: TKC => RK5
1267 : #include "pm_distanceKolm@routines.inc.F90"
1268 : end procedure
1269 : #endif
1270 :
1271 : #if RK4_ENABLED
1272 0 : module procedure getDisKolmSCA_WRD_D1_RK4
1273 : use pm_kind, only: TKC => RK4
1274 : #include "pm_distanceKolm@routines.inc.F90"
1275 0 : end procedure
1276 : #endif
1277 :
1278 : #if RK3_ENABLED
1279 0 : module procedure getDisKolmSCA_WRD_D1_RK3
1280 : use pm_kind, only: TKC => RK3
1281 : #include "pm_distanceKolm@routines.inc.F90"
1282 0 : end procedure
1283 : #endif
1284 :
1285 : #if RK2_ENABLED
1286 0 : module procedure getDisKolmSCA_WRD_D1_RK2
1287 : use pm_kind, only: TKC => RK2
1288 : #include "pm_distanceKolm@routines.inc.F90"
1289 0 : end procedure
1290 : #endif
1291 :
1292 : #if RK1_ENABLED
1293 0 : module procedure getDisKolmSCA_WRD_D1_RK1
1294 : use pm_kind, only: TKC => RK1
1295 : #include "pm_distanceKolm@routines.inc.F90"
1296 0 : end procedure
1297 : #endif
1298 :
1299 : #undef RK_ENABLED
1300 :
1301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1302 :
1303 : #undef SCA_ENABLED
1304 :
1305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1308 :
1309 : #undef WRD_ENABLED
1310 :
1311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1314 :
1315 : #undef D1_ENABLED
1316 :
1317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1320 :
1321 : #undef getDisKolm_ENABLED
1322 :
1323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1324 :
1325 : #define setDisKolm_ENABLED 1
1326 :
1327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1330 :
1331 : #define D1_ENABLED 1
1332 :
1333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1336 :
1337 : #define WDD_ENABLED 1
1338 :
1339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1342 :
1343 : #define SSD_ENABLED 1
1344 :
1345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1346 :
1347 : #define RK_ENABLED 1
1348 :
1349 : #if RK5_ENABLED
1350 : module procedure setDisKolmSSD_WDD_D1_RK5
1351 : use pm_kind, only: TKC => RK5
1352 : #include "pm_distanceKolm@routines.inc.F90"
1353 : end procedure
1354 : #endif
1355 :
1356 : #if RK4_ENABLED
1357 0 : module procedure setDisKolmSSD_WDD_D1_RK4
1358 : use pm_kind, only: TKC => RK4
1359 : #include "pm_distanceKolm@routines.inc.F90"
1360 0 : end procedure
1361 : #endif
1362 :
1363 : #if RK3_ENABLED
1364 0 : module procedure setDisKolmSSD_WDD_D1_RK3
1365 : use pm_kind, only: TKC => RK3
1366 : #include "pm_distanceKolm@routines.inc.F90"
1367 0 : end procedure
1368 : #endif
1369 :
1370 : #if RK2_ENABLED
1371 0 : module procedure setDisKolmSSD_WDD_D1_RK2
1372 : use pm_kind, only: TKC => RK2
1373 : #include "pm_distanceKolm@routines.inc.F90"
1374 0 : end procedure
1375 : #endif
1376 :
1377 : #if RK1_ENABLED
1378 60 : module procedure setDisKolmSSD_WDD_D1_RK1
1379 : use pm_kind, only: TKC => RK1
1380 : #include "pm_distanceKolm@routines.inc.F90"
1381 60 : end procedure
1382 : #endif
1383 :
1384 : #undef RK_ENABLED
1385 :
1386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1387 :
1388 : #undef SSD_ENABLED
1389 :
1390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1393 :
1394 : #define SSA_ENABLED 1
1395 :
1396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1397 :
1398 : #define RK_ENABLED 1
1399 :
1400 : #if RK5_ENABLED
1401 : module procedure setDisKolmSSA_WDD_D1_RK5
1402 : use pm_kind, only: TKC => RK5
1403 : #include "pm_distanceKolm@routines.inc.F90"
1404 : end procedure
1405 : #endif
1406 :
1407 : #if RK4_ENABLED
1408 0 : module procedure setDisKolmSSA_WDD_D1_RK4
1409 : use pm_kind, only: TKC => RK4
1410 : #include "pm_distanceKolm@routines.inc.F90"
1411 0 : end procedure
1412 : #endif
1413 :
1414 : #if RK3_ENABLED
1415 0 : module procedure setDisKolmSSA_WDD_D1_RK3
1416 : use pm_kind, only: TKC => RK3
1417 : #include "pm_distanceKolm@routines.inc.F90"
1418 0 : end procedure
1419 : #endif
1420 :
1421 : #if RK2_ENABLED
1422 0 : module procedure setDisKolmSSA_WDD_D1_RK2
1423 : use pm_kind, only: TKC => RK2
1424 : #include "pm_distanceKolm@routines.inc.F90"
1425 0 : end procedure
1426 : #endif
1427 :
1428 : #if RK1_ENABLED
1429 90 : module procedure setDisKolmSSA_WDD_D1_RK1
1430 : use pm_kind, only: TKC => RK1
1431 : #include "pm_distanceKolm@routines.inc.F90"
1432 90 : end procedure
1433 : #endif
1434 :
1435 : #undef RK_ENABLED
1436 :
1437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1438 :
1439 : #undef SSA_ENABLED
1440 :
1441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1444 :
1445 : #undef WDD_ENABLED
1446 :
1447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1450 :
1451 : #define WID_ENABLED 1
1452 :
1453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1454 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1455 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1456 :
1457 : #define SSD_ENABLED 1
1458 :
1459 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1460 :
1461 : #define RK_ENABLED 1
1462 :
1463 : #if RK5_ENABLED
1464 : module procedure setDisKolmSSD_WID_D1_RK5
1465 : use pm_kind, only: TKC => RK5
1466 : #include "pm_distanceKolm@routines.inc.F90"
1467 : end procedure
1468 : #endif
1469 :
1470 : #if RK4_ENABLED
1471 0 : module procedure setDisKolmSSD_WID_D1_RK4
1472 : use pm_kind, only: TKC => RK4
1473 : #include "pm_distanceKolm@routines.inc.F90"
1474 0 : end procedure
1475 : #endif
1476 :
1477 : #if RK3_ENABLED
1478 0 : module procedure setDisKolmSSD_WID_D1_RK3
1479 : use pm_kind, only: TKC => RK3
1480 : #include "pm_distanceKolm@routines.inc.F90"
1481 0 : end procedure
1482 : #endif
1483 :
1484 : #if RK2_ENABLED
1485 0 : module procedure setDisKolmSSD_WID_D1_RK2
1486 : use pm_kind, only: TKC => RK2
1487 : #include "pm_distanceKolm@routines.inc.F90"
1488 0 : end procedure
1489 : #endif
1490 :
1491 : #if RK1_ENABLED
1492 40 : module procedure setDisKolmSSD_WID_D1_RK1
1493 : use pm_kind, only: TKC => RK1
1494 : #include "pm_distanceKolm@routines.inc.F90"
1495 40 : end procedure
1496 : #endif
1497 :
1498 : #undef RK_ENABLED
1499 :
1500 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1501 :
1502 : #undef SSD_ENABLED
1503 :
1504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1507 :
1508 : #define SSA_ENABLED 1
1509 :
1510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1511 :
1512 : #define RK_ENABLED 1
1513 :
1514 : #if RK5_ENABLED
1515 : module procedure setDisKolmSSA_WID_D1_RK5
1516 : use pm_kind, only: TKC => RK5
1517 : #include "pm_distanceKolm@routines.inc.F90"
1518 : end procedure
1519 : #endif
1520 :
1521 : #if RK4_ENABLED
1522 0 : module procedure setDisKolmSSA_WID_D1_RK4
1523 : use pm_kind, only: TKC => RK4
1524 : #include "pm_distanceKolm@routines.inc.F90"
1525 0 : end procedure
1526 : #endif
1527 :
1528 : #if RK3_ENABLED
1529 0 : module procedure setDisKolmSSA_WID_D1_RK3
1530 : use pm_kind, only: TKC => RK3
1531 : #include "pm_distanceKolm@routines.inc.F90"
1532 0 : end procedure
1533 : #endif
1534 :
1535 : #if RK2_ENABLED
1536 0 : module procedure setDisKolmSSA_WID_D1_RK2
1537 : use pm_kind, only: TKC => RK2
1538 : #include "pm_distanceKolm@routines.inc.F90"
1539 0 : end procedure
1540 : #endif
1541 :
1542 : #if RK1_ENABLED
1543 40 : module procedure setDisKolmSSA_WID_D1_RK1
1544 : use pm_kind, only: TKC => RK1
1545 : #include "pm_distanceKolm@routines.inc.F90"
1546 40 : end procedure
1547 : #endif
1548 :
1549 : #undef RK_ENABLED
1550 :
1551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1552 :
1553 : #undef SSA_ENABLED
1554 :
1555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1558 :
1559 : #undef WID_ENABLED
1560 :
1561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1564 :
1565 : #define WRD_ENABLED 1
1566 :
1567 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1570 :
1571 : #define SSD_ENABLED 1
1572 :
1573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1574 :
1575 : #define RK_ENABLED 1
1576 :
1577 : #if RK5_ENABLED
1578 : module procedure setDisKolmSSD_WRD_D1_RK5
1579 : use pm_kind, only: TKC => RK5
1580 : #include "pm_distanceKolm@routines.inc.F90"
1581 : end procedure
1582 : #endif
1583 :
1584 : #if RK4_ENABLED
1585 0 : module procedure setDisKolmSSD_WRD_D1_RK4
1586 : use pm_kind, only: TKC => RK4
1587 : #include "pm_distanceKolm@routines.inc.F90"
1588 0 : end procedure
1589 : #endif
1590 :
1591 : #if RK3_ENABLED
1592 0 : module procedure setDisKolmSSD_WRD_D1_RK3
1593 : use pm_kind, only: TKC => RK3
1594 : #include "pm_distanceKolm@routines.inc.F90"
1595 0 : end procedure
1596 : #endif
1597 :
1598 : #if RK2_ENABLED
1599 0 : module procedure setDisKolmSSD_WRD_D1_RK2
1600 : use pm_kind, only: TKC => RK2
1601 : #include "pm_distanceKolm@routines.inc.F90"
1602 0 : end procedure
1603 : #endif
1604 :
1605 : #if RK1_ENABLED
1606 40 : module procedure setDisKolmSSD_WRD_D1_RK1
1607 : use pm_kind, only: TKC => RK1
1608 : #include "pm_distanceKolm@routines.inc.F90"
1609 40 : end procedure
1610 : #endif
1611 :
1612 : #undef RK_ENABLED
1613 :
1614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1615 :
1616 : #undef SSD_ENABLED
1617 :
1618 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1619 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1621 :
1622 : #define SSA_ENABLED 1
1623 :
1624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1625 :
1626 : #define RK_ENABLED 1
1627 :
1628 : #if RK5_ENABLED
1629 : module procedure setDisKolmSSA_WRD_D1_RK5
1630 : use pm_kind, only: TKC => RK5
1631 : #include "pm_distanceKolm@routines.inc.F90"
1632 : end procedure
1633 : #endif
1634 :
1635 : #if RK4_ENABLED
1636 0 : module procedure setDisKolmSSA_WRD_D1_RK4
1637 : use pm_kind, only: TKC => RK4
1638 : #include "pm_distanceKolm@routines.inc.F90"
1639 0 : end procedure
1640 : #endif
1641 :
1642 : #if RK3_ENABLED
1643 0 : module procedure setDisKolmSSA_WRD_D1_RK3
1644 : use pm_kind, only: TKC => RK3
1645 : #include "pm_distanceKolm@routines.inc.F90"
1646 0 : end procedure
1647 : #endif
1648 :
1649 : #if RK2_ENABLED
1650 0 : module procedure setDisKolmSSA_WRD_D1_RK2
1651 : use pm_kind, only: TKC => RK2
1652 : #include "pm_distanceKolm@routines.inc.F90"
1653 0 : end procedure
1654 : #endif
1655 :
1656 : #if RK1_ENABLED
1657 40 : module procedure setDisKolmSSA_WRD_D1_RK1
1658 : use pm_kind, only: TKC => RK1
1659 : #include "pm_distanceKolm@routines.inc.F90"
1660 40 : end procedure
1661 : #endif
1662 :
1663 : #undef RK_ENABLED
1664 :
1665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1666 :
1667 : #undef SSA_ENABLED
1668 :
1669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1672 :
1673 : #undef WRD_ENABLED
1674 :
1675 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1677 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1678 :
1679 : #define WII_ENABLED 1
1680 :
1681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1684 :
1685 : #define SSD_ENABLED 1
1686 :
1687 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1688 :
1689 : #define RK_ENABLED 1
1690 :
1691 : #if RK5_ENABLED
1692 : module procedure setDisKolmSSD_WII_D1_RK5
1693 : use pm_kind, only: TKC => RK5
1694 : #include "pm_distanceKolm@routines.inc.F90"
1695 : end procedure
1696 : #endif
1697 :
1698 : #if RK4_ENABLED
1699 0 : module procedure setDisKolmSSD_WII_D1_RK4
1700 : use pm_kind, only: TKC => RK4
1701 : #include "pm_distanceKolm@routines.inc.F90"
1702 0 : end procedure
1703 : #endif
1704 :
1705 : #if RK3_ENABLED
1706 0 : module procedure setDisKolmSSD_WII_D1_RK3
1707 : use pm_kind, only: TKC => RK3
1708 : #include "pm_distanceKolm@routines.inc.F90"
1709 0 : end procedure
1710 : #endif
1711 :
1712 : #if RK2_ENABLED
1713 0 : module procedure setDisKolmSSD_WII_D1_RK2
1714 : use pm_kind, only: TKC => RK2
1715 : #include "pm_distanceKolm@routines.inc.F90"
1716 0 : end procedure
1717 : #endif
1718 :
1719 : #if RK1_ENABLED
1720 40 : module procedure setDisKolmSSD_WII_D1_RK1
1721 : use pm_kind, only: TKC => RK1
1722 : #include "pm_distanceKolm@routines.inc.F90"
1723 40 : end procedure
1724 : #endif
1725 :
1726 : #undef RK_ENABLED
1727 :
1728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1729 :
1730 : #undef SSD_ENABLED
1731 :
1732 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1734 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1735 :
1736 : #define SSA_ENABLED 1
1737 :
1738 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1739 :
1740 : #define RK_ENABLED 1
1741 :
1742 : #if RK5_ENABLED
1743 : module procedure setDisKolmSSA_WII_D1_RK5
1744 : use pm_kind, only: TKC => RK5
1745 : #include "pm_distanceKolm@routines.inc.F90"
1746 : end procedure
1747 : #endif
1748 :
1749 : #if RK4_ENABLED
1750 0 : module procedure setDisKolmSSA_WII_D1_RK4
1751 : use pm_kind, only: TKC => RK4
1752 : #include "pm_distanceKolm@routines.inc.F90"
1753 0 : end procedure
1754 : #endif
1755 :
1756 : #if RK3_ENABLED
1757 0 : module procedure setDisKolmSSA_WII_D1_RK3
1758 : use pm_kind, only: TKC => RK3
1759 : #include "pm_distanceKolm@routines.inc.F90"
1760 0 : end procedure
1761 : #endif
1762 :
1763 : #if RK2_ENABLED
1764 0 : module procedure setDisKolmSSA_WII_D1_RK2
1765 : use pm_kind, only: TKC => RK2
1766 : #include "pm_distanceKolm@routines.inc.F90"
1767 0 : end procedure
1768 : #endif
1769 :
1770 : #if RK1_ENABLED
1771 40 : module procedure setDisKolmSSA_WII_D1_RK1
1772 : use pm_kind, only: TKC => RK1
1773 : #include "pm_distanceKolm@routines.inc.F90"
1774 40 : end procedure
1775 : #endif
1776 :
1777 : #undef RK_ENABLED
1778 :
1779 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1780 :
1781 : #undef SSA_ENABLED
1782 :
1783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1785 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1786 :
1787 : #undef WII_ENABLED
1788 :
1789 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1790 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1791 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1792 :
1793 : #define WRR_ENABLED 1
1794 :
1795 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1797 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1798 :
1799 : #define SSD_ENABLED 1
1800 :
1801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1802 :
1803 : #define RK_ENABLED 1
1804 :
1805 : #if RK5_ENABLED
1806 : module procedure setDisKolmSSD_WRR_D1_RK5
1807 : use pm_kind, only: TKC => RK5
1808 : #include "pm_distanceKolm@routines.inc.F90"
1809 : end procedure
1810 : #endif
1811 :
1812 : #if RK4_ENABLED
1813 0 : module procedure setDisKolmSSD_WRR_D1_RK4
1814 : use pm_kind, only: TKC => RK4
1815 : #include "pm_distanceKolm@routines.inc.F90"
1816 0 : end procedure
1817 : #endif
1818 :
1819 : #if RK3_ENABLED
1820 0 : module procedure setDisKolmSSD_WRR_D1_RK3
1821 : use pm_kind, only: TKC => RK3
1822 : #include "pm_distanceKolm@routines.inc.F90"
1823 0 : end procedure
1824 : #endif
1825 :
1826 : #if RK2_ENABLED
1827 0 : module procedure setDisKolmSSD_WRR_D1_RK2
1828 : use pm_kind, only: TKC => RK2
1829 : #include "pm_distanceKolm@routines.inc.F90"
1830 0 : end procedure
1831 : #endif
1832 :
1833 : #if RK1_ENABLED
1834 40 : module procedure setDisKolmSSD_WRR_D1_RK1
1835 : use pm_kind, only: TKC => RK1
1836 : #include "pm_distanceKolm@routines.inc.F90"
1837 40 : end procedure
1838 : #endif
1839 :
1840 : #undef RK_ENABLED
1841 :
1842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1843 :
1844 : #undef SSD_ENABLED
1845 :
1846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1847 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1849 :
1850 : #define SSA_ENABLED 1
1851 :
1852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1853 :
1854 : #define RK_ENABLED 1
1855 :
1856 : #if RK5_ENABLED
1857 : module procedure setDisKolmSSA_WRR_D1_RK5
1858 : use pm_kind, only: TKC => RK5
1859 : #include "pm_distanceKolm@routines.inc.F90"
1860 : end procedure
1861 : #endif
1862 :
1863 : #if RK4_ENABLED
1864 0 : module procedure setDisKolmSSA_WRR_D1_RK4
1865 : use pm_kind, only: TKC => RK4
1866 : #include "pm_distanceKolm@routines.inc.F90"
1867 0 : end procedure
1868 : #endif
1869 :
1870 : #if RK3_ENABLED
1871 0 : module procedure setDisKolmSSA_WRR_D1_RK3
1872 : use pm_kind, only: TKC => RK3
1873 : #include "pm_distanceKolm@routines.inc.F90"
1874 0 : end procedure
1875 : #endif
1876 :
1877 : #if RK2_ENABLED
1878 0 : module procedure setDisKolmSSA_WRR_D1_RK2
1879 : use pm_kind, only: TKC => RK2
1880 : #include "pm_distanceKolm@routines.inc.F90"
1881 0 : end procedure
1882 : #endif
1883 :
1884 : #if RK1_ENABLED
1885 40 : module procedure setDisKolmSSA_WRR_D1_RK1
1886 : use pm_kind, only: TKC => RK1
1887 : #include "pm_distanceKolm@routines.inc.F90"
1888 40 : end procedure
1889 : #endif
1890 :
1891 : #undef RK_ENABLED
1892 :
1893 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1894 :
1895 : #undef SSA_ENABLED
1896 :
1897 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1898 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1900 :
1901 : #undef WRR_ENABLED
1902 :
1903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1905 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1906 :
1907 : #define WDD_ENABLED 1
1908 :
1909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1911 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1912 :
1913 : #define SXD_ENABLED 1
1914 :
1915 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1916 :
1917 : #define RK_ENABLED 1
1918 :
1919 : #if RK5_ENABLED
1920 : module procedure setDisKolmSXD_WDD_D1_RK5
1921 : use pm_kind, only: TKC => RK5
1922 : #include "pm_distanceKolm@routines.inc.F90"
1923 : end procedure
1924 : #endif
1925 :
1926 : #if RK4_ENABLED
1927 0 : module procedure setDisKolmSXD_WDD_D1_RK4
1928 : use pm_kind, only: TKC => RK4
1929 : #include "pm_distanceKolm@routines.inc.F90"
1930 0 : end procedure
1931 : #endif
1932 :
1933 : #if RK3_ENABLED
1934 0 : module procedure setDisKolmSXD_WDD_D1_RK3
1935 : use pm_kind, only: TKC => RK3
1936 : #include "pm_distanceKolm@routines.inc.F90"
1937 0 : end procedure
1938 : #endif
1939 :
1940 : #if RK2_ENABLED
1941 0 : module procedure setDisKolmSXD_WDD_D1_RK2
1942 : use pm_kind, only: TKC => RK2
1943 : #include "pm_distanceKolm@routines.inc.F90"
1944 0 : end procedure
1945 : #endif
1946 :
1947 : #if RK1_ENABLED
1948 40 : module procedure setDisKolmSXD_WDD_D1_RK1
1949 : use pm_kind, only: TKC => RK1
1950 : #include "pm_distanceKolm@routines.inc.F90"
1951 40 : end procedure
1952 : #endif
1953 :
1954 : #undef RK_ENABLED
1955 :
1956 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1957 :
1958 : #undef SXD_ENABLED
1959 :
1960 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1961 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1962 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1963 :
1964 : #define SXA_ENABLED 1
1965 :
1966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1967 :
1968 : #define RK_ENABLED 1
1969 :
1970 : #if RK5_ENABLED
1971 : module procedure setDisKolmSXA_WDD_D1_RK5
1972 : use pm_kind, only: TKC => RK5
1973 : #include "pm_distanceKolm@routines.inc.F90"
1974 : end procedure
1975 : #endif
1976 :
1977 : #if RK4_ENABLED
1978 0 : module procedure setDisKolmSXA_WDD_D1_RK4
1979 : use pm_kind, only: TKC => RK4
1980 : #include "pm_distanceKolm@routines.inc.F90"
1981 0 : end procedure
1982 : #endif
1983 :
1984 : #if RK3_ENABLED
1985 0 : module procedure setDisKolmSXA_WDD_D1_RK3
1986 : use pm_kind, only: TKC => RK3
1987 : #include "pm_distanceKolm@routines.inc.F90"
1988 0 : end procedure
1989 : #endif
1990 :
1991 : #if RK2_ENABLED
1992 0 : module procedure setDisKolmSXA_WDD_D1_RK2
1993 : use pm_kind, only: TKC => RK2
1994 : #include "pm_distanceKolm@routines.inc.F90"
1995 0 : end procedure
1996 : #endif
1997 :
1998 : #if RK1_ENABLED
1999 40 : module procedure setDisKolmSXA_WDD_D1_RK1
2000 : use pm_kind, only: TKC => RK1
2001 : #include "pm_distanceKolm@routines.inc.F90"
2002 40 : end procedure
2003 : #endif
2004 :
2005 : #undef RK_ENABLED
2006 :
2007 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2008 :
2009 : #undef SXA_ENABLED
2010 :
2011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2012 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2013 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2014 :
2015 : #undef WDD_ENABLED
2016 :
2017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2018 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2019 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2020 :
2021 : #define WID_ENABLED 1
2022 :
2023 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2024 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2025 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2026 :
2027 : #define SXD_ENABLED 1
2028 :
2029 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2030 :
2031 : #define RK_ENABLED 1
2032 :
2033 : #if RK5_ENABLED
2034 : module procedure setDisKolmSXD_WID_D1_RK5
2035 : use pm_kind, only: TKC => RK5
2036 : #include "pm_distanceKolm@routines.inc.F90"
2037 : end procedure
2038 : #endif
2039 :
2040 : #if RK4_ENABLED
2041 0 : module procedure setDisKolmSXD_WID_D1_RK4
2042 : use pm_kind, only: TKC => RK4
2043 : #include "pm_distanceKolm@routines.inc.F90"
2044 0 : end procedure
2045 : #endif
2046 :
2047 : #if RK3_ENABLED
2048 0 : module procedure setDisKolmSXD_WID_D1_RK3
2049 : use pm_kind, only: TKC => RK3
2050 : #include "pm_distanceKolm@routines.inc.F90"
2051 0 : end procedure
2052 : #endif
2053 :
2054 : #if RK2_ENABLED
2055 0 : module procedure setDisKolmSXD_WID_D1_RK2
2056 : use pm_kind, only: TKC => RK2
2057 : #include "pm_distanceKolm@routines.inc.F90"
2058 0 : end procedure
2059 : #endif
2060 :
2061 : #if RK1_ENABLED
2062 30 : module procedure setDisKolmSXD_WID_D1_RK1
2063 : use pm_kind, only: TKC => RK1
2064 : #include "pm_distanceKolm@routines.inc.F90"
2065 30 : end procedure
2066 : #endif
2067 :
2068 : #undef RK_ENABLED
2069 :
2070 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2071 :
2072 : #undef SXD_ENABLED
2073 :
2074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2075 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2076 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2077 :
2078 : #define SXA_ENABLED 1
2079 :
2080 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2081 :
2082 : #define RK_ENABLED 1
2083 :
2084 : #if RK5_ENABLED
2085 : module procedure setDisKolmSXA_WID_D1_RK5
2086 : use pm_kind, only: TKC => RK5
2087 : #include "pm_distanceKolm@routines.inc.F90"
2088 : end procedure
2089 : #endif
2090 :
2091 : #if RK4_ENABLED
2092 0 : module procedure setDisKolmSXA_WID_D1_RK4
2093 : use pm_kind, only: TKC => RK4
2094 : #include "pm_distanceKolm@routines.inc.F90"
2095 0 : end procedure
2096 : #endif
2097 :
2098 : #if RK3_ENABLED
2099 0 : module procedure setDisKolmSXA_WID_D1_RK3
2100 : use pm_kind, only: TKC => RK3
2101 : #include "pm_distanceKolm@routines.inc.F90"
2102 0 : end procedure
2103 : #endif
2104 :
2105 : #if RK2_ENABLED
2106 0 : module procedure setDisKolmSXA_WID_D1_RK2
2107 : use pm_kind, only: TKC => RK2
2108 : #include "pm_distanceKolm@routines.inc.F90"
2109 0 : end procedure
2110 : #endif
2111 :
2112 : #if RK1_ENABLED
2113 30 : module procedure setDisKolmSXA_WID_D1_RK1
2114 : use pm_kind, only: TKC => RK1
2115 : #include "pm_distanceKolm@routines.inc.F90"
2116 30 : end procedure
2117 : #endif
2118 :
2119 : #undef RK_ENABLED
2120 :
2121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2122 :
2123 : #undef SXA_ENABLED
2124 :
2125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2128 :
2129 : #undef WID_ENABLED
2130 :
2131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2134 :
2135 : #define WRD_ENABLED 1
2136 :
2137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2139 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2140 :
2141 : #define SXD_ENABLED 1
2142 :
2143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2144 :
2145 : #define RK_ENABLED 1
2146 :
2147 : #if RK5_ENABLED
2148 : module procedure setDisKolmSXD_WRD_D1_RK5
2149 : use pm_kind, only: TKC => RK5
2150 : #include "pm_distanceKolm@routines.inc.F90"
2151 : end procedure
2152 : #endif
2153 :
2154 : #if RK4_ENABLED
2155 0 : module procedure setDisKolmSXD_WRD_D1_RK4
2156 : use pm_kind, only: TKC => RK4
2157 : #include "pm_distanceKolm@routines.inc.F90"
2158 0 : end procedure
2159 : #endif
2160 :
2161 : #if RK3_ENABLED
2162 0 : module procedure setDisKolmSXD_WRD_D1_RK3
2163 : use pm_kind, only: TKC => RK3
2164 : #include "pm_distanceKolm@routines.inc.F90"
2165 0 : end procedure
2166 : #endif
2167 :
2168 : #if RK2_ENABLED
2169 0 : module procedure setDisKolmSXD_WRD_D1_RK2
2170 : use pm_kind, only: TKC => RK2
2171 : #include "pm_distanceKolm@routines.inc.F90"
2172 0 : end procedure
2173 : #endif
2174 :
2175 : #if RK1_ENABLED
2176 30 : module procedure setDisKolmSXD_WRD_D1_RK1
2177 : use pm_kind, only: TKC => RK1
2178 : #include "pm_distanceKolm@routines.inc.F90"
2179 30 : end procedure
2180 : #endif
2181 :
2182 : #undef RK_ENABLED
2183 :
2184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2185 :
2186 : #undef SXD_ENABLED
2187 :
2188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2191 :
2192 : #define SXA_ENABLED 1
2193 :
2194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2195 :
2196 : #define RK_ENABLED 1
2197 :
2198 : #if RK5_ENABLED
2199 : module procedure setDisKolmSXA_WRD_D1_RK5
2200 : use pm_kind, only: TKC => RK5
2201 : #include "pm_distanceKolm@routines.inc.F90"
2202 : end procedure
2203 : #endif
2204 :
2205 : #if RK4_ENABLED
2206 0 : module procedure setDisKolmSXA_WRD_D1_RK4
2207 : use pm_kind, only: TKC => RK4
2208 : #include "pm_distanceKolm@routines.inc.F90"
2209 0 : end procedure
2210 : #endif
2211 :
2212 : #if RK3_ENABLED
2213 0 : module procedure setDisKolmSXA_WRD_D1_RK3
2214 : use pm_kind, only: TKC => RK3
2215 : #include "pm_distanceKolm@routines.inc.F90"
2216 0 : end procedure
2217 : #endif
2218 :
2219 : #if RK2_ENABLED
2220 0 : module procedure setDisKolmSXA_WRD_D1_RK2
2221 : use pm_kind, only: TKC => RK2
2222 : #include "pm_distanceKolm@routines.inc.F90"
2223 0 : end procedure
2224 : #endif
2225 :
2226 : #if RK1_ENABLED
2227 30 : module procedure setDisKolmSXA_WRD_D1_RK1
2228 : use pm_kind, only: TKC => RK1
2229 : #include "pm_distanceKolm@routines.inc.F90"
2230 30 : end procedure
2231 : #endif
2232 :
2233 : #undef RK_ENABLED
2234 :
2235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2236 :
2237 : #undef SXA_ENABLED
2238 :
2239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2242 :
2243 : #undef WRD_ENABLED
2244 :
2245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2248 :
2249 : #define WDD_ENABLED 1
2250 :
2251 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2254 :
2255 : #define SCD_ENABLED 1
2256 :
2257 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2258 :
2259 : #define RK_ENABLED 1
2260 :
2261 : #if RK5_ENABLED
2262 : module procedure setDisKolmSCD_WDD_D1_RK5
2263 : use pm_kind, only: TKC => RK5
2264 : #include "pm_distanceKolm@routines.inc.F90"
2265 : end procedure
2266 : #endif
2267 :
2268 : #if RK4_ENABLED
2269 0 : module procedure setDisKolmSCD_WDD_D1_RK4
2270 : use pm_kind, only: TKC => RK4
2271 : #include "pm_distanceKolm@routines.inc.F90"
2272 0 : end procedure
2273 : #endif
2274 :
2275 : #if RK3_ENABLED
2276 0 : module procedure setDisKolmSCD_WDD_D1_RK3
2277 : use pm_kind, only: TKC => RK3
2278 : #include "pm_distanceKolm@routines.inc.F90"
2279 0 : end procedure
2280 : #endif
2281 :
2282 : #if RK2_ENABLED
2283 0 : module procedure setDisKolmSCD_WDD_D1_RK2
2284 : use pm_kind, only: TKC => RK2
2285 : #include "pm_distanceKolm@routines.inc.F90"
2286 0 : end procedure
2287 : #endif
2288 :
2289 : #if RK1_ENABLED
2290 40 : module procedure setDisKolmSCD_WDD_D1_RK1
2291 : use pm_kind, only: TKC => RK1
2292 : #include "pm_distanceKolm@routines.inc.F90"
2293 40 : end procedure
2294 : #endif
2295 :
2296 : #undef RK_ENABLED
2297 :
2298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2299 :
2300 : #undef SCD_ENABLED
2301 :
2302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2305 :
2306 : #define SCA_ENABLED 1
2307 :
2308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2309 :
2310 : #define RK_ENABLED 1
2311 :
2312 : #if RK5_ENABLED
2313 : module procedure setDisKolmSCA_WDD_D1_RK5
2314 : use pm_kind, only: TKC => RK5
2315 : #include "pm_distanceKolm@routines.inc.F90"
2316 : end procedure
2317 : #endif
2318 :
2319 : #if RK4_ENABLED
2320 0 : module procedure setDisKolmSCA_WDD_D1_RK4
2321 : use pm_kind, only: TKC => RK4
2322 : #include "pm_distanceKolm@routines.inc.F90"
2323 0 : end procedure
2324 : #endif
2325 :
2326 : #if RK3_ENABLED
2327 0 : module procedure setDisKolmSCA_WDD_D1_RK3
2328 : use pm_kind, only: TKC => RK3
2329 : #include "pm_distanceKolm@routines.inc.F90"
2330 0 : end procedure
2331 : #endif
2332 :
2333 : #if RK2_ENABLED
2334 0 : module procedure setDisKolmSCA_WDD_D1_RK2
2335 : use pm_kind, only: TKC => RK2
2336 : #include "pm_distanceKolm@routines.inc.F90"
2337 0 : end procedure
2338 : #endif
2339 :
2340 : #if RK1_ENABLED
2341 40 : module procedure setDisKolmSCA_WDD_D1_RK1
2342 : use pm_kind, only: TKC => RK1
2343 : #include "pm_distanceKolm@routines.inc.F90"
2344 40 : end procedure
2345 : #endif
2346 :
2347 : #undef RK_ENABLED
2348 :
2349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2350 :
2351 : #undef SCA_ENABLED
2352 :
2353 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2356 :
2357 : #undef WDD_ENABLED
2358 :
2359 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2362 :
2363 : #define WID_ENABLED 1
2364 :
2365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2368 :
2369 : #define SCD_ENABLED 1
2370 :
2371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2372 :
2373 : #define RK_ENABLED 1
2374 :
2375 : #if RK5_ENABLED
2376 : module procedure setDisKolmSCD_WID_D1_RK5
2377 : use pm_kind, only: TKC => RK5
2378 : #include "pm_distanceKolm@routines.inc.F90"
2379 : end procedure
2380 : #endif
2381 :
2382 : #if RK4_ENABLED
2383 0 : module procedure setDisKolmSCD_WID_D1_RK4
2384 : use pm_kind, only: TKC => RK4
2385 : #include "pm_distanceKolm@routines.inc.F90"
2386 0 : end procedure
2387 : #endif
2388 :
2389 : #if RK3_ENABLED
2390 0 : module procedure setDisKolmSCD_WID_D1_RK3
2391 : use pm_kind, only: TKC => RK3
2392 : #include "pm_distanceKolm@routines.inc.F90"
2393 0 : end procedure
2394 : #endif
2395 :
2396 : #if RK2_ENABLED
2397 0 : module procedure setDisKolmSCD_WID_D1_RK2
2398 : use pm_kind, only: TKC => RK2
2399 : #include "pm_distanceKolm@routines.inc.F90"
2400 0 : end procedure
2401 : #endif
2402 :
2403 : #if RK1_ENABLED
2404 30 : module procedure setDisKolmSCD_WID_D1_RK1
2405 : use pm_kind, only: TKC => RK1
2406 : #include "pm_distanceKolm@routines.inc.F90"
2407 30 : end procedure
2408 : #endif
2409 :
2410 : #undef RK_ENABLED
2411 :
2412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2413 :
2414 : #undef SCD_ENABLED
2415 :
2416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2419 :
2420 : #define SCA_ENABLED 1
2421 :
2422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2423 :
2424 : #define RK_ENABLED 1
2425 :
2426 : #if RK5_ENABLED
2427 : module procedure setDisKolmSCA_WID_D1_RK5
2428 : use pm_kind, only: TKC => RK5
2429 : #include "pm_distanceKolm@routines.inc.F90"
2430 : end procedure
2431 : #endif
2432 :
2433 : #if RK4_ENABLED
2434 0 : module procedure setDisKolmSCA_WID_D1_RK4
2435 : use pm_kind, only: TKC => RK4
2436 : #include "pm_distanceKolm@routines.inc.F90"
2437 0 : end procedure
2438 : #endif
2439 :
2440 : #if RK3_ENABLED
2441 0 : module procedure setDisKolmSCA_WID_D1_RK3
2442 : use pm_kind, only: TKC => RK3
2443 : #include "pm_distanceKolm@routines.inc.F90"
2444 0 : end procedure
2445 : #endif
2446 :
2447 : #if RK2_ENABLED
2448 0 : module procedure setDisKolmSCA_WID_D1_RK2
2449 : use pm_kind, only: TKC => RK2
2450 : #include "pm_distanceKolm@routines.inc.F90"
2451 0 : end procedure
2452 : #endif
2453 :
2454 : #if RK1_ENABLED
2455 30 : module procedure setDisKolmSCA_WID_D1_RK1
2456 : use pm_kind, only: TKC => RK1
2457 : #include "pm_distanceKolm@routines.inc.F90"
2458 30 : end procedure
2459 : #endif
2460 :
2461 : #undef RK_ENABLED
2462 :
2463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2464 :
2465 : #undef SCA_ENABLED
2466 :
2467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2468 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2469 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2470 :
2471 : #undef WID_ENABLED
2472 :
2473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2475 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2476 :
2477 : #define WRD_ENABLED 1
2478 :
2479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2482 :
2483 : #define SCD_ENABLED 1
2484 :
2485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2486 :
2487 : #define RK_ENABLED 1
2488 :
2489 : #if RK5_ENABLED
2490 : module procedure setDisKolmSCD_WRD_D1_RK5
2491 : use pm_kind, only: TKC => RK5
2492 : #include "pm_distanceKolm@routines.inc.F90"
2493 : end procedure
2494 : #endif
2495 :
2496 : #if RK4_ENABLED
2497 0 : module procedure setDisKolmSCD_WRD_D1_RK4
2498 : use pm_kind, only: TKC => RK4
2499 : #include "pm_distanceKolm@routines.inc.F90"
2500 0 : end procedure
2501 : #endif
2502 :
2503 : #if RK3_ENABLED
2504 0 : module procedure setDisKolmSCD_WRD_D1_RK3
2505 : use pm_kind, only: TKC => RK3
2506 : #include "pm_distanceKolm@routines.inc.F90"
2507 0 : end procedure
2508 : #endif
2509 :
2510 : #if RK2_ENABLED
2511 0 : module procedure setDisKolmSCD_WRD_D1_RK2
2512 : use pm_kind, only: TKC => RK2
2513 : #include "pm_distanceKolm@routines.inc.F90"
2514 0 : end procedure
2515 : #endif
2516 :
2517 : #if RK1_ENABLED
2518 30 : module procedure setDisKolmSCD_WRD_D1_RK1
2519 : use pm_kind, only: TKC => RK1
2520 : #include "pm_distanceKolm@routines.inc.F90"
2521 30 : end procedure
2522 : #endif
2523 :
2524 : #undef RK_ENABLED
2525 :
2526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2527 :
2528 : #undef SCD_ENABLED
2529 :
2530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2533 :
2534 : #define SCA_ENABLED 1
2535 :
2536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2537 :
2538 : #define RK_ENABLED 1
2539 :
2540 : #if RK5_ENABLED
2541 : module procedure setDisKolmSCA_WRD_D1_RK5
2542 : use pm_kind, only: TKC => RK5
2543 : #include "pm_distanceKolm@routines.inc.F90"
2544 : end procedure
2545 : #endif
2546 :
2547 : #if RK4_ENABLED
2548 0 : module procedure setDisKolmSCA_WRD_D1_RK4
2549 : use pm_kind, only: TKC => RK4
2550 : #include "pm_distanceKolm@routines.inc.F90"
2551 0 : end procedure
2552 : #endif
2553 :
2554 : #if RK3_ENABLED
2555 0 : module procedure setDisKolmSCA_WRD_D1_RK3
2556 : use pm_kind, only: TKC => RK3
2557 : #include "pm_distanceKolm@routines.inc.F90"
2558 0 : end procedure
2559 : #endif
2560 :
2561 : #if RK2_ENABLED
2562 0 : module procedure setDisKolmSCA_WRD_D1_RK2
2563 : use pm_kind, only: TKC => RK2
2564 : #include "pm_distanceKolm@routines.inc.F90"
2565 0 : end procedure
2566 : #endif
2567 :
2568 : #if RK1_ENABLED
2569 30 : module procedure setDisKolmSCA_WRD_D1_RK1
2570 : use pm_kind, only: TKC => RK1
2571 : #include "pm_distanceKolm@routines.inc.F90"
2572 30 : end procedure
2573 : #endif
2574 :
2575 : #undef RK_ENABLED
2576 :
2577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2578 :
2579 : #undef SCA_ENABLED
2580 :
2581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2582 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2583 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2584 :
2585 : #undef WRD_ENABLED
2586 :
2587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2588 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2589 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2590 :
2591 : #undef D1_ENABLED
2592 :
2593 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2594 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2595 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2596 :
2597 : #undef setDisKolm_ENABLED
2598 :
2599 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2600 :
2601 : #undef CHECK_ASSERTION
2602 :
2603 : end submodule routines
|
