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_arrayStrip](@ref test_pm_arrayStrip).
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_arrayStrip) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_arrayReverse, only: setReversed
30 : use pm_arrayResize, only: setResized
31 : use pm_distUnif, only: getUnifRand
32 : use pm_distUnif, only: setUnifRand
33 : use pm_val2str, only: getStr
34 : implicit none
35 :
36 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 :
38 : contains
39 :
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 :
42 : #define getStripped_ENABLED 1
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #define SB_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : #define D0_D0_ENABLED 1
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 :
58 : #define SK_ENABLED 1
59 :
60 : #if SK5_ENABLED
61 : module procedure test_getStrippedB_D0_D0_SK5
62 : use pm_kind, only: SKC => SK5
63 : #include "test_pm_arrayStrip@routines.inc.F90"
64 : end procedure
65 : #endif
66 :
67 : #if SK4_ENABLED
68 : module procedure test_getStrippedB_D0_D0_SK4
69 : use pm_kind, only: SKC => SK4
70 : #include "test_pm_arrayStrip@routines.inc.F90"
71 : end procedure
72 : #endif
73 :
74 : #if SK3_ENABLED
75 : module procedure test_getStrippedB_D0_D0_SK3
76 : use pm_kind, only: SKC => SK3
77 : #include "test_pm_arrayStrip@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if SK2_ENABLED
82 : module procedure test_getStrippedB_D0_D0_SK2
83 : use pm_kind, only: SKC => SK2
84 : #include "test_pm_arrayStrip@routines.inc.F90"
85 : end procedure
86 : #endif
87 :
88 : #if SK1_ENABLED
89 1 : module procedure test_getStrippedB_D0_D0_SK1
90 : use pm_kind, only: SKC => SK1
91 : #include "test_pm_arrayStrip@routines.inc.F90"
92 : end procedure
93 : #endif
94 :
95 : #undef D0_D0_ENABLED
96 :
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #undef D0_D0_ENABLED
100 :
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
104 :
105 : #define D1_D0_ENABLED 1
106 :
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 :
109 : #define SK_ENABLED 1
110 :
111 : #if SK5_ENABLED
112 : module procedure test_getStrippedB_D1_D0_SK5
113 : use pm_kind, only: SKC => SK5
114 : #include "test_pm_arrayStrip@routines.inc.F90"
115 : end procedure
116 : #endif
117 :
118 : #if SK4_ENABLED
119 : module procedure test_getStrippedB_D1_D0_SK4
120 : use pm_kind, only: SKC => SK4
121 : #include "test_pm_arrayStrip@routines.inc.F90"
122 : end procedure
123 : #endif
124 :
125 : #if SK3_ENABLED
126 : module procedure test_getStrippedB_D1_D0_SK3
127 : use pm_kind, only: SKC => SK3
128 : #include "test_pm_arrayStrip@routines.inc.F90"
129 : end procedure
130 : #endif
131 :
132 : #if SK2_ENABLED
133 : module procedure test_getStrippedB_D1_D0_SK2
134 : use pm_kind, only: SKC => SK2
135 : #include "test_pm_arrayStrip@routines.inc.F90"
136 : end procedure
137 : #endif
138 :
139 : #if SK1_ENABLED
140 1 : module procedure test_getStrippedB_D1_D0_SK1
141 : use pm_kind, only: SKC => SK1
142 : #include "test_pm_arrayStrip@routines.inc.F90"
143 : end procedure
144 : #endif
145 :
146 : #undef SK_ENABLED
147 :
148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149 :
150 : #define IK_ENABLED 1
151 :
152 : #if IK5_ENABLED
153 1 : module procedure test_getStrippedB_D1_D0_IK5
154 : use pm_kind, only: IKC => IK5
155 : #include "test_pm_arrayStrip@routines.inc.F90"
156 : end procedure
157 : #endif
158 :
159 : #if IK4_ENABLED
160 1 : module procedure test_getStrippedB_D1_D0_IK4
161 : use pm_kind, only: IKC => IK4
162 : #include "test_pm_arrayStrip@routines.inc.F90"
163 : end procedure
164 : #endif
165 :
166 : #if IK3_ENABLED
167 1 : module procedure test_getStrippedB_D1_D0_IK3
168 : use pm_kind, only: IKC => IK3
169 : #include "test_pm_arrayStrip@routines.inc.F90"
170 : end procedure
171 : #endif
172 :
173 : #if IK2_ENABLED
174 1 : module procedure test_getStrippedB_D1_D0_IK2
175 : use pm_kind, only: IKC => IK2
176 : #include "test_pm_arrayStrip@routines.inc.F90"
177 : end procedure
178 : #endif
179 :
180 : #if IK1_ENABLED
181 1 : module procedure test_getStrippedB_D1_D0_IK1
182 : use pm_kind, only: IKC => IK1
183 : #include "test_pm_arrayStrip@routines.inc.F90"
184 : end procedure
185 : #endif
186 :
187 : #undef IK_ENABLED
188 :
189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
190 :
191 : #define LK_ENABLED 1
192 :
193 : #if LK5_ENABLED
194 1 : module procedure test_getStrippedB_D1_D0_LK5
195 : use pm_kind, only: LKC => LK5
196 : #include "test_pm_arrayStrip@routines.inc.F90"
197 : end procedure
198 : #endif
199 :
200 : #if LK4_ENABLED
201 1 : module procedure test_getStrippedB_D1_D0_LK4
202 : use pm_kind, only: LKC => LK4
203 : #include "test_pm_arrayStrip@routines.inc.F90"
204 : end procedure
205 : #endif
206 :
207 : #if LK3_ENABLED
208 1 : module procedure test_getStrippedB_D1_D0_LK3
209 : use pm_kind, only: LKC => LK3
210 : #include "test_pm_arrayStrip@routines.inc.F90"
211 : end procedure
212 : #endif
213 :
214 : #if LK2_ENABLED
215 1 : module procedure test_getStrippedB_D1_D0_LK2
216 : use pm_kind, only: LKC => LK2
217 : #include "test_pm_arrayStrip@routines.inc.F90"
218 : end procedure
219 : #endif
220 :
221 : #if LK1_ENABLED
222 1 : module procedure test_getStrippedB_D1_D0_LK1
223 : use pm_kind, only: LKC => LK1
224 : #include "test_pm_arrayStrip@routines.inc.F90"
225 : end procedure
226 : #endif
227 :
228 : #undef LK_ENABLED
229 :
230 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
231 :
232 : #define CK_ENABLED 1
233 :
234 : #if CK5_ENABLED
235 : module procedure test_getStrippedB_D1_D0_CK5
236 : use pm_kind, only: CKC => CK5
237 : #include "test_pm_arrayStrip@routines.inc.F90"
238 : end procedure
239 : #endif
240 :
241 : #if CK4_ENABLED
242 1 : module procedure test_getStrippedB_D1_D0_CK4
243 : use pm_kind, only: CKC => CK4
244 : #include "test_pm_arrayStrip@routines.inc.F90"
245 : end procedure
246 : #endif
247 :
248 : #if CK3_ENABLED
249 1 : module procedure test_getStrippedB_D1_D0_CK3
250 : use pm_kind, only: CKC => CK3
251 : #include "test_pm_arrayStrip@routines.inc.F90"
252 : end procedure
253 : #endif
254 :
255 : #if CK2_ENABLED
256 1 : module procedure test_getStrippedB_D1_D0_CK2
257 : use pm_kind, only: CKC => CK2
258 : #include "test_pm_arrayStrip@routines.inc.F90"
259 : end procedure
260 : #endif
261 :
262 : #if CK1_ENABLED
263 1 : module procedure test_getStrippedB_D1_D0_CK1
264 : use pm_kind, only: CKC => CK1
265 : #include "test_pm_arrayStrip@routines.inc.F90"
266 : end procedure
267 : #endif
268 :
269 : #undef CK_ENABLED
270 :
271 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
272 :
273 : #define RK_ENABLED 1
274 :
275 : #if RK5_ENABLED
276 : module procedure test_getStrippedB_D1_D0_RK5
277 : use pm_kind, only: RKC => RK5
278 : #include "test_pm_arrayStrip@routines.inc.F90"
279 : end procedure
280 : #endif
281 :
282 : #if RK4_ENABLED
283 1 : module procedure test_getStrippedB_D1_D0_RK4
284 : use pm_kind, only: RKC => RK4
285 : #include "test_pm_arrayStrip@routines.inc.F90"
286 : end procedure
287 : #endif
288 :
289 : #if RK3_ENABLED
290 1 : module procedure test_getStrippedB_D1_D0_RK3
291 : use pm_kind, only: RKC => RK3
292 : #include "test_pm_arrayStrip@routines.inc.F90"
293 : end procedure
294 : #endif
295 :
296 : #if RK2_ENABLED
297 1 : module procedure test_getStrippedB_D1_D0_RK2
298 : use pm_kind, only: RKC => RK2
299 : #include "test_pm_arrayStrip@routines.inc.F90"
300 : end procedure
301 : #endif
302 :
303 : #if RK1_ENABLED
304 1 : module procedure test_getStrippedB_D1_D0_RK1
305 : use pm_kind, only: RKC => RK1
306 : #include "test_pm_arrayStrip@routines.inc.F90"
307 : end procedure
308 : #endif
309 :
310 : #undef RK_ENABLED
311 :
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 :
314 : #undef D1_D0_ENABLED
315 :
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 : #define D1_D1_ENABLED 1
321 :
322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 :
324 : #define SK_ENABLED 1
325 :
326 : #if SK5_ENABLED
327 : module procedure test_getStrippedB_D1_D1_SK5
328 : use pm_kind, only: SKC => SK5
329 : #include "test_pm_arrayStrip@routines.inc.F90"
330 : end procedure
331 : #endif
332 :
333 : #if SK4_ENABLED
334 : module procedure test_getStrippedB_D1_D1_SK4
335 : use pm_kind, only: SKC => SK4
336 : #include "test_pm_arrayStrip@routines.inc.F90"
337 : end procedure
338 : #endif
339 :
340 : #if SK3_ENABLED
341 : module procedure test_getStrippedB_D1_D1_SK3
342 : use pm_kind, only: SKC => SK3
343 : #include "test_pm_arrayStrip@routines.inc.F90"
344 : end procedure
345 : #endif
346 :
347 : #if SK2_ENABLED
348 : module procedure test_getStrippedB_D1_D1_SK2
349 : use pm_kind, only: SKC => SK2
350 : #include "test_pm_arrayStrip@routines.inc.F90"
351 : end procedure
352 : #endif
353 :
354 : #if SK1_ENABLED
355 1 : module procedure test_getStrippedB_D1_D1_SK1
356 : use pm_kind, only: SKC => SK1
357 : #include "test_pm_arrayStrip@routines.inc.F90"
358 : end procedure
359 : #endif
360 :
361 : #undef SK_ENABLED
362 :
363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
364 :
365 : #define IK_ENABLED 1
366 :
367 : #if IK5_ENABLED
368 1 : module procedure test_getStrippedB_D1_D1_IK5
369 : use pm_kind, only: IKC => IK5
370 : #include "test_pm_arrayStrip@routines.inc.F90"
371 : end procedure
372 : #endif
373 :
374 : #if IK4_ENABLED
375 1 : module procedure test_getStrippedB_D1_D1_IK4
376 : use pm_kind, only: IKC => IK4
377 : #include "test_pm_arrayStrip@routines.inc.F90"
378 : end procedure
379 : #endif
380 :
381 : #if IK3_ENABLED
382 1 : module procedure test_getStrippedB_D1_D1_IK3
383 : use pm_kind, only: IKC => IK3
384 : #include "test_pm_arrayStrip@routines.inc.F90"
385 : end procedure
386 : #endif
387 :
388 : #if IK2_ENABLED
389 1 : module procedure test_getStrippedB_D1_D1_IK2
390 : use pm_kind, only: IKC => IK2
391 : #include "test_pm_arrayStrip@routines.inc.F90"
392 : end procedure
393 : #endif
394 :
395 : #if IK1_ENABLED
396 1 : module procedure test_getStrippedB_D1_D1_IK1
397 : use pm_kind, only: IKC => IK1
398 : #include "test_pm_arrayStrip@routines.inc.F90"
399 : end procedure
400 : #endif
401 :
402 : #undef IK_ENABLED
403 :
404 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
405 :
406 : #define LK_ENABLED 1
407 :
408 : #if LK5_ENABLED
409 1 : module procedure test_getStrippedB_D1_D1_LK5
410 : use pm_kind, only: LKC => LK5
411 : #include "test_pm_arrayStrip@routines.inc.F90"
412 : end procedure
413 : #endif
414 :
415 : #if LK4_ENABLED
416 1 : module procedure test_getStrippedB_D1_D1_LK4
417 : use pm_kind, only: LKC => LK4
418 : #include "test_pm_arrayStrip@routines.inc.F90"
419 : end procedure
420 : #endif
421 :
422 : #if LK3_ENABLED
423 1 : module procedure test_getStrippedB_D1_D1_LK3
424 : use pm_kind, only: LKC => LK3
425 : #include "test_pm_arrayStrip@routines.inc.F90"
426 : end procedure
427 : #endif
428 :
429 : #if LK2_ENABLED
430 1 : module procedure test_getStrippedB_D1_D1_LK2
431 : use pm_kind, only: LKC => LK2
432 : #include "test_pm_arrayStrip@routines.inc.F90"
433 : end procedure
434 : #endif
435 :
436 : #if LK1_ENABLED
437 1 : module procedure test_getStrippedB_D1_D1_LK1
438 : use pm_kind, only: LKC => LK1
439 : #include "test_pm_arrayStrip@routines.inc.F90"
440 : end procedure
441 : #endif
442 :
443 : #undef LK_ENABLED
444 :
445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446 :
447 : #define CK_ENABLED 1
448 :
449 : #if CK5_ENABLED
450 : module procedure test_getStrippedB_D1_D1_CK5
451 : use pm_kind, only: CKC => CK5
452 : #include "test_pm_arrayStrip@routines.inc.F90"
453 : end procedure
454 : #endif
455 :
456 : #if CK4_ENABLED
457 1 : module procedure test_getStrippedB_D1_D1_CK4
458 : use pm_kind, only: CKC => CK4
459 : #include "test_pm_arrayStrip@routines.inc.F90"
460 : end procedure
461 : #endif
462 :
463 : #if CK3_ENABLED
464 1 : module procedure test_getStrippedB_D1_D1_CK3
465 : use pm_kind, only: CKC => CK3
466 : #include "test_pm_arrayStrip@routines.inc.F90"
467 : end procedure
468 : #endif
469 :
470 : #if CK2_ENABLED
471 1 : module procedure test_getStrippedB_D1_D1_CK2
472 : use pm_kind, only: CKC => CK2
473 : #include "test_pm_arrayStrip@routines.inc.F90"
474 : end procedure
475 : #endif
476 :
477 : #if CK1_ENABLED
478 1 : module procedure test_getStrippedB_D1_D1_CK1
479 : use pm_kind, only: CKC => CK1
480 : #include "test_pm_arrayStrip@routines.inc.F90"
481 : end procedure
482 : #endif
483 :
484 : #undef CK_ENABLED
485 :
486 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
487 :
488 : #define RK_ENABLED 1
489 :
490 : #if RK5_ENABLED
491 : module procedure test_getStrippedB_D1_D1_RK5
492 : use pm_kind, only: RKC => RK5
493 : #include "test_pm_arrayStrip@routines.inc.F90"
494 : end procedure
495 : #endif
496 :
497 : #if RK4_ENABLED
498 1 : module procedure test_getStrippedB_D1_D1_RK4
499 : use pm_kind, only: RKC => RK4
500 : #include "test_pm_arrayStrip@routines.inc.F90"
501 : end procedure
502 : #endif
503 :
504 : #if RK3_ENABLED
505 1 : module procedure test_getStrippedB_D1_D1_RK3
506 : use pm_kind, only: RKC => RK3
507 : #include "test_pm_arrayStrip@routines.inc.F90"
508 : end procedure
509 : #endif
510 :
511 : #if RK2_ENABLED
512 1 : module procedure test_getStrippedB_D1_D1_RK2
513 : use pm_kind, only: RKC => RK2
514 : #include "test_pm_arrayStrip@routines.inc.F90"
515 : end procedure
516 : #endif
517 :
518 : #if RK1_ENABLED
519 1 : module procedure test_getStrippedB_D1_D1_RK1
520 : use pm_kind, only: RKC => RK1
521 : #include "test_pm_arrayStrip@routines.inc.F90"
522 : end procedure
523 : #endif
524 :
525 : #undef RK_ENABLED
526 :
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 :
529 : #undef D1_D1_ENABLED
530 :
531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534 :
535 : #undef SB_ENABLED
536 :
537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
540 :
541 : #undef getStripped_ENABLED
542 :
543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544 :
545 : #define getStripped_ENABLED 1
546 :
547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
550 :
551 : #define LR_ENABLED 1
552 :
553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
556 :
557 : #define D0_D0_ENABLED 1
558 :
559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560 :
561 : #define SK_ENABLED 1
562 :
563 : #if SK5_ENABLED
564 : module procedure test_getStrippedL_D0_D0_SK5
565 : use pm_kind, only: SKC => SK5
566 : #include "test_pm_arrayStrip@routines.inc.F90"
567 : end procedure
568 : #endif
569 :
570 : #if SK4_ENABLED
571 : module procedure test_getStrippedL_D0_D0_SK4
572 : use pm_kind, only: SKC => SK4
573 : #include "test_pm_arrayStrip@routines.inc.F90"
574 : end procedure
575 : #endif
576 :
577 : #if SK3_ENABLED
578 : module procedure test_getStrippedL_D0_D0_SK3
579 : use pm_kind, only: SKC => SK3
580 : #include "test_pm_arrayStrip@routines.inc.F90"
581 : end procedure
582 : #endif
583 :
584 : #if SK2_ENABLED
585 : module procedure test_getStrippedL_D0_D0_SK2
586 : use pm_kind, only: SKC => SK2
587 : #include "test_pm_arrayStrip@routines.inc.F90"
588 : end procedure
589 : #endif
590 :
591 : #if SK1_ENABLED
592 1 : module procedure test_getStrippedL_D0_D0_SK1
593 : use pm_kind, only: SKC => SK1
594 : #include "test_pm_arrayStrip@routines.inc.F90"
595 : end procedure
596 : #endif
597 :
598 : #undef D0_D0_ENABLED
599 :
600 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601 :
602 : #undef D0_D0_ENABLED
603 :
604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
607 :
608 : #define D1_D0_ENABLED 1
609 :
610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611 :
612 : #define SK_ENABLED 1
613 :
614 : #if SK5_ENABLED
615 : module procedure test_getStrippedL_D1_D0_SK5
616 : use pm_kind, only: SKC => SK5
617 : #include "test_pm_arrayStrip@routines.inc.F90"
618 : end procedure
619 : #endif
620 :
621 : #if SK4_ENABLED
622 : module procedure test_getStrippedL_D1_D0_SK4
623 : use pm_kind, only: SKC => SK4
624 : #include "test_pm_arrayStrip@routines.inc.F90"
625 : end procedure
626 : #endif
627 :
628 : #if SK3_ENABLED
629 : module procedure test_getStrippedL_D1_D0_SK3
630 : use pm_kind, only: SKC => SK3
631 : #include "test_pm_arrayStrip@routines.inc.F90"
632 : end procedure
633 : #endif
634 :
635 : #if SK2_ENABLED
636 : module procedure test_getStrippedL_D1_D0_SK2
637 : use pm_kind, only: SKC => SK2
638 : #include "test_pm_arrayStrip@routines.inc.F90"
639 : end procedure
640 : #endif
641 :
642 : #if SK1_ENABLED
643 1 : module procedure test_getStrippedL_D1_D0_SK1
644 : use pm_kind, only: SKC => SK1
645 : #include "test_pm_arrayStrip@routines.inc.F90"
646 : end procedure
647 : #endif
648 :
649 : #undef SK_ENABLED
650 :
651 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
652 :
653 : #define IK_ENABLED 1
654 :
655 : #if IK5_ENABLED
656 1 : module procedure test_getStrippedL_D1_D0_IK5
657 : use pm_kind, only: IKC => IK5
658 : #include "test_pm_arrayStrip@routines.inc.F90"
659 : end procedure
660 : #endif
661 :
662 : #if IK4_ENABLED
663 1 : module procedure test_getStrippedL_D1_D0_IK4
664 : use pm_kind, only: IKC => IK4
665 : #include "test_pm_arrayStrip@routines.inc.F90"
666 : end procedure
667 : #endif
668 :
669 : #if IK3_ENABLED
670 1 : module procedure test_getStrippedL_D1_D0_IK3
671 : use pm_kind, only: IKC => IK3
672 : #include "test_pm_arrayStrip@routines.inc.F90"
673 : end procedure
674 : #endif
675 :
676 : #if IK2_ENABLED
677 1 : module procedure test_getStrippedL_D1_D0_IK2
678 : use pm_kind, only: IKC => IK2
679 : #include "test_pm_arrayStrip@routines.inc.F90"
680 : end procedure
681 : #endif
682 :
683 : #if IK1_ENABLED
684 1 : module procedure test_getStrippedL_D1_D0_IK1
685 : use pm_kind, only: IKC => IK1
686 : #include "test_pm_arrayStrip@routines.inc.F90"
687 : end procedure
688 : #endif
689 :
690 : #undef IK_ENABLED
691 :
692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
693 :
694 : #define LK_ENABLED 1
695 :
696 : #if LK5_ENABLED
697 1 : module procedure test_getStrippedL_D1_D0_LK5
698 : use pm_kind, only: LKC => LK5
699 : #include "test_pm_arrayStrip@routines.inc.F90"
700 : end procedure
701 : #endif
702 :
703 : #if LK4_ENABLED
704 1 : module procedure test_getStrippedL_D1_D0_LK4
705 : use pm_kind, only: LKC => LK4
706 : #include "test_pm_arrayStrip@routines.inc.F90"
707 : end procedure
708 : #endif
709 :
710 : #if LK3_ENABLED
711 1 : module procedure test_getStrippedL_D1_D0_LK3
712 : use pm_kind, only: LKC => LK3
713 : #include "test_pm_arrayStrip@routines.inc.F90"
714 : end procedure
715 : #endif
716 :
717 : #if LK2_ENABLED
718 1 : module procedure test_getStrippedL_D1_D0_LK2
719 : use pm_kind, only: LKC => LK2
720 : #include "test_pm_arrayStrip@routines.inc.F90"
721 : end procedure
722 : #endif
723 :
724 : #if LK1_ENABLED
725 1 : module procedure test_getStrippedL_D1_D0_LK1
726 : use pm_kind, only: LKC => LK1
727 : #include "test_pm_arrayStrip@routines.inc.F90"
728 : end procedure
729 : #endif
730 :
731 : #undef LK_ENABLED
732 :
733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
734 :
735 : #define CK_ENABLED 1
736 :
737 : #if CK5_ENABLED
738 : module procedure test_getStrippedL_D1_D0_CK5
739 : use pm_kind, only: CKC => CK5
740 : #include "test_pm_arrayStrip@routines.inc.F90"
741 : end procedure
742 : #endif
743 :
744 : #if CK4_ENABLED
745 1 : module procedure test_getStrippedL_D1_D0_CK4
746 : use pm_kind, only: CKC => CK4
747 : #include "test_pm_arrayStrip@routines.inc.F90"
748 : end procedure
749 : #endif
750 :
751 : #if CK3_ENABLED
752 1 : module procedure test_getStrippedL_D1_D0_CK3
753 : use pm_kind, only: CKC => CK3
754 : #include "test_pm_arrayStrip@routines.inc.F90"
755 : end procedure
756 : #endif
757 :
758 : #if CK2_ENABLED
759 1 : module procedure test_getStrippedL_D1_D0_CK2
760 : use pm_kind, only: CKC => CK2
761 : #include "test_pm_arrayStrip@routines.inc.F90"
762 : end procedure
763 : #endif
764 :
765 : #if CK1_ENABLED
766 1 : module procedure test_getStrippedL_D1_D0_CK1
767 : use pm_kind, only: CKC => CK1
768 : #include "test_pm_arrayStrip@routines.inc.F90"
769 : end procedure
770 : #endif
771 :
772 : #undef CK_ENABLED
773 :
774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
775 :
776 : #define RK_ENABLED 1
777 :
778 : #if RK5_ENABLED
779 : module procedure test_getStrippedL_D1_D0_RK5
780 : use pm_kind, only: RKC => RK5
781 : #include "test_pm_arrayStrip@routines.inc.F90"
782 : end procedure
783 : #endif
784 :
785 : #if RK4_ENABLED
786 1 : module procedure test_getStrippedL_D1_D0_RK4
787 : use pm_kind, only: RKC => RK4
788 : #include "test_pm_arrayStrip@routines.inc.F90"
789 : end procedure
790 : #endif
791 :
792 : #if RK3_ENABLED
793 1 : module procedure test_getStrippedL_D1_D0_RK3
794 : use pm_kind, only: RKC => RK3
795 : #include "test_pm_arrayStrip@routines.inc.F90"
796 : end procedure
797 : #endif
798 :
799 : #if RK2_ENABLED
800 1 : module procedure test_getStrippedL_D1_D0_RK2
801 : use pm_kind, only: RKC => RK2
802 : #include "test_pm_arrayStrip@routines.inc.F90"
803 : end procedure
804 : #endif
805 :
806 : #if RK1_ENABLED
807 1 : module procedure test_getStrippedL_D1_D0_RK1
808 : use pm_kind, only: RKC => RK1
809 : #include "test_pm_arrayStrip@routines.inc.F90"
810 : end procedure
811 : #endif
812 :
813 : #undef RK_ENABLED
814 :
815 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
816 :
817 : #undef D1_D0_ENABLED
818 :
819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
820 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
822 :
823 : #define D1_D1_ENABLED 1
824 :
825 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
826 :
827 : #define SK_ENABLED 1
828 :
829 : #if SK5_ENABLED
830 : module procedure test_getStrippedL_D1_D1_SK5
831 : use pm_kind, only: SKC => SK5
832 : #include "test_pm_arrayStrip@routines.inc.F90"
833 : end procedure
834 : #endif
835 :
836 : #if SK4_ENABLED
837 : module procedure test_getStrippedL_D1_D1_SK4
838 : use pm_kind, only: SKC => SK4
839 : #include "test_pm_arrayStrip@routines.inc.F90"
840 : end procedure
841 : #endif
842 :
843 : #if SK3_ENABLED
844 : module procedure test_getStrippedL_D1_D1_SK3
845 : use pm_kind, only: SKC => SK3
846 : #include "test_pm_arrayStrip@routines.inc.F90"
847 : end procedure
848 : #endif
849 :
850 : #if SK2_ENABLED
851 : module procedure test_getStrippedL_D1_D1_SK2
852 : use pm_kind, only: SKC => SK2
853 : #include "test_pm_arrayStrip@routines.inc.F90"
854 : end procedure
855 : #endif
856 :
857 : #if SK1_ENABLED
858 1 : module procedure test_getStrippedL_D1_D1_SK1
859 : use pm_kind, only: SKC => SK1
860 : #include "test_pm_arrayStrip@routines.inc.F90"
861 : end procedure
862 : #endif
863 :
864 : #undef SK_ENABLED
865 :
866 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
867 :
868 : #define IK_ENABLED 1
869 :
870 : #if IK5_ENABLED
871 1 : module procedure test_getStrippedL_D1_D1_IK5
872 : use pm_kind, only: IKC => IK5
873 : #include "test_pm_arrayStrip@routines.inc.F90"
874 : end procedure
875 : #endif
876 :
877 : #if IK4_ENABLED
878 1 : module procedure test_getStrippedL_D1_D1_IK4
879 : use pm_kind, only: IKC => IK4
880 : #include "test_pm_arrayStrip@routines.inc.F90"
881 : end procedure
882 : #endif
883 :
884 : #if IK3_ENABLED
885 1 : module procedure test_getStrippedL_D1_D1_IK3
886 : use pm_kind, only: IKC => IK3
887 : #include "test_pm_arrayStrip@routines.inc.F90"
888 : end procedure
889 : #endif
890 :
891 : #if IK2_ENABLED
892 1 : module procedure test_getStrippedL_D1_D1_IK2
893 : use pm_kind, only: IKC => IK2
894 : #include "test_pm_arrayStrip@routines.inc.F90"
895 : end procedure
896 : #endif
897 :
898 : #if IK1_ENABLED
899 1 : module procedure test_getStrippedL_D1_D1_IK1
900 : use pm_kind, only: IKC => IK1
901 : #include "test_pm_arrayStrip@routines.inc.F90"
902 : end procedure
903 : #endif
904 :
905 : #undef IK_ENABLED
906 :
907 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
908 :
909 : #define LK_ENABLED 1
910 :
911 : #if LK5_ENABLED
912 1 : module procedure test_getStrippedL_D1_D1_LK5
913 : use pm_kind, only: LKC => LK5
914 : #include "test_pm_arrayStrip@routines.inc.F90"
915 : end procedure
916 : #endif
917 :
918 : #if LK4_ENABLED
919 1 : module procedure test_getStrippedL_D1_D1_LK4
920 : use pm_kind, only: LKC => LK4
921 : #include "test_pm_arrayStrip@routines.inc.F90"
922 : end procedure
923 : #endif
924 :
925 : #if LK3_ENABLED
926 1 : module procedure test_getStrippedL_D1_D1_LK3
927 : use pm_kind, only: LKC => LK3
928 : #include "test_pm_arrayStrip@routines.inc.F90"
929 : end procedure
930 : #endif
931 :
932 : #if LK2_ENABLED
933 1 : module procedure test_getStrippedL_D1_D1_LK2
934 : use pm_kind, only: LKC => LK2
935 : #include "test_pm_arrayStrip@routines.inc.F90"
936 : end procedure
937 : #endif
938 :
939 : #if LK1_ENABLED
940 1 : module procedure test_getStrippedL_D1_D1_LK1
941 : use pm_kind, only: LKC => LK1
942 : #include "test_pm_arrayStrip@routines.inc.F90"
943 : end procedure
944 : #endif
945 :
946 : #undef LK_ENABLED
947 :
948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
949 :
950 : #define CK_ENABLED 1
951 :
952 : #if CK5_ENABLED
953 : module procedure test_getStrippedL_D1_D1_CK5
954 : use pm_kind, only: CKC => CK5
955 : #include "test_pm_arrayStrip@routines.inc.F90"
956 : end procedure
957 : #endif
958 :
959 : #if CK4_ENABLED
960 1 : module procedure test_getStrippedL_D1_D1_CK4
961 : use pm_kind, only: CKC => CK4
962 : #include "test_pm_arrayStrip@routines.inc.F90"
963 : end procedure
964 : #endif
965 :
966 : #if CK3_ENABLED
967 1 : module procedure test_getStrippedL_D1_D1_CK3
968 : use pm_kind, only: CKC => CK3
969 : #include "test_pm_arrayStrip@routines.inc.F90"
970 : end procedure
971 : #endif
972 :
973 : #if CK2_ENABLED
974 1 : module procedure test_getStrippedL_D1_D1_CK2
975 : use pm_kind, only: CKC => CK2
976 : #include "test_pm_arrayStrip@routines.inc.F90"
977 : end procedure
978 : #endif
979 :
980 : #if CK1_ENABLED
981 1 : module procedure test_getStrippedL_D1_D1_CK1
982 : use pm_kind, only: CKC => CK1
983 : #include "test_pm_arrayStrip@routines.inc.F90"
984 : end procedure
985 : #endif
986 :
987 : #undef CK_ENABLED
988 :
989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
990 :
991 : #define RK_ENABLED 1
992 :
993 : #if RK5_ENABLED
994 : module procedure test_getStrippedL_D1_D1_RK5
995 : use pm_kind, only: RKC => RK5
996 : #include "test_pm_arrayStrip@routines.inc.F90"
997 : end procedure
998 : #endif
999 :
1000 : #if RK4_ENABLED
1001 1 : module procedure test_getStrippedL_D1_D1_RK4
1002 : use pm_kind, only: RKC => RK4
1003 : #include "test_pm_arrayStrip@routines.inc.F90"
1004 : end procedure
1005 : #endif
1006 :
1007 : #if RK3_ENABLED
1008 1 : module procedure test_getStrippedL_D1_D1_RK3
1009 : use pm_kind, only: RKC => RK3
1010 : #include "test_pm_arrayStrip@routines.inc.F90"
1011 : end procedure
1012 : #endif
1013 :
1014 : #if RK2_ENABLED
1015 1 : module procedure test_getStrippedL_D1_D1_RK2
1016 : use pm_kind, only: RKC => RK2
1017 : #include "test_pm_arrayStrip@routines.inc.F90"
1018 : end procedure
1019 : #endif
1020 :
1021 : #if RK1_ENABLED
1022 1 : module procedure test_getStrippedL_D1_D1_RK1
1023 : use pm_kind, only: RKC => RK1
1024 : #include "test_pm_arrayStrip@routines.inc.F90"
1025 : end procedure
1026 : #endif
1027 :
1028 : #undef RK_ENABLED
1029 :
1030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1031 :
1032 : #undef D1_D1_ENABLED
1033 :
1034 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1035 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037 :
1038 : #undef LR_ENABLED
1039 :
1040 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1041 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1043 :
1044 : #undef getStripped_ENABLED
1045 :
1046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1047 :
1048 : #define getStripped_ENABLED 1
1049 :
1050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1053 :
1054 : #define SR_ENABLED 1
1055 :
1056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1059 :
1060 : #define D0_D0_ENABLED 1
1061 :
1062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1063 :
1064 : #define SK_ENABLED 1
1065 :
1066 : #if SK5_ENABLED
1067 : module procedure test_getStrippedR_D0_D0_SK5
1068 : use pm_kind, only: SKC => SK5
1069 : #include "test_pm_arrayStrip@routines.inc.F90"
1070 : end procedure
1071 : #endif
1072 :
1073 : #if SK4_ENABLED
1074 : module procedure test_getStrippedR_D0_D0_SK4
1075 : use pm_kind, only: SKC => SK4
1076 : #include "test_pm_arrayStrip@routines.inc.F90"
1077 : end procedure
1078 : #endif
1079 :
1080 : #if SK3_ENABLED
1081 : module procedure test_getStrippedR_D0_D0_SK3
1082 : use pm_kind, only: SKC => SK3
1083 : #include "test_pm_arrayStrip@routines.inc.F90"
1084 : end procedure
1085 : #endif
1086 :
1087 : #if SK2_ENABLED
1088 : module procedure test_getStrippedR_D0_D0_SK2
1089 : use pm_kind, only: SKC => SK2
1090 : #include "test_pm_arrayStrip@routines.inc.F90"
1091 : end procedure
1092 : #endif
1093 :
1094 : #if SK1_ENABLED
1095 1 : module procedure test_getStrippedR_D0_D0_SK1
1096 : use pm_kind, only: SKC => SK1
1097 : #include "test_pm_arrayStrip@routines.inc.F90"
1098 : end procedure
1099 : #endif
1100 :
1101 : #undef D0_D0_ENABLED
1102 :
1103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1104 :
1105 : #undef D0_D0_ENABLED
1106 :
1107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1110 :
1111 : #define D1_D0_ENABLED 1
1112 :
1113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1114 :
1115 : #define SK_ENABLED 1
1116 :
1117 : #if SK5_ENABLED
1118 : module procedure test_getStrippedR_D1_D0_SK5
1119 : use pm_kind, only: SKC => SK5
1120 : #include "test_pm_arrayStrip@routines.inc.F90"
1121 : end procedure
1122 : #endif
1123 :
1124 : #if SK4_ENABLED
1125 : module procedure test_getStrippedR_D1_D0_SK4
1126 : use pm_kind, only: SKC => SK4
1127 : #include "test_pm_arrayStrip@routines.inc.F90"
1128 : end procedure
1129 : #endif
1130 :
1131 : #if SK3_ENABLED
1132 : module procedure test_getStrippedR_D1_D0_SK3
1133 : use pm_kind, only: SKC => SK3
1134 : #include "test_pm_arrayStrip@routines.inc.F90"
1135 : end procedure
1136 : #endif
1137 :
1138 : #if SK2_ENABLED
1139 : module procedure test_getStrippedR_D1_D0_SK2
1140 : use pm_kind, only: SKC => SK2
1141 : #include "test_pm_arrayStrip@routines.inc.F90"
1142 : end procedure
1143 : #endif
1144 :
1145 : #if SK1_ENABLED
1146 1 : module procedure test_getStrippedR_D1_D0_SK1
1147 : use pm_kind, only: SKC => SK1
1148 : #include "test_pm_arrayStrip@routines.inc.F90"
1149 : end procedure
1150 : #endif
1151 :
1152 : #undef SK_ENABLED
1153 :
1154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1155 :
1156 : #define IK_ENABLED 1
1157 :
1158 : #if IK5_ENABLED
1159 1 : module procedure test_getStrippedR_D1_D0_IK5
1160 : use pm_kind, only: IKC => IK5
1161 : #include "test_pm_arrayStrip@routines.inc.F90"
1162 : end procedure
1163 : #endif
1164 :
1165 : #if IK4_ENABLED
1166 1 : module procedure test_getStrippedR_D1_D0_IK4
1167 : use pm_kind, only: IKC => IK4
1168 : #include "test_pm_arrayStrip@routines.inc.F90"
1169 : end procedure
1170 : #endif
1171 :
1172 : #if IK3_ENABLED
1173 1 : module procedure test_getStrippedR_D1_D0_IK3
1174 : use pm_kind, only: IKC => IK3
1175 : #include "test_pm_arrayStrip@routines.inc.F90"
1176 : end procedure
1177 : #endif
1178 :
1179 : #if IK2_ENABLED
1180 1 : module procedure test_getStrippedR_D1_D0_IK2
1181 : use pm_kind, only: IKC => IK2
1182 : #include "test_pm_arrayStrip@routines.inc.F90"
1183 : end procedure
1184 : #endif
1185 :
1186 : #if IK1_ENABLED
1187 1 : module procedure test_getStrippedR_D1_D0_IK1
1188 : use pm_kind, only: IKC => IK1
1189 : #include "test_pm_arrayStrip@routines.inc.F90"
1190 : end procedure
1191 : #endif
1192 :
1193 : #undef IK_ENABLED
1194 :
1195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1196 :
1197 : #define LK_ENABLED 1
1198 :
1199 : #if LK5_ENABLED
1200 1 : module procedure test_getStrippedR_D1_D0_LK5
1201 : use pm_kind, only: LKC => LK5
1202 : #include "test_pm_arrayStrip@routines.inc.F90"
1203 : end procedure
1204 : #endif
1205 :
1206 : #if LK4_ENABLED
1207 1 : module procedure test_getStrippedR_D1_D0_LK4
1208 : use pm_kind, only: LKC => LK4
1209 : #include "test_pm_arrayStrip@routines.inc.F90"
1210 : end procedure
1211 : #endif
1212 :
1213 : #if LK3_ENABLED
1214 1 : module procedure test_getStrippedR_D1_D0_LK3
1215 : use pm_kind, only: LKC => LK3
1216 : #include "test_pm_arrayStrip@routines.inc.F90"
1217 : end procedure
1218 : #endif
1219 :
1220 : #if LK2_ENABLED
1221 1 : module procedure test_getStrippedR_D1_D0_LK2
1222 : use pm_kind, only: LKC => LK2
1223 : #include "test_pm_arrayStrip@routines.inc.F90"
1224 : end procedure
1225 : #endif
1226 :
1227 : #if LK1_ENABLED
1228 1 : module procedure test_getStrippedR_D1_D0_LK1
1229 : use pm_kind, only: LKC => LK1
1230 : #include "test_pm_arrayStrip@routines.inc.F90"
1231 : end procedure
1232 : #endif
1233 :
1234 : #undef LK_ENABLED
1235 :
1236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1237 :
1238 : #define CK_ENABLED 1
1239 :
1240 : #if CK5_ENABLED
1241 : module procedure test_getStrippedR_D1_D0_CK5
1242 : use pm_kind, only: CKC => CK5
1243 : #include "test_pm_arrayStrip@routines.inc.F90"
1244 : end procedure
1245 : #endif
1246 :
1247 : #if CK4_ENABLED
1248 1 : module procedure test_getStrippedR_D1_D0_CK4
1249 : use pm_kind, only: CKC => CK4
1250 : #include "test_pm_arrayStrip@routines.inc.F90"
1251 : end procedure
1252 : #endif
1253 :
1254 : #if CK3_ENABLED
1255 1 : module procedure test_getStrippedR_D1_D0_CK3
1256 : use pm_kind, only: CKC => CK3
1257 : #include "test_pm_arrayStrip@routines.inc.F90"
1258 : end procedure
1259 : #endif
1260 :
1261 : #if CK2_ENABLED
1262 1 : module procedure test_getStrippedR_D1_D0_CK2
1263 : use pm_kind, only: CKC => CK2
1264 : #include "test_pm_arrayStrip@routines.inc.F90"
1265 : end procedure
1266 : #endif
1267 :
1268 : #if CK1_ENABLED
1269 1 : module procedure test_getStrippedR_D1_D0_CK1
1270 : use pm_kind, only: CKC => CK1
1271 : #include "test_pm_arrayStrip@routines.inc.F90"
1272 : end procedure
1273 : #endif
1274 :
1275 : #undef CK_ENABLED
1276 :
1277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1278 :
1279 : #define RK_ENABLED 1
1280 :
1281 : #if RK5_ENABLED
1282 : module procedure test_getStrippedR_D1_D0_RK5
1283 : use pm_kind, only: RKC => RK5
1284 : #include "test_pm_arrayStrip@routines.inc.F90"
1285 : end procedure
1286 : #endif
1287 :
1288 : #if RK4_ENABLED
1289 1 : module procedure test_getStrippedR_D1_D0_RK4
1290 : use pm_kind, only: RKC => RK4
1291 : #include "test_pm_arrayStrip@routines.inc.F90"
1292 : end procedure
1293 : #endif
1294 :
1295 : #if RK3_ENABLED
1296 1 : module procedure test_getStrippedR_D1_D0_RK3
1297 : use pm_kind, only: RKC => RK3
1298 : #include "test_pm_arrayStrip@routines.inc.F90"
1299 : end procedure
1300 : #endif
1301 :
1302 : #if RK2_ENABLED
1303 1 : module procedure test_getStrippedR_D1_D0_RK2
1304 : use pm_kind, only: RKC => RK2
1305 : #include "test_pm_arrayStrip@routines.inc.F90"
1306 : end procedure
1307 : #endif
1308 :
1309 : #if RK1_ENABLED
1310 1 : module procedure test_getStrippedR_D1_D0_RK1
1311 : use pm_kind, only: RKC => RK1
1312 : #include "test_pm_arrayStrip@routines.inc.F90"
1313 : end procedure
1314 : #endif
1315 :
1316 : #undef RK_ENABLED
1317 :
1318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1319 :
1320 : #undef D1_D0_ENABLED
1321 :
1322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1324 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1325 :
1326 : #define D1_D1_ENABLED 1
1327 :
1328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1329 :
1330 : #define SK_ENABLED 1
1331 :
1332 : #if SK5_ENABLED
1333 : module procedure test_getStrippedR_D1_D1_SK5
1334 : use pm_kind, only: SKC => SK5
1335 : #include "test_pm_arrayStrip@routines.inc.F90"
1336 : end procedure
1337 : #endif
1338 :
1339 : #if SK4_ENABLED
1340 : module procedure test_getStrippedR_D1_D1_SK4
1341 : use pm_kind, only: SKC => SK4
1342 : #include "test_pm_arrayStrip@routines.inc.F90"
1343 : end procedure
1344 : #endif
1345 :
1346 : #if SK3_ENABLED
1347 : module procedure test_getStrippedR_D1_D1_SK3
1348 : use pm_kind, only: SKC => SK3
1349 : #include "test_pm_arrayStrip@routines.inc.F90"
1350 : end procedure
1351 : #endif
1352 :
1353 : #if SK2_ENABLED
1354 : module procedure test_getStrippedR_D1_D1_SK2
1355 : use pm_kind, only: SKC => SK2
1356 : #include "test_pm_arrayStrip@routines.inc.F90"
1357 : end procedure
1358 : #endif
1359 :
1360 : #if SK1_ENABLED
1361 1 : module procedure test_getStrippedR_D1_D1_SK1
1362 : use pm_kind, only: SKC => SK1
1363 : #include "test_pm_arrayStrip@routines.inc.F90"
1364 : end procedure
1365 : #endif
1366 :
1367 : #undef SK_ENABLED
1368 :
1369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1370 :
1371 : #define IK_ENABLED 1
1372 :
1373 : #if IK5_ENABLED
1374 1 : module procedure test_getStrippedR_D1_D1_IK5
1375 : use pm_kind, only: IKC => IK5
1376 : #include "test_pm_arrayStrip@routines.inc.F90"
1377 : end procedure
1378 : #endif
1379 :
1380 : #if IK4_ENABLED
1381 1 : module procedure test_getStrippedR_D1_D1_IK4
1382 : use pm_kind, only: IKC => IK4
1383 : #include "test_pm_arrayStrip@routines.inc.F90"
1384 : end procedure
1385 : #endif
1386 :
1387 : #if IK3_ENABLED
1388 1 : module procedure test_getStrippedR_D1_D1_IK3
1389 : use pm_kind, only: IKC => IK3
1390 : #include "test_pm_arrayStrip@routines.inc.F90"
1391 : end procedure
1392 : #endif
1393 :
1394 : #if IK2_ENABLED
1395 1 : module procedure test_getStrippedR_D1_D1_IK2
1396 : use pm_kind, only: IKC => IK2
1397 : #include "test_pm_arrayStrip@routines.inc.F90"
1398 : end procedure
1399 : #endif
1400 :
1401 : #if IK1_ENABLED
1402 1 : module procedure test_getStrippedR_D1_D1_IK1
1403 : use pm_kind, only: IKC => IK1
1404 : #include "test_pm_arrayStrip@routines.inc.F90"
1405 : end procedure
1406 : #endif
1407 :
1408 : #undef IK_ENABLED
1409 :
1410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1411 :
1412 : #define LK_ENABLED 1
1413 :
1414 : #if LK5_ENABLED
1415 1 : module procedure test_getStrippedR_D1_D1_LK5
1416 : use pm_kind, only: LKC => LK5
1417 : #include "test_pm_arrayStrip@routines.inc.F90"
1418 : end procedure
1419 : #endif
1420 :
1421 : #if LK4_ENABLED
1422 1 : module procedure test_getStrippedR_D1_D1_LK4
1423 : use pm_kind, only: LKC => LK4
1424 : #include "test_pm_arrayStrip@routines.inc.F90"
1425 : end procedure
1426 : #endif
1427 :
1428 : #if LK3_ENABLED
1429 1 : module procedure test_getStrippedR_D1_D1_LK3
1430 : use pm_kind, only: LKC => LK3
1431 : #include "test_pm_arrayStrip@routines.inc.F90"
1432 : end procedure
1433 : #endif
1434 :
1435 : #if LK2_ENABLED
1436 1 : module procedure test_getStrippedR_D1_D1_LK2
1437 : use pm_kind, only: LKC => LK2
1438 : #include "test_pm_arrayStrip@routines.inc.F90"
1439 : end procedure
1440 : #endif
1441 :
1442 : #if LK1_ENABLED
1443 1 : module procedure test_getStrippedR_D1_D1_LK1
1444 : use pm_kind, only: LKC => LK1
1445 : #include "test_pm_arrayStrip@routines.inc.F90"
1446 : end procedure
1447 : #endif
1448 :
1449 : #undef LK_ENABLED
1450 :
1451 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1452 :
1453 : #define CK_ENABLED 1
1454 :
1455 : #if CK5_ENABLED
1456 : module procedure test_getStrippedR_D1_D1_CK5
1457 : use pm_kind, only: CKC => CK5
1458 : #include "test_pm_arrayStrip@routines.inc.F90"
1459 : end procedure
1460 : #endif
1461 :
1462 : #if CK4_ENABLED
1463 1 : module procedure test_getStrippedR_D1_D1_CK4
1464 : use pm_kind, only: CKC => CK4
1465 : #include "test_pm_arrayStrip@routines.inc.F90"
1466 : end procedure
1467 : #endif
1468 :
1469 : #if CK3_ENABLED
1470 1 : module procedure test_getStrippedR_D1_D1_CK3
1471 : use pm_kind, only: CKC => CK3
1472 : #include "test_pm_arrayStrip@routines.inc.F90"
1473 : end procedure
1474 : #endif
1475 :
1476 : #if CK2_ENABLED
1477 1 : module procedure test_getStrippedR_D1_D1_CK2
1478 : use pm_kind, only: CKC => CK2
1479 : #include "test_pm_arrayStrip@routines.inc.F90"
1480 : end procedure
1481 : #endif
1482 :
1483 : #if CK1_ENABLED
1484 1 : module procedure test_getStrippedR_D1_D1_CK1
1485 : use pm_kind, only: CKC => CK1
1486 : #include "test_pm_arrayStrip@routines.inc.F90"
1487 : end procedure
1488 : #endif
1489 :
1490 : #undef CK_ENABLED
1491 :
1492 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1493 :
1494 : #define RK_ENABLED 1
1495 :
1496 : #if RK5_ENABLED
1497 : module procedure test_getStrippedR_D1_D1_RK5
1498 : use pm_kind, only: RKC => RK5
1499 : #include "test_pm_arrayStrip@routines.inc.F90"
1500 : end procedure
1501 : #endif
1502 :
1503 : #if RK4_ENABLED
1504 1 : module procedure test_getStrippedR_D1_D1_RK4
1505 : use pm_kind, only: RKC => RK4
1506 : #include "test_pm_arrayStrip@routines.inc.F90"
1507 : end procedure
1508 : #endif
1509 :
1510 : #if RK3_ENABLED
1511 1 : module procedure test_getStrippedR_D1_D1_RK3
1512 : use pm_kind, only: RKC => RK3
1513 : #include "test_pm_arrayStrip@routines.inc.F90"
1514 : end procedure
1515 : #endif
1516 :
1517 : #if RK2_ENABLED
1518 1 : module procedure test_getStrippedR_D1_D1_RK2
1519 : use pm_kind, only: RKC => RK2
1520 : #include "test_pm_arrayStrip@routines.inc.F90"
1521 : end procedure
1522 : #endif
1523 :
1524 : #if RK1_ENABLED
1525 1 : module procedure test_getStrippedR_D1_D1_RK1
1526 : use pm_kind, only: RKC => RK1
1527 : #include "test_pm_arrayStrip@routines.inc.F90"
1528 : end procedure
1529 : #endif
1530 :
1531 : #undef RK_ENABLED
1532 :
1533 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1534 :
1535 : #undef D1_D1_ENABLED
1536 :
1537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1540 :
1541 : #undef SR_ENABLED
1542 :
1543 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1546 :
1547 : #undef getStripped_ENABLED
1548 :
1549 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1550 :
1551 : #define getSIL_ENABLED 1
1552 :
1553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1556 :
1557 : #define D0_D0_ENABLED 1
1558 :
1559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1560 :
1561 : #define SK_ENABLED 1
1562 :
1563 : #if SK5_ENABLED
1564 : module procedure test_getSIL_D0_D0_SK5_1
1565 : use pm_kind, only: SKC => SK5
1566 : #include "test_pm_arrayStrip@routines.inc.F90"
1567 : end procedure
1568 : #endif
1569 :
1570 : #if SK4_ENABLED
1571 : module procedure test_getSIL_D0_D0_SK4_1
1572 : use pm_kind, only: SKC => SK4
1573 : #include "test_pm_arrayStrip@routines.inc.F90"
1574 : end procedure
1575 : #endif
1576 :
1577 : #if SK3_ENABLED
1578 : module procedure test_getSIL_D0_D0_SK3_1
1579 : use pm_kind, only: SKC => SK3
1580 : #include "test_pm_arrayStrip@routines.inc.F90"
1581 : end procedure
1582 : #endif
1583 :
1584 : #if SK2_ENABLED
1585 : module procedure test_getSIL_D0_D0_SK2_1
1586 : use pm_kind, only: SKC => SK2
1587 : #include "test_pm_arrayStrip@routines.inc.F90"
1588 : end procedure
1589 : #endif
1590 :
1591 : #if SK1_ENABLED
1592 1 : module procedure test_getSIL_D0_D0_SK1_1
1593 : use pm_kind, only: SKC => SK1
1594 : #include "test_pm_arrayStrip@routines.inc.F90"
1595 : end procedure
1596 : #endif
1597 :
1598 : #undef SK_ENABLED
1599 :
1600 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1601 :
1602 : #undef D0_D0_ENABLED
1603 :
1604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1607 :
1608 : #define D1_D0_ENABLED 1
1609 :
1610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1611 :
1612 : #define SK_ENABLED 1
1613 :
1614 : #if SK5_ENABLED
1615 : module procedure test_getSIL_D1_D0_SK5_1
1616 : use pm_kind, only: SKC => SK5
1617 : #include "test_pm_arrayStrip@routines.inc.F90"
1618 : end procedure
1619 : #endif
1620 :
1621 : #if SK4_ENABLED
1622 : module procedure test_getSIL_D1_D0_SK4_1
1623 : use pm_kind, only: SKC => SK4
1624 : #include "test_pm_arrayStrip@routines.inc.F90"
1625 : end procedure
1626 : #endif
1627 :
1628 : #if SK3_ENABLED
1629 : module procedure test_getSIL_D1_D0_SK3_1
1630 : use pm_kind, only: SKC => SK3
1631 : #include "test_pm_arrayStrip@routines.inc.F90"
1632 : end procedure
1633 : #endif
1634 :
1635 : #if SK2_ENABLED
1636 : module procedure test_getSIL_D1_D0_SK2_1
1637 : use pm_kind, only: SKC => SK2
1638 : #include "test_pm_arrayStrip@routines.inc.F90"
1639 : end procedure
1640 : #endif
1641 :
1642 : #if SK1_ENABLED
1643 1 : module procedure test_getSIL_D1_D0_SK1_1
1644 : use pm_kind, only: SKC => SK1
1645 : #include "test_pm_arrayStrip@routines.inc.F90"
1646 : end procedure
1647 : #endif
1648 :
1649 : #undef SK_ENABLED
1650 :
1651 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1652 :
1653 : #define IK_ENABLED 1
1654 :
1655 : #if IK5_ENABLED
1656 1 : module procedure test_getSIL_D1_D0_IK5_1
1657 : use pm_kind, only: IKC => IK5
1658 : #include "test_pm_arrayStrip@routines.inc.F90"
1659 : end procedure
1660 : #endif
1661 :
1662 : #if IK4_ENABLED
1663 1 : module procedure test_getSIL_D1_D0_IK4_1
1664 : use pm_kind, only: IKC => IK4
1665 : #include "test_pm_arrayStrip@routines.inc.F90"
1666 : end procedure
1667 : #endif
1668 :
1669 : #if IK3_ENABLED
1670 1 : module procedure test_getSIL_D1_D0_IK3_1
1671 : use pm_kind, only: IKC => IK3
1672 : #include "test_pm_arrayStrip@routines.inc.F90"
1673 : end procedure
1674 : #endif
1675 :
1676 : #if IK2_ENABLED
1677 1 : module procedure test_getSIL_D1_D0_IK2_1
1678 : use pm_kind, only: IKC => IK2
1679 : #include "test_pm_arrayStrip@routines.inc.F90"
1680 : end procedure
1681 : #endif
1682 :
1683 : #if IK1_ENABLED
1684 1 : module procedure test_getSIL_D1_D0_IK1_1
1685 : use pm_kind, only: IKC => IK1
1686 : #include "test_pm_arrayStrip@routines.inc.F90"
1687 : end procedure
1688 : #endif
1689 :
1690 : #undef IK_ENABLED
1691 :
1692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1693 :
1694 : #define LK_ENABLED 1
1695 :
1696 : #if LK5_ENABLED
1697 1 : module procedure test_getSIL_D1_D0_LK5_1
1698 : use pm_kind, only: LKC => LK5
1699 : #include "test_pm_arrayStrip@routines.inc.F90"
1700 : end procedure
1701 : #endif
1702 :
1703 : #if LK4_ENABLED
1704 1 : module procedure test_getSIL_D1_D0_LK4_1
1705 : use pm_kind, only: LKC => LK4
1706 : #include "test_pm_arrayStrip@routines.inc.F90"
1707 : end procedure
1708 : #endif
1709 :
1710 : #if LK3_ENABLED
1711 1 : module procedure test_getSIL_D1_D0_LK3_1
1712 : use pm_kind, only: LKC => LK3
1713 : #include "test_pm_arrayStrip@routines.inc.F90"
1714 : end procedure
1715 : #endif
1716 :
1717 : #if LK2_ENABLED
1718 1 : module procedure test_getSIL_D1_D0_LK2_1
1719 : use pm_kind, only: LKC => LK2
1720 : #include "test_pm_arrayStrip@routines.inc.F90"
1721 : end procedure
1722 : #endif
1723 :
1724 : #if LK1_ENABLED
1725 1 : module procedure test_getSIL_D1_D0_LK1_1
1726 : use pm_kind, only: LKC => LK1
1727 : #include "test_pm_arrayStrip@routines.inc.F90"
1728 : end procedure
1729 : #endif
1730 :
1731 : #undef LK_ENABLED
1732 :
1733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1734 :
1735 : #define CK_ENABLED 1
1736 :
1737 : #if CK5_ENABLED
1738 : module procedure test_getSIL_D1_D0_CK5_1
1739 : use pm_kind, only: CKC => CK5
1740 : #include "test_pm_arrayStrip@routines.inc.F90"
1741 : end procedure
1742 : #endif
1743 :
1744 : #if CK4_ENABLED
1745 1 : module procedure test_getSIL_D1_D0_CK4_1
1746 : use pm_kind, only: CKC => CK4
1747 : #include "test_pm_arrayStrip@routines.inc.F90"
1748 : end procedure
1749 : #endif
1750 :
1751 : #if CK3_ENABLED
1752 1 : module procedure test_getSIL_D1_D0_CK3_1
1753 : use pm_kind, only: CKC => CK3
1754 : #include "test_pm_arrayStrip@routines.inc.F90"
1755 : end procedure
1756 : #endif
1757 :
1758 : #if CK2_ENABLED
1759 1 : module procedure test_getSIL_D1_D0_CK2_1
1760 : use pm_kind, only: CKC => CK2
1761 : #include "test_pm_arrayStrip@routines.inc.F90"
1762 : end procedure
1763 : #endif
1764 :
1765 : #if CK1_ENABLED
1766 1 : module procedure test_getSIL_D1_D0_CK1_1
1767 : use pm_kind, only: CKC => CK1
1768 : #include "test_pm_arrayStrip@routines.inc.F90"
1769 : end procedure
1770 : #endif
1771 :
1772 : #undef CK_ENABLED
1773 :
1774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1775 :
1776 : #define RK_ENABLED 1
1777 :
1778 : #if RK5_ENABLED
1779 : module procedure test_getSIL_D1_D0_RK5_1
1780 : use pm_kind, only: RKC => RK5
1781 : #include "test_pm_arrayStrip@routines.inc.F90"
1782 : end procedure
1783 : #endif
1784 :
1785 : #if RK4_ENABLED
1786 1 : module procedure test_getSIL_D1_D0_RK4_1
1787 : use pm_kind, only: RKC => RK4
1788 : #include "test_pm_arrayStrip@routines.inc.F90"
1789 : end procedure
1790 : #endif
1791 :
1792 : #if RK3_ENABLED
1793 1 : module procedure test_getSIL_D1_D0_RK3_1
1794 : use pm_kind, only: RKC => RK3
1795 : #include "test_pm_arrayStrip@routines.inc.F90"
1796 : end procedure
1797 : #endif
1798 :
1799 : #if RK2_ENABLED
1800 1 : module procedure test_getSIL_D1_D0_RK2_1
1801 : use pm_kind, only: RKC => RK2
1802 : #include "test_pm_arrayStrip@routines.inc.F90"
1803 : end procedure
1804 : #endif
1805 :
1806 : #if RK1_ENABLED
1807 1 : module procedure test_getSIL_D1_D0_RK1_1
1808 : use pm_kind, only: RKC => RK1
1809 : #include "test_pm_arrayStrip@routines.inc.F90"
1810 : end procedure
1811 : #endif
1812 :
1813 : #undef RK_ENABLED
1814 :
1815 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1816 :
1817 : #undef D1_D0_ENABLED
1818 :
1819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1820 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1822 :
1823 : #define D1_D1_ENABLED 1
1824 :
1825 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1826 :
1827 : #define SK_ENABLED 1
1828 :
1829 : #if SK5_ENABLED
1830 : module procedure test_getSIL_D1_D1_SK5_1
1831 : use pm_kind, only: SKC => SK5
1832 : #include "test_pm_arrayStrip@routines.inc.F90"
1833 : end procedure
1834 : #endif
1835 :
1836 : #if SK4_ENABLED
1837 : module procedure test_getSIL_D1_D1_SK4_1
1838 : use pm_kind, only: SKC => SK4
1839 : #include "test_pm_arrayStrip@routines.inc.F90"
1840 : end procedure
1841 : #endif
1842 :
1843 : #if SK3_ENABLED
1844 : module procedure test_getSIL_D1_D1_SK3_1
1845 : use pm_kind, only: SKC => SK3
1846 : #include "test_pm_arrayStrip@routines.inc.F90"
1847 : end procedure
1848 : #endif
1849 :
1850 : #if SK2_ENABLED
1851 : module procedure test_getSIL_D1_D1_SK2_1
1852 : use pm_kind, only: SKC => SK2
1853 : #include "test_pm_arrayStrip@routines.inc.F90"
1854 : end procedure
1855 : #endif
1856 :
1857 : #if SK1_ENABLED
1858 1 : module procedure test_getSIL_D1_D1_SK1_1
1859 : use pm_kind, only: SKC => SK1
1860 : #include "test_pm_arrayStrip@routines.inc.F90"
1861 : end procedure
1862 : #endif
1863 :
1864 : #undef SK_ENABLED
1865 :
1866 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1867 :
1868 : #define IK_ENABLED 1
1869 :
1870 : #if IK5_ENABLED
1871 1 : module procedure test_getSIL_D1_D1_IK5_1
1872 : use pm_kind, only: IKC => IK5
1873 : #include "test_pm_arrayStrip@routines.inc.F90"
1874 : end procedure
1875 : #endif
1876 :
1877 : #if IK4_ENABLED
1878 1 : module procedure test_getSIL_D1_D1_IK4_1
1879 : use pm_kind, only: IKC => IK4
1880 : #include "test_pm_arrayStrip@routines.inc.F90"
1881 : end procedure
1882 : #endif
1883 :
1884 : #if IK3_ENABLED
1885 1 : module procedure test_getSIL_D1_D1_IK3_1
1886 : use pm_kind, only: IKC => IK3
1887 : #include "test_pm_arrayStrip@routines.inc.F90"
1888 : end procedure
1889 : #endif
1890 :
1891 : #if IK2_ENABLED
1892 1 : module procedure test_getSIL_D1_D1_IK2_1
1893 : use pm_kind, only: IKC => IK2
1894 : #include "test_pm_arrayStrip@routines.inc.F90"
1895 : end procedure
1896 : #endif
1897 :
1898 : #if IK1_ENABLED
1899 1 : module procedure test_getSIL_D1_D1_IK1_1
1900 : use pm_kind, only: IKC => IK1
1901 : #include "test_pm_arrayStrip@routines.inc.F90"
1902 : end procedure
1903 : #endif
1904 :
1905 : #undef IK_ENABLED
1906 :
1907 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1908 :
1909 : #define LK_ENABLED 1
1910 :
1911 : #if LK5_ENABLED
1912 1 : module procedure test_getSIL_D1_D1_LK5_1
1913 : use pm_kind, only: LKC => LK5
1914 : #include "test_pm_arrayStrip@routines.inc.F90"
1915 : end procedure
1916 : #endif
1917 :
1918 : #if LK4_ENABLED
1919 1 : module procedure test_getSIL_D1_D1_LK4_1
1920 : use pm_kind, only: LKC => LK4
1921 : #include "test_pm_arrayStrip@routines.inc.F90"
1922 : end procedure
1923 : #endif
1924 :
1925 : #if LK3_ENABLED
1926 1 : module procedure test_getSIL_D1_D1_LK3_1
1927 : use pm_kind, only: LKC => LK3
1928 : #include "test_pm_arrayStrip@routines.inc.F90"
1929 : end procedure
1930 : #endif
1931 :
1932 : #if LK2_ENABLED
1933 1 : module procedure test_getSIL_D1_D1_LK2_1
1934 : use pm_kind, only: LKC => LK2
1935 : #include "test_pm_arrayStrip@routines.inc.F90"
1936 : end procedure
1937 : #endif
1938 :
1939 : #if LK1_ENABLED
1940 1 : module procedure test_getSIL_D1_D1_LK1_1
1941 : use pm_kind, only: LKC => LK1
1942 : #include "test_pm_arrayStrip@routines.inc.F90"
1943 : end procedure
1944 : #endif
1945 :
1946 : #undef LK_ENABLED
1947 :
1948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1949 :
1950 : #define CK_ENABLED 1
1951 :
1952 : #if CK5_ENABLED
1953 : module procedure test_getSIL_D1_D1_CK5_1
1954 : use pm_kind, only: CKC => CK5
1955 : #include "test_pm_arrayStrip@routines.inc.F90"
1956 : end procedure
1957 : #endif
1958 :
1959 : #if CK4_ENABLED
1960 1 : module procedure test_getSIL_D1_D1_CK4_1
1961 : use pm_kind, only: CKC => CK4
1962 : #include "test_pm_arrayStrip@routines.inc.F90"
1963 : end procedure
1964 : #endif
1965 :
1966 : #if CK3_ENABLED
1967 1 : module procedure test_getSIL_D1_D1_CK3_1
1968 : use pm_kind, only: CKC => CK3
1969 : #include "test_pm_arrayStrip@routines.inc.F90"
1970 : end procedure
1971 : #endif
1972 :
1973 : #if CK2_ENABLED
1974 1 : module procedure test_getSIL_D1_D1_CK2_1
1975 : use pm_kind, only: CKC => CK2
1976 : #include "test_pm_arrayStrip@routines.inc.F90"
1977 : end procedure
1978 : #endif
1979 :
1980 : #if CK1_ENABLED
1981 1 : module procedure test_getSIL_D1_D1_CK1_1
1982 : use pm_kind, only: CKC => CK1
1983 : #include "test_pm_arrayStrip@routines.inc.F90"
1984 : end procedure
1985 : #endif
1986 :
1987 : #undef CK_ENABLED
1988 :
1989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1990 :
1991 : #define RK_ENABLED 1
1992 :
1993 : #if RK5_ENABLED
1994 : module procedure test_getSIL_D1_D1_RK5_1
1995 : use pm_kind, only: RKC => RK5
1996 : #include "test_pm_arrayStrip@routines.inc.F90"
1997 : end procedure
1998 : #endif
1999 :
2000 : #if RK4_ENABLED
2001 1 : module procedure test_getSIL_D1_D1_RK4_1
2002 : use pm_kind, only: RKC => RK4
2003 : #include "test_pm_arrayStrip@routines.inc.F90"
2004 : end procedure
2005 : #endif
2006 :
2007 : #if RK3_ENABLED
2008 1 : module procedure test_getSIL_D1_D1_RK3_1
2009 : use pm_kind, only: RKC => RK3
2010 : #include "test_pm_arrayStrip@routines.inc.F90"
2011 : end procedure
2012 : #endif
2013 :
2014 : #if RK2_ENABLED
2015 1 : module procedure test_getSIL_D1_D1_RK2_1
2016 : use pm_kind, only: RKC => RK2
2017 : #include "test_pm_arrayStrip@routines.inc.F90"
2018 : end procedure
2019 : #endif
2020 :
2021 : #if RK1_ENABLED
2022 1 : module procedure test_getSIL_D1_D1_RK1_1
2023 : use pm_kind, only: RKC => RK1
2024 : #include "test_pm_arrayStrip@routines.inc.F90"
2025 : end procedure
2026 : #endif
2027 :
2028 : #undef RK_ENABLED
2029 :
2030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2031 :
2032 : #undef D1_D1_ENABLED
2033 :
2034 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2035 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2037 :
2038 : #undef getSIL_ENABLED
2039 :
2040 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2041 :
2042 : #define getSIR_ENABLED 1
2043 :
2044 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2045 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2047 :
2048 : #define D0_D0_ENABLED 1
2049 :
2050 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2051 :
2052 : #define SK_ENABLED 1
2053 :
2054 : #if SK5_ENABLED
2055 : module procedure test_getSIR_D0_D0_SK5_1
2056 : use pm_kind, only: SKC => SK5
2057 : #include "test_pm_arrayStrip@routines.inc.F90"
2058 : end procedure
2059 : #endif
2060 :
2061 : #if SK4_ENABLED
2062 : module procedure test_getSIR_D0_D0_SK4_1
2063 : use pm_kind, only: SKC => SK4
2064 : #include "test_pm_arrayStrip@routines.inc.F90"
2065 : end procedure
2066 : #endif
2067 :
2068 : #if SK3_ENABLED
2069 : module procedure test_getSIR_D0_D0_SK3_1
2070 : use pm_kind, only: SKC => SK3
2071 : #include "test_pm_arrayStrip@routines.inc.F90"
2072 : end procedure
2073 : #endif
2074 :
2075 : #if SK2_ENABLED
2076 : module procedure test_getSIR_D0_D0_SK2_1
2077 : use pm_kind, only: SKC => SK2
2078 : #include "test_pm_arrayStrip@routines.inc.F90"
2079 : end procedure
2080 : #endif
2081 :
2082 : #if SK1_ENABLED
2083 1 : module procedure test_getSIR_D0_D0_SK1_1
2084 : use pm_kind, only: SKC => SK1
2085 : #include "test_pm_arrayStrip@routines.inc.F90"
2086 : end procedure
2087 : #endif
2088 :
2089 : #undef SK_ENABLED
2090 :
2091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2092 :
2093 : #undef D0_D0_ENABLED
2094 :
2095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2096 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2098 :
2099 : #define D1_D0_ENABLED 1
2100 :
2101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2102 :
2103 : #define SK_ENABLED 1
2104 :
2105 : #if SK5_ENABLED
2106 : module procedure test_getSIR_D1_D0_SK5_1
2107 : use pm_kind, only: SKC => SK5
2108 : #include "test_pm_arrayStrip@routines.inc.F90"
2109 : end procedure
2110 : #endif
2111 :
2112 : #if SK4_ENABLED
2113 : module procedure test_getSIR_D1_D0_SK4_1
2114 : use pm_kind, only: SKC => SK4
2115 : #include "test_pm_arrayStrip@routines.inc.F90"
2116 : end procedure
2117 : #endif
2118 :
2119 : #if SK3_ENABLED
2120 : module procedure test_getSIR_D1_D0_SK3_1
2121 : use pm_kind, only: SKC => SK3
2122 : #include "test_pm_arrayStrip@routines.inc.F90"
2123 : end procedure
2124 : #endif
2125 :
2126 : #if SK2_ENABLED
2127 : module procedure test_getSIR_D1_D0_SK2_1
2128 : use pm_kind, only: SKC => SK2
2129 : #include "test_pm_arrayStrip@routines.inc.F90"
2130 : end procedure
2131 : #endif
2132 :
2133 : #if SK1_ENABLED
2134 1 : module procedure test_getSIR_D1_D0_SK1_1
2135 : use pm_kind, only: SKC => SK1
2136 : #include "test_pm_arrayStrip@routines.inc.F90"
2137 : end procedure
2138 : #endif
2139 :
2140 : #undef SK_ENABLED
2141 :
2142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2143 :
2144 : #define IK_ENABLED 1
2145 :
2146 : #if IK5_ENABLED
2147 1 : module procedure test_getSIR_D1_D0_IK5_1
2148 : use pm_kind, only: IKC => IK5
2149 : #include "test_pm_arrayStrip@routines.inc.F90"
2150 : end procedure
2151 : #endif
2152 :
2153 : #if IK4_ENABLED
2154 1 : module procedure test_getSIR_D1_D0_IK4_1
2155 : use pm_kind, only: IKC => IK4
2156 : #include "test_pm_arrayStrip@routines.inc.F90"
2157 : end procedure
2158 : #endif
2159 :
2160 : #if IK3_ENABLED
2161 1 : module procedure test_getSIR_D1_D0_IK3_1
2162 : use pm_kind, only: IKC => IK3
2163 : #include "test_pm_arrayStrip@routines.inc.F90"
2164 : end procedure
2165 : #endif
2166 :
2167 : #if IK2_ENABLED
2168 1 : module procedure test_getSIR_D1_D0_IK2_1
2169 : use pm_kind, only: IKC => IK2
2170 : #include "test_pm_arrayStrip@routines.inc.F90"
2171 : end procedure
2172 : #endif
2173 :
2174 : #if IK1_ENABLED
2175 1 : module procedure test_getSIR_D1_D0_IK1_1
2176 : use pm_kind, only: IKC => IK1
2177 : #include "test_pm_arrayStrip@routines.inc.F90"
2178 : end procedure
2179 : #endif
2180 :
2181 : #undef IK_ENABLED
2182 :
2183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2184 :
2185 : #define LK_ENABLED 1
2186 :
2187 : #if LK5_ENABLED
2188 1 : module procedure test_getSIR_D1_D0_LK5_1
2189 : use pm_kind, only: LKC => LK5
2190 : #include "test_pm_arrayStrip@routines.inc.F90"
2191 : end procedure
2192 : #endif
2193 :
2194 : #if LK4_ENABLED
2195 1 : module procedure test_getSIR_D1_D0_LK4_1
2196 : use pm_kind, only: LKC => LK4
2197 : #include "test_pm_arrayStrip@routines.inc.F90"
2198 : end procedure
2199 : #endif
2200 :
2201 : #if LK3_ENABLED
2202 1 : module procedure test_getSIR_D1_D0_LK3_1
2203 : use pm_kind, only: LKC => LK3
2204 : #include "test_pm_arrayStrip@routines.inc.F90"
2205 : end procedure
2206 : #endif
2207 :
2208 : #if LK2_ENABLED
2209 1 : module procedure test_getSIR_D1_D0_LK2_1
2210 : use pm_kind, only: LKC => LK2
2211 : #include "test_pm_arrayStrip@routines.inc.F90"
2212 : end procedure
2213 : #endif
2214 :
2215 : #if LK1_ENABLED
2216 1 : module procedure test_getSIR_D1_D0_LK1_1
2217 : use pm_kind, only: LKC => LK1
2218 : #include "test_pm_arrayStrip@routines.inc.F90"
2219 : end procedure
2220 : #endif
2221 :
2222 : #undef LK_ENABLED
2223 :
2224 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2225 :
2226 : #define CK_ENABLED 1
2227 :
2228 : #if CK5_ENABLED
2229 : module procedure test_getSIR_D1_D0_CK5_1
2230 : use pm_kind, only: CKC => CK5
2231 : #include "test_pm_arrayStrip@routines.inc.F90"
2232 : end procedure
2233 : #endif
2234 :
2235 : #if CK4_ENABLED
2236 1 : module procedure test_getSIR_D1_D0_CK4_1
2237 : use pm_kind, only: CKC => CK4
2238 : #include "test_pm_arrayStrip@routines.inc.F90"
2239 : end procedure
2240 : #endif
2241 :
2242 : #if CK3_ENABLED
2243 1 : module procedure test_getSIR_D1_D0_CK3_1
2244 : use pm_kind, only: CKC => CK3
2245 : #include "test_pm_arrayStrip@routines.inc.F90"
2246 : end procedure
2247 : #endif
2248 :
2249 : #if CK2_ENABLED
2250 1 : module procedure test_getSIR_D1_D0_CK2_1
2251 : use pm_kind, only: CKC => CK2
2252 : #include "test_pm_arrayStrip@routines.inc.F90"
2253 : end procedure
2254 : #endif
2255 :
2256 : #if CK1_ENABLED
2257 1 : module procedure test_getSIR_D1_D0_CK1_1
2258 : use pm_kind, only: CKC => CK1
2259 : #include "test_pm_arrayStrip@routines.inc.F90"
2260 : end procedure
2261 : #endif
2262 :
2263 : #undef CK_ENABLED
2264 :
2265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2266 :
2267 : #define RK_ENABLED 1
2268 :
2269 : #if RK5_ENABLED
2270 : module procedure test_getSIR_D1_D0_RK5_1
2271 : use pm_kind, only: RKC => RK5
2272 : #include "test_pm_arrayStrip@routines.inc.F90"
2273 : end procedure
2274 : #endif
2275 :
2276 : #if RK4_ENABLED
2277 1 : module procedure test_getSIR_D1_D0_RK4_1
2278 : use pm_kind, only: RKC => RK4
2279 : #include "test_pm_arrayStrip@routines.inc.F90"
2280 : end procedure
2281 : #endif
2282 :
2283 : #if RK3_ENABLED
2284 1 : module procedure test_getSIR_D1_D0_RK3_1
2285 : use pm_kind, only: RKC => RK3
2286 : #include "test_pm_arrayStrip@routines.inc.F90"
2287 : end procedure
2288 : #endif
2289 :
2290 : #if RK2_ENABLED
2291 1 : module procedure test_getSIR_D1_D0_RK2_1
2292 : use pm_kind, only: RKC => RK2
2293 : #include "test_pm_arrayStrip@routines.inc.F90"
2294 : end procedure
2295 : #endif
2296 :
2297 : #if RK1_ENABLED
2298 1 : module procedure test_getSIR_D1_D0_RK1_1
2299 : use pm_kind, only: RKC => RK1
2300 : #include "test_pm_arrayStrip@routines.inc.F90"
2301 : end procedure
2302 : #endif
2303 :
2304 : #undef RK_ENABLED
2305 :
2306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2307 :
2308 : #undef D1_D0_ENABLED
2309 :
2310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2313 :
2314 : #define D1_D1_ENABLED 1
2315 :
2316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2317 :
2318 : #define SK_ENABLED 1
2319 :
2320 : #if SK5_ENABLED
2321 : module procedure test_getSIR_D1_D1_SK5_1
2322 : use pm_kind, only: SKC => SK5
2323 : #include "test_pm_arrayStrip@routines.inc.F90"
2324 : end procedure
2325 : #endif
2326 :
2327 : #if SK4_ENABLED
2328 : module procedure test_getSIR_D1_D1_SK4_1
2329 : use pm_kind, only: SKC => SK4
2330 : #include "test_pm_arrayStrip@routines.inc.F90"
2331 : end procedure
2332 : #endif
2333 :
2334 : #if SK3_ENABLED
2335 : module procedure test_getSIR_D1_D1_SK3_1
2336 : use pm_kind, only: SKC => SK3
2337 : #include "test_pm_arrayStrip@routines.inc.F90"
2338 : end procedure
2339 : #endif
2340 :
2341 : #if SK2_ENABLED
2342 : module procedure test_getSIR_D1_D1_SK2_1
2343 : use pm_kind, only: SKC => SK2
2344 : #include "test_pm_arrayStrip@routines.inc.F90"
2345 : end procedure
2346 : #endif
2347 :
2348 : #if SK1_ENABLED
2349 1 : module procedure test_getSIR_D1_D1_SK1_1
2350 : use pm_kind, only: SKC => SK1
2351 : #include "test_pm_arrayStrip@routines.inc.F90"
2352 : end procedure
2353 : #endif
2354 :
2355 : #undef SK_ENABLED
2356 :
2357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2358 :
2359 : #define IK_ENABLED 1
2360 :
2361 : #if IK5_ENABLED
2362 1 : module procedure test_getSIR_D1_D1_IK5_1
2363 : use pm_kind, only: IKC => IK5
2364 : #include "test_pm_arrayStrip@routines.inc.F90"
2365 : end procedure
2366 : #endif
2367 :
2368 : #if IK4_ENABLED
2369 1 : module procedure test_getSIR_D1_D1_IK4_1
2370 : use pm_kind, only: IKC => IK4
2371 : #include "test_pm_arrayStrip@routines.inc.F90"
2372 : end procedure
2373 : #endif
2374 :
2375 : #if IK3_ENABLED
2376 1 : module procedure test_getSIR_D1_D1_IK3_1
2377 : use pm_kind, only: IKC => IK3
2378 : #include "test_pm_arrayStrip@routines.inc.F90"
2379 : end procedure
2380 : #endif
2381 :
2382 : #if IK2_ENABLED
2383 1 : module procedure test_getSIR_D1_D1_IK2_1
2384 : use pm_kind, only: IKC => IK2
2385 : #include "test_pm_arrayStrip@routines.inc.F90"
2386 : end procedure
2387 : #endif
2388 :
2389 : #if IK1_ENABLED
2390 1 : module procedure test_getSIR_D1_D1_IK1_1
2391 : use pm_kind, only: IKC => IK1
2392 : #include "test_pm_arrayStrip@routines.inc.F90"
2393 : end procedure
2394 : #endif
2395 :
2396 : #undef IK_ENABLED
2397 :
2398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2399 :
2400 : #define LK_ENABLED 1
2401 :
2402 : #if LK5_ENABLED
2403 1 : module procedure test_getSIR_D1_D1_LK5_1
2404 : use pm_kind, only: LKC => LK5
2405 : #include "test_pm_arrayStrip@routines.inc.F90"
2406 : end procedure
2407 : #endif
2408 :
2409 : #if LK4_ENABLED
2410 1 : module procedure test_getSIR_D1_D1_LK4_1
2411 : use pm_kind, only: LKC => LK4
2412 : #include "test_pm_arrayStrip@routines.inc.F90"
2413 : end procedure
2414 : #endif
2415 :
2416 : #if LK3_ENABLED
2417 1 : module procedure test_getSIR_D1_D1_LK3_1
2418 : use pm_kind, only: LKC => LK3
2419 : #include "test_pm_arrayStrip@routines.inc.F90"
2420 : end procedure
2421 : #endif
2422 :
2423 : #if LK2_ENABLED
2424 1 : module procedure test_getSIR_D1_D1_LK2_1
2425 : use pm_kind, only: LKC => LK2
2426 : #include "test_pm_arrayStrip@routines.inc.F90"
2427 : end procedure
2428 : #endif
2429 :
2430 : #if LK1_ENABLED
2431 1 : module procedure test_getSIR_D1_D1_LK1_1
2432 : use pm_kind, only: LKC => LK1
2433 : #include "test_pm_arrayStrip@routines.inc.F90"
2434 : end procedure
2435 : #endif
2436 :
2437 : #undef LK_ENABLED
2438 :
2439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2440 :
2441 : #define CK_ENABLED 1
2442 :
2443 : #if CK5_ENABLED
2444 : module procedure test_getSIR_D1_D1_CK5_1
2445 : use pm_kind, only: CKC => CK5
2446 : #include "test_pm_arrayStrip@routines.inc.F90"
2447 : end procedure
2448 : #endif
2449 :
2450 : #if CK4_ENABLED
2451 1 : module procedure test_getSIR_D1_D1_CK4_1
2452 : use pm_kind, only: CKC => CK4
2453 : #include "test_pm_arrayStrip@routines.inc.F90"
2454 : end procedure
2455 : #endif
2456 :
2457 : #if CK3_ENABLED
2458 1 : module procedure test_getSIR_D1_D1_CK3_1
2459 : use pm_kind, only: CKC => CK3
2460 : #include "test_pm_arrayStrip@routines.inc.F90"
2461 : end procedure
2462 : #endif
2463 :
2464 : #if CK2_ENABLED
2465 1 : module procedure test_getSIR_D1_D1_CK2_1
2466 : use pm_kind, only: CKC => CK2
2467 : #include "test_pm_arrayStrip@routines.inc.F90"
2468 : end procedure
2469 : #endif
2470 :
2471 : #if CK1_ENABLED
2472 1 : module procedure test_getSIR_D1_D1_CK1_1
2473 : use pm_kind, only: CKC => CK1
2474 : #include "test_pm_arrayStrip@routines.inc.F90"
2475 : end procedure
2476 : #endif
2477 :
2478 : #undef CK_ENABLED
2479 :
2480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2481 :
2482 : #define RK_ENABLED 1
2483 :
2484 : #if RK5_ENABLED
2485 : module procedure test_getSIR_D1_D1_RK5_1
2486 : use pm_kind, only: RKC => RK5
2487 : #include "test_pm_arrayStrip@routines.inc.F90"
2488 : end procedure
2489 : #endif
2490 :
2491 : #if RK4_ENABLED
2492 1 : module procedure test_getSIR_D1_D1_RK4_1
2493 : use pm_kind, only: RKC => RK4
2494 : #include "test_pm_arrayStrip@routines.inc.F90"
2495 : end procedure
2496 : #endif
2497 :
2498 : #if RK3_ENABLED
2499 1 : module procedure test_getSIR_D1_D1_RK3_1
2500 : use pm_kind, only: RKC => RK3
2501 : #include "test_pm_arrayStrip@routines.inc.F90"
2502 : end procedure
2503 : #endif
2504 :
2505 : #if RK2_ENABLED
2506 1 : module procedure test_getSIR_D1_D1_RK2_1
2507 : use pm_kind, only: RKC => RK2
2508 : #include "test_pm_arrayStrip@routines.inc.F90"
2509 : end procedure
2510 : #endif
2511 :
2512 : #if RK1_ENABLED
2513 1 : module procedure test_getSIR_D1_D1_RK1_1
2514 : use pm_kind, only: RKC => RK1
2515 : #include "test_pm_arrayStrip@routines.inc.F90"
2516 : end procedure
2517 : #endif
2518 :
2519 : #undef RK_ENABLED
2520 :
2521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2522 :
2523 : #undef D1_D1_ENABLED
2524 :
2525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2528 :
2529 : #undef getSIR_ENABLED
2530 :
2531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2532 :
2533 : end submodule routines
|
