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_arrayRemap](@ref pm_arrayRemap).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_arrayRemap) 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 : implicit none
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : contains
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define getRemapped_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define New_ENABLED 1
54 :
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 :
59 : #define For_ENABLED 1
60 :
61 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 :
65 : #define D0_ENABLED 1
66 :
67 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
68 :
69 : #define SK_ENABLED 1
70 :
71 : #if SK5_ENABLED
72 : module procedure getRemappedFor_D0_SK5
73 : use pm_kind, only: SKC => SK5
74 : #include "pm_arrayRemap@routines.inc.F90"
75 : end procedure
76 : #endif
77 :
78 : #if SK4_ENABLED
79 : module procedure getRemappedFor_D0_SK4
80 : use pm_kind, only: SKC => SK4
81 : #include "pm_arrayRemap@routines.inc.F90"
82 : end procedure
83 : #endif
84 :
85 : #if SK3_ENABLED
86 : module procedure getRemappedFor_D0_SK3
87 : use pm_kind, only: SKC => SK3
88 : #include "pm_arrayRemap@routines.inc.F90"
89 : end procedure
90 : #endif
91 :
92 : #if SK2_ENABLED
93 : module procedure getRemappedFor_D0_SK2
94 : use pm_kind, only: SKC => SK2
95 : #include "pm_arrayRemap@routines.inc.F90"
96 : end procedure
97 : #endif
98 :
99 : #if SK1_ENABLED
100 437 : module procedure getRemappedFor_D0_SK1
101 : use pm_kind, only: SKC => SK1
102 : #include "pm_arrayRemap@routines.inc.F90"
103 437 : end procedure
104 : #endif
105 :
106 : #undef SK_ENABLED
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 :
110 : #undef D0_ENABLED
111 :
112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 :
116 : #define D1_ENABLED 1
117 :
118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
119 :
120 :
121 : #define SK_ENABLED 1
122 :
123 : #if SK5_ENABLED
124 : module procedure getRemappedFor_D1_SK5
125 : use pm_kind, only: SKC => SK5
126 : #include "pm_arrayRemap@routines.inc.F90"
127 : end procedure
128 : #endif
129 :
130 : #if SK4_ENABLED
131 : module procedure getRemappedFor_D1_SK4
132 : use pm_kind, only: SKC => SK4
133 : #include "pm_arrayRemap@routines.inc.F90"
134 : end procedure
135 : #endif
136 :
137 : #if SK3_ENABLED
138 : module procedure getRemappedFor_D1_SK3
139 : use pm_kind, only: SKC => SK3
140 : #include "pm_arrayRemap@routines.inc.F90"
141 : end procedure
142 : #endif
143 :
144 : #if SK2_ENABLED
145 : module procedure getRemappedFor_D1_SK2
146 : use pm_kind, only: SKC => SK2
147 : #include "pm_arrayRemap@routines.inc.F90"
148 : end procedure
149 : #endif
150 :
151 : #if SK1_ENABLED
152 413 : module procedure getRemappedFor_D1_SK1
153 : use pm_kind, only: SKC => SK1
154 : #include "pm_arrayRemap@routines.inc.F90"
155 413 : end procedure
156 : #endif
157 :
158 : #undef SK_ENABLED
159 :
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 :
162 : #define IK_ENABLED 1
163 :
164 : #if IK5_ENABLED
165 412 : module procedure getRemappedFor_D1_IK5
166 : use pm_kind, only: IKC => IK5
167 : #include "pm_arrayRemap@routines.inc.F90"
168 412 : end procedure
169 : #endif
170 :
171 : #if IK4_ENABLED
172 412 : module procedure getRemappedFor_D1_IK4
173 : use pm_kind, only: IKC => IK4
174 : #include "pm_arrayRemap@routines.inc.F90"
175 412 : end procedure
176 : #endif
177 :
178 : #if IK3_ENABLED
179 413 : module procedure getRemappedFor_D1_IK3
180 : use pm_kind, only: IKC => IK3
181 : #include "pm_arrayRemap@routines.inc.F90"
182 413 : end procedure
183 : #endif
184 :
185 : #if IK2_ENABLED
186 412 : module procedure getRemappedFor_D1_IK2
187 : use pm_kind, only: IKC => IK2
188 : #include "pm_arrayRemap@routines.inc.F90"
189 412 : end procedure
190 : #endif
191 :
192 : #if IK1_ENABLED
193 412 : module procedure getRemappedFor_D1_IK1
194 : use pm_kind, only: IKC => IK1
195 : #include "pm_arrayRemap@routines.inc.F90"
196 412 : end procedure
197 : #endif
198 :
199 : #undef IK_ENABLED
200 :
201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
202 :
203 : #define LK_ENABLED 1
204 :
205 : #if LK5_ENABLED
206 412 : module procedure getRemappedFor_D1_LK5
207 : use pm_kind, only: LKC => LK5
208 : #include "pm_arrayRemap@routines.inc.F90"
209 412 : end procedure
210 : #endif
211 :
212 : #if LK4_ENABLED
213 412 : module procedure getRemappedFor_D1_LK4
214 : use pm_kind, only: LKC => LK4
215 : #include "pm_arrayRemap@routines.inc.F90"
216 412 : end procedure
217 : #endif
218 :
219 : #if LK3_ENABLED
220 413 : module procedure getRemappedFor_D1_LK3
221 : use pm_kind, only: LKC => LK3
222 : #include "pm_arrayRemap@routines.inc.F90"
223 413 : end procedure
224 : #endif
225 :
226 : #if LK2_ENABLED
227 412 : module procedure getRemappedFor_D1_LK2
228 : use pm_kind, only: LKC => LK2
229 : #include "pm_arrayRemap@routines.inc.F90"
230 412 : end procedure
231 : #endif
232 :
233 : #if LK1_ENABLED
234 412 : module procedure getRemappedFor_D1_LK1
235 : use pm_kind, only: LKC => LK1
236 : #include "pm_arrayRemap@routines.inc.F90"
237 412 : end procedure
238 : #endif
239 :
240 : #undef LK_ENABLED
241 :
242 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
243 :
244 : #define CK_ENABLED 1
245 :
246 : #if CK5_ENABLED
247 : module procedure getRemappedFor_D1_CK5
248 : use pm_kind, only: CKC => CK5
249 : #include "pm_arrayRemap@routines.inc.F90"
250 : end procedure
251 : #endif
252 :
253 : #if CK4_ENABLED
254 412 : module procedure getRemappedFor_D1_CK4
255 : use pm_kind, only: CKC => CK4
256 : #include "pm_arrayRemap@routines.inc.F90"
257 412 : end procedure
258 : #endif
259 :
260 : #if CK3_ENABLED
261 412 : module procedure getRemappedFor_D1_CK3
262 : use pm_kind, only: CKC => CK3
263 : #include "pm_arrayRemap@routines.inc.F90"
264 412 : end procedure
265 : #endif
266 :
267 : #if CK2_ENABLED
268 413 : module procedure getRemappedFor_D1_CK2
269 : use pm_kind, only: CKC => CK2
270 : #include "pm_arrayRemap@routines.inc.F90"
271 413 : end procedure
272 : #endif
273 :
274 : #if CK1_ENABLED
275 412 : module procedure getRemappedFor_D1_CK1
276 : use pm_kind, only: CKC => CK1
277 : #include "pm_arrayRemap@routines.inc.F90"
278 412 : end procedure
279 : #endif
280 :
281 : #undef CK_ENABLED
282 :
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 :
285 : #define RK_ENABLED 1
286 :
287 : #if RK5_ENABLED
288 : module procedure getRemappedFor_D1_RK5
289 : use pm_kind, only: RKC => RK5
290 : #include "pm_arrayRemap@routines.inc.F90"
291 : end procedure
292 : #endif
293 :
294 : #if RK4_ENABLED
295 412 : module procedure getRemappedFor_D1_RK4
296 : use pm_kind, only: RKC => RK4
297 : #include "pm_arrayRemap@routines.inc.F90"
298 412 : end procedure
299 : #endif
300 :
301 : #if RK3_ENABLED
302 412 : module procedure getRemappedFor_D1_RK3
303 : use pm_kind, only: RKC => RK3
304 : #include "pm_arrayRemap@routines.inc.F90"
305 412 : end procedure
306 : #endif
307 :
308 : #if RK2_ENABLED
309 413 : module procedure getRemappedFor_D1_RK2
310 : use pm_kind, only: RKC => RK2
311 : #include "pm_arrayRemap@routines.inc.F90"
312 413 : end procedure
313 : #endif
314 :
315 : #if RK1_ENABLED
316 412 : module procedure getRemappedFor_D1_RK1
317 : use pm_kind, only: RKC => RK1
318 : #include "pm_arrayRemap@routines.inc.F90"
319 412 : end procedure
320 : #endif
321 :
322 : #undef RK_ENABLED
323 :
324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 :
326 : #undef D1_ENABLED
327 :
328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 :
332 : #undef For_ENABLED
333 :
334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337 :
338 : #define Rev_ENABLED 1
339 :
340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
343 :
344 : #define D0_ENABLED 1
345 :
346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347 :
348 : #define SK_ENABLED 1
349 :
350 : #if SK5_ENABLED
351 : module procedure getRemappedRev_D0_SK5
352 : use pm_kind, only: SKC => SK5
353 : #include "pm_arrayRemap@routines.inc.F90"
354 : end procedure
355 : #endif
356 :
357 : #if SK4_ENABLED
358 : module procedure getRemappedRev_D0_SK4
359 : use pm_kind, only: SKC => SK4
360 : #include "pm_arrayRemap@routines.inc.F90"
361 : end procedure
362 : #endif
363 :
364 : #if SK3_ENABLED
365 : module procedure getRemappedRev_D0_SK3
366 : use pm_kind, only: SKC => SK3
367 : #include "pm_arrayRemap@routines.inc.F90"
368 : end procedure
369 : #endif
370 :
371 : #if SK2_ENABLED
372 : module procedure getRemappedRev_D0_SK2
373 : use pm_kind, only: SKC => SK2
374 : #include "pm_arrayRemap@routines.inc.F90"
375 : end procedure
376 : #endif
377 :
378 : #if SK1_ENABLED
379 29 : module procedure getRemappedRev_D0_SK1
380 : use pm_kind, only: SKC => SK1
381 : #include "pm_arrayRemap@routines.inc.F90"
382 29 : end procedure
383 : #endif
384 :
385 : #undef SK_ENABLED
386 :
387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
388 :
389 : #undef D0_ENABLED
390 :
391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
394 :
395 : #define D1_ENABLED 1
396 :
397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398 :
399 : #define SK_ENABLED 1
400 :
401 : #if SK5_ENABLED
402 : module procedure getRemappedRev_D1_SK5
403 : use pm_kind, only: SKC => SK5
404 : #include "pm_arrayRemap@routines.inc.F90"
405 : end procedure
406 : #endif
407 :
408 : #if SK4_ENABLED
409 : module procedure getRemappedRev_D1_SK4
410 : use pm_kind, only: SKC => SK4
411 : #include "pm_arrayRemap@routines.inc.F90"
412 : end procedure
413 : #endif
414 :
415 : #if SK3_ENABLED
416 : module procedure getRemappedRev_D1_SK3
417 : use pm_kind, only: SKC => SK3
418 : #include "pm_arrayRemap@routines.inc.F90"
419 : end procedure
420 : #endif
421 :
422 : #if SK2_ENABLED
423 : module procedure getRemappedRev_D1_SK2
424 : use pm_kind, only: SKC => SK2
425 : #include "pm_arrayRemap@routines.inc.F90"
426 : end procedure
427 : #endif
428 :
429 : #if SK1_ENABLED
430 9 : module procedure getRemappedRev_D1_SK1
431 : use pm_kind, only: SKC => SK1
432 : #include "pm_arrayRemap@routines.inc.F90"
433 9 : end procedure
434 : #endif
435 :
436 : #undef SK_ENABLED
437 :
438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 :
440 : #define IK_ENABLED 1
441 :
442 : #if IK5_ENABLED
443 8 : module procedure getRemappedRev_D1_IK5
444 : use pm_kind, only: IKC => IK5
445 : #include "pm_arrayRemap@routines.inc.F90"
446 8 : end procedure
447 : #endif
448 :
449 : #if IK4_ENABLED
450 8 : module procedure getRemappedRev_D1_IK4
451 : use pm_kind, only: IKC => IK4
452 : #include "pm_arrayRemap@routines.inc.F90"
453 8 : end procedure
454 : #endif
455 :
456 : #if IK3_ENABLED
457 9 : module procedure getRemappedRev_D1_IK3
458 : use pm_kind, only: IKC => IK3
459 : #include "pm_arrayRemap@routines.inc.F90"
460 9 : end procedure
461 : #endif
462 :
463 : #if IK2_ENABLED
464 8 : module procedure getRemappedRev_D1_IK2
465 : use pm_kind, only: IKC => IK2
466 : #include "pm_arrayRemap@routines.inc.F90"
467 8 : end procedure
468 : #endif
469 :
470 : #if IK1_ENABLED
471 8 : module procedure getRemappedRev_D1_IK1
472 : use pm_kind, only: IKC => IK1
473 : #include "pm_arrayRemap@routines.inc.F90"
474 8 : end procedure
475 : #endif
476 :
477 : #undef IK_ENABLED
478 :
479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
480 :
481 : #define LK_ENABLED 1
482 :
483 : #if LK5_ENABLED
484 8 : module procedure getRemappedRev_D1_LK5
485 : use pm_kind, only: LKC => LK5
486 : #include "pm_arrayRemap@routines.inc.F90"
487 8 : end procedure
488 : #endif
489 :
490 : #if LK4_ENABLED
491 8 : module procedure getRemappedRev_D1_LK4
492 : use pm_kind, only: LKC => LK4
493 : #include "pm_arrayRemap@routines.inc.F90"
494 8 : end procedure
495 : #endif
496 :
497 : #if LK3_ENABLED
498 9 : module procedure getRemappedRev_D1_LK3
499 : use pm_kind, only: LKC => LK3
500 : #include "pm_arrayRemap@routines.inc.F90"
501 9 : end procedure
502 : #endif
503 :
504 : #if LK2_ENABLED
505 8 : module procedure getRemappedRev_D1_LK2
506 : use pm_kind, only: LKC => LK2
507 : #include "pm_arrayRemap@routines.inc.F90"
508 8 : end procedure
509 : #endif
510 :
511 : #if LK1_ENABLED
512 8 : module procedure getRemappedRev_D1_LK1
513 : use pm_kind, only: LKC => LK1
514 : #include "pm_arrayRemap@routines.inc.F90"
515 8 : end procedure
516 : #endif
517 :
518 : #undef LK_ENABLED
519 :
520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521 :
522 : #define CK_ENABLED 1
523 :
524 : #if CK5_ENABLED
525 : module procedure getRemappedRev_D1_CK5
526 : use pm_kind, only: CKC => CK5
527 : #include "pm_arrayRemap@routines.inc.F90"
528 : end procedure
529 : #endif
530 :
531 : #if CK4_ENABLED
532 8 : module procedure getRemappedRev_D1_CK4
533 : use pm_kind, only: CKC => CK4
534 : #include "pm_arrayRemap@routines.inc.F90"
535 8 : end procedure
536 : #endif
537 :
538 : #if CK3_ENABLED
539 8 : module procedure getRemappedRev_D1_CK3
540 : use pm_kind, only: CKC => CK3
541 : #include "pm_arrayRemap@routines.inc.F90"
542 8 : end procedure
543 : #endif
544 :
545 : #if CK2_ENABLED
546 9 : module procedure getRemappedRev_D1_CK2
547 : use pm_kind, only: CKC => CK2
548 : #include "pm_arrayRemap@routines.inc.F90"
549 9 : end procedure
550 : #endif
551 :
552 : #if CK1_ENABLED
553 8 : module procedure getRemappedRev_D1_CK1
554 : use pm_kind, only: CKC => CK1
555 : #include "pm_arrayRemap@routines.inc.F90"
556 8 : end procedure
557 : #endif
558 :
559 : #undef CK_ENABLED
560 :
561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562 :
563 : #define RK_ENABLED 1
564 :
565 : #if RK5_ENABLED
566 : module procedure getRemappedRev_D1_RK5
567 : use pm_kind, only: RKC => RK5
568 : #include "pm_arrayRemap@routines.inc.F90"
569 : end procedure
570 : #endif
571 :
572 : #if RK4_ENABLED
573 8 : module procedure getRemappedRev_D1_RK4
574 : use pm_kind, only: RKC => RK4
575 : #include "pm_arrayRemap@routines.inc.F90"
576 8 : end procedure
577 : #endif
578 :
579 : #if RK3_ENABLED
580 8 : module procedure getRemappedRev_D1_RK3
581 : use pm_kind, only: RKC => RK3
582 : #include "pm_arrayRemap@routines.inc.F90"
583 8 : end procedure
584 : #endif
585 :
586 : #if RK2_ENABLED
587 9 : module procedure getRemappedRev_D1_RK2
588 : use pm_kind, only: RKC => RK2
589 : #include "pm_arrayRemap@routines.inc.F90"
590 9 : end procedure
591 : #endif
592 :
593 : #if RK1_ENABLED
594 8 : module procedure getRemappedRev_D1_RK1
595 : use pm_kind, only: RKC => RK1
596 : #include "pm_arrayRemap@routines.inc.F90"
597 8 : end procedure
598 : #endif
599 :
600 : #undef RK_ENABLED
601 :
602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
603 :
604 : #undef D1_ENABLED
605 :
606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
608 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
609 :
610 : #undef Rev_ENABLED
611 :
612 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
615 :
616 : #undef New_ENABLED
617 :
618 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
619 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
621 :
622 : #undef getRemapped_ENABLED
623 :
624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
625 :
626 : #define setRemapped_ENABLED 1
627 :
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
631 :
632 : #define For_ENABLED 1
633 : #define Old_ENABLED 1
634 :
635 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
637 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
638 :
639 : #define D0_ENABLED 1
640 :
641 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
642 :
643 : #define SK_ENABLED 1
644 :
645 : #if SK5_ENABLED
646 : module procedure setRemappedForOld_D0_SK5
647 : use pm_kind, only: SKC => SK5
648 : #include "pm_arrayRemap@routines.inc.F90"
649 : end procedure
650 : #endif
651 :
652 : #if SK4_ENABLED
653 : module procedure setRemappedForOld_D0_SK4
654 : use pm_kind, only: SKC => SK4
655 : #include "pm_arrayRemap@routines.inc.F90"
656 : end procedure
657 : #endif
658 :
659 : #if SK3_ENABLED
660 : module procedure setRemappedForOld_D0_SK3
661 : use pm_kind, only: SKC => SK3
662 : #include "pm_arrayRemap@routines.inc.F90"
663 : end procedure
664 : #endif
665 :
666 : #if SK2_ENABLED
667 : module procedure setRemappedForOld_D0_SK2
668 : use pm_kind, only: SKC => SK2
669 : #include "pm_arrayRemap@routines.inc.F90"
670 : end procedure
671 : #endif
672 :
673 : #if SK1_ENABLED
674 174 : module procedure setRemappedForOld_D0_SK1
675 : use pm_kind, only: SKC => SK1
676 : #include "pm_arrayRemap@routines.inc.F90"
677 87 : end procedure
678 : #endif
679 :
680 : #undef SK_ENABLED
681 :
682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
683 :
684 : #undef D0_ENABLED
685 :
686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
687 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
688 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
689 :
690 : #define D1_ENABLED 1
691 :
692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
693 :
694 : #define SK_ENABLED 1
695 :
696 : #if SK5_ENABLED
697 : module procedure setRemappedForOld_D1_SK5
698 : use pm_kind, only: SKC => SK5
699 : #include "pm_arrayRemap@routines.inc.F90"
700 : end procedure
701 : #endif
702 :
703 : #if SK4_ENABLED
704 : module procedure setRemappedForOld_D1_SK4
705 : use pm_kind, only: SKC => SK4
706 : #include "pm_arrayRemap@routines.inc.F90"
707 : end procedure
708 : #endif
709 :
710 : #if SK3_ENABLED
711 : module procedure setRemappedForOld_D1_SK3
712 : use pm_kind, only: SKC => SK3
713 : #include "pm_arrayRemap@routines.inc.F90"
714 : end procedure
715 : #endif
716 :
717 : #if SK2_ENABLED
718 : module procedure setRemappedForOld_D1_SK2
719 : use pm_kind, only: SKC => SK2
720 : #include "pm_arrayRemap@routines.inc.F90"
721 : end procedure
722 : #endif
723 :
724 : #if SK1_ENABLED
725 91 : module procedure setRemappedForOld_D1_SK1
726 : use pm_kind, only: SKC => SK1
727 : #include "pm_arrayRemap@routines.inc.F90"
728 91 : end procedure
729 : #endif
730 :
731 : #undef SK_ENABLED
732 :
733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
734 :
735 : #define IK_ENABLED 1
736 :
737 : #if IK5_ENABLED
738 86 : module procedure setRemappedForOld_D1_IK5
739 : use pm_kind, only: IKC => IK5
740 : #include "pm_arrayRemap@routines.inc.F90"
741 86 : end procedure
742 : #endif
743 :
744 : #if IK4_ENABLED
745 86 : module procedure setRemappedForOld_D1_IK4
746 : use pm_kind, only: IKC => IK4
747 : #include "pm_arrayRemap@routines.inc.F90"
748 86 : end procedure
749 : #endif
750 :
751 : #if IK3_ENABLED
752 1692 : module procedure setRemappedForOld_D1_IK3
753 : use pm_kind, only: IKC => IK3
754 : #include "pm_arrayRemap@routines.inc.F90"
755 1692 : end procedure
756 : #endif
757 :
758 : #if IK2_ENABLED
759 86 : module procedure setRemappedForOld_D1_IK2
760 : use pm_kind, only: IKC => IK2
761 : #include "pm_arrayRemap@routines.inc.F90"
762 86 : end procedure
763 : #endif
764 :
765 : #if IK1_ENABLED
766 86 : module procedure setRemappedForOld_D1_IK1
767 : use pm_kind, only: IKC => IK1
768 : #include "pm_arrayRemap@routines.inc.F90"
769 86 : end procedure
770 : #endif
771 :
772 : #undef IK_ENABLED
773 :
774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
775 :
776 : #define LK_ENABLED 1
777 :
778 : #if LK5_ENABLED
779 86 : module procedure setRemappedForOld_D1_LK5
780 : use pm_kind, only: LKC => LK5
781 : #include "pm_arrayRemap@routines.inc.F90"
782 86 : end procedure
783 : #endif
784 :
785 : #if LK4_ENABLED
786 86 : module procedure setRemappedForOld_D1_LK4
787 : use pm_kind, only: LKC => LK4
788 : #include "pm_arrayRemap@routines.inc.F90"
789 86 : end procedure
790 : #endif
791 :
792 : #if LK3_ENABLED
793 87 : module procedure setRemappedForOld_D1_LK3
794 : use pm_kind, only: LKC => LK3
795 : #include "pm_arrayRemap@routines.inc.F90"
796 87 : end procedure
797 : #endif
798 :
799 : #if LK2_ENABLED
800 86 : module procedure setRemappedForOld_D1_LK2
801 : use pm_kind, only: LKC => LK2
802 : #include "pm_arrayRemap@routines.inc.F90"
803 86 : end procedure
804 : #endif
805 :
806 : #if LK1_ENABLED
807 86 : module procedure setRemappedForOld_D1_LK1
808 : use pm_kind, only: LKC => LK1
809 : #include "pm_arrayRemap@routines.inc.F90"
810 86 : end procedure
811 : #endif
812 :
813 : #undef LK_ENABLED
814 :
815 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
816 :
817 : #define CK_ENABLED 1
818 :
819 : #if CK5_ENABLED
820 : module procedure setRemappedForOld_D1_CK5
821 : use pm_kind, only: CKC => CK5
822 : #include "pm_arrayRemap@routines.inc.F90"
823 : end procedure
824 : #endif
825 :
826 : #if CK4_ENABLED
827 86 : module procedure setRemappedForOld_D1_CK4
828 : use pm_kind, only: CKC => CK4
829 : #include "pm_arrayRemap@routines.inc.F90"
830 86 : end procedure
831 : #endif
832 :
833 : #if CK3_ENABLED
834 86 : module procedure setRemappedForOld_D1_CK3
835 : use pm_kind, only: CKC => CK3
836 : #include "pm_arrayRemap@routines.inc.F90"
837 86 : end procedure
838 : #endif
839 :
840 : #if CK2_ENABLED
841 87 : module procedure setRemappedForOld_D1_CK2
842 : use pm_kind, only: CKC => CK2
843 : #include "pm_arrayRemap@routines.inc.F90"
844 87 : end procedure
845 : #endif
846 :
847 : #if CK1_ENABLED
848 86 : module procedure setRemappedForOld_D1_CK1
849 : use pm_kind, only: CKC => CK1
850 : #include "pm_arrayRemap@routines.inc.F90"
851 86 : end procedure
852 : #endif
853 :
854 : #undef CK_ENABLED
855 :
856 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
857 :
858 : #define RK_ENABLED 1
859 :
860 : #if RK5_ENABLED
861 : module procedure setRemappedForOld_D1_RK5
862 : use pm_kind, only: RKC => RK5
863 : #include "pm_arrayRemap@routines.inc.F90"
864 : end procedure
865 : #endif
866 :
867 : #if RK4_ENABLED
868 86 : module procedure setRemappedForOld_D1_RK4
869 : use pm_kind, only: RKC => RK4
870 : #include "pm_arrayRemap@routines.inc.F90"
871 86 : end procedure
872 : #endif
873 :
874 : #if RK3_ENABLED
875 86 : module procedure setRemappedForOld_D1_RK3
876 : use pm_kind, only: RKC => RK3
877 : #include "pm_arrayRemap@routines.inc.F90"
878 86 : end procedure
879 : #endif
880 :
881 : #if RK2_ENABLED
882 87 : module procedure setRemappedForOld_D1_RK2
883 : use pm_kind, only: RKC => RK2
884 : #include "pm_arrayRemap@routines.inc.F90"
885 87 : end procedure
886 : #endif
887 :
888 : #if RK1_ENABLED
889 86 : module procedure setRemappedForOld_D1_RK1
890 : use pm_kind, only: RKC => RK1
891 : #include "pm_arrayRemap@routines.inc.F90"
892 86 : end procedure
893 : #endif
894 :
895 : #undef RK_ENABLED
896 :
897 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898 :
899 : #undef D1_ENABLED
900 :
901 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
902 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
904 :
905 : #undef For_ENABLED
906 : #undef Old_ENABLED
907 :
908 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
911 :
912 : #define Rev_ENABLED 1
913 : #define Old_ENABLED 1
914 :
915 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
917 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
918 :
919 : #define D0_ENABLED 1
920 :
921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
922 :
923 : #define SK_ENABLED 1
924 :
925 : #if SK5_ENABLED
926 : module procedure setRemappedRevOld_D0_SK5
927 : use pm_kind, only: SKC => SK5
928 : #include "pm_arrayRemap@routines.inc.F90"
929 : end procedure
930 : #endif
931 :
932 : #if SK4_ENABLED
933 : module procedure setRemappedRevOld_D0_SK4
934 : use pm_kind, only: SKC => SK4
935 : #include "pm_arrayRemap@routines.inc.F90"
936 : end procedure
937 : #endif
938 :
939 : #if SK3_ENABLED
940 : module procedure setRemappedRevOld_D0_SK3
941 : use pm_kind, only: SKC => SK3
942 : #include "pm_arrayRemap@routines.inc.F90"
943 : end procedure
944 : #endif
945 :
946 : #if SK2_ENABLED
947 : module procedure setRemappedRevOld_D0_SK2
948 : use pm_kind, only: SKC => SK2
949 : #include "pm_arrayRemap@routines.inc.F90"
950 : end procedure
951 : #endif
952 :
953 : #if SK1_ENABLED
954 50 : module procedure setRemappedRevOld_D0_SK1
955 : use pm_kind, only: SKC => SK1
956 : #include "pm_arrayRemap@routines.inc.F90"
957 25 : end procedure
958 : #endif
959 :
960 : #undef SK_ENABLED
961 :
962 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
963 :
964 : #undef D0_ENABLED
965 :
966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
967 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
968 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
969 :
970 : #define D1_ENABLED 1
971 :
972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
973 :
974 : #define SK_ENABLED 1
975 :
976 : #if SK5_ENABLED
977 : module procedure setRemappedRevOld_D1_SK5
978 : use pm_kind, only: SKC => SK5
979 : #include "pm_arrayRemap@routines.inc.F90"
980 : end procedure
981 : #endif
982 :
983 : #if SK4_ENABLED
984 : module procedure setRemappedRevOld_D1_SK4
985 : use pm_kind, only: SKC => SK4
986 : #include "pm_arrayRemap@routines.inc.F90"
987 : end procedure
988 : #endif
989 :
990 : #if SK3_ENABLED
991 : module procedure setRemappedRevOld_D1_SK3
992 : use pm_kind, only: SKC => SK3
993 : #include "pm_arrayRemap@routines.inc.F90"
994 : end procedure
995 : #endif
996 :
997 : #if SK2_ENABLED
998 : module procedure setRemappedRevOld_D1_SK2
999 : use pm_kind, only: SKC => SK2
1000 : #include "pm_arrayRemap@routines.inc.F90"
1001 : end procedure
1002 : #endif
1003 :
1004 : #if SK1_ENABLED
1005 29 : module procedure setRemappedRevOld_D1_SK1
1006 : use pm_kind, only: SKC => SK1
1007 : #include "pm_arrayRemap@routines.inc.F90"
1008 29 : end procedure
1009 : #endif
1010 :
1011 : #undef SK_ENABLED
1012 :
1013 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1014 :
1015 : #define IK_ENABLED 1
1016 :
1017 : #if IK5_ENABLED
1018 24 : module procedure setRemappedRevOld_D1_IK5
1019 : use pm_kind, only: IKC => IK5
1020 : #include "pm_arrayRemap@routines.inc.F90"
1021 24 : end procedure
1022 : #endif
1023 :
1024 : #if IK4_ENABLED
1025 24 : module procedure setRemappedRevOld_D1_IK4
1026 : use pm_kind, only: IKC => IK4
1027 : #include "pm_arrayRemap@routines.inc.F90"
1028 24 : end procedure
1029 : #endif
1030 :
1031 : #if IK3_ENABLED
1032 431 : module procedure setRemappedRevOld_D1_IK3
1033 : use pm_kind, only: IKC => IK3
1034 : #include "pm_arrayRemap@routines.inc.F90"
1035 431 : end procedure
1036 : #endif
1037 :
1038 : #if IK2_ENABLED
1039 24 : module procedure setRemappedRevOld_D1_IK2
1040 : use pm_kind, only: IKC => IK2
1041 : #include "pm_arrayRemap@routines.inc.F90"
1042 24 : end procedure
1043 : #endif
1044 :
1045 : #if IK1_ENABLED
1046 24 : module procedure setRemappedRevOld_D1_IK1
1047 : use pm_kind, only: IKC => IK1
1048 : #include "pm_arrayRemap@routines.inc.F90"
1049 24 : end procedure
1050 : #endif
1051 :
1052 : #undef IK_ENABLED
1053 :
1054 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1055 :
1056 : #define LK_ENABLED 1
1057 :
1058 : #if LK5_ENABLED
1059 24 : module procedure setRemappedRevOld_D1_LK5
1060 : use pm_kind, only: LKC => LK5
1061 : #include "pm_arrayRemap@routines.inc.F90"
1062 24 : end procedure
1063 : #endif
1064 :
1065 : #if LK4_ENABLED
1066 24 : module procedure setRemappedRevOld_D1_LK4
1067 : use pm_kind, only: LKC => LK4
1068 : #include "pm_arrayRemap@routines.inc.F90"
1069 24 : end procedure
1070 : #endif
1071 :
1072 : #if LK3_ENABLED
1073 25 : module procedure setRemappedRevOld_D1_LK3
1074 : use pm_kind, only: LKC => LK3
1075 : #include "pm_arrayRemap@routines.inc.F90"
1076 25 : end procedure
1077 : #endif
1078 :
1079 : #if LK2_ENABLED
1080 24 : module procedure setRemappedRevOld_D1_LK2
1081 : use pm_kind, only: LKC => LK2
1082 : #include "pm_arrayRemap@routines.inc.F90"
1083 24 : end procedure
1084 : #endif
1085 :
1086 : #if LK1_ENABLED
1087 24 : module procedure setRemappedRevOld_D1_LK1
1088 : use pm_kind, only: LKC => LK1
1089 : #include "pm_arrayRemap@routines.inc.F90"
1090 24 : end procedure
1091 : #endif
1092 :
1093 : #undef LK_ENABLED
1094 :
1095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1096 :
1097 : #define CK_ENABLED 1
1098 :
1099 : #if CK5_ENABLED
1100 : module procedure setRemappedRevOld_D1_CK5
1101 : use pm_kind, only: CKC => CK5
1102 : #include "pm_arrayRemap@routines.inc.F90"
1103 : end procedure
1104 : #endif
1105 :
1106 : #if CK4_ENABLED
1107 24 : module procedure setRemappedRevOld_D1_CK4
1108 : use pm_kind, only: CKC => CK4
1109 : #include "pm_arrayRemap@routines.inc.F90"
1110 24 : end procedure
1111 : #endif
1112 :
1113 : #if CK3_ENABLED
1114 24 : module procedure setRemappedRevOld_D1_CK3
1115 : use pm_kind, only: CKC => CK3
1116 : #include "pm_arrayRemap@routines.inc.F90"
1117 24 : end procedure
1118 : #endif
1119 :
1120 : #if CK2_ENABLED
1121 25 : module procedure setRemappedRevOld_D1_CK2
1122 : use pm_kind, only: CKC => CK2
1123 : #include "pm_arrayRemap@routines.inc.F90"
1124 25 : end procedure
1125 : #endif
1126 :
1127 : #if CK1_ENABLED
1128 24 : module procedure setRemappedRevOld_D1_CK1
1129 : use pm_kind, only: CKC => CK1
1130 : #include "pm_arrayRemap@routines.inc.F90"
1131 24 : end procedure
1132 : #endif
1133 :
1134 : #undef CK_ENABLED
1135 :
1136 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1137 :
1138 : #define RK_ENABLED 1
1139 :
1140 : #if RK5_ENABLED
1141 : module procedure setRemappedRevOld_D1_RK5
1142 : use pm_kind, only: RKC => RK5
1143 : #include "pm_arrayRemap@routines.inc.F90"
1144 : end procedure
1145 : #endif
1146 :
1147 : #if RK4_ENABLED
1148 24 : module procedure setRemappedRevOld_D1_RK4
1149 : use pm_kind, only: RKC => RK4
1150 : #include "pm_arrayRemap@routines.inc.F90"
1151 24 : end procedure
1152 : #endif
1153 :
1154 : #if RK3_ENABLED
1155 24 : module procedure setRemappedRevOld_D1_RK3
1156 : use pm_kind, only: RKC => RK3
1157 : #include "pm_arrayRemap@routines.inc.F90"
1158 24 : end procedure
1159 : #endif
1160 :
1161 : #if RK2_ENABLED
1162 25 : module procedure setRemappedRevOld_D1_RK2
1163 : use pm_kind, only: RKC => RK2
1164 : #include "pm_arrayRemap@routines.inc.F90"
1165 25 : end procedure
1166 : #endif
1167 :
1168 : #if RK1_ENABLED
1169 24 : module procedure setRemappedRevOld_D1_RK1
1170 : use pm_kind, only: RKC => RK1
1171 : #include "pm_arrayRemap@routines.inc.F90"
1172 24 : end procedure
1173 : #endif
1174 :
1175 : #undef RK_ENABLED
1176 :
1177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1178 :
1179 : #undef D1_ENABLED
1180 :
1181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1184 :
1185 : #undef Rev_ENABLED
1186 : #undef Old_ENABLED
1187 :
1188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1191 :
1192 : #define For_ENABLED 1
1193 : #define New_ENABLED 1
1194 :
1195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1197 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1198 :
1199 : #define D0_ENABLED 1
1200 :
1201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1202 :
1203 : #define SK_ENABLED 1
1204 :
1205 : #if SK5_ENABLED
1206 : module procedure setRemappedForNew_D0_SK5
1207 : use pm_kind, only: SKC => SK5
1208 : #include "pm_arrayRemap@routines.inc.F90"
1209 : end procedure
1210 : #endif
1211 :
1212 : #if SK4_ENABLED
1213 : module procedure setRemappedForNew_D0_SK4
1214 : use pm_kind, only: SKC => SK4
1215 : #include "pm_arrayRemap@routines.inc.F90"
1216 : end procedure
1217 : #endif
1218 :
1219 : #if SK3_ENABLED
1220 : module procedure setRemappedForNew_D0_SK3
1221 : use pm_kind, only: SKC => SK3
1222 : #include "pm_arrayRemap@routines.inc.F90"
1223 : end procedure
1224 : #endif
1225 :
1226 : #if SK2_ENABLED
1227 : module procedure setRemappedForNew_D0_SK2
1228 : use pm_kind, only: SKC => SK2
1229 : #include "pm_arrayRemap@routines.inc.F90"
1230 : end procedure
1231 : #endif
1232 :
1233 : #if SK1_ENABLED
1234 6 : module procedure setRemappedForNew_D0_SK1
1235 : use pm_kind, only: SKC => SK1
1236 : #include "pm_arrayRemap@routines.inc.F90"
1237 6 : end procedure
1238 : #endif
1239 :
1240 : #undef SK_ENABLED
1241 :
1242 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1243 :
1244 : #undef D0_ENABLED
1245 :
1246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1249 :
1250 : #define D1_ENABLED 1
1251 :
1252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1253 :
1254 : #define SK_ENABLED 1
1255 :
1256 : #if SK5_ENABLED
1257 : module procedure setRemappedForNew_D1_SK5
1258 : use pm_kind, only: SKC => SK5
1259 : #include "pm_arrayRemap@routines.inc.F90"
1260 : end procedure
1261 : #endif
1262 :
1263 : #if SK4_ENABLED
1264 : module procedure setRemappedForNew_D1_SK4
1265 : use pm_kind, only: SKC => SK4
1266 : #include "pm_arrayRemap@routines.inc.F90"
1267 : end procedure
1268 : #endif
1269 :
1270 : #if SK3_ENABLED
1271 : module procedure setRemappedForNew_D1_SK3
1272 : use pm_kind, only: SKC => SK3
1273 : #include "pm_arrayRemap@routines.inc.F90"
1274 : end procedure
1275 : #endif
1276 :
1277 : #if SK2_ENABLED
1278 : module procedure setRemappedForNew_D1_SK2
1279 : use pm_kind, only: SKC => SK2
1280 : #include "pm_arrayRemap@routines.inc.F90"
1281 : end procedure
1282 : #endif
1283 :
1284 : #if SK1_ENABLED
1285 6 : module procedure setRemappedForNew_D1_SK1
1286 : use pm_kind, only: SKC => SK1
1287 : #include "pm_arrayRemap@routines.inc.F90"
1288 6 : end procedure
1289 : #endif
1290 :
1291 : #undef SK_ENABLED
1292 :
1293 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1294 :
1295 : #define IK_ENABLED 1
1296 :
1297 : #if IK5_ENABLED
1298 6 : module procedure setRemappedForNew_D1_IK5
1299 : use pm_kind, only: IKC => IK5
1300 : #include "pm_arrayRemap@routines.inc.F90"
1301 6 : end procedure
1302 : #endif
1303 :
1304 : #if IK4_ENABLED
1305 6 : module procedure setRemappedForNew_D1_IK4
1306 : use pm_kind, only: IKC => IK4
1307 : #include "pm_arrayRemap@routines.inc.F90"
1308 6 : end procedure
1309 : #endif
1310 :
1311 : #if IK3_ENABLED
1312 6 : module procedure setRemappedForNew_D1_IK3
1313 : use pm_kind, only: IKC => IK3
1314 : #include "pm_arrayRemap@routines.inc.F90"
1315 6 : end procedure
1316 : #endif
1317 :
1318 : #if IK2_ENABLED
1319 6 : module procedure setRemappedForNew_D1_IK2
1320 : use pm_kind, only: IKC => IK2
1321 : #include "pm_arrayRemap@routines.inc.F90"
1322 6 : end procedure
1323 : #endif
1324 :
1325 : #if IK1_ENABLED
1326 6 : module procedure setRemappedForNew_D1_IK1
1327 : use pm_kind, only: IKC => IK1
1328 : #include "pm_arrayRemap@routines.inc.F90"
1329 6 : end procedure
1330 : #endif
1331 :
1332 : #undef IK_ENABLED
1333 :
1334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1335 :
1336 : #define LK_ENABLED 1
1337 :
1338 : #if LK5_ENABLED
1339 6 : module procedure setRemappedForNew_D1_LK5
1340 : use pm_kind, only: LKC => LK5
1341 : #include "pm_arrayRemap@routines.inc.F90"
1342 6 : end procedure
1343 : #endif
1344 :
1345 : #if LK4_ENABLED
1346 6 : module procedure setRemappedForNew_D1_LK4
1347 : use pm_kind, only: LKC => LK4
1348 : #include "pm_arrayRemap@routines.inc.F90"
1349 6 : end procedure
1350 : #endif
1351 :
1352 : #if LK3_ENABLED
1353 6 : module procedure setRemappedForNew_D1_LK3
1354 : use pm_kind, only: LKC => LK3
1355 : #include "pm_arrayRemap@routines.inc.F90"
1356 6 : end procedure
1357 : #endif
1358 :
1359 : #if LK2_ENABLED
1360 6 : module procedure setRemappedForNew_D1_LK2
1361 : use pm_kind, only: LKC => LK2
1362 : #include "pm_arrayRemap@routines.inc.F90"
1363 6 : end procedure
1364 : #endif
1365 :
1366 : #if LK1_ENABLED
1367 6 : module procedure setRemappedForNew_D1_LK1
1368 : use pm_kind, only: LKC => LK1
1369 : #include "pm_arrayRemap@routines.inc.F90"
1370 6 : end procedure
1371 : #endif
1372 :
1373 : #undef LK_ENABLED
1374 :
1375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1376 :
1377 : #define CK_ENABLED 1
1378 :
1379 : #if CK5_ENABLED
1380 : module procedure setRemappedForNew_D1_CK5
1381 : use pm_kind, only: CKC => CK5
1382 : #include "pm_arrayRemap@routines.inc.F90"
1383 : end procedure
1384 : #endif
1385 :
1386 : #if CK4_ENABLED
1387 6 : module procedure setRemappedForNew_D1_CK4
1388 : use pm_kind, only: CKC => CK4
1389 : #include "pm_arrayRemap@routines.inc.F90"
1390 6 : end procedure
1391 : #endif
1392 :
1393 : #if CK3_ENABLED
1394 6 : module procedure setRemappedForNew_D1_CK3
1395 : use pm_kind, only: CKC => CK3
1396 : #include "pm_arrayRemap@routines.inc.F90"
1397 6 : end procedure
1398 : #endif
1399 :
1400 : #if CK2_ENABLED
1401 6 : module procedure setRemappedForNew_D1_CK2
1402 : use pm_kind, only: CKC => CK2
1403 : #include "pm_arrayRemap@routines.inc.F90"
1404 6 : end procedure
1405 : #endif
1406 :
1407 : #if CK1_ENABLED
1408 6 : module procedure setRemappedForNew_D1_CK1
1409 : use pm_kind, only: CKC => CK1
1410 : #include "pm_arrayRemap@routines.inc.F90"
1411 6 : end procedure
1412 : #endif
1413 :
1414 : #undef CK_ENABLED
1415 :
1416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1417 :
1418 : #define RK_ENABLED 1
1419 :
1420 : #if RK5_ENABLED
1421 : module procedure setRemappedForNew_D1_RK5
1422 : use pm_kind, only: RKC => RK5
1423 : #include "pm_arrayRemap@routines.inc.F90"
1424 : end procedure
1425 : #endif
1426 :
1427 : #if RK4_ENABLED
1428 6 : module procedure setRemappedForNew_D1_RK4
1429 : use pm_kind, only: RKC => RK4
1430 : #include "pm_arrayRemap@routines.inc.F90"
1431 6 : end procedure
1432 : #endif
1433 :
1434 : #if RK3_ENABLED
1435 6 : module procedure setRemappedForNew_D1_RK3
1436 : use pm_kind, only: RKC => RK3
1437 : #include "pm_arrayRemap@routines.inc.F90"
1438 6 : end procedure
1439 : #endif
1440 :
1441 : #if RK2_ENABLED
1442 6 : module procedure setRemappedForNew_D1_RK2
1443 : use pm_kind, only: RKC => RK2
1444 : #include "pm_arrayRemap@routines.inc.F90"
1445 6 : end procedure
1446 : #endif
1447 :
1448 : #if RK1_ENABLED
1449 6 : module procedure setRemappedForNew_D1_RK1
1450 : use pm_kind, only: RKC => RK1
1451 : #include "pm_arrayRemap@routines.inc.F90"
1452 6 : end procedure
1453 : #endif
1454 :
1455 : #undef RK_ENABLED
1456 :
1457 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1458 :
1459 : #undef D1_ENABLED
1460 :
1461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1462 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1464 :
1465 : #undef For_ENABLED
1466 : #undef New_ENABLED
1467 :
1468 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1469 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1471 :
1472 : #define Rev_ENABLED 1
1473 : #define New_ENABLED 1
1474 :
1475 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1477 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1478 :
1479 : #define D0_ENABLED 1
1480 :
1481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1482 :
1483 : #define SK_ENABLED 1
1484 :
1485 : #if SK5_ENABLED
1486 : module procedure setRemappedRevNew_D0_SK5
1487 : use pm_kind, only: SKC => SK5
1488 : #include "pm_arrayRemap@routines.inc.F90"
1489 : end procedure
1490 : #endif
1491 :
1492 : #if SK4_ENABLED
1493 : module procedure setRemappedRevNew_D0_SK4
1494 : use pm_kind, only: SKC => SK4
1495 : #include "pm_arrayRemap@routines.inc.F90"
1496 : end procedure
1497 : #endif
1498 :
1499 : #if SK3_ENABLED
1500 : module procedure setRemappedRevNew_D0_SK3
1501 : use pm_kind, only: SKC => SK3
1502 : #include "pm_arrayRemap@routines.inc.F90"
1503 : end procedure
1504 : #endif
1505 :
1506 : #if SK2_ENABLED
1507 : module procedure setRemappedRevNew_D0_SK2
1508 : use pm_kind, only: SKC => SK2
1509 : #include "pm_arrayRemap@routines.inc.F90"
1510 : end procedure
1511 : #endif
1512 :
1513 : #if SK1_ENABLED
1514 5 : module procedure setRemappedRevNew_D0_SK1
1515 : use pm_kind, only: SKC => SK1
1516 : #include "pm_arrayRemap@routines.inc.F90"
1517 5 : end procedure
1518 : #endif
1519 :
1520 : #undef SK_ENABLED
1521 :
1522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1523 :
1524 : #undef D0_ENABLED
1525 :
1526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1529 :
1530 : #define D1_ENABLED 1
1531 :
1532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1533 :
1534 : #define SK_ENABLED 1
1535 :
1536 : #if SK5_ENABLED
1537 : module procedure setRemappedRevNew_D1_SK5
1538 : use pm_kind, only: SKC => SK5
1539 : #include "pm_arrayRemap@routines.inc.F90"
1540 : end procedure
1541 : #endif
1542 :
1543 : #if SK4_ENABLED
1544 : module procedure setRemappedRevNew_D1_SK4
1545 : use pm_kind, only: SKC => SK4
1546 : #include "pm_arrayRemap@routines.inc.F90"
1547 : end procedure
1548 : #endif
1549 :
1550 : #if SK3_ENABLED
1551 : module procedure setRemappedRevNew_D1_SK3
1552 : use pm_kind, only: SKC => SK3
1553 : #include "pm_arrayRemap@routines.inc.F90"
1554 : end procedure
1555 : #endif
1556 :
1557 : #if SK2_ENABLED
1558 : module procedure setRemappedRevNew_D1_SK2
1559 : use pm_kind, only: SKC => SK2
1560 : #include "pm_arrayRemap@routines.inc.F90"
1561 : end procedure
1562 : #endif
1563 :
1564 : #if SK1_ENABLED
1565 5 : module procedure setRemappedRevNew_D1_SK1
1566 : use pm_kind, only: SKC => SK1
1567 : #include "pm_arrayRemap@routines.inc.F90"
1568 5 : end procedure
1569 : #endif
1570 :
1571 : #undef SK_ENABLED
1572 :
1573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1574 :
1575 : #define IK_ENABLED 1
1576 :
1577 : #if IK5_ENABLED
1578 4 : module procedure setRemappedRevNew_D1_IK5
1579 : use pm_kind, only: IKC => IK5
1580 : #include "pm_arrayRemap@routines.inc.F90"
1581 4 : end procedure
1582 : #endif
1583 :
1584 : #if IK4_ENABLED
1585 4 : module procedure setRemappedRevNew_D1_IK4
1586 : use pm_kind, only: IKC => IK4
1587 : #include "pm_arrayRemap@routines.inc.F90"
1588 4 : end procedure
1589 : #endif
1590 :
1591 : #if IK3_ENABLED
1592 5 : module procedure setRemappedRevNew_D1_IK3
1593 : use pm_kind, only: IKC => IK3
1594 : #include "pm_arrayRemap@routines.inc.F90"
1595 5 : end procedure
1596 : #endif
1597 :
1598 : #if IK2_ENABLED
1599 4 : module procedure setRemappedRevNew_D1_IK2
1600 : use pm_kind, only: IKC => IK2
1601 : #include "pm_arrayRemap@routines.inc.F90"
1602 4 : end procedure
1603 : #endif
1604 :
1605 : #if IK1_ENABLED
1606 4 : module procedure setRemappedRevNew_D1_IK1
1607 : use pm_kind, only: IKC => IK1
1608 : #include "pm_arrayRemap@routines.inc.F90"
1609 4 : end procedure
1610 : #endif
1611 :
1612 : #undef IK_ENABLED
1613 :
1614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1615 :
1616 : #define LK_ENABLED 1
1617 :
1618 : #if LK5_ENABLED
1619 4 : module procedure setRemappedRevNew_D1_LK5
1620 : use pm_kind, only: LKC => LK5
1621 : #include "pm_arrayRemap@routines.inc.F90"
1622 4 : end procedure
1623 : #endif
1624 :
1625 : #if LK4_ENABLED
1626 4 : module procedure setRemappedRevNew_D1_LK4
1627 : use pm_kind, only: LKC => LK4
1628 : #include "pm_arrayRemap@routines.inc.F90"
1629 4 : end procedure
1630 : #endif
1631 :
1632 : #if LK3_ENABLED
1633 5 : module procedure setRemappedRevNew_D1_LK3
1634 : use pm_kind, only: LKC => LK3
1635 : #include "pm_arrayRemap@routines.inc.F90"
1636 5 : end procedure
1637 : #endif
1638 :
1639 : #if LK2_ENABLED
1640 4 : module procedure setRemappedRevNew_D1_LK2
1641 : use pm_kind, only: LKC => LK2
1642 : #include "pm_arrayRemap@routines.inc.F90"
1643 4 : end procedure
1644 : #endif
1645 :
1646 : #if LK1_ENABLED
1647 4 : module procedure setRemappedRevNew_D1_LK1
1648 : use pm_kind, only: LKC => LK1
1649 : #include "pm_arrayRemap@routines.inc.F90"
1650 4 : end procedure
1651 : #endif
1652 :
1653 : #undef LK_ENABLED
1654 :
1655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1656 :
1657 : #define CK_ENABLED 1
1658 :
1659 : #if CK5_ENABLED
1660 : module procedure setRemappedRevNew_D1_CK5
1661 : use pm_kind, only: CKC => CK5
1662 : #include "pm_arrayRemap@routines.inc.F90"
1663 : end procedure
1664 : #endif
1665 :
1666 : #if CK4_ENABLED
1667 4 : module procedure setRemappedRevNew_D1_CK4
1668 : use pm_kind, only: CKC => CK4
1669 : #include "pm_arrayRemap@routines.inc.F90"
1670 4 : end procedure
1671 : #endif
1672 :
1673 : #if CK3_ENABLED
1674 4 : module procedure setRemappedRevNew_D1_CK3
1675 : use pm_kind, only: CKC => CK3
1676 : #include "pm_arrayRemap@routines.inc.F90"
1677 4 : end procedure
1678 : #endif
1679 :
1680 : #if CK2_ENABLED
1681 5 : module procedure setRemappedRevNew_D1_CK2
1682 : use pm_kind, only: CKC => CK2
1683 : #include "pm_arrayRemap@routines.inc.F90"
1684 5 : end procedure
1685 : #endif
1686 :
1687 : #if CK1_ENABLED
1688 4 : module procedure setRemappedRevNew_D1_CK1
1689 : use pm_kind, only: CKC => CK1
1690 : #include "pm_arrayRemap@routines.inc.F90"
1691 4 : end procedure
1692 : #endif
1693 :
1694 : #undef CK_ENABLED
1695 :
1696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1697 :
1698 : #define RK_ENABLED 1
1699 :
1700 : #if RK5_ENABLED
1701 : module procedure setRemappedRevNew_D1_RK5
1702 : use pm_kind, only: RKC => RK5
1703 : #include "pm_arrayRemap@routines.inc.F90"
1704 : end procedure
1705 : #endif
1706 :
1707 : #if RK4_ENABLED
1708 4 : module procedure setRemappedRevNew_D1_RK4
1709 : use pm_kind, only: RKC => RK4
1710 : #include "pm_arrayRemap@routines.inc.F90"
1711 4 : end procedure
1712 : #endif
1713 :
1714 : #if RK3_ENABLED
1715 4 : module procedure setRemappedRevNew_D1_RK3
1716 : use pm_kind, only: RKC => RK3
1717 : #include "pm_arrayRemap@routines.inc.F90"
1718 4 : end procedure
1719 : #endif
1720 :
1721 : #if RK2_ENABLED
1722 5 : module procedure setRemappedRevNew_D1_RK2
1723 : use pm_kind, only: RKC => RK2
1724 : #include "pm_arrayRemap@routines.inc.F90"
1725 5 : end procedure
1726 : #endif
1727 :
1728 : #if RK1_ENABLED
1729 4 : module procedure setRemappedRevNew_D1_RK1
1730 : use pm_kind, only: RKC => RK1
1731 : #include "pm_arrayRemap@routines.inc.F90"
1732 4 : end procedure
1733 : #endif
1734 :
1735 : #undef RK_ENABLED
1736 :
1737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1738 :
1739 : #undef D1_ENABLED
1740 :
1741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1744 :
1745 : #undef Rev_ENABLED
1746 : #undef New_ENABLED
1747 :
1748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1749 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1751 :
1752 : #undef setRemapped_ENABLED
1753 :
1754 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1755 :
1756 : #undef CHECK_ASSERTION
1757 :
1758 : end submodule routines
|
