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_sampleShift](@ref pm_sampleShift).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_sampleShift) 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: setMean
40 : implicit none
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : contains
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #define getShifted_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : #define DIM_ENABLED 1
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 :
60 : #define D1_ENABLED 1
61 :
62 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 :
66 : #define ONO_ENABLED 1
67 :
68 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
69 :
70 : #define CK_ENABLED 1
71 :
72 : #if CK5_ENABLED
73 : module procedure getShiftedDIM_ONO_D1_CK5
74 : use pm_kind, only: TKC => CK5
75 : #include "pm_sampleShift@routines.inc.F90"
76 : end procedure
77 : #endif
78 :
79 : #if CK4_ENABLED
80 152 : module procedure getShiftedDIM_ONO_D1_CK4
81 : use pm_kind, only: TKC => CK4
82 : #include "pm_sampleShift@routines.inc.F90"
83 152 : end procedure
84 : #endif
85 :
86 : #if CK3_ENABLED
87 158 : module procedure getShiftedDIM_ONO_D1_CK3
88 : use pm_kind, only: TKC => CK3
89 : #include "pm_sampleShift@routines.inc.F90"
90 158 : end procedure
91 : #endif
92 :
93 : #if CK2_ENABLED
94 156 : module procedure getShiftedDIM_ONO_D1_CK2
95 : use pm_kind, only: TKC => CK2
96 : #include "pm_sampleShift@routines.inc.F90"
97 156 : end procedure
98 : #endif
99 :
100 : #if CK1_ENABLED
101 172 : module procedure getShiftedDIM_ONO_D1_CK1
102 : use pm_kind, only: TKC => CK1
103 : #include "pm_sampleShift@routines.inc.F90"
104 172 : end procedure
105 : #endif
106 :
107 : #undef CK_ENABLED
108 :
109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
110 :
111 : #define RK_ENABLED 1
112 :
113 : #if RK5_ENABLED
114 : module procedure getShiftedDIM_ONO_D1_RK5
115 : use pm_kind, only: TKC => RK5
116 : #include "pm_sampleShift@routines.inc.F90"
117 : end procedure
118 : #endif
119 :
120 : #if RK4_ENABLED
121 156 : module procedure getShiftedDIM_ONO_D1_RK4
122 : use pm_kind, only: TKC => RK4
123 : #include "pm_sampleShift@routines.inc.F90"
124 156 : end procedure
125 : #endif
126 :
127 : #if RK3_ENABLED
128 162 : module procedure getShiftedDIM_ONO_D1_RK3
129 : use pm_kind, only: TKC => RK3
130 : #include "pm_sampleShift@routines.inc.F90"
131 162 : end procedure
132 : #endif
133 :
134 : #if RK2_ENABLED
135 164 : module procedure getShiftedDIM_ONO_D1_RK2
136 : use pm_kind, only: TKC => RK2
137 : #include "pm_sampleShift@routines.inc.F90"
138 164 : end procedure
139 : #endif
140 :
141 : #if RK1_ENABLED
142 158 : module procedure getShiftedDIM_ONO_D1_RK1
143 : use pm_kind, only: TKC => RK1
144 : #include "pm_sampleShift@routines.inc.F90"
145 158 : end procedure
146 : #endif
147 :
148 : #undef RK_ENABLED
149 :
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 :
152 : #undef ONO_ENABLED
153 :
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 :
158 : #undef D1_ENABLED
159 :
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 :
164 : #define D2_ENABLED 1
165 :
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
169 :
170 : #define ONO_ENABLED 1
171 :
172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173 :
174 : #define CK_ENABLED 1
175 :
176 : #if CK5_ENABLED
177 : module procedure getShiftedDIM_ONO_D2_CK5
178 : use pm_kind, only: TKC => CK5
179 : #include "pm_sampleShift@routines.inc.F90"
180 : end procedure
181 : #endif
182 :
183 : #if CK4_ENABLED
184 1724 : module procedure getShiftedDIM_ONO_D2_CK4
185 : use pm_kind, only: TKC => CK4
186 : #include "pm_sampleShift@routines.inc.F90"
187 1724 : end procedure
188 : #endif
189 :
190 : #if CK3_ENABLED
191 1794 : module procedure getShiftedDIM_ONO_D2_CK3
192 : use pm_kind, only: TKC => CK3
193 : #include "pm_sampleShift@routines.inc.F90"
194 1794 : end procedure
195 : #endif
196 :
197 : #if CK2_ENABLED
198 1809 : module procedure getShiftedDIM_ONO_D2_CK2
199 : use pm_kind, only: TKC => CK2
200 : #include "pm_sampleShift@routines.inc.F90"
201 1809 : end procedure
202 : #endif
203 :
204 : #if CK1_ENABLED
205 1814 : module procedure getShiftedDIM_ONO_D2_CK1
206 : use pm_kind, only: TKC => CK1
207 : #include "pm_sampleShift@routines.inc.F90"
208 1814 : end procedure
209 : #endif
210 :
211 : #undef CK_ENABLED
212 :
213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 :
215 : #define RK_ENABLED 1
216 :
217 : #if RK5_ENABLED
218 : module procedure getShiftedDIM_ONO_D2_RK5
219 : use pm_kind, only: TKC => RK5
220 : #include "pm_sampleShift@routines.inc.F90"
221 : end procedure
222 : #endif
223 :
224 : #if RK4_ENABLED
225 1722 : module procedure getShiftedDIM_ONO_D2_RK4
226 : use pm_kind, only: TKC => RK4
227 : #include "pm_sampleShift@routines.inc.F90"
228 1722 : end procedure
229 : #endif
230 :
231 : #if RK3_ENABLED
232 1820 : module procedure getShiftedDIM_ONO_D2_RK3
233 : use pm_kind, only: TKC => RK3
234 : #include "pm_sampleShift@routines.inc.F90"
235 1820 : end procedure
236 : #endif
237 :
238 : #if RK2_ENABLED
239 1778 : module procedure getShiftedDIM_ONO_D2_RK2
240 : use pm_kind, only: TKC => RK2
241 : #include "pm_sampleShift@routines.inc.F90"
242 1778 : end procedure
243 : #endif
244 :
245 : #if RK1_ENABLED
246 1798 : module procedure getShiftedDIM_ONO_D2_RK1
247 : use pm_kind, only: TKC => RK1
248 : #include "pm_sampleShift@routines.inc.F90"
249 1798 : end procedure
250 : #endif
251 :
252 : #undef RK_ENABLED
253 :
254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 :
256 : #undef ONO_ENABLED
257 :
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261 :
262 : #define OTH_ENABLED 1
263 :
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : #define CK_ENABLED 1
267 :
268 : #if CK5_ENABLED
269 : module procedure getShiftedDIM_OTH_D2_CK5
270 : use pm_kind, only: TKC => CK5
271 : #include "pm_sampleShift@routines.inc.F90"
272 : end procedure
273 : #endif
274 :
275 : #if CK4_ENABLED
276 26 : module procedure getShiftedDIM_OTH_D2_CK4
277 : use pm_kind, only: TKC => CK4
278 : #include "pm_sampleShift@routines.inc.F90"
279 26 : end procedure
280 : #endif
281 :
282 : #if CK3_ENABLED
283 50 : module procedure getShiftedDIM_OTH_D2_CK3
284 : use pm_kind, only: TKC => CK3
285 : #include "pm_sampleShift@routines.inc.F90"
286 50 : end procedure
287 : #endif
288 :
289 : #if CK2_ENABLED
290 51 : module procedure getShiftedDIM_OTH_D2_CK2
291 : use pm_kind, only: TKC => CK2
292 : #include "pm_sampleShift@routines.inc.F90"
293 51 : end procedure
294 : #endif
295 :
296 : #if CK1_ENABLED
297 52 : module procedure getShiftedDIM_OTH_D2_CK1
298 : use pm_kind, only: TKC => CK1
299 : #include "pm_sampleShift@routines.inc.F90"
300 52 : end procedure
301 : #endif
302 :
303 : #undef CK_ENABLED
304 :
305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306 :
307 : #define RK_ENABLED 1
308 :
309 : #if RK5_ENABLED
310 : module procedure getShiftedDIM_OTH_D2_RK5
311 : use pm_kind, only: TKC => RK5
312 : #include "pm_sampleShift@routines.inc.F90"
313 : end procedure
314 : #endif
315 :
316 : #if RK4_ENABLED
317 22 : module procedure getShiftedDIM_OTH_D2_RK4
318 : use pm_kind, only: TKC => RK4
319 : #include "pm_sampleShift@routines.inc.F90"
320 22 : end procedure
321 : #endif
322 :
323 : #if RK3_ENABLED
324 36 : module procedure getShiftedDIM_OTH_D2_RK3
325 : use pm_kind, only: TKC => RK3
326 : #include "pm_sampleShift@routines.inc.F90"
327 36 : end procedure
328 : #endif
329 :
330 : #if RK2_ENABLED
331 44 : module procedure getShiftedDIM_OTH_D2_RK2
332 : use pm_kind, only: TKC => RK2
333 : #include "pm_sampleShift@routines.inc.F90"
334 44 : end procedure
335 : #endif
336 :
337 : #if RK1_ENABLED
338 36 : module procedure getShiftedDIM_OTH_D2_RK1
339 : use pm_kind, only: TKC => RK1
340 : #include "pm_sampleShift@routines.inc.F90"
341 36 : end procedure
342 : #endif
343 :
344 : #undef RK_ENABLED
345 :
346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347 :
348 : #undef OTH_ENABLED
349 :
350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
353 :
354 : #undef D2_ENABLED
355 :
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
359 :
360 : #undef DIM_ENABLED
361 :
362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
365 :
366 : #undef getShifted_ENABLED
367 :
368 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369 :
370 : #define getShifted_ENABLED 1
371 :
372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375 :
376 : #define ALL_ENABLED 1
377 :
378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
380 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
381 :
382 : #define D1_ENABLED 1
383 :
384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387 :
388 : #define ONO_ENABLED 1
389 :
390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391 :
392 : #define CK_ENABLED 1
393 :
394 : #if CK5_ENABLED
395 : module procedure getShiftedALL_ONO_D1_CK5
396 : use pm_kind, only: TKC => CK5
397 : #include "pm_sampleShift@routines.inc.F90"
398 : end procedure
399 : #endif
400 :
401 : #if CK4_ENABLED
402 904 : module procedure getShiftedALL_ONO_D1_CK4
403 : use pm_kind, only: TKC => CK4
404 : #include "pm_sampleShift@routines.inc.F90"
405 904 : end procedure
406 : #endif
407 :
408 : #if CK3_ENABLED
409 900 : module procedure getShiftedALL_ONO_D1_CK3
410 : use pm_kind, only: TKC => CK3
411 : #include "pm_sampleShift@routines.inc.F90"
412 900 : end procedure
413 : #endif
414 :
415 : #if CK2_ENABLED
416 882 : module procedure getShiftedALL_ONO_D1_CK2
417 : use pm_kind, only: TKC => CK2
418 : #include "pm_sampleShift@routines.inc.F90"
419 882 : end procedure
420 : #endif
421 :
422 : #if CK1_ENABLED
423 892 : module procedure getShiftedALL_ONO_D1_CK1
424 : use pm_kind, only: TKC => CK1
425 : #include "pm_sampleShift@routines.inc.F90"
426 892 : end procedure
427 : #endif
428 :
429 : #undef CK_ENABLED
430 :
431 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
432 :
433 : #define RK_ENABLED 1
434 :
435 : #if RK5_ENABLED
436 : module procedure getShiftedALL_ONO_D1_RK5
437 : use pm_kind, only: TKC => RK5
438 : #include "pm_sampleShift@routines.inc.F90"
439 : end procedure
440 : #endif
441 :
442 : #if RK4_ENABLED
443 890 : module procedure getShiftedALL_ONO_D1_RK4
444 : use pm_kind, only: TKC => RK4
445 : #include "pm_sampleShift@routines.inc.F90"
446 890 : end procedure
447 : #endif
448 :
449 : #if RK3_ENABLED
450 922 : module procedure getShiftedALL_ONO_D1_RK3
451 : use pm_kind, only: TKC => RK3
452 : #include "pm_sampleShift@routines.inc.F90"
453 922 : end procedure
454 : #endif
455 :
456 : #if RK2_ENABLED
457 894 : module procedure getShiftedALL_ONO_D1_RK2
458 : use pm_kind, only: TKC => RK2
459 : #include "pm_sampleShift@routines.inc.F90"
460 894 : end procedure
461 : #endif
462 :
463 : #if RK1_ENABLED
464 934 : module procedure getShiftedALL_ONO_D1_RK1
465 : use pm_kind, only: TKC => RK1
466 : #include "pm_sampleShift@routines.inc.F90"
467 934 : end procedure
468 : #endif
469 :
470 : #undef RK_ENABLED
471 :
472 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
473 :
474 : #undef ONO_ENABLED
475 :
476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
479 :
480 : #undef D1_ENABLED
481 :
482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
483 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485 :
486 : #define D2_ENABLED 1
487 :
488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491 :
492 : #define ONO_ENABLED 1
493 :
494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
495 :
496 : #define CK_ENABLED 1
497 :
498 : #if CK5_ENABLED
499 : module procedure getShiftedALL_ONO_D2_CK5
500 : use pm_kind, only: TKC => CK5
501 : #include "pm_sampleShift@routines.inc.F90"
502 : end procedure
503 : #endif
504 :
505 : #if CK4_ENABLED
506 213 : module procedure getShiftedALL_ONO_D2_CK4
507 : use pm_kind, only: TKC => CK4
508 : #include "pm_sampleShift@routines.inc.F90"
509 213 : end procedure
510 : #endif
511 :
512 : #if CK3_ENABLED
513 291 : module procedure getShiftedALL_ONO_D2_CK3
514 : use pm_kind, only: TKC => CK3
515 : #include "pm_sampleShift@routines.inc.F90"
516 291 : end procedure
517 : #endif
518 :
519 : #if CK2_ENABLED
520 286 : module procedure getShiftedALL_ONO_D2_CK2
521 : use pm_kind, only: TKC => CK2
522 : #include "pm_sampleShift@routines.inc.F90"
523 286 : end procedure
524 : #endif
525 :
526 : #if CK1_ENABLED
527 264 : module procedure getShiftedALL_ONO_D2_CK1
528 : use pm_kind, only: TKC => CK1
529 : #include "pm_sampleShift@routines.inc.F90"
530 264 : end procedure
531 : #endif
532 :
533 : #undef CK_ENABLED
534 :
535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
536 :
537 : #define RK_ENABLED 1
538 :
539 : #if RK5_ENABLED
540 : module procedure getShiftedALL_ONO_D2_RK5
541 : use pm_kind, only: TKC => RK5
542 : #include "pm_sampleShift@routines.inc.F90"
543 : end procedure
544 : #endif
545 :
546 : #if RK4_ENABLED
547 225 : module procedure getShiftedALL_ONO_D2_RK4
548 : use pm_kind, only: TKC => RK4
549 : #include "pm_sampleShift@routines.inc.F90"
550 225 : end procedure
551 : #endif
552 :
553 : #if RK3_ENABLED
554 284 : module procedure getShiftedALL_ONO_D2_RK3
555 : use pm_kind, only: TKC => RK3
556 : #include "pm_sampleShift@routines.inc.F90"
557 284 : end procedure
558 : #endif
559 :
560 : #if RK2_ENABLED
561 296 : module procedure getShiftedALL_ONO_D2_RK2
562 : use pm_kind, only: TKC => RK2
563 : #include "pm_sampleShift@routines.inc.F90"
564 296 : end procedure
565 : #endif
566 :
567 : #if RK1_ENABLED
568 316 : module procedure getShiftedALL_ONO_D2_RK1
569 : use pm_kind, only: TKC => RK1
570 : #include "pm_sampleShift@routines.inc.F90"
571 316 : end procedure
572 : #endif
573 :
574 : #undef RK_ENABLED
575 :
576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577 :
578 : #undef ONO_ENABLED
579 :
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
582 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
583 :
584 : #define OTH_ENABLED 1
585 :
586 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587 :
588 : #define CK_ENABLED 1
589 :
590 : #if CK5_ENABLED
591 : module procedure getShiftedALL_OTH_D2_CK5
592 : use pm_kind, only: TKC => CK5
593 : #include "pm_sampleShift@routines.inc.F90"
594 : end procedure
595 : #endif
596 :
597 : #if CK4_ENABLED
598 25 : module procedure getShiftedALL_OTH_D2_CK4
599 : use pm_kind, only: TKC => CK4
600 : #include "pm_sampleShift@routines.inc.F90"
601 25 : end procedure
602 : #endif
603 :
604 : #if CK3_ENABLED
605 51 : module procedure getShiftedALL_OTH_D2_CK3
606 : use pm_kind, only: TKC => CK3
607 : #include "pm_sampleShift@routines.inc.F90"
608 51 : end procedure
609 : #endif
610 :
611 : #if CK2_ENABLED
612 36 : module procedure getShiftedALL_OTH_D2_CK2
613 : use pm_kind, only: TKC => CK2
614 : #include "pm_sampleShift@routines.inc.F90"
615 36 : end procedure
616 : #endif
617 :
618 : #if CK1_ENABLED
619 40 : module procedure getShiftedALL_OTH_D2_CK1
620 : use pm_kind, only: TKC => CK1
621 : #include "pm_sampleShift@routines.inc.F90"
622 40 : end procedure
623 : #endif
624 :
625 : #undef CK_ENABLED
626 :
627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
628 :
629 : #define RK_ENABLED 1
630 :
631 : #if RK5_ENABLED
632 : module procedure getShiftedALL_OTH_D2_RK5
633 : use pm_kind, only: TKC => RK5
634 : #include "pm_sampleShift@routines.inc.F90"
635 : end procedure
636 : #endif
637 :
638 : #if RK4_ENABLED
639 23 : module procedure getShiftedALL_OTH_D2_RK4
640 : use pm_kind, only: TKC => RK4
641 : #include "pm_sampleShift@routines.inc.F90"
642 23 : end procedure
643 : #endif
644 :
645 : #if RK3_ENABLED
646 38 : module procedure getShiftedALL_OTH_D2_RK3
647 : use pm_kind, only: TKC => RK3
648 : #include "pm_sampleShift@routines.inc.F90"
649 38 : end procedure
650 : #endif
651 :
652 : #if RK2_ENABLED
653 50 : module procedure getShiftedALL_OTH_D2_RK2
654 : use pm_kind, only: TKC => RK2
655 : #include "pm_sampleShift@routines.inc.F90"
656 50 : end procedure
657 : #endif
658 :
659 : #if RK1_ENABLED
660 52 : module procedure getShiftedALL_OTH_D2_RK1
661 : use pm_kind, only: TKC => RK1
662 : #include "pm_sampleShift@routines.inc.F90"
663 52 : end procedure
664 : #endif
665 :
666 : #undef RK_ENABLED
667 :
668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
669 :
670 : #undef OTH_ENABLED
671 :
672 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
674 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
675 :
676 : #undef D2_ENABLED
677 :
678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
681 :
682 : #undef ALL_ENABLED
683 :
684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
685 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
687 :
688 : #undef getShifted_ENABLED
689 :
690 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
691 :
692 : #define setShifted_ENABLED 1
693 :
694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
695 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
697 :
698 : #define DIM_ENABLED 1
699 :
700 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
703 :
704 : #define D1_ENABLED 1
705 :
706 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
707 :
708 : #define CK_ENABLED 1
709 :
710 : #if CK5_ENABLED
711 : module procedure setShiftedDIM_D1_CK5
712 : use pm_kind, only: TKC => CK5
713 : #include "pm_sampleShift@routines.inc.F90"
714 : end procedure
715 : #endif
716 :
717 : #if CK4_ENABLED
718 0 : module procedure setShiftedDIM_D1_CK4
719 : use pm_kind, only: TKC => CK4
720 : #include "pm_sampleShift@routines.inc.F90"
721 0 : end procedure
722 : #endif
723 :
724 : #if CK3_ENABLED
725 0 : module procedure setShiftedDIM_D1_CK3
726 : use pm_kind, only: TKC => CK3
727 : #include "pm_sampleShift@routines.inc.F90"
728 0 : end procedure
729 : #endif
730 :
731 : #if CK2_ENABLED
732 0 : module procedure setShiftedDIM_D1_CK2
733 : use pm_kind, only: TKC => CK2
734 : #include "pm_sampleShift@routines.inc.F90"
735 0 : end procedure
736 : #endif
737 :
738 : #if CK1_ENABLED
739 0 : module procedure setShiftedDIM_D1_CK1
740 : use pm_kind, only: TKC => CK1
741 : #include "pm_sampleShift@routines.inc.F90"
742 0 : end procedure
743 : #endif
744 :
745 : #undef CK_ENABLED
746 :
747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
748 :
749 : #define RK_ENABLED 1
750 :
751 : #if RK5_ENABLED
752 : module procedure setShiftedDIM_D1_RK5
753 : use pm_kind, only: TKC => RK5
754 : #include "pm_sampleShift@routines.inc.F90"
755 : end procedure
756 : #endif
757 :
758 : #if RK4_ENABLED
759 0 : module procedure setShiftedDIM_D1_RK4
760 : use pm_kind, only: TKC => RK4
761 : #include "pm_sampleShift@routines.inc.F90"
762 0 : end procedure
763 : #endif
764 :
765 : #if RK3_ENABLED
766 0 : module procedure setShiftedDIM_D1_RK3
767 : use pm_kind, only: TKC => RK3
768 : #include "pm_sampleShift@routines.inc.F90"
769 0 : end procedure
770 : #endif
771 :
772 : #if RK2_ENABLED
773 0 : module procedure setShiftedDIM_D1_RK2
774 : use pm_kind, only: TKC => RK2
775 : #include "pm_sampleShift@routines.inc.F90"
776 0 : end procedure
777 : #endif
778 :
779 : #if RK1_ENABLED
780 0 : module procedure setShiftedDIM_D1_RK1
781 : use pm_kind, only: TKC => RK1
782 : #include "pm_sampleShift@routines.inc.F90"
783 0 : end procedure
784 : #endif
785 :
786 : #undef RK_ENABLED
787 :
788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789 :
790 : #undef D1_ENABLED
791 :
792 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
795 :
796 : #define D2_ENABLED 1
797 :
798 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
799 :
800 : #define CK_ENABLED 1
801 :
802 : #if CK5_ENABLED
803 : module procedure setShiftedDIM_D2_CK5
804 : use pm_kind, only: TKC => CK5
805 : #include "pm_sampleShift@routines.inc.F90"
806 : end procedure
807 : #endif
808 :
809 : #if CK4_ENABLED
810 198 : module procedure setShiftedDIM_D2_CK4
811 : use pm_kind, only: TKC => CK4
812 : #include "pm_sampleShift@routines.inc.F90"
813 198 : end procedure
814 : #endif
815 :
816 : #if CK3_ENABLED
817 376 : module procedure setShiftedDIM_D2_CK3
818 : use pm_kind, only: TKC => CK3
819 : #include "pm_sampleShift@routines.inc.F90"
820 376 : end procedure
821 : #endif
822 :
823 : #if CK2_ENABLED
824 394 : module procedure setShiftedDIM_D2_CK2
825 : use pm_kind, only: TKC => CK2
826 : #include "pm_sampleShift@routines.inc.F90"
827 394 : end procedure
828 : #endif
829 :
830 : #if CK1_ENABLED
831 383 : module procedure setShiftedDIM_D2_CK1
832 : use pm_kind, only: TKC => CK1
833 : #include "pm_sampleShift@routines.inc.F90"
834 383 : end procedure
835 : #endif
836 :
837 : #undef CK_ENABLED
838 :
839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
840 :
841 : #define RK_ENABLED 1
842 :
843 : #if RK5_ENABLED
844 : module procedure setShiftedDIM_D2_RK5
845 : use pm_kind, only: TKC => RK5
846 : #include "pm_sampleShift@routines.inc.F90"
847 : end procedure
848 : #endif
849 :
850 : #if RK4_ENABLED
851 188 : module procedure setShiftedDIM_D2_RK4
852 : use pm_kind, only: TKC => RK4
853 : #include "pm_sampleShift@routines.inc.F90"
854 188 : end procedure
855 : #endif
856 :
857 : #if RK3_ENABLED
858 370 : module procedure setShiftedDIM_D2_RK3
859 : use pm_kind, only: TKC => RK3
860 : #include "pm_sampleShift@routines.inc.F90"
861 370 : end procedure
862 : #endif
863 :
864 : #if RK2_ENABLED
865 382 : module procedure setShiftedDIM_D2_RK2
866 : use pm_kind, only: TKC => RK2
867 : #include "pm_sampleShift@routines.inc.F90"
868 382 : end procedure
869 : #endif
870 :
871 : #if RK1_ENABLED
872 385 : module procedure setShiftedDIM_D2_RK1
873 : use pm_kind, only: TKC => RK1
874 : #include "pm_sampleShift@routines.inc.F90"
875 385 : end procedure
876 : #endif
877 :
878 : #undef RK_ENABLED
879 :
880 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
881 :
882 : #undef D2_ENABLED
883 :
884 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
885 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
887 :
888 : #undef DIM_ENABLED
889 :
890 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
891 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
893 :
894 : #undef setShifted_ENABLED
895 :
896 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
897 :
898 : #define setShifted_ENABLED 1
899 :
900 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
901 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
903 :
904 : #define ALL_ENABLED 1
905 :
906 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
907 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
909 :
910 : #define D1_ENABLED 1
911 :
912 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
913 :
914 : #define CK_ENABLED 1
915 :
916 : #if CK5_ENABLED
917 : module procedure setShiftedALL_D1_CK5
918 : use pm_kind, only: TKC => CK5
919 : #include "pm_sampleShift@routines.inc.F90"
920 : end procedure
921 : #endif
922 :
923 : #if CK4_ENABLED
924 2 : module procedure setShiftedALL_D1_CK4
925 : use pm_kind, only: TKC => CK4
926 : #include "pm_sampleShift@routines.inc.F90"
927 2 : end procedure
928 : #endif
929 :
930 : #if CK3_ENABLED
931 24 : module procedure setShiftedALL_D1_CK3
932 : use pm_kind, only: TKC => CK3
933 : #include "pm_sampleShift@routines.inc.F90"
934 24 : end procedure
935 : #endif
936 :
937 : #if CK2_ENABLED
938 6 : module procedure setShiftedALL_D1_CK2
939 : use pm_kind, only: TKC => CK2
940 : #include "pm_sampleShift@routines.inc.F90"
941 6 : end procedure
942 : #endif
943 :
944 : #if CK1_ENABLED
945 27 : module procedure setShiftedALL_D1_CK1
946 : use pm_kind, only: TKC => CK1
947 : #include "pm_sampleShift@routines.inc.F90"
948 27 : end procedure
949 : #endif
950 :
951 : #undef CK_ENABLED
952 :
953 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
954 :
955 : #define RK_ENABLED 1
956 :
957 : #if RK5_ENABLED
958 : module procedure setShiftedALL_D1_RK5
959 : use pm_kind, only: TKC => RK5
960 : #include "pm_sampleShift@routines.inc.F90"
961 : end procedure
962 : #endif
963 :
964 : #if RK4_ENABLED
965 12 : module procedure setShiftedALL_D1_RK4
966 : use pm_kind, only: TKC => RK4
967 : #include "pm_sampleShift@routines.inc.F90"
968 12 : end procedure
969 : #endif
970 :
971 : #if RK3_ENABLED
972 30 : module procedure setShiftedALL_D1_RK3
973 : use pm_kind, only: TKC => RK3
974 : #include "pm_sampleShift@routines.inc.F90"
975 30 : end procedure
976 : #endif
977 :
978 : #if RK2_ENABLED
979 18 : module procedure setShiftedALL_D1_RK2
980 : use pm_kind, only: TKC => RK2
981 : #include "pm_sampleShift@routines.inc.F90"
982 18 : end procedure
983 : #endif
984 :
985 : #if RK1_ENABLED
986 25 : module procedure setShiftedALL_D1_RK1
987 : use pm_kind, only: TKC => RK1
988 : #include "pm_sampleShift@routines.inc.F90"
989 25 : end procedure
990 : #endif
991 :
992 : #undef RK_ENABLED
993 :
994 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
995 :
996 : #undef D1_ENABLED
997 :
998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
999 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1001 :
1002 : #define D2_ENABLED 1
1003 :
1004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1005 :
1006 : #define CK_ENABLED 1
1007 :
1008 : #if CK5_ENABLED
1009 : module procedure setShiftedALL_D2_CK5
1010 : use pm_kind, only: TKC => CK5
1011 : #include "pm_sampleShift@routines.inc.F90"
1012 : end procedure
1013 : #endif
1014 :
1015 : #if CK4_ENABLED
1016 0 : module procedure setShiftedALL_D2_CK4
1017 : use pm_kind, only: TKC => CK4
1018 : #include "pm_sampleShift@routines.inc.F90"
1019 0 : end procedure
1020 : #endif
1021 :
1022 : #if CK3_ENABLED
1023 0 : module procedure setShiftedALL_D2_CK3
1024 : use pm_kind, only: TKC => CK3
1025 : #include "pm_sampleShift@routines.inc.F90"
1026 0 : end procedure
1027 : #endif
1028 :
1029 : #if CK2_ENABLED
1030 0 : module procedure setShiftedALL_D2_CK2
1031 : use pm_kind, only: TKC => CK2
1032 : #include "pm_sampleShift@routines.inc.F90"
1033 0 : end procedure
1034 : #endif
1035 :
1036 : #if CK1_ENABLED
1037 0 : module procedure setShiftedALL_D2_CK1
1038 : use pm_kind, only: TKC => CK1
1039 : #include "pm_sampleShift@routines.inc.F90"
1040 0 : end procedure
1041 : #endif
1042 :
1043 : #undef CK_ENABLED
1044 :
1045 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1046 :
1047 : #define RK_ENABLED 1
1048 :
1049 : #if RK5_ENABLED
1050 : module procedure setShiftedALL_D2_RK5
1051 : use pm_kind, only: TKC => RK5
1052 : #include "pm_sampleShift@routines.inc.F90"
1053 : end procedure
1054 : #endif
1055 :
1056 : #if RK4_ENABLED
1057 0 : module procedure setShiftedALL_D2_RK4
1058 : use pm_kind, only: TKC => RK4
1059 : #include "pm_sampleShift@routines.inc.F90"
1060 0 : end procedure
1061 : #endif
1062 :
1063 : #if RK3_ENABLED
1064 0 : module procedure setShiftedALL_D2_RK3
1065 : use pm_kind, only: TKC => RK3
1066 : #include "pm_sampleShift@routines.inc.F90"
1067 0 : end procedure
1068 : #endif
1069 :
1070 : #if RK2_ENABLED
1071 0 : module procedure setShiftedALL_D2_RK2
1072 : use pm_kind, only: TKC => RK2
1073 : #include "pm_sampleShift@routines.inc.F90"
1074 0 : end procedure
1075 : #endif
1076 :
1077 : #if RK1_ENABLED
1078 0 : module procedure setShiftedALL_D2_RK1
1079 : use pm_kind, only: TKC => RK1
1080 : #include "pm_sampleShift@routines.inc.F90"
1081 0 : end procedure
1082 : #endif
1083 :
1084 : #undef RK_ENABLED
1085 :
1086 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1087 :
1088 : #undef D2_ENABLED
1089 :
1090 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1093 :
1094 : #undef ALL_ENABLED
1095 :
1096 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1099 :
1100 : #undef setShifted_ENABLED
1101 :
1102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1103 :
1104 : end submodule routines
|
