ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayRemove.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 end block
86
87!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
88
89module pm_arrayRemove
90
92! \bug
93! The following bypasses the bug reported below that creates a conflict between Intel and gfortran.
94#if __INTEL_COMPILER
95#define LEN_ARRAY :
96#else
97#define LEN_ARRAY len(array,IK)
98#endif
99
100
101 use pm_kind, only: SK, IK, LK
102
103 implicit none
104
105 character(*,SK), parameter :: MODULE_NAME = "@pm_arrayRemove"
106
107!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108
337 interface getRemoved
338
339 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
340 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
342 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
343 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
344 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
345 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
346 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
348
349 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
350
351#if SK5_ENABLED
352 PURE module function getRemovedDefComDefIns_D0_D0_SK5(array, pattern) result(ArrayRemoved)
353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
354 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D0_D0_SK5
355#endif
356 use pm_kind, only: SKG => SK5
357 character(*,SKG) , intent(in) :: array
358 character(*,SKG) , intent(in) :: pattern
359 character(:,SKG) , allocatable :: ArrayRemoved
360 end function
361#endif
362
363#if SK4_ENABLED
364 PURE module function getRemovedDefComDefIns_D0_D0_SK4(array, pattern) result(ArrayRemoved)
365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
366 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D0_D0_SK4
367#endif
368 use pm_kind, only: SKG => SK4
369 character(*,SKG) , intent(in) :: array
370 character(*,SKG) , intent(in) :: pattern
371 character(:,SKG) , allocatable :: ArrayRemoved
372 end function
373#endif
374
375#if SK3_ENABLED
376 PURE module function getRemovedDefComDefIns_D0_D0_SK3(array, pattern) result(ArrayRemoved)
377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
378 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D0_D0_SK3
379#endif
380 use pm_kind, only: SKG => SK3
381 character(*,SKG) , intent(in) :: array
382 character(*,SKG) , intent(in) :: pattern
383 character(:,SKG) , allocatable :: ArrayRemoved
384 end function
385#endif
386
387#if SK2_ENABLED
388 PURE module function getRemovedDefComDefIns_D0_D0_SK2(array, pattern) result(ArrayRemoved)
389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
390 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D0_D0_SK2
391#endif
392 use pm_kind, only: SKG => SK2
393 character(*,SKG) , intent(in) :: array
394 character(*,SKG) , intent(in) :: pattern
395 character(:,SKG) , allocatable :: ArrayRemoved
396 end function
397#endif
398
399#if SK1_ENABLED
400 PURE module function getRemovedDefComDefIns_D0_D0_SK1(array, pattern) result(ArrayRemoved)
401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
402 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D0_D0_SK1
403#endif
404 use pm_kind, only: SKG => SK1
405 character(*,SKG) , intent(in) :: array
406 character(*,SKG) , intent(in) :: pattern
407 character(:,SKG) , allocatable :: ArrayRemoved
408 end function
409#endif
410
411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412
413 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
414 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
415 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
416
417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418
419#if SK5_ENABLED
420 module function getRemovedCusComDefIns_D0_D0_SK5(array, pattern, iseq) result(ArrayRemoved)
421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
422 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D0_D0_SK5
423#endif
424 use pm_kind, only: SKG => SK5
425 character(*,SKG) , intent(in) :: array
426 character(*,SKG) , intent(in) :: pattern
427 procedure(logical(LK)) :: iseq
428 character(:,SKG) , allocatable :: ArrayRemoved
429 end function
430#endif
431
432#if SK4_ENABLED
433 module function getRemovedCusComDefIns_D0_D0_SK4(array, pattern, iseq) result(ArrayRemoved)
434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
435 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D0_D0_SK4
436#endif
437 use pm_kind, only: SKG => SK4
438 character(*,SKG) , intent(in) :: array
439 character(*,SKG) , intent(in) :: pattern
440 procedure(logical(LK)) :: iseq
441 character(:,SKG) , allocatable :: ArrayRemoved
442 end function
443#endif
444
445#if SK3_ENABLED
446 module function getRemovedCusComDefIns_D0_D0_SK3(array, pattern, iseq) result(ArrayRemoved)
447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
448 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D0_D0_SK3
449#endif
450 use pm_kind, only: SKG => SK3
451 character(*,SKG) , intent(in) :: array
452 character(*,SKG) , intent(in) :: pattern
453 procedure(logical(LK)) :: iseq
454 character(:,SKG) , allocatable :: ArrayRemoved
455 end function
456#endif
457
458#if SK2_ENABLED
459 module function getRemovedCusComDefIns_D0_D0_SK2(array, pattern, iseq) result(ArrayRemoved)
460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
461 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D0_D0_SK2
462#endif
463 use pm_kind, only: SKG => SK2
464 character(*,SKG) , intent(in) :: array
465 character(*,SKG) , intent(in) :: pattern
466 procedure(logical(LK)) :: iseq
467 character(:,SKG) , allocatable :: ArrayRemoved
468 end function
469#endif
470
471#if SK1_ENABLED
472 module function getRemovedCusComDefIns_D0_D0_SK1(array, pattern, iseq) result(ArrayRemoved)
473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
474 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D0_D0_SK1
475#endif
476 use pm_kind, only: SKG => SK1
477 character(*,SKG) , intent(in) :: array
478 character(*,SKG) , intent(in) :: pattern
479 procedure(logical(LK)) :: iseq
480 character(:,SKG) , allocatable :: ArrayRemoved
481 end function
482#endif
483
484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485
486 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
488 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489
490 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491
492#if SK5_ENABLED
493 PURE module function getRemovedDefComCusIns_D0_D0_SK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
495 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D0_D0_SK5
496#endif
497 use pm_kind, only: SKG => SK5
498 character(*,SKG) , intent(in) :: array
499 character(*,SKG) , intent(in) :: pattern
500 integer(IK) , intent(in) , contiguous :: instance(:)
501 logical(LK) , intent(in) , optional :: sorted
502 logical(LK) , intent(in) , optional :: unique
503 character(:,SKG) , allocatable :: ArrayRemoved
504 end function
505#endif
506
507#if SK4_ENABLED
508 PURE module function getRemovedDefComCusIns_D0_D0_SK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
510 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D0_D0_SK4
511#endif
512 use pm_kind, only: SKG => SK4
513 character(*,SKG) , intent(in) :: array
514 character(*,SKG) , intent(in) :: pattern
515 integer(IK) , intent(in) , contiguous :: instance(:)
516 logical(LK) , intent(in) , optional :: sorted
517 logical(LK) , intent(in) , optional :: unique
518 character(:,SKG) , allocatable :: ArrayRemoved
519 end function
520#endif
521
522#if SK3_ENABLED
523 PURE module function getRemovedDefComCusIns_D0_D0_SK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
525 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D0_D0_SK3
526#endif
527 use pm_kind, only: SKG => SK3
528 character(*,SKG) , intent(in) :: array
529 character(*,SKG) , intent(in) :: pattern
530 integer(IK) , intent(in) , contiguous :: instance(:)
531 logical(LK) , intent(in) , optional :: sorted
532 logical(LK) , intent(in) , optional :: unique
533 character(:,SKG) , allocatable :: ArrayRemoved
534 end function
535#endif
536
537#if SK2_ENABLED
538 PURE module function getRemovedDefComCusIns_D0_D0_SK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
540 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D0_D0_SK2
541#endif
542 use pm_kind, only: SKG => SK2
543 character(*,SKG) , intent(in) :: array
544 character(*,SKG) , intent(in) :: pattern
545 integer(IK) , intent(in) , contiguous :: instance(:)
546 logical(LK) , intent(in) , optional :: sorted
547 logical(LK) , intent(in) , optional :: unique
548 character(:,SKG) , allocatable :: ArrayRemoved
549 end function
550#endif
551
552#if SK1_ENABLED
553 PURE module function getRemovedDefComCusIns_D0_D0_SK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
555 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D0_D0_SK1
556#endif
557 use pm_kind, only: SKG => SK1
558 character(*,SKG) , intent(in) :: array
559 character(*,SKG) , intent(in) :: pattern
560 integer(IK) , intent(in) , contiguous :: instance(:)
561 logical(LK) , intent(in) , optional :: sorted
562 logical(LK) , intent(in) , optional :: unique
563 character(:,SKG) , allocatable :: ArrayRemoved
564 end function
565#endif
566
567 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
568
569 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
570 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572
573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
574
575#if SK5_ENABLED
576 module function getRemovedCusComCusIns_D0_D0_SK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
578 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D0_D0_SK5
579#endif
580 use pm_kind, only: SKG => SK5
581 character(*,SKG) , intent(in) :: array
582 character(*,SKG) , intent(in) :: pattern
583 procedure(logical(LK)) :: iseq
584 integer(IK) , intent(in) , contiguous :: instance(:)
585 logical(LK) , intent(in) , optional :: sorted
586 logical(LK) , intent(in) , optional :: unique
587 character(:,SKG) , allocatable :: ArrayRemoved
588 end function
589#endif
590
591#if SK4_ENABLED
592 module function getRemovedCusComCusIns_D0_D0_SK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
594 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D0_D0_SK4
595#endif
596 use pm_kind, only: SKG => SK4
597 character(*,SKG) , intent(in) :: array
598 character(*,SKG) , intent(in) :: pattern
599 procedure(logical(LK)) :: iseq
600 integer(IK) , intent(in) , contiguous :: instance(:)
601 logical(LK) , intent(in) , optional :: sorted
602 logical(LK) , intent(in) , optional :: unique
603 character(:,SKG) , allocatable :: ArrayRemoved
604 end function
605#endif
606
607#if SK3_ENABLED
608 module function getRemovedCusComCusIns_D0_D0_SK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
610 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D0_D0_SK3
611#endif
612 use pm_kind, only: SKG => SK3
613 character(*,SKG) , intent(in) :: array
614 character(*,SKG) , intent(in) :: pattern
615 procedure(logical(LK)) :: iseq
616 integer(IK) , intent(in) , contiguous :: instance(:)
617 logical(LK) , intent(in) , optional :: sorted
618 logical(LK) , intent(in) , optional :: unique
619 character(:,SKG) , allocatable :: ArrayRemoved
620 end function
621#endif
622
623#if SK2_ENABLED
624 module function getRemovedCusComCusIns_D0_D0_SK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
626 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D0_D0_SK2
627#endif
628 use pm_kind, only: SKG => SK2
629 character(*,SKG) , intent(in) :: array
630 character(*,SKG) , intent(in) :: pattern
631 procedure(logical(LK)) :: iseq
632 integer(IK) , intent(in) , contiguous :: instance(:)
633 logical(LK) , intent(in) , optional :: sorted
634 logical(LK) , intent(in) , optional :: unique
635 character(:,SKG) , allocatable :: ArrayRemoved
636 end function
637#endif
638
639#if SK1_ENABLED
640 module function getRemovedCusComCusIns_D0_D0_SK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
642 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D0_D0_SK1
643#endif
644 use pm_kind, only: SKG => SK1
645 character(*,SKG) , intent(in) :: array
646 character(*,SKG) , intent(in) :: pattern
647 procedure(logical(LK)) :: iseq
648 integer(IK) , intent(in) , contiguous :: instance(:)
649 logical(LK) , intent(in) , optional :: sorted
650 logical(LK) , intent(in) , optional :: unique
651 character(:,SKG) , allocatable :: ArrayRemoved
652 end function
653#endif
654
655 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
656
657 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
658 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
660 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
664 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
665 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
666
667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
668
669#if SK5_ENABLED
670 PURE module function getRemovedDefComDefIns_D1_D0_SK5(array, pattern) result(ArrayRemoved)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_SK5
673#endif
674 use pm_kind, only: SKG => SK5
675 character(*,SKG) , intent(in) , contiguous :: array(:)
676 character(*,SKG) , intent(in) :: pattern
677 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
678 end function
679#endif
680
681#if SK4_ENABLED
682 PURE module function getRemovedDefComDefIns_D1_D0_SK4(array, pattern) result(ArrayRemoved)
683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
684 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_SK4
685#endif
686 use pm_kind, only: SKG => SK4
687 character(*,SKG) , intent(in) , contiguous :: array(:)
688 character(*,SKG) , intent(in) :: pattern
689 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
690 end function
691#endif
692
693#if SK3_ENABLED
694 PURE module function getRemovedDefComDefIns_D1_D0_SK3(array, pattern) result(ArrayRemoved)
695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
696 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_SK3
697#endif
698 use pm_kind, only: SKG => SK3
699 character(*,SKG) , intent(in) , contiguous :: array(:)
700 character(*,SKG) , intent(in) :: pattern
701 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
702 end function
703#endif
704
705#if SK2_ENABLED
706 PURE module function getRemovedDefComDefIns_D1_D0_SK2(array, pattern) result(ArrayRemoved)
707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
708 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_SK2
709#endif
710 use pm_kind, only: SKG => SK2
711 character(*,SKG) , intent(in) , contiguous :: array(:)
712 character(*,SKG) , intent(in) :: pattern
713 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
714 end function
715#endif
716
717#if SK1_ENABLED
718 PURE module function getRemovedDefComDefIns_D1_D0_SK1(array, pattern) result(ArrayRemoved)
719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
720 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_SK1
721#endif
722 use pm_kind, only: SKG => SK1
723 character(*,SKG) , intent(in) , contiguous :: array(:)
724 character(*,SKG) , intent(in) :: pattern
725 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
726 end function
727#endif
728
729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
730
731#if IK5_ENABLED
732 PURE module function getRemovedDefComDefIns_D1_D0_IK5(array, pattern) result(ArrayRemoved)
733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
734 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_IK5
735#endif
736 use pm_kind, only: IKG => IK5
737 integer(IKG) , intent(in) , contiguous :: array(:)
738 integer(IKG) , intent(in) :: pattern
739 integer(IKG) , allocatable :: ArrayRemoved(:)
740 end function
741#endif
742
743#if IK4_ENABLED
744 PURE module function getRemovedDefComDefIns_D1_D0_IK4(array, pattern) result(ArrayRemoved)
745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
746 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_IK4
747#endif
748 use pm_kind, only: IKG => IK4
749 integer(IKG) , intent(in) , contiguous :: array(:)
750 integer(IKG) , intent(in) :: pattern
751 integer(IKG) , allocatable :: ArrayRemoved(:)
752 end function
753#endif
754
755#if IK3_ENABLED
756 PURE module function getRemovedDefComDefIns_D1_D0_IK3(array, pattern) result(ArrayRemoved)
757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
758 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_IK3
759#endif
760 use pm_kind, only: IKG => IK3
761 integer(IKG) , intent(in) , contiguous :: array(:)
762 integer(IKG) , intent(in) :: pattern
763 integer(IKG) , allocatable :: ArrayRemoved(:)
764 end function
765#endif
766
767#if IK2_ENABLED
768 PURE module function getRemovedDefComDefIns_D1_D0_IK2(array, pattern) result(ArrayRemoved)
769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
770 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_IK2
771#endif
772 use pm_kind, only: IKG => IK2
773 integer(IKG) , intent(in) , contiguous :: array(:)
774 integer(IKG) , intent(in) :: pattern
775 integer(IKG) , allocatable :: ArrayRemoved(:)
776 end function
777#endif
778
779#if IK1_ENABLED
780 PURE module function getRemovedDefComDefIns_D1_D0_IK1(array, pattern) result(ArrayRemoved)
781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
782 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_IK1
783#endif
784 use pm_kind, only: IKG => IK1
785 integer(IKG) , intent(in) , contiguous :: array(:)
786 integer(IKG) , intent(in) :: pattern
787 integer(IKG) , allocatable :: ArrayRemoved(:)
788 end function
789#endif
790
791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
792
793#if LK5_ENABLED
794 PURE module function getRemovedDefComDefIns_D1_D0_LK5(array, pattern) result(ArrayRemoved)
795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
796 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_LK5
797#endif
798 use pm_kind, only: LKG => LK5
799 logical(LKG) , intent(in) , contiguous :: array(:)
800 logical(LKG) , intent(in) :: pattern
801 logical(LKG) , allocatable :: ArrayRemoved(:)
802 end function
803#endif
804
805#if LK4_ENABLED
806 PURE module function getRemovedDefComDefIns_D1_D0_LK4(array, pattern) result(ArrayRemoved)
807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
808 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_LK4
809#endif
810 use pm_kind, only: LKG => LK4
811 logical(LKG) , intent(in) , contiguous :: array(:)
812 logical(LKG) , intent(in) :: pattern
813 logical(LKG) , allocatable :: ArrayRemoved(:)
814 end function
815#endif
816
817#if LK3_ENABLED
818 PURE module function getRemovedDefComDefIns_D1_D0_LK3(array, pattern) result(ArrayRemoved)
819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
820 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_LK3
821#endif
822 use pm_kind, only: LKG => LK3
823 logical(LKG) , intent(in) , contiguous :: array(:)
824 logical(LKG) , intent(in) :: pattern
825 logical(LKG) , allocatable :: ArrayRemoved(:)
826 end function
827#endif
828
829#if LK2_ENABLED
830 PURE module function getRemovedDefComDefIns_D1_D0_LK2(array, pattern) result(ArrayRemoved)
831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
832 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_LK2
833#endif
834 use pm_kind, only: LKG => LK2
835 logical(LKG) , intent(in) , contiguous :: array(:)
836 logical(LKG) , intent(in) :: pattern
837 logical(LKG) , allocatable :: ArrayRemoved(:)
838 end function
839#endif
840
841#if LK1_ENABLED
842 PURE module function getRemovedDefComDefIns_D1_D0_LK1(array, pattern) result(ArrayRemoved)
843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
844 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_LK1
845#endif
846 use pm_kind, only: LKG => LK1
847 logical(LKG) , intent(in) , contiguous :: array(:)
848 logical(LKG) , intent(in) :: pattern
849 logical(LKG) , allocatable :: ArrayRemoved(:)
850 end function
851#endif
852
853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
854
855#if CK5_ENABLED
856 PURE module function getRemovedDefComDefIns_D1_D0_CK5(array, pattern) result(ArrayRemoved)
857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
858 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_CK5
859#endif
860 use pm_kind, only: CKG => CK5
861 complex(CKG) , intent(in) , contiguous :: array(:)
862 complex(CKG) , intent(in) :: pattern
863 complex(CKG) , allocatable :: ArrayRemoved(:)
864 end function
865#endif
866
867#if CK4_ENABLED
868 PURE module function getRemovedDefComDefIns_D1_D0_CK4(array, pattern) result(ArrayRemoved)
869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
870 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_CK4
871#endif
872 use pm_kind, only: CKG => CK4
873 complex(CKG) , intent(in) , contiguous :: array(:)
874 complex(CKG) , intent(in) :: pattern
875 complex(CKG) , allocatable :: ArrayRemoved(:)
876 end function
877#endif
878
879#if CK3_ENABLED
880 PURE module function getRemovedDefComDefIns_D1_D0_CK3(array, pattern) result(ArrayRemoved)
881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
882 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_CK3
883#endif
884 use pm_kind, only: CKG => CK3
885 complex(CKG) , intent(in) , contiguous :: array(:)
886 complex(CKG) , intent(in) :: pattern
887 complex(CKG) , allocatable :: ArrayRemoved(:)
888 end function
889#endif
890
891#if CK2_ENABLED
892 PURE module function getRemovedDefComDefIns_D1_D0_CK2(array, pattern) result(ArrayRemoved)
893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
894 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_CK2
895#endif
896 use pm_kind, only: CKG => CK2
897 complex(CKG) , intent(in) , contiguous :: array(:)
898 complex(CKG) , intent(in) :: pattern
899 complex(CKG) , allocatable :: ArrayRemoved(:)
900 end function
901#endif
902
903#if CK1_ENABLED
904 PURE module function getRemovedDefComDefIns_D1_D0_CK1(array, pattern) result(ArrayRemoved)
905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
906 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_CK1
907#endif
908 use pm_kind, only: CKG => CK1
909 complex(CKG) , intent(in) , contiguous :: array(:)
910 complex(CKG) , intent(in) :: pattern
911 complex(CKG) , allocatable :: ArrayRemoved(:)
912 end function
913#endif
914
915 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
916
917#if RK5_ENABLED
918 PURE module function getRemovedDefComDefIns_D1_D0_RK5(array, pattern) result(ArrayRemoved)
919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
920 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_RK5
921#endif
922 use pm_kind, only: RKG => RK5
923 real(RKG) , intent(in) , contiguous :: array(:)
924 real(RKG) , intent(in) :: pattern
925 real(RKG) , allocatable :: ArrayRemoved(:)
926 end function
927#endif
928
929#if RK4_ENABLED
930 PURE module function getRemovedDefComDefIns_D1_D0_RK4(array, pattern) result(ArrayRemoved)
931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
932 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_RK4
933#endif
934 use pm_kind, only: RKG => RK4
935 real(RKG) , intent(in) , contiguous :: array(:)
936 real(RKG) , intent(in) :: pattern
937 real(RKG) , allocatable :: ArrayRemoved(:)
938 end function
939#endif
940
941#if RK3_ENABLED
942 PURE module function getRemovedDefComDefIns_D1_D0_RK3(array, pattern) result(ArrayRemoved)
943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
944 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_RK3
945#endif
946 use pm_kind, only: RKG => RK3
947 real(RKG) , intent(in) , contiguous :: array(:)
948 real(RKG) , intent(in) :: pattern
949 real(RKG) , allocatable :: ArrayRemoved(:)
950 end function
951#endif
952
953#if RK2_ENABLED
954 PURE module function getRemovedDefComDefIns_D1_D0_RK2(array, pattern) result(ArrayRemoved)
955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
956 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_RK2
957#endif
958 use pm_kind, only: RKG => RK2
959 real(RKG) , intent(in) , contiguous :: array(:)
960 real(RKG) , intent(in) :: pattern
961 real(RKG) , allocatable :: ArrayRemoved(:)
962 end function
963#endif
964
965#if RK1_ENABLED
966 PURE module function getRemovedDefComDefIns_D1_D0_RK1(array, pattern) result(ArrayRemoved)
967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
968 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D0_RK1
969#endif
970 use pm_kind, only: RKG => RK1
971 real(RKG) , intent(in) , contiguous :: array(:)
972 real(RKG) , intent(in) :: pattern
973 real(RKG) , allocatable :: ArrayRemoved(:)
974 end function
975#endif
976
977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
978
979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
980 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
982
983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
984
985#if SK5_ENABLED
986 module function getRemovedCusComDefIns_D1_D0_SK5(array, pattern, iseq) result(ArrayRemoved)
987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
988 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_SK5
989#endif
990 use pm_kind, only: SKG => SK5
991 character(*,SKG) , intent(in) , contiguous :: array(:)
992 character(*,SKG) , intent(in) :: pattern
993 procedure(logical(LK)) :: iseq
994 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
995 end function
996#endif
997
998#if SK4_ENABLED
999 module function getRemovedCusComDefIns_D1_D0_SK4(array, pattern, iseq) result(ArrayRemoved)
1000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1001 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_SK4
1002#endif
1003 use pm_kind, only: SKG => SK4
1004 character(*,SKG) , intent(in) , contiguous :: array(:)
1005 character(*,SKG) , intent(in) :: pattern
1006 procedure(logical(LK)) :: iseq
1007 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1008 end function
1009#endif
1010
1011#if SK3_ENABLED
1012 module function getRemovedCusComDefIns_D1_D0_SK3(array, pattern, iseq) result(ArrayRemoved)
1013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1014 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_SK3
1015#endif
1016 use pm_kind, only: SKG => SK3
1017 character(*,SKG) , intent(in) , contiguous :: array(:)
1018 character(*,SKG) , intent(in) :: pattern
1019 procedure(logical(LK)) :: iseq
1020 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1021 end function
1022#endif
1023
1024#if SK2_ENABLED
1025 module function getRemovedCusComDefIns_D1_D0_SK2(array, pattern, iseq) result(ArrayRemoved)
1026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1027 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_SK2
1028#endif
1029 use pm_kind, only: SKG => SK2
1030 character(*,SKG) , intent(in) , contiguous :: array(:)
1031 character(*,SKG) , intent(in) :: pattern
1032 procedure(logical(LK)) :: iseq
1033 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1034 end function
1035#endif
1036
1037#if SK1_ENABLED
1038 module function getRemovedCusComDefIns_D1_D0_SK1(array, pattern, iseq) result(ArrayRemoved)
1039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1040 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_SK1
1041#endif
1042 use pm_kind, only: SKG => SK1
1043 character(*,SKG) , intent(in) , contiguous :: array(:)
1044 character(*,SKG) , intent(in) :: pattern
1045 procedure(logical(LK)) :: iseq
1046 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1047 end function
1048#endif
1049
1050 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1051
1052#if IK5_ENABLED
1053 module function getRemovedCusComDefIns_D1_D0_IK5(array, pattern, iseq) result(ArrayRemoved)
1054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1055 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_IK5
1056#endif
1057 use pm_kind, only: IKG => IK5
1058 integer(IKG) , intent(in) , contiguous :: array(:)
1059 integer(IKG) , intent(in) :: pattern
1060 procedure(logical(LK)) :: iseq
1061 integer(IKG) , allocatable :: ArrayRemoved(:)
1062 end function
1063#endif
1064
1065#if IK4_ENABLED
1066 module function getRemovedCusComDefIns_D1_D0_IK4(array, pattern, iseq) result(ArrayRemoved)
1067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1068 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_IK4
1069#endif
1070 use pm_kind, only: IKG => IK4
1071 integer(IKG) , intent(in) , contiguous :: array(:)
1072 integer(IKG) , intent(in) :: pattern
1073 procedure(logical(LK)) :: iseq
1074 integer(IKG) , allocatable :: ArrayRemoved(:)
1075 end function
1076#endif
1077
1078#if IK3_ENABLED
1079 module function getRemovedCusComDefIns_D1_D0_IK3(array, pattern, iseq) result(ArrayRemoved)
1080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1081 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_IK3
1082#endif
1083 use pm_kind, only: IKG => IK3
1084 integer(IKG) , intent(in) , contiguous :: array(:)
1085 integer(IKG) , intent(in) :: pattern
1086 procedure(logical(LK)) :: iseq
1087 integer(IKG) , allocatable :: ArrayRemoved(:)
1088 end function
1089#endif
1090
1091#if IK2_ENABLED
1092 module function getRemovedCusComDefIns_D1_D0_IK2(array, pattern, iseq) result(ArrayRemoved)
1093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1094 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_IK2
1095#endif
1096 use pm_kind, only: IKG => IK2
1097 integer(IKG) , intent(in) , contiguous :: array(:)
1098 integer(IKG) , intent(in) :: pattern
1099 procedure(logical(LK)) :: iseq
1100 integer(IKG) , allocatable :: ArrayRemoved(:)
1101 end function
1102#endif
1103
1104#if IK1_ENABLED
1105 module function getRemovedCusComDefIns_D1_D0_IK1(array, pattern, iseq) result(ArrayRemoved)
1106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1107 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_IK1
1108#endif
1109 use pm_kind, only: IKG => IK1
1110 integer(IKG) , intent(in) , contiguous :: array(:)
1111 integer(IKG) , intent(in) :: pattern
1112 procedure(logical(LK)) :: iseq
1113 integer(IKG) , allocatable :: ArrayRemoved(:)
1114 end function
1115#endif
1116
1117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1118
1119#if LK5_ENABLED
1120 module function getRemovedCusComDefIns_D1_D0_LK5(array, pattern, iseq) result(ArrayRemoved)
1121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1122 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_LK5
1123#endif
1124 use pm_kind, only: LKG => LK5
1125 logical(LKG) , intent(in) , contiguous :: array(:)
1126 logical(LKG) , intent(in) :: pattern
1127 procedure(logical(LK)) :: iseq
1128 logical(LKG) , allocatable :: ArrayRemoved(:)
1129 end function
1130#endif
1131
1132#if LK4_ENABLED
1133 module function getRemovedCusComDefIns_D1_D0_LK4(array, pattern, iseq) result(ArrayRemoved)
1134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1135 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_LK4
1136#endif
1137 use pm_kind, only: LKG => LK4
1138 logical(LKG) , intent(in) , contiguous :: array(:)
1139 logical(LKG) , intent(in) :: pattern
1140 procedure(logical(LK)) :: iseq
1141 logical(LKG) , allocatable :: ArrayRemoved(:)
1142 end function
1143#endif
1144
1145#if LK3_ENABLED
1146 module function getRemovedCusComDefIns_D1_D0_LK3(array, pattern, iseq) result(ArrayRemoved)
1147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1148 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_LK3
1149#endif
1150 use pm_kind, only: LKG => LK3
1151 logical(LKG) , intent(in) , contiguous :: array(:)
1152 logical(LKG) , intent(in) :: pattern
1153 procedure(logical(LK)) :: iseq
1154 logical(LKG) , allocatable :: ArrayRemoved(:)
1155 end function
1156#endif
1157
1158#if LK2_ENABLED
1159 module function getRemovedCusComDefIns_D1_D0_LK2(array, pattern, iseq) result(ArrayRemoved)
1160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1161 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_LK2
1162#endif
1163 use pm_kind, only: LKG => LK2
1164 logical(LKG) , intent(in) , contiguous :: array(:)
1165 logical(LKG) , intent(in) :: pattern
1166 procedure(logical(LK)) :: iseq
1167 logical(LKG) , allocatable :: ArrayRemoved(:)
1168 end function
1169#endif
1170
1171#if LK1_ENABLED
1172 module function getRemovedCusComDefIns_D1_D0_LK1(array, pattern, iseq) result(ArrayRemoved)
1173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1174 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_LK1
1175#endif
1176 use pm_kind, only: LKG => LK1
1177 logical(LKG) , intent(in) , contiguous :: array(:)
1178 logical(LKG) , intent(in) :: pattern
1179 procedure(logical(LK)) :: iseq
1180 logical(LKG) , allocatable :: ArrayRemoved(:)
1181 end function
1182#endif
1183
1184 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1185
1186#if CK5_ENABLED
1187 module function getRemovedCusComDefIns_D1_D0_CK5(array, pattern, iseq) result(ArrayRemoved)
1188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1189 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_CK5
1190#endif
1191 use pm_kind, only: CKG => CK5
1192 complex(CKG) , intent(in) , contiguous :: array(:)
1193 complex(CKG) , intent(in) :: pattern
1194 procedure(logical(LK)) :: iseq
1195 complex(CKG) , allocatable :: ArrayRemoved(:)
1196 end function
1197#endif
1198
1199#if CK4_ENABLED
1200 module function getRemovedCusComDefIns_D1_D0_CK4(array, pattern, iseq) result(ArrayRemoved)
1201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1202 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_CK4
1203#endif
1204 use pm_kind, only: CKG => CK4
1205 complex(CKG) , intent(in) , contiguous :: array(:)
1206 complex(CKG) , intent(in) :: pattern
1207 procedure(logical(LK)) :: iseq
1208 complex(CKG) , allocatable :: ArrayRemoved(:)
1209 end function
1210#endif
1211
1212#if CK3_ENABLED
1213 module function getRemovedCusComDefIns_D1_D0_CK3(array, pattern, iseq) result(ArrayRemoved)
1214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1215 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_CK3
1216#endif
1217 use pm_kind, only: CKG => CK3
1218 complex(CKG) , intent(in) , contiguous :: array(:)
1219 complex(CKG) , intent(in) :: pattern
1220 procedure(logical(LK)) :: iseq
1221 complex(CKG) , allocatable :: ArrayRemoved(:)
1222 end function
1223#endif
1224
1225#if CK2_ENABLED
1226 module function getRemovedCusComDefIns_D1_D0_CK2(array, pattern, iseq) result(ArrayRemoved)
1227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1228 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_CK2
1229#endif
1230 use pm_kind, only: CKG => CK2
1231 complex(CKG) , intent(in) , contiguous :: array(:)
1232 complex(CKG) , intent(in) :: pattern
1233 procedure(logical(LK)) :: iseq
1234 complex(CKG) , allocatable :: ArrayRemoved(:)
1235 end function
1236#endif
1237
1238#if CK1_ENABLED
1239 module function getRemovedCusComDefIns_D1_D0_CK1(array, pattern, iseq) result(ArrayRemoved)
1240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1241 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_CK1
1242#endif
1243 use pm_kind, only: CKG => CK1
1244 complex(CKG) , intent(in) , contiguous :: array(:)
1245 complex(CKG) , intent(in) :: pattern
1246 procedure(logical(LK)) :: iseq
1247 complex(CKG) , allocatable :: ArrayRemoved(:)
1248 end function
1249#endif
1250
1251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1252
1253#if RK5_ENABLED
1254 module function getRemovedCusComDefIns_D1_D0_RK5(array, pattern, iseq) result(ArrayRemoved)
1255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1256 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_RK5
1257#endif
1258 use pm_kind, only: RKG => RK5
1259 real(RKG) , intent(in) , contiguous :: array(:)
1260 real(RKG) , intent(in) :: pattern
1261 procedure(logical(LK)) :: iseq
1262 real(RKG) , allocatable :: ArrayRemoved(:)
1263 end function
1264#endif
1265
1266#if RK4_ENABLED
1267 module function getRemovedCusComDefIns_D1_D0_RK4(array, pattern, iseq) result(ArrayRemoved)
1268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1269 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_RK4
1270#endif
1271 use pm_kind, only: RKG => RK4
1272 real(RKG) , intent(in) , contiguous :: array(:)
1273 real(RKG) , intent(in) :: pattern
1274 procedure(logical(LK)) :: iseq
1275 real(RKG) , allocatable :: ArrayRemoved(:)
1276 end function
1277#endif
1278
1279#if RK3_ENABLED
1280 module function getRemovedCusComDefIns_D1_D0_RK3(array, pattern, iseq) result(ArrayRemoved)
1281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1282 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_RK3
1283#endif
1284 use pm_kind, only: RKG => RK3
1285 real(RKG) , intent(in) , contiguous :: array(:)
1286 real(RKG) , intent(in) :: pattern
1287 procedure(logical(LK)) :: iseq
1288 real(RKG) , allocatable :: ArrayRemoved(:)
1289 end function
1290#endif
1291
1292#if RK2_ENABLED
1293 module function getRemovedCusComDefIns_D1_D0_RK2(array, pattern, iseq) result(ArrayRemoved)
1294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1295 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_RK2
1296#endif
1297 use pm_kind, only: RKG => RK2
1298 real(RKG) , intent(in) , contiguous :: array(:)
1299 real(RKG) , intent(in) :: pattern
1300 procedure(logical(LK)) :: iseq
1301 real(RKG) , allocatable :: ArrayRemoved(:)
1302 end function
1303#endif
1304
1305#if RK1_ENABLED
1306 module function getRemovedCusComDefIns_D1_D0_RK1(array, pattern, iseq) result(ArrayRemoved)
1307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1308 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D0_RK1
1309#endif
1310 use pm_kind, only: RKG => RK1
1311 real(RKG) , intent(in) , contiguous :: array(:)
1312 real(RKG) , intent(in) :: pattern
1313 procedure(logical(LK)) :: iseq
1314 real(RKG) , allocatable :: ArrayRemoved(:)
1315 end function
1316#endif
1317
1318 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1319
1320 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1321 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1322 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1323
1324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1325
1326#if SK5_ENABLED
1327 PURE module function getRemovedDefComCusIns_D1_D0_SK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1329 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_SK5
1330#endif
1331 use pm_kind, only: SKG => SK5
1332 character(*,SKG) , intent(in) , contiguous :: array(:)
1333 character(*,SKG) , intent(in) :: pattern
1334 integer(IK) , intent(in) , contiguous :: instance(:)
1335 logical(LK) , intent(in) , optional :: sorted
1336 logical(LK) , intent(in) , optional :: unique
1337 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1338 end function
1339#endif
1340
1341#if SK4_ENABLED
1342 PURE module function getRemovedDefComCusIns_D1_D0_SK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1344 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_SK4
1345#endif
1346 use pm_kind, only: SKG => SK4
1347 character(*,SKG) , intent(in) , contiguous :: array(:)
1348 character(*,SKG) , intent(in) :: pattern
1349 integer(IK) , intent(in) , contiguous :: instance(:)
1350 logical(LK) , intent(in) , optional :: sorted
1351 logical(LK) , intent(in) , optional :: unique
1352 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1353 end function
1354#endif
1355
1356#if SK3_ENABLED
1357 PURE module function getRemovedDefComCusIns_D1_D0_SK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1359 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_SK3
1360#endif
1361 use pm_kind, only: SKG => SK3
1362 character(*,SKG) , intent(in) , contiguous :: array(:)
1363 character(*,SKG) , intent(in) :: pattern
1364 integer(IK) , intent(in) , contiguous :: instance(:)
1365 logical(LK) , intent(in) , optional :: sorted
1366 logical(LK) , intent(in) , optional :: unique
1367 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1368 end function
1369#endif
1370
1371#if SK2_ENABLED
1372 PURE module function getRemovedDefComCusIns_D1_D0_SK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1374 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_SK2
1375#endif
1376 use pm_kind, only: SKG => SK2
1377 character(*,SKG) , intent(in) , contiguous :: array(:)
1378 character(*,SKG) , intent(in) :: pattern
1379 integer(IK) , intent(in) , contiguous :: instance(:)
1380 logical(LK) , intent(in) , optional :: sorted
1381 logical(LK) , intent(in) , optional :: unique
1382 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1383 end function
1384#endif
1385
1386#if SK1_ENABLED
1387 PURE module function getRemovedDefComCusIns_D1_D0_SK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1389 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_SK1
1390#endif
1391 use pm_kind, only: SKG => SK1
1392 character(*,SKG) , intent(in) , contiguous :: array(:)
1393 character(*,SKG) , intent(in) :: pattern
1394 integer(IK) , intent(in) , contiguous :: instance(:)
1395 logical(LK) , intent(in) , optional :: sorted
1396 logical(LK) , intent(in) , optional :: unique
1397 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1398 end function
1399#endif
1400
1401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1402
1403#if IK5_ENABLED
1404 PURE module function getRemovedDefComCusIns_D1_D0_IK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1406 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_IK5
1407#endif
1408 use pm_kind, only: IKG => IK5
1409 integer(IKG) , intent(in) , contiguous :: array(:)
1410 integer(IKG) , intent(in) :: pattern
1411 integer(IK) , intent(in) , contiguous :: instance(:)
1412 logical(LK) , intent(in) , optional :: sorted
1413 logical(LK) , intent(in) , optional :: unique
1414 integer(IKG) , allocatable :: ArrayRemoved(:)
1415 end function
1416#endif
1417
1418#if IK4_ENABLED
1419 PURE module function getRemovedDefComCusIns_D1_D0_IK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1421 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_IK4
1422#endif
1423 use pm_kind, only: IKG => IK4
1424 integer(IKG) , intent(in) , contiguous :: array(:)
1425 integer(IKG) , intent(in) :: pattern
1426 integer(IK) , intent(in) , contiguous :: instance(:)
1427 logical(LK) , intent(in) , optional :: sorted
1428 logical(LK) , intent(in) , optional :: unique
1429 integer(IKG) , allocatable :: ArrayRemoved(:)
1430 end function
1431#endif
1432
1433#if IK3_ENABLED
1434 PURE module function getRemovedDefComCusIns_D1_D0_IK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1436 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_IK3
1437#endif
1438 use pm_kind, only: IKG => IK3
1439 integer(IKG) , intent(in) , contiguous :: array(:)
1440 integer(IKG) , intent(in) :: pattern
1441 integer(IK) , intent(in) , contiguous :: instance(:)
1442 logical(LK) , intent(in) , optional :: sorted
1443 logical(LK) , intent(in) , optional :: unique
1444 integer(IKG) , allocatable :: ArrayRemoved(:)
1445 end function
1446#endif
1447
1448#if IK2_ENABLED
1449 PURE module function getRemovedDefComCusIns_D1_D0_IK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1451 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_IK2
1452#endif
1453 use pm_kind, only: IKG => IK2
1454 integer(IKG) , intent(in) , contiguous :: array(:)
1455 integer(IKG) , intent(in) :: pattern
1456 integer(IK) , intent(in) , contiguous :: instance(:)
1457 logical(LK) , intent(in) , optional :: sorted
1458 logical(LK) , intent(in) , optional :: unique
1459 integer(IKG) , allocatable :: ArrayRemoved(:)
1460 end function
1461#endif
1462
1463#if IK1_ENABLED
1464 PURE module function getRemovedDefComCusIns_D1_D0_IK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1466 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_IK1
1467#endif
1468 use pm_kind, only: IKG => IK1
1469 integer(IKG) , intent(in) , contiguous :: array(:)
1470 integer(IKG) , intent(in) :: pattern
1471 integer(IK) , intent(in) , contiguous :: instance(:)
1472 logical(LK) , intent(in) , optional :: sorted
1473 logical(LK) , intent(in) , optional :: unique
1474 integer(IKG) , allocatable :: ArrayRemoved(:)
1475 end function
1476#endif
1477
1478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1479
1480#if LK5_ENABLED
1481 PURE module function getRemovedDefComCusIns_D1_D0_LK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1483 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_LK5
1484#endif
1485 use pm_kind, only: LKG => LK5
1486 logical(LKG) , intent(in) , contiguous :: array(:)
1487 logical(LKG) , intent(in) :: pattern
1488 integer(IK) , intent(in) , contiguous :: instance(:)
1489 logical(LK) , intent(in) , optional :: sorted
1490 logical(LK) , intent(in) , optional :: unique
1491 logical(LKG) , allocatable :: ArrayRemoved(:)
1492 end function
1493#endif
1494
1495#if LK4_ENABLED
1496 PURE module function getRemovedDefComCusIns_D1_D0_LK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1498 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_LK4
1499#endif
1500 use pm_kind, only: LKG => LK4
1501 logical(LKG) , intent(in) , contiguous :: array(:)
1502 logical(LKG) , intent(in) :: pattern
1503 integer(IK) , intent(in) , contiguous :: instance(:)
1504 logical(LK) , intent(in) , optional :: sorted
1505 logical(LK) , intent(in) , optional :: unique
1506 logical(LKG) , allocatable :: ArrayRemoved(:)
1507 end function
1508#endif
1509
1510#if LK3_ENABLED
1511 PURE module function getRemovedDefComCusIns_D1_D0_LK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_LK3
1514#endif
1515 use pm_kind, only: LKG => LK3
1516 logical(LKG) , intent(in) , contiguous :: array(:)
1517 logical(LKG) , intent(in) :: pattern
1518 integer(IK) , intent(in) , contiguous :: instance(:)
1519 logical(LK) , intent(in) , optional :: sorted
1520 logical(LK) , intent(in) , optional :: unique
1521 logical(LKG) , allocatable :: ArrayRemoved(:)
1522 end function
1523#endif
1524
1525#if LK2_ENABLED
1526 PURE module function getRemovedDefComCusIns_D1_D0_LK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1528 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_LK2
1529#endif
1530 use pm_kind, only: LKG => LK2
1531 logical(LKG) , intent(in) , contiguous :: array(:)
1532 logical(LKG) , intent(in) :: pattern
1533 integer(IK) , intent(in) , contiguous :: instance(:)
1534 logical(LK) , intent(in) , optional :: sorted
1535 logical(LK) , intent(in) , optional :: unique
1536 logical(LKG) , allocatable :: ArrayRemoved(:)
1537 end function
1538#endif
1539
1540#if LK1_ENABLED
1541 PURE module function getRemovedDefComCusIns_D1_D0_LK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1543 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_LK1
1544#endif
1545 use pm_kind, only: LKG => LK1
1546 logical(LKG) , intent(in) , contiguous :: array(:)
1547 logical(LKG) , intent(in) :: pattern
1548 integer(IK) , intent(in) , contiguous :: instance(:)
1549 logical(LK) , intent(in) , optional :: sorted
1550 logical(LK) , intent(in) , optional :: unique
1551 logical(LKG) , allocatable :: ArrayRemoved(:)
1552 end function
1553#endif
1554
1555 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1556
1557#if CK5_ENABLED
1558 PURE module function getRemovedDefComCusIns_D1_D0_CK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1560 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_CK5
1561#endif
1562 use pm_kind, only: CKG => CK5
1563 complex(CKG) , intent(in) , contiguous :: array(:)
1564 complex(CKG) , intent(in) :: pattern
1565 integer(IK) , intent(in) , contiguous :: instance(:)
1566 logical(LK) , intent(in) , optional :: sorted
1567 logical(LK) , intent(in) , optional :: unique
1568 complex(CKG) , allocatable :: ArrayRemoved(:)
1569 end function
1570#endif
1571
1572#if CK4_ENABLED
1573 PURE module function getRemovedDefComCusIns_D1_D0_CK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1575 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_CK4
1576#endif
1577 use pm_kind, only: CKG => CK4
1578 complex(CKG) , intent(in) , contiguous :: array(:)
1579 complex(CKG) , intent(in) :: pattern
1580 integer(IK) , intent(in) , contiguous :: instance(:)
1581 logical(LK) , intent(in) , optional :: sorted
1582 logical(LK) , intent(in) , optional :: unique
1583 complex(CKG) , allocatable :: ArrayRemoved(:)
1584 end function
1585#endif
1586
1587#if CK3_ENABLED
1588 PURE module function getRemovedDefComCusIns_D1_D0_CK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1590 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_CK3
1591#endif
1592 use pm_kind, only: CKG => CK3
1593 complex(CKG) , intent(in) , contiguous :: array(:)
1594 complex(CKG) , intent(in) :: pattern
1595 integer(IK) , intent(in) , contiguous :: instance(:)
1596 logical(LK) , intent(in) , optional :: sorted
1597 logical(LK) , intent(in) , optional :: unique
1598 complex(CKG) , allocatable :: ArrayRemoved(:)
1599 end function
1600#endif
1601
1602#if CK2_ENABLED
1603 PURE module function getRemovedDefComCusIns_D1_D0_CK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1605 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_CK2
1606#endif
1607 use pm_kind, only: CKG => CK2
1608 complex(CKG) , intent(in) , contiguous :: array(:)
1609 complex(CKG) , intent(in) :: pattern
1610 integer(IK) , intent(in) , contiguous :: instance(:)
1611 logical(LK) , intent(in) , optional :: sorted
1612 logical(LK) , intent(in) , optional :: unique
1613 complex(CKG) , allocatable :: ArrayRemoved(:)
1614 end function
1615#endif
1616
1617#if CK1_ENABLED
1618 PURE module function getRemovedDefComCusIns_D1_D0_CK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1620 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_CK1
1621#endif
1622 use pm_kind, only: CKG => CK1
1623 complex(CKG) , intent(in) , contiguous :: array(:)
1624 complex(CKG) , intent(in) :: pattern
1625 integer(IK) , intent(in) , contiguous :: instance(:)
1626 logical(LK) , intent(in) , optional :: sorted
1627 logical(LK) , intent(in) , optional :: unique
1628 complex(CKG) , allocatable :: ArrayRemoved(:)
1629 end function
1630#endif
1631
1632 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1633
1634#if RK5_ENABLED
1635 PURE module function getRemovedDefComCusIns_D1_D0_RK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1637 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_RK5
1638#endif
1639 use pm_kind, only: RKG => RK5
1640 real(RKG) , intent(in) , contiguous :: array(:)
1641 real(RKG) , intent(in) :: pattern
1642 integer(IK) , intent(in) , contiguous :: instance(:)
1643 logical(LK) , intent(in) , optional :: sorted
1644 logical(LK) , intent(in) , optional :: unique
1645 real(RKG) , allocatable :: ArrayRemoved(:)
1646 end function
1647#endif
1648
1649#if RK4_ENABLED
1650 PURE module function getRemovedDefComCusIns_D1_D0_RK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1652 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_RK4
1653#endif
1654 use pm_kind, only: RKG => RK4
1655 real(RKG) , intent(in) , contiguous :: array(:)
1656 real(RKG) , intent(in) :: pattern
1657 integer(IK) , intent(in) , contiguous :: instance(:)
1658 logical(LK) , intent(in) , optional :: sorted
1659 logical(LK) , intent(in) , optional :: unique
1660 real(RKG) , allocatable :: ArrayRemoved(:)
1661 end function
1662#endif
1663
1664#if RK3_ENABLED
1665 PURE module function getRemovedDefComCusIns_D1_D0_RK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1667 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_RK3
1668#endif
1669 use pm_kind, only: RKG => RK3
1670 real(RKG) , intent(in) , contiguous :: array(:)
1671 real(RKG) , intent(in) :: pattern
1672 integer(IK) , intent(in) , contiguous :: instance(:)
1673 logical(LK) , intent(in) , optional :: sorted
1674 logical(LK) , intent(in) , optional :: unique
1675 real(RKG) , allocatable :: ArrayRemoved(:)
1676 end function
1677#endif
1678
1679#if RK2_ENABLED
1680 PURE module function getRemovedDefComCusIns_D1_D0_RK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1682 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_RK2
1683#endif
1684 use pm_kind, only: RKG => RK2
1685 real(RKG) , intent(in) , contiguous :: array(:)
1686 real(RKG) , intent(in) :: pattern
1687 integer(IK) , intent(in) , contiguous :: instance(:)
1688 logical(LK) , intent(in) , optional :: sorted
1689 logical(LK) , intent(in) , optional :: unique
1690 real(RKG) , allocatable :: ArrayRemoved(:)
1691 end function
1692#endif
1693
1694#if RK1_ENABLED
1695 PURE module function getRemovedDefComCusIns_D1_D0_RK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
1696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1697 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D0_RK1
1698#endif
1699 use pm_kind, only: RKG => RK1
1700 real(RKG) , intent(in) , contiguous :: array(:)
1701 real(RKG) , intent(in) :: pattern
1702 integer(IK) , intent(in) , contiguous :: instance(:)
1703 logical(LK) , intent(in) , optional :: sorted
1704 logical(LK) , intent(in) , optional :: unique
1705 real(RKG) , allocatable :: ArrayRemoved(:)
1706 end function
1707#endif
1708
1709 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1710
1711 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1712 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1713 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1714
1715 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1716
1717#if SK5_ENABLED
1718 module function getRemovedCusComCusIns_D1_D0_SK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1720 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_SK5
1721#endif
1722 use pm_kind, only: SKG => SK5
1723 character(*,SKG) , intent(in) , contiguous :: array(:)
1724 character(*,SKG) , intent(in) :: pattern
1725 procedure(logical(LK)) :: iseq
1726 integer(IK) , intent(in) , contiguous :: instance(:)
1727 logical(LK) , intent(in) , optional :: sorted
1728 logical(LK) , intent(in) , optional :: unique
1729 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1730 end function
1731#endif
1732
1733#if SK4_ENABLED
1734 module function getRemovedCusComCusIns_D1_D0_SK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1736 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_SK4
1737#endif
1738 use pm_kind, only: SKG => SK4
1739 character(*,SKG) , intent(in) , contiguous :: array(:)
1740 character(*,SKG) , intent(in) :: pattern
1741 procedure(logical(LK)) :: iseq
1742 integer(IK) , intent(in) , contiguous :: instance(:)
1743 logical(LK) , intent(in) , optional :: sorted
1744 logical(LK) , intent(in) , optional :: unique
1745 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1746 end function
1747#endif
1748
1749#if SK3_ENABLED
1750 module function getRemovedCusComCusIns_D1_D0_SK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1752 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_SK3
1753#endif
1754 use pm_kind, only: SKG => SK3
1755 character(*,SKG) , intent(in) , contiguous :: array(:)
1756 character(*,SKG) , intent(in) :: pattern
1757 procedure(logical(LK)) :: iseq
1758 integer(IK) , intent(in) , contiguous :: instance(:)
1759 logical(LK) , intent(in) , optional :: sorted
1760 logical(LK) , intent(in) , optional :: unique
1761 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1762 end function
1763#endif
1764
1765#if SK2_ENABLED
1766 module function getRemovedCusComCusIns_D1_D0_SK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1768 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_SK2
1769#endif
1770 use pm_kind, only: SKG => SK2
1771 character(*,SKG) , intent(in) , contiguous :: array(:)
1772 character(*,SKG) , intent(in) :: pattern
1773 procedure(logical(LK)) :: iseq
1774 integer(IK) , intent(in) , contiguous :: instance(:)
1775 logical(LK) , intent(in) , optional :: sorted
1776 logical(LK) , intent(in) , optional :: unique
1777 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1778 end function
1779#endif
1780
1781#if SK1_ENABLED
1782 module function getRemovedCusComCusIns_D1_D0_SK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1784 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_SK1
1785#endif
1786 use pm_kind, only: SKG => SK1
1787 character(*,SKG) , intent(in) , contiguous :: array(:)
1788 character(*,SKG) , intent(in) :: pattern
1789 procedure(logical(LK)) :: iseq
1790 integer(IK) , intent(in) , contiguous :: instance(:)
1791 logical(LK) , intent(in) , optional :: sorted
1792 logical(LK) , intent(in) , optional :: unique
1793 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
1794 end function
1795#endif
1796
1797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1798
1799#if IK5_ENABLED
1800 module function getRemovedCusComCusIns_D1_D0_IK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1802 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_IK5
1803#endif
1804 use pm_kind, only: IKG => IK5
1805 integer(IKG) , intent(in) , contiguous :: array(:)
1806 integer(IKG) , intent(in) :: pattern
1807 procedure(logical(LK)) :: iseq
1808 integer(IK) , intent(in) , contiguous :: instance(:)
1809 logical(LK) , intent(in) , optional :: sorted
1810 logical(LK) , intent(in) , optional :: unique
1811 integer(IKG) , allocatable :: ArrayRemoved(:)
1812 end function
1813#endif
1814
1815#if IK4_ENABLED
1816 module function getRemovedCusComCusIns_D1_D0_IK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1818 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_IK4
1819#endif
1820 use pm_kind, only: IKG => IK4
1821 integer(IKG) , intent(in) , contiguous :: array(:)
1822 integer(IKG) , intent(in) :: pattern
1823 procedure(logical(LK)) :: iseq
1824 integer(IK) , intent(in) , contiguous :: instance(:)
1825 logical(LK) , intent(in) , optional :: sorted
1826 logical(LK) , intent(in) , optional :: unique
1827 integer(IKG) , allocatable :: ArrayRemoved(:)
1828 end function
1829#endif
1830
1831#if IK3_ENABLED
1832 module function getRemovedCusComCusIns_D1_D0_IK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1834 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_IK3
1835#endif
1836 use pm_kind, only: IKG => IK3
1837 integer(IKG) , intent(in) , contiguous :: array(:)
1838 integer(IKG) , intent(in) :: pattern
1839 procedure(logical(LK)) :: iseq
1840 integer(IK) , intent(in) , contiguous :: instance(:)
1841 logical(LK) , intent(in) , optional :: sorted
1842 logical(LK) , intent(in) , optional :: unique
1843 integer(IKG) , allocatable :: ArrayRemoved(:)
1844 end function
1845#endif
1846
1847#if IK2_ENABLED
1848 module function getRemovedCusComCusIns_D1_D0_IK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1850 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_IK2
1851#endif
1852 use pm_kind, only: IKG => IK2
1853 integer(IKG) , intent(in) , contiguous :: array(:)
1854 integer(IKG) , intent(in) :: pattern
1855 procedure(logical(LK)) :: iseq
1856 integer(IK) , intent(in) , contiguous :: instance(:)
1857 logical(LK) , intent(in) , optional :: sorted
1858 logical(LK) , intent(in) , optional :: unique
1859 integer(IKG) , allocatable :: ArrayRemoved(:)
1860 end function
1861#endif
1862
1863#if IK1_ENABLED
1864 module function getRemovedCusComCusIns_D1_D0_IK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1866 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_IK1
1867#endif
1868 use pm_kind, only: IKG => IK1
1869 integer(IKG) , intent(in) , contiguous :: array(:)
1870 integer(IKG) , intent(in) :: pattern
1871 procedure(logical(LK)) :: iseq
1872 integer(IK) , intent(in) , contiguous :: instance(:)
1873 logical(LK) , intent(in) , optional :: sorted
1874 logical(LK) , intent(in) , optional :: unique
1875 integer(IKG) , allocatable :: ArrayRemoved(:)
1876 end function
1877#endif
1878
1879 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1880
1881#if LK5_ENABLED
1882 module function getRemovedCusComCusIns_D1_D0_LK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1884 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_LK5
1885#endif
1886 use pm_kind, only: LKG => LK5
1887 logical(LKG) , intent(in) , contiguous :: array(:)
1888 logical(LKG) , intent(in) :: pattern
1889 procedure(logical(LK)) :: iseq
1890 integer(IK) , intent(in) , contiguous :: instance(:)
1891 logical(LK) , intent(in) , optional :: sorted
1892 logical(LK) , intent(in) , optional :: unique
1893 logical(LKG) , allocatable :: ArrayRemoved(:)
1894 end function
1895#endif
1896
1897#if LK4_ENABLED
1898 module function getRemovedCusComCusIns_D1_D0_LK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1900 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_LK4
1901#endif
1902 use pm_kind, only: LKG => LK4
1903 logical(LKG) , intent(in) , contiguous :: array(:)
1904 logical(LKG) , intent(in) :: pattern
1905 procedure(logical(LK)) :: iseq
1906 integer(IK) , intent(in) , contiguous :: instance(:)
1907 logical(LK) , intent(in) , optional :: sorted
1908 logical(LK) , intent(in) , optional :: unique
1909 logical(LKG) , allocatable :: ArrayRemoved(:)
1910 end function
1911#endif
1912
1913#if LK3_ENABLED
1914 module function getRemovedCusComCusIns_D1_D0_LK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1916 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_LK3
1917#endif
1918 use pm_kind, only: LKG => LK3
1919 logical(LKG) , intent(in) , contiguous :: array(:)
1920 logical(LKG) , intent(in) :: pattern
1921 procedure(logical(LK)) :: iseq
1922 integer(IK) , intent(in) , contiguous :: instance(:)
1923 logical(LK) , intent(in) , optional :: sorted
1924 logical(LK) , intent(in) , optional :: unique
1925 logical(LKG) , allocatable :: ArrayRemoved(:)
1926 end function
1927#endif
1928
1929#if LK2_ENABLED
1930 module function getRemovedCusComCusIns_D1_D0_LK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1932 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_LK2
1933#endif
1934 use pm_kind, only: LKG => LK2
1935 logical(LKG) , intent(in) , contiguous :: array(:)
1936 logical(LKG) , intent(in) :: pattern
1937 procedure(logical(LK)) :: iseq
1938 integer(IK) , intent(in) , contiguous :: instance(:)
1939 logical(LK) , intent(in) , optional :: sorted
1940 logical(LK) , intent(in) , optional :: unique
1941 logical(LKG) , allocatable :: ArrayRemoved(:)
1942 end function
1943#endif
1944
1945#if LK1_ENABLED
1946 module function getRemovedCusComCusIns_D1_D0_LK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1948 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_LK1
1949#endif
1950 use pm_kind, only: LKG => LK1
1951 logical(LKG) , intent(in) , contiguous :: array(:)
1952 logical(LKG) , intent(in) :: pattern
1953 procedure(logical(LK)) :: iseq
1954 integer(IK) , intent(in) , contiguous :: instance(:)
1955 logical(LK) , intent(in) , optional :: sorted
1956 logical(LK) , intent(in) , optional :: unique
1957 logical(LKG) , allocatable :: ArrayRemoved(:)
1958 end function
1959#endif
1960
1961 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1962
1963#if CK5_ENABLED
1964 module function getRemovedCusComCusIns_D1_D0_CK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1966 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_CK5
1967#endif
1968 use pm_kind, only: CKG => CK5
1969 complex(CKG) , intent(in) , contiguous :: array(:)
1970 complex(CKG) , intent(in) :: pattern
1971 procedure(logical(LK)) :: iseq
1972 integer(IK) , intent(in) , contiguous :: instance(:)
1973 logical(LK) , intent(in) , optional :: sorted
1974 logical(LK) , intent(in) , optional :: unique
1975 complex(CKG) , allocatable :: ArrayRemoved(:)
1976 end function
1977#endif
1978
1979#if CK4_ENABLED
1980 module function getRemovedCusComCusIns_D1_D0_CK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1982 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_CK4
1983#endif
1984 use pm_kind, only: CKG => CK4
1985 complex(CKG) , intent(in) , contiguous :: array(:)
1986 complex(CKG) , intent(in) :: pattern
1987 procedure(logical(LK)) :: iseq
1988 integer(IK) , intent(in) , contiguous :: instance(:)
1989 logical(LK) , intent(in) , optional :: sorted
1990 logical(LK) , intent(in) , optional :: unique
1991 complex(CKG) , allocatable :: ArrayRemoved(:)
1992 end function
1993#endif
1994
1995#if CK3_ENABLED
1996 module function getRemovedCusComCusIns_D1_D0_CK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
1997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1998 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_CK3
1999#endif
2000 use pm_kind, only: CKG => CK3
2001 complex(CKG) , intent(in) , contiguous :: array(:)
2002 complex(CKG) , intent(in) :: pattern
2003 procedure(logical(LK)) :: iseq
2004 integer(IK) , intent(in) , contiguous :: instance(:)
2005 logical(LK) , intent(in) , optional :: sorted
2006 logical(LK) , intent(in) , optional :: unique
2007 complex(CKG) , allocatable :: ArrayRemoved(:)
2008 end function
2009#endif
2010
2011#if CK2_ENABLED
2012 module function getRemovedCusComCusIns_D1_D0_CK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
2013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2014 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_CK2
2015#endif
2016 use pm_kind, only: CKG => CK2
2017 complex(CKG) , intent(in) , contiguous :: array(:)
2018 complex(CKG) , intent(in) :: pattern
2019 procedure(logical(LK)) :: iseq
2020 integer(IK) , intent(in) , contiguous :: instance(:)
2021 logical(LK) , intent(in) , optional :: sorted
2022 logical(LK) , intent(in) , optional :: unique
2023 complex(CKG) , allocatable :: ArrayRemoved(:)
2024 end function
2025#endif
2026
2027#if CK1_ENABLED
2028 module function getRemovedCusComCusIns_D1_D0_CK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
2029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2030 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_CK1
2031#endif
2032 use pm_kind, only: CKG => CK1
2033 complex(CKG) , intent(in) , contiguous :: array(:)
2034 complex(CKG) , intent(in) :: pattern
2035 procedure(logical(LK)) :: iseq
2036 integer(IK) , intent(in) , contiguous :: instance(:)
2037 logical(LK) , intent(in) , optional :: sorted
2038 logical(LK) , intent(in) , optional :: unique
2039 complex(CKG) , allocatable :: ArrayRemoved(:)
2040 end function
2041#endif
2042
2043 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2044
2045#if RK5_ENABLED
2046 module function getRemovedCusComCusIns_D1_D0_RK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
2047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2048 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_RK5
2049#endif
2050 use pm_kind, only: RKG => RK5
2051 real(RKG) , intent(in) , contiguous :: array(:)
2052 real(RKG) , intent(in) :: pattern
2053 procedure(logical(LK)) :: iseq
2054 integer(IK) , intent(in) , contiguous :: instance(:)
2055 logical(LK) , intent(in) , optional :: sorted
2056 logical(LK) , intent(in) , optional :: unique
2057 real(RKG) , allocatable :: ArrayRemoved(:)
2058 end function
2059#endif
2060
2061#if RK4_ENABLED
2062 module function getRemovedCusComCusIns_D1_D0_RK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
2063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2064 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_RK4
2065#endif
2066 use pm_kind, only: RKG => RK4
2067 real(RKG) , intent(in) , contiguous :: array(:)
2068 real(RKG) , intent(in) :: pattern
2069 procedure(logical(LK)) :: iseq
2070 integer(IK) , intent(in) , contiguous :: instance(:)
2071 logical(LK) , intent(in) , optional :: sorted
2072 logical(LK) , intent(in) , optional :: unique
2073 real(RKG) , allocatable :: ArrayRemoved(:)
2074 end function
2075#endif
2076
2077#if RK3_ENABLED
2078 module function getRemovedCusComCusIns_D1_D0_RK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
2079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2080 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_RK3
2081#endif
2082 use pm_kind, only: RKG => RK3
2083 real(RKG) , intent(in) , contiguous :: array(:)
2084 real(RKG) , intent(in) :: pattern
2085 procedure(logical(LK)) :: iseq
2086 integer(IK) , intent(in) , contiguous :: instance(:)
2087 logical(LK) , intent(in) , optional :: sorted
2088 logical(LK) , intent(in) , optional :: unique
2089 real(RKG) , allocatable :: ArrayRemoved(:)
2090 end function
2091#endif
2092
2093#if RK2_ENABLED
2094 module function getRemovedCusComCusIns_D1_D0_RK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
2095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2096 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_RK2
2097#endif
2098 use pm_kind, only: RKG => RK2
2099 real(RKG) , intent(in) , contiguous :: array(:)
2100 real(RKG) , intent(in) :: pattern
2101 procedure(logical(LK)) :: iseq
2102 integer(IK) , intent(in) , contiguous :: instance(:)
2103 logical(LK) , intent(in) , optional :: sorted
2104 logical(LK) , intent(in) , optional :: unique
2105 real(RKG) , allocatable :: ArrayRemoved(:)
2106 end function
2107#endif
2108
2109#if RK1_ENABLED
2110 module function getRemovedCusComCusIns_D1_D0_RK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
2111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2112 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D0_RK1
2113#endif
2114 use pm_kind, only: RKG => RK1
2115 real(RKG) , intent(in) , contiguous :: array(:)
2116 real(RKG) , intent(in) :: pattern
2117 procedure(logical(LK)) :: iseq
2118 integer(IK) , intent(in) , contiguous :: instance(:)
2119 logical(LK) , intent(in) , optional :: sorted
2120 logical(LK) , intent(in) , optional :: unique
2121 real(RKG) , allocatable :: ArrayRemoved(:)
2122 end function
2123#endif
2124
2125 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2126
2127 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2128 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2129 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2130 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2131 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2135 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2136
2137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2138
2139#if SK5_ENABLED
2140 PURE module function getRemovedDefComDefIns_D1_D1_SK5(array, pattern) result(ArrayRemoved)
2141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2142 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_SK5
2143#endif
2144 use pm_kind, only: SKG => SK5
2145 character(*,SKG) , intent(in) , contiguous :: array(:)
2146 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2147 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2148 end function
2149#endif
2150
2151#if SK4_ENABLED
2152 PURE module function getRemovedDefComDefIns_D1_D1_SK4(array, pattern) result(ArrayRemoved)
2153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2154 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_SK4
2155#endif
2156 use pm_kind, only: SKG => SK4
2157 character(*,SKG) , intent(in) , contiguous :: array(:)
2158 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2159 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2160 end function
2161#endif
2162
2163#if SK3_ENABLED
2164 PURE module function getRemovedDefComDefIns_D1_D1_SK3(array, pattern) result(ArrayRemoved)
2165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2166 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_SK3
2167#endif
2168 use pm_kind, only: SKG => SK3
2169 character(*,SKG) , intent(in) , contiguous :: array(:)
2170 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2171 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2172 end function
2173#endif
2174
2175#if SK2_ENABLED
2176 PURE module function getRemovedDefComDefIns_D1_D1_SK2(array, pattern) result(ArrayRemoved)
2177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2178 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_SK2
2179#endif
2180 use pm_kind, only: SKG => SK2
2181 character(*,SKG) , intent(in) , contiguous :: array(:)
2182 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2183 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2184 end function
2185#endif
2186
2187#if SK1_ENABLED
2188 PURE module function getRemovedDefComDefIns_D1_D1_SK1(array, pattern) result(ArrayRemoved)
2189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2190 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_SK1
2191#endif
2192 use pm_kind, only: SKG => SK1
2193 character(*,SKG) , intent(in) , contiguous :: array(:)
2194 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2195 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2196 end function
2197#endif
2198
2199 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2200
2201#if IK5_ENABLED
2202 PURE module function getRemovedDefComDefIns_D1_D1_IK5(array, pattern) result(ArrayRemoved)
2203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2204 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_IK5
2205#endif
2206 use pm_kind, only: IKG => IK5
2207 integer(IKG) , intent(in) , contiguous :: array(:)
2208 integer(IKG) , intent(in) , contiguous :: pattern(:)
2209 integer(IKG) , allocatable :: ArrayRemoved(:)
2210 end function
2211#endif
2212
2213#if IK4_ENABLED
2214 PURE module function getRemovedDefComDefIns_D1_D1_IK4(array, pattern) result(ArrayRemoved)
2215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2216 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_IK4
2217#endif
2218 use pm_kind, only: IKG => IK4
2219 integer(IKG) , intent(in) , contiguous :: array(:)
2220 integer(IKG) , intent(in) , contiguous :: pattern(:)
2221 integer(IKG) , allocatable :: ArrayRemoved(:)
2222 end function
2223#endif
2224
2225#if IK3_ENABLED
2226 PURE module function getRemovedDefComDefIns_D1_D1_IK3(array, pattern) result(ArrayRemoved)
2227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2228 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_IK3
2229#endif
2230 use pm_kind, only: IKG => IK3
2231 integer(IKG) , intent(in) , contiguous :: array(:)
2232 integer(IKG) , intent(in) , contiguous :: pattern(:)
2233 integer(IKG) , allocatable :: ArrayRemoved(:)
2234 end function
2235#endif
2236
2237#if IK2_ENABLED
2238 PURE module function getRemovedDefComDefIns_D1_D1_IK2(array, pattern) result(ArrayRemoved)
2239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2240 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_IK2
2241#endif
2242 use pm_kind, only: IKG => IK2
2243 integer(IKG) , intent(in) , contiguous :: array(:)
2244 integer(IKG) , intent(in) , contiguous :: pattern(:)
2245 integer(IKG) , allocatable :: ArrayRemoved(:)
2246 end function
2247#endif
2248
2249#if IK1_ENABLED
2250 PURE module function getRemovedDefComDefIns_D1_D1_IK1(array, pattern) result(ArrayRemoved)
2251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2252 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_IK1
2253#endif
2254 use pm_kind, only: IKG => IK1
2255 integer(IKG) , intent(in) , contiguous :: array(:)
2256 integer(IKG) , intent(in) , contiguous :: pattern(:)
2257 integer(IKG) , allocatable :: ArrayRemoved(:)
2258 end function
2259#endif
2260
2261 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2262
2263#if LK5_ENABLED
2264 PURE module function getRemovedDefComDefIns_D1_D1_LK5(array, pattern) result(ArrayRemoved)
2265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2266 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_LK5
2267#endif
2268 use pm_kind, only: LKG => LK5
2269 logical(LKG) , intent(in) , contiguous :: array(:)
2270 logical(LKG) , intent(in) , contiguous :: pattern(:)
2271 logical(LKG) , allocatable :: ArrayRemoved(:)
2272 end function
2273#endif
2274
2275#if LK4_ENABLED
2276 PURE module function getRemovedDefComDefIns_D1_D1_LK4(array, pattern) result(ArrayRemoved)
2277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2278 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_LK4
2279#endif
2280 use pm_kind, only: LKG => LK4
2281 logical(LKG) , intent(in) , contiguous :: array(:)
2282 logical(LKG) , intent(in) , contiguous :: pattern(:)
2283 logical(LKG) , allocatable :: ArrayRemoved(:)
2284 end function
2285#endif
2286
2287#if LK3_ENABLED
2288 PURE module function getRemovedDefComDefIns_D1_D1_LK3(array, pattern) result(ArrayRemoved)
2289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2290 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_LK3
2291#endif
2292 use pm_kind, only: LKG => LK3
2293 logical(LKG) , intent(in) , contiguous :: array(:)
2294 logical(LKG) , intent(in) , contiguous :: pattern(:)
2295 logical(LKG) , allocatable :: ArrayRemoved(:)
2296 end function
2297#endif
2298
2299#if LK2_ENABLED
2300 PURE module function getRemovedDefComDefIns_D1_D1_LK2(array, pattern) result(ArrayRemoved)
2301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2302 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_LK2
2303#endif
2304 use pm_kind, only: LKG => LK2
2305 logical(LKG) , intent(in) , contiguous :: array(:)
2306 logical(LKG) , intent(in) , contiguous :: pattern(:)
2307 logical(LKG) , allocatable :: ArrayRemoved(:)
2308 end function
2309#endif
2310
2311#if LK1_ENABLED
2312 PURE module function getRemovedDefComDefIns_D1_D1_LK1(array, pattern) result(ArrayRemoved)
2313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2314 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_LK1
2315#endif
2316 use pm_kind, only: LKG => LK1
2317 logical(LKG) , intent(in) , contiguous :: array(:)
2318 logical(LKG) , intent(in) , contiguous :: pattern(:)
2319 logical(LKG) , allocatable :: ArrayRemoved(:)
2320 end function
2321#endif
2322
2323 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2324
2325#if CK5_ENABLED
2326 PURE module function getRemovedDefComDefIns_D1_D1_CK5(array, pattern) result(ArrayRemoved)
2327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2328 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_CK5
2329#endif
2330 use pm_kind, only: CKG => CK5
2331 complex(CKG) , intent(in) , contiguous :: array(:)
2332 complex(CKG) , intent(in) , contiguous :: pattern(:)
2333 complex(CKG) , allocatable :: ArrayRemoved(:)
2334 end function
2335#endif
2336
2337#if CK4_ENABLED
2338 PURE module function getRemovedDefComDefIns_D1_D1_CK4(array, pattern) result(ArrayRemoved)
2339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2340 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_CK4
2341#endif
2342 use pm_kind, only: CKG => CK4
2343 complex(CKG) , intent(in) , contiguous :: array(:)
2344 complex(CKG) , intent(in) , contiguous :: pattern(:)
2345 complex(CKG) , allocatable :: ArrayRemoved(:)
2346 end function
2347#endif
2348
2349#if CK3_ENABLED
2350 PURE module function getRemovedDefComDefIns_D1_D1_CK3(array, pattern) result(ArrayRemoved)
2351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2352 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_CK3
2353#endif
2354 use pm_kind, only: CKG => CK3
2355 complex(CKG) , intent(in) , contiguous :: array(:)
2356 complex(CKG) , intent(in) , contiguous :: pattern(:)
2357 complex(CKG) , allocatable :: ArrayRemoved(:)
2358 end function
2359#endif
2360
2361#if CK2_ENABLED
2362 PURE module function getRemovedDefComDefIns_D1_D1_CK2(array, pattern) result(ArrayRemoved)
2363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2364 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_CK2
2365#endif
2366 use pm_kind, only: CKG => CK2
2367 complex(CKG) , intent(in) , contiguous :: array(:)
2368 complex(CKG) , intent(in) , contiguous :: pattern(:)
2369 complex(CKG) , allocatable :: ArrayRemoved(:)
2370 end function
2371#endif
2372
2373#if CK1_ENABLED
2374 PURE module function getRemovedDefComDefIns_D1_D1_CK1(array, pattern) result(ArrayRemoved)
2375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2376 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_CK1
2377#endif
2378 use pm_kind, only: CKG => CK1
2379 complex(CKG) , intent(in) , contiguous :: array(:)
2380 complex(CKG) , intent(in) , contiguous :: pattern(:)
2381 complex(CKG) , allocatable :: ArrayRemoved(:)
2382 end function
2383#endif
2384
2385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2386
2387#if RK5_ENABLED
2388 PURE module function getRemovedDefComDefIns_D1_D1_RK5(array, pattern) result(ArrayRemoved)
2389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2390 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_RK5
2391#endif
2392 use pm_kind, only: RKG => RK5
2393 real(RKG) , intent(in) , contiguous :: array(:)
2394 real(RKG) , intent(in) , contiguous :: pattern(:)
2395 real(RKG) , allocatable :: ArrayRemoved(:)
2396 end function
2397#endif
2398
2399#if RK4_ENABLED
2400 PURE module function getRemovedDefComDefIns_D1_D1_RK4(array, pattern) result(ArrayRemoved)
2401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2402 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_RK4
2403#endif
2404 use pm_kind, only: RKG => RK4
2405 real(RKG) , intent(in) , contiguous :: array(:)
2406 real(RKG) , intent(in) , contiguous :: pattern(:)
2407 real(RKG) , allocatable :: ArrayRemoved(:)
2408 end function
2409#endif
2410
2411#if RK3_ENABLED
2412 PURE module function getRemovedDefComDefIns_D1_D1_RK3(array, pattern) result(ArrayRemoved)
2413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2414 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_RK3
2415#endif
2416 use pm_kind, only: RKG => RK3
2417 real(RKG) , intent(in) , contiguous :: array(:)
2418 real(RKG) , intent(in) , contiguous :: pattern(:)
2419 real(RKG) , allocatable :: ArrayRemoved(:)
2420 end function
2421#endif
2422
2423#if RK2_ENABLED
2424 PURE module function getRemovedDefComDefIns_D1_D1_RK2(array, pattern) result(ArrayRemoved)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_RK2
2427#endif
2428 use pm_kind, only: RKG => RK2
2429 real(RKG) , intent(in) , contiguous :: array(:)
2430 real(RKG) , intent(in) , contiguous :: pattern(:)
2431 real(RKG) , allocatable :: ArrayRemoved(:)
2432 end function
2433#endif
2434
2435#if RK1_ENABLED
2436 PURE module function getRemovedDefComDefIns_D1_D1_RK1(array, pattern) result(ArrayRemoved)
2437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2438 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComDefIns_D1_D1_RK1
2439#endif
2440 use pm_kind, only: RKG => RK1
2441 real(RKG) , intent(in) , contiguous :: array(:)
2442 real(RKG) , intent(in) , contiguous :: pattern(:)
2443 real(RKG) , allocatable :: ArrayRemoved(:)
2444 end function
2445#endif
2446
2447 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2448
2449 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2450 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2452
2453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2454
2455#if SK5_ENABLED
2456 module function getRemovedCusComDefIns_D1_D1_SK5(array, pattern, iseq) result(ArrayRemoved)
2457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2458 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_SK5
2459#endif
2460 use pm_kind, only: SKG => SK5
2461 character(*,SKG) , intent(in) , contiguous :: array(:)
2462 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2463 procedure(logical(LK)) :: iseq
2464 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2465 end function
2466#endif
2467
2468#if SK4_ENABLED
2469 module function getRemovedCusComDefIns_D1_D1_SK4(array, pattern, iseq) result(ArrayRemoved)
2470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2471 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_SK4
2472#endif
2473 use pm_kind, only: SKG => SK4
2474 character(*,SKG) , intent(in) , contiguous :: array(:)
2475 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2476 procedure(logical(LK)) :: iseq
2477 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2478 end function
2479#endif
2480
2481#if SK3_ENABLED
2482 module function getRemovedCusComDefIns_D1_D1_SK3(array, pattern, iseq) result(ArrayRemoved)
2483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2484 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_SK3
2485#endif
2486 use pm_kind, only: SKG => SK3
2487 character(*,SKG) , intent(in) , contiguous :: array(:)
2488 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2489 procedure(logical(LK)) :: iseq
2490 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2491 end function
2492#endif
2493
2494#if SK2_ENABLED
2495 module function getRemovedCusComDefIns_D1_D1_SK2(array, pattern, iseq) result(ArrayRemoved)
2496#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2497 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_SK2
2498#endif
2499 use pm_kind, only: SKG => SK2
2500 character(*,SKG) , intent(in) , contiguous :: array(:)
2501 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2502 procedure(logical(LK)) :: iseq
2503 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2504 end function
2505#endif
2506
2507#if SK1_ENABLED
2508 module function getRemovedCusComDefIns_D1_D1_SK1(array, pattern, iseq) result(ArrayRemoved)
2509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2510 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_SK1
2511#endif
2512 use pm_kind, only: SKG => SK1
2513 character(*,SKG) , intent(in) , contiguous :: array(:)
2514 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2515 procedure(logical(LK)) :: iseq
2516 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2517 end function
2518#endif
2519
2520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2521
2522#if IK5_ENABLED
2523 module function getRemovedCusComDefIns_D1_D1_IK5(array, pattern, iseq) result(ArrayRemoved)
2524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2525 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_IK5
2526#endif
2527 use pm_kind, only: IKG => IK5
2528 integer(IKG) , intent(in) , contiguous :: array(:)
2529 integer(IKG) , intent(in) , contiguous :: pattern(:)
2530 procedure(logical(LK)) :: iseq
2531 integer(IKG) , allocatable :: ArrayRemoved(:)
2532 end function
2533#endif
2534
2535#if IK4_ENABLED
2536 module function getRemovedCusComDefIns_D1_D1_IK4(array, pattern, iseq) result(ArrayRemoved)
2537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2538 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_IK4
2539#endif
2540 use pm_kind, only: IKG => IK4
2541 integer(IKG) , intent(in) , contiguous :: array(:)
2542 integer(IKG) , intent(in) , contiguous :: pattern(:)
2543 procedure(logical(LK)) :: iseq
2544 integer(IKG) , allocatable :: ArrayRemoved(:)
2545 end function
2546#endif
2547
2548#if IK3_ENABLED
2549 module function getRemovedCusComDefIns_D1_D1_IK3(array, pattern, iseq) result(ArrayRemoved)
2550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2551 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_IK3
2552#endif
2553 use pm_kind, only: IKG => IK3
2554 integer(IKG) , intent(in) , contiguous :: array(:)
2555 integer(IKG) , intent(in) , contiguous :: pattern(:)
2556 procedure(logical(LK)) :: iseq
2557 integer(IKG) , allocatable :: ArrayRemoved(:)
2558 end function
2559#endif
2560
2561#if IK2_ENABLED
2562 module function getRemovedCusComDefIns_D1_D1_IK2(array, pattern, iseq) result(ArrayRemoved)
2563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2564 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_IK2
2565#endif
2566 use pm_kind, only: IKG => IK2
2567 integer(IKG) , intent(in) , contiguous :: array(:)
2568 integer(IKG) , intent(in) , contiguous :: pattern(:)
2569 procedure(logical(LK)) :: iseq
2570 integer(IKG) , allocatable :: ArrayRemoved(:)
2571 end function
2572#endif
2573
2574#if IK1_ENABLED
2575 module function getRemovedCusComDefIns_D1_D1_IK1(array, pattern, iseq) result(ArrayRemoved)
2576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2577 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_IK1
2578#endif
2579 use pm_kind, only: IKG => IK1
2580 integer(IKG) , intent(in) , contiguous :: array(:)
2581 integer(IKG) , intent(in) , contiguous :: pattern(:)
2582 procedure(logical(LK)) :: iseq
2583 integer(IKG) , allocatable :: ArrayRemoved(:)
2584 end function
2585#endif
2586
2587 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2588
2589#if LK5_ENABLED
2590 module function getRemovedCusComDefIns_D1_D1_LK5(array, pattern, iseq) result(ArrayRemoved)
2591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2592 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_LK5
2593#endif
2594 use pm_kind, only: LKG => LK5
2595 logical(LKG) , intent(in) , contiguous :: array(:)
2596 logical(LKG) , intent(in) , contiguous :: pattern(:)
2597 procedure(logical(LK)) :: iseq
2598 logical(LKG) , allocatable :: ArrayRemoved(:)
2599 end function
2600#endif
2601
2602#if LK4_ENABLED
2603 module function getRemovedCusComDefIns_D1_D1_LK4(array, pattern, iseq) result(ArrayRemoved)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_LK4
2606#endif
2607 use pm_kind, only: LKG => LK4
2608 logical(LKG) , intent(in) , contiguous :: array(:)
2609 logical(LKG) , intent(in) , contiguous :: pattern(:)
2610 procedure(logical(LK)) :: iseq
2611 logical(LKG) , allocatable :: ArrayRemoved(:)
2612 end function
2613#endif
2614
2615#if LK3_ENABLED
2616 module function getRemovedCusComDefIns_D1_D1_LK3(array, pattern, iseq) result(ArrayRemoved)
2617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2618 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_LK3
2619#endif
2620 use pm_kind, only: LKG => LK3
2621 logical(LKG) , intent(in) , contiguous :: array(:)
2622 logical(LKG) , intent(in) , contiguous :: pattern(:)
2623 procedure(logical(LK)) :: iseq
2624 logical(LKG) , allocatable :: ArrayRemoved(:)
2625 end function
2626#endif
2627
2628#if LK2_ENABLED
2629 module function getRemovedCusComDefIns_D1_D1_LK2(array, pattern, iseq) result(ArrayRemoved)
2630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2631 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_LK2
2632#endif
2633 use pm_kind, only: LKG => LK2
2634 logical(LKG) , intent(in) , contiguous :: array(:)
2635 logical(LKG) , intent(in) , contiguous :: pattern(:)
2636 procedure(logical(LK)) :: iseq
2637 logical(LKG) , allocatable :: ArrayRemoved(:)
2638 end function
2639#endif
2640
2641#if LK1_ENABLED
2642 module function getRemovedCusComDefIns_D1_D1_LK1(array, pattern, iseq) result(ArrayRemoved)
2643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2644 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_LK1
2645#endif
2646 use pm_kind, only: LKG => LK1
2647 logical(LKG) , intent(in) , contiguous :: array(:)
2648 logical(LKG) , intent(in) , contiguous :: pattern(:)
2649 procedure(logical(LK)) :: iseq
2650 logical(LKG) , allocatable :: ArrayRemoved(:)
2651 end function
2652#endif
2653
2654 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2655
2656#if CK5_ENABLED
2657 module function getRemovedCusComDefIns_D1_D1_CK5(array, pattern, iseq) result(ArrayRemoved)
2658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2659 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_CK5
2660#endif
2661 use pm_kind, only: CKG => CK5
2662 complex(CKG) , intent(in) , contiguous :: array(:)
2663 complex(CKG) , intent(in) , contiguous :: pattern(:)
2664 procedure(logical(LK)) :: iseq
2665 complex(CKG) , allocatable :: ArrayRemoved(:)
2666 end function
2667#endif
2668
2669#if CK4_ENABLED
2670 module function getRemovedCusComDefIns_D1_D1_CK4(array, pattern, iseq) result(ArrayRemoved)
2671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2672 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_CK4
2673#endif
2674 use pm_kind, only: CKG => CK4
2675 complex(CKG) , intent(in) , contiguous :: array(:)
2676 complex(CKG) , intent(in) , contiguous :: pattern(:)
2677 procedure(logical(LK)) :: iseq
2678 complex(CKG) , allocatable :: ArrayRemoved(:)
2679 end function
2680#endif
2681
2682#if CK3_ENABLED
2683 module function getRemovedCusComDefIns_D1_D1_CK3(array, pattern, iseq) result(ArrayRemoved)
2684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2685 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_CK3
2686#endif
2687 use pm_kind, only: CKG => CK3
2688 complex(CKG) , intent(in) , contiguous :: array(:)
2689 complex(CKG) , intent(in) , contiguous :: pattern(:)
2690 procedure(logical(LK)) :: iseq
2691 complex(CKG) , allocatable :: ArrayRemoved(:)
2692 end function
2693#endif
2694
2695#if CK2_ENABLED
2696 module function getRemovedCusComDefIns_D1_D1_CK2(array, pattern, iseq) result(ArrayRemoved)
2697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2698 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_CK2
2699#endif
2700 use pm_kind, only: CKG => CK2
2701 complex(CKG) , intent(in) , contiguous :: array(:)
2702 complex(CKG) , intent(in) , contiguous :: pattern(:)
2703 procedure(logical(LK)) :: iseq
2704 complex(CKG) , allocatable :: ArrayRemoved(:)
2705 end function
2706#endif
2707
2708#if CK1_ENABLED
2709 module function getRemovedCusComDefIns_D1_D1_CK1(array, pattern, iseq) result(ArrayRemoved)
2710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2711 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_CK1
2712#endif
2713 use pm_kind, only: CKG => CK1
2714 complex(CKG) , intent(in) , contiguous :: array(:)
2715 complex(CKG) , intent(in) , contiguous :: pattern(:)
2716 procedure(logical(LK)) :: iseq
2717 complex(CKG) , allocatable :: ArrayRemoved(:)
2718 end function
2719#endif
2720
2721 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2722
2723#if RK5_ENABLED
2724 module function getRemovedCusComDefIns_D1_D1_RK5(array, pattern, iseq) result(ArrayRemoved)
2725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2726 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_RK5
2727#endif
2728 use pm_kind, only: RKG => RK5
2729 real(RKG) , intent(in) , contiguous :: array(:)
2730 real(RKG) , intent(in) , contiguous :: pattern(:)
2731 procedure(logical(LK)) :: iseq
2732 real(RKG) , allocatable :: ArrayRemoved(:)
2733 end function
2734#endif
2735
2736#if RK4_ENABLED
2737 module function getRemovedCusComDefIns_D1_D1_RK4(array, pattern, iseq) result(ArrayRemoved)
2738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2739 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_RK4
2740#endif
2741 use pm_kind, only: RKG => RK4
2742 real(RKG) , intent(in) , contiguous :: array(:)
2743 real(RKG) , intent(in) , contiguous :: pattern(:)
2744 procedure(logical(LK)) :: iseq
2745 real(RKG) , allocatable :: ArrayRemoved(:)
2746 end function
2747#endif
2748
2749#if RK3_ENABLED
2750 module function getRemovedCusComDefIns_D1_D1_RK3(array, pattern, iseq) result(ArrayRemoved)
2751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2752 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_RK3
2753#endif
2754 use pm_kind, only: RKG => RK3
2755 real(RKG) , intent(in) , contiguous :: array(:)
2756 real(RKG) , intent(in) , contiguous :: pattern(:)
2757 procedure(logical(LK)) :: iseq
2758 real(RKG) , allocatable :: ArrayRemoved(:)
2759 end function
2760#endif
2761
2762#if RK2_ENABLED
2763 module function getRemovedCusComDefIns_D1_D1_RK2(array, pattern, iseq) result(ArrayRemoved)
2764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2765 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_RK2
2766#endif
2767 use pm_kind, only: RKG => RK2
2768 real(RKG) , intent(in) , contiguous :: array(:)
2769 real(RKG) , intent(in) , contiguous :: pattern(:)
2770 procedure(logical(LK)) :: iseq
2771 real(RKG) , allocatable :: ArrayRemoved(:)
2772 end function
2773#endif
2774
2775#if RK1_ENABLED
2776 module function getRemovedCusComDefIns_D1_D1_RK1(array, pattern, iseq) result(ArrayRemoved)
2777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2778 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComDefIns_D1_D1_RK1
2779#endif
2780 use pm_kind, only: RKG => RK1
2781 real(RKG) , intent(in) , contiguous :: array(:)
2782 real(RKG) , intent(in) , contiguous :: pattern(:)
2783 procedure(logical(LK)) :: iseq
2784 real(RKG) , allocatable :: ArrayRemoved(:)
2785 end function
2786#endif
2787
2788 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2789
2790 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2792 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2793
2794 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2795
2796#if SK5_ENABLED
2797 PURE module function getRemovedDefComCusIns_D1_D1_SK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2799 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_SK5
2800#endif
2801 use pm_kind, only: SKG => SK5
2802 character(*,SKG) , intent(in) , contiguous :: array(:)
2803 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2804 integer(IK) , intent(in) , contiguous :: instance(:)
2805 logical(LK) , intent(in) , optional :: sorted
2806 logical(LK) , intent(in) , optional :: unique
2807 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2808 end function
2809#endif
2810
2811#if SK4_ENABLED
2812 PURE module function getRemovedDefComCusIns_D1_D1_SK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2814 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_SK4
2815#endif
2816 use pm_kind, only: SKG => SK4
2817 character(*,SKG) , intent(in) , contiguous :: array(:)
2818 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2819 integer(IK) , intent(in) , contiguous :: instance(:)
2820 logical(LK) , intent(in) , optional :: sorted
2821 logical(LK) , intent(in) , optional :: unique
2822 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2823 end function
2824#endif
2825
2826#if SK3_ENABLED
2827 PURE module function getRemovedDefComCusIns_D1_D1_SK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2829 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_SK3
2830#endif
2831 use pm_kind, only: SKG => SK3
2832 character(*,SKG) , intent(in) , contiguous :: array(:)
2833 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2834 integer(IK) , intent(in) , contiguous :: instance(:)
2835 logical(LK) , intent(in) , optional :: sorted
2836 logical(LK) , intent(in) , optional :: unique
2837 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2838 end function
2839#endif
2840
2841#if SK2_ENABLED
2842 PURE module function getRemovedDefComCusIns_D1_D1_SK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_SK2
2845#endif
2846 use pm_kind, only: SKG => SK2
2847 character(*,SKG) , intent(in) , contiguous :: array(:)
2848 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2849 integer(IK) , intent(in) , contiguous :: instance(:)
2850 logical(LK) , intent(in) , optional :: sorted
2851 logical(LK) , intent(in) , optional :: unique
2852 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2853 end function
2854#endif
2855
2856#if SK1_ENABLED
2857 PURE module function getRemovedDefComCusIns_D1_D1_SK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2859 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_SK1
2860#endif
2861 use pm_kind, only: SKG => SK1
2862 character(*,SKG) , intent(in) , contiguous :: array(:)
2863 character(*,SKG) , intent(in) , contiguous :: pattern(:)
2864 integer(IK) , intent(in) , contiguous :: instance(:)
2865 logical(LK) , intent(in) , optional :: sorted
2866 logical(LK) , intent(in) , optional :: unique
2867 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
2868 end function
2869#endif
2870
2871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2872
2873#if IK5_ENABLED
2874 PURE module function getRemovedDefComCusIns_D1_D1_IK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2876 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_IK5
2877#endif
2878 use pm_kind, only: IKG => IK5
2879 integer(IKG) , intent(in) , contiguous :: array(:)
2880 integer(IKG) , intent(in) , contiguous :: pattern(:)
2881 integer(IK) , intent(in) , contiguous :: instance(:)
2882 logical(LK) , intent(in) , optional :: sorted
2883 logical(LK) , intent(in) , optional :: unique
2884 integer(IKG) , allocatable :: ArrayRemoved(:)
2885 end function
2886#endif
2887
2888#if IK4_ENABLED
2889 PURE module function getRemovedDefComCusIns_D1_D1_IK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2891 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_IK4
2892#endif
2893 use pm_kind, only: IKG => IK4
2894 integer(IKG) , intent(in) , contiguous :: array(:)
2895 integer(IKG) , intent(in) , contiguous :: pattern(:)
2896 integer(IK) , intent(in) , contiguous :: instance(:)
2897 logical(LK) , intent(in) , optional :: sorted
2898 logical(LK) , intent(in) , optional :: unique
2899 integer(IKG) , allocatable :: ArrayRemoved(:)
2900 end function
2901#endif
2902
2903#if IK3_ENABLED
2904 PURE module function getRemovedDefComCusIns_D1_D1_IK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2906 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_IK3
2907#endif
2908 use pm_kind, only: IKG => IK3
2909 integer(IKG) , intent(in) , contiguous :: array(:)
2910 integer(IKG) , intent(in) , contiguous :: pattern(:)
2911 integer(IK) , intent(in) , contiguous :: instance(:)
2912 logical(LK) , intent(in) , optional :: sorted
2913 logical(LK) , intent(in) , optional :: unique
2914 integer(IKG) , allocatable :: ArrayRemoved(:)
2915 end function
2916#endif
2917
2918#if IK2_ENABLED
2919 PURE module function getRemovedDefComCusIns_D1_D1_IK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2921 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_IK2
2922#endif
2923 use pm_kind, only: IKG => IK2
2924 integer(IKG) , intent(in) , contiguous :: array(:)
2925 integer(IKG) , intent(in) , contiguous :: pattern(:)
2926 integer(IK) , intent(in) , contiguous :: instance(:)
2927 logical(LK) , intent(in) , optional :: sorted
2928 logical(LK) , intent(in) , optional :: unique
2929 integer(IKG) , allocatable :: ArrayRemoved(:)
2930 end function
2931#endif
2932
2933#if IK1_ENABLED
2934 PURE module function getRemovedDefComCusIns_D1_D1_IK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_IK1
2937#endif
2938 use pm_kind, only: IKG => IK1
2939 integer(IKG) , intent(in) , contiguous :: array(:)
2940 integer(IKG) , intent(in) , contiguous :: pattern(:)
2941 integer(IK) , intent(in) , contiguous :: instance(:)
2942 logical(LK) , intent(in) , optional :: sorted
2943 logical(LK) , intent(in) , optional :: unique
2944 integer(IKG) , allocatable :: ArrayRemoved(:)
2945 end function
2946#endif
2947
2948 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2949
2950#if LK5_ENABLED
2951 PURE module function getRemovedDefComCusIns_D1_D1_LK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2953 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_LK5
2954#endif
2955 use pm_kind, only: LKG => LK5
2956 logical(LKG) , intent(in) , contiguous :: array(:)
2957 logical(LKG) , intent(in) , contiguous :: pattern(:)
2958 integer(IK) , intent(in) , contiguous :: instance(:)
2959 logical(LK) , intent(in) , optional :: sorted
2960 logical(LK) , intent(in) , optional :: unique
2961 logical(LKG) , allocatable :: ArrayRemoved(:)
2962 end function
2963#endif
2964
2965#if LK4_ENABLED
2966 PURE module function getRemovedDefComCusIns_D1_D1_LK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2968 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_LK4
2969#endif
2970 use pm_kind, only: LKG => LK4
2971 logical(LKG) , intent(in) , contiguous :: array(:)
2972 logical(LKG) , intent(in) , contiguous :: pattern(:)
2973 integer(IK) , intent(in) , contiguous :: instance(:)
2974 logical(LK) , intent(in) , optional :: sorted
2975 logical(LK) , intent(in) , optional :: unique
2976 logical(LKG) , allocatable :: ArrayRemoved(:)
2977 end function
2978#endif
2979
2980#if LK3_ENABLED
2981 PURE module function getRemovedDefComCusIns_D1_D1_LK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2983 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_LK3
2984#endif
2985 use pm_kind, only: LKG => LK3
2986 logical(LKG) , intent(in) , contiguous :: array(:)
2987 logical(LKG) , intent(in) , contiguous :: pattern(:)
2988 integer(IK) , intent(in) , contiguous :: instance(:)
2989 logical(LK) , intent(in) , optional :: sorted
2990 logical(LK) , intent(in) , optional :: unique
2991 logical(LKG) , allocatable :: ArrayRemoved(:)
2992 end function
2993#endif
2994
2995#if LK2_ENABLED
2996 PURE module function getRemovedDefComCusIns_D1_D1_LK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_LK2
2999#endif
3000 use pm_kind, only: LKG => LK2
3001 logical(LKG) , intent(in) , contiguous :: array(:)
3002 logical(LKG) , intent(in) , contiguous :: pattern(:)
3003 integer(IK) , intent(in) , contiguous :: instance(:)
3004 logical(LK) , intent(in) , optional :: sorted
3005 logical(LK) , intent(in) , optional :: unique
3006 logical(LKG) , allocatable :: ArrayRemoved(:)
3007 end function
3008#endif
3009
3010#if LK1_ENABLED
3011 PURE module function getRemovedDefComCusIns_D1_D1_LK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_LK1
3014#endif
3015 use pm_kind, only: LKG => LK1
3016 logical(LKG) , intent(in) , contiguous :: array(:)
3017 logical(LKG) , intent(in) , contiguous :: pattern(:)
3018 integer(IK) , intent(in) , contiguous :: instance(:)
3019 logical(LK) , intent(in) , optional :: sorted
3020 logical(LK) , intent(in) , optional :: unique
3021 logical(LKG) , allocatable :: ArrayRemoved(:)
3022 end function
3023#endif
3024
3025 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3026
3027#if CK5_ENABLED
3028 PURE module function getRemovedDefComCusIns_D1_D1_CK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3030 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_CK5
3031#endif
3032 use pm_kind, only: CKG => CK5
3033 complex(CKG) , intent(in) , contiguous :: array(:)
3034 complex(CKG) , intent(in) , contiguous :: pattern(:)
3035 integer(IK) , intent(in) , contiguous :: instance(:)
3036 logical(LK) , intent(in) , optional :: sorted
3037 logical(LK) , intent(in) , optional :: unique
3038 complex(CKG) , allocatable :: ArrayRemoved(:)
3039 end function
3040#endif
3041
3042#if CK4_ENABLED
3043 PURE module function getRemovedDefComCusIns_D1_D1_CK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3045 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_CK4
3046#endif
3047 use pm_kind, only: CKG => CK4
3048 complex(CKG) , intent(in) , contiguous :: array(:)
3049 complex(CKG) , intent(in) , contiguous :: pattern(:)
3050 integer(IK) , intent(in) , contiguous :: instance(:)
3051 logical(LK) , intent(in) , optional :: sorted
3052 logical(LK) , intent(in) , optional :: unique
3053 complex(CKG) , allocatable :: ArrayRemoved(:)
3054 end function
3055#endif
3056
3057#if CK3_ENABLED
3058 PURE module function getRemovedDefComCusIns_D1_D1_CK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3060 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_CK3
3061#endif
3062 use pm_kind, only: CKG => CK3
3063 complex(CKG) , intent(in) , contiguous :: array(:)
3064 complex(CKG) , intent(in) , contiguous :: pattern(:)
3065 integer(IK) , intent(in) , contiguous :: instance(:)
3066 logical(LK) , intent(in) , optional :: sorted
3067 logical(LK) , intent(in) , optional :: unique
3068 complex(CKG) , allocatable :: ArrayRemoved(:)
3069 end function
3070#endif
3071
3072#if CK2_ENABLED
3073 PURE module function getRemovedDefComCusIns_D1_D1_CK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_CK2
3076#endif
3077 use pm_kind, only: CKG => CK2
3078 complex(CKG) , intent(in) , contiguous :: array(:)
3079 complex(CKG) , intent(in) , contiguous :: pattern(:)
3080 integer(IK) , intent(in) , contiguous :: instance(:)
3081 logical(LK) , intent(in) , optional :: sorted
3082 logical(LK) , intent(in) , optional :: unique
3083 complex(CKG) , allocatable :: ArrayRemoved(:)
3084 end function
3085#endif
3086
3087#if CK1_ENABLED
3088 PURE module function getRemovedDefComCusIns_D1_D1_CK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3090 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_CK1
3091#endif
3092 use pm_kind, only: CKG => CK1
3093 complex(CKG) , intent(in) , contiguous :: array(:)
3094 complex(CKG) , intent(in) , contiguous :: pattern(:)
3095 integer(IK) , intent(in) , contiguous :: instance(:)
3096 logical(LK) , intent(in) , optional :: sorted
3097 logical(LK) , intent(in) , optional :: unique
3098 complex(CKG) , allocatable :: ArrayRemoved(:)
3099 end function
3100#endif
3101
3102 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3103
3104#if RK5_ENABLED
3105 PURE module function getRemovedDefComCusIns_D1_D1_RK5(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3107 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_RK5
3108#endif
3109 use pm_kind, only: RKG => RK5
3110 real(RKG) , intent(in) , contiguous :: array(:)
3111 real(RKG) , intent(in) , contiguous :: pattern(:)
3112 integer(IK) , intent(in) , contiguous :: instance(:)
3113 logical(LK) , intent(in) , optional :: sorted
3114 logical(LK) , intent(in) , optional :: unique
3115 real(RKG) , allocatable :: ArrayRemoved(:)
3116 end function
3117#endif
3118
3119#if RK4_ENABLED
3120 PURE module function getRemovedDefComCusIns_D1_D1_RK4(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3122 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_RK4
3123#endif
3124 use pm_kind, only: RKG => RK4
3125 real(RKG) , intent(in) , contiguous :: array(:)
3126 real(RKG) , intent(in) , contiguous :: pattern(:)
3127 integer(IK) , intent(in) , contiguous :: instance(:)
3128 logical(LK) , intent(in) , optional :: sorted
3129 logical(LK) , intent(in) , optional :: unique
3130 real(RKG) , allocatable :: ArrayRemoved(:)
3131 end function
3132#endif
3133
3134#if RK3_ENABLED
3135 PURE module function getRemovedDefComCusIns_D1_D1_RK3(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3137 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_RK3
3138#endif
3139 use pm_kind, only: RKG => RK3
3140 real(RKG) , intent(in) , contiguous :: array(:)
3141 real(RKG) , intent(in) , contiguous :: pattern(:)
3142 integer(IK) , intent(in) , contiguous :: instance(:)
3143 logical(LK) , intent(in) , optional :: sorted
3144 logical(LK) , intent(in) , optional :: unique
3145 real(RKG) , allocatable :: ArrayRemoved(:)
3146 end function
3147#endif
3148
3149#if RK2_ENABLED
3150 PURE module function getRemovedDefComCusIns_D1_D1_RK2(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3152 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_RK2
3153#endif
3154 use pm_kind, only: RKG => RK2
3155 real(RKG) , intent(in) , contiguous :: array(:)
3156 real(RKG) , intent(in) , contiguous :: pattern(:)
3157 integer(IK) , intent(in) , contiguous :: instance(:)
3158 logical(LK) , intent(in) , optional :: sorted
3159 logical(LK) , intent(in) , optional :: unique
3160 real(RKG) , allocatable :: ArrayRemoved(:)
3161 end function
3162#endif
3163
3164#if RK1_ENABLED
3165 PURE module function getRemovedDefComCusIns_D1_D1_RK1(array, pattern, instance, sorted, unique) result(ArrayRemoved)
3166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3167 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedDefComCusIns_D1_D1_RK1
3168#endif
3169 use pm_kind, only: RKG => RK1
3170 real(RKG) , intent(in) , contiguous :: array(:)
3171 real(RKG) , intent(in) , contiguous :: pattern(:)
3172 integer(IK) , intent(in) , contiguous :: instance(:)
3173 logical(LK) , intent(in) , optional :: sorted
3174 logical(LK) , intent(in) , optional :: unique
3175 real(RKG) , allocatable :: ArrayRemoved(:)
3176 end function
3177#endif
3178
3179 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3180
3181 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3182 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3183 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3184
3185 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3186
3187#if SK5_ENABLED
3188 module function getRemovedCusComCusIns_D1_D1_SK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3190 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_SK5
3191#endif
3192 use pm_kind, only: SKG => SK5
3193 character(*,SKG) , intent(in) , contiguous :: array(:)
3194 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3195 procedure(logical(LK)) :: iseq
3196 integer(IK) , intent(in) , contiguous :: instance(:)
3197 logical(LK) , intent(in) , optional :: sorted
3198 logical(LK) , intent(in) , optional :: unique
3199 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
3200 end function
3201#endif
3202
3203#if SK4_ENABLED
3204 module function getRemovedCusComCusIns_D1_D1_SK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3206 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_SK4
3207#endif
3208 use pm_kind, only: SKG => SK4
3209 character(*,SKG) , intent(in) , contiguous :: array(:)
3210 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3211 procedure(logical(LK)) :: iseq
3212 integer(IK) , intent(in) , contiguous :: instance(:)
3213 logical(LK) , intent(in) , optional :: sorted
3214 logical(LK) , intent(in) , optional :: unique
3215 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
3216 end function
3217#endif
3218
3219#if SK3_ENABLED
3220 module function getRemovedCusComCusIns_D1_D1_SK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3222 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_SK3
3223#endif
3224 use pm_kind, only: SKG => SK3
3225 character(*,SKG) , intent(in) , contiguous :: array(:)
3226 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3227 procedure(logical(LK)) :: iseq
3228 integer(IK) , intent(in) , contiguous :: instance(:)
3229 logical(LK) , intent(in) , optional :: sorted
3230 logical(LK) , intent(in) , optional :: unique
3231 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
3232 end function
3233#endif
3234
3235#if SK2_ENABLED
3236 module function getRemovedCusComCusIns_D1_D1_SK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3238 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_SK2
3239#endif
3240 use pm_kind, only: SKG => SK2
3241 character(*,SKG) , intent(in) , contiguous :: array(:)
3242 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3243 procedure(logical(LK)) :: iseq
3244 integer(IK) , intent(in) , contiguous :: instance(:)
3245 logical(LK) , intent(in) , optional :: sorted
3246 logical(LK) , intent(in) , optional :: unique
3247 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
3248 end function
3249#endif
3250
3251#if SK1_ENABLED
3252 module function getRemovedCusComCusIns_D1_D1_SK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3254 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_SK1
3255#endif
3256 use pm_kind, only: SKG => SK1
3257 character(*,SKG) , intent(in) , contiguous :: array(:)
3258 character(*,SKG) , intent(in) , contiguous :: pattern(:)
3259 procedure(logical(LK)) :: iseq
3260 integer(IK) , intent(in) , contiguous :: instance(:)
3261 logical(LK) , intent(in) , optional :: sorted
3262 logical(LK) , intent(in) , optional :: unique
3263 character(LEN_ARRAY, SKG) , allocatable :: ArrayRemoved(:)
3264 end function
3265#endif
3266
3267 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3268
3269#if IK5_ENABLED
3270 module function getRemovedCusComCusIns_D1_D1_IK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3272 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_IK5
3273#endif
3274 use pm_kind, only: IKG => IK5
3275 integer(IKG) , intent(in) , contiguous :: array(:)
3276 integer(IKG) , intent(in) , contiguous :: pattern(:)
3277 procedure(logical(LK)) :: iseq
3278 integer(IK) , intent(in) , contiguous :: instance(:)
3279 logical(LK) , intent(in) , optional :: sorted
3280 logical(LK) , intent(in) , optional :: unique
3281 integer(IKG) , allocatable :: ArrayRemoved(:)
3282 end function
3283#endif
3284
3285#if IK4_ENABLED
3286 module function getRemovedCusComCusIns_D1_D1_IK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3288 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_IK4
3289#endif
3290 use pm_kind, only: IKG => IK4
3291 integer(IKG) , intent(in) , contiguous :: array(:)
3292 integer(IKG) , intent(in) , contiguous :: pattern(:)
3293 procedure(logical(LK)) :: iseq
3294 integer(IK) , intent(in) , contiguous :: instance(:)
3295 logical(LK) , intent(in) , optional :: sorted
3296 logical(LK) , intent(in) , optional :: unique
3297 integer(IKG) , allocatable :: ArrayRemoved(:)
3298 end function
3299#endif
3300
3301#if IK3_ENABLED
3302 module function getRemovedCusComCusIns_D1_D1_IK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3304 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_IK3
3305#endif
3306 use pm_kind, only: IKG => IK3
3307 integer(IKG) , intent(in) , contiguous :: array(:)
3308 integer(IKG) , intent(in) , contiguous :: pattern(:)
3309 procedure(logical(LK)) :: iseq
3310 integer(IK) , intent(in) , contiguous :: instance(:)
3311 logical(LK) , intent(in) , optional :: sorted
3312 logical(LK) , intent(in) , optional :: unique
3313 integer(IKG) , allocatable :: ArrayRemoved(:)
3314 end function
3315#endif
3316
3317#if IK2_ENABLED
3318 module function getRemovedCusComCusIns_D1_D1_IK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3320 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_IK2
3321#endif
3322 use pm_kind, only: IKG => IK2
3323 integer(IKG) , intent(in) , contiguous :: array(:)
3324 integer(IKG) , intent(in) , contiguous :: pattern(:)
3325 procedure(logical(LK)) :: iseq
3326 integer(IK) , intent(in) , contiguous :: instance(:)
3327 logical(LK) , intent(in) , optional :: sorted
3328 logical(LK) , intent(in) , optional :: unique
3329 integer(IKG) , allocatable :: ArrayRemoved(:)
3330 end function
3331#endif
3332
3333#if IK1_ENABLED
3334 module function getRemovedCusComCusIns_D1_D1_IK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3336 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_IK1
3337#endif
3338 use pm_kind, only: IKG => IK1
3339 integer(IKG) , intent(in) , contiguous :: array(:)
3340 integer(IKG) , intent(in) , contiguous :: pattern(:)
3341 procedure(logical(LK)) :: iseq
3342 integer(IK) , intent(in) , contiguous :: instance(:)
3343 logical(LK) , intent(in) , optional :: sorted
3344 logical(LK) , intent(in) , optional :: unique
3345 integer(IKG) , allocatable :: ArrayRemoved(:)
3346 end function
3347#endif
3348
3349 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3350
3351#if LK5_ENABLED
3352 module function getRemovedCusComCusIns_D1_D1_LK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3354 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_LK5
3355#endif
3356 use pm_kind, only: LKG => LK5
3357 logical(LKG) , intent(in) , contiguous :: array(:)
3358 logical(LKG) , intent(in) , contiguous :: pattern(:)
3359 procedure(logical(LK)) :: iseq
3360 integer(IK) , intent(in) , contiguous :: instance(:)
3361 logical(LK) , intent(in) , optional :: sorted
3362 logical(LK) , intent(in) , optional :: unique
3363 logical(LKG) , allocatable :: ArrayRemoved(:)
3364 end function
3365#endif
3366
3367#if LK4_ENABLED
3368 module function getRemovedCusComCusIns_D1_D1_LK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3370 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_LK4
3371#endif
3372 use pm_kind, only: LKG => LK4
3373 logical(LKG) , intent(in) , contiguous :: array(:)
3374 logical(LKG) , intent(in) , contiguous :: pattern(:)
3375 procedure(logical(LK)) :: iseq
3376 integer(IK) , intent(in) , contiguous :: instance(:)
3377 logical(LK) , intent(in) , optional :: sorted
3378 logical(LK) , intent(in) , optional :: unique
3379 logical(LKG) , allocatable :: ArrayRemoved(:)
3380 end function
3381#endif
3382
3383#if LK3_ENABLED
3384 module function getRemovedCusComCusIns_D1_D1_LK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3386 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_LK3
3387#endif
3388 use pm_kind, only: LKG => LK3
3389 logical(LKG) , intent(in) , contiguous :: array(:)
3390 logical(LKG) , intent(in) , contiguous :: pattern(:)
3391 procedure(logical(LK)) :: iseq
3392 integer(IK) , intent(in) , contiguous :: instance(:)
3393 logical(LK) , intent(in) , optional :: sorted
3394 logical(LK) , intent(in) , optional :: unique
3395 logical(LKG) , allocatable :: ArrayRemoved(:)
3396 end function
3397#endif
3398
3399#if LK2_ENABLED
3400 module function getRemovedCusComCusIns_D1_D1_LK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3402 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_LK2
3403#endif
3404 use pm_kind, only: LKG => LK2
3405 logical(LKG) , intent(in) , contiguous :: array(:)
3406 logical(LKG) , intent(in) , contiguous :: pattern(:)
3407 procedure(logical(LK)) :: iseq
3408 integer(IK) , intent(in) , contiguous :: instance(:)
3409 logical(LK) , intent(in) , optional :: sorted
3410 logical(LK) , intent(in) , optional :: unique
3411 logical(LKG) , allocatable :: ArrayRemoved(:)
3412 end function
3413#endif
3414
3415#if LK1_ENABLED
3416 module function getRemovedCusComCusIns_D1_D1_LK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3418 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_LK1
3419#endif
3420 use pm_kind, only: LKG => LK1
3421 logical(LKG) , intent(in) , contiguous :: array(:)
3422 logical(LKG) , intent(in) , contiguous :: pattern(:)
3423 procedure(logical(LK)) :: iseq
3424 integer(IK) , intent(in) , contiguous :: instance(:)
3425 logical(LK) , intent(in) , optional :: sorted
3426 logical(LK) , intent(in) , optional :: unique
3427 logical(LKG) , allocatable :: ArrayRemoved(:)
3428 end function
3429#endif
3430
3431 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3432
3433#if CK5_ENABLED
3434 module function getRemovedCusComCusIns_D1_D1_CK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_CK5
3437#endif
3438 use pm_kind, only: CKG => CK5
3439 complex(CKG) , intent(in) , contiguous :: array(:)
3440 complex(CKG) , intent(in) , contiguous :: pattern(:)
3441 procedure(logical(LK)) :: iseq
3442 integer(IK) , intent(in) , contiguous :: instance(:)
3443 logical(LK) , intent(in) , optional :: sorted
3444 logical(LK) , intent(in) , optional :: unique
3445 complex(CKG) , allocatable :: ArrayRemoved(:)
3446 end function
3447#endif
3448
3449#if CK4_ENABLED
3450 module function getRemovedCusComCusIns_D1_D1_CK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3452 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_CK4
3453#endif
3454 use pm_kind, only: CKG => CK4
3455 complex(CKG) , intent(in) , contiguous :: array(:)
3456 complex(CKG) , intent(in) , contiguous :: pattern(:)
3457 procedure(logical(LK)) :: iseq
3458 integer(IK) , intent(in) , contiguous :: instance(:)
3459 logical(LK) , intent(in) , optional :: sorted
3460 logical(LK) , intent(in) , optional :: unique
3461 complex(CKG) , allocatable :: ArrayRemoved(:)
3462 end function
3463#endif
3464
3465#if CK3_ENABLED
3466 module function getRemovedCusComCusIns_D1_D1_CK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3468 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_CK3
3469#endif
3470 use pm_kind, only: CKG => CK3
3471 complex(CKG) , intent(in) , contiguous :: array(:)
3472 complex(CKG) , intent(in) , contiguous :: pattern(:)
3473 procedure(logical(LK)) :: iseq
3474 integer(IK) , intent(in) , contiguous :: instance(:)
3475 logical(LK) , intent(in) , optional :: sorted
3476 logical(LK) , intent(in) , optional :: unique
3477 complex(CKG) , allocatable :: ArrayRemoved(:)
3478 end function
3479#endif
3480
3481#if CK2_ENABLED
3482 module function getRemovedCusComCusIns_D1_D1_CK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3484 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_CK2
3485#endif
3486 use pm_kind, only: CKG => CK2
3487 complex(CKG) , intent(in) , contiguous :: array(:)
3488 complex(CKG) , intent(in) , contiguous :: pattern(:)
3489 procedure(logical(LK)) :: iseq
3490 integer(IK) , intent(in) , contiguous :: instance(:)
3491 logical(LK) , intent(in) , optional :: sorted
3492 logical(LK) , intent(in) , optional :: unique
3493 complex(CKG) , allocatable :: ArrayRemoved(:)
3494 end function
3495#endif
3496
3497#if CK1_ENABLED
3498 module function getRemovedCusComCusIns_D1_D1_CK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3500 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_CK1
3501#endif
3502 use pm_kind, only: CKG => CK1
3503 complex(CKG) , intent(in) , contiguous :: array(:)
3504 complex(CKG) , intent(in) , contiguous :: pattern(:)
3505 procedure(logical(LK)) :: iseq
3506 integer(IK) , intent(in) , contiguous :: instance(:)
3507 logical(LK) , intent(in) , optional :: sorted
3508 logical(LK) , intent(in) , optional :: unique
3509 complex(CKG) , allocatable :: ArrayRemoved(:)
3510 end function
3511#endif
3512
3513 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3514
3515#if RK5_ENABLED
3516 module function getRemovedCusComCusIns_D1_D1_RK5(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3518 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_RK5
3519#endif
3520 use pm_kind, only: RKG => RK5
3521 real(RKG) , intent(in) , contiguous :: array(:)
3522 real(RKG) , intent(in) , contiguous :: pattern(:)
3523 procedure(logical(LK)) :: iseq
3524 integer(IK) , intent(in) , contiguous :: instance(:)
3525 logical(LK) , intent(in) , optional :: sorted
3526 logical(LK) , intent(in) , optional :: unique
3527 real(RKG) , allocatable :: ArrayRemoved(:)
3528 end function
3529#endif
3530
3531#if RK4_ENABLED
3532 module function getRemovedCusComCusIns_D1_D1_RK4(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3534 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_RK4
3535#endif
3536 use pm_kind, only: RKG => RK4
3537 real(RKG) , intent(in) , contiguous :: array(:)
3538 real(RKG) , intent(in) , contiguous :: pattern(:)
3539 procedure(logical(LK)) :: iseq
3540 integer(IK) , intent(in) , contiguous :: instance(:)
3541 logical(LK) , intent(in) , optional :: sorted
3542 logical(LK) , intent(in) , optional :: unique
3543 real(RKG) , allocatable :: ArrayRemoved(:)
3544 end function
3545#endif
3546
3547#if RK3_ENABLED
3548 module function getRemovedCusComCusIns_D1_D1_RK3(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3550 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_RK3
3551#endif
3552 use pm_kind, only: RKG => RK3
3553 real(RKG) , intent(in) , contiguous :: array(:)
3554 real(RKG) , intent(in) , contiguous :: pattern(:)
3555 procedure(logical(LK)) :: iseq
3556 integer(IK) , intent(in) , contiguous :: instance(:)
3557 logical(LK) , intent(in) , optional :: sorted
3558 logical(LK) , intent(in) , optional :: unique
3559 real(RKG) , allocatable :: ArrayRemoved(:)
3560 end function
3561#endif
3562
3563#if RK2_ENABLED
3564 module function getRemovedCusComCusIns_D1_D1_RK2(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3566 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_RK2
3567#endif
3568 use pm_kind, only: RKG => RK2
3569 real(RKG) , intent(in) , contiguous :: array(:)
3570 real(RKG) , intent(in) , contiguous :: pattern(:)
3571 procedure(logical(LK)) :: iseq
3572 integer(IK) , intent(in) , contiguous :: instance(:)
3573 logical(LK) , intent(in) , optional :: sorted
3574 logical(LK) , intent(in) , optional :: unique
3575 real(RKG) , allocatable :: ArrayRemoved(:)
3576 end function
3577#endif
3578
3579#if RK1_ENABLED
3580 module function getRemovedCusComCusIns_D1_D1_RK1(array, pattern, iseq, instance, sorted, unique) result(ArrayRemoved)
3581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3582 !DEC$ ATTRIBUTES DLLEXPORT :: getRemovedCusComCusIns_D1_D1_RK1
3583#endif
3584 use pm_kind, only: RKG => RK1
3585 real(RKG) , intent(in) , contiguous :: array(:)
3586 real(RKG) , intent(in) , contiguous :: pattern(:)
3587 procedure(logical(LK)) :: iseq
3588 integer(IK) , intent(in) , contiguous :: instance(:)
3589 logical(LK) , intent(in) , optional :: sorted
3590 logical(LK) , intent(in) , optional :: unique
3591 real(RKG) , allocatable :: ArrayRemoved(:)
3592 end function
3593#endif
3594
3595 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3596
3597 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3598 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3602 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3605 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3606
3607 end interface
3608
3609!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3610
3756 interface setRemoved
3757
3758 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3759 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3760 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3761 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3762 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3763 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3764 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3765 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3766 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3767
3768 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3769
3770#if SK5_ENABLED
3771 PURE module subroutine setRemovedDefComDefIns_D0_D0_SK5(array, pattern)
3772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3773 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK5
3774#endif
3775 use pm_kind, only: SKG => SK5
3776 character(:,SKG) , intent(inout) , allocatable :: array
3777 character(*,SKG) , intent(in) :: pattern
3778 end subroutine
3779#endif
3780
3781#if SK4_ENABLED
3782 PURE module subroutine setRemovedDefComDefIns_D0_D0_SK4(array, pattern)
3783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3784 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK4
3785#endif
3786 use pm_kind, only: SKG => SK4
3787 character(:,SKG) , intent(inout) , allocatable :: array
3788 character(*,SKG) , intent(in) :: pattern
3789 end subroutine
3790#endif
3791
3792#if SK3_ENABLED
3793 PURE module subroutine setRemovedDefComDefIns_D0_D0_SK3(array, pattern)
3794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3795 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK3
3796#endif
3797 use pm_kind, only: SKG => SK3
3798 character(:,SKG) , intent(inout) , allocatable :: array
3799 character(*,SKG) , intent(in) :: pattern
3800 end subroutine
3801#endif
3802
3803#if SK2_ENABLED
3804 PURE module subroutine setRemovedDefComDefIns_D0_D0_SK2(array, pattern)
3805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3806 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK2
3807#endif
3808 use pm_kind, only: SKG => SK2
3809 character(:,SKG) , intent(inout) , allocatable :: array
3810 character(*,SKG) , intent(in) :: pattern
3811 end subroutine
3812#endif
3813
3814#if SK1_ENABLED
3815 PURE module subroutine setRemovedDefComDefIns_D0_D0_SK1(array, pattern)
3816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3817 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK1
3818#endif
3819 use pm_kind, only: SKG => SK1
3820 character(:,SKG) , intent(inout) , allocatable :: array
3821 character(*,SKG) , intent(in) :: pattern
3822 end subroutine
3823#endif
3824
3825 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3826
3827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3828 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3830
3831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3832
3833#if SK5_ENABLED
3834 module subroutine setRemovedCusComDefIns_D0_D0_SK5(array, pattern, iseq)
3835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3836 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK5
3837#endif
3838 use pm_kind, only: SKG => SK5
3839 character(:,SKG) , intent(inout) , allocatable :: array
3840 character(*,SKG) , intent(in) :: pattern
3841 procedure(logical(LK)) :: iseq
3842 end subroutine
3843#endif
3844
3845#if SK4_ENABLED
3846 module subroutine setRemovedCusComDefIns_D0_D0_SK4(array, pattern, iseq)
3847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3848 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK4
3849#endif
3850 use pm_kind, only: SKG => SK4
3851 character(:,SKG) , intent(inout) , allocatable :: array
3852 character(*,SKG) , intent(in) :: pattern
3853 procedure(logical(LK)) :: iseq
3854 end subroutine
3855#endif
3856
3857#if SK3_ENABLED
3858 module subroutine setRemovedCusComDefIns_D0_D0_SK3(array, pattern, iseq)
3859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3860 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK3
3861#endif
3862 use pm_kind, only: SKG => SK3
3863 character(:,SKG) , intent(inout) , allocatable :: array
3864 character(*,SKG) , intent(in) :: pattern
3865 procedure(logical(LK)) :: iseq
3866 end subroutine
3867#endif
3868
3869#if SK2_ENABLED
3870 module subroutine setRemovedCusComDefIns_D0_D0_SK2(array, pattern, iseq)
3871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3872 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK2
3873#endif
3874 use pm_kind, only: SKG => SK2
3875 character(:,SKG) , intent(inout) , allocatable :: array
3876 character(*,SKG) , intent(in) :: pattern
3877 procedure(logical(LK)) :: iseq
3878 end subroutine
3879#endif
3880
3881#if SK1_ENABLED
3882 module subroutine setRemovedCusComDefIns_D0_D0_SK1(array, pattern, iseq)
3883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3884 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK1
3885#endif
3886 use pm_kind, only: SKG => SK1
3887 character(:,SKG) , intent(inout) , allocatable :: array
3888 character(*,SKG) , intent(in) :: pattern
3889 procedure(logical(LK)) :: iseq
3890 end subroutine
3891#endif
3892
3893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3894
3895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3896 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3898
3899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3900
3901#if SK5_ENABLED
3902 PURE module subroutine setRemovedDefComCusIns_D0_D0_SK5(array, pattern, instance, sorted, unique)
3903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3904 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK5
3905#endif
3906 use pm_kind, only: SKG => SK5
3907 character(:,SKG) , intent(inout) , allocatable :: array
3908 character(*,SKG) , intent(in) :: pattern
3909 integer(IK) , intent(in) , contiguous :: instance(:)
3910 logical(LK) , intent(in) , optional :: sorted
3911 logical(LK) , intent(in) , optional :: unique
3912 end subroutine
3913#endif
3914
3915#if SK4_ENABLED
3916 PURE module subroutine setRemovedDefComCusIns_D0_D0_SK4(array, pattern, instance, sorted, unique)
3917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3918 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK4
3919#endif
3920 use pm_kind, only: SKG => SK4
3921 character(:,SKG) , intent(inout) , allocatable :: array
3922 character(*,SKG) , intent(in) :: pattern
3923 integer(IK) , intent(in) , contiguous :: instance(:)
3924 logical(LK) , intent(in) , optional :: sorted
3925 logical(LK) , intent(in) , optional :: unique
3926 end subroutine
3927#endif
3928
3929#if SK3_ENABLED
3930 PURE module subroutine setRemovedDefComCusIns_D0_D0_SK3(array, pattern, instance, sorted, unique)
3931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3932 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK3
3933#endif
3934 use pm_kind, only: SKG => SK3
3935 character(:,SKG) , intent(inout) , allocatable :: array
3936 character(*,SKG) , intent(in) :: pattern
3937 integer(IK) , intent(in) , contiguous :: instance(:)
3938 logical(LK) , intent(in) , optional :: sorted
3939 logical(LK) , intent(in) , optional :: unique
3940 end subroutine
3941#endif
3942
3943#if SK2_ENABLED
3944 PURE module subroutine setRemovedDefComCusIns_D0_D0_SK2(array, pattern, instance, sorted, unique)
3945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3946 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK2
3947#endif
3948 use pm_kind, only: SKG => SK2
3949 character(:,SKG) , intent(inout) , allocatable :: array
3950 character(*,SKG) , intent(in) :: pattern
3951 integer(IK) , intent(in) , contiguous :: instance(:)
3952 logical(LK) , intent(in) , optional :: sorted
3953 logical(LK) , intent(in) , optional :: unique
3954 end subroutine
3955#endif
3956
3957#if SK1_ENABLED
3958 PURE module subroutine setRemovedDefComCusIns_D0_D0_SK1(array, pattern, instance, sorted, unique)
3959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3960 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK1
3961#endif
3962 use pm_kind, only: SKG => SK1
3963 character(:,SKG) , intent(inout) , allocatable :: array
3964 character(*,SKG) , intent(in) :: pattern
3965 integer(IK) , intent(in) , contiguous :: instance(:)
3966 logical(LK) , intent(in) , optional :: sorted
3967 logical(LK) , intent(in) , optional :: unique
3968 end subroutine
3969#endif
3970
3971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3972
3973 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3974 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3975 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3976
3977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3978
3979#if SK5_ENABLED
3980 module subroutine setRemovedCusComCusIns_D0_D0_SK5(array, pattern, iseq, instance, sorted, unique)
3981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3982 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK5
3983#endif
3984 use pm_kind, only: SKG => SK5
3985 character(:,SKG) , intent(inout) , allocatable :: array
3986 character(*,SKG) , intent(in) :: pattern
3987 procedure(logical(LK)) :: iseq
3988 integer(IK) , intent(in) , contiguous :: instance(:)
3989 logical(LK) , intent(in) , optional :: sorted
3990 logical(LK) , intent(in) , optional :: unique
3991 end subroutine
3992#endif
3993
3994#if SK4_ENABLED
3995 module subroutine setRemovedCusComCusIns_D0_D0_SK4(array, pattern, iseq, instance, sorted, unique)
3996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3997 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK4
3998#endif
3999 use pm_kind, only: SKG => SK4
4000 character(:,SKG) , intent(inout) , allocatable :: array
4001 character(*,SKG) , intent(in) :: pattern
4002 procedure(logical(LK)) :: iseq
4003 integer(IK) , intent(in) , contiguous :: instance(:)
4004 logical(LK) , intent(in) , optional :: sorted
4005 logical(LK) , intent(in) , optional :: unique
4006 end subroutine
4007#endif
4008
4009#if SK3_ENABLED
4010 module subroutine setRemovedCusComCusIns_D0_D0_SK3(array, pattern, iseq, instance, sorted, unique)
4011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4012 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK3
4013#endif
4014 use pm_kind, only: SKG => SK3
4015 character(:,SKG) , intent(inout) , allocatable :: array
4016 character(*,SKG) , intent(in) :: pattern
4017 procedure(logical(LK)) :: iseq
4018 integer(IK) , intent(in) , contiguous :: instance(:)
4019 logical(LK) , intent(in) , optional :: sorted
4020 logical(LK) , intent(in) , optional :: unique
4021 end subroutine
4022#endif
4023
4024#if SK2_ENABLED
4025 module subroutine setRemovedCusComCusIns_D0_D0_SK2(array, pattern, iseq, instance, sorted, unique)
4026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4027 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK2
4028#endif
4029 use pm_kind, only: SKG => SK2
4030 character(:,SKG) , intent(inout) , allocatable :: array
4031 character(*,SKG) , intent(in) :: pattern
4032 procedure(logical(LK)) :: iseq
4033 integer(IK) , intent(in) , contiguous :: instance(:)
4034 logical(LK) , intent(in) , optional :: sorted
4035 logical(LK) , intent(in) , optional :: unique
4036 end subroutine
4037#endif
4038
4039#if SK1_ENABLED
4040 module subroutine setRemovedCusComCusIns_D0_D0_SK1(array, pattern, iseq, instance, sorted, unique)
4041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4042 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK1
4043#endif
4044 use pm_kind, only: SKG => SK1
4045 character(:,SKG) , intent(inout) , allocatable :: array
4046 character(*,SKG) , intent(in) :: pattern
4047 procedure(logical(LK)) :: iseq
4048 integer(IK) , intent(in) , contiguous :: instance(:)
4049 logical(LK) , intent(in) , optional :: sorted
4050 logical(LK) , intent(in) , optional :: unique
4051 end subroutine
4052#endif
4053
4054 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4055
4056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4057 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4059 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4061 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4062 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4063 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4064 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4065
4066 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4067
4068#if SK5_ENABLED
4069 PURE module subroutine setRemovedDefComDefIns_D1_D0_SK5(array, pattern)
4070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4071 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK5
4072#endif
4073 use pm_kind, only: SKG => SK5
4074 character(*,SKG) , intent(inout) , allocatable :: array(:)
4075 character(*,SKG) , intent(in) :: pattern
4076 end subroutine
4077#endif
4078
4079#if SK4_ENABLED
4080 PURE module subroutine setRemovedDefComDefIns_D1_D0_SK4(array, pattern)
4081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4082 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK4
4083#endif
4084 use pm_kind, only: SKG => SK4
4085 character(*,SKG) , intent(inout) , allocatable :: array(:)
4086 character(*,SKG) , intent(in) :: pattern
4087 end subroutine
4088#endif
4089
4090#if SK3_ENABLED
4091 PURE module subroutine setRemovedDefComDefIns_D1_D0_SK3(array, pattern)
4092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4093 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK3
4094#endif
4095 use pm_kind, only: SKG => SK3
4096 character(*,SKG) , intent(inout) , allocatable :: array(:)
4097 character(*,SKG) , intent(in) :: pattern
4098 end subroutine
4099#endif
4100
4101#if SK2_ENABLED
4102 PURE module subroutine setRemovedDefComDefIns_D1_D0_SK2(array, pattern)
4103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4104 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK2
4105#endif
4106 use pm_kind, only: SKG => SK2
4107 character(*,SKG) , intent(inout) , allocatable :: array(:)
4108 character(*,SKG) , intent(in) :: pattern
4109 end subroutine
4110#endif
4111
4112#if SK1_ENABLED
4113 PURE module subroutine setRemovedDefComDefIns_D1_D0_SK1(array, pattern)
4114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4115 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK1
4116#endif
4117 use pm_kind, only: SKG => SK1
4118 character(*,SKG) , intent(inout) , allocatable :: array(:)
4119 character(*,SKG) , intent(in) :: pattern
4120 end subroutine
4121#endif
4122
4123 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4124
4125#if IK5_ENABLED
4126 PURE module subroutine setRemovedDefComDefIns_D1_D0_IK5(array, pattern)
4127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4128 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK5
4129#endif
4130 use pm_kind, only: IKG => IK5
4131 integer(IKG) , intent(inout) , allocatable :: array(:)
4132 integer(IKG) , intent(in) :: pattern
4133 end subroutine
4134#endif
4135
4136#if IK4_ENABLED
4137 PURE module subroutine setRemovedDefComDefIns_D1_D0_IK4(array, pattern)
4138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4139 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK4
4140#endif
4141 use pm_kind, only: IKG => IK4
4142 integer(IKG) , intent(inout) , allocatable :: array(:)
4143 integer(IKG) , intent(in) :: pattern
4144 end subroutine
4145#endif
4146
4147#if IK3_ENABLED
4148 PURE module subroutine setRemovedDefComDefIns_D1_D0_IK3(array, pattern)
4149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4150 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK3
4151#endif
4152 use pm_kind, only: IKG => IK3
4153 integer(IKG) , intent(inout) , allocatable :: array(:)
4154 integer(IKG) , intent(in) :: pattern
4155 end subroutine
4156#endif
4157
4158#if IK2_ENABLED
4159 PURE module subroutine setRemovedDefComDefIns_D1_D0_IK2(array, pattern)
4160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4161 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK2
4162#endif
4163 use pm_kind, only: IKG => IK2
4164 integer(IKG) , intent(inout) , allocatable :: array(:)
4165 integer(IKG) , intent(in) :: pattern
4166 end subroutine
4167#endif
4168
4169#if IK1_ENABLED
4170 PURE module subroutine setRemovedDefComDefIns_D1_D0_IK1(array, pattern)
4171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4172 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK1
4173#endif
4174 use pm_kind, only: IKG => IK1
4175 integer(IKG) , intent(inout) , allocatable :: array(:)
4176 integer(IKG) , intent(in) :: pattern
4177 end subroutine
4178#endif
4179
4180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4181
4182#if LK5_ENABLED
4183 PURE module subroutine setRemovedDefComDefIns_D1_D0_LK5(array, pattern)
4184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4185 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK5
4186#endif
4187 use pm_kind, only: LKG => LK5
4188 logical(LKG) , intent(inout) , allocatable :: array(:)
4189 logical(LKG) , intent(in) :: pattern
4190 end subroutine
4191#endif
4192
4193#if LK4_ENABLED
4194 PURE module subroutine setRemovedDefComDefIns_D1_D0_LK4(array, pattern)
4195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4196 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK4
4197#endif
4198 use pm_kind, only: LKG => LK4
4199 logical(LKG) , intent(inout) , allocatable :: array(:)
4200 logical(LKG) , intent(in) :: pattern
4201 end subroutine
4202#endif
4203
4204#if LK3_ENABLED
4205 PURE module subroutine setRemovedDefComDefIns_D1_D0_LK3(array, pattern)
4206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4207 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK3
4208#endif
4209 use pm_kind, only: LKG => LK3
4210 logical(LKG) , intent(inout) , allocatable :: array(:)
4211 logical(LKG) , intent(in) :: pattern
4212 end subroutine
4213#endif
4214
4215#if LK2_ENABLED
4216 PURE module subroutine setRemovedDefComDefIns_D1_D0_LK2(array, pattern)
4217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4218 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK2
4219#endif
4220 use pm_kind, only: LKG => LK2
4221 logical(LKG) , intent(inout) , allocatable :: array(:)
4222 logical(LKG) , intent(in) :: pattern
4223 end subroutine
4224#endif
4225
4226#if LK1_ENABLED
4227 PURE module subroutine setRemovedDefComDefIns_D1_D0_LK1(array, pattern)
4228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4229 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK1
4230#endif
4231 use pm_kind, only: LKG => LK1
4232 logical(LKG) , intent(inout) , allocatable :: array(:)
4233 logical(LKG) , intent(in) :: pattern
4234 end subroutine
4235#endif
4236
4237 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4238
4239#if CK5_ENABLED
4240 PURE module subroutine setRemovedDefComDefIns_D1_D0_CK5(array, pattern)
4241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4242 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK5
4243#endif
4244 use pm_kind, only: CKG => CK5
4245 complex(CKG) , intent(inout) , allocatable :: array(:)
4246 complex(CKG) , intent(in) :: pattern
4247 end subroutine
4248#endif
4249
4250#if CK4_ENABLED
4251 PURE module subroutine setRemovedDefComDefIns_D1_D0_CK4(array, pattern)
4252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4253 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK4
4254#endif
4255 use pm_kind, only: CKG => CK4
4256 complex(CKG) , intent(inout) , allocatable :: array(:)
4257 complex(CKG) , intent(in) :: pattern
4258 end subroutine
4259#endif
4260
4261#if CK3_ENABLED
4262 PURE module subroutine setRemovedDefComDefIns_D1_D0_CK3(array, pattern)
4263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4264 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK3
4265#endif
4266 use pm_kind, only: CKG => CK3
4267 complex(CKG) , intent(inout) , allocatable :: array(:)
4268 complex(CKG) , intent(in) :: pattern
4269 end subroutine
4270#endif
4271
4272#if CK2_ENABLED
4273 PURE module subroutine setRemovedDefComDefIns_D1_D0_CK2(array, pattern)
4274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4275 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK2
4276#endif
4277 use pm_kind, only: CKG => CK2
4278 complex(CKG) , intent(inout) , allocatable :: array(:)
4279 complex(CKG) , intent(in) :: pattern
4280 end subroutine
4281#endif
4282
4283#if CK1_ENABLED
4284 PURE module subroutine setRemovedDefComDefIns_D1_D0_CK1(array, pattern)
4285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4286 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK1
4287#endif
4288 use pm_kind, only: CKG => CK1
4289 complex(CKG) , intent(inout) , allocatable :: array(:)
4290 complex(CKG) , intent(in) :: pattern
4291 end subroutine
4292#endif
4293
4294 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4295
4296#if RK5_ENABLED
4297 PURE module subroutine setRemovedDefComDefIns_D1_D0_RK5(array, pattern)
4298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4299 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK5
4300#endif
4301 use pm_kind, only: RKG => RK5
4302 real(RKG) , intent(inout) , allocatable :: array(:)
4303 real(RKG) , intent(in) :: pattern
4304 end subroutine
4305#endif
4306
4307#if RK4_ENABLED
4308 PURE module subroutine setRemovedDefComDefIns_D1_D0_RK4(array, pattern)
4309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4310 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK4
4311#endif
4312 use pm_kind, only: RKG => RK4
4313 real(RKG) , intent(inout) , allocatable :: array(:)
4314 real(RKG) , intent(in) :: pattern
4315 end subroutine
4316#endif
4317
4318#if RK3_ENABLED
4319 PURE module subroutine setRemovedDefComDefIns_D1_D0_RK3(array, pattern)
4320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4321 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK3
4322#endif
4323 use pm_kind, only: RKG => RK3
4324 real(RKG) , intent(inout) , allocatable :: array(:)
4325 real(RKG) , intent(in) :: pattern
4326 end subroutine
4327#endif
4328
4329#if RK2_ENABLED
4330 PURE module subroutine setRemovedDefComDefIns_D1_D0_RK2(array, pattern)
4331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4332 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK2
4333#endif
4334 use pm_kind, only: RKG => RK2
4335 real(RKG) , intent(inout) , allocatable :: array(:)
4336 real(RKG) , intent(in) :: pattern
4337 end subroutine
4338#endif
4339
4340#if RK1_ENABLED
4341 PURE module subroutine setRemovedDefComDefIns_D1_D0_RK1(array, pattern)
4342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4343 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK1
4344#endif
4345 use pm_kind, only: RKG => RK1
4346 real(RKG) , intent(inout) , allocatable :: array(:)
4347 real(RKG) , intent(in) :: pattern
4348 end subroutine
4349#endif
4350
4351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4352
4353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4354 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4356
4357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4358
4359#if SK5_ENABLED
4360 module subroutine setRemovedCusComDefIns_D1_D0_SK5(array, pattern, iseq)
4361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4362 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK5
4363#endif
4364 use pm_kind, only: SKG => SK5
4365 character(*,SKG) , intent(inout) , allocatable :: array(:)
4366 character(*,SKG) , intent(in) :: pattern
4367 procedure(logical(LK)) :: iseq
4368 end subroutine
4369#endif
4370
4371#if SK4_ENABLED
4372 module subroutine setRemovedCusComDefIns_D1_D0_SK4(array, pattern, iseq)
4373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4374 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK4
4375#endif
4376 use pm_kind, only: SKG => SK4
4377 character(*,SKG) , intent(inout) , allocatable :: array(:)
4378 character(*,SKG) , intent(in) :: pattern
4379 procedure(logical(LK)) :: iseq
4380 end subroutine
4381#endif
4382
4383#if SK3_ENABLED
4384 module subroutine setRemovedCusComDefIns_D1_D0_SK3(array, pattern, iseq)
4385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4386 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK3
4387#endif
4388 use pm_kind, only: SKG => SK3
4389 character(*,SKG) , intent(inout) , allocatable :: array(:)
4390 character(*,SKG) , intent(in) :: pattern
4391 procedure(logical(LK)) :: iseq
4392 end subroutine
4393#endif
4394
4395#if SK2_ENABLED
4396 module subroutine setRemovedCusComDefIns_D1_D0_SK2(array, pattern, iseq)
4397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4398 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK2
4399#endif
4400 use pm_kind, only: SKG => SK2
4401 character(*,SKG) , intent(inout) , allocatable :: array(:)
4402 character(*,SKG) , intent(in) :: pattern
4403 procedure(logical(LK)) :: iseq
4404 end subroutine
4405#endif
4406
4407#if SK1_ENABLED
4408 module subroutine setRemovedCusComDefIns_D1_D0_SK1(array, pattern, iseq)
4409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4410 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK1
4411#endif
4412 use pm_kind, only: SKG => SK1
4413 character(*,SKG) , intent(inout) , allocatable :: array(:)
4414 character(*,SKG) , intent(in) :: pattern
4415 procedure(logical(LK)) :: iseq
4416 end subroutine
4417#endif
4418
4419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4420
4421#if IK5_ENABLED
4422 module subroutine setRemovedCusComDefIns_D1_D0_IK5(array, pattern, iseq)
4423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4424 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK5
4425#endif
4426 use pm_kind, only: IKG => IK5
4427 integer(IKG) , intent(inout) , allocatable :: array(:)
4428 integer(IKG) , intent(in) :: pattern
4429 procedure(logical(LK)) :: iseq
4430 end subroutine
4431#endif
4432
4433#if IK4_ENABLED
4434 module subroutine setRemovedCusComDefIns_D1_D0_IK4(array, pattern, iseq)
4435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4436 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK4
4437#endif
4438 use pm_kind, only: IKG => IK4
4439 integer(IKG) , intent(inout) , allocatable :: array(:)
4440 integer(IKG) , intent(in) :: pattern
4441 procedure(logical(LK)) :: iseq
4442 end subroutine
4443#endif
4444
4445#if IK3_ENABLED
4446 module subroutine setRemovedCusComDefIns_D1_D0_IK3(array, pattern, iseq)
4447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4448 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK3
4449#endif
4450 use pm_kind, only: IKG => IK3
4451 integer(IKG) , intent(inout) , allocatable :: array(:)
4452 integer(IKG) , intent(in) :: pattern
4453 procedure(logical(LK)) :: iseq
4454 end subroutine
4455#endif
4456
4457#if IK2_ENABLED
4458 module subroutine setRemovedCusComDefIns_D1_D0_IK2(array, pattern, iseq)
4459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4460 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK2
4461#endif
4462 use pm_kind, only: IKG => IK2
4463 integer(IKG) , intent(inout) , allocatable :: array(:)
4464 integer(IKG) , intent(in) :: pattern
4465 procedure(logical(LK)) :: iseq
4466 end subroutine
4467#endif
4468
4469#if IK1_ENABLED
4470 module subroutine setRemovedCusComDefIns_D1_D0_IK1(array, pattern, iseq)
4471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4472 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK1
4473#endif
4474 use pm_kind, only: IKG => IK1
4475 integer(IKG) , intent(inout) , allocatable :: array(:)
4476 integer(IKG) , intent(in) :: pattern
4477 procedure(logical(LK)) :: iseq
4478 end subroutine
4479#endif
4480
4481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4482
4483#if LK5_ENABLED
4484 module subroutine setRemovedCusComDefIns_D1_D0_LK5(array, pattern, iseq)
4485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4486 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK5
4487#endif
4488 use pm_kind, only: LKG => LK5
4489 logical(LKG) , intent(inout) , allocatable :: array(:)
4490 logical(LKG) , intent(in) :: pattern
4491 procedure(logical(LK)) :: iseq
4492 end subroutine
4493#endif
4494
4495#if LK4_ENABLED
4496 module subroutine setRemovedCusComDefIns_D1_D0_LK4(array, pattern, iseq)
4497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4498 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK4
4499#endif
4500 use pm_kind, only: LKG => LK4
4501 logical(LKG) , intent(inout) , allocatable :: array(:)
4502 logical(LKG) , intent(in) :: pattern
4503 procedure(logical(LK)) :: iseq
4504 end subroutine
4505#endif
4506
4507#if LK3_ENABLED
4508 module subroutine setRemovedCusComDefIns_D1_D0_LK3(array, pattern, iseq)
4509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4510 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK3
4511#endif
4512 use pm_kind, only: LKG => LK3
4513 logical(LKG) , intent(inout) , allocatable :: array(:)
4514 logical(LKG) , intent(in) :: pattern
4515 procedure(logical(LK)) :: iseq
4516 end subroutine
4517#endif
4518
4519#if LK2_ENABLED
4520 module subroutine setRemovedCusComDefIns_D1_D0_LK2(array, pattern, iseq)
4521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4522 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK2
4523#endif
4524 use pm_kind, only: LKG => LK2
4525 logical(LKG) , intent(inout) , allocatable :: array(:)
4526 logical(LKG) , intent(in) :: pattern
4527 procedure(logical(LK)) :: iseq
4528 end subroutine
4529#endif
4530
4531#if LK1_ENABLED
4532 module subroutine setRemovedCusComDefIns_D1_D0_LK1(array, pattern, iseq)
4533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4534 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK1
4535#endif
4536 use pm_kind, only: LKG => LK1
4537 logical(LKG) , intent(inout) , allocatable :: array(:)
4538 logical(LKG) , intent(in) :: pattern
4539 procedure(logical(LK)) :: iseq
4540 end subroutine
4541#endif
4542
4543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4544
4545#if CK5_ENABLED
4546 module subroutine setRemovedCusComDefIns_D1_D0_CK5(array, pattern, iseq)
4547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4548 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK5
4549#endif
4550 use pm_kind, only: CKG => CK5
4551 complex(CKG) , intent(inout) , allocatable :: array(:)
4552 complex(CKG) , intent(in) :: pattern
4553 procedure(logical(LK)) :: iseq
4554 end subroutine
4555#endif
4556
4557#if CK4_ENABLED
4558 module subroutine setRemovedCusComDefIns_D1_D0_CK4(array, pattern, iseq)
4559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4560 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK4
4561#endif
4562 use pm_kind, only: CKG => CK4
4563 complex(CKG) , intent(inout) , allocatable :: array(:)
4564 complex(CKG) , intent(in) :: pattern
4565 procedure(logical(LK)) :: iseq
4566 end subroutine
4567#endif
4568
4569#if CK3_ENABLED
4570 module subroutine setRemovedCusComDefIns_D1_D0_CK3(array, pattern, iseq)
4571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4572 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK3
4573#endif
4574 use pm_kind, only: CKG => CK3
4575 complex(CKG) , intent(inout) , allocatable :: array(:)
4576 complex(CKG) , intent(in) :: pattern
4577 procedure(logical(LK)) :: iseq
4578 end subroutine
4579#endif
4580
4581#if CK2_ENABLED
4582 module subroutine setRemovedCusComDefIns_D1_D0_CK2(array, pattern, iseq)
4583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4584 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK2
4585#endif
4586 use pm_kind, only: CKG => CK2
4587 complex(CKG) , intent(inout) , allocatable :: array(:)
4588 complex(CKG) , intent(in) :: pattern
4589 procedure(logical(LK)) :: iseq
4590 end subroutine
4591#endif
4592
4593#if CK1_ENABLED
4594 module subroutine setRemovedCusComDefIns_D1_D0_CK1(array, pattern, iseq)
4595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4596 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK1
4597#endif
4598 use pm_kind, only: CKG => CK1
4599 complex(CKG) , intent(inout) , allocatable :: array(:)
4600 complex(CKG) , intent(in) :: pattern
4601 procedure(logical(LK)) :: iseq
4602 end subroutine
4603#endif
4604
4605 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4606
4607#if RK5_ENABLED
4608 module subroutine setRemovedCusComDefIns_D1_D0_RK5(array, pattern, iseq)
4609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4610 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK5
4611#endif
4612 use pm_kind, only: RKG => RK5
4613 real(RKG) , intent(inout) , allocatable :: array(:)
4614 real(RKG) , intent(in) :: pattern
4615 procedure(logical(LK)) :: iseq
4616 end subroutine
4617#endif
4618
4619#if RK4_ENABLED
4620 module subroutine setRemovedCusComDefIns_D1_D0_RK4(array, pattern, iseq)
4621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4622 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK4
4623#endif
4624 use pm_kind, only: RKG => RK4
4625 real(RKG) , intent(inout) , allocatable :: array(:)
4626 real(RKG) , intent(in) :: pattern
4627 procedure(logical(LK)) :: iseq
4628 end subroutine
4629#endif
4630
4631#if RK3_ENABLED
4632 module subroutine setRemovedCusComDefIns_D1_D0_RK3(array, pattern, iseq)
4633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4634 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK3
4635#endif
4636 use pm_kind, only: RKG => RK3
4637 real(RKG) , intent(inout) , allocatable :: array(:)
4638 real(RKG) , intent(in) :: pattern
4639 procedure(logical(LK)) :: iseq
4640 end subroutine
4641#endif
4642
4643#if RK2_ENABLED
4644 module subroutine setRemovedCusComDefIns_D1_D0_RK2(array, pattern, iseq)
4645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4646 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK2
4647#endif
4648 use pm_kind, only: RKG => RK2
4649 real(RKG) , intent(inout) , allocatable :: array(:)
4650 real(RKG) , intent(in) :: pattern
4651 procedure(logical(LK)) :: iseq
4652 end subroutine
4653#endif
4654
4655#if RK1_ENABLED
4656 module subroutine setRemovedCusComDefIns_D1_D0_RK1(array, pattern, iseq)
4657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4658 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK1
4659#endif
4660 use pm_kind, only: RKG => RK1
4661 real(RKG) , intent(inout) , allocatable :: array(:)
4662 real(RKG) , intent(in) :: pattern
4663 procedure(logical(LK)) :: iseq
4664 end subroutine
4665#endif
4666
4667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4668
4669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4670 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4672
4673 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4674
4675#if SK5_ENABLED
4676 PURE module subroutine setRemovedDefComCusIns_D1_D0_SK5(array, pattern, instance, sorted, unique)
4677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4678 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK5
4679#endif
4680 use pm_kind, only: SKG => SK5
4681 character(*,SKG) , intent(inout) , allocatable :: array(:)
4682 character(*,SKG) , intent(in) :: pattern
4683 integer(IK) , intent(in) , contiguous :: instance(:)
4684 logical(LK) , intent(in) , optional :: sorted
4685 logical(LK) , intent(in) , optional :: unique
4686 end subroutine
4687#endif
4688
4689#if SK4_ENABLED
4690 PURE module subroutine setRemovedDefComCusIns_D1_D0_SK4(array, pattern, instance, sorted, unique)
4691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4692 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK4
4693#endif
4694 use pm_kind, only: SKG => SK4
4695 character(*,SKG) , intent(inout) , allocatable :: array(:)
4696 character(*,SKG) , intent(in) :: pattern
4697 integer(IK) , intent(in) , contiguous :: instance(:)
4698 logical(LK) , intent(in) , optional :: sorted
4699 logical(LK) , intent(in) , optional :: unique
4700 end subroutine
4701#endif
4702
4703#if SK3_ENABLED
4704 PURE module subroutine setRemovedDefComCusIns_D1_D0_SK3(array, pattern, instance, sorted, unique)
4705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4706 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK3
4707#endif
4708 use pm_kind, only: SKG => SK3
4709 character(*,SKG) , intent(inout) , allocatable :: array(:)
4710 character(*,SKG) , intent(in) :: pattern
4711 integer(IK) , intent(in) , contiguous :: instance(:)
4712 logical(LK) , intent(in) , optional :: sorted
4713 logical(LK) , intent(in) , optional :: unique
4714 end subroutine
4715#endif
4716
4717#if SK2_ENABLED
4718 PURE module subroutine setRemovedDefComCusIns_D1_D0_SK2(array, pattern, instance, sorted, unique)
4719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4720 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK2
4721#endif
4722 use pm_kind, only: SKG => SK2
4723 character(*,SKG) , intent(inout) , allocatable :: array(:)
4724 character(*,SKG) , intent(in) :: pattern
4725 integer(IK) , intent(in) , contiguous :: instance(:)
4726 logical(LK) , intent(in) , optional :: sorted
4727 logical(LK) , intent(in) , optional :: unique
4728 end subroutine
4729#endif
4730
4731#if SK1_ENABLED
4732 PURE module subroutine setRemovedDefComCusIns_D1_D0_SK1(array, pattern, instance, sorted, unique)
4733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4734 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK1
4735#endif
4736 use pm_kind, only: SKG => SK1
4737 character(*,SKG) , intent(inout) , allocatable :: array(:)
4738 character(*,SKG) , intent(in) :: pattern
4739 integer(IK) , intent(in) , contiguous :: instance(:)
4740 logical(LK) , intent(in) , optional :: sorted
4741 logical(LK) , intent(in) , optional :: unique
4742 end subroutine
4743#endif
4744
4745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4746
4747#if IK5_ENABLED
4748 PURE module subroutine setRemovedDefComCusIns_D1_D0_IK5(array, pattern, instance, sorted, unique)
4749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4750 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK5
4751#endif
4752 use pm_kind, only: IKG => IK5
4753 integer(IKG) , intent(inout) , allocatable :: array(:)
4754 integer(IKG) , intent(in) :: pattern
4755 integer(IK) , intent(in) , contiguous :: instance(:)
4756 logical(LK) , intent(in) , optional :: sorted
4757 logical(LK) , intent(in) , optional :: unique
4758 end subroutine
4759#endif
4760
4761#if IK4_ENABLED
4762 PURE module subroutine setRemovedDefComCusIns_D1_D0_IK4(array, pattern, instance, sorted, unique)
4763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4764 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK4
4765#endif
4766 use pm_kind, only: IKG => IK4
4767 integer(IKG) , intent(inout) , allocatable :: array(:)
4768 integer(IKG) , intent(in) :: pattern
4769 integer(IK) , intent(in) , contiguous :: instance(:)
4770 logical(LK) , intent(in) , optional :: sorted
4771 logical(LK) , intent(in) , optional :: unique
4772 end subroutine
4773#endif
4774
4775#if IK3_ENABLED
4776 PURE module subroutine setRemovedDefComCusIns_D1_D0_IK3(array, pattern, instance, sorted, unique)
4777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4778 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK3
4779#endif
4780 use pm_kind, only: IKG => IK3
4781 integer(IKG) , intent(inout) , allocatable :: array(:)
4782 integer(IKG) , intent(in) :: pattern
4783 integer(IK) , intent(in) , contiguous :: instance(:)
4784 logical(LK) , intent(in) , optional :: sorted
4785 logical(LK) , intent(in) , optional :: unique
4786 end subroutine
4787#endif
4788
4789#if IK2_ENABLED
4790 PURE module subroutine setRemovedDefComCusIns_D1_D0_IK2(array, pattern, instance, sorted, unique)
4791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4792 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK2
4793#endif
4794 use pm_kind, only: IKG => IK2
4795 integer(IKG) , intent(inout) , allocatable :: array(:)
4796 integer(IKG) , intent(in) :: pattern
4797 integer(IK) , intent(in) , contiguous :: instance(:)
4798 logical(LK) , intent(in) , optional :: sorted
4799 logical(LK) , intent(in) , optional :: unique
4800 end subroutine
4801#endif
4802
4803#if IK1_ENABLED
4804 PURE module subroutine setRemovedDefComCusIns_D1_D0_IK1(array, pattern, instance, sorted, unique)
4805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4806 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK1
4807#endif
4808 use pm_kind, only: IKG => IK1
4809 integer(IKG) , intent(inout) , allocatable :: array(:)
4810 integer(IKG) , intent(in) :: pattern
4811 integer(IK) , intent(in) , contiguous :: instance(:)
4812 logical(LK) , intent(in) , optional :: sorted
4813 logical(LK) , intent(in) , optional :: unique
4814 end subroutine
4815#endif
4816
4817 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4818
4819#if LK5_ENABLED
4820 PURE module subroutine setRemovedDefComCusIns_D1_D0_LK5(array, pattern, instance, sorted, unique)
4821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4822 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK5
4823#endif
4824 use pm_kind, only: LKG => LK5
4825 logical(LKG) , intent(inout) , allocatable :: array(:)
4826 logical(LKG) , intent(in) :: pattern
4827 integer(IK) , intent(in) , contiguous :: instance(:)
4828 logical(LK) , intent(in) , optional :: sorted
4829 logical(LK) , intent(in) , optional :: unique
4830 end subroutine
4831#endif
4832
4833#if LK4_ENABLED
4834 PURE module subroutine setRemovedDefComCusIns_D1_D0_LK4(array, pattern, instance, sorted, unique)
4835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4836 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK4
4837#endif
4838 use pm_kind, only: LKG => LK4
4839 logical(LKG) , intent(inout) , allocatable :: array(:)
4840 logical(LKG) , intent(in) :: pattern
4841 integer(IK) , intent(in) , contiguous :: instance(:)
4842 logical(LK) , intent(in) , optional :: sorted
4843 logical(LK) , intent(in) , optional :: unique
4844 end subroutine
4845#endif
4846
4847#if LK3_ENABLED
4848 PURE module subroutine setRemovedDefComCusIns_D1_D0_LK3(array, pattern, instance, sorted, unique)
4849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4850 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK3
4851#endif
4852 use pm_kind, only: LKG => LK3
4853 logical(LKG) , intent(inout) , allocatable :: array(:)
4854 logical(LKG) , intent(in) :: pattern
4855 integer(IK) , intent(in) , contiguous :: instance(:)
4856 logical(LK) , intent(in) , optional :: sorted
4857 logical(LK) , intent(in) , optional :: unique
4858 end subroutine
4859#endif
4860
4861#if LK2_ENABLED
4862 PURE module subroutine setRemovedDefComCusIns_D1_D0_LK2(array, pattern, instance, sorted, unique)
4863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4864 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK2
4865#endif
4866 use pm_kind, only: LKG => LK2
4867 logical(LKG) , intent(inout) , allocatable :: array(:)
4868 logical(LKG) , intent(in) :: pattern
4869 integer(IK) , intent(in) , contiguous :: instance(:)
4870 logical(LK) , intent(in) , optional :: sorted
4871 logical(LK) , intent(in) , optional :: unique
4872 end subroutine
4873#endif
4874
4875#if LK1_ENABLED
4876 PURE module subroutine setRemovedDefComCusIns_D1_D0_LK1(array, pattern, instance, sorted, unique)
4877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4878 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK1
4879#endif
4880 use pm_kind, only: LKG => LK1
4881 logical(LKG) , intent(inout) , allocatable :: array(:)
4882 logical(LKG) , intent(in) :: pattern
4883 integer(IK) , intent(in) , contiguous :: instance(:)
4884 logical(LK) , intent(in) , optional :: sorted
4885 logical(LK) , intent(in) , optional :: unique
4886 end subroutine
4887#endif
4888
4889 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4890
4891#if CK5_ENABLED
4892 PURE module subroutine setRemovedDefComCusIns_D1_D0_CK5(array, pattern, instance, sorted, unique)
4893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4894 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK5
4895#endif
4896 use pm_kind, only: CKG => CK5
4897 complex(CKG) , intent(inout) , allocatable :: array(:)
4898 complex(CKG) , intent(in) :: pattern
4899 integer(IK) , intent(in) , contiguous :: instance(:)
4900 logical(LK) , intent(in) , optional :: sorted
4901 logical(LK) , intent(in) , optional :: unique
4902 end subroutine
4903#endif
4904
4905#if CK4_ENABLED
4906 PURE module subroutine setRemovedDefComCusIns_D1_D0_CK4(array, pattern, instance, sorted, unique)
4907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4908 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK4
4909#endif
4910 use pm_kind, only: CKG => CK4
4911 complex(CKG) , intent(inout) , allocatable :: array(:)
4912 complex(CKG) , intent(in) :: pattern
4913 integer(IK) , intent(in) , contiguous :: instance(:)
4914 logical(LK) , intent(in) , optional :: sorted
4915 logical(LK) , intent(in) , optional :: unique
4916 end subroutine
4917#endif
4918
4919#if CK3_ENABLED
4920 PURE module subroutine setRemovedDefComCusIns_D1_D0_CK3(array, pattern, instance, sorted, unique)
4921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4922 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK3
4923#endif
4924 use pm_kind, only: CKG => CK3
4925 complex(CKG) , intent(inout) , allocatable :: array(:)
4926 complex(CKG) , intent(in) :: pattern
4927 integer(IK) , intent(in) , contiguous :: instance(:)
4928 logical(LK) , intent(in) , optional :: sorted
4929 logical(LK) , intent(in) , optional :: unique
4930 end subroutine
4931#endif
4932
4933#if CK2_ENABLED
4934 PURE module subroutine setRemovedDefComCusIns_D1_D0_CK2(array, pattern, instance, sorted, unique)
4935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4936 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK2
4937#endif
4938 use pm_kind, only: CKG => CK2
4939 complex(CKG) , intent(inout) , allocatable :: array(:)
4940 complex(CKG) , intent(in) :: pattern
4941 integer(IK) , intent(in) , contiguous :: instance(:)
4942 logical(LK) , intent(in) , optional :: sorted
4943 logical(LK) , intent(in) , optional :: unique
4944 end subroutine
4945#endif
4946
4947#if CK1_ENABLED
4948 PURE module subroutine setRemovedDefComCusIns_D1_D0_CK1(array, pattern, instance, sorted, unique)
4949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4950 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK1
4951#endif
4952 use pm_kind, only: CKG => CK1
4953 complex(CKG) , intent(inout) , allocatable :: array(:)
4954 complex(CKG) , intent(in) :: pattern
4955 integer(IK) , intent(in) , contiguous :: instance(:)
4956 logical(LK) , intent(in) , optional :: sorted
4957 logical(LK) , intent(in) , optional :: unique
4958 end subroutine
4959#endif
4960
4961 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4962
4963#if RK5_ENABLED
4964 PURE module subroutine setRemovedDefComCusIns_D1_D0_RK5(array, pattern, instance, sorted, unique)
4965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4966 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK5
4967#endif
4968 use pm_kind, only: RKG => RK5
4969 real(RKG) , intent(inout) , allocatable :: array(:)
4970 real(RKG) , intent(in) :: pattern
4971 integer(IK) , intent(in) , contiguous :: instance(:)
4972 logical(LK) , intent(in) , optional :: sorted
4973 logical(LK) , intent(in) , optional :: unique
4974 end subroutine
4975#endif
4976
4977#if RK4_ENABLED
4978 PURE module subroutine setRemovedDefComCusIns_D1_D0_RK4(array, pattern, instance, sorted, unique)
4979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4980 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK4
4981#endif
4982 use pm_kind, only: RKG => RK4
4983 real(RKG) , intent(inout) , allocatable :: array(:)
4984 real(RKG) , intent(in) :: pattern
4985 integer(IK) , intent(in) , contiguous :: instance(:)
4986 logical(LK) , intent(in) , optional :: sorted
4987 logical(LK) , intent(in) , optional :: unique
4988 end subroutine
4989#endif
4990
4991#if RK3_ENABLED
4992 PURE module subroutine setRemovedDefComCusIns_D1_D0_RK3(array, pattern, instance, sorted, unique)
4993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4994 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK3
4995#endif
4996 use pm_kind, only: RKG => RK3
4997 real(RKG) , intent(inout) , allocatable :: array(:)
4998 real(RKG) , intent(in) :: pattern
4999 integer(IK) , intent(in) , contiguous :: instance(:)
5000 logical(LK) , intent(in) , optional :: sorted
5001 logical(LK) , intent(in) , optional :: unique
5002 end subroutine
5003#endif
5004
5005#if RK2_ENABLED
5006 PURE module subroutine setRemovedDefComCusIns_D1_D0_RK2(array, pattern, instance, sorted, unique)
5007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5008 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK2
5009#endif
5010 use pm_kind, only: RKG => RK2
5011 real(RKG) , intent(inout) , allocatable :: array(:)
5012 real(RKG) , intent(in) :: pattern
5013 integer(IK) , intent(in) , contiguous :: instance(:)
5014 logical(LK) , intent(in) , optional :: sorted
5015 logical(LK) , intent(in) , option