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 [test_pm_arrayRemap](@ref test_pm_arrayRemap).
19 : !>
20 : !> \author
21 : !> \FatemehBagheri, Wednesday 12:20 AM, October 13, 2021, Dallas, TX
22 :
23 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24 :
25 : submodule (test_pm_arrayRemap) routines ! LCOV_EXCL_LINE
26 :
27 : implicit none
28 :
29 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
30 :
31 : contains
32 :
33 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
34 :
35 : #define getRemapped_ENABLED 1
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : #define D0_ENABLED 1
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : #define SK_ENABLED 1
46 :
47 : #if SK5_ENABLED
48 : module procedure test_getRemapped_D0_SK5_1
49 : use pm_kind, only: SKC => SK5
50 : #include "test_pm_arrayRemap@routines.inc.F90"
51 : end procedure
52 : #endif
53 :
54 : #if SK4_ENABLED
55 : module procedure test_getRemapped_D0_SK4_1
56 : use pm_kind, only: SKC => SK4
57 : #include "test_pm_arrayRemap@routines.inc.F90"
58 : end procedure
59 : #endif
60 :
61 : #if SK3_ENABLED
62 : module procedure test_getRemapped_D0_SK3_1
63 : use pm_kind, only: SKC => SK3
64 : #include "test_pm_arrayRemap@routines.inc.F90"
65 : end procedure
66 : #endif
67 :
68 : #if SK2_ENABLED
69 : module procedure test_getRemapped_D0_SK2_1
70 : use pm_kind, only: SKC => SK2
71 : #include "test_pm_arrayRemap@routines.inc.F90"
72 : end procedure
73 : #endif
74 :
75 : #if SK1_ENABLED
76 1 : module procedure test_getRemapped_D0_SK1_1
77 : use pm_kind, only: SKC => SK1
78 : #include "test_pm_arrayRemap@routines.inc.F90"
79 : end procedure
80 : #endif
81 :
82 : #undef SK_ENABLED
83 :
84 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85 :
86 : #undef D0_ENABLED
87 :
88 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 :
92 : #define D1_ENABLED 1
93 :
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 :
96 : #define SK_ENABLED 1
97 :
98 : #if SK5_ENABLED
99 : module procedure test_getRemapped_D1_SK5_1
100 : use pm_kind, only: SKC => SK5
101 : #include "test_pm_arrayRemap@routines.inc.F90"
102 : end procedure
103 : #endif
104 :
105 : #if SK4_ENABLED
106 : module procedure test_getRemapped_D1_SK4_1
107 : use pm_kind, only: SKC => SK4
108 : #include "test_pm_arrayRemap@routines.inc.F90"
109 : end procedure
110 : #endif
111 :
112 : #if SK3_ENABLED
113 : module procedure test_getRemapped_D1_SK3_1
114 : use pm_kind, only: SKC => SK3
115 : #include "test_pm_arrayRemap@routines.inc.F90"
116 : end procedure
117 : #endif
118 :
119 : #if SK2_ENABLED
120 : module procedure test_getRemapped_D1_SK2_1
121 : use pm_kind, only: SKC => SK2
122 : #include "test_pm_arrayRemap@routines.inc.F90"
123 : end procedure
124 : #endif
125 :
126 : #if SK1_ENABLED
127 1 : module procedure test_getRemapped_D1_SK1_1
128 : use pm_kind, only: SKC => SK1
129 : #include "test_pm_arrayRemap@routines.inc.F90"
130 : end procedure
131 : #endif
132 :
133 : #undef SK_ENABLED
134 :
135 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
136 :
137 : #define IK_ENABLED 1
138 :
139 : #if IK5_ENABLED
140 1 : module procedure test_getRemapped_D1_IK5_1
141 : use pm_kind, only: IKC => IK5
142 : #include "test_pm_arrayRemap@routines.inc.F90"
143 : end procedure
144 : #endif
145 :
146 : #if IK4_ENABLED
147 1 : module procedure test_getRemapped_D1_IK4_1
148 : use pm_kind, only: IKC => IK4
149 : #include "test_pm_arrayRemap@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #if IK3_ENABLED
154 1 : module procedure test_getRemapped_D1_IK3_1
155 : use pm_kind, only: IKC => IK3
156 : #include "test_pm_arrayRemap@routines.inc.F90"
157 : end procedure
158 : #endif
159 :
160 : #if IK2_ENABLED
161 1 : module procedure test_getRemapped_D1_IK2_1
162 : use pm_kind, only: IKC => IK2
163 : #include "test_pm_arrayRemap@routines.inc.F90"
164 : end procedure
165 : #endif
166 :
167 : #if IK1_ENABLED
168 1 : module procedure test_getRemapped_D1_IK1_1
169 : use pm_kind, only: IKC => IK1
170 : #include "test_pm_arrayRemap@routines.inc.F90"
171 : end procedure
172 : #endif
173 :
174 : #undef IK_ENABLED
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 :
178 : #define LK_ENABLED 1
179 :
180 : #if LK5_ENABLED
181 1 : module procedure test_getRemapped_D1_LK5_1
182 : use pm_kind, only: LKC => LK5
183 : #include "test_pm_arrayRemap@routines.inc.F90"
184 : end procedure
185 : #endif
186 :
187 : #if LK4_ENABLED
188 1 : module procedure test_getRemapped_D1_LK4_1
189 : use pm_kind, only: LKC => LK4
190 : #include "test_pm_arrayRemap@routines.inc.F90"
191 : end procedure
192 : #endif
193 :
194 : #if LK3_ENABLED
195 1 : module procedure test_getRemapped_D1_LK3_1
196 : use pm_kind, only: LKC => LK3
197 : #include "test_pm_arrayRemap@routines.inc.F90"
198 : end procedure
199 : #endif
200 :
201 : #if LK2_ENABLED
202 1 : module procedure test_getRemapped_D1_LK2_1
203 : use pm_kind, only: LKC => LK2
204 : #include "test_pm_arrayRemap@routines.inc.F90"
205 : end procedure
206 : #endif
207 :
208 : #if LK1_ENABLED
209 1 : module procedure test_getRemapped_D1_LK1_1
210 : use pm_kind, only: LKC => LK1
211 : #include "test_pm_arrayRemap@routines.inc.F90"
212 : end procedure
213 : #endif
214 :
215 : #undef LK_ENABLED
216 :
217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
218 :
219 : #define CK_ENABLED 1
220 :
221 : #if CK5_ENABLED
222 : module procedure test_getRemapped_D1_CK5_1
223 : use pm_kind, only: CKC => CK5
224 : #include "test_pm_arrayRemap@routines.inc.F90"
225 : end procedure
226 : #endif
227 :
228 : #if CK4_ENABLED
229 1 : module procedure test_getRemapped_D1_CK4_1
230 : use pm_kind, only: CKC => CK4
231 : #include "test_pm_arrayRemap@routines.inc.F90"
232 : end procedure
233 : #endif
234 :
235 : #if CK3_ENABLED
236 1 : module procedure test_getRemapped_D1_CK3_1
237 : use pm_kind, only: CKC => CK3
238 : #include "test_pm_arrayRemap@routines.inc.F90"
239 : end procedure
240 : #endif
241 :
242 : #if CK2_ENABLED
243 1 : module procedure test_getRemapped_D1_CK2_1
244 : use pm_kind, only: CKC => CK2
245 : #include "test_pm_arrayRemap@routines.inc.F90"
246 : end procedure
247 : #endif
248 :
249 : #if CK1_ENABLED
250 1 : module procedure test_getRemapped_D1_CK1_1
251 : use pm_kind, only: CKC => CK1
252 : #include "test_pm_arrayRemap@routines.inc.F90"
253 : end procedure
254 : #endif
255 :
256 : #undef CK_ENABLED
257 :
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 :
260 : #define RK_ENABLED 1
261 :
262 : #if RK5_ENABLED
263 : module procedure test_getRemapped_D1_RK5_1
264 : use pm_kind, only: RKC => RK5
265 : #include "test_pm_arrayRemap@routines.inc.F90"
266 : end procedure
267 : #endif
268 :
269 : #if RK4_ENABLED
270 1 : module procedure test_getRemapped_D1_RK4_1
271 : use pm_kind, only: RKC => RK4
272 : #include "test_pm_arrayRemap@routines.inc.F90"
273 : end procedure
274 : #endif
275 :
276 : #if RK3_ENABLED
277 1 : module procedure test_getRemapped_D1_RK3_1
278 : use pm_kind, only: RKC => RK3
279 : #include "test_pm_arrayRemap@routines.inc.F90"
280 : end procedure
281 : #endif
282 :
283 : #if RK2_ENABLED
284 1 : module procedure test_getRemapped_D1_RK2_1
285 : use pm_kind, only: RKC => RK2
286 : #include "test_pm_arrayRemap@routines.inc.F90"
287 : end procedure
288 : #endif
289 :
290 : #if RK1_ENABLED
291 1 : module procedure test_getRemapped_D1_RK1_1
292 : use pm_kind, only: RKC => RK1
293 : #include "test_pm_arrayRemap@routines.inc.F90"
294 : end procedure
295 : #endif
296 :
297 : #undef RK_ENABLED
298 :
299 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
300 :
301 : #undef D1_ENABLED
302 :
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306 :
307 : #undef getRemapped_ENABLED
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 :
311 : #define setRemapped_ENABLED 1
312 :
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 :
317 : #define D0_ENABLED 1
318 :
319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320 :
321 : #define SK_ENABLED 1
322 :
323 : #if SK5_ENABLED
324 : module procedure test_setRemapped_D0_SK5_1
325 : use pm_kind, only: SKC => SK5
326 : #include "test_pm_arrayRemap@routines.inc.F90"
327 : end procedure
328 : #endif
329 :
330 : #if SK4_ENABLED
331 : module procedure test_setRemapped_D0_SK4_1
332 : use pm_kind, only: SKC => SK4
333 : #include "test_pm_arrayRemap@routines.inc.F90"
334 : end procedure
335 : #endif
336 :
337 : #if SK3_ENABLED
338 : module procedure test_setRemapped_D0_SK3_1
339 : use pm_kind, only: SKC => SK3
340 : #include "test_pm_arrayRemap@routines.inc.F90"
341 : end procedure
342 : #endif
343 :
344 : #if SK2_ENABLED
345 : module procedure test_setRemapped_D0_SK2_1
346 : use pm_kind, only: SKC => SK2
347 : #include "test_pm_arrayRemap@routines.inc.F90"
348 : end procedure
349 : #endif
350 :
351 : #if SK1_ENABLED
352 1 : module procedure test_setRemapped_D0_SK1_1
353 : use pm_kind, only: SKC => SK1
354 : #include "test_pm_arrayRemap@routines.inc.F90"
355 : end procedure
356 : #endif
357 :
358 : #undef SK_ENABLED
359 :
360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 :
362 : #undef D0_ENABLED
363 :
364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 :
368 : #define D1_ENABLED 1
369 :
370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 :
372 : #define SK_ENABLED 1
373 :
374 : #if SK5_ENABLED
375 : module procedure test_setRemapped_D1_SK5_1
376 : use pm_kind, only: SKC => SK5
377 : #include "test_pm_arrayRemap@routines.inc.F90"
378 : end procedure
379 : #endif
380 :
381 : #if SK4_ENABLED
382 : module procedure test_setRemapped_D1_SK4_1
383 : use pm_kind, only: SKC => SK4
384 : #include "test_pm_arrayRemap@routines.inc.F90"
385 : end procedure
386 : #endif
387 :
388 : #if SK3_ENABLED
389 : module procedure test_setRemapped_D1_SK3_1
390 : use pm_kind, only: SKC => SK3
391 : #include "test_pm_arrayRemap@routines.inc.F90"
392 : end procedure
393 : #endif
394 :
395 : #if SK2_ENABLED
396 : module procedure test_setRemapped_D1_SK2_1
397 : use pm_kind, only: SKC => SK2
398 : #include "test_pm_arrayRemap@routines.inc.F90"
399 : end procedure
400 : #endif
401 :
402 : #if SK1_ENABLED
403 1 : module procedure test_setRemapped_D1_SK1_1
404 : use pm_kind, only: SKC => SK1
405 : #include "test_pm_arrayRemap@routines.inc.F90"
406 : end procedure
407 : #endif
408 :
409 : #undef SK_ENABLED
410 :
411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412 :
413 : #define IK_ENABLED 1
414 :
415 : #if IK5_ENABLED
416 1 : module procedure test_setRemapped_D1_IK5_1
417 : use pm_kind, only: IKC => IK5
418 : #include "test_pm_arrayRemap@routines.inc.F90"
419 : end procedure
420 : #endif
421 :
422 : #if IK4_ENABLED
423 1 : module procedure test_setRemapped_D1_IK4_1
424 : use pm_kind, only: IKC => IK4
425 : #include "test_pm_arrayRemap@routines.inc.F90"
426 : end procedure
427 : #endif
428 :
429 : #if IK3_ENABLED
430 1 : module procedure test_setRemapped_D1_IK3_1
431 : use pm_kind, only: IKC => IK3
432 : #include "test_pm_arrayRemap@routines.inc.F90"
433 : end procedure
434 : #endif
435 :
436 : #if IK2_ENABLED
437 1 : module procedure test_setRemapped_D1_IK2_1
438 : use pm_kind, only: IKC => IK2
439 : #include "test_pm_arrayRemap@routines.inc.F90"
440 : end procedure
441 : #endif
442 :
443 : #if IK1_ENABLED
444 1 : module procedure test_setRemapped_D1_IK1_1
445 : use pm_kind, only: IKC => IK1
446 : #include "test_pm_arrayRemap@routines.inc.F90"
447 : end procedure
448 : #endif
449 :
450 : #undef IK_ENABLED
451 :
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 :
454 : #define LK_ENABLED 1
455 :
456 : #if LK5_ENABLED
457 1 : module procedure test_setRemapped_D1_LK5_1
458 : use pm_kind, only: LKC => LK5
459 : #include "test_pm_arrayRemap@routines.inc.F90"
460 : end procedure
461 : #endif
462 :
463 : #if LK4_ENABLED
464 1 : module procedure test_setRemapped_D1_LK4_1
465 : use pm_kind, only: LKC => LK4
466 : #include "test_pm_arrayRemap@routines.inc.F90"
467 : end procedure
468 : #endif
469 :
470 : #if LK3_ENABLED
471 1 : module procedure test_setRemapped_D1_LK3_1
472 : use pm_kind, only: LKC => LK3
473 : #include "test_pm_arrayRemap@routines.inc.F90"
474 : end procedure
475 : #endif
476 :
477 : #if LK2_ENABLED
478 1 : module procedure test_setRemapped_D1_LK2_1
479 : use pm_kind, only: LKC => LK2
480 : #include "test_pm_arrayRemap@routines.inc.F90"
481 : end procedure
482 : #endif
483 :
484 : #if LK1_ENABLED
485 1 : module procedure test_setRemapped_D1_LK1_1
486 : use pm_kind, only: LKC => LK1
487 : #include "test_pm_arrayRemap@routines.inc.F90"
488 : end procedure
489 : #endif
490 :
491 : #undef LK_ENABLED
492 :
493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
494 :
495 : #define CK_ENABLED 1
496 :
497 : #if CK5_ENABLED
498 : module procedure test_setRemapped_D1_CK5_1
499 : use pm_kind, only: CKC => CK5
500 : #include "test_pm_arrayRemap@routines.inc.F90"
501 : end procedure
502 : #endif
503 :
504 : #if CK4_ENABLED
505 1 : module procedure test_setRemapped_D1_CK4_1
506 : use pm_kind, only: CKC => CK4
507 : #include "test_pm_arrayRemap@routines.inc.F90"
508 : end procedure
509 : #endif
510 :
511 : #if CK3_ENABLED
512 1 : module procedure test_setRemapped_D1_CK3_1
513 : use pm_kind, only: CKC => CK3
514 : #include "test_pm_arrayRemap@routines.inc.F90"
515 : end procedure
516 : #endif
517 :
518 : #if CK2_ENABLED
519 1 : module procedure test_setRemapped_D1_CK2_1
520 : use pm_kind, only: CKC => CK2
521 : #include "test_pm_arrayRemap@routines.inc.F90"
522 : end procedure
523 : #endif
524 :
525 : #if CK1_ENABLED
526 1 : module procedure test_setRemapped_D1_CK1_1
527 : use pm_kind, only: CKC => CK1
528 : #include "test_pm_arrayRemap@routines.inc.F90"
529 : end procedure
530 : #endif
531 :
532 : #undef CK_ENABLED
533 :
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 :
536 : #define RK_ENABLED 1
537 :
538 : #if RK5_ENABLED
539 : module procedure test_setRemapped_D1_RK5_1
540 : use pm_kind, only: RKC => RK5
541 : #include "test_pm_arrayRemap@routines.inc.F90"
542 : end procedure
543 : #endif
544 :
545 : #if RK4_ENABLED
546 1 : module procedure test_setRemapped_D1_RK4_1
547 : use pm_kind, only: RKC => RK4
548 : #include "test_pm_arrayRemap@routines.inc.F90"
549 : end procedure
550 : #endif
551 :
552 : #if RK3_ENABLED
553 1 : module procedure test_setRemapped_D1_RK3_1
554 : use pm_kind, only: RKC => RK3
555 : #include "test_pm_arrayRemap@routines.inc.F90"
556 : end procedure
557 : #endif
558 :
559 : #if RK2_ENABLED
560 1 : module procedure test_setRemapped_D1_RK2_1
561 : use pm_kind, only: RKC => RK2
562 : #include "test_pm_arrayRemap@routines.inc.F90"
563 : end procedure
564 : #endif
565 :
566 : #if RK1_ENABLED
567 1 : module procedure test_setRemapped_D1_RK1_1
568 : use pm_kind, only: RKC => RK1
569 : #include "test_pm_arrayRemap@routines.inc.F90"
570 : end procedure
571 : #endif
572 :
573 : #undef RK_ENABLED
574 :
575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576 :
577 : #undef D1_ENABLED
578 :
579 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
582 :
583 : #undef setRemapped_ENABLED
584 :
585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
586 :
587 : end submodule routines
|
