Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This file contains procedure implementations of [pm_arrayMembership](@ref pm_arrayMembership).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_arrayMembership) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : implicit none
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : contains
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define in_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define D0_D0_ENABLED 1
54 :
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 :
57 : #define SK_ENABLED 1
58 :
59 : #if SK5_ENABLED
60 : module procedure in_D0_D0_SK5
61 : use pm_kind, only: SKC => SK5
62 : #include "pm_arrayMembership@routines.inc.F90"
63 : end procedure
64 : #endif
65 :
66 : #if SK4_ENABLED
67 : module procedure in_D0_D0_SK4
68 : use pm_kind, only: SKC => SK4
69 : #include "pm_arrayMembership@routines.inc.F90"
70 : end procedure
71 : #endif
72 :
73 : #if SK3_ENABLED
74 : module procedure in_D0_D0_SK3
75 : use pm_kind, only: SKC => SK3
76 : #include "pm_arrayMembership@routines.inc.F90"
77 : end procedure
78 : #endif
79 :
80 : #if SK2_ENABLED
81 : module procedure in_D0_D0_SK2
82 : use pm_kind, only: SKC => SK2
83 : #include "pm_arrayMembership@routines.inc.F90"
84 : end procedure
85 : #endif
86 :
87 : #if SK1_ENABLED
88 2 : module procedure in_D0_D0_SK1
89 : use pm_kind, only: SKC => SK1
90 : #include "pm_arrayMembership@routines.inc.F90"
91 2 : end procedure
92 : #endif
93 :
94 : #undef SK_ENABLED
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #undef D0_D0_ENABLED
99 :
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define D0_D1_ENABLED 1
105 :
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 :
108 : #define SK_ENABLED 1
109 :
110 : #if SK5_ENABLED
111 : module procedure in_D0_D1_SK5
112 : use pm_kind, only: SKC => SK5
113 : #include "pm_arrayMembership@routines.inc.F90"
114 : end procedure
115 : #endif
116 :
117 : #if SK4_ENABLED
118 : module procedure in_D0_D1_SK4
119 : use pm_kind, only: SKC => SK4
120 : #include "pm_arrayMembership@routines.inc.F90"
121 : end procedure
122 : #endif
123 :
124 : #if SK3_ENABLED
125 : module procedure in_D0_D1_SK3
126 : use pm_kind, only: SKC => SK3
127 : #include "pm_arrayMembership@routines.inc.F90"
128 : end procedure
129 : #endif
130 :
131 : #if SK2_ENABLED
132 : module procedure in_D0_D1_SK2
133 : use pm_kind, only: SKC => SK2
134 : #include "pm_arrayMembership@routines.inc.F90"
135 : end procedure
136 : #endif
137 :
138 : #if SK1_ENABLED
139 35 : module procedure in_D0_D1_SK1
140 : use pm_kind, only: SKC => SK1
141 : #include "pm_arrayMembership@routines.inc.F90"
142 : end procedure
143 : #endif
144 :
145 : #undef SK_ENABLED
146 :
147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
148 :
149 : #define IK_ENABLED 1
150 :
151 : #if IK5_ENABLED
152 0 : module procedure in_D0_D1_IK5
153 : use pm_kind, only: IKC => IK5
154 : #include "pm_arrayMembership@routines.inc.F90"
155 : end procedure
156 : #endif
157 :
158 : #if IK4_ENABLED
159 0 : module procedure in_D0_D1_IK4
160 : use pm_kind, only: IKC => IK4
161 : #include "pm_arrayMembership@routines.inc.F90"
162 : end procedure
163 : #endif
164 :
165 : #if IK3_ENABLED
166 2 : module procedure in_D0_D1_IK3
167 : use pm_kind, only: IKC => IK3
168 : #include "pm_arrayMembership@routines.inc.F90"
169 : end procedure
170 : #endif
171 :
172 : #if IK2_ENABLED
173 0 : module procedure in_D0_D1_IK2
174 : use pm_kind, only: IKC => IK2
175 : #include "pm_arrayMembership@routines.inc.F90"
176 : end procedure
177 : #endif
178 :
179 : #if IK1_ENABLED
180 0 : module procedure in_D0_D1_IK1
181 : use pm_kind, only: IKC => IK1
182 : #include "pm_arrayMembership@routines.inc.F90"
183 : end procedure
184 : #endif
185 :
186 : #undef IK_ENABLED
187 :
188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
189 :
190 : #define LK_ENABLED 1
191 :
192 : #if LK5_ENABLED
193 0 : module procedure in_D0_D1_LK5
194 : use pm_kind, only: LKC => LK5
195 : #include "pm_arrayMembership@routines.inc.F90"
196 : end procedure
197 : #endif
198 :
199 : #if LK4_ENABLED
200 0 : module procedure in_D0_D1_LK4
201 : use pm_kind, only: LKC => LK4
202 : #include "pm_arrayMembership@routines.inc.F90"
203 : end procedure
204 : #endif
205 :
206 : #if LK3_ENABLED
207 1 : module procedure in_D0_D1_LK3
208 : use pm_kind, only: LKC => LK3
209 : #include "pm_arrayMembership@routines.inc.F90"
210 : end procedure
211 : #endif
212 :
213 : #if LK2_ENABLED
214 0 : module procedure in_D0_D1_LK2
215 : use pm_kind, only: LKC => LK2
216 : #include "pm_arrayMembership@routines.inc.F90"
217 : end procedure
218 : #endif
219 :
220 : #if LK1_ENABLED
221 0 : module procedure in_D0_D1_LK1
222 : use pm_kind, only: LKC => LK1
223 : #include "pm_arrayMembership@routines.inc.F90"
224 : end procedure
225 : #endif
226 :
227 : #undef LK_ENABLED
228 :
229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
230 :
231 : #define CK_ENABLED 1
232 :
233 : #if CK5_ENABLED
234 : module procedure in_D0_D1_CK5
235 : use pm_kind, only: CKC => CK5
236 : #include "pm_arrayMembership@routines.inc.F90"
237 : end procedure
238 : #endif
239 :
240 : #if CK4_ENABLED
241 0 : module procedure in_D0_D1_CK4
242 : use pm_kind, only: CKC => CK4
243 : #include "pm_arrayMembership@routines.inc.F90"
244 : end procedure
245 : #endif
246 :
247 : #if CK3_ENABLED
248 0 : module procedure in_D0_D1_CK3
249 : use pm_kind, only: CKC => CK3
250 : #include "pm_arrayMembership@routines.inc.F90"
251 : end procedure
252 : #endif
253 :
254 : #if CK2_ENABLED
255 0 : module procedure in_D0_D1_CK2
256 : use pm_kind, only: CKC => CK2
257 : #include "pm_arrayMembership@routines.inc.F90"
258 : end procedure
259 : #endif
260 :
261 : #if CK1_ENABLED
262 0 : module procedure in_D0_D1_CK1
263 : use pm_kind, only: CKC => CK1
264 : #include "pm_arrayMembership@routines.inc.F90"
265 : end procedure
266 : #endif
267 :
268 : #undef CK_ENABLED
269 :
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : #define RK_ENABLED 1
273 :
274 : #if RK5_ENABLED
275 : module procedure in_D0_D1_RK5
276 : use pm_kind, only: RKC => RK5
277 : #include "pm_arrayMembership@routines.inc.F90"
278 : end procedure
279 : #endif
280 :
281 : #if RK4_ENABLED
282 0 : module procedure in_D0_D1_RK4
283 : use pm_kind, only: RKC => RK4
284 : #include "pm_arrayMembership@routines.inc.F90"
285 : end procedure
286 : #endif
287 :
288 : #if RK3_ENABLED
289 0 : module procedure in_D0_D1_RK3
290 : use pm_kind, only: RKC => RK3
291 : #include "pm_arrayMembership@routines.inc.F90"
292 : end procedure
293 : #endif
294 :
295 : #if RK2_ENABLED
296 1 : module procedure in_D0_D1_RK2
297 : use pm_kind, only: RKC => RK2
298 : #include "pm_arrayMembership@routines.inc.F90"
299 : end procedure
300 : #endif
301 :
302 : #if RK1_ENABLED
303 0 : module procedure in_D0_D1_RK1
304 : use pm_kind, only: RKC => RK1
305 : #include "pm_arrayMembership@routines.inc.F90"
306 : end procedure
307 : #endif
308 :
309 : #undef RK_ENABLED
310 :
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 :
313 : #undef D0_D1_ENABLED
314 :
315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 :
319 : #define D1_D1_ENABLED 1
320 :
321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322 :
323 : #define SK_ENABLED 1
324 :
325 : #if SK5_ENABLED
326 : module procedure in_D1_D1_SK5
327 : use pm_kind, only: SKC => SK5
328 : #include "pm_arrayMembership@routines.inc.F90"
329 : end procedure
330 : #endif
331 :
332 : #if SK4_ENABLED
333 : module procedure in_D1_D1_SK4
334 : use pm_kind, only: SKC => SK4
335 : #include "pm_arrayMembership@routines.inc.F90"
336 : end procedure
337 : #endif
338 :
339 : #if SK3_ENABLED
340 : module procedure in_D1_D1_SK3
341 : use pm_kind, only: SKC => SK3
342 : #include "pm_arrayMembership@routines.inc.F90"
343 : end procedure
344 : #endif
345 :
346 : #if SK2_ENABLED
347 : module procedure in_D1_D1_SK2
348 : use pm_kind, only: SKC => SK2
349 : #include "pm_arrayMembership@routines.inc.F90"
350 : end procedure
351 : #endif
352 :
353 : #if SK1_ENABLED
354 1 : module procedure in_D1_D1_SK1
355 : use pm_kind, only: SKC => SK1
356 : #include "pm_arrayMembership@routines.inc.F90"
357 1 : end procedure
358 : #endif
359 :
360 : #undef SK_ENABLED
361 :
362 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363 :
364 : #define IK_ENABLED 1
365 :
366 : #if IK5_ENABLED
367 0 : module procedure in_D1_D1_IK5
368 : use pm_kind, only: IKC => IK5
369 : #include "pm_arrayMembership@routines.inc.F90"
370 0 : end procedure
371 : #endif
372 :
373 : #if IK4_ENABLED
374 0 : module procedure in_D1_D1_IK4
375 : use pm_kind, only: IKC => IK4
376 : #include "pm_arrayMembership@routines.inc.F90"
377 0 : end procedure
378 : #endif
379 :
380 : #if IK3_ENABLED
381 2 : module procedure in_D1_D1_IK3
382 : use pm_kind, only: IKC => IK3
383 : #include "pm_arrayMembership@routines.inc.F90"
384 2 : end procedure
385 : #endif
386 :
387 : #if IK2_ENABLED
388 0 : module procedure in_D1_D1_IK2
389 : use pm_kind, only: IKC => IK2
390 : #include "pm_arrayMembership@routines.inc.F90"
391 0 : end procedure
392 : #endif
393 :
394 : #if IK1_ENABLED
395 0 : module procedure in_D1_D1_IK1
396 : use pm_kind, only: IKC => IK1
397 : #include "pm_arrayMembership@routines.inc.F90"
398 0 : end procedure
399 : #endif
400 :
401 : #undef IK_ENABLED
402 :
403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404 :
405 : #define LK_ENABLED 1
406 :
407 : #if LK5_ENABLED
408 0 : module procedure in_D1_D1_LK5
409 : use pm_kind, only: LKC => LK5
410 : #include "pm_arrayMembership@routines.inc.F90"
411 0 : end procedure
412 : #endif
413 :
414 : #if LK4_ENABLED
415 0 : module procedure in_D1_D1_LK4
416 : use pm_kind, only: LKC => LK4
417 : #include "pm_arrayMembership@routines.inc.F90"
418 0 : end procedure
419 : #endif
420 :
421 : #if LK3_ENABLED
422 1 : module procedure in_D1_D1_LK3
423 : use pm_kind, only: LKC => LK3
424 : #include "pm_arrayMembership@routines.inc.F90"
425 1 : end procedure
426 : #endif
427 :
428 : #if LK2_ENABLED
429 0 : module procedure in_D1_D1_LK2
430 : use pm_kind, only: LKC => LK2
431 : #include "pm_arrayMembership@routines.inc.F90"
432 0 : end procedure
433 : #endif
434 :
435 : #if LK1_ENABLED
436 0 : module procedure in_D1_D1_LK1
437 : use pm_kind, only: LKC => LK1
438 : #include "pm_arrayMembership@routines.inc.F90"
439 0 : end procedure
440 : #endif
441 :
442 : #undef LK_ENABLED
443 :
444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
445 :
446 : #define CK_ENABLED 1
447 :
448 : #if CK5_ENABLED
449 : module procedure in_D1_D1_CK5
450 : use pm_kind, only: CKC => CK5
451 : #include "pm_arrayMembership@routines.inc.F90"
452 : end procedure
453 : #endif
454 :
455 : #if CK4_ENABLED
456 0 : module procedure in_D1_D1_CK4
457 : use pm_kind, only: CKC => CK4
458 : #include "pm_arrayMembership@routines.inc.F90"
459 0 : end procedure
460 : #endif
461 :
462 : #if CK3_ENABLED
463 0 : module procedure in_D1_D1_CK3
464 : use pm_kind, only: CKC => CK3
465 : #include "pm_arrayMembership@routines.inc.F90"
466 0 : end procedure
467 : #endif
468 :
469 : #if CK2_ENABLED
470 0 : module procedure in_D1_D1_CK2
471 : use pm_kind, only: CKC => CK2
472 : #include "pm_arrayMembership@routines.inc.F90"
473 0 : end procedure
474 : #endif
475 :
476 : #if CK1_ENABLED
477 0 : module procedure in_D1_D1_CK1
478 : use pm_kind, only: CKC => CK1
479 : #include "pm_arrayMembership@routines.inc.F90"
480 0 : end procedure
481 : #endif
482 :
483 : #undef CK_ENABLED
484 :
485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
486 :
487 : #define RK_ENABLED 1
488 :
489 : #if RK5_ENABLED
490 : module procedure in_D1_D1_RK5
491 : use pm_kind, only: RKC => RK5
492 : #include "pm_arrayMembership@routines.inc.F90"
493 : end procedure
494 : #endif
495 :
496 : #if RK4_ENABLED
497 0 : module procedure in_D1_D1_RK4
498 : use pm_kind, only: RKC => RK4
499 : #include "pm_arrayMembership@routines.inc.F90"
500 0 : end procedure
501 : #endif
502 :
503 : #if RK3_ENABLED
504 0 : module procedure in_D1_D1_RK3
505 : use pm_kind, only: RKC => RK3
506 : #include "pm_arrayMembership@routines.inc.F90"
507 0 : end procedure
508 : #endif
509 :
510 : #if RK2_ENABLED
511 1 : module procedure in_D1_D1_RK2
512 : use pm_kind, only: RKC => RK2
513 : #include "pm_arrayMembership@routines.inc.F90"
514 1 : end procedure
515 : #endif
516 :
517 : #if RK1_ENABLED
518 0 : module procedure in_D1_D1_RK1
519 : use pm_kind, only: RKC => RK1
520 : #include "pm_arrayMembership@routines.inc.F90"
521 0 : end procedure
522 : #endif
523 :
524 : #undef RK_ENABLED
525 :
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 :
528 : #undef D1_D1_ENABLED
529 :
530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533 :
534 : #undef in_ENABLED
535 :
536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
537 :
538 : #define inrange_ENABLED 1
539 :
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543 :
544 : #define D0_D0_ENABLED 1
545 :
546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 :
548 : #define SK_ENABLED 1
549 :
550 : #if SK5_ENABLED
551 : module procedure inrange_D0_D0_SK5
552 : use pm_kind, only: SKC => SK5
553 : #include "pm_arrayMembership@routines.inc.F90"
554 : end procedure
555 : #endif
556 :
557 : #if SK4_ENABLED
558 : module procedure inrange_D0_D0_SK4
559 : use pm_kind, only: SKC => SK4
560 : #include "pm_arrayMembership@routines.inc.F90"
561 : end procedure
562 : #endif
563 :
564 : #if SK3_ENABLED
565 : module procedure inrange_D0_D0_SK3
566 : use pm_kind, only: SKC => SK3
567 : #include "pm_arrayMembership@routines.inc.F90"
568 : end procedure
569 : #endif
570 :
571 : #if SK2_ENABLED
572 : module procedure inrange_D0_D0_SK2
573 : use pm_kind, only: SKC => SK2
574 : #include "pm_arrayMembership@routines.inc.F90"
575 : end procedure
576 : #endif
577 :
578 : #if SK1_ENABLED
579 2 : module procedure inrange_D0_D0_SK1
580 : use pm_kind, only: SKC => SK1
581 : #include "pm_arrayMembership@routines.inc.F90"
582 2 : end procedure
583 : #endif
584 :
585 : #undef SK_ENABLED
586 :
587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
588 :
589 : #undef D0_D0_ENABLED
590 :
591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
592 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
593 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
594 :
595 : #define D0_D1_ENABLED 1
596 :
597 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
598 :
599 : #define SK_ENABLED 1
600 :
601 : #if SK5_ENABLED
602 : module procedure inrange_D0_D1_SK5
603 : use pm_kind, only: SKC => SK5
604 : #include "pm_arrayMembership@routines.inc.F90"
605 : end procedure
606 : #endif
607 :
608 : #if SK4_ENABLED
609 : module procedure inrange_D0_D1_SK4
610 : use pm_kind, only: SKC => SK4
611 : #include "pm_arrayMembership@routines.inc.F90"
612 : end procedure
613 : #endif
614 :
615 : #if SK3_ENABLED
616 : module procedure inrange_D0_D1_SK3
617 : use pm_kind, only: SKC => SK3
618 : #include "pm_arrayMembership@routines.inc.F90"
619 : end procedure
620 : #endif
621 :
622 : #if SK2_ENABLED
623 : module procedure inrange_D0_D1_SK2
624 : use pm_kind, only: SKC => SK2
625 : #include "pm_arrayMembership@routines.inc.F90"
626 : end procedure
627 : #endif
628 :
629 : #if SK1_ENABLED
630 1 : module procedure inrange_D0_D1_SK1
631 : use pm_kind, only: SKC => SK1
632 : #include "pm_arrayMembership@routines.inc.F90"
633 1 : end procedure
634 : #endif
635 :
636 : #undef SK_ENABLED
637 :
638 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
639 :
640 : #define IK_ENABLED 1
641 :
642 : #if IK5_ENABLED
643 0 : module procedure inrange_D0_D1_IK5
644 : use pm_kind, only: IKC => IK5
645 : #include "pm_arrayMembership@routines.inc.F90"
646 0 : end procedure
647 : #endif
648 :
649 : #if IK4_ENABLED
650 0 : module procedure inrange_D0_D1_IK4
651 : use pm_kind, only: IKC => IK4
652 : #include "pm_arrayMembership@routines.inc.F90"
653 0 : end procedure
654 : #endif
655 :
656 : #if IK3_ENABLED
657 2 : module procedure inrange_D0_D1_IK3
658 : use pm_kind, only: IKC => IK3
659 : #include "pm_arrayMembership@routines.inc.F90"
660 2 : end procedure
661 : #endif
662 :
663 : #if IK2_ENABLED
664 0 : module procedure inrange_D0_D1_IK2
665 : use pm_kind, only: IKC => IK2
666 : #include "pm_arrayMembership@routines.inc.F90"
667 0 : end procedure
668 : #endif
669 :
670 : #if IK1_ENABLED
671 0 : module procedure inrange_D0_D1_IK1
672 : use pm_kind, only: IKC => IK1
673 : #include "pm_arrayMembership@routines.inc.F90"
674 0 : end procedure
675 : #endif
676 :
677 : #undef IK_ENABLED
678 :
679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
680 :
681 : #define LK_ENABLED 1
682 :
683 : #if LK5_ENABLED
684 0 : module procedure inrange_D0_D1_LK5
685 : use pm_kind, only: LKC => LK5
686 : #include "pm_arrayMembership@routines.inc.F90"
687 0 : end procedure
688 : #endif
689 :
690 : #if LK4_ENABLED
691 0 : module procedure inrange_D0_D1_LK4
692 : use pm_kind, only: LKC => LK4
693 : #include "pm_arrayMembership@routines.inc.F90"
694 0 : end procedure
695 : #endif
696 :
697 : #if LK3_ENABLED
698 1 : module procedure inrange_D0_D1_LK3
699 : use pm_kind, only: LKC => LK3
700 : #include "pm_arrayMembership@routines.inc.F90"
701 1 : end procedure
702 : #endif
703 :
704 : #if LK2_ENABLED
705 0 : module procedure inrange_D0_D1_LK2
706 : use pm_kind, only: LKC => LK2
707 : #include "pm_arrayMembership@routines.inc.F90"
708 0 : end procedure
709 : #endif
710 :
711 : #if LK1_ENABLED
712 0 : module procedure inrange_D0_D1_LK1
713 : use pm_kind, only: LKC => LK1
714 : #include "pm_arrayMembership@routines.inc.F90"
715 0 : end procedure
716 : #endif
717 :
718 : #undef LK_ENABLED
719 :
720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721 :
722 : #define CK_ENABLED 1
723 :
724 : #if CK5_ENABLED
725 : module procedure inrange_D0_D1_CK5
726 : use pm_kind, only: CKC => CK5
727 : #include "pm_arrayMembership@routines.inc.F90"
728 : end procedure
729 : #endif
730 :
731 : #if CK4_ENABLED
732 0 : module procedure inrange_D0_D1_CK4
733 : use pm_kind, only: CKC => CK4
734 : #include "pm_arrayMembership@routines.inc.F90"
735 0 : end procedure
736 : #endif
737 :
738 : #if CK3_ENABLED
739 0 : module procedure inrange_D0_D1_CK3
740 : use pm_kind, only: CKC => CK3
741 : #include "pm_arrayMembership@routines.inc.F90"
742 0 : end procedure
743 : #endif
744 :
745 : #if CK2_ENABLED
746 0 : module procedure inrange_D0_D1_CK2
747 : use pm_kind, only: CKC => CK2
748 : #include "pm_arrayMembership@routines.inc.F90"
749 0 : end procedure
750 : #endif
751 :
752 : #if CK1_ENABLED
753 0 : module procedure inrange_D0_D1_CK1
754 : use pm_kind, only: CKC => CK1
755 : #include "pm_arrayMembership@routines.inc.F90"
756 0 : end procedure
757 : #endif
758 :
759 : #undef CK_ENABLED
760 :
761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
762 :
763 : #define RK_ENABLED 1
764 :
765 : #if RK5_ENABLED
766 : module procedure inrange_D0_D1_RK5
767 : use pm_kind, only: RKC => RK5
768 : #include "pm_arrayMembership@routines.inc.F90"
769 : end procedure
770 : #endif
771 :
772 : #if RK4_ENABLED
773 0 : module procedure inrange_D0_D1_RK4
774 : use pm_kind, only: RKC => RK4
775 : #include "pm_arrayMembership@routines.inc.F90"
776 0 : end procedure
777 : #endif
778 :
779 : #if RK3_ENABLED
780 0 : module procedure inrange_D0_D1_RK3
781 : use pm_kind, only: RKC => RK3
782 : #include "pm_arrayMembership@routines.inc.F90"
783 0 : end procedure
784 : #endif
785 :
786 : #if RK2_ENABLED
787 16001 : module procedure inrange_D0_D1_RK2
788 : use pm_kind, only: RKC => RK2
789 : #include "pm_arrayMembership@routines.inc.F90"
790 16001 : end procedure
791 : #endif
792 :
793 : #if RK1_ENABLED
794 0 : module procedure inrange_D0_D1_RK1
795 : use pm_kind, only: RKC => RK1
796 : #include "pm_arrayMembership@routines.inc.F90"
797 0 : end procedure
798 : #endif
799 :
800 : #undef RK_ENABLED
801 :
802 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
803 :
804 : #undef D0_D1_ENABLED
805 :
806 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
808 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
809 :
810 : #define D1_D1_ENABLED 1
811 :
812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
813 :
814 : #define SK_ENABLED 1
815 :
816 : #if SK5_ENABLED
817 : module procedure inrange_D1_D1_SK5
818 : use pm_kind, only: SKC => SK5
819 : #include "pm_arrayMembership@routines.inc.F90"
820 : end procedure
821 : #endif
822 :
823 : #if SK4_ENABLED
824 : module procedure inrange_D1_D1_SK4
825 : use pm_kind, only: SKC => SK4
826 : #include "pm_arrayMembership@routines.inc.F90"
827 : end procedure
828 : #endif
829 :
830 : #if SK3_ENABLED
831 : module procedure inrange_D1_D1_SK3
832 : use pm_kind, only: SKC => SK3
833 : #include "pm_arrayMembership@routines.inc.F90"
834 : end procedure
835 : #endif
836 :
837 : #if SK2_ENABLED
838 : module procedure inrange_D1_D1_SK2
839 : use pm_kind, only: SKC => SK2
840 : #include "pm_arrayMembership@routines.inc.F90"
841 : end procedure
842 : #endif
843 :
844 : #if SK1_ENABLED
845 1 : module procedure inrange_D1_D1_SK1
846 : use pm_kind, only: SKC => SK1
847 : #include "pm_arrayMembership@routines.inc.F90"
848 1 : end procedure
849 : #endif
850 :
851 : #undef SK_ENABLED
852 :
853 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
854 :
855 : #define IK_ENABLED 1
856 :
857 : #if IK5_ENABLED
858 0 : module procedure inrange_D1_D1_IK5
859 : use pm_kind, only: IKC => IK5
860 : #include "pm_arrayMembership@routines.inc.F90"
861 0 : end procedure
862 : #endif
863 :
864 : #if IK4_ENABLED
865 0 : module procedure inrange_D1_D1_IK4
866 : use pm_kind, only: IKC => IK4
867 : #include "pm_arrayMembership@routines.inc.F90"
868 0 : end procedure
869 : #endif
870 :
871 : #if IK3_ENABLED
872 2 : module procedure inrange_D1_D1_IK3
873 : use pm_kind, only: IKC => IK3
874 : #include "pm_arrayMembership@routines.inc.F90"
875 2 : end procedure
876 : #endif
877 :
878 : #if IK2_ENABLED
879 0 : module procedure inrange_D1_D1_IK2
880 : use pm_kind, only: IKC => IK2
881 : #include "pm_arrayMembership@routines.inc.F90"
882 0 : end procedure
883 : #endif
884 :
885 : #if IK1_ENABLED
886 0 : module procedure inrange_D1_D1_IK1
887 : use pm_kind, only: IKC => IK1
888 : #include "pm_arrayMembership@routines.inc.F90"
889 0 : end procedure
890 : #endif
891 :
892 : #undef IK_ENABLED
893 :
894 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
895 :
896 : #define LK_ENABLED 1
897 :
898 : #if LK5_ENABLED
899 0 : module procedure inrange_D1_D1_LK5
900 : use pm_kind, only: LKC => LK5
901 : #include "pm_arrayMembership@routines.inc.F90"
902 0 : end procedure
903 : #endif
904 :
905 : #if LK4_ENABLED
906 0 : module procedure inrange_D1_D1_LK4
907 : use pm_kind, only: LKC => LK4
908 : #include "pm_arrayMembership@routines.inc.F90"
909 0 : end procedure
910 : #endif
911 :
912 : #if LK3_ENABLED
913 1 : module procedure inrange_D1_D1_LK3
914 : use pm_kind, only: LKC => LK3
915 : #include "pm_arrayMembership@routines.inc.F90"
916 1 : end procedure
917 : #endif
918 :
919 : #if LK2_ENABLED
920 0 : module procedure inrange_D1_D1_LK2
921 : use pm_kind, only: LKC => LK2
922 : #include "pm_arrayMembership@routines.inc.F90"
923 0 : end procedure
924 : #endif
925 :
926 : #if LK1_ENABLED
927 0 : module procedure inrange_D1_D1_LK1
928 : use pm_kind, only: LKC => LK1
929 : #include "pm_arrayMembership@routines.inc.F90"
930 0 : end procedure
931 : #endif
932 :
933 : #undef LK_ENABLED
934 :
935 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
936 :
937 : #define CK_ENABLED 1
938 :
939 : #if CK5_ENABLED
940 : module procedure inrange_D1_D1_CK5
941 : use pm_kind, only: CKC => CK5
942 : #include "pm_arrayMembership@routines.inc.F90"
943 : end procedure
944 : #endif
945 :
946 : #if CK4_ENABLED
947 0 : module procedure inrange_D1_D1_CK4
948 : use pm_kind, only: CKC => CK4
949 : #include "pm_arrayMembership@routines.inc.F90"
950 0 : end procedure
951 : #endif
952 :
953 : #if CK3_ENABLED
954 0 : module procedure inrange_D1_D1_CK3
955 : use pm_kind, only: CKC => CK3
956 : #include "pm_arrayMembership@routines.inc.F90"
957 0 : end procedure
958 : #endif
959 :
960 : #if CK2_ENABLED
961 0 : module procedure inrange_D1_D1_CK2
962 : use pm_kind, only: CKC => CK2
963 : #include "pm_arrayMembership@routines.inc.F90"
964 0 : end procedure
965 : #endif
966 :
967 : #if CK1_ENABLED
968 0 : module procedure inrange_D1_D1_CK1
969 : use pm_kind, only: CKC => CK1
970 : #include "pm_arrayMembership@routines.inc.F90"
971 0 : end procedure
972 : #endif
973 :
974 : #undef CK_ENABLED
975 :
976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
977 :
978 : #define RK_ENABLED 1
979 :
980 : #if RK5_ENABLED
981 : module procedure inrange_D1_D1_RK5
982 : use pm_kind, only: RKC => RK5
983 : #include "pm_arrayMembership@routines.inc.F90"
984 : end procedure
985 : #endif
986 :
987 : #if RK4_ENABLED
988 0 : module procedure inrange_D1_D1_RK4
989 : use pm_kind, only: RKC => RK4
990 : #include "pm_arrayMembership@routines.inc.F90"
991 0 : end procedure
992 : #endif
993 :
994 : #if RK3_ENABLED
995 0 : module procedure inrange_D1_D1_RK3
996 : use pm_kind, only: RKC => RK3
997 : #include "pm_arrayMembership@routines.inc.F90"
998 0 : end procedure
999 : #endif
1000 :
1001 : #if RK2_ENABLED
1002 1 : module procedure inrange_D1_D1_RK2
1003 : use pm_kind, only: RKC => RK2
1004 : #include "pm_arrayMembership@routines.inc.F90"
1005 1 : end procedure
1006 : #endif
1007 :
1008 : #if RK1_ENABLED
1009 0 : module procedure inrange_D1_D1_RK1
1010 : use pm_kind, only: RKC => RK1
1011 : #include "pm_arrayMembership@routines.inc.F90"
1012 0 : end procedure
1013 : #endif
1014 :
1015 : #undef RK_ENABLED
1016 :
1017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1018 :
1019 : #undef D1_D1_ENABLED
1020 :
1021 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1022 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1023 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1024 :
1025 : #undef inrange_ENABLED
1026 :
1027 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1028 :
1029 : #define allin_ENABLED 1
1030 :
1031 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1032 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1033 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1034 :
1035 : #define D0_D0_ENABLED 1
1036 :
1037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1038 :
1039 : #define SK_ENABLED 1
1040 :
1041 : #if SK5_ENABLED
1042 : module procedure allin_D0_D0_SK5
1043 : use pm_kind, only: SKC => SK5
1044 : #include "pm_arrayMembership@routines.inc.F90"
1045 : end procedure
1046 : #endif
1047 :
1048 : #if SK4_ENABLED
1049 : module procedure allin_D0_D0_SK4
1050 : use pm_kind, only: SKC => SK4
1051 : #include "pm_arrayMembership@routines.inc.F90"
1052 : end procedure
1053 : #endif
1054 :
1055 : #if SK3_ENABLED
1056 : module procedure allin_D0_D0_SK3
1057 : use pm_kind, only: SKC => SK3
1058 : #include "pm_arrayMembership@routines.inc.F90"
1059 : end procedure
1060 : #endif
1061 :
1062 : #if SK2_ENABLED
1063 : module procedure allin_D0_D0_SK2
1064 : use pm_kind, only: SKC => SK2
1065 : #include "pm_arrayMembership@routines.inc.F90"
1066 : end procedure
1067 : #endif
1068 :
1069 : #if SK1_ENABLED
1070 1009 : module procedure allin_D0_D0_SK1
1071 : use pm_kind, only: SKC => SK1
1072 : #include "pm_arrayMembership@routines.inc.F90"
1073 : end procedure
1074 : #endif
1075 :
1076 : #undef SK_ENABLED
1077 :
1078 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1079 :
1080 : #undef D0_D0_ENABLED
1081 :
1082 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1084 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1085 :
1086 : #define D1_D1_ENABLED 1
1087 :
1088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1089 :
1090 : #define SK_ENABLED 1
1091 :
1092 : #if SK5_ENABLED
1093 : module procedure allin_D1_D1_SK5
1094 : use pm_kind, only: SKC => SK5
1095 : #include "pm_arrayMembership@routines.inc.F90"
1096 : end procedure
1097 : #endif
1098 :
1099 : #if SK4_ENABLED
1100 : module procedure allin_D1_D1_SK4
1101 : use pm_kind, only: SKC => SK4
1102 : #include "pm_arrayMembership@routines.inc.F90"
1103 : end procedure
1104 : #endif
1105 :
1106 : #if SK3_ENABLED
1107 : module procedure allin_D1_D1_SK3
1108 : use pm_kind, only: SKC => SK3
1109 : #include "pm_arrayMembership@routines.inc.F90"
1110 : end procedure
1111 : #endif
1112 :
1113 : #if SK2_ENABLED
1114 : module procedure allin_D1_D1_SK2
1115 : use pm_kind, only: SKC => SK2
1116 : #include "pm_arrayMembership@routines.inc.F90"
1117 : end procedure
1118 : #endif
1119 :
1120 : #if SK1_ENABLED
1121 610 : module procedure allin_D1_D1_SK1
1122 : use pm_kind, only: SKC => SK1
1123 : #include "pm_arrayMembership@routines.inc.F90"
1124 : end procedure
1125 : #endif
1126 :
1127 : #undef SK_ENABLED
1128 :
1129 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1130 :
1131 : #define IK_ENABLED 1
1132 :
1133 : #if IK5_ENABLED
1134 1008 : module procedure allin_D1_D1_IK5
1135 : use pm_kind, only: IKC => IK5
1136 : #include "pm_arrayMembership@routines.inc.F90"
1137 : end procedure
1138 : #endif
1139 :
1140 : #if IK4_ENABLED
1141 1008 : module procedure allin_D1_D1_IK4
1142 : use pm_kind, only: IKC => IK4
1143 : #include "pm_arrayMembership@routines.inc.F90"
1144 : end procedure
1145 : #endif
1146 :
1147 : #if IK3_ENABLED
1148 1012 : module procedure allin_D1_D1_IK3
1149 : use pm_kind, only: IKC => IK3
1150 : #include "pm_arrayMembership@routines.inc.F90"
1151 : end procedure
1152 : #endif
1153 :
1154 : #if IK2_ENABLED
1155 1008 : module procedure allin_D1_D1_IK2
1156 : use pm_kind, only: IKC => IK2
1157 : #include "pm_arrayMembership@routines.inc.F90"
1158 : end procedure
1159 : #endif
1160 :
1161 : #if IK1_ENABLED
1162 1008 : module procedure allin_D1_D1_IK1
1163 : use pm_kind, only: IKC => IK1
1164 : #include "pm_arrayMembership@routines.inc.F90"
1165 : end procedure
1166 : #endif
1167 :
1168 : #undef IK_ENABLED
1169 :
1170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1171 :
1172 : #define LK_ENABLED 1
1173 :
1174 : #if LK5_ENABLED
1175 608 : module procedure allin_D1_D1_LK5
1176 : use pm_kind, only: LKC => LK5
1177 : #include "pm_arrayMembership@routines.inc.F90"
1178 : end procedure
1179 : #endif
1180 :
1181 : #if LK4_ENABLED
1182 608 : module procedure allin_D1_D1_LK4
1183 : use pm_kind, only: LKC => LK4
1184 : #include "pm_arrayMembership@routines.inc.F90"
1185 : end procedure
1186 : #endif
1187 :
1188 : #if LK3_ENABLED
1189 610 : module procedure allin_D1_D1_LK3
1190 : use pm_kind, only: LKC => LK3
1191 : #include "pm_arrayMembership@routines.inc.F90"
1192 : end procedure
1193 : #endif
1194 :
1195 : #if LK2_ENABLED
1196 608 : module procedure allin_D1_D1_LK2
1197 : use pm_kind, only: LKC => LK2
1198 : #include "pm_arrayMembership@routines.inc.F90"
1199 : end procedure
1200 : #endif
1201 :
1202 : #if LK1_ENABLED
1203 608 : module procedure allin_D1_D1_LK1
1204 : use pm_kind, only: LKC => LK1
1205 : #include "pm_arrayMembership@routines.inc.F90"
1206 : end procedure
1207 : #endif
1208 :
1209 : #undef LK_ENABLED
1210 :
1211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1212 :
1213 : #define CK_ENABLED 1
1214 :
1215 : #if CK5_ENABLED
1216 : module procedure allin_D1_D1_CK5
1217 : use pm_kind, only: CKC => CK5
1218 : #include "pm_arrayMembership@routines.inc.F90"
1219 : end procedure
1220 : #endif
1221 :
1222 : #if CK4_ENABLED
1223 608 : module procedure allin_D1_D1_CK4
1224 : use pm_kind, only: CKC => CK4
1225 : #include "pm_arrayMembership@routines.inc.F90"
1226 : end procedure
1227 : #endif
1228 :
1229 : #if CK3_ENABLED
1230 608 : module procedure allin_D1_D1_CK3
1231 : use pm_kind, only: CKC => CK3
1232 : #include "pm_arrayMembership@routines.inc.F90"
1233 : end procedure
1234 : #endif
1235 :
1236 : #if CK2_ENABLED
1237 608 : module procedure allin_D1_D1_CK2
1238 : use pm_kind, only: CKC => CK2
1239 : #include "pm_arrayMembership@routines.inc.F90"
1240 : end procedure
1241 : #endif
1242 :
1243 : #if CK1_ENABLED
1244 608 : module procedure allin_D1_D1_CK1
1245 : use pm_kind, only: CKC => CK1
1246 : #include "pm_arrayMembership@routines.inc.F90"
1247 : end procedure
1248 : #endif
1249 :
1250 : #undef CK_ENABLED
1251 :
1252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1253 :
1254 : #define RK_ENABLED 1
1255 :
1256 : #if RK5_ENABLED
1257 : module procedure allin_D1_D1_RK5
1258 : use pm_kind, only: RKC => RK5
1259 : #include "pm_arrayMembership@routines.inc.F90"
1260 : end procedure
1261 : #endif
1262 :
1263 : #if RK4_ENABLED
1264 1008 : module procedure allin_D1_D1_RK4
1265 : use pm_kind, only: RKC => RK4
1266 : #include "pm_arrayMembership@routines.inc.F90"
1267 : end procedure
1268 : #endif
1269 :
1270 : #if RK3_ENABLED
1271 1007 : module procedure allin_D1_D1_RK3
1272 : use pm_kind, only: RKC => RK3
1273 : #include "pm_arrayMembership@routines.inc.F90"
1274 : end procedure
1275 : #endif
1276 :
1277 : #if RK2_ENABLED
1278 1010 : module procedure allin_D1_D1_RK2
1279 : use pm_kind, only: RKC => RK2
1280 : #include "pm_arrayMembership@routines.inc.F90"
1281 : end procedure
1282 : #endif
1283 :
1284 : #if RK1_ENABLED
1285 1008 : module procedure allin_D1_D1_RK1
1286 : use pm_kind, only: RKC => RK1
1287 : #include "pm_arrayMembership@routines.inc.F90"
1288 : end procedure
1289 : #endif
1290 :
1291 : #undef RK_ENABLED
1292 :
1293 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1294 :
1295 : #undef D1_D1_ENABLED
1296 :
1297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1299 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1300 :
1301 : #undef allin_ENABLED
1302 :
1303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1304 :
1305 : #define allinrange_ENABLED 1
1306 :
1307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1310 :
1311 : #define D0_D0_ENABLED 1
1312 :
1313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1314 :
1315 : #define SK_ENABLED 1
1316 :
1317 : #if SK5_ENABLED
1318 : module procedure allinrange_D0_D0_SK5
1319 : use pm_kind, only: SKC => SK5
1320 : #include "pm_arrayMembership@routines.inc.F90"
1321 : end procedure
1322 : #endif
1323 :
1324 : #if SK4_ENABLED
1325 : module procedure allinrange_D0_D0_SK4
1326 : use pm_kind, only: SKC => SK4
1327 : #include "pm_arrayMembership@routines.inc.F90"
1328 : end procedure
1329 : #endif
1330 :
1331 : #if SK3_ENABLED
1332 : module procedure allinrange_D0_D0_SK3
1333 : use pm_kind, only: SKC => SK3
1334 : #include "pm_arrayMembership@routines.inc.F90"
1335 : end procedure
1336 : #endif
1337 :
1338 : #if SK2_ENABLED
1339 : module procedure allinrange_D0_D0_SK2
1340 : use pm_kind, only: SKC => SK2
1341 : #include "pm_arrayMembership@routines.inc.F90"
1342 : end procedure
1343 : #endif
1344 :
1345 : #if SK1_ENABLED
1346 2 : module procedure allinrange_D0_D0_SK1
1347 : use pm_kind, only: SKC => SK1
1348 : #include "pm_arrayMembership@routines.inc.F90"
1349 : end procedure
1350 : #endif
1351 :
1352 : #undef SK_ENABLED
1353 :
1354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1355 :
1356 : #undef D0_D0_ENABLED
1357 :
1358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1359 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1361 :
1362 : #define D1_D1_ENABLED 1
1363 :
1364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1365 :
1366 : #define SK_ENABLED 1
1367 :
1368 : #if SK5_ENABLED
1369 : module procedure allinrange_D1_D1_SK5
1370 : use pm_kind, only: SKC => SK5
1371 : #include "pm_arrayMembership@routines.inc.F90"
1372 : end procedure
1373 : #endif
1374 :
1375 : #if SK4_ENABLED
1376 : module procedure allinrange_D1_D1_SK4
1377 : use pm_kind, only: SKC => SK4
1378 : #include "pm_arrayMembership@routines.inc.F90"
1379 : end procedure
1380 : #endif
1381 :
1382 : #if SK3_ENABLED
1383 : module procedure allinrange_D1_D1_SK3
1384 : use pm_kind, only: SKC => SK3
1385 : #include "pm_arrayMembership@routines.inc.F90"
1386 : end procedure
1387 : #endif
1388 :
1389 : #if SK2_ENABLED
1390 : module procedure allinrange_D1_D1_SK2
1391 : use pm_kind, only: SKC => SK2
1392 : #include "pm_arrayMembership@routines.inc.F90"
1393 : end procedure
1394 : #endif
1395 :
1396 : #if SK1_ENABLED
1397 2 : module procedure allinrange_D1_D1_SK1
1398 : use pm_kind, only: SKC => SK1
1399 : #include "pm_arrayMembership@routines.inc.F90"
1400 : end procedure
1401 : #endif
1402 :
1403 : #undef SK_ENABLED
1404 :
1405 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1406 :
1407 : #define IK_ENABLED 1
1408 :
1409 : #if IK5_ENABLED
1410 0 : module procedure allinrange_D1_D1_IK5
1411 : use pm_kind, only: IKC => IK5
1412 : #include "pm_arrayMembership@routines.inc.F90"
1413 : end procedure
1414 : #endif
1415 :
1416 : #if IK4_ENABLED
1417 0 : module procedure allinrange_D1_D1_IK4
1418 : use pm_kind, only: IKC => IK4
1419 : #include "pm_arrayMembership@routines.inc.F90"
1420 : end procedure
1421 : #endif
1422 :
1423 : #if IK3_ENABLED
1424 4 : module procedure allinrange_D1_D1_IK3
1425 : use pm_kind, only: IKC => IK3
1426 : #include "pm_arrayMembership@routines.inc.F90"
1427 : end procedure
1428 : #endif
1429 :
1430 : #if IK2_ENABLED
1431 0 : module procedure allinrange_D1_D1_IK2
1432 : use pm_kind, only: IKC => IK2
1433 : #include "pm_arrayMembership@routines.inc.F90"
1434 : end procedure
1435 : #endif
1436 :
1437 : #if IK1_ENABLED
1438 0 : module procedure allinrange_D1_D1_IK1
1439 : use pm_kind, only: IKC => IK1
1440 : #include "pm_arrayMembership@routines.inc.F90"
1441 : end procedure
1442 : #endif
1443 :
1444 : #undef IK_ENABLED
1445 :
1446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1447 :
1448 : #define LK_ENABLED 1
1449 :
1450 : #if LK5_ENABLED
1451 0 : module procedure allinrange_D1_D1_LK5
1452 : use pm_kind, only: LKC => LK5
1453 : #include "pm_arrayMembership@routines.inc.F90"
1454 : end procedure
1455 : #endif
1456 :
1457 : #if LK4_ENABLED
1458 0 : module procedure allinrange_D1_D1_LK4
1459 : use pm_kind, only: LKC => LK4
1460 : #include "pm_arrayMembership@routines.inc.F90"
1461 : end procedure
1462 : #endif
1463 :
1464 : #if LK3_ENABLED
1465 2 : module procedure allinrange_D1_D1_LK3
1466 : use pm_kind, only: LKC => LK3
1467 : #include "pm_arrayMembership@routines.inc.F90"
1468 : end procedure
1469 : #endif
1470 :
1471 : #if LK2_ENABLED
1472 0 : module procedure allinrange_D1_D1_LK2
1473 : use pm_kind, only: LKC => LK2
1474 : #include "pm_arrayMembership@routines.inc.F90"
1475 : end procedure
1476 : #endif
1477 :
1478 : #if LK1_ENABLED
1479 0 : module procedure allinrange_D1_D1_LK1
1480 : use pm_kind, only: LKC => LK1
1481 : #include "pm_arrayMembership@routines.inc.F90"
1482 : end procedure
1483 : #endif
1484 :
1485 : #undef LK_ENABLED
1486 :
1487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1488 :
1489 : #define CK_ENABLED 1
1490 :
1491 : #if CK5_ENABLED
1492 : module procedure allinrange_D1_D1_CK5
1493 : use pm_kind, only: CKC => CK5
1494 : #include "pm_arrayMembership@routines.inc.F90"
1495 : end procedure
1496 : #endif
1497 :
1498 : #if CK4_ENABLED
1499 0 : module procedure allinrange_D1_D1_CK4
1500 : use pm_kind, only: CKC => CK4
1501 : #include "pm_arrayMembership@routines.inc.F90"
1502 : end procedure
1503 : #endif
1504 :
1505 : #if CK3_ENABLED
1506 0 : module procedure allinrange_D1_D1_CK3
1507 : use pm_kind, only: CKC => CK3
1508 : #include "pm_arrayMembership@routines.inc.F90"
1509 : end procedure
1510 : #endif
1511 :
1512 : #if CK2_ENABLED
1513 0 : module procedure allinrange_D1_D1_CK2
1514 : use pm_kind, only: CKC => CK2
1515 : #include "pm_arrayMembership@routines.inc.F90"
1516 : end procedure
1517 : #endif
1518 :
1519 : #if CK1_ENABLED
1520 0 : module procedure allinrange_D1_D1_CK1
1521 : use pm_kind, only: CKC => CK1
1522 : #include "pm_arrayMembership@routines.inc.F90"
1523 : end procedure
1524 : #endif
1525 :
1526 : #undef CK_ENABLED
1527 :
1528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1529 :
1530 : #define RK_ENABLED 1
1531 :
1532 : #if RK5_ENABLED
1533 : module procedure allinrange_D1_D1_RK5
1534 : use pm_kind, only: RKC => RK5
1535 : #include "pm_arrayMembership@routines.inc.F90"
1536 : end procedure
1537 : #endif
1538 :
1539 : #if RK4_ENABLED
1540 1900 : module procedure allinrange_D1_D1_RK4
1541 : use pm_kind, only: RKC => RK4
1542 : #include "pm_arrayMembership@routines.inc.F90"
1543 : end procedure
1544 : #endif
1545 :
1546 : #if RK3_ENABLED
1547 1900 : module procedure allinrange_D1_D1_RK3
1548 : use pm_kind, only: RKC => RK3
1549 : #include "pm_arrayMembership@routines.inc.F90"
1550 : end procedure
1551 : #endif
1552 :
1553 : #if RK2_ENABLED
1554 1902 : module procedure allinrange_D1_D1_RK2
1555 : use pm_kind, only: RKC => RK2
1556 : #include "pm_arrayMembership@routines.inc.F90"
1557 : end procedure
1558 : #endif
1559 :
1560 : #if RK1_ENABLED
1561 1900 : module procedure allinrange_D1_D1_RK1
1562 : use pm_kind, only: RKC => RK1
1563 : #include "pm_arrayMembership@routines.inc.F90"
1564 : end procedure
1565 : #endif
1566 :
1567 : #undef RK_ENABLED
1568 :
1569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1570 :
1571 : #undef D1_D1_ENABLED
1572 :
1573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1576 :
1577 : #undef allinrange_ENABLED
1578 :
1579 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1580 :
1581 : #define anyin_ENABLED 1
1582 :
1583 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1586 :
1587 : #define D0_D0_ENABLED 1
1588 :
1589 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1590 :
1591 : #define SK_ENABLED 1
1592 :
1593 : #if SK5_ENABLED
1594 : module procedure anyin_D0_D0_SK5
1595 : use pm_kind, only: SKC => SK5
1596 : #include "pm_arrayMembership@routines.inc.F90"
1597 : end procedure
1598 : #endif
1599 :
1600 : #if SK4_ENABLED
1601 : module procedure anyin_D0_D0_SK4
1602 : use pm_kind, only: SKC => SK4
1603 : #include "pm_arrayMembership@routines.inc.F90"
1604 : end procedure
1605 : #endif
1606 :
1607 : #if SK3_ENABLED
1608 : module procedure anyin_D0_D0_SK3
1609 : use pm_kind, only: SKC => SK3
1610 : #include "pm_arrayMembership@routines.inc.F90"
1611 : end procedure
1612 : #endif
1613 :
1614 : #if SK2_ENABLED
1615 : module procedure anyin_D0_D0_SK2
1616 : use pm_kind, only: SKC => SK2
1617 : #include "pm_arrayMembership@routines.inc.F90"
1618 : end procedure
1619 : #endif
1620 :
1621 : #if SK1_ENABLED
1622 2 : module procedure anyin_D0_D0_SK1
1623 : use pm_kind, only: SKC => SK1
1624 : #include "pm_arrayMembership@routines.inc.F90"
1625 : end procedure
1626 : #endif
1627 :
1628 : #undef SK_ENABLED
1629 :
1630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1631 :
1632 : #undef D0_D0_ENABLED
1633 :
1634 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1635 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1636 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1637 :
1638 : #define D1_D1_ENABLED 1
1639 :
1640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1641 :
1642 : #define SK_ENABLED 1
1643 :
1644 : #if SK5_ENABLED
1645 : module procedure anyin_D1_D1_SK5
1646 : use pm_kind, only: SKC => SK5
1647 : #include "pm_arrayMembership@routines.inc.F90"
1648 : end procedure
1649 : #endif
1650 :
1651 : #if SK4_ENABLED
1652 : module procedure anyin_D1_D1_SK4
1653 : use pm_kind, only: SKC => SK4
1654 : #include "pm_arrayMembership@routines.inc.F90"
1655 : end procedure
1656 : #endif
1657 :
1658 : #if SK3_ENABLED
1659 : module procedure anyin_D1_D1_SK3
1660 : use pm_kind, only: SKC => SK3
1661 : #include "pm_arrayMembership@routines.inc.F90"
1662 : end procedure
1663 : #endif
1664 :
1665 : #if SK2_ENABLED
1666 : module procedure anyin_D1_D1_SK2
1667 : use pm_kind, only: SKC => SK2
1668 : #include "pm_arrayMembership@routines.inc.F90"
1669 : end procedure
1670 : #endif
1671 :
1672 : #if SK1_ENABLED
1673 2 : module procedure anyin_D1_D1_SK1
1674 : use pm_kind, only: SKC => SK1
1675 : #include "pm_arrayMembership@routines.inc.F90"
1676 : end procedure
1677 : #endif
1678 :
1679 : #undef SK_ENABLED
1680 :
1681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1682 :
1683 : #define IK_ENABLED 1
1684 :
1685 : #if IK5_ENABLED
1686 0 : module procedure anyin_D1_D1_IK5
1687 : use pm_kind, only: IKC => IK5
1688 : #include "pm_arrayMembership@routines.inc.F90"
1689 : end procedure
1690 : #endif
1691 :
1692 : #if IK4_ENABLED
1693 0 : module procedure anyin_D1_D1_IK4
1694 : use pm_kind, only: IKC => IK4
1695 : #include "pm_arrayMembership@routines.inc.F90"
1696 : end procedure
1697 : #endif
1698 :
1699 : #if IK3_ENABLED
1700 4 : module procedure anyin_D1_D1_IK3
1701 : use pm_kind, only: IKC => IK3
1702 : #include "pm_arrayMembership@routines.inc.F90"
1703 : end procedure
1704 : #endif
1705 :
1706 : #if IK2_ENABLED
1707 0 : module procedure anyin_D1_D1_IK2
1708 : use pm_kind, only: IKC => IK2
1709 : #include "pm_arrayMembership@routines.inc.F90"
1710 : end procedure
1711 : #endif
1712 :
1713 : #if IK1_ENABLED
1714 0 : module procedure anyin_D1_D1_IK1
1715 : use pm_kind, only: IKC => IK1
1716 : #include "pm_arrayMembership@routines.inc.F90"
1717 : end procedure
1718 : #endif
1719 :
1720 : #undef IK_ENABLED
1721 :
1722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1723 :
1724 : #define LK_ENABLED 1
1725 :
1726 : #if LK5_ENABLED
1727 0 : module procedure anyin_D1_D1_LK5
1728 : use pm_kind, only: LKC => LK5
1729 : #include "pm_arrayMembership@routines.inc.F90"
1730 : end procedure
1731 : #endif
1732 :
1733 : #if LK4_ENABLED
1734 0 : module procedure anyin_D1_D1_LK4
1735 : use pm_kind, only: LKC => LK4
1736 : #include "pm_arrayMembership@routines.inc.F90"
1737 : end procedure
1738 : #endif
1739 :
1740 : #if LK3_ENABLED
1741 2 : module procedure anyin_D1_D1_LK3
1742 : use pm_kind, only: LKC => LK3
1743 : #include "pm_arrayMembership@routines.inc.F90"
1744 : end procedure
1745 : #endif
1746 :
1747 : #if LK2_ENABLED
1748 0 : module procedure anyin_D1_D1_LK2
1749 : use pm_kind, only: LKC => LK2
1750 : #include "pm_arrayMembership@routines.inc.F90"
1751 : end procedure
1752 : #endif
1753 :
1754 : #if LK1_ENABLED
1755 0 : module procedure anyin_D1_D1_LK1
1756 : use pm_kind, only: LKC => LK1
1757 : #include "pm_arrayMembership@routines.inc.F90"
1758 : end procedure
1759 : #endif
1760 :
1761 : #undef LK_ENABLED
1762 :
1763 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1764 :
1765 : #define CK_ENABLED 1
1766 :
1767 : #if CK5_ENABLED
1768 : module procedure anyin_D1_D1_CK5
1769 : use pm_kind, only: CKC => CK5
1770 : #include "pm_arrayMembership@routines.inc.F90"
1771 : end procedure
1772 : #endif
1773 :
1774 : #if CK4_ENABLED
1775 0 : module procedure anyin_D1_D1_CK4
1776 : use pm_kind, only: CKC => CK4
1777 : #include "pm_arrayMembership@routines.inc.F90"
1778 : end procedure
1779 : #endif
1780 :
1781 : #if CK3_ENABLED
1782 0 : module procedure anyin_D1_D1_CK3
1783 : use pm_kind, only: CKC => CK3
1784 : #include "pm_arrayMembership@routines.inc.F90"
1785 : end procedure
1786 : #endif
1787 :
1788 : #if CK2_ENABLED
1789 0 : module procedure anyin_D1_D1_CK2
1790 : use pm_kind, only: CKC => CK2
1791 : #include "pm_arrayMembership@routines.inc.F90"
1792 : end procedure
1793 : #endif
1794 :
1795 : #if CK1_ENABLED
1796 0 : module procedure anyin_D1_D1_CK1
1797 : use pm_kind, only: CKC => CK1
1798 : #include "pm_arrayMembership@routines.inc.F90"
1799 : end procedure
1800 : #endif
1801 :
1802 : #undef CK_ENABLED
1803 :
1804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1805 :
1806 : #define RK_ENABLED 1
1807 :
1808 : #if RK5_ENABLED
1809 : module procedure anyin_D1_D1_RK5
1810 : use pm_kind, only: RKC => RK5
1811 : #include "pm_arrayMembership@routines.inc.F90"
1812 : end procedure
1813 : #endif
1814 :
1815 : #if RK4_ENABLED
1816 0 : module procedure anyin_D1_D1_RK4
1817 : use pm_kind, only: RKC => RK4
1818 : #include "pm_arrayMembership@routines.inc.F90"
1819 : end procedure
1820 : #endif
1821 :
1822 : #if RK3_ENABLED
1823 0 : module procedure anyin_D1_D1_RK3
1824 : use pm_kind, only: RKC => RK3
1825 : #include "pm_arrayMembership@routines.inc.F90"
1826 : end procedure
1827 : #endif
1828 :
1829 : #if RK2_ENABLED
1830 2 : module procedure anyin_D1_D1_RK2
1831 : use pm_kind, only: RKC => RK2
1832 : #include "pm_arrayMembership@routines.inc.F90"
1833 : end procedure
1834 : #endif
1835 :
1836 : #if RK1_ENABLED
1837 0 : module procedure anyin_D1_D1_RK1
1838 : use pm_kind, only: RKC => RK1
1839 : #include "pm_arrayMembership@routines.inc.F90"
1840 : end procedure
1841 : #endif
1842 :
1843 : #undef RK_ENABLED
1844 :
1845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1846 :
1847 : #undef D1_D1_ENABLED
1848 :
1849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1850 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1852 :
1853 : #undef anyin_ENABLED
1854 :
1855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1856 :
1857 : #define anyinrange_ENABLED 1
1858 :
1859 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1860 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1861 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1862 :
1863 : #define D0_D0_ENABLED 1
1864 :
1865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1866 :
1867 : #define SK_ENABLED 1
1868 :
1869 : #if SK5_ENABLED
1870 : module procedure anyinrange_D0_D0_SK5
1871 : use pm_kind, only: SKC => SK5
1872 : #include "pm_arrayMembership@routines.inc.F90"
1873 : end procedure
1874 : #endif
1875 :
1876 : #if SK4_ENABLED
1877 : module procedure anyinrange_D0_D0_SK4
1878 : use pm_kind, only: SKC => SK4
1879 : #include "pm_arrayMembership@routines.inc.F90"
1880 : end procedure
1881 : #endif
1882 :
1883 : #if SK3_ENABLED
1884 : module procedure anyinrange_D0_D0_SK3
1885 : use pm_kind, only: SKC => SK3
1886 : #include "pm_arrayMembership@routines.inc.F90"
1887 : end procedure
1888 : #endif
1889 :
1890 : #if SK2_ENABLED
1891 : module procedure anyinrange_D0_D0_SK2
1892 : use pm_kind, only: SKC => SK2
1893 : #include "pm_arrayMembership@routines.inc.F90"
1894 : end procedure
1895 : #endif
1896 :
1897 : #if SK1_ENABLED
1898 2 : module procedure anyinrange_D0_D0_SK1
1899 : use pm_kind, only: SKC => SK1
1900 : #include "pm_arrayMembership@routines.inc.F90"
1901 : end procedure
1902 : #endif
1903 :
1904 : #undef SK_ENABLED
1905 :
1906 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1907 :
1908 : #undef D0_D0_ENABLED
1909 :
1910 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1911 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1912 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1913 :
1914 : #define D1_D1_ENABLED 1
1915 :
1916 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1917 :
1918 : #define SK_ENABLED 1
1919 :
1920 : #if SK5_ENABLED
1921 : module procedure anyinrange_D1_D1_SK5
1922 : use pm_kind, only: SKC => SK5
1923 : #include "pm_arrayMembership@routines.inc.F90"
1924 : end procedure
1925 : #endif
1926 :
1927 : #if SK4_ENABLED
1928 : module procedure anyinrange_D1_D1_SK4
1929 : use pm_kind, only: SKC => SK4
1930 : #include "pm_arrayMembership@routines.inc.F90"
1931 : end procedure
1932 : #endif
1933 :
1934 : #if SK3_ENABLED
1935 : module procedure anyinrange_D1_D1_SK3
1936 : use pm_kind, only: SKC => SK3
1937 : #include "pm_arrayMembership@routines.inc.F90"
1938 : end procedure
1939 : #endif
1940 :
1941 : #if SK2_ENABLED
1942 : module procedure anyinrange_D1_D1_SK2
1943 : use pm_kind, only: SKC => SK2
1944 : #include "pm_arrayMembership@routines.inc.F90"
1945 : end procedure
1946 : #endif
1947 :
1948 : #if SK1_ENABLED
1949 2 : module procedure anyinrange_D1_D1_SK1
1950 : use pm_kind, only: SKC => SK1
1951 : #include "pm_arrayMembership@routines.inc.F90"
1952 : end procedure
1953 : #endif
1954 :
1955 : #undef SK_ENABLED
1956 :
1957 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1958 :
1959 : #define IK_ENABLED 1
1960 :
1961 : #if IK5_ENABLED
1962 0 : module procedure anyinrange_D1_D1_IK5
1963 : use pm_kind, only: IKC => IK5
1964 : #include "pm_arrayMembership@routines.inc.F90"
1965 : end procedure
1966 : #endif
1967 :
1968 : #if IK4_ENABLED
1969 0 : module procedure anyinrange_D1_D1_IK4
1970 : use pm_kind, only: IKC => IK4
1971 : #include "pm_arrayMembership@routines.inc.F90"
1972 : end procedure
1973 : #endif
1974 :
1975 : #if IK3_ENABLED
1976 4 : module procedure anyinrange_D1_D1_IK3
1977 : use pm_kind, only: IKC => IK3
1978 : #include "pm_arrayMembership@routines.inc.F90"
1979 : end procedure
1980 : #endif
1981 :
1982 : #if IK2_ENABLED
1983 0 : module procedure anyinrange_D1_D1_IK2
1984 : use pm_kind, only: IKC => IK2
1985 : #include "pm_arrayMembership@routines.inc.F90"
1986 : end procedure
1987 : #endif
1988 :
1989 : #if IK1_ENABLED
1990 0 : module procedure anyinrange_D1_D1_IK1
1991 : use pm_kind, only: IKC => IK1
1992 : #include "pm_arrayMembership@routines.inc.F90"
1993 : end procedure
1994 : #endif
1995 :
1996 : #undef IK_ENABLED
1997 :
1998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1999 :
2000 : #define LK_ENABLED 1
2001 :
2002 : #if LK5_ENABLED
2003 0 : module procedure anyinrange_D1_D1_LK5
2004 : use pm_kind, only: LKC => LK5
2005 : #include "pm_arrayMembership@routines.inc.F90"
2006 : end procedure
2007 : #endif
2008 :
2009 : #if LK4_ENABLED
2010 0 : module procedure anyinrange_D1_D1_LK4
2011 : use pm_kind, only: LKC => LK4
2012 : #include "pm_arrayMembership@routines.inc.F90"
2013 : end procedure
2014 : #endif
2015 :
2016 : #if LK3_ENABLED
2017 2 : module procedure anyinrange_D1_D1_LK3
2018 : use pm_kind, only: LKC => LK3
2019 : #include "pm_arrayMembership@routines.inc.F90"
2020 : end procedure
2021 : #endif
2022 :
2023 : #if LK2_ENABLED
2024 0 : module procedure anyinrange_D1_D1_LK2
2025 : use pm_kind, only: LKC => LK2
2026 : #include "pm_arrayMembership@routines.inc.F90"
2027 : end procedure
2028 : #endif
2029 :
2030 : #if LK1_ENABLED
2031 0 : module procedure anyinrange_D1_D1_LK1
2032 : use pm_kind, only: LKC => LK1
2033 : #include "pm_arrayMembership@routines.inc.F90"
2034 : end procedure
2035 : #endif
2036 :
2037 : #undef LK_ENABLED
2038 :
2039 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2040 :
2041 : #define CK_ENABLED 1
2042 :
2043 : #if CK5_ENABLED
2044 : module procedure anyinrange_D1_D1_CK5
2045 : use pm_kind, only: CKC => CK5
2046 : #include "pm_arrayMembership@routines.inc.F90"
2047 : end procedure
2048 : #endif
2049 :
2050 : #if CK4_ENABLED
2051 0 : module procedure anyinrange_D1_D1_CK4
2052 : use pm_kind, only: CKC => CK4
2053 : #include "pm_arrayMembership@routines.inc.F90"
2054 : end procedure
2055 : #endif
2056 :
2057 : #if CK3_ENABLED
2058 0 : module procedure anyinrange_D1_D1_CK3
2059 : use pm_kind, only: CKC => CK3
2060 : #include "pm_arrayMembership@routines.inc.F90"
2061 : end procedure
2062 : #endif
2063 :
2064 : #if CK2_ENABLED
2065 0 : module procedure anyinrange_D1_D1_CK2
2066 : use pm_kind, only: CKC => CK2
2067 : #include "pm_arrayMembership@routines.inc.F90"
2068 : end procedure
2069 : #endif
2070 :
2071 : #if CK1_ENABLED
2072 0 : module procedure anyinrange_D1_D1_CK1
2073 : use pm_kind, only: CKC => CK1
2074 : #include "pm_arrayMembership@routines.inc.F90"
2075 : end procedure
2076 : #endif
2077 :
2078 : #undef CK_ENABLED
2079 :
2080 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2081 :
2082 : #define RK_ENABLED 1
2083 :
2084 : #if RK5_ENABLED
2085 : module procedure anyinrange_D1_D1_RK5
2086 : use pm_kind, only: RKC => RK5
2087 : #include "pm_arrayMembership@routines.inc.F90"
2088 : end procedure
2089 : #endif
2090 :
2091 : #if RK4_ENABLED
2092 0 : module procedure anyinrange_D1_D1_RK4
2093 : use pm_kind, only: RKC => RK4
2094 : #include "pm_arrayMembership@routines.inc.F90"
2095 : end procedure
2096 : #endif
2097 :
2098 : #if RK3_ENABLED
2099 0 : module procedure anyinrange_D1_D1_RK3
2100 : use pm_kind, only: RKC => RK3
2101 : #include "pm_arrayMembership@routines.inc.F90"
2102 : end procedure
2103 : #endif
2104 :
2105 : #if RK2_ENABLED
2106 2 : module procedure anyinrange_D1_D1_RK2
2107 : use pm_kind, only: RKC => RK2
2108 : #include "pm_arrayMembership@routines.inc.F90"
2109 : end procedure
2110 : #endif
2111 :
2112 : #if RK1_ENABLED
2113 0 : module procedure anyinrange_D1_D1_RK1
2114 : use pm_kind, only: RKC => RK1
2115 : #include "pm_arrayMembership@routines.inc.F90"
2116 : end procedure
2117 : #endif
2118 :
2119 : #undef RK_ENABLED
2120 :
2121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2122 :
2123 : #undef D1_D1_ENABLED
2124 :
2125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2128 :
2129 : #undef anyinrange_ENABLED
2130 :
2131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2132 :
2133 : end submodule routines
|