ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayMembership.F90
Go to the documentation of this file.
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
72
73!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
74
76
77 use pm_kind, only: SK, IK, LK
78 implicit none
79
80 character(*, SK), parameter :: MODULE_NAME = "@pm_arrayMembership"
81
142 interface operator(.in.)
143
144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
146 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
147
148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149
150#if SK5_ENABLED
151 pure module function in_D0_D0_SK5(val, set) result(member)
152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
153 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D0_SK5
154#endif
155 use pm_kind, only: SKG => SK5
156 character(*,SKG) , intent(in) :: val
157 character(*,SKG) , intent(in) :: set
158 logical(LK) :: member(len(val, IK))
159 end function
160#endif
161
162#if SK4_ENABLED
163 pure module function in_D0_D0_SK4(val, set) result(member)
164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
165 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D0_SK4
166#endif
167 use pm_kind, only: SKG => SK4
168 character(*,SKG) , intent(in) :: val
169 character(*,SKG) , intent(in) :: set
170 logical(LK) :: member(len(val, IK))
171 end function
172#endif
173
174#if SK3_ENABLED
175 pure module function in_D0_D0_SK3(val, set) result(member)
176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
177 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D0_SK3
178#endif
179 use pm_kind, only: SKG => SK3
180 character(*,SKG) , intent(in) :: val
181 character(*,SKG) , intent(in) :: set
182 logical(LK) :: member(len(val, IK))
183 end function
184#endif
185
186#if SK2_ENABLED
187 pure module function in_D0_D0_SK2(val, set) result(member)
188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
189 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D0_SK2
190#endif
191 use pm_kind, only: SKG => SK2
192 character(*,SKG) , intent(in) :: val
193 character(*,SKG) , intent(in) :: set
194 logical(LK) :: member(len(val, IK))
195 end function
196#endif
197
198#if SK1_ENABLED
199 pure module function in_D0_D0_SK1(val, set) result(member)
200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
201 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D0_SK1
202#endif
203 use pm_kind, only: SKG => SK1
204 character(*,SKG) , intent(in) :: val
205 character(*,SKG) , intent(in) :: set
206 logical(LK) :: member(len(val, IK))
207 end function
208#endif
209
210 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
211
212 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
215
216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
217
218#if SK5_ENABLED
219 pure module function in_D0_D1_SK5(val, set) result(member)
220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
221 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_SK5
222#endif
223 use pm_kind, only: SKG => SK5
224 character(*,SKG) , intent(in) :: val
225 character(*,SKG) , intent(in), contiguous :: set(:)
226 logical(LK) :: member
227 end function
228#endif
229
230#if SK4_ENABLED
231 pure module function in_D0_D1_SK4(val, set) result(member)
232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
233 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_SK4
234#endif
235 use pm_kind, only: SKG => SK4
236 character(*,SKG) , intent(in) :: val
237 character(*,SKG) , intent(in), contiguous :: set(:)
238 logical(LK) :: member
239 end function
240#endif
241
242#if SK3_ENABLED
243 pure module function in_D0_D1_SK3(val, set) result(member)
244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
245 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_SK3
246#endif
247 use pm_kind, only: SKG => SK3
248 character(*,SKG) , intent(in) :: val
249 character(*,SKG) , intent(in), contiguous :: set(:)
250 logical(LK) :: member
251 end function
252#endif
253
254#if SK2_ENABLED
255 pure module function in_D0_D1_SK2(val, set) result(member)
256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
257 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_SK2
258#endif
259 use pm_kind, only: SKG => SK2
260 character(*,SKG) , intent(in) :: val
261 character(*,SKG) , intent(in), contiguous :: set(:)
262 logical(LK) :: member
263 end function
264#endif
265
266#if SK1_ENABLED
267 pure module function in_D0_D1_SK1(val, set) result(member)
268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
269 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_SK1
270#endif
271 use pm_kind, only: SKG => SK1
272 character(*,SKG) , intent(in) :: val
273 character(*,SKG) , intent(in), contiguous :: set(:)
274 logical(LK) :: member
275 end function
276#endif
277
278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
279
280#if IK5_ENABLED
281 pure module function in_D0_D1_IK5(val, set) result(member)
282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
283 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_IK5
284#endif
285 use pm_kind, only: IKG => IK5
286 integer(IKG) , intent(in) :: val
287 integer(IKG) , intent(in), contiguous :: set(:)
288 logical(LK) :: member
289 end function
290#endif
291
292#if IK4_ENABLED
293 pure module function in_D0_D1_IK4(val, set) result(member)
294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
295 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_IK4
296#endif
297 use pm_kind, only: IKG => IK4
298 integer(IKG) , intent(in) :: val
299 integer(IKG) , intent(in), contiguous :: set(:)
300 logical(LK) :: member
301 end function
302#endif
303
304#if IK3_ENABLED
305 pure module function in_D0_D1_IK3(val, set) result(member)
306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
307 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_IK3
308#endif
309 use pm_kind, only: IKG => IK3
310 integer(IKG) , intent(in) :: val
311 integer(IKG) , intent(in), contiguous :: set(:)
312 logical(LK) :: member
313 end function
314#endif
315
316#if IK2_ENABLED
317 pure module function in_D0_D1_IK2(val, set) result(member)
318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
319 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_IK2
320#endif
321 use pm_kind, only: IKG => IK2
322 integer(IKG) , intent(in) :: val
323 integer(IKG) , intent(in), contiguous :: set(:)
324 logical(LK) :: member
325 end function
326#endif
327
328#if IK1_ENABLED
329 pure module function in_D0_D1_IK1(val, set) result(member)
330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
331 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_IK1
332#endif
333 use pm_kind, only: IKG => IK1
334 integer(IKG) , intent(in) :: val
335 integer(IKG) , intent(in), contiguous :: set(:)
336 logical(LK) :: member
337 end function
338#endif
339
340 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341
342#if LK5_ENABLED
343 pure module function in_D0_D1_LK5(val, set) result(member)
344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
345 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_LK5
346#endif
347 use pm_kind, only: LKG => LK5
348 logical(LKG) , intent(in) :: val
349 logical(LKG) , intent(in), contiguous :: set(:)
350 logical(LK) :: member
351 end function
352#endif
353
354#if LK4_ENABLED
355 pure module function in_D0_D1_LK4(val, set) result(member)
356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
357 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_LK4
358#endif
359 use pm_kind, only: LKG => LK4
360 logical(LKG) , intent(in) :: val
361 logical(LKG) , intent(in), contiguous :: set(:)
362 logical(LK) :: member
363 end function
364#endif
365
366#if LK3_ENABLED
367 pure module function in_D0_D1_LK3(val, set) result(member)
368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
369 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_LK3
370#endif
371 use pm_kind, only: LKG => LK3
372 logical(LKG) , intent(in) :: val
373 logical(LKG) , intent(in), contiguous :: set(:)
374 logical(LK) :: member
375 end function
376#endif
377
378#if LK2_ENABLED
379 pure module function in_D0_D1_LK2(val, set) result(member)
380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
381 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_LK2
382#endif
383 use pm_kind, only: LKG => LK2
384 logical(LKG) , intent(in) :: val
385 logical(LKG) , intent(in), contiguous :: set(:)
386 logical(LK) :: member
387 end function
388#endif
389
390#if LK1_ENABLED
391 pure module function in_D0_D1_LK1(val, set) result(member)
392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
393 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_LK1
394#endif
395 use pm_kind, only: LKG => LK1
396 logical(LKG) , intent(in) :: val
397 logical(LKG) , intent(in), contiguous :: set(:)
398 logical(LK) :: member
399 end function
400#endif
401
402 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
403
404#if CK5_ENABLED
405 pure module function in_D0_D1_CK5(val, set) result(member)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_CK5
408#endif
409 use pm_kind, only: CKG => CK5
410 complex(CKG) , intent(in) :: val
411 complex(CKG) , intent(in), contiguous :: set(:)
412 logical(LK) :: member
413 end function
414#endif
415
416#if CK4_ENABLED
417 pure module function in_D0_D1_CK4(val, set) result(member)
418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
419 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_CK4
420#endif
421 use pm_kind, only: CKG => CK4
422 complex(CKG) , intent(in) :: val
423 complex(CKG) , intent(in), contiguous :: set(:)
424 logical(LK) :: member
425 end function
426#endif
427
428#if CK3_ENABLED
429 pure module function in_D0_D1_CK3(val, set) result(member)
430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
431 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_CK3
432#endif
433 use pm_kind, only: CKG => CK3
434 complex(CKG) , intent(in) :: val
435 complex(CKG) , intent(in), contiguous :: set(:)
436 logical(LK) :: member
437 end function
438#endif
439
440#if CK2_ENABLED
441 pure module function in_D0_D1_CK2(val, set) result(member)
442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
443 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_CK2
444#endif
445 use pm_kind, only: CKG => CK2
446 complex(CKG) , intent(in) :: val
447 complex(CKG) , intent(in), contiguous :: set(:)
448 logical(LK) :: member
449 end function
450#endif
451
452#if CK1_ENABLED
453 pure module function in_D0_D1_CK1(val, set) result(member)
454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
455 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_CK1
456#endif
457 use pm_kind, only: CKG => CK1
458 complex(CKG) , intent(in) :: val
459 complex(CKG) , intent(in), contiguous :: set(:)
460 logical(LK) :: member
461 end function
462#endif
463
464 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465
466#if RK5_ENABLED
467 pure module function in_D0_D1_RK5(val, set) result(member)
468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
469 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_RK5
470#endif
471 use pm_kind, only: RKG => RK5
472 real(RKG) , intent(in) :: val
473 real(RKG) , intent(in), contiguous :: set(:)
474 logical(LK) :: member
475 end function
476#endif
477
478#if RK4_ENABLED
479 pure module function in_D0_D1_RK4(val, set) result(member)
480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
481 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_RK4
482#endif
483 use pm_kind, only: RKG => RK4
484 real(RKG) , intent(in) :: val
485 real(RKG) , intent(in), contiguous :: set(:)
486 logical(LK) :: member
487 end function
488#endif
489
490#if RK3_ENABLED
491 pure module function in_D0_D1_RK3(val, set) result(member)
492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
493 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_RK3
494#endif
495 use pm_kind, only: RKG => RK3
496 real(RKG) , intent(in) :: val
497 real(RKG) , intent(in), contiguous :: set(:)
498 logical(LK) :: member
499 end function
500#endif
501
502#if RK2_ENABLED
503 pure module function in_D0_D1_RK2(val, set) result(member)
504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
505 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_RK2
506#endif
507 use pm_kind, only: RKG => RK2
508 real(RKG) , intent(in) :: val
509 real(RKG) , intent(in), contiguous :: set(:)
510 logical(LK) :: member
511 end function
512#endif
513
514#if RK1_ENABLED
515 pure module function in_D0_D1_RK1(val, set) result(member)
516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
517 !DEC$ ATTRIBUTES DLLEXPORT :: in_D0_D1_RK1
518#endif
519 use pm_kind, only: RKG => RK1
520 real(RKG) , intent(in) :: val
521 real(RKG) , intent(in), contiguous :: set(:)
522 logical(LK) :: member
523 end function
524#endif
525
526 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527
528 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
530 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
531
532 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533
534#if SK5_ENABLED
535 pure module function in_D1_D1_SK5(val, set) result(member)
536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
537 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_SK5
538#endif
539 use pm_kind, only: SKG => SK5
540 character(*,SKG) , intent(in), contiguous :: val(:)
541 character(*,SKG) , intent(in), contiguous :: set(:)
542 logical(LK) :: member(size(val, 1, IK))
543 end function
544#endif
545
546#if SK4_ENABLED
547 pure module function in_D1_D1_SK4(val, set) result(member)
548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
549 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_SK4
550#endif
551 use pm_kind, only: SKG => SK4
552 character(*,SKG) , intent(in), contiguous :: val(:)
553 character(*,SKG) , intent(in), contiguous :: set(:)
554 logical(LK) :: member(size(val, 1, IK))
555 end function
556#endif
557
558#if SK3_ENABLED
559 pure module function in_D1_D1_SK3(val, set) result(member)
560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
561 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_SK3
562#endif
563 use pm_kind, only: SKG => SK3
564 character(*,SKG) , intent(in), contiguous :: val(:)
565 character(*,SKG) , intent(in), contiguous :: set(:)
566 logical(LK) :: member(size(val, 1, IK))
567 end function
568#endif
569
570#if SK2_ENABLED
571 pure module function in_D1_D1_SK2(val, set) result(member)
572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
573 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_SK2
574#endif
575 use pm_kind, only: SKG => SK2
576 character(*,SKG) , intent(in), contiguous :: val(:)
577 character(*,SKG) , intent(in), contiguous :: set(:)
578 logical(LK) :: member(size(val, 1, IK))
579 end function
580#endif
581
582#if SK1_ENABLED
583 pure module function in_D1_D1_SK1(val, set) result(member)
584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
585 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_SK1
586#endif
587 use pm_kind, only: SKG => SK1
588 character(*,SKG) , intent(in), contiguous :: val(:)
589 character(*,SKG) , intent(in), contiguous :: set(:)
590 logical(LK) :: member(size(val, 1, IK))
591 end function
592#endif
593
594 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
595
596#if IK5_ENABLED
597 pure module function in_D1_D1_IK5(val, set) result(member)
598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
599 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_IK5
600#endif
601 use pm_kind, only: IKG => IK5
602 integer(IKG) , intent(in), contiguous :: val(:)
603 integer(IKG) , intent(in), contiguous :: set(:)
604 logical(LK) :: member(size(val, 1, IK))
605 end function
606#endif
607
608#if IK4_ENABLED
609 pure module function in_D1_D1_IK4(val, set) result(member)
610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
611 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_IK4
612#endif
613 use pm_kind, only: IKG => IK4
614 integer(IKG) , intent(in), contiguous :: val(:)
615 integer(IKG) , intent(in), contiguous :: set(:)
616 logical(LK) :: member(size(val, 1, IK))
617 end function
618#endif
619
620#if IK3_ENABLED
621 pure module function in_D1_D1_IK3(val, set) result(member)
622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
623 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_IK3
624#endif
625 use pm_kind, only: IKG => IK3
626 integer(IKG) , intent(in), contiguous :: val(:)
627 integer(IKG) , intent(in), contiguous :: set(:)
628 logical(LK) :: member(size(val, 1, IK))
629 end function
630#endif
631
632#if IK2_ENABLED
633 pure module function in_D1_D1_IK2(val, set) result(member)
634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
635 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_IK2
636#endif
637 use pm_kind, only: IKG => IK2
638 integer(IKG) , intent(in), contiguous :: val(:)
639 integer(IKG) , intent(in), contiguous :: set(:)
640 logical(LK) :: member(size(val, 1, IK))
641 end function
642#endif
643
644#if IK1_ENABLED
645 pure module function in_D1_D1_IK1(val, set) result(member)
646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
647 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_IK1
648#endif
649 use pm_kind, only: IKG => IK1
650 integer(IKG) , intent(in), contiguous :: val(:)
651 integer(IKG) , intent(in), contiguous :: set(:)
652 logical(LK) :: member(size(val, 1, IK))
653 end function
654#endif
655
656 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
657
658#if LK5_ENABLED
659 pure module function in_D1_D1_LK5(val, set) result(member)
660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
661 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_LK5
662#endif
663 use pm_kind, only: LKG => LK5
664 logical(LKG) , intent(in), contiguous :: val(:)
665 logical(LKG) , intent(in), contiguous :: set(:)
666 logical(LK) :: member(size(val, 1, IK))
667 end function
668#endif
669
670#if LK4_ENABLED
671 pure module function in_D1_D1_LK4(val, set) result(member)
672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
673 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_LK4
674#endif
675 use pm_kind, only: LKG => LK4
676 logical(LKG) , intent(in), contiguous :: val(:)
677 logical(LKG) , intent(in), contiguous :: set(:)
678 logical(LK) :: member(size(val, 1, IK))
679 end function
680#endif
681
682#if LK3_ENABLED
683 pure module function in_D1_D1_LK3(val, set) result(member)
684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
685 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_LK3
686#endif
687 use pm_kind, only: LKG => LK3
688 logical(LKG) , intent(in), contiguous :: val(:)
689 logical(LKG) , intent(in), contiguous :: set(:)
690 logical(LK) :: member(size(val, 1, IK))
691 end function
692#endif
693
694#if LK2_ENABLED
695 pure module function in_D1_D1_LK2(val, set) result(member)
696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
697 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_LK2
698#endif
699 use pm_kind, only: LKG => LK2
700 logical(LKG) , intent(in), contiguous :: val(:)
701 logical(LKG) , intent(in), contiguous :: set(:)
702 logical(LK) :: member(size(val, 1, IK))
703 end function
704#endif
705
706#if LK1_ENABLED
707 pure module function in_D1_D1_LK1(val, set) result(member)
708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
709 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_LK1
710#endif
711 use pm_kind, only: LKG => LK1
712 logical(LKG) , intent(in), contiguous :: val(:)
713 logical(LKG) , intent(in), contiguous :: set(:)
714 logical(LK) :: member(size(val, 1, IK))
715 end function
716#endif
717
718 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
719
720#if CK5_ENABLED
721 pure module function in_D1_D1_CK5(val, set) result(member)
722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
723 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_CK5
724#endif
725 use pm_kind, only: CKG => CK5
726 complex(CKG) , intent(in), contiguous :: val(:)
727 complex(CKG) , intent(in), contiguous :: set(:)
728 logical(LK) :: member(size(val, 1, IK))
729 end function
730#endif
731
732#if CK4_ENABLED
733 pure module function in_D1_D1_CK4(val, set) result(member)
734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
735 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_CK4
736#endif
737 use pm_kind, only: CKG => CK4
738 complex(CKG) , intent(in), contiguous :: val(:)
739 complex(CKG) , intent(in), contiguous :: set(:)
740 logical(LK) :: member(size(val, 1, IK))
741 end function
742#endif
743
744#if CK3_ENABLED
745 pure module function in_D1_D1_CK3(val, set) result(member)
746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
747 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_CK3
748#endif
749 use pm_kind, only: CKG => CK3
750 complex(CKG) , intent(in), contiguous :: val(:)
751 complex(CKG) , intent(in), contiguous :: set(:)
752 logical(LK) :: member(size(val, 1, IK))
753 end function
754#endif
755
756#if CK2_ENABLED
757 pure module function in_D1_D1_CK2(val, set) result(member)
758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
759 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_CK2
760#endif
761 use pm_kind, only: CKG => CK2
762 complex(CKG) , intent(in), contiguous :: val(:)
763 complex(CKG) , intent(in), contiguous :: set(:)
764 logical(LK) :: member(size(val, 1, IK))
765 end function
766#endif
767
768#if CK1_ENABLED
769 pure module function in_D1_D1_CK1(val, set) result(member)
770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
771 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_CK1
772#endif
773 use pm_kind, only: CKG => CK1
774 complex(CKG) , intent(in), contiguous :: val(:)
775 complex(CKG) , intent(in), contiguous :: set(:)
776 logical(LK) :: member(size(val, 1, IK))
777 end function
778#endif
779
780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781
782#if RK5_ENABLED
783 pure module function in_D1_D1_RK5(val, set) result(member)
784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
785 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_RK5
786#endif
787 use pm_kind, only: RKG => RK5
788 real(RKG) , intent(in), contiguous :: val(:)
789 real(RKG) , intent(in), contiguous :: set(:)
790 logical(LK) :: member(size(val, 1, IK))
791 end function
792#endif
793
794#if RK4_ENABLED
795 pure module function in_D1_D1_RK4(val, set) result(member)
796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
797 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_RK4
798#endif
799 use pm_kind, only: RKG => RK4
800 real(RKG) , intent(in), contiguous :: val(:)
801 real(RKG) , intent(in), contiguous :: set(:)
802 logical(LK) :: member(size(val, 1, IK))
803 end function
804#endif
805
806#if RK3_ENABLED
807 pure module function in_D1_D1_RK3(val, set) result(member)
808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
809 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_RK3
810#endif
811 use pm_kind, only: RKG => RK3
812 real(RKG) , intent(in), contiguous :: val(:)
813 real(RKG) , intent(in), contiguous :: set(:)
814 logical(LK) :: member(size(val, 1, IK))
815 end function
816#endif
817
818#if RK2_ENABLED
819 pure module function in_D1_D1_RK2(val, set) result(member)
820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
821 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_RK2
822#endif
823 use pm_kind, only: RKG => RK2
824 real(RKG) , intent(in), contiguous :: val(:)
825 real(RKG) , intent(in), contiguous :: set(:)
826 logical(LK) :: member(size(val, 1, IK))
827 end function
828#endif
829
830#if RK1_ENABLED
831 pure module function in_D1_D1_RK1(val, set) result(member)
832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
833 !DEC$ ATTRIBUTES DLLEXPORT :: in_D1_D1_RK1
834#endif
835 use pm_kind, only: RKG => RK1
836 real(RKG) , intent(in), contiguous :: val(:)
837 real(RKG) , intent(in), contiguous :: set(:)
838 logical(LK) :: member(size(val, 1, IK))
839 end function
840#endif
841
842 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
843
844 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
847
848 end interface
849
850!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
851
924 interface operator(.inrange.)
925
926 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
927 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
928 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
929
930 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
931
932#if SK5_ENABLED
933 pure module function inrange_D0_D0_SK5(val, set) result(member)
934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
935 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D0_SK5
936#endif
937 use pm_kind, only: SKG => SK5
938 character(*,SKG) , intent(in) :: val
939 character(2,SKG) , intent(in) :: set
940 logical(LK) :: member(len(val, IK))
941 end function
942#endif
943
944#if SK4_ENABLED
945 pure module function inrange_D0_D0_SK4(val, set) result(member)
946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
947 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D0_SK4
948#endif
949 use pm_kind, only: SKG => SK4
950 character(*,SKG) , intent(in) :: val
951 character(2,SKG) , intent(in) :: set
952 logical(LK) :: member(len(val, IK))
953 end function
954#endif
955
956#if SK3_ENABLED
957 pure module function inrange_D0_D0_SK3(val, set) result(member)
958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
959 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D0_SK3
960#endif
961 use pm_kind, only: SKG => SK3
962 character(*,SKG) , intent(in) :: val
963 character(2,SKG) , intent(in) :: set
964 logical(LK) :: member(len(val, IK))
965 end function
966#endif
967
968#if SK2_ENABLED
969 pure module function inrange_D0_D0_SK2(val, set) result(member)
970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
971 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D0_SK2
972#endif
973 use pm_kind, only: SKG => SK2
974 character(*,SKG) , intent(in) :: val
975 character(2,SKG) , intent(in) :: set
976 logical(LK) :: member(len(val, IK))
977 end function
978#endif
979
980#if SK1_ENABLED
981 pure module function inrange_D0_D0_SK1(val, set) result(member)
982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
983 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D0_SK1
984#endif
985 use pm_kind, only: SKG => SK1
986 character(*,SKG) , intent(in) :: val
987 character(2,SKG) , intent(in) :: set
988 logical(LK) :: member(len(val, IK))
989 end function
990#endif
991
992 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
993
994 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
995 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
996 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997
998 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
999
1000#if SK5_ENABLED
1001 pure module function inrange_D0_D1_SK5(val, set) result(member)
1002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1003 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_SK5
1004#endif
1005 use pm_kind, only: SKG => SK5
1006 character(*,SKG) , intent(in) :: val
1007 character(*,SKG) , intent(in) :: set(2)
1008 logical(LK) :: member
1009 end function
1010#endif
1011
1012#if SK4_ENABLED
1013 pure module function inrange_D0_D1_SK4(val, set) result(member)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_SK4
1016#endif
1017 use pm_kind, only: SKG => SK4
1018 character(*,SKG) , intent(in) :: val
1019 character(*,SKG) , intent(in) :: set(2)
1020 logical(LK) :: member
1021 end function
1022#endif
1023
1024#if SK3_ENABLED
1025 pure module function inrange_D0_D1_SK3(val, set) result(member)
1026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1027 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_SK3
1028#endif
1029 use pm_kind, only: SKG => SK3
1030 character(*,SKG) , intent(in) :: val
1031 character(*,SKG) , intent(in) :: set(2)
1032 logical(LK) :: member
1033 end function
1034#endif
1035
1036#if SK2_ENABLED
1037 pure module function inrange_D0_D1_SK2(val, set) result(member)
1038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1039 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_SK2
1040#endif
1041 use pm_kind, only: SKG => SK2
1042 character(*,SKG) , intent(in) :: val
1043 character(*,SKG) , intent(in) :: set(2)
1044 logical(LK) :: member
1045 end function
1046#endif
1047
1048#if SK1_ENABLED
1049 pure module function inrange_D0_D1_SK1(val, set) result(member)
1050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1051 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_SK1
1052#endif
1053 use pm_kind, only: SKG => SK1
1054 character(*,SKG) , intent(in) :: val
1055 character(*,SKG) , intent(in) :: set(2)
1056 logical(LK) :: member
1057 end function
1058#endif
1059
1060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1061
1062#if IK5_ENABLED
1063 pure module function inrange_D0_D1_IK5(val, set) result(member)
1064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1065 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_IK5
1066#endif
1067 use pm_kind, only: IKG => IK5
1068 integer(IKG) , intent(in) :: val
1069 integer(IKG) , intent(in) :: set(2)
1070 logical(LK) :: member
1071 end function
1072#endif
1073
1074#if IK4_ENABLED
1075 pure module function inrange_D0_D1_IK4(val, set) result(member)
1076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1077 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_IK4
1078#endif
1079 use pm_kind, only: IKG => IK4
1080 integer(IKG) , intent(in) :: val
1081 integer(IKG) , intent(in) :: set(2)
1082 logical(LK) :: member
1083 end function
1084#endif
1085
1086#if IK3_ENABLED
1087 pure module function inrange_D0_D1_IK3(val, set) result(member)
1088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1089 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_IK3
1090#endif
1091 use pm_kind, only: IKG => IK3
1092 integer(IKG) , intent(in) :: val
1093 integer(IKG) , intent(in) :: set(2)
1094 logical(LK) :: member
1095 end function
1096#endif
1097
1098#if IK2_ENABLED
1099 pure module function inrange_D0_D1_IK2(val, set) result(member)
1100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1101 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_IK2
1102#endif
1103 use pm_kind, only: IKG => IK2
1104 integer(IKG) , intent(in) :: val
1105 integer(IKG) , intent(in) :: set(2)
1106 logical(LK) :: member
1107 end function
1108#endif
1109
1110#if IK1_ENABLED
1111 pure module function inrange_D0_D1_IK1(val, set) result(member)
1112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1113 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_IK1
1114#endif
1115 use pm_kind, only: IKG => IK1
1116 integer(IKG) , intent(in) :: val
1117 integer(IKG) , intent(in) :: set(2)
1118 logical(LK) :: member
1119 end function
1120#endif
1121
1122 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1123
1124#if LK5_ENABLED
1125 pure module function inrange_D0_D1_LK5(val, set) result(member)
1126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1127 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_LK5
1128#endif
1129 use pm_kind, only: LKG => LK5
1130 logical(LKG) , intent(in) :: val
1131 logical(LKG) , intent(in) :: set(2)
1132 logical(LK) :: member
1133 end function
1134#endif
1135
1136#if LK4_ENABLED
1137 pure module function inrange_D0_D1_LK4(val, set) result(member)
1138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1139 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_LK4
1140#endif
1141 use pm_kind, only: LKG => LK4
1142 logical(LKG) , intent(in) :: val
1143 logical(LKG) , intent(in) :: set(2)
1144 logical(LK) :: member
1145 end function
1146#endif
1147
1148#if LK3_ENABLED
1149 pure module function inrange_D0_D1_LK3(val, set) result(member)
1150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1151 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_LK3
1152#endif
1153 use pm_kind, only: LKG => LK3
1154 logical(LKG) , intent(in) :: val
1155 logical(LKG) , intent(in) :: set(2)
1156 logical(LK) :: member
1157 end function
1158#endif
1159
1160#if LK2_ENABLED
1161 pure module function inrange_D0_D1_LK2(val, set) result(member)
1162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1163 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_LK2
1164#endif
1165 use pm_kind, only: LKG => LK2
1166 logical(LKG) , intent(in) :: val
1167 logical(LKG) , intent(in) :: set(2)
1168 logical(LK) :: member
1169 end function
1170#endif
1171
1172#if LK1_ENABLED
1173 pure module function inrange_D0_D1_LK1(val, set) result(member)
1174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1175 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_LK1
1176#endif
1177 use pm_kind, only: LKG => LK1
1178 logical(LKG) , intent(in) :: val
1179 logical(LKG) , intent(in) :: set(2)
1180 logical(LK) :: member
1181 end function
1182#endif
1183
1184 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1185
1186#if CK5_ENABLED
1187 pure module function inrange_D0_D1_CK5(val, set) result(member)
1188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1189 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_CK5
1190#endif
1191 use pm_kind, only: CKG => CK5
1192 complex(CKG) , intent(in) :: val
1193 complex(CKG) , intent(in) :: set(2)
1194 logical(LK) :: member
1195 end function
1196#endif
1197
1198#if CK4_ENABLED
1199 pure module function inrange_D0_D1_CK4(val, set) result(member)
1200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1201 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_CK4
1202#endif
1203 use pm_kind, only: CKG => CK4
1204 complex(CKG) , intent(in) :: val
1205 complex(CKG) , intent(in) :: set(2)
1206 logical(LK) :: member
1207 end function
1208#endif
1209
1210#if CK3_ENABLED
1211 pure module function inrange_D0_D1_CK3(val, set) result(member)
1212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1213 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_CK3
1214#endif
1215 use pm_kind, only: CKG => CK3
1216 complex(CKG) , intent(in) :: val
1217 complex(CKG) , intent(in) :: set(2)
1218 logical(LK) :: member
1219 end function
1220#endif
1221
1222#if CK2_ENABLED
1223 pure module function inrange_D0_D1_CK2(val, set) result(member)
1224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1225 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_CK2
1226#endif
1227 use pm_kind, only: CKG => CK2
1228 complex(CKG) , intent(in) :: val
1229 complex(CKG) , intent(in) :: set(2)
1230 logical(LK) :: member
1231 end function
1232#endif
1233
1234#if CK1_ENABLED
1235 pure module function inrange_D0_D1_CK1(val, set) result(member)
1236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1237 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_CK1
1238#endif
1239 use pm_kind, only: CKG => CK1
1240 complex(CKG) , intent(in) :: val
1241 complex(CKG) , intent(in) :: set(2)
1242 logical(LK) :: member
1243 end function
1244#endif
1245
1246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1247
1248#if RK5_ENABLED
1249 pure module function inrange_D0_D1_RK5(val, set) result(member)
1250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1251 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_RK5
1252#endif
1253 use pm_kind, only: RKG => RK5
1254 real(RKG) , intent(in) :: val
1255 real(RKG) , intent(in) :: set(2)
1256 logical(LK) :: member
1257 end function
1258#endif
1259
1260#if RK4_ENABLED
1261 pure module function inrange_D0_D1_RK4(val, set) result(member)
1262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1263 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_RK4
1264#endif
1265 use pm_kind, only: RKG => RK4
1266 real(RKG) , intent(in) :: val
1267 real(RKG) , intent(in) :: set(2)
1268 logical(LK) :: member
1269 end function
1270#endif
1271
1272#if RK3_ENABLED
1273 pure module function inrange_D0_D1_RK3(val, set) result(member)
1274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1275 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_RK3
1276#endif
1277 use pm_kind, only: RKG => RK3
1278 real(RKG) , intent(in) :: val
1279 real(RKG) , intent(in) :: set(2)
1280 logical(LK) :: member
1281 end function
1282#endif
1283
1284#if RK2_ENABLED
1285 pure module function inrange_D0_D1_RK2(val, set) result(member)
1286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1287 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_RK2
1288#endif
1289 use pm_kind, only: RKG => RK2
1290 real(RKG) , intent(in) :: val
1291 real(RKG) , intent(in) :: set(2)
1292 logical(LK) :: member
1293 end function
1294#endif
1295
1296#if RK1_ENABLED
1297 pure module function inrange_D0_D1_RK1(val, set) result(member)
1298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1299 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D0_D1_RK1
1300#endif
1301 use pm_kind, only: RKG => RK1
1302 real(RKG) , intent(in) :: val
1303 real(RKG) , intent(in) :: set(2)
1304 logical(LK) :: member
1305 end function
1306#endif
1307
1308 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1309
1310 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1312 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1313
1314 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1315
1316#if SK5_ENABLED
1317 pure module function inrange_D1_D1_SK5(val, set) result(member)
1318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1319 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_SK5
1320#endif
1321 use pm_kind, only: SKG => SK5
1322 character(*,SKG) , intent(in), contiguous :: val(:)
1323 character(*,SKG) , intent(in) :: set(2)
1324 logical(LK) :: member(size(val, 1, IK))
1325 end function
1326#endif
1327
1328#if SK4_ENABLED
1329 pure module function inrange_D1_D1_SK4(val, set) result(member)
1330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1331 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_SK4
1332#endif
1333 use pm_kind, only: SKG => SK4
1334 character(*,SKG) , intent(in), contiguous :: val(:)
1335 character(*,SKG) , intent(in) :: set(2)
1336 logical(LK) :: member(size(val, 1, IK))
1337 end function
1338#endif
1339
1340#if SK3_ENABLED
1341 pure module function inrange_D1_D1_SK3(val, set) result(member)
1342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1343 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_SK3
1344#endif
1345 use pm_kind, only: SKG => SK3
1346 character(*,SKG) , intent(in), contiguous :: val(:)
1347 character(*,SKG) , intent(in) :: set(2)
1348 logical(LK) :: member(size(val, 1, IK))
1349 end function
1350#endif
1351
1352#if SK2_ENABLED
1353 pure module function inrange_D1_D1_SK2(val, set) result(member)
1354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1355 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_SK2
1356#endif
1357 use pm_kind, only: SKG => SK2
1358 character(*,SKG) , intent(in), contiguous :: val(:)
1359 character(*,SKG) , intent(in) :: set(2)
1360 logical(LK) :: member(size(val, 1, IK))
1361 end function
1362#endif
1363
1364#if SK1_ENABLED
1365 pure module function inrange_D1_D1_SK1(val, set) result(member)
1366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1367 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_SK1
1368#endif
1369 use pm_kind, only: SKG => SK1
1370 character(*,SKG) , intent(in), contiguous :: val(:)
1371 character(*,SKG) , intent(in) :: set(2)
1372 logical(LK) :: member(size(val, 1, IK))
1373 end function
1374#endif
1375
1376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1377
1378#if IK5_ENABLED
1379 pure module function inrange_D1_D1_IK5(val, set) result(member)
1380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1381 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_IK5
1382#endif
1383 use pm_kind, only: IKG => IK5
1384 integer(IKG) , intent(in), contiguous :: val(:)
1385 integer(IKG) , intent(in) :: set(2)
1386 logical(LK) :: member(size(val, 1, IK))
1387 end function
1388#endif
1389
1390#if IK4_ENABLED
1391 pure module function inrange_D1_D1_IK4(val, set) result(member)
1392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1393 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_IK4
1394#endif
1395 use pm_kind, only: IKG => IK4
1396 integer(IKG) , intent(in), contiguous :: val(:)
1397 integer(IKG) , intent(in) :: set(2)
1398 logical(LK) :: member(size(val, 1, IK))
1399 end function
1400#endif
1401
1402#if IK3_ENABLED
1403 pure module function inrange_D1_D1_IK3(val, set) result(member)
1404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1405 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_IK3
1406#endif
1407 use pm_kind, only: IKG => IK3
1408 integer(IKG) , intent(in), contiguous :: val(:)
1409 integer(IKG) , intent(in) :: set(2)
1410 logical(LK) :: member(size(val, 1, IK))
1411 end function
1412#endif
1413
1414#if IK2_ENABLED
1415 pure module function inrange_D1_D1_IK2(val, set) result(member)
1416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1417 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_IK2
1418#endif
1419 use pm_kind, only: IKG => IK2
1420 integer(IKG) , intent(in), contiguous :: val(:)
1421 integer(IKG) , intent(in) :: set(2)
1422 logical(LK) :: member(size(val, 1, IK))
1423 end function
1424#endif
1425
1426#if IK1_ENABLED
1427 pure module function inrange_D1_D1_IK1(val, set) result(member)
1428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1429 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_IK1
1430#endif
1431 use pm_kind, only: IKG => IK1
1432 integer(IKG) , intent(in), contiguous :: val(:)
1433 integer(IKG) , intent(in) :: set(2)
1434 logical(LK) :: member(size(val, 1, IK))
1435 end function
1436#endif
1437
1438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1439
1440#if LK5_ENABLED
1441 pure module function inrange_D1_D1_LK5(val, set) result(member)
1442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1443 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_LK5
1444#endif
1445 use pm_kind, only: LKG => LK5
1446 logical(LKG) , intent(in), contiguous :: val(:)
1447 logical(LKG) , intent(in) :: set(2)
1448 logical(LK) :: member(size(val, 1, IK))
1449 end function
1450#endif
1451
1452#if LK4_ENABLED
1453 pure module function inrange_D1_D1_LK4(val, set) result(member)
1454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1455 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_LK4
1456#endif
1457 use pm_kind, only: LKG => LK4
1458 logical(LKG) , intent(in), contiguous :: val(:)
1459 logical(LKG) , intent(in) :: set(2)
1460 logical(LK) :: member(size(val, 1, IK))
1461 end function
1462#endif
1463
1464#if LK3_ENABLED
1465 pure module function inrange_D1_D1_LK3(val, set) result(member)
1466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1467 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_LK3
1468#endif
1469 use pm_kind, only: LKG => LK3
1470 logical(LKG) , intent(in), contiguous :: val(:)
1471 logical(LKG) , intent(in) :: set(2)
1472 logical(LK) :: member(size(val, 1, IK))
1473 end function
1474#endif
1475
1476#if LK2_ENABLED
1477 pure module function inrange_D1_D1_LK2(val, set) result(member)
1478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1479 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_LK2
1480#endif
1481 use pm_kind, only: LKG => LK2
1482 logical(LKG) , intent(in), contiguous :: val(:)
1483 logical(LKG) , intent(in) :: set(2)
1484 logical(LK) :: member(size(val, 1, IK))
1485 end function
1486#endif
1487
1488#if LK1_ENABLED
1489 pure module function inrange_D1_D1_LK1(val, set) result(member)
1490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1491 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_LK1
1492#endif
1493 use pm_kind, only: LKG => LK1
1494 logical(LKG) , intent(in), contiguous :: val(:)
1495 logical(LKG) , intent(in) :: set(2)
1496 logical(LK) :: member(size(val, 1, IK))
1497 end function
1498#endif
1499
1500 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1501
1502#if CK5_ENABLED
1503 pure module function inrange_D1_D1_CK5(val, set) result(member)
1504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1505 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_CK5
1506#endif
1507 use pm_kind, only: CKG => CK5
1508 complex(CKG) , intent(in), contiguous :: val(:)
1509 complex(CKG) , intent(in) :: set(2)
1510 logical(LK) :: member(size(val, 1, IK))
1511 end function
1512#endif
1513
1514#if CK4_ENABLED
1515 pure module function inrange_D1_D1_CK4(val, set) result(member)
1516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1517 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_CK4
1518#endif
1519 use pm_kind, only: CKG => CK4
1520 complex(CKG) , intent(in), contiguous :: val(:)
1521 complex(CKG) , intent(in) :: set(2)
1522 logical(LK) :: member(size(val, 1, IK))
1523 end function
1524#endif
1525
1526#if CK3_ENABLED
1527 pure module function inrange_D1_D1_CK3(val, set) result(member)
1528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1529 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_CK3
1530#endif
1531 use pm_kind, only: CKG => CK3
1532 complex(CKG) , intent(in), contiguous :: val(:)
1533 complex(CKG) , intent(in) :: set(2)
1534 logical(LK) :: member(size(val, 1, IK))
1535 end function
1536#endif
1537
1538#if CK2_ENABLED
1539 pure module function inrange_D1_D1_CK2(val, set) result(member)
1540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1541 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_CK2
1542#endif
1543 use pm_kind, only: CKG => CK2
1544 complex(CKG) , intent(in), contiguous :: val(:)
1545 complex(CKG) , intent(in) :: set(2)
1546 logical(LK) :: member(size(val, 1, IK))
1547 end function
1548#endif
1549
1550#if CK1_ENABLED
1551 pure module function inrange_D1_D1_CK1(val, set) result(member)
1552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1553 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_CK1
1554#endif
1555 use pm_kind, only: CKG => CK1
1556 complex(CKG) , intent(in), contiguous :: val(:)
1557 complex(CKG) , intent(in) :: set(2)
1558 logical(LK) :: member(size(val, 1, IK))
1559 end function
1560#endif
1561
1562 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1563
1564#if RK5_ENABLED
1565 pure module function inrange_D1_D1_RK5(val, set) result(member)
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_RK5
1568#endif
1569 use pm_kind, only: RKG => RK5
1570 real(RKG) , intent(in), contiguous :: val(:)
1571 real(RKG) , intent(in) :: set(2)
1572 logical(LK) :: member(size(val, 1, IK))
1573 end function
1574#endif
1575
1576#if RK4_ENABLED
1577 pure module function inrange_D1_D1_RK4(val, set) result(member)
1578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1579 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_RK4
1580#endif
1581 use pm_kind, only: RKG => RK4
1582 real(RKG) , intent(in), contiguous :: val(:)
1583 real(RKG) , intent(in) :: set(2)
1584 logical(LK) :: member(size(val, 1, IK))
1585 end function
1586#endif
1587
1588#if RK3_ENABLED
1589 pure module function inrange_D1_D1_RK3(val, set) result(member)
1590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1591 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_RK3
1592#endif
1593 use pm_kind, only: RKG => RK3
1594 real(RKG) , intent(in), contiguous :: val(:)
1595 real(RKG) , intent(in) :: set(2)
1596 logical(LK) :: member(size(val, 1, IK))
1597 end function
1598#endif
1599
1600#if RK2_ENABLED
1601 pure module function inrange_D1_D1_RK2(val, set) result(member)
1602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1603 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_RK2
1604#endif
1605 use pm_kind, only: RKG => RK2
1606 real(RKG) , intent(in), contiguous :: val(:)
1607 real(RKG) , intent(in) :: set(2)
1608 logical(LK) :: member(size(val, 1, IK))
1609 end function
1610#endif
1611
1612#if RK1_ENABLED
1613 pure module function inrange_D1_D1_RK1(val, set) result(member)
1614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1615 !DEC$ ATTRIBUTES DLLEXPORT :: inrange_D1_D1_RK1
1616#endif
1617 use pm_kind, only: RKG => RK1
1618 real(RKG) , intent(in), contiguous :: val(:)
1619 real(RKG) , intent(in) :: set(2)
1620 logical(LK) :: member(size(val, 1, IK))
1621 end function
1622#endif
1623
1624 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1625
1626 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1627 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1628 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1629
1630 end interface
1631
1632!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1633
1700 interface operator(.allin.)
1701
1702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1703 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1704 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1705
1706 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1707
1708#if SK5_ENABLED
1709 pure module function allin_D0_D0_SK5(val, Set) result(allMember)
1710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1711 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D0_D0_SK5
1712#endif
1713 use pm_kind, only: SKG => SK5
1714 character(*,SKG) , intent(in) :: val
1715 character(*,SKG) , intent(in) :: Set
1716 logical(LK) :: allMember
1717 end function
1718#endif
1719
1720#if SK4_ENABLED
1721 pure module function allin_D0_D0_SK4(val, Set) result(allMember)
1722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1723 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D0_D0_SK4
1724#endif
1725 use pm_kind, only: SKG => SK4
1726 character(*,SKG) , intent(in) :: val
1727 character(*,SKG) , intent(in) :: Set
1728 logical(LK) :: allMember
1729 end function
1730#endif
1731
1732#if SK3_ENABLED
1733 pure module function allin_D0_D0_SK3(val, Set) result(allMember)
1734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1735 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D0_D0_SK3
1736#endif
1737 use pm_kind, only: SKG => SK3
1738 character(*,SKG) , intent(in) :: val
1739 character(*,SKG) , intent(in) :: Set
1740 logical(LK) :: allMember
1741 end function
1742#endif
1743
1744#if SK2_ENABLED
1745 pure module function allin_D0_D0_SK2(val, Set) result(allMember)
1746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1747 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D0_D0_SK2
1748#endif
1749 use pm_kind, only: SKG => SK2
1750 character(*,SKG) , intent(in) :: val
1751 character(*,SKG) , intent(in) :: Set
1752 logical(LK) :: allMember
1753 end function
1754#endif
1755
1756#if SK1_ENABLED
1757 pure module function allin_D0_D0_SK1(val, Set) result(allMember)
1758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1759 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D0_D0_SK1
1760#endif
1761 use pm_kind, only: SKG => SK1
1762 character(*,SKG) , intent(in) :: val
1763 character(*,SKG) , intent(in) :: Set
1764 logical(LK) :: allMember
1765 end function
1766#endif
1767
1768 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1769
1770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1771 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1772 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1773
1774 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1775
1776#if SK5_ENABLED
1777 pure module function allin_D1_D1_SK5(val, Set) result(allMember)
1778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1779 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_SK5
1780#endif
1781 use pm_kind, only: SKG => SK5
1782 character(*,SKG) , intent(in), contiguous :: val(:)
1783 character(*,SKG) , intent(in), contiguous :: Set(:)
1784 logical(LK) :: allMember
1785 end function
1786#endif
1787
1788#if SK4_ENABLED
1789 pure module function allin_D1_D1_SK4(val, Set) result(allMember)
1790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1791 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_SK4
1792#endif
1793 use pm_kind, only: SKG => SK4
1794 character(*,SKG) , intent(in), contiguous :: val(:)
1795 character(*,SKG) , intent(in), contiguous :: Set(:)
1796 logical(LK) :: allMember
1797 end function
1798#endif
1799
1800#if SK3_ENABLED
1801 pure module function allin_D1_D1_SK3(val, Set) result(allMember)
1802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1803 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_SK3
1804#endif
1805 use pm_kind, only: SKG => SK3
1806 character(*,SKG) , intent(in), contiguous :: val(:)
1807 character(*,SKG) , intent(in), contiguous :: Set(:)
1808 logical(LK) :: allMember
1809 end function
1810#endif
1811
1812#if SK2_ENABLED
1813 pure module function allin_D1_D1_SK2(val, Set) result(allMember)
1814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1815 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_SK2
1816#endif
1817 use pm_kind, only: SKG => SK2
1818 character(*,SKG) , intent(in), contiguous :: val(:)
1819 character(*,SKG) , intent(in), contiguous :: Set(:)
1820 logical(LK) :: allMember
1821 end function
1822#endif
1823
1824#if SK1_ENABLED
1825 pure module function allin_D1_D1_SK1(val, Set) result(allMember)
1826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1827 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_SK1
1828#endif
1829 use pm_kind, only: SKG => SK1
1830 character(*,SKG) , intent(in), contiguous :: val(:)
1831 character(*,SKG) , intent(in), contiguous :: Set(:)
1832 logical(LK) :: allMember
1833 end function
1834#endif
1835
1836 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1837
1838#if IK5_ENABLED
1839 pure module function allin_D1_D1_IK5(val, Set) result(allMember)
1840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1841 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_IK5
1842#endif
1843 use pm_kind, only: IKG => IK5
1844 integer(IKG) , intent(in), contiguous :: val(:)
1845 integer(IKG) , intent(in), contiguous :: Set(:)
1846 logical(LK) :: allMember
1847 end function
1848#endif
1849
1850#if IK4_ENABLED
1851 pure module function allin_D1_D1_IK4(val, Set) result(allMember)
1852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1853 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_IK4
1854#endif
1855 use pm_kind, only: IKG => IK4
1856 integer(IKG) , intent(in), contiguous :: val(:)
1857 integer(IKG) , intent(in), contiguous :: Set(:)
1858 logical(LK) :: allMember
1859 end function
1860#endif
1861
1862#if IK3_ENABLED
1863 pure module function allin_D1_D1_IK3(val, Set) result(allMember)
1864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1865 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_IK3
1866#endif
1867 use pm_kind, only: IKG => IK3
1868 integer(IKG) , intent(in), contiguous :: val(:)
1869 integer(IKG) , intent(in), contiguous :: Set(:)
1870 logical(LK) :: allMember
1871 end function
1872#endif
1873
1874#if IK2_ENABLED
1875 pure module function allin_D1_D1_IK2(val, Set) result(allMember)
1876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1877 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_IK2
1878#endif
1879 use pm_kind, only: IKG => IK2
1880 integer(IKG) , intent(in), contiguous :: val(:)
1881 integer(IKG) , intent(in), contiguous :: Set(:)
1882 logical(LK) :: allMember
1883 end function
1884#endif
1885
1886#if IK1_ENABLED
1887 pure module function allin_D1_D1_IK1(val, Set) result(allMember)
1888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1889 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_IK1
1890#endif
1891 use pm_kind, only: IKG => IK1
1892 integer(IKG) , intent(in), contiguous :: val(:)
1893 integer(IKG) , intent(in), contiguous :: Set(:)
1894 logical(LK) :: allMember
1895 end function
1896#endif
1897
1898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1899
1900#if LK5_ENABLED
1901 pure module function allin_D1_D1_LK5(val, Set) result(allMember)
1902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1903 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_LK5
1904#endif
1905 use pm_kind, only: LKG => LK5
1906 logical(LKG) , intent(in), contiguous :: val(:)
1907 logical(LKG) , intent(in), contiguous :: Set(:)
1908 logical(LK) :: allMember
1909 end function
1910#endif
1911
1912#if LK4_ENABLED
1913 pure module function allin_D1_D1_LK4(val, Set) result(allMember)
1914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1915 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_LK4
1916#endif
1917 use pm_kind, only: LKG => LK4
1918 logical(LKG) , intent(in), contiguous :: val(:)
1919 logical(LKG) , intent(in), contiguous :: Set(:)
1920 logical(LK) :: allMember
1921 end function
1922#endif
1923
1924#if LK3_ENABLED
1925 pure module function allin_D1_D1_LK3(val, Set) result(allMember)
1926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1927 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_LK3
1928#endif
1929 use pm_kind, only: LKG => LK3
1930 logical(LKG) , intent(in), contiguous :: val(:)
1931 logical(LKG) , intent(in), contiguous :: Set(:)
1932 logical(LK) :: allMember
1933 end function
1934#endif
1935
1936#if LK2_ENABLED
1937 pure module function allin_D1_D1_LK2(val, Set) result(allMember)
1938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1939 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_LK2
1940#endif
1941 use pm_kind, only: LKG => LK2
1942 logical(LKG) , intent(in), contiguous :: val(:)
1943 logical(LKG) , intent(in), contiguous :: Set(:)
1944 logical(LK) :: allMember
1945 end function
1946#endif
1947
1948#if LK1_ENABLED
1949 pure module function allin_D1_D1_LK1(val, Set) result(allMember)
1950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1951 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_LK1
1952#endif
1953 use pm_kind, only: LKG => LK1
1954 logical(LKG) , intent(in), contiguous :: val(:)
1955 logical(LKG) , intent(in), contiguous :: Set(:)
1956 logical(LK) :: allMember
1957 end function
1958#endif
1959
1960 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1961
1962#if CK5_ENABLED
1963 pure module function allin_D1_D1_CK5(val, Set) result(allMember)
1964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1965 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_CK5
1966#endif
1967 use pm_kind, only: CKG => CK5
1968 complex(CKG) , intent(in), contiguous :: val(:)
1969 complex(CKG) , intent(in), contiguous :: Set(:)
1970 logical(LK) :: allMember
1971 end function
1972#endif
1973
1974#if CK4_ENABLED
1975 pure module function allin_D1_D1_CK4(val, Set) result(allMember)
1976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1977 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_CK4
1978#endif
1979 use pm_kind, only: CKG => CK4
1980 complex(CKG) , intent(in), contiguous :: val(:)
1981 complex(CKG) , intent(in), contiguous :: Set(:)
1982 logical(LK) :: allMember
1983 end function
1984#endif
1985
1986#if CK3_ENABLED
1987 pure module function allin_D1_D1_CK3(val, Set) result(allMember)
1988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1989 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_CK3
1990#endif
1991 use pm_kind, only: CKG => CK3
1992 complex(CKG) , intent(in), contiguous :: val(:)
1993 complex(CKG) , intent(in), contiguous :: Set(:)
1994 logical(LK) :: allMember
1995 end function
1996#endif
1997
1998#if CK2_ENABLED
1999 pure module function allin_D1_D1_CK2(val, Set) result(allMember)
2000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2001 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_CK2
2002#endif
2003 use pm_kind, only: CKG => CK2
2004 complex(CKG) , intent(in), contiguous :: val(:)
2005 complex(CKG) , intent(in), contiguous :: Set(:)
2006 logical(LK) :: allMember
2007 end function
2008#endif
2009
2010#if CK1_ENABLED
2011 pure module function allin_D1_D1_CK1(val, Set) result(allMember)
2012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2013 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_CK1
2014#endif
2015 use pm_kind, only: CKG => CK1
2016 complex(CKG) , intent(in), contiguous :: val(:)
2017 complex(CKG) , intent(in), contiguous :: Set(:)
2018 logical(LK) :: allMember
2019 end function
2020#endif
2021
2022 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2023
2024#if RK5_ENABLED
2025 pure module function allin_D1_D1_RK5(val, Set) result(allMember)
2026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2027 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_RK5
2028#endif
2029 use pm_kind, only: RKG => RK5
2030 real(RKG) , intent(in), contiguous :: val(:)
2031 real(RKG) , intent(in), contiguous :: Set(:)
2032 logical(LK) :: allMember
2033 end function
2034#endif
2035
2036#if RK4_ENABLED
2037 pure module function allin_D1_D1_RK4(val, Set) result(allMember)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_RK4
2040#endif
2041 use pm_kind, only: RKG => RK4
2042 real(RKG) , intent(in), contiguous :: val(:)
2043 real(RKG) , intent(in), contiguous :: Set(:)
2044 logical(LK) :: allMember
2045 end function
2046#endif
2047
2048#if RK3_ENABLED
2049 pure module function allin_D1_D1_RK3(val, Set) result(allMember)
2050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2051 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_RK3
2052#endif
2053 use pm_kind, only: RKG => RK3
2054 real(RKG) , intent(in), contiguous :: val(:)
2055 real(RKG) , intent(in), contiguous :: Set(:)
2056 logical(LK) :: allMember
2057 end function
2058#endif
2059
2060#if RK2_ENABLED
2061 pure module function allin_D1_D1_RK2(val, Set) result(allMember)
2062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2063 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_RK2
2064#endif
2065 use pm_kind, only: RKG => RK2
2066 real(RKG) , intent(in), contiguous :: val(:)
2067 real(RKG) , intent(in), contiguous :: Set(:)
2068 logical(LK) :: allMember
2069 end function
2070#endif
2071
2072#if RK1_ENABLED
2073 pure module function allin_D1_D1_RK1(val, Set) result(allMember)
2074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2075 !DEC$ ATTRIBUTES DLLEXPORT :: allin_D1_D1_RK1
2076#endif
2077 use pm_kind, only: RKG => RK1
2078 real(RKG) , intent(in), contiguous :: val(:)
2079 real(RKG) , intent(in), contiguous :: Set(:)
2080 logical(LK) :: allMember
2081 end function
2082#endif
2083
2084 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2085
2086 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2088 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2089
2090 end interface
2091
2092!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2093
2173 interface operator(.allinrange.)
2174
2175 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2178
2179 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2180
2181#if SK5_ENABLED
2182 pure module function allinrange_D0_D0_SK5(val, Set) result(allMember)
2183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2184 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D0_D0_SK5
2185#endif
2186 use pm_kind, only: SKG => SK5
2187 character(*,SKG) , intent(in) :: val
2188 character(2,SKG) , intent(in) :: Set
2189 logical(LK) :: allMember
2190 end function
2191#endif
2192
2193#if SK4_ENABLED
2194 pure module function allinrange_D0_D0_SK4(val, Set) result(allMember)
2195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2196 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D0_D0_SK4
2197#endif
2198 use pm_kind, only: SKG => SK4
2199 character(*,SKG) , intent(in) :: val
2200 character(2,SKG) , intent(in) :: Set
2201 logical(LK) :: allMember
2202 end function
2203#endif
2204
2205#if SK3_ENABLED
2206 pure module function allinrange_D0_D0_SK3(val, Set) result(allMember)
2207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2208 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D0_D0_SK3
2209#endif
2210 use pm_kind, only: SKG => SK3
2211 character(*,SKG) , intent(in) :: val
2212 character(2,SKG) , intent(in) :: Set
2213 logical(LK) :: allMember
2214 end function
2215#endif
2216
2217#if SK2_ENABLED
2218 pure module function allinrange_D0_D0_SK2(val, Set) result(allMember)
2219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2220 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D0_D0_SK2
2221#endif
2222 use pm_kind, only: SKG => SK2
2223 character(*,SKG) , intent(in) :: val
2224 character(2,SKG) , intent(in) :: Set
2225 logical(LK) :: allMember
2226 end function
2227#endif
2228
2229#if SK1_ENABLED
2230 pure module function allinrange_D0_D0_SK1(val, Set) result(allMember)
2231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2232 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D0_D0_SK1
2233#endif
2234 use pm_kind, only: SKG => SK1
2235 character(*,SKG) , intent(in) :: val
2236 character(2,SKG) , intent(in) :: Set
2237 logical(LK) :: allMember
2238 end function
2239#endif
2240
2241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2242
2243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2244 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2246
2247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2248
2249#if SK5_ENABLED
2250 pure module function allinrange_D1_D1_SK5(val, Set) result(allMember)
2251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2252 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_SK5
2253#endif
2254 use pm_kind, only: SKG => SK5
2255 character(*,SKG) , intent(in), contiguous :: val(:)
2256 character(*,SKG) , intent(in) :: Set(2)
2257 logical(LK) :: allMember
2258 end function
2259#endif
2260
2261#if SK4_ENABLED
2262 pure module function allinrange_D1_D1_SK4(val, Set) result(allMember)
2263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2264 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_SK4
2265#endif
2266 use pm_kind, only: SKG => SK4
2267 character(*,SKG) , intent(in), contiguous :: val(:)
2268 character(*,SKG) , intent(in) :: Set(2)
2269 logical(LK) :: allMember
2270 end function
2271#endif
2272
2273#if SK3_ENABLED
2274 pure module function allinrange_D1_D1_SK3(val, Set) result(allMember)
2275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2276 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_SK3
2277#endif
2278 use pm_kind, only: SKG => SK3
2279 character(*,SKG) , intent(in), contiguous :: val(:)
2280 character(*,SKG) , intent(in) :: Set(2)
2281 logical(LK) :: allMember
2282 end function
2283#endif
2284
2285#if SK2_ENABLED
2286 pure module function allinrange_D1_D1_SK2(val, Set) result(allMember)
2287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2288 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_SK2
2289#endif
2290 use pm_kind, only: SKG => SK2
2291 character(*,SKG) , intent(in), contiguous :: val(:)
2292 character(*,SKG) , intent(in) :: Set(2)
2293 logical(LK) :: allMember
2294 end function
2295#endif
2296
2297#if SK1_ENABLED
2298 pure module function allinrange_D1_D1_SK1(val, Set) result(allMember)
2299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2300 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_SK1
2301#endif
2302 use pm_kind, only: SKG => SK1
2303 character(*,SKG) , intent(in), contiguous :: val(:)
2304 character(*,SKG) , intent(in) :: Set(2)
2305 logical(LK) :: allMember
2306 end function
2307#endif
2308
2309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2310
2311#if IK5_ENABLED
2312 pure module function allinrange_D1_D1_IK5(val, Set) result(allMember)
2313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2314 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_IK5
2315#endif
2316 use pm_kind, only: IKG => IK5
2317 integer(IKG) , intent(in), contiguous :: val(:)
2318 integer(IKG) , intent(in) :: Set(2)
2319 logical(LK) :: allMember
2320 end function
2321#endif
2322
2323#if IK4_ENABLED
2324 pure module function allinrange_D1_D1_IK4(val, Set) result(allMember)
2325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2326 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_IK4
2327#endif
2328 use pm_kind, only: IKG => IK4
2329 integer(IKG) , intent(in), contiguous :: val(:)
2330 integer(IKG) , intent(in) :: Set(2)
2331 logical(LK) :: allMember
2332 end function
2333#endif
2334
2335#if IK3_ENABLED
2336 pure module function allinrange_D1_D1_IK3(val, Set) result(allMember)
2337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2338 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_IK3
2339#endif
2340 use pm_kind, only: IKG => IK3
2341 integer(IKG) , intent(in), contiguous :: val(:)
2342 integer(IKG) , intent(in) :: Set(2)
2343 logical(LK) :: allMember
2344 end function
2345#endif
2346
2347#if IK2_ENABLED
2348 pure module function allinrange_D1_D1_IK2(val, Set) result(allMember)
2349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2350 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_IK2
2351#endif
2352 use pm_kind, only: IKG => IK2
2353 integer(IKG) , intent(in), contiguous :: val(:)
2354 integer(IKG) , intent(in) :: Set(2)
2355 logical(LK) :: allMember
2356 end function
2357#endif
2358
2359#if IK1_ENABLED
2360 pure module function allinrange_D1_D1_IK1(val, Set) result(allMember)
2361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2362 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_IK1
2363#endif
2364 use pm_kind, only: IKG => IK1
2365 integer(IKG) , intent(in), contiguous :: val(:)
2366 integer(IKG) , intent(in) :: Set(2)
2367 logical(LK) :: allMember
2368 end function
2369#endif
2370
2371 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2372
2373#if LK5_ENABLED
2374 pure module function allinrange_D1_D1_LK5(val, Set) result(allMember)
2375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2376 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_LK5
2377#endif
2378 use pm_kind, only: LKG => LK5
2379 logical(LKG) , intent(in), contiguous :: val(:)
2380 logical(LKG) , intent(in) :: Set(2)
2381 logical(LK) :: allMember
2382 end function
2383#endif
2384
2385#if LK4_ENABLED
2386 pure module function allinrange_D1_D1_LK4(val, Set) result(allMember)
2387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2388 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_LK4
2389#endif
2390 use pm_kind, only: LKG => LK4
2391 logical(LKG) , intent(in), contiguous :: val(:)
2392 logical(LKG) , intent(in) :: Set(2)
2393 logical(LK) :: allMember
2394 end function
2395#endif
2396
2397#if LK3_ENABLED
2398 pure module function allinrange_D1_D1_LK3(val, Set) result(allMember)
2399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2400 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_LK3
2401#endif
2402 use pm_kind, only: LKG => LK3
2403 logical(LKG) , intent(in), contiguous :: val(:)
2404 logical(LKG) , intent(in) :: Set(2)
2405 logical(LK) :: allMember
2406 end function
2407#endif
2408
2409#if LK2_ENABLED
2410 pure module function allinrange_D1_D1_LK2(val, Set) result(allMember)
2411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2412 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_LK2
2413#endif
2414 use pm_kind, only: LKG => LK2
2415 logical(LKG) , intent(in), contiguous :: val(:)
2416 logical(LKG) , intent(in) :: Set(2)
2417 logical(LK) :: allMember
2418 end function
2419#endif
2420
2421#if LK1_ENABLED
2422 pure module function allinrange_D1_D1_LK1(val, Set) result(allMember)
2423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2424 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_LK1
2425#endif
2426 use pm_kind, only: LKG => LK1
2427 logical(LKG) , intent(in), contiguous :: val(:)
2428 logical(LKG) , intent(in) :: Set(2)
2429 logical(LK) :: allMember
2430 end function
2431#endif
2432
2433 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2434
2435#if CK5_ENABLED
2436 pure module function allinrange_D1_D1_CK5(val, Set) result(allMember)
2437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2438 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_CK5
2439#endif
2440 use pm_kind, only: CKG => CK5
2441 complex(CKG) , intent(in), contiguous :: val(:)
2442 complex(CKG) , intent(in) :: Set(2)
2443 logical(LK) :: allMember
2444 end function
2445#endif
2446
2447#if CK4_ENABLED
2448 pure module function allinrange_D1_D1_CK4(val, Set) result(allMember)
2449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2450 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_CK4
2451#endif
2452 use pm_kind, only: CKG => CK4
2453 complex(CKG) , intent(in), contiguous :: val(:)
2454 complex(CKG) , intent(in) :: Set(2)
2455 logical(LK) :: allMember
2456 end function
2457#endif
2458
2459#if CK3_ENABLED
2460 pure module function allinrange_D1_D1_CK3(val, Set) result(allMember)
2461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2462 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_CK3
2463#endif
2464 use pm_kind, only: CKG => CK3
2465 complex(CKG) , intent(in), contiguous :: val(:)
2466 complex(CKG) , intent(in) :: Set(2)
2467 logical(LK) :: allMember
2468 end function
2469#endif
2470
2471#if CK2_ENABLED
2472 pure module function allinrange_D1_D1_CK2(val, Set) result(allMember)
2473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2474 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_CK2
2475#endif
2476 use pm_kind, only: CKG => CK2
2477 complex(CKG) , intent(in), contiguous :: val(:)
2478 complex(CKG) , intent(in) :: Set(2)
2479 logical(LK) :: allMember
2480 end function
2481#endif
2482
2483#if CK1_ENABLED
2484 pure module function allinrange_D1_D1_CK1(val, Set) result(allMember)
2485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2486 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_CK1
2487#endif
2488 use pm_kind, only: CKG => CK1
2489 complex(CKG) , intent(in), contiguous :: val(:)
2490 complex(CKG) , intent(in) :: Set(2)
2491 logical(LK) :: allMember
2492 end function
2493#endif
2494
2495 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2496
2497#if RK5_ENABLED
2498 pure module function allinrange_D1_D1_RK5(val, Set) result(allMember)
2499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2500 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_RK5
2501#endif
2502 use pm_kind, only: RKG => RK5
2503 real(RKG) , intent(in), contiguous :: val(:)
2504 real(RKG) , intent(in) :: Set(2)
2505 logical(LK) :: allMember
2506 end function
2507#endif
2508
2509#if RK4_ENABLED
2510 pure module function allinrange_D1_D1_RK4(val, Set) result(allMember)
2511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2512 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_RK4
2513#endif
2514 use pm_kind, only: RKG => RK4
2515 real(RKG) , intent(in), contiguous :: val(:)
2516 real(RKG) , intent(in) :: Set(2)
2517 logical(LK) :: allMember
2518 end function
2519#endif
2520
2521#if RK3_ENABLED
2522 pure module function allinrange_D1_D1_RK3(val, Set) result(allMember)
2523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2524 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_RK3
2525#endif
2526 use pm_kind, only: RKG => RK3
2527 real(RKG) , intent(in), contiguous :: val(:)
2528 real(RKG) , intent(in) :: Set(2)
2529 logical(LK) :: allMember
2530 end function
2531#endif
2532
2533#if RK2_ENABLED
2534 pure module function allinrange_D1_D1_RK2(val, Set) result(allMember)
2535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2536 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_RK2
2537#endif
2538 use pm_kind, only: RKG => RK2
2539 real(RKG) , intent(in), contiguous :: val(:)
2540 real(RKG) , intent(in) :: Set(2)
2541 logical(LK) :: allMember
2542 end function
2543#endif
2544
2545#if RK1_ENABLED
2546 pure module function allinrange_D1_D1_RK1(val, Set) result(allMember)
2547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2548 !DEC$ ATTRIBUTES DLLEXPORT :: allinrange_D1_D1_RK1
2549#endif
2550 use pm_kind, only: RKG => RK1
2551 real(RKG) , intent(in), contiguous :: val(:)
2552 real(RKG) , intent(in) :: Set(2)
2553 logical(LK) :: allMember
2554 end function
2555#endif
2556
2557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2558
2559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2560 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2561 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2562
2563 end interface
2564
2565!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2566
2633 interface operator(.anyin.)
2634
2635 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2637 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2638
2639 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2640
2641#if SK5_ENABLED
2642 pure module function anyin_D0_D0_SK5(val, Set) result(anyMember)
2643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2644 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D0_D0_SK5
2645#endif
2646 use pm_kind, only: SKG => SK5
2647 character(*,SKG) , intent(in) :: val
2648 character(*,SKG) , intent(in) :: Set
2649 logical(LK) :: anyMember
2650 end function
2651#endif
2652
2653#if SK4_ENABLED
2654 pure module function anyin_D0_D0_SK4(val, Set) result(anyMember)
2655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2656 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D0_D0_SK4
2657#endif
2658 use pm_kind, only: SKG => SK4
2659 character(*,SKG) , intent(in) :: val
2660 character(*,SKG) , intent(in) :: Set
2661 logical(LK) :: anyMember
2662 end function
2663#endif
2664
2665#if SK3_ENABLED
2666 pure module function anyin_D0_D0_SK3(val, Set) result(anyMember)
2667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2668 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D0_D0_SK3
2669#endif
2670 use pm_kind, only: SKG => SK3
2671 character(*,SKG) , intent(in) :: val
2672 character(*,SKG) , intent(in) :: Set
2673 logical(LK) :: anyMember
2674 end function
2675#endif
2676
2677#if SK2_ENABLED
2678 pure module function anyin_D0_D0_SK2(val, Set) result(anyMember)
2679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2680 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D0_D0_SK2
2681#endif
2682 use pm_kind, only: SKG => SK2
2683 character(*,SKG) , intent(in) :: val
2684 character(*,SKG) , intent(in) :: Set
2685 logical(LK) :: anyMember
2686 end function
2687#endif
2688
2689#if SK1_ENABLED
2690 pure module function anyin_D0_D0_SK1(val, Set) result(anyMember)
2691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2692 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D0_D0_SK1
2693#endif
2694 use pm_kind, only: SKG => SK1
2695 character(*,SKG) , intent(in) :: val
2696 character(*,SKG) , intent(in) :: Set
2697 logical(LK) :: anyMember
2698 end function
2699#endif
2700
2701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2702
2703 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2704 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2706
2707 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2708
2709#if SK5_ENABLED
2710 pure module function anyin_D1_D1_SK5(val, Set) result(anyMember)
2711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2712 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_SK5
2713#endif
2714 use pm_kind, only: SKG => SK5
2715 character(*,SKG) , intent(in), contiguous :: val(:)
2716 character(*,SKG) , intent(in), contiguous :: Set(:)
2717 logical(LK) :: anyMember
2718 end function
2719#endif
2720
2721#if SK4_ENABLED
2722 pure module function anyin_D1_D1_SK4(val, Set) result(anyMember)
2723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2724 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_SK4
2725#endif
2726 use pm_kind, only: SKG => SK4
2727 character(*,SKG) , intent(in), contiguous :: val(:)
2728 character(*,SKG) , intent(in), contiguous :: Set(:)
2729 logical(LK) :: anyMember
2730 end function
2731#endif
2732
2733#if SK3_ENABLED
2734 pure module function anyin_D1_D1_SK3(val, Set) result(anyMember)
2735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2736 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_SK3
2737#endif
2738 use pm_kind, only: SKG => SK3
2739 character(*,SKG) , intent(in), contiguous :: val(:)
2740 character(*,SKG) , intent(in), contiguous :: Set(:)
2741 logical(LK) :: anyMember
2742 end function
2743#endif
2744
2745#if SK2_ENABLED
2746 pure module function anyin_D1_D1_SK2(val, Set) result(anyMember)
2747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2748 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_SK2
2749#endif
2750 use pm_kind, only: SKG => SK2
2751 character(*,SKG) , intent(in), contiguous :: val(:)
2752 character(*,SKG) , intent(in), contiguous :: Set(:)
2753 logical(LK) :: anyMember
2754 end function
2755#endif
2756
2757#if SK1_ENABLED
2758 pure module function anyin_D1_D1_SK1(val, Set) result(anyMember)
2759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2760 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_SK1
2761#endif
2762 use pm_kind, only: SKG => SK1
2763 character(*,SKG) , intent(in), contiguous :: val(:)
2764 character(*,SKG) , intent(in), contiguous :: Set(:)
2765 logical(LK) :: anyMember
2766 end function
2767#endif
2768
2769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2770
2771#if IK5_ENABLED
2772 pure module function anyin_D1_D1_IK5(val, Set) result(anyMember)
2773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2774 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_IK5
2775#endif
2776 use pm_kind, only: IKG => IK5
2777 integer(IKG) , intent(in), contiguous :: val(:)
2778 integer(IKG) , intent(in), contiguous :: Set(:)
2779 logical(LK) :: anyMember
2780 end function
2781#endif
2782
2783#if IK4_ENABLED
2784 pure module function anyin_D1_D1_IK4(val, Set) result(anyMember)
2785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2786 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_IK4
2787#endif
2788 use pm_kind, only: IKG => IK4
2789 integer(IKG) , intent(in), contiguous :: val(:)
2790 integer(IKG) , intent(in), contiguous :: Set(:)
2791 logical(LK) :: anyMember
2792 end function
2793#endif
2794
2795#if IK3_ENABLED
2796 pure module function anyin_D1_D1_IK3(val, Set) result(anyMember)
2797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2798 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_IK3
2799#endif
2800 use pm_kind, only: IKG => IK3
2801 integer(IKG) , intent(in), contiguous :: val(:)
2802 integer(IKG) , intent(in), contiguous :: Set(:)
2803 logical(LK) :: anyMember
2804 end function
2805#endif
2806
2807#if IK2_ENABLED
2808 pure module function anyin_D1_D1_IK2(val, Set) result(anyMember)
2809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2810 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_IK2
2811#endif
2812 use pm_kind, only: IKG => IK2
2813 integer(IKG) , intent(in), contiguous :: val(:)
2814 integer(IKG) , intent(in), contiguous :: Set(:)
2815 logical(LK) :: anyMember
2816 end function
2817#endif
2818
2819#if IK1_ENABLED
2820 pure module function anyin_D1_D1_IK1(val, Set) result(anyMember)
2821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2822 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_IK1
2823#endif
2824 use pm_kind, only: IKG => IK1
2825 integer(IKG) , intent(in), contiguous :: val(:)
2826 integer(IKG) , intent(in), contiguous :: Set(:)
2827 logical(LK) :: anyMember
2828 end function
2829#endif
2830
2831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2832
2833#if LK5_ENABLED
2834 pure module function anyin_D1_D1_LK5(val, Set) result(anyMember)
2835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2836 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_LK5
2837#endif
2838 use pm_kind, only: LKG => LK5
2839 logical(LKG) , intent(in), contiguous :: val(:)
2840 logical(LKG) , intent(in), contiguous :: Set(:)
2841 logical(LK) :: anyMember
2842 end function
2843#endif
2844
2845#if LK4_ENABLED
2846 pure module function anyin_D1_D1_LK4(val, Set) result(anyMember)
2847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2848 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_LK4
2849#endif
2850 use pm_kind, only: LKG => LK4
2851 logical(LKG) , intent(in), contiguous :: val(:)
2852 logical(LKG) , intent(in), contiguous :: Set(:)
2853 logical(LK) :: anyMember
2854 end function
2855#endif
2856
2857#if LK3_ENABLED
2858 pure module function anyin_D1_D1_LK3(val, Set) result(anyMember)
2859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2860 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_LK3
2861#endif
2862 use pm_kind, only: LKG => LK3
2863 logical(LKG) , intent(in), contiguous :: val(:)
2864 logical(LKG) , intent(in), contiguous :: Set(:)
2865 logical(LK) :: anyMember
2866 end function
2867#endif
2868
2869#if LK2_ENABLED
2870 pure module function anyin_D1_D1_LK2(val, Set) result(anyMember)
2871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2872 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_LK2
2873#endif
2874 use pm_kind, only: LKG => LK2
2875 logical(LKG) , intent(in), contiguous :: val(:)
2876 logical(LKG) , intent(in), contiguous :: Set(:)
2877 logical(LK) :: anyMember
2878 end function
2879#endif
2880
2881#if LK1_ENABLED
2882 pure module function anyin_D1_D1_LK1(val, Set) result(anyMember)
2883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2884 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_LK1
2885#endif
2886 use pm_kind, only: LKG => LK1
2887 logical(LKG) , intent(in), contiguous :: val(:)
2888 logical(LKG) , intent(in), contiguous :: Set(:)
2889 logical(LK) :: anyMember
2890 end function
2891#endif
2892
2893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2894
2895#if CK5_ENABLED
2896 pure module function anyin_D1_D1_CK5(val, Set) result(anyMember)
2897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2898 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_CK5
2899#endif
2900 use pm_kind, only: CKG => CK5
2901 complex(CKG) , intent(in), contiguous :: val(:)
2902 complex(CKG) , intent(in), contiguous :: Set(:)
2903 logical(LK) :: anyMember
2904 end function
2905#endif
2906
2907#if CK4_ENABLED
2908 pure module function anyin_D1_D1_CK4(val, Set) result(anyMember)
2909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2910 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_CK4
2911#endif
2912 use pm_kind, only: CKG => CK4
2913 complex(CKG) , intent(in), contiguous :: val(:)
2914 complex(CKG) , intent(in), contiguous :: Set(:)
2915 logical(LK) :: anyMember
2916 end function
2917#endif
2918
2919#if CK3_ENABLED
2920 pure module function anyin_D1_D1_CK3(val, Set) result(anyMember)
2921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2922 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_CK3
2923#endif
2924 use pm_kind, only: CKG => CK3
2925 complex(CKG) , intent(in), contiguous :: val(:)
2926 complex(CKG) , intent(in), contiguous :: Set(:)
2927 logical(LK) :: anyMember
2928 end function
2929#endif
2930
2931#if CK2_ENABLED
2932 pure module function anyin_D1_D1_CK2(val, Set) result(anyMember)
2933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2934 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_CK2
2935#endif
2936 use pm_kind, only: CKG => CK2
2937 complex(CKG) , intent(in), contiguous :: val(:)
2938 complex(CKG) , intent(in), contiguous :: Set(:)
2939 logical(LK) :: anyMember
2940 end function
2941#endif
2942
2943#if CK1_ENABLED
2944 pure module function anyin_D1_D1_CK1(val, Set) result(anyMember)
2945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2946 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_CK1
2947#endif
2948 use pm_kind, only: CKG => CK1
2949 complex(CKG) , intent(in), contiguous :: val(:)
2950 complex(CKG) , intent(in), contiguous :: Set(:)
2951 logical(LK) :: anyMember
2952 end function
2953#endif
2954
2955 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2956
2957#if RK5_ENABLED
2958 pure module function anyin_D1_D1_RK5(val, Set) result(anyMember)
2959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2960 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_RK5
2961#endif
2962 use pm_kind, only: RKG => RK5
2963 real(RKG) , intent(in), contiguous :: val(:)
2964 real(RKG) , intent(in), contiguous :: Set(:)
2965 logical(LK) :: anyMember
2966 end function
2967#endif
2968
2969#if RK4_ENABLED
2970 pure module function anyin_D1_D1_RK4(val, Set) result(anyMember)
2971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2972 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_RK4
2973#endif
2974 use pm_kind, only: RKG => RK4
2975 real(RKG) , intent(in), contiguous :: val(:)
2976 real(RKG) , intent(in), contiguous :: Set(:)
2977 logical(LK) :: anyMember
2978 end function
2979#endif
2980
2981#if RK3_ENABLED
2982 pure module function anyin_D1_D1_RK3(val, Set) result(anyMember)
2983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2984 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_RK3
2985#endif
2986 use pm_kind, only: RKG => RK3
2987 real(RKG) , intent(in), contiguous :: val(:)
2988 real(RKG) , intent(in), contiguous :: Set(:)
2989 logical(LK) :: anyMember
2990 end function
2991#endif
2992
2993#if RK2_ENABLED
2994 pure module function anyin_D1_D1_RK2(val, Set) result(anyMember)
2995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2996 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_RK2
2997#endif
2998 use pm_kind, only: RKG => RK2
2999 real(RKG) , intent(in), contiguous :: val(:)
3000 real(RKG) , intent(in), contiguous :: Set(:)
3001 logical(LK) :: anyMember
3002 end function
3003#endif
3004
3005#if RK1_ENABLED
3006 pure module function anyin_D1_D1_RK1(val, Set) result(anyMember)
3007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3008 !DEC$ ATTRIBUTES DLLEXPORT :: anyin_D1_D1_RK1
3009#endif
3010 use pm_kind, only: RKG => RK1
3011 real(RKG) , intent(in), contiguous :: val(:)
3012 real(RKG) , intent(in), contiguous :: Set(:)
3013 logical(LK) :: anyMember
3014 end function
3015#endif
3016
3017 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3018
3019 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3020 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3022
3023 end interface
3024
3025!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3026
3106 interface operator(.anyinrange.)
3107
3108 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3109 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3110 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3111
3112 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3113
3114#if SK5_ENABLED
3115 pure module function anyinrange_D0_D0_SK5(val, Set) result(anyMember)
3116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3117 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D0_D0_SK5
3118#endif
3119 use pm_kind, only: SKG => SK5
3120 character(*,SKG) , intent(in) :: val
3121 character(2,SKG) , intent(in) :: Set
3122 logical(LK) :: anyMember
3123 end function
3124#endif
3125
3126#if SK4_ENABLED
3127 pure module function anyinrange_D0_D0_SK4(val, Set) result(anyMember)
3128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3129 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D0_D0_SK4
3130#endif
3131 use pm_kind, only: SKG => SK4
3132 character(*,SKG) , intent(in) :: val
3133 character(2,SKG) , intent(in) :: Set
3134 logical(LK) :: anyMember
3135 end function
3136#endif
3137
3138#if SK3_ENABLED
3139 pure module function anyinrange_D0_D0_SK3(val, Set) result(anyMember)
3140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3141 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D0_D0_SK3
3142#endif
3143 use pm_kind, only: SKG => SK3
3144 character(*,SKG) , intent(in) :: val
3145 character(2,SKG) , intent(in) :: Set
3146 logical(LK) :: anyMember
3147 end function
3148#endif
3149
3150#if SK2_ENABLED
3151 pure module function anyinrange_D0_D0_SK2(val, Set) result(anyMember)
3152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3153 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D0_D0_SK2
3154#endif
3155 use pm_kind, only: SKG => SK2
3156 character(*,SKG) , intent(in) :: val
3157 character(2,SKG) , intent(in) :: Set
3158 logical(LK) :: anyMember
3159 end function
3160#endif
3161
3162#if SK1_ENABLED
3163 pure module function anyinrange_D0_D0_SK1(val, Set) result(anyMember)
3164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3165 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D0_D0_SK1
3166#endif
3167 use pm_kind, only: SKG => SK1
3168 character(*,SKG) , intent(in) :: val
3169 character(2,SKG) , intent(in) :: Set
3170 logical(LK) :: anyMember
3171 end function
3172#endif
3173
3174 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3175
3176 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3178 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3179
3180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3181
3182#if SK5_ENABLED
3183 pure module function anyinrange_D1_D1_SK5(val, Set) result(anyMember)
3184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3185 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_SK5
3186#endif
3187 use pm_kind, only: SKG => SK5
3188 character(*,SKG) , intent(in), contiguous :: val(:)
3189 character(*,SKG) , intent(in) :: Set(2)
3190 logical(LK) :: anyMember
3191 end function
3192#endif
3193
3194#if SK4_ENABLED
3195 pure module function anyinrange_D1_D1_SK4(val, Set) result(anyMember)
3196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3197 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_SK4
3198#endif
3199 use pm_kind, only: SKG => SK4
3200 character(*,SKG) , intent(in), contiguous :: val(:)
3201 character(*,SKG) , intent(in) :: Set(2)
3202 logical(LK) :: anyMember
3203 end function
3204#endif
3205
3206#if SK3_ENABLED
3207 pure module function anyinrange_D1_D1_SK3(val, Set) result(anyMember)
3208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3209 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_SK3
3210#endif
3211 use pm_kind, only: SKG => SK3
3212 character(*,SKG) , intent(in), contiguous :: val(:)
3213 character(*,SKG) , intent(in) :: Set(2)
3214 logical(LK) :: anyMember
3215 end function
3216#endif
3217
3218#if SK2_ENABLED
3219 pure module function anyinrange_D1_D1_SK2(val, Set) result(anyMember)
3220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3221 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_SK2
3222#endif
3223 use pm_kind, only: SKG => SK2
3224 character(*,SKG) , intent(in), contiguous :: val(:)
3225 character(*,SKG) , intent(in) :: Set(2)
3226 logical(LK) :: anyMember
3227 end function
3228#endif
3229
3230#if SK1_ENABLED
3231 pure module function anyinrange_D1_D1_SK1(val, Set) result(anyMember)
3232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3233 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_SK1
3234#endif
3235 use pm_kind, only: SKG => SK1
3236 character(*,SKG) , intent(in), contiguous :: val(:)
3237 character(*,SKG) , intent(in) :: Set(2)
3238 logical(LK) :: anyMember
3239 end function
3240#endif
3241
3242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3243
3244#if IK5_ENABLED
3245 pure module function anyinrange_D1_D1_IK5(val, Set) result(anyMember)
3246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3247 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_IK5
3248#endif
3249 use pm_kind, only: IKG => IK5
3250 integer(IKG) , intent(in), contiguous :: val(:)
3251 integer(IKG) , intent(in) :: Set(2)
3252 logical(LK) :: anyMember
3253 end function
3254#endif
3255
3256#if IK4_ENABLED
3257 pure module function anyinrange_D1_D1_IK4(val, Set) result(anyMember)
3258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3259 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_IK4
3260#endif
3261 use pm_kind, only: IKG => IK4
3262 integer(IKG) , intent(in), contiguous :: val(:)
3263 integer(IKG) , intent(in) :: Set(2)
3264 logical(LK) :: anyMember
3265 end function
3266#endif
3267
3268#if IK3_ENABLED
3269 pure module function anyinrange_D1_D1_IK3(val, Set) result(anyMember)
3270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3271 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_IK3
3272#endif
3273 use pm_kind, only: IKG => IK3
3274 integer(IKG) , intent(in), contiguous :: val(:)
3275 integer(IKG) , intent(in) :: Set(2)
3276 logical(LK) :: anyMember
3277 end function
3278#endif
3279
3280#if IK2_ENABLED
3281 pure module function anyinrange_D1_D1_IK2(val, Set) result(anyMember)
3282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3283 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_IK2
3284#endif
3285 use pm_kind, only: IKG => IK2
3286 integer(IKG) , intent(in), contiguous :: val(:)
3287 integer(IKG) , intent(in) :: Set(2)
3288 logical(LK) :: anyMember
3289 end function
3290#endif
3291
3292#if IK1_ENABLED
3293 pure module function anyinrange_D1_D1_IK1(val, Set) result(anyMember)
3294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3295 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_IK1
3296#endif
3297 use pm_kind, only: IKG => IK1
3298 integer(IKG) , intent(in), contiguous :: val(:)
3299 integer(IKG) , intent(in) :: Set(2)
3300 logical(LK) :: anyMember
3301 end function
3302#endif
3303
3304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3305
3306#if LK5_ENABLED
3307 pure module function anyinrange_D1_D1_LK5(val, Set) result(anyMember)
3308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3309 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_LK5
3310#endif
3311 use pm_kind, only: LKG => LK5
3312 logical(LKG) , intent(in), contiguous :: val(:)
3313 logical(LKG) , intent(in) :: Set(2)
3314 logical(LK) :: anyMember
3315 end function
3316#endif
3317
3318#if LK4_ENABLED
3319 pure module function anyinrange_D1_D1_LK4(val, Set) result(anyMember)
3320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3321 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_LK4
3322#endif
3323 use pm_kind, only: LKG => LK4
3324 logical(LKG) , intent(in), contiguous :: val(:)
3325 logical(LKG) , intent(in) :: Set(2)
3326 logical(LK) :: anyMember
3327 end function
3328#endif
3329
3330#if LK3_ENABLED
3331 pure module function anyinrange_D1_D1_LK3(val, Set) result(anyMember)
3332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3333 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_LK3
3334#endif
3335 use pm_kind, only: LKG => LK3
3336 logical(LKG) , intent(in), contiguous :: val(:)
3337 logical(LKG) , intent(in) :: Set(2)
3338 logical(LK) :: anyMember
3339 end function
3340#endif
3341
3342#if LK2_ENABLED
3343 pure module function anyinrange_D1_D1_LK2(val, Set) result(anyMember)
3344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3345 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_LK2
3346#endif
3347 use pm_kind, only: LKG => LK2
3348 logical(LKG) , intent(in), contiguous :: val(:)
3349 logical(LKG) , intent(in) :: Set(2)
3350 logical(LK) :: anyMember
3351 end function
3352#endif
3353
3354#if LK1_ENABLED
3355 pure module function anyinrange_D1_D1_LK1(val, Set) result(anyMember)
3356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3357 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_LK1
3358#endif
3359 use pm_kind, only: LKG => LK1
3360 logical(LKG) , intent(in), contiguous :: val(:)
3361 logical(LKG) , intent(in) :: Set(2)
3362 logical(LK) :: anyMember
3363 end function
3364#endif
3365
3366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3367
3368#if CK5_ENABLED
3369 pure module function anyinrange_D1_D1_CK5(val, Set) result(anyMember)
3370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3371 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_CK5
3372#endif
3373 use pm_kind, only: CKG => CK5
3374 complex(CKG) , intent(in), contiguous :: val(:)
3375 complex(CKG) , intent(in) :: Set(2)
3376 logical(LK) :: anyMember
3377 end function
3378#endif
3379
3380#if CK4_ENABLED
3381 pure module function anyinrange_D1_D1_CK4(val, Set) result(anyMember)
3382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3383 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_CK4
3384#endif
3385 use pm_kind, only: CKG => CK4
3386 complex(CKG) , intent(in), contiguous :: val(:)
3387 complex(CKG) , intent(in) :: Set(2)
3388 logical(LK) :: anyMember
3389 end function
3390#endif
3391
3392#if CK3_ENABLED
3393 pure module function anyinrange_D1_D1_CK3(val, Set) result(anyMember)
3394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3395 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_CK3
3396#endif
3397 use pm_kind, only: CKG => CK3
3398 complex(CKG) , intent(in), contiguous :: val(:)
3399 complex(CKG) , intent(in) :: Set(2)
3400 logical(LK) :: anyMember
3401 end function
3402#endif
3403
3404#if CK2_ENABLED
3405 pure module function anyinrange_D1_D1_CK2(val, Set) result(anyMember)
3406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3407 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_CK2
3408#endif
3409 use pm_kind, only: CKG => CK2
3410 complex(CKG) , intent(in), contiguous :: val(:)
3411 complex(CKG) , intent(in) :: Set(2)
3412 logical(LK) :: anyMember
3413 end function
3414#endif
3415
3416#if CK1_ENABLED
3417 pure module function anyinrange_D1_D1_CK1(val, Set) result(anyMember)
3418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3419 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_CK1
3420#endif
3421 use pm_kind, only: CKG => CK1
3422 complex(CKG) , intent(in), contiguous :: val(:)
3423 complex(CKG) , intent(in) :: Set(2)
3424 logical(LK) :: anyMember
3425 end function
3426#endif
3427
3428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3429
3430#if RK5_ENABLED
3431 pure module function anyinrange_D1_D1_RK5(val, Set) result(anyMember)
3432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3433 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_RK5
3434#endif
3435 use pm_kind, only: RKG => RK5
3436 real(RKG) , intent(in), contiguous :: val(:)
3437 real(RKG) , intent(in) :: Set(2)
3438 logical(LK) :: anyMember
3439 end function
3440#endif
3441
3442#if RK4_ENABLED
3443 pure module function anyinrange_D1_D1_RK4(val, Set) result(anyMember)
3444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3445 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_RK4
3446#endif
3447 use pm_kind, only: RKG => RK4
3448 real(RKG) , intent(in), contiguous :: val(:)
3449 real(RKG) , intent(in) :: Set(2)
3450 logical(LK) :: anyMember
3451 end function
3452#endif
3453
3454#if RK3_ENABLED
3455 pure module function anyinrange_D1_D1_RK3(val, Set) result(anyMember)
3456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3457 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_RK3
3458#endif
3459 use pm_kind, only: RKG => RK3
3460 real(RKG) , intent(in), contiguous :: val(:)
3461 real(RKG) , intent(in) :: Set(2)
3462 logical(LK) :: anyMember
3463 end function
3464#endif
3465
3466#if RK2_ENABLED
3467 pure module function anyinrange_D1_D1_RK2(val, Set) result(anyMember)
3468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3469 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_RK2
3470#endif
3471 use pm_kind, only: RKG => RK2
3472 real(RKG) , intent(in), contiguous :: val(:)
3473 real(RKG) , intent(in) :: Set(2)
3474 logical(LK) :: anyMember
3475 end function
3476#endif
3477
3478#if RK1_ENABLED
3479 pure module function anyinrange_D1_D1_RK1(val, Set) result(anyMember)
3480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3481 !DEC$ ATTRIBUTES DLLEXPORT :: anyinrange_D1_D1_RK1
3482#endif
3483 use pm_kind, only: RKG => RK1
3484 real(RKG) , intent(in), contiguous :: val(:)
3485 real(RKG) , intent(in) :: Set(2)
3486 logical(LK) :: anyMember
3487 end function
3488#endif
3489
3490 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3491
3492 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3493 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3495
3496 end interface
3497
3498!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3499
3500end module pm_arrayMembership
This module contains procedures and generic interfaces for assessing whether particular value(s) or a...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter SK5
Definition: pm_kind.F90:326
integer, parameter LK1
Definition: pm_kind.F90:412
integer, parameter IK3
Definition: pm_kind.F90:368
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter IK1
Definition: pm_kind.F90:382
integer, parameter LK5
Definition: pm_kind.F90:392
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter LK2
Definition: pm_kind.F90:407
integer, parameter LK4
Definition: pm_kind.F90:397
integer, parameter CK5
Definition: pm_kind.F90:420
integer, parameter CK4
Definition: pm_kind.F90:431
integer, parameter SK4
Definition: pm_kind.F90:331
integer, parameter LK3
Definition: pm_kind.F90:402
integer, parameter IK2
Definition: pm_kind.F90:375
integer, parameter CK2
Definition: pm_kind.F90:453
integer, parameter SK2
Definition: pm_kind.F90:341
integer, parameter CK3
Definition: pm_kind.F90:442
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter IK4
Definition: pm_kind.F90:361
integer, parameter IK5
Definition: pm_kind.F90:354
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RK1
Definition: pm_kind.F90:522
integer, parameter SK3
Definition: pm_kind.F90:336