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_arrayPad](@ref test_pm_arrayPad).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_arrayPad) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_kind, only: LK, SK
30 : use pm_val2str, only: getStr
31 : use pm_option, only: getOption
32 : use pm_distUnif, only: setUnifRand
33 : implicit none
34 :
35 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 :
37 : contains
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : #define getPadded_ENABLED 1
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define D0_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 :
51 : #define SK_ENABLED 1
52 :
53 : #if SK5_ENABLED
54 : module procedure test_getPadded_D0_SK5
55 : use pm_kind, only: SKC => SK5
56 : #include "test_pm_arrayPad@routines.inc.F90"
57 : end procedure
58 : #endif
59 :
60 : #if SK4_ENABLED
61 : module procedure test_getPadded_D0_SK4
62 : use pm_kind, only: SKC => SK4
63 : #include "test_pm_arrayPad@routines.inc.F90"
64 : end procedure
65 : #endif
66 :
67 : #if SK3_ENABLED
68 : module procedure test_getPadded_D0_SK3
69 : use pm_kind, only: SKC => SK3
70 : #include "test_pm_arrayPad@routines.inc.F90"
71 : end procedure
72 : #endif
73 :
74 : #if SK2_ENABLED
75 : module procedure test_getPadded_D0_SK2
76 : use pm_kind, only: SKC => SK2
77 : #include "test_pm_arrayPad@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if SK1_ENABLED
82 1 : module procedure test_getPadded_D0_SK1
83 : use pm_kind, only: SKC => SK1
84 : #include "test_pm_arrayPad@routines.inc.F90"
85 : end procedure
86 : #endif
87 :
88 : #undef SK_ENABLED
89 :
90 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
91 :
92 : #undef D0_ENABLED
93 :
94 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #define D1_ENABLED 1
99 :
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 :
102 : #define SK_ENABLED 1
103 :
104 : #if SK5_ENABLED
105 : module procedure test_getPadded_D1_SK5
106 : use pm_kind, only: SKC => SK5
107 : #include "test_pm_arrayPad@routines.inc.F90"
108 : end procedure
109 : #endif
110 :
111 : #if SK4_ENABLED
112 : module procedure test_getPadded_D1_SK4
113 : use pm_kind, only: SKC => SK4
114 : #include "test_pm_arrayPad@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if SK3_ENABLED
119 : module procedure test_getPadded_D1_SK3
120 : use pm_kind, only: SKC => SK3
121 : #include "test_pm_arrayPad@routines.inc.F90"
122 : end procedure
123 : #endif
124 :
125 : #if SK2_ENABLED
126 : module procedure test_getPadded_D1_SK2
127 : use pm_kind, only: SKC => SK2
128 : #include "test_pm_arrayPad@routines.inc.F90"
129 : end procedure
130 : #endif
131 :
132 : #if SK1_ENABLED
133 1 : module procedure test_getPadded_D1_SK1
134 : use pm_kind, only: SKC => SK1
135 : #include "test_pm_arrayPad@routines.inc.F90"
136 : end procedure
137 : #endif
138 :
139 : #undef SK_ENABLED
140 :
141 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
142 :
143 : #define IK_ENABLED 1
144 :
145 : #if IK5_ENABLED
146 1 : module procedure test_getPadded_D1_IK5
147 : use pm_kind, only: IKC => IK5
148 : #include "test_pm_arrayPad@routines.inc.F90"
149 : end procedure
150 : #endif
151 :
152 : #if IK4_ENABLED
153 1 : module procedure test_getPadded_D1_IK4
154 : use pm_kind, only: IKC => IK4
155 : #include "test_pm_arrayPad@routines.inc.F90"
156 : end procedure
157 : #endif
158 :
159 : #if IK3_ENABLED
160 1 : module procedure test_getPadded_D1_IK3
161 : use pm_kind, only: IKC => IK3
162 : #include "test_pm_arrayPad@routines.inc.F90"
163 : end procedure
164 : #endif
165 :
166 : #if IK2_ENABLED
167 1 : module procedure test_getPadded_D1_IK2
168 : use pm_kind, only: IKC => IK2
169 : #include "test_pm_arrayPad@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if IK1_ENABLED
174 1 : module procedure test_getPadded_D1_IK1
175 : use pm_kind, only: IKC => IK1
176 : #include "test_pm_arrayPad@routines.inc.F90"
177 : end procedure
178 : #endif
179 :
180 : #undef IK_ENABLED
181 :
182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183 :
184 : #define LK_ENABLED 1
185 :
186 : #if LK5_ENABLED
187 1 : module procedure test_getPadded_D1_LK5
188 : use pm_kind, only: LKC => LK5
189 : #include "test_pm_arrayPad@routines.inc.F90"
190 : end procedure
191 : #endif
192 :
193 : #if LK4_ENABLED
194 1 : module procedure test_getPadded_D1_LK4
195 : use pm_kind, only: LKC => LK4
196 : #include "test_pm_arrayPad@routines.inc.F90"
197 : end procedure
198 : #endif
199 :
200 : #if LK3_ENABLED
201 1 : module procedure test_getPadded_D1_LK3
202 : use pm_kind, only: LKC => LK3
203 : #include "test_pm_arrayPad@routines.inc.F90"
204 : end procedure
205 : #endif
206 :
207 : #if LK2_ENABLED
208 1 : module procedure test_getPadded_D1_LK2
209 : use pm_kind, only: LKC => LK2
210 : #include "test_pm_arrayPad@routines.inc.F90"
211 : end procedure
212 : #endif
213 :
214 : #if LK1_ENABLED
215 1 : module procedure test_getPadded_D1_LK1
216 : use pm_kind, only: LKC => LK1
217 : #include "test_pm_arrayPad@routines.inc.F90"
218 : end procedure
219 : #endif
220 :
221 : #undef LK_ENABLED
222 :
223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
224 :
225 : #define CK_ENABLED 1
226 :
227 : #if CK5_ENABLED
228 : module procedure test_getPadded_D1_CK5
229 : use pm_kind, only: CKC => CK5
230 : #include "test_pm_arrayPad@routines.inc.F90"
231 : end procedure
232 : #endif
233 :
234 : #if CK4_ENABLED
235 1 : module procedure test_getPadded_D1_CK4
236 : use pm_kind, only: CKC => CK4
237 : #include "test_pm_arrayPad@routines.inc.F90"
238 : end procedure
239 : #endif
240 :
241 : #if CK3_ENABLED
242 1 : module procedure test_getPadded_D1_CK3
243 : use pm_kind, only: CKC => CK3
244 : #include "test_pm_arrayPad@routines.inc.F90"
245 : end procedure
246 : #endif
247 :
248 : #if CK2_ENABLED
249 1 : module procedure test_getPadded_D1_CK2
250 : use pm_kind, only: CKC => CK2
251 : #include "test_pm_arrayPad@routines.inc.F90"
252 : end procedure
253 : #endif
254 :
255 : #if CK1_ENABLED
256 1 : module procedure test_getPadded_D1_CK1
257 : use pm_kind, only: CKC => CK1
258 : #include "test_pm_arrayPad@routines.inc.F90"
259 : end procedure
260 : #endif
261 :
262 : #undef CK_ENABLED
263 :
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : #define RK_ENABLED 1
267 :
268 : #if RK5_ENABLED
269 : module procedure test_getPadded_D1_RK5
270 : use pm_kind, only: RKC => RK5
271 : #include "test_pm_arrayPad@routines.inc.F90"
272 : end procedure
273 : #endif
274 :
275 : #if RK4_ENABLED
276 1 : module procedure test_getPadded_D1_RK4
277 : use pm_kind, only: RKC => RK4
278 : #include "test_pm_arrayPad@routines.inc.F90"
279 : end procedure
280 : #endif
281 :
282 : #if RK3_ENABLED
283 1 : module procedure test_getPadded_D1_RK3
284 : use pm_kind, only: RKC => RK3
285 : #include "test_pm_arrayPad@routines.inc.F90"
286 : end procedure
287 : #endif
288 :
289 : #if RK2_ENABLED
290 1 : module procedure test_getPadded_D1_RK2
291 : use pm_kind, only: RKC => RK2
292 : #include "test_pm_arrayPad@routines.inc.F90"
293 : end procedure
294 : #endif
295 :
296 : #if RK1_ENABLED
297 1 : module procedure test_getPadded_D1_RK1
298 : use pm_kind, only: RKC => RK1
299 : #include "test_pm_arrayPad@routines.inc.F90"
300 : end procedure
301 : #endif
302 :
303 : #undef RK_ENABLED
304 :
305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306 :
307 : #undef getPadded_ENABLED
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 :
311 : #define setPadded_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_setPadded_D0_SK5
325 : use pm_kind, only: SKC => SK5
326 : #include "test_pm_arrayPad@routines.inc.F90"
327 : end procedure
328 : #endif
329 :
330 : #if SK4_ENABLED
331 : module procedure test_setPadded_D0_SK4
332 : use pm_kind, only: SKC => SK4
333 : #include "test_pm_arrayPad@routines.inc.F90"
334 : end procedure
335 : #endif
336 :
337 : #if SK3_ENABLED
338 : module procedure test_setPadded_D0_SK3
339 : use pm_kind, only: SKC => SK3
340 : #include "test_pm_arrayPad@routines.inc.F90"
341 : end procedure
342 : #endif
343 :
344 : #if SK2_ENABLED
345 : module procedure test_setPadded_D0_SK2
346 : use pm_kind, only: SKC => SK2
347 : #include "test_pm_arrayPad@routines.inc.F90"
348 : end procedure
349 : #endif
350 :
351 : #if SK1_ENABLED
352 1 : module procedure test_setPadded_D0_SK1
353 : use pm_kind, only: SKC => SK1
354 : #include "test_pm_arrayPad@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_setPadded_D1_SK5
376 : use pm_kind, only: SKC => SK5
377 : #include "test_pm_arrayPad@routines.inc.F90"
378 : end procedure
379 : #endif
380 :
381 : #if SK4_ENABLED
382 : module procedure test_setPadded_D1_SK4
383 : use pm_kind, only: SKC => SK4
384 : #include "test_pm_arrayPad@routines.inc.F90"
385 : end procedure
386 : #endif
387 :
388 : #if SK3_ENABLED
389 : module procedure test_setPadded_D1_SK3
390 : use pm_kind, only: SKC => SK3
391 : #include "test_pm_arrayPad@routines.inc.F90"
392 : end procedure
393 : #endif
394 :
395 : #if SK2_ENABLED
396 : module procedure test_setPadded_D1_SK2
397 : use pm_kind, only: SKC => SK2
398 : #include "test_pm_arrayPad@routines.inc.F90"
399 : end procedure
400 : #endif
401 :
402 : #if SK1_ENABLED
403 1 : module procedure test_setPadded_D1_SK1
404 : use pm_kind, only: SKC => SK1
405 : #include "test_pm_arrayPad@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_setPadded_D1_IK5
417 : use pm_kind, only: IKC => IK5
418 : #include "test_pm_arrayPad@routines.inc.F90"
419 : end procedure
420 : #endif
421 :
422 : #if IK4_ENABLED
423 1 : module procedure test_setPadded_D1_IK4
424 : use pm_kind, only: IKC => IK4
425 : #include "test_pm_arrayPad@routines.inc.F90"
426 : end procedure
427 : #endif
428 :
429 : #if IK3_ENABLED
430 1 : module procedure test_setPadded_D1_IK3
431 : use pm_kind, only: IKC => IK3
432 : #include "test_pm_arrayPad@routines.inc.F90"
433 : end procedure
434 : #endif
435 :
436 : #if IK2_ENABLED
437 1 : module procedure test_setPadded_D1_IK2
438 : use pm_kind, only: IKC => IK2
439 : #include "test_pm_arrayPad@routines.inc.F90"
440 : end procedure
441 : #endif
442 :
443 : #if IK1_ENABLED
444 1 : module procedure test_setPadded_D1_IK1
445 : use pm_kind, only: IKC => IK1
446 : #include "test_pm_arrayPad@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_setPadded_D1_LK5
458 : use pm_kind, only: LKC => LK5
459 : #include "test_pm_arrayPad@routines.inc.F90"
460 : end procedure
461 : #endif
462 :
463 : #if LK4_ENABLED
464 1 : module procedure test_setPadded_D1_LK4
465 : use pm_kind, only: LKC => LK4
466 : #include "test_pm_arrayPad@routines.inc.F90"
467 : end procedure
468 : #endif
469 :
470 : #if LK3_ENABLED
471 1 : module procedure test_setPadded_D1_LK3
472 : use pm_kind, only: LKC => LK3
473 : #include "test_pm_arrayPad@routines.inc.F90"
474 : end procedure
475 : #endif
476 :
477 : #if LK2_ENABLED
478 1 : module procedure test_setPadded_D1_LK2
479 : use pm_kind, only: LKC => LK2
480 : #include "test_pm_arrayPad@routines.inc.F90"
481 : end procedure
482 : #endif
483 :
484 : #if LK1_ENABLED
485 1 : module procedure test_setPadded_D1_LK1
486 : use pm_kind, only: LKC => LK1
487 : #include "test_pm_arrayPad@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_setPadded_D1_CK5
499 : use pm_kind, only: CKC => CK5
500 : #include "test_pm_arrayPad@routines.inc.F90"
501 : end procedure
502 : #endif
503 :
504 : #if CK4_ENABLED
505 1 : module procedure test_setPadded_D1_CK4
506 : use pm_kind, only: CKC => CK4
507 : #include "test_pm_arrayPad@routines.inc.F90"
508 : end procedure
509 : #endif
510 :
511 : #if CK3_ENABLED
512 1 : module procedure test_setPadded_D1_CK3
513 : use pm_kind, only: CKC => CK3
514 : #include "test_pm_arrayPad@routines.inc.F90"
515 : end procedure
516 : #endif
517 :
518 : #if CK2_ENABLED
519 1 : module procedure test_setPadded_D1_CK2
520 : use pm_kind, only: CKC => CK2
521 : #include "test_pm_arrayPad@routines.inc.F90"
522 : end procedure
523 : #endif
524 :
525 : #if CK1_ENABLED
526 1 : module procedure test_setPadded_D1_CK1
527 : use pm_kind, only: CKC => CK1
528 : #include "test_pm_arrayPad@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_setPadded_D1_RK5
540 : use pm_kind, only: RKC => RK5
541 : #include "test_pm_arrayPad@routines.inc.F90"
542 : end procedure
543 : #endif
544 :
545 : #if RK4_ENABLED
546 1 : module procedure test_setPadded_D1_RK4
547 : use pm_kind, only: RKC => RK4
548 : #include "test_pm_arrayPad@routines.inc.F90"
549 : end procedure
550 : #endif
551 :
552 : #if RK3_ENABLED
553 1 : module procedure test_setPadded_D1_RK3
554 : use pm_kind, only: RKC => RK3
555 : #include "test_pm_arrayPad@routines.inc.F90"
556 : end procedure
557 : #endif
558 :
559 : #if RK2_ENABLED
560 1 : module procedure test_setPadded_D1_RK2
561 : use pm_kind, only: RKC => RK2
562 : #include "test_pm_arrayPad@routines.inc.F90"
563 : end procedure
564 : #endif
565 :
566 : #if RK1_ENABLED
567 1 : module procedure test_setPadded_D1_RK1
568 : use pm_kind, only: RKC => RK1
569 : #include "test_pm_arrayPad@routines.inc.F90"
570 : end procedure
571 : #endif
572 :
573 : #undef RK_ENABLED
574 :
575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576 :
577 : #undef setPadded_ENABLED
578 :
579 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
580 :
581 : #define getPaddedl_ENABLED 1
582 :
583 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
586 :
587 : #define D0_ENABLED 1
588 :
589 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
590 :
591 : #define SK_ENABLED 1
592 :
593 : #if SK5_ENABLED
594 : module procedure test_getPaddedl_D0_SK5
595 : use pm_kind, only: SKC => SK5
596 : #include "test_pm_arrayPad@routines.inc.F90"
597 : end procedure
598 : #endif
599 :
600 : #if SK4_ENABLED
601 : module procedure test_getPaddedl_D0_SK4
602 : use pm_kind, only: SKC => SK4
603 : #include "test_pm_arrayPad@routines.inc.F90"
604 : end procedure
605 : #endif
606 :
607 : #if SK3_ENABLED
608 : module procedure test_getPaddedl_D0_SK3
609 : use pm_kind, only: SKC => SK3
610 : #include "test_pm_arrayPad@routines.inc.F90"
611 : end procedure
612 : #endif
613 :
614 : #if SK2_ENABLED
615 : module procedure test_getPaddedl_D0_SK2
616 : use pm_kind, only: SKC => SK2
617 : #include "test_pm_arrayPad@routines.inc.F90"
618 : end procedure
619 : #endif
620 :
621 : #if SK1_ENABLED
622 1 : module procedure test_getPaddedl_D0_SK1
623 : use pm_kind, only: SKC => SK1
624 : #include "test_pm_arrayPad@routines.inc.F90"
625 : end procedure
626 : #endif
627 :
628 : #undef SK_ENABLED
629 :
630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
631 :
632 : #undef D0_ENABLED
633 :
634 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
635 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
637 :
638 : #define D1_ENABLED 1
639 :
640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641 :
642 : #define SK_ENABLED 1
643 :
644 : #if SK5_ENABLED
645 : module procedure test_getPaddedl_D1_SK5
646 : use pm_kind, only: SKC => SK5
647 : #include "test_pm_arrayPad@routines.inc.F90"
648 : end procedure
649 : #endif
650 :
651 : #if SK4_ENABLED
652 : module procedure test_getPaddedl_D1_SK4
653 : use pm_kind, only: SKC => SK4
654 : #include "test_pm_arrayPad@routines.inc.F90"
655 : end procedure
656 : #endif
657 :
658 : #if SK3_ENABLED
659 : module procedure test_getPaddedl_D1_SK3
660 : use pm_kind, only: SKC => SK3
661 : #include "test_pm_arrayPad@routines.inc.F90"
662 : end procedure
663 : #endif
664 :
665 : #if SK2_ENABLED
666 : module procedure test_getPaddedl_D1_SK2
667 : use pm_kind, only: SKC => SK2
668 : #include "test_pm_arrayPad@routines.inc.F90"
669 : end procedure
670 : #endif
671 :
672 : #if SK1_ENABLED
673 1 : module procedure test_getPaddedl_D1_SK1
674 : use pm_kind, only: SKC => SK1
675 : #include "test_pm_arrayPad@routines.inc.F90"
676 : end procedure
677 : #endif
678 :
679 : #undef SK_ENABLED
680 :
681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
682 :
683 : #define IK_ENABLED 1
684 :
685 : #if IK5_ENABLED
686 1 : module procedure test_getPaddedl_D1_IK5
687 : use pm_kind, only: IKC => IK5
688 : #include "test_pm_arrayPad@routines.inc.F90"
689 : end procedure
690 : #endif
691 :
692 : #if IK4_ENABLED
693 1 : module procedure test_getPaddedl_D1_IK4
694 : use pm_kind, only: IKC => IK4
695 : #include "test_pm_arrayPad@routines.inc.F90"
696 : end procedure
697 : #endif
698 :
699 : #if IK3_ENABLED
700 1 : module procedure test_getPaddedl_D1_IK3
701 : use pm_kind, only: IKC => IK3
702 : #include "test_pm_arrayPad@routines.inc.F90"
703 : end procedure
704 : #endif
705 :
706 : #if IK2_ENABLED
707 1 : module procedure test_getPaddedl_D1_IK2
708 : use pm_kind, only: IKC => IK2
709 : #include "test_pm_arrayPad@routines.inc.F90"
710 : end procedure
711 : #endif
712 :
713 : #if IK1_ENABLED
714 1 : module procedure test_getPaddedl_D1_IK1
715 : use pm_kind, only: IKC => IK1
716 : #include "test_pm_arrayPad@routines.inc.F90"
717 : end procedure
718 : #endif
719 :
720 : #undef IK_ENABLED
721 :
722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723 :
724 : #define LK_ENABLED 1
725 :
726 : #if LK5_ENABLED
727 1 : module procedure test_getPaddedl_D1_LK5
728 : use pm_kind, only: LKC => LK5
729 : #include "test_pm_arrayPad@routines.inc.F90"
730 : end procedure
731 : #endif
732 :
733 : #if LK4_ENABLED
734 1 : module procedure test_getPaddedl_D1_LK4
735 : use pm_kind, only: LKC => LK4
736 : #include "test_pm_arrayPad@routines.inc.F90"
737 : end procedure
738 : #endif
739 :
740 : #if LK3_ENABLED
741 1 : module procedure test_getPaddedl_D1_LK3
742 : use pm_kind, only: LKC => LK3
743 : #include "test_pm_arrayPad@routines.inc.F90"
744 : end procedure
745 : #endif
746 :
747 : #if LK2_ENABLED
748 1 : module procedure test_getPaddedl_D1_LK2
749 : use pm_kind, only: LKC => LK2
750 : #include "test_pm_arrayPad@routines.inc.F90"
751 : end procedure
752 : #endif
753 :
754 : #if LK1_ENABLED
755 1 : module procedure test_getPaddedl_D1_LK1
756 : use pm_kind, only: LKC => LK1
757 : #include "test_pm_arrayPad@routines.inc.F90"
758 : end procedure
759 : #endif
760 :
761 : #undef LK_ENABLED
762 :
763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
764 :
765 : #define CK_ENABLED 1
766 :
767 : #if CK5_ENABLED
768 : module procedure test_getPaddedl_D1_CK5
769 : use pm_kind, only: CKC => CK5
770 : #include "test_pm_arrayPad@routines.inc.F90"
771 : end procedure
772 : #endif
773 :
774 : #if CK4_ENABLED
775 1 : module procedure test_getPaddedl_D1_CK4
776 : use pm_kind, only: CKC => CK4
777 : #include "test_pm_arrayPad@routines.inc.F90"
778 : end procedure
779 : #endif
780 :
781 : #if CK3_ENABLED
782 1 : module procedure test_getPaddedl_D1_CK3
783 : use pm_kind, only: CKC => CK3
784 : #include "test_pm_arrayPad@routines.inc.F90"
785 : end procedure
786 : #endif
787 :
788 : #if CK2_ENABLED
789 1 : module procedure test_getPaddedl_D1_CK2
790 : use pm_kind, only: CKC => CK2
791 : #include "test_pm_arrayPad@routines.inc.F90"
792 : end procedure
793 : #endif
794 :
795 : #if CK1_ENABLED
796 1 : module procedure test_getPaddedl_D1_CK1
797 : use pm_kind, only: CKC => CK1
798 : #include "test_pm_arrayPad@routines.inc.F90"
799 : end procedure
800 : #endif
801 :
802 : #undef CK_ENABLED
803 :
804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
805 :
806 : #define RK_ENABLED 1
807 :
808 : #if RK5_ENABLED
809 : module procedure test_getPaddedl_D1_RK5
810 : use pm_kind, only: RKC => RK5
811 : #include "test_pm_arrayPad@routines.inc.F90"
812 : end procedure
813 : #endif
814 :
815 : #if RK4_ENABLED
816 1 : module procedure test_getPaddedl_D1_RK4
817 : use pm_kind, only: RKC => RK4
818 : #include "test_pm_arrayPad@routines.inc.F90"
819 : end procedure
820 : #endif
821 :
822 : #if RK3_ENABLED
823 1 : module procedure test_getPaddedl_D1_RK3
824 : use pm_kind, only: RKC => RK3
825 : #include "test_pm_arrayPad@routines.inc.F90"
826 : end procedure
827 : #endif
828 :
829 : #if RK2_ENABLED
830 1 : module procedure test_getPaddedl_D1_RK2
831 : use pm_kind, only: RKC => RK2
832 : #include "test_pm_arrayPad@routines.inc.F90"
833 : end procedure
834 : #endif
835 :
836 : #if RK1_ENABLED
837 1 : module procedure test_getPaddedl_D1_RK1
838 : use pm_kind, only: RKC => RK1
839 : #include "test_pm_arrayPad@routines.inc.F90"
840 : end procedure
841 : #endif
842 :
843 : #undef RK_ENABLED
844 :
845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846 :
847 : #undef getPaddedl_ENABLED
848 :
849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
850 :
851 : #define setPaddedl_ENABLED 1
852 :
853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
856 :
857 : #define D0_ENABLED 1
858 :
859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
860 :
861 : #define SK_ENABLED 1
862 :
863 : #if SK5_ENABLED
864 : module procedure test_setPaddedl_D0_SK5
865 : use pm_kind, only: SKC => SK5
866 : #include "test_pm_arrayPad@routines.inc.F90"
867 : end procedure
868 : #endif
869 :
870 : #if SK4_ENABLED
871 : module procedure test_setPaddedl_D0_SK4
872 : use pm_kind, only: SKC => SK4
873 : #include "test_pm_arrayPad@routines.inc.F90"
874 : end procedure
875 : #endif
876 :
877 : #if SK3_ENABLED
878 : module procedure test_setPaddedl_D0_SK3
879 : use pm_kind, only: SKC => SK3
880 : #include "test_pm_arrayPad@routines.inc.F90"
881 : end procedure
882 : #endif
883 :
884 : #if SK2_ENABLED
885 : module procedure test_setPaddedl_D0_SK2
886 : use pm_kind, only: SKC => SK2
887 : #include "test_pm_arrayPad@routines.inc.F90"
888 : end procedure
889 : #endif
890 :
891 : #if SK1_ENABLED
892 1 : module procedure test_setPaddedl_D0_SK1
893 : use pm_kind, only: SKC => SK1
894 : #include "test_pm_arrayPad@routines.inc.F90"
895 : end procedure
896 : #endif
897 :
898 : #undef SK_ENABLED
899 :
900 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
901 :
902 : #undef D0_ENABLED
903 :
904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
905 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
906 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
907 :
908 : #define D1_ENABLED 1
909 :
910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
911 :
912 : #define SK_ENABLED 1
913 :
914 : #if SK5_ENABLED
915 : module procedure test_setPaddedl_D1_SK5
916 : use pm_kind, only: SKC => SK5
917 : #include "test_pm_arrayPad@routines.inc.F90"
918 : end procedure
919 : #endif
920 :
921 : #if SK4_ENABLED
922 : module procedure test_setPaddedl_D1_SK4
923 : use pm_kind, only: SKC => SK4
924 : #include "test_pm_arrayPad@routines.inc.F90"
925 : end procedure
926 : #endif
927 :
928 : #if SK3_ENABLED
929 : module procedure test_setPaddedl_D1_SK3
930 : use pm_kind, only: SKC => SK3
931 : #include "test_pm_arrayPad@routines.inc.F90"
932 : end procedure
933 : #endif
934 :
935 : #if SK2_ENABLED
936 : module procedure test_setPaddedl_D1_SK2
937 : use pm_kind, only: SKC => SK2
938 : #include "test_pm_arrayPad@routines.inc.F90"
939 : end procedure
940 : #endif
941 :
942 : #if SK1_ENABLED
943 1 : module procedure test_setPaddedl_D1_SK1
944 : use pm_kind, only: SKC => SK1
945 : #include "test_pm_arrayPad@routines.inc.F90"
946 : end procedure
947 : #endif
948 :
949 : #undef SK_ENABLED
950 :
951 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
952 :
953 : #define IK_ENABLED 1
954 :
955 : #if IK5_ENABLED
956 1 : module procedure test_setPaddedl_D1_IK5
957 : use pm_kind, only: IKC => IK5
958 : #include "test_pm_arrayPad@routines.inc.F90"
959 : end procedure
960 : #endif
961 :
962 : #if IK4_ENABLED
963 1 : module procedure test_setPaddedl_D1_IK4
964 : use pm_kind, only: IKC => IK4
965 : #include "test_pm_arrayPad@routines.inc.F90"
966 : end procedure
967 : #endif
968 :
969 : #if IK3_ENABLED
970 1 : module procedure test_setPaddedl_D1_IK3
971 : use pm_kind, only: IKC => IK3
972 : #include "test_pm_arrayPad@routines.inc.F90"
973 : end procedure
974 : #endif
975 :
976 : #if IK2_ENABLED
977 1 : module procedure test_setPaddedl_D1_IK2
978 : use pm_kind, only: IKC => IK2
979 : #include "test_pm_arrayPad@routines.inc.F90"
980 : end procedure
981 : #endif
982 :
983 : #if IK1_ENABLED
984 1 : module procedure test_setPaddedl_D1_IK1
985 : use pm_kind, only: IKC => IK1
986 : #include "test_pm_arrayPad@routines.inc.F90"
987 : end procedure
988 : #endif
989 :
990 : #undef IK_ENABLED
991 :
992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993 :
994 : #define LK_ENABLED 1
995 :
996 : #if LK5_ENABLED
997 1 : module procedure test_setPaddedl_D1_LK5
998 : use pm_kind, only: LKC => LK5
999 : #include "test_pm_arrayPad@routines.inc.F90"
1000 : end procedure
1001 : #endif
1002 :
1003 : #if LK4_ENABLED
1004 1 : module procedure test_setPaddedl_D1_LK4
1005 : use pm_kind, only: LKC => LK4
1006 : #include "test_pm_arrayPad@routines.inc.F90"
1007 : end procedure
1008 : #endif
1009 :
1010 : #if LK3_ENABLED
1011 1 : module procedure test_setPaddedl_D1_LK3
1012 : use pm_kind, only: LKC => LK3
1013 : #include "test_pm_arrayPad@routines.inc.F90"
1014 : end procedure
1015 : #endif
1016 :
1017 : #if LK2_ENABLED
1018 1 : module procedure test_setPaddedl_D1_LK2
1019 : use pm_kind, only: LKC => LK2
1020 : #include "test_pm_arrayPad@routines.inc.F90"
1021 : end procedure
1022 : #endif
1023 :
1024 : #if LK1_ENABLED
1025 1 : module procedure test_setPaddedl_D1_LK1
1026 : use pm_kind, only: LKC => LK1
1027 : #include "test_pm_arrayPad@routines.inc.F90"
1028 : end procedure
1029 : #endif
1030 :
1031 : #undef LK_ENABLED
1032 :
1033 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1034 :
1035 : #define CK_ENABLED 1
1036 :
1037 : #if CK5_ENABLED
1038 : module procedure test_setPaddedl_D1_CK5
1039 : use pm_kind, only: CKC => CK5
1040 : #include "test_pm_arrayPad@routines.inc.F90"
1041 : end procedure
1042 : #endif
1043 :
1044 : #if CK4_ENABLED
1045 1 : module procedure test_setPaddedl_D1_CK4
1046 : use pm_kind, only: CKC => CK4
1047 : #include "test_pm_arrayPad@routines.inc.F90"
1048 : end procedure
1049 : #endif
1050 :
1051 : #if CK3_ENABLED
1052 1 : module procedure test_setPaddedl_D1_CK3
1053 : use pm_kind, only: CKC => CK3
1054 : #include "test_pm_arrayPad@routines.inc.F90"
1055 : end procedure
1056 : #endif
1057 :
1058 : #if CK2_ENABLED
1059 1 : module procedure test_setPaddedl_D1_CK2
1060 : use pm_kind, only: CKC => CK2
1061 : #include "test_pm_arrayPad@routines.inc.F90"
1062 : end procedure
1063 : #endif
1064 :
1065 : #if CK1_ENABLED
1066 1 : module procedure test_setPaddedl_D1_CK1
1067 : use pm_kind, only: CKC => CK1
1068 : #include "test_pm_arrayPad@routines.inc.F90"
1069 : end procedure
1070 : #endif
1071 :
1072 : #undef CK_ENABLED
1073 :
1074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1075 :
1076 : #define RK_ENABLED 1
1077 :
1078 : #if RK5_ENABLED
1079 : module procedure test_setPaddedl_D1_RK5
1080 : use pm_kind, only: RKC => RK5
1081 : #include "test_pm_arrayPad@routines.inc.F90"
1082 : end procedure
1083 : #endif
1084 :
1085 : #if RK4_ENABLED
1086 1 : module procedure test_setPaddedl_D1_RK4
1087 : use pm_kind, only: RKC => RK4
1088 : #include "test_pm_arrayPad@routines.inc.F90"
1089 : end procedure
1090 : #endif
1091 :
1092 : #if RK3_ENABLED
1093 1 : module procedure test_setPaddedl_D1_RK3
1094 : use pm_kind, only: RKC => RK3
1095 : #include "test_pm_arrayPad@routines.inc.F90"
1096 : end procedure
1097 : #endif
1098 :
1099 : #if RK2_ENABLED
1100 1 : module procedure test_setPaddedl_D1_RK2
1101 : use pm_kind, only: RKC => RK2
1102 : #include "test_pm_arrayPad@routines.inc.F90"
1103 : end procedure
1104 : #endif
1105 :
1106 : #if RK1_ENABLED
1107 1 : module procedure test_setPaddedl_D1_RK1
1108 : use pm_kind, only: RKC => RK1
1109 : #include "test_pm_arrayPad@routines.inc.F90"
1110 : end procedure
1111 : #endif
1112 :
1113 : #undef RK_ENABLED
1114 :
1115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1116 :
1117 : #undef setPaddedl_ENABLED
1118 :
1119 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1120 :
1121 : #define getPaddedr_ENABLED 1
1122 :
1123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1126 :
1127 : #define D0_ENABLED 1
1128 :
1129 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1130 :
1131 : #define SK_ENABLED 1
1132 :
1133 : #if SK5_ENABLED
1134 : module procedure test_getPaddedr_D0_SK5
1135 : use pm_kind, only: SKC => SK5
1136 : #include "test_pm_arrayPad@routines.inc.F90"
1137 : end procedure
1138 : #endif
1139 :
1140 : #if SK4_ENABLED
1141 : module procedure test_getPaddedr_D0_SK4
1142 : use pm_kind, only: SKC => SK4
1143 : #include "test_pm_arrayPad@routines.inc.F90"
1144 : end procedure
1145 : #endif
1146 :
1147 : #if SK3_ENABLED
1148 : module procedure test_getPaddedr_D0_SK3
1149 : use pm_kind, only: SKC => SK3
1150 : #include "test_pm_arrayPad@routines.inc.F90"
1151 : end procedure
1152 : #endif
1153 :
1154 : #if SK2_ENABLED
1155 : module procedure test_getPaddedr_D0_SK2
1156 : use pm_kind, only: SKC => SK2
1157 : #include "test_pm_arrayPad@routines.inc.F90"
1158 : end procedure
1159 : #endif
1160 :
1161 : #if SK1_ENABLED
1162 1 : module procedure test_getPaddedr_D0_SK1
1163 : use pm_kind, only: SKC => SK1
1164 : #include "test_pm_arrayPad@routines.inc.F90"
1165 : end procedure
1166 : #endif
1167 :
1168 : #undef SK_ENABLED
1169 :
1170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1171 :
1172 : #undef D0_ENABLED
1173 :
1174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1177 :
1178 : #define D1_ENABLED 1
1179 :
1180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1181 :
1182 : #define SK_ENABLED 1
1183 :
1184 : #if SK5_ENABLED
1185 : module procedure test_getPaddedr_D1_SK5
1186 : use pm_kind, only: SKC => SK5
1187 : #include "test_pm_arrayPad@routines.inc.F90"
1188 : end procedure
1189 : #endif
1190 :
1191 : #if SK4_ENABLED
1192 : module procedure test_getPaddedr_D1_SK4
1193 : use pm_kind, only: SKC => SK4
1194 : #include "test_pm_arrayPad@routines.inc.F90"
1195 : end procedure
1196 : #endif
1197 :
1198 : #if SK3_ENABLED
1199 : module procedure test_getPaddedr_D1_SK3
1200 : use pm_kind, only: SKC => SK3
1201 : #include "test_pm_arrayPad@routines.inc.F90"
1202 : end procedure
1203 : #endif
1204 :
1205 : #if SK2_ENABLED
1206 : module procedure test_getPaddedr_D1_SK2
1207 : use pm_kind, only: SKC => SK2
1208 : #include "test_pm_arrayPad@routines.inc.F90"
1209 : end procedure
1210 : #endif
1211 :
1212 : #if SK1_ENABLED
1213 1 : module procedure test_getPaddedr_D1_SK1
1214 : use pm_kind, only: SKC => SK1
1215 : #include "test_pm_arrayPad@routines.inc.F90"
1216 : end procedure
1217 : #endif
1218 :
1219 : #undef SK_ENABLED
1220 :
1221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1222 :
1223 : #define IK_ENABLED 1
1224 :
1225 : #if IK5_ENABLED
1226 1 : module procedure test_getPaddedr_D1_IK5
1227 : use pm_kind, only: IKC => IK5
1228 : #include "test_pm_arrayPad@routines.inc.F90"
1229 : end procedure
1230 : #endif
1231 :
1232 : #if IK4_ENABLED
1233 1 : module procedure test_getPaddedr_D1_IK4
1234 : use pm_kind, only: IKC => IK4
1235 : #include "test_pm_arrayPad@routines.inc.F90"
1236 : end procedure
1237 : #endif
1238 :
1239 : #if IK3_ENABLED
1240 1 : module procedure test_getPaddedr_D1_IK3
1241 : use pm_kind, only: IKC => IK3
1242 : #include "test_pm_arrayPad@routines.inc.F90"
1243 : end procedure
1244 : #endif
1245 :
1246 : #if IK2_ENABLED
1247 1 : module procedure test_getPaddedr_D1_IK2
1248 : use pm_kind, only: IKC => IK2
1249 : #include "test_pm_arrayPad@routines.inc.F90"
1250 : end procedure
1251 : #endif
1252 :
1253 : #if IK1_ENABLED
1254 1 : module procedure test_getPaddedr_D1_IK1
1255 : use pm_kind, only: IKC => IK1
1256 : #include "test_pm_arrayPad@routines.inc.F90"
1257 : end procedure
1258 : #endif
1259 :
1260 : #undef IK_ENABLED
1261 :
1262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1263 :
1264 : #define LK_ENABLED 1
1265 :
1266 : #if LK5_ENABLED
1267 1 : module procedure test_getPaddedr_D1_LK5
1268 : use pm_kind, only: LKC => LK5
1269 : #include "test_pm_arrayPad@routines.inc.F90"
1270 : end procedure
1271 : #endif
1272 :
1273 : #if LK4_ENABLED
1274 1 : module procedure test_getPaddedr_D1_LK4
1275 : use pm_kind, only: LKC => LK4
1276 : #include "test_pm_arrayPad@routines.inc.F90"
1277 : end procedure
1278 : #endif
1279 :
1280 : #if LK3_ENABLED
1281 1 : module procedure test_getPaddedr_D1_LK3
1282 : use pm_kind, only: LKC => LK3
1283 : #include "test_pm_arrayPad@routines.inc.F90"
1284 : end procedure
1285 : #endif
1286 :
1287 : #if LK2_ENABLED
1288 1 : module procedure test_getPaddedr_D1_LK2
1289 : use pm_kind, only: LKC => LK2
1290 : #include "test_pm_arrayPad@routines.inc.F90"
1291 : end procedure
1292 : #endif
1293 :
1294 : #if LK1_ENABLED
1295 1 : module procedure test_getPaddedr_D1_LK1
1296 : use pm_kind, only: LKC => LK1
1297 : #include "test_pm_arrayPad@routines.inc.F90"
1298 : end procedure
1299 : #endif
1300 :
1301 : #undef LK_ENABLED
1302 :
1303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1304 :
1305 : #define CK_ENABLED 1
1306 :
1307 : #if CK5_ENABLED
1308 : module procedure test_getPaddedr_D1_CK5
1309 : use pm_kind, only: CKC => CK5
1310 : #include "test_pm_arrayPad@routines.inc.F90"
1311 : end procedure
1312 : #endif
1313 :
1314 : #if CK4_ENABLED
1315 1 : module procedure test_getPaddedr_D1_CK4
1316 : use pm_kind, only: CKC => CK4
1317 : #include "test_pm_arrayPad@routines.inc.F90"
1318 : end procedure
1319 : #endif
1320 :
1321 : #if CK3_ENABLED
1322 1 : module procedure test_getPaddedr_D1_CK3
1323 : use pm_kind, only: CKC => CK3
1324 : #include "test_pm_arrayPad@routines.inc.F90"
1325 : end procedure
1326 : #endif
1327 :
1328 : #if CK2_ENABLED
1329 1 : module procedure test_getPaddedr_D1_CK2
1330 : use pm_kind, only: CKC => CK2
1331 : #include "test_pm_arrayPad@routines.inc.F90"
1332 : end procedure
1333 : #endif
1334 :
1335 : #if CK1_ENABLED
1336 1 : module procedure test_getPaddedr_D1_CK1
1337 : use pm_kind, only: CKC => CK1
1338 : #include "test_pm_arrayPad@routines.inc.F90"
1339 : end procedure
1340 : #endif
1341 :
1342 : #undef CK_ENABLED
1343 :
1344 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1345 :
1346 : #define RK_ENABLED 1
1347 :
1348 : #if RK5_ENABLED
1349 : module procedure test_getPaddedr_D1_RK5
1350 : use pm_kind, only: RKC => RK5
1351 : #include "test_pm_arrayPad@routines.inc.F90"
1352 : end procedure
1353 : #endif
1354 :
1355 : #if RK4_ENABLED
1356 1 : module procedure test_getPaddedr_D1_RK4
1357 : use pm_kind, only: RKC => RK4
1358 : #include "test_pm_arrayPad@routines.inc.F90"
1359 : end procedure
1360 : #endif
1361 :
1362 : #if RK3_ENABLED
1363 1 : module procedure test_getPaddedr_D1_RK3
1364 : use pm_kind, only: RKC => RK3
1365 : #include "test_pm_arrayPad@routines.inc.F90"
1366 : end procedure
1367 : #endif
1368 :
1369 : #if RK2_ENABLED
1370 1 : module procedure test_getPaddedr_D1_RK2
1371 : use pm_kind, only: RKC => RK2
1372 : #include "test_pm_arrayPad@routines.inc.F90"
1373 : end procedure
1374 : #endif
1375 :
1376 : #if RK1_ENABLED
1377 1 : module procedure test_getPaddedr_D1_RK1
1378 : use pm_kind, only: RKC => RK1
1379 : #include "test_pm_arrayPad@routines.inc.F90"
1380 : end procedure
1381 : #endif
1382 :
1383 : #undef RK_ENABLED
1384 :
1385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1386 :
1387 : #undef getPaddedr_ENABLED
1388 :
1389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1390 :
1391 : #define setPaddedr_ENABLED 1
1392 :
1393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1396 :
1397 : #define D0_ENABLED 1
1398 :
1399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1400 :
1401 : #define SK_ENABLED 1
1402 :
1403 : #if SK5_ENABLED
1404 : module procedure test_setPaddedr_D0_SK5
1405 : use pm_kind, only: SKC => SK5
1406 : #include "test_pm_arrayPad@routines.inc.F90"
1407 : end procedure
1408 : #endif
1409 :
1410 : #if SK4_ENABLED
1411 : module procedure test_setPaddedr_D0_SK4
1412 : use pm_kind, only: SKC => SK4
1413 : #include "test_pm_arrayPad@routines.inc.F90"
1414 : end procedure
1415 : #endif
1416 :
1417 : #if SK3_ENABLED
1418 : module procedure test_setPaddedr_D0_SK3
1419 : use pm_kind, only: SKC => SK3
1420 : #include "test_pm_arrayPad@routines.inc.F90"
1421 : end procedure
1422 : #endif
1423 :
1424 : #if SK2_ENABLED
1425 : module procedure test_setPaddedr_D0_SK2
1426 : use pm_kind, only: SKC => SK2
1427 : #include "test_pm_arrayPad@routines.inc.F90"
1428 : end procedure
1429 : #endif
1430 :
1431 : #if SK1_ENABLED
1432 1 : module procedure test_setPaddedr_D0_SK1
1433 : use pm_kind, only: SKC => SK1
1434 : #include "test_pm_arrayPad@routines.inc.F90"
1435 : end procedure
1436 : #endif
1437 :
1438 : #undef SK_ENABLED
1439 :
1440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1441 :
1442 : #undef D0_ENABLED
1443 :
1444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1447 :
1448 : #define D1_ENABLED 1
1449 :
1450 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1451 :
1452 : #define SK_ENABLED 1
1453 :
1454 : #if SK5_ENABLED
1455 : module procedure test_setPaddedr_D1_SK5
1456 : use pm_kind, only: SKC => SK5
1457 : #include "test_pm_arrayPad@routines.inc.F90"
1458 : end procedure
1459 : #endif
1460 :
1461 : #if SK4_ENABLED
1462 : module procedure test_setPaddedr_D1_SK4
1463 : use pm_kind, only: SKC => SK4
1464 : #include "test_pm_arrayPad@routines.inc.F90"
1465 : end procedure
1466 : #endif
1467 :
1468 : #if SK3_ENABLED
1469 : module procedure test_setPaddedr_D1_SK3
1470 : use pm_kind, only: SKC => SK3
1471 : #include "test_pm_arrayPad@routines.inc.F90"
1472 : end procedure
1473 : #endif
1474 :
1475 : #if SK2_ENABLED
1476 : module procedure test_setPaddedr_D1_SK2
1477 : use pm_kind, only: SKC => SK2
1478 : #include "test_pm_arrayPad@routines.inc.F90"
1479 : end procedure
1480 : #endif
1481 :
1482 : #if SK1_ENABLED
1483 1 : module procedure test_setPaddedr_D1_SK1
1484 : use pm_kind, only: SKC => SK1
1485 : #include "test_pm_arrayPad@routines.inc.F90"
1486 : end procedure
1487 : #endif
1488 :
1489 : #undef SK_ENABLED
1490 :
1491 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1492 :
1493 : #define IK_ENABLED 1
1494 :
1495 : #if IK5_ENABLED
1496 1 : module procedure test_setPaddedr_D1_IK5
1497 : use pm_kind, only: IKC => IK5
1498 : #include "test_pm_arrayPad@routines.inc.F90"
1499 : end procedure
1500 : #endif
1501 :
1502 : #if IK4_ENABLED
1503 1 : module procedure test_setPaddedr_D1_IK4
1504 : use pm_kind, only: IKC => IK4
1505 : #include "test_pm_arrayPad@routines.inc.F90"
1506 : end procedure
1507 : #endif
1508 :
1509 : #if IK3_ENABLED
1510 1 : module procedure test_setPaddedr_D1_IK3
1511 : use pm_kind, only: IKC => IK3
1512 : #include "test_pm_arrayPad@routines.inc.F90"
1513 : end procedure
1514 : #endif
1515 :
1516 : #if IK2_ENABLED
1517 1 : module procedure test_setPaddedr_D1_IK2
1518 : use pm_kind, only: IKC => IK2
1519 : #include "test_pm_arrayPad@routines.inc.F90"
1520 : end procedure
1521 : #endif
1522 :
1523 : #if IK1_ENABLED
1524 1 : module procedure test_setPaddedr_D1_IK1
1525 : use pm_kind, only: IKC => IK1
1526 : #include "test_pm_arrayPad@routines.inc.F90"
1527 : end procedure
1528 : #endif
1529 :
1530 : #undef IK_ENABLED
1531 :
1532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1533 :
1534 : #define LK_ENABLED 1
1535 :
1536 : #if LK5_ENABLED
1537 1 : module procedure test_setPaddedr_D1_LK5
1538 : use pm_kind, only: LKC => LK5
1539 : #include "test_pm_arrayPad@routines.inc.F90"
1540 : end procedure
1541 : #endif
1542 :
1543 : #if LK4_ENABLED
1544 1 : module procedure test_setPaddedr_D1_LK4
1545 : use pm_kind, only: LKC => LK4
1546 : #include "test_pm_arrayPad@routines.inc.F90"
1547 : end procedure
1548 : #endif
1549 :
1550 : #if LK3_ENABLED
1551 1 : module procedure test_setPaddedr_D1_LK3
1552 : use pm_kind, only: LKC => LK3
1553 : #include "test_pm_arrayPad@routines.inc.F90"
1554 : end procedure
1555 : #endif
1556 :
1557 : #if LK2_ENABLED
1558 1 : module procedure test_setPaddedr_D1_LK2
1559 : use pm_kind, only: LKC => LK2
1560 : #include "test_pm_arrayPad@routines.inc.F90"
1561 : end procedure
1562 : #endif
1563 :
1564 : #if LK1_ENABLED
1565 1 : module procedure test_setPaddedr_D1_LK1
1566 : use pm_kind, only: LKC => LK1
1567 : #include "test_pm_arrayPad@routines.inc.F90"
1568 : end procedure
1569 : #endif
1570 :
1571 : #undef LK_ENABLED
1572 :
1573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1574 :
1575 : #define CK_ENABLED 1
1576 :
1577 : #if CK5_ENABLED
1578 : module procedure test_setPaddedr_D1_CK5
1579 : use pm_kind, only: CKC => CK5
1580 : #include "test_pm_arrayPad@routines.inc.F90"
1581 : end procedure
1582 : #endif
1583 :
1584 : #if CK4_ENABLED
1585 1 : module procedure test_setPaddedr_D1_CK4
1586 : use pm_kind, only: CKC => CK4
1587 : #include "test_pm_arrayPad@routines.inc.F90"
1588 : end procedure
1589 : #endif
1590 :
1591 : #if CK3_ENABLED
1592 1 : module procedure test_setPaddedr_D1_CK3
1593 : use pm_kind, only: CKC => CK3
1594 : #include "test_pm_arrayPad@routines.inc.F90"
1595 : end procedure
1596 : #endif
1597 :
1598 : #if CK2_ENABLED
1599 1 : module procedure test_setPaddedr_D1_CK2
1600 : use pm_kind, only: CKC => CK2
1601 : #include "test_pm_arrayPad@routines.inc.F90"
1602 : end procedure
1603 : #endif
1604 :
1605 : #if CK1_ENABLED
1606 1 : module procedure test_setPaddedr_D1_CK1
1607 : use pm_kind, only: CKC => CK1
1608 : #include "test_pm_arrayPad@routines.inc.F90"
1609 : end procedure
1610 : #endif
1611 :
1612 : #undef CK_ENABLED
1613 :
1614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1615 :
1616 : #define RK_ENABLED 1
1617 :
1618 : #if RK5_ENABLED
1619 : module procedure test_setPaddedr_D1_RK5
1620 : use pm_kind, only: RKC => RK5
1621 : #include "test_pm_arrayPad@routines.inc.F90"
1622 : end procedure
1623 : #endif
1624 :
1625 : #if RK4_ENABLED
1626 1 : module procedure test_setPaddedr_D1_RK4
1627 : use pm_kind, only: RKC => RK4
1628 : #include "test_pm_arrayPad@routines.inc.F90"
1629 : end procedure
1630 : #endif
1631 :
1632 : #if RK3_ENABLED
1633 1 : module procedure test_setPaddedr_D1_RK3
1634 : use pm_kind, only: RKC => RK3
1635 : #include "test_pm_arrayPad@routines.inc.F90"
1636 : end procedure
1637 : #endif
1638 :
1639 : #if RK2_ENABLED
1640 1 : module procedure test_setPaddedr_D1_RK2
1641 : use pm_kind, only: RKC => RK2
1642 : #include "test_pm_arrayPad@routines.inc.F90"
1643 : end procedure
1644 : #endif
1645 :
1646 : #if RK1_ENABLED
1647 1 : module procedure test_setPaddedr_D1_RK1
1648 : use pm_kind, only: RKC => RK1
1649 : #include "test_pm_arrayPad@routines.inc.F90"
1650 : end procedure
1651 : #endif
1652 :
1653 : #undef RK_ENABLED
1654 :
1655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1656 :
1657 : #undef setPaddedr_ENABLED
1658 :
1659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1660 :
1661 : end submodule routines
|
