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
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) , optional :: unique
5016 end subroutine
5017#endif
5018
5019#if RK1_ENABLED
5020 PURE module subroutine setRemovedDefComCusIns_D1_D0_RK1(array, pattern, instance, sorted, unique)
5021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5022 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK1
5023#endif
5024 use pm_kind, only: RKG => RK1
5025 real(RKG) , intent(inout) , allocatable :: array(:)
5026 real(RKG) , intent(in) :: pattern
5027 integer(IK) , intent(in) , contiguous :: instance(:)
5028 logical(LK) , intent(in) , optional :: sorted
5029 logical(LK) , intent(in) , optional :: unique
5030 end subroutine
5031#endif
5032
5033 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5034
5035 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5036 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5037 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5038
5039 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5040
5041#if SK5_ENABLED
5042 module subroutine setRemovedCusComCusIns_D1_D0_SK5(array, pattern, iseq, instance, sorted, unique)
5043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5044 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK5
5045#endif
5046 use pm_kind, only: SKG => SK5
5047 character(*,SKG) , intent(inout) , allocatable :: array(:)
5048 character(*,SKG) , intent(in) :: pattern
5049 procedure(logical(LK)) :: iseq
5050 integer(IK) , intent(in) , contiguous :: instance(:)
5051 logical(LK) , intent(in) , optional :: sorted
5052 logical(LK) , intent(in) , optional :: unique
5053 end subroutine
5054#endif
5055
5056#if SK4_ENABLED
5057 module subroutine setRemovedCusComCusIns_D1_D0_SK4(array, pattern, iseq, instance, sorted, unique)
5058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5059 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK4
5060#endif
5061 use pm_kind, only: SKG => SK4
5062 character(*,SKG) , intent(inout) , allocatable :: array(:)
5063 character(*,SKG) , intent(in) :: pattern
5064 procedure(logical(LK)) :: iseq
5065 integer(IK) , intent(in) , contiguous :: instance(:)
5066 logical(LK) , intent(in) , optional :: sorted
5067 logical(LK) , intent(in) , optional :: unique
5068 end subroutine
5069#endif
5070
5071#if SK3_ENABLED
5072 module subroutine setRemovedCusComCusIns_D1_D0_SK3(array, pattern, iseq, instance, sorted, unique)
5073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5074 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK3
5075#endif
5076 use pm_kind, only: SKG => SK3
5077 character(*,SKG) , intent(inout) , allocatable :: array(:)
5078 character(*,SKG) , intent(in) :: pattern
5079 procedure(logical(LK)) :: iseq
5080 integer(IK) , intent(in) , contiguous :: instance(:)
5081 logical(LK) , intent(in) , optional :: sorted
5082 logical(LK) , intent(in) , optional :: unique
5083 end subroutine
5084#endif
5085
5086#if SK2_ENABLED
5087 module subroutine setRemovedCusComCusIns_D1_D0_SK2(array, pattern, iseq, instance, sorted, unique)
5088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5089 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK2
5090#endif
5091 use pm_kind, only: SKG => SK2
5092 character(*,SKG) , intent(inout) , allocatable :: array(:)
5093 character(*,SKG) , intent(in) :: pattern
5094 procedure(logical(LK)) :: iseq
5095 integer(IK) , intent(in) , contiguous :: instance(:)
5096 logical(LK) , intent(in) , optional :: sorted
5097 logical(LK) , intent(in) , optional :: unique
5098 end subroutine
5099#endif
5100
5101#if SK1_ENABLED
5102 module subroutine setRemovedCusComCusIns_D1_D0_SK1(array, pattern, iseq, instance, sorted, unique)
5103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5104 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK1
5105#endif
5106 use pm_kind, only: SKG => SK1
5107 character(*,SKG) , intent(inout) , allocatable :: array(:)
5108 character(*,SKG) , intent(in) :: pattern
5109 procedure(logical(LK)) :: iseq
5110 integer(IK) , intent(in) , contiguous :: instance(:)
5111 logical(LK) , intent(in) , optional :: sorted
5112 logical(LK) , intent(in) , optional :: unique
5113 end subroutine
5114#endif
5115
5116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5117
5118#if IK5_ENABLED
5119 module subroutine setRemovedCusComCusIns_D1_D0_IK5(array, pattern, iseq, instance, sorted, unique)
5120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5121 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK5
5122#endif
5123 use pm_kind, only: IKG => IK5
5124 integer(IKG) , intent(inout) , allocatable :: array(:)
5125 integer(IKG) , intent(in) :: pattern
5126 procedure(logical(LK)) :: iseq
5127 integer(IK) , intent(in) , contiguous :: instance(:)
5128 logical(LK) , intent(in) , optional :: sorted
5129 logical(LK) , intent(in) , optional :: unique
5130 end subroutine
5131#endif
5132
5133#if IK4_ENABLED
5134 module subroutine setRemovedCusComCusIns_D1_D0_IK4(array, pattern, iseq, instance, sorted, unique)
5135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5136 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK4
5137#endif
5138 use pm_kind, only: IKG => IK4
5139 integer(IKG) , intent(inout) , allocatable :: array(:)
5140 integer(IKG) , intent(in) :: pattern
5141 procedure(logical(LK)) :: iseq
5142 integer(IK) , intent(in) , contiguous :: instance(:)
5143 logical(LK) , intent(in) , optional :: sorted
5144 logical(LK) , intent(in) , optional :: unique
5145 end subroutine
5146#endif
5147
5148#if IK3_ENABLED
5149 module subroutine setRemovedCusComCusIns_D1_D0_IK3(array, pattern, iseq, instance, sorted, unique)
5150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5151 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK3
5152#endif
5153 use pm_kind, only: IKG => IK3
5154 integer(IKG) , intent(inout) , allocatable :: array(:)
5155 integer(IKG) , intent(in) :: pattern
5156 procedure(logical(LK)) :: iseq
5157 integer(IK) , intent(in) , contiguous :: instance(:)
5158 logical(LK) , intent(in) , optional :: sorted
5159 logical(LK) , intent(in) , optional :: unique
5160 end subroutine
5161#endif
5162
5163#if IK2_ENABLED
5164 module subroutine setRemovedCusComCusIns_D1_D0_IK2(array, pattern, iseq, instance, sorted, unique)
5165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5166 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK2
5167#endif
5168 use pm_kind, only: IKG => IK2
5169 integer(IKG) , intent(inout) , allocatable :: array(:)
5170 integer(IKG) , intent(in) :: pattern
5171 procedure(logical(LK)) :: iseq
5172 integer(IK) , intent(in) , contiguous :: instance(:)
5173 logical(LK) , intent(in) , optional :: sorted
5174 logical(LK) , intent(in) , optional :: unique
5175 end subroutine
5176#endif
5177
5178#if IK1_ENABLED
5179 module subroutine setRemovedCusComCusIns_D1_D0_IK1(array, pattern, iseq, instance, sorted, unique)
5180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5181 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK1
5182#endif
5183 use pm_kind, only: IKG => IK1
5184 integer(IKG) , intent(inout) , allocatable :: array(:)
5185 integer(IKG) , intent(in) :: pattern
5186 procedure(logical(LK)) :: iseq
5187 integer(IK) , intent(in) , contiguous :: instance(:)
5188 logical(LK) , intent(in) , optional :: sorted
5189 logical(LK) , intent(in) , optional :: unique
5190 end subroutine
5191#endif
5192
5193 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5194
5195#if LK5_ENABLED
5196 module subroutine setRemovedCusComCusIns_D1_D0_LK5(array, pattern, iseq, instance, sorted, unique)
5197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5198 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK5
5199#endif
5200 use pm_kind, only: LKG => LK5
5201 logical(LKG) , intent(inout) , allocatable :: array(:)
5202 logical(LKG) , intent(in) :: pattern
5203 procedure(logical(LK)) :: iseq
5204 integer(IK) , intent(in) , contiguous :: instance(:)
5205 logical(LK) , intent(in) , optional :: sorted
5206 logical(LK) , intent(in) , optional :: unique
5207 end subroutine
5208#endif
5209
5210#if LK4_ENABLED
5211 module subroutine setRemovedCusComCusIns_D1_D0_LK4(array, pattern, iseq, instance, sorted, unique)
5212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5213 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK4
5214#endif
5215 use pm_kind, only: LKG => LK4
5216 logical(LKG) , intent(inout) , allocatable :: array(:)
5217 logical(LKG) , intent(in) :: pattern
5218 procedure(logical(LK)) :: iseq
5219 integer(IK) , intent(in) , contiguous :: instance(:)
5220 logical(LK) , intent(in) , optional :: sorted
5221 logical(LK) , intent(in) , optional :: unique
5222 end subroutine
5223#endif
5224
5225#if LK3_ENABLED
5226 module subroutine setRemovedCusComCusIns_D1_D0_LK3(array, pattern, iseq, instance, sorted, unique)
5227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5228 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK3
5229#endif
5230 use pm_kind, only: LKG => LK3
5231 logical(LKG) , intent(inout) , allocatable :: array(:)
5232 logical(LKG) , intent(in) :: pattern
5233 procedure(logical(LK)) :: iseq
5234 integer(IK) , intent(in) , contiguous :: instance(:)
5235 logical(LK) , intent(in) , optional :: sorted
5236 logical(LK) , intent(in) , optional :: unique
5237 end subroutine
5238#endif
5239
5240#if LK2_ENABLED
5241 module subroutine setRemovedCusComCusIns_D1_D0_LK2(array, pattern, iseq, instance, sorted, unique)
5242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5243 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK2
5244#endif
5245 use pm_kind, only: LKG => LK2
5246 logical(LKG) , intent(inout) , allocatable :: array(:)
5247 logical(LKG) , intent(in) :: pattern
5248 procedure(logical(LK)) :: iseq
5249 integer(IK) , intent(in) , contiguous :: instance(:)
5250 logical(LK) , intent(in) , optional :: sorted
5251 logical(LK) , intent(in) , optional :: unique
5252 end subroutine
5253#endif
5254
5255#if LK1_ENABLED
5256 module subroutine setRemovedCusComCusIns_D1_D0_LK1(array, pattern, iseq, instance, sorted, unique)
5257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5258 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK1
5259#endif
5260 use pm_kind, only: LKG => LK1
5261 logical(LKG) , intent(inout) , allocatable :: array(:)
5262 logical(LKG) , intent(in) :: pattern
5263 procedure(logical(LK)) :: iseq
5264 integer(IK) , intent(in) , contiguous :: instance(:)
5265 logical(LK) , intent(in) , optional :: sorted
5266 logical(LK) , intent(in) , optional :: unique
5267 end subroutine
5268#endif
5269
5270 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5271
5272#if CK5_ENABLED
5273 module subroutine setRemovedCusComCusIns_D1_D0_CK5(array, pattern, iseq, instance, sorted, unique)
5274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5275 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK5
5276#endif
5277 use pm_kind, only: CKG => CK5
5278 complex(CKG) , intent(inout) , allocatable :: array(:)
5279 complex(CKG) , intent(in) :: pattern
5280 procedure(logical(LK)) :: iseq
5281 integer(IK) , intent(in) , contiguous :: instance(:)
5282 logical(LK) , intent(in) , optional :: sorted
5283 logical(LK) , intent(in) , optional :: unique
5284 end subroutine
5285#endif
5286
5287#if CK4_ENABLED
5288 module subroutine setRemovedCusComCusIns_D1_D0_CK4(array, pattern, iseq, instance, sorted, unique)
5289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5290 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK4
5291#endif
5292 use pm_kind, only: CKG => CK4
5293 complex(CKG) , intent(inout) , allocatable :: array(:)
5294 complex(CKG) , intent(in) :: pattern
5295 procedure(logical(LK)) :: iseq
5296 integer(IK) , intent(in) , contiguous :: instance(:)
5297 logical(LK) , intent(in) , optional :: sorted
5298 logical(LK) , intent(in) , optional :: unique
5299 end subroutine
5300#endif
5301
5302#if CK3_ENABLED
5303 module subroutine setRemovedCusComCusIns_D1_D0_CK3(array, pattern, iseq, instance, sorted, unique)
5304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5305 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK3
5306#endif
5307 use pm_kind, only: CKG => CK3
5308 complex(CKG) , intent(inout) , allocatable :: array(:)
5309 complex(CKG) , intent(in) :: pattern
5310 procedure(logical(LK)) :: iseq
5311 integer(IK) , intent(in) , contiguous :: instance(:)
5312 logical(LK) , intent(in) , optional :: sorted
5313 logical(LK) , intent(in) , optional :: unique
5314 end subroutine
5315#endif
5316
5317#if CK2_ENABLED
5318 module subroutine setRemovedCusComCusIns_D1_D0_CK2(array, pattern, iseq, instance, sorted, unique)
5319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5320 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK2
5321#endif
5322 use pm_kind, only: CKG => CK2
5323 complex(CKG) , intent(inout) , allocatable :: array(:)
5324 complex(CKG) , intent(in) :: pattern
5325 procedure(logical(LK)) :: iseq
5326 integer(IK) , intent(in) , contiguous :: instance(:)
5327 logical(LK) , intent(in) , optional :: sorted
5328 logical(LK) , intent(in) , optional :: unique
5329 end subroutine
5330#endif
5331
5332#if CK1_ENABLED
5333 module subroutine setRemovedCusComCusIns_D1_D0_CK1(array, pattern, iseq, instance, sorted, unique)
5334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5335 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK1
5336#endif
5337 use pm_kind, only: CKG => CK1
5338 complex(CKG) , intent(inout) , allocatable :: array(:)
5339 complex(CKG) , intent(in) :: pattern
5340 procedure(logical(LK)) :: iseq
5341 integer(IK) , intent(in) , contiguous :: instance(:)
5342 logical(LK) , intent(in) , optional :: sorted
5343 logical(LK) , intent(in) , optional :: unique
5344 end subroutine
5345#endif
5346
5347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5348
5349#if RK5_ENABLED
5350 module subroutine setRemovedCusComCusIns_D1_D0_RK5(array, pattern, iseq, instance, sorted, unique)
5351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5352 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK5
5353#endif
5354 use pm_kind, only: RKG => RK5
5355 real(RKG) , intent(inout) , allocatable :: array(:)
5356 real(RKG) , intent(in) :: pattern
5357 procedure(logical(LK)) :: iseq
5358 integer(IK) , intent(in) , contiguous :: instance(:)
5359 logical(LK) , intent(in) , optional :: sorted
5360 logical(LK) , intent(in) , optional :: unique
5361 end subroutine
5362#endif
5363
5364#if RK4_ENABLED
5365 module subroutine setRemovedCusComCusIns_D1_D0_RK4(array, pattern, iseq, instance, sorted, unique)
5366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5367 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK4
5368#endif
5369 use pm_kind, only: RKG => RK4
5370 real(RKG) , intent(inout) , allocatable :: array(:)
5371 real(RKG) , intent(in) :: pattern
5372 procedure(logical(LK)) :: iseq
5373 integer(IK) , intent(in) , contiguous :: instance(:)
5374 logical(LK) , intent(in) , optional :: sorted
5375 logical(LK) , intent(in) , optional :: unique
5376 end subroutine
5377#endif
5378
5379#if RK3_ENABLED
5380 module subroutine setRemovedCusComCusIns_D1_D0_RK3(array, pattern, iseq, instance, sorted, unique)
5381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5382 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK3
5383#endif
5384 use pm_kind, only: RKG => RK3
5385 real(RKG) , intent(inout) , allocatable :: array(:)
5386 real(RKG) , intent(in) :: pattern
5387 procedure(logical(LK)) :: iseq
5388 integer(IK) , intent(in) , contiguous :: instance(:)
5389 logical(LK) , intent(in) , optional :: sorted
5390 logical(LK) , intent(in) , optional :: unique
5391 end subroutine
5392#endif
5393
5394#if RK2_ENABLED
5395 module subroutine setRemovedCusComCusIns_D1_D0_RK2(array, pattern, iseq, instance, sorted, unique)
5396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5397 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK2
5398#endif
5399 use pm_kind, only: RKG => RK2
5400 real(RKG) , intent(inout) , allocatable :: array(:)
5401 real(RKG) , intent(in) :: pattern
5402 procedure(logical(LK)) :: iseq
5403 integer(IK) , intent(in) , contiguous :: instance(:)
5404 logical(LK) , intent(in) , optional :: sorted
5405 logical(LK) , intent(in) , optional :: unique
5406 end subroutine
5407#endif
5408
5409#if RK1_ENABLED
5410 module subroutine setRemovedCusComCusIns_D1_D0_RK1(array, pattern, iseq, instance, sorted, unique)
5411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5412 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK1
5413#endif
5414 use pm_kind, only: RKG => RK1
5415 real(RKG) , intent(inout) , allocatable :: array(:)
5416 real(RKG) , intent(in) :: pattern
5417 procedure(logical(LK)) :: iseq
5418 integer(IK) , intent(in) , contiguous :: instance(:)
5419 logical(LK) , intent(in) , optional :: sorted
5420 logical(LK) , intent(in) , optional :: unique
5421 end subroutine
5422#endif
5423
5424 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5425
5426 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5429 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5431 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5432 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5433 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5434 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5435
5436 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5437
5438#if SK5_ENABLED
5439 PURE module subroutine setRemovedDefComDefIns_D1_D1_SK5(array, pattern)
5440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5441 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK5
5442#endif
5443 use pm_kind, only: SKG => SK5
5444 character(*,SKG) , intent(inout) , allocatable :: array(:)
5445 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5446 end subroutine
5447#endif
5448
5449#if SK4_ENABLED
5450 PURE module subroutine setRemovedDefComDefIns_D1_D1_SK4(array, pattern)
5451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5452 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK4
5453#endif
5454 use pm_kind, only: SKG => SK4
5455 character(*,SKG) , intent(inout) , allocatable :: array(:)
5456 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5457 end subroutine
5458#endif
5459
5460#if SK3_ENABLED
5461 PURE module subroutine setRemovedDefComDefIns_D1_D1_SK3(array, pattern)
5462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5463 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK3
5464#endif
5465 use pm_kind, only: SKG => SK3
5466 character(*,SKG) , intent(inout) , allocatable :: array(:)
5467 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5468 end subroutine
5469#endif
5470
5471#if SK2_ENABLED
5472 PURE module subroutine setRemovedDefComDefIns_D1_D1_SK2(array, pattern)
5473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5474 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK2
5475#endif
5476 use pm_kind, only: SKG => SK2
5477 character(*,SKG) , intent(inout) , allocatable :: array(:)
5478 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5479 end subroutine
5480#endif
5481
5482#if SK1_ENABLED
5483 PURE module subroutine setRemovedDefComDefIns_D1_D1_SK1(array, pattern)
5484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5485 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK1
5486#endif
5487 use pm_kind, only: SKG => SK1
5488 character(*,SKG) , intent(inout) , allocatable :: array(:)
5489 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5490 end subroutine
5491#endif
5492
5493 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5494
5495#if IK5_ENABLED
5496 PURE module subroutine setRemovedDefComDefIns_D1_D1_IK5(array, pattern)
5497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5498 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK5
5499#endif
5500 use pm_kind, only: IKG => IK5
5501 integer(IKG) , intent(inout) , allocatable :: array(:)
5502 integer(IKG) , intent(in) , contiguous :: pattern(:)
5503 end subroutine
5504#endif
5505
5506#if IK4_ENABLED
5507 PURE module subroutine setRemovedDefComDefIns_D1_D1_IK4(array, pattern)
5508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5509 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK4
5510#endif
5511 use pm_kind, only: IKG => IK4
5512 integer(IKG) , intent(inout) , allocatable :: array(:)
5513 integer(IKG) , intent(in) , contiguous :: pattern(:)
5514 end subroutine
5515#endif
5516
5517#if IK3_ENABLED
5518 PURE module subroutine setRemovedDefComDefIns_D1_D1_IK3(array, pattern)
5519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5520 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK3
5521#endif
5522 use pm_kind, only: IKG => IK3
5523 integer(IKG) , intent(inout) , allocatable :: array(:)
5524 integer(IKG) , intent(in) , contiguous :: pattern(:)
5525 end subroutine
5526#endif
5527
5528#if IK2_ENABLED
5529 PURE module subroutine setRemovedDefComDefIns_D1_D1_IK2(array, pattern)
5530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5531 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK2
5532#endif
5533 use pm_kind, only: IKG => IK2
5534 integer(IKG) , intent(inout) , allocatable :: array(:)
5535 integer(IKG) , intent(in) , contiguous :: pattern(:)
5536 end subroutine
5537#endif
5538
5539#if IK1_ENABLED
5540 PURE module subroutine setRemovedDefComDefIns_D1_D1_IK1(array, pattern)
5541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5542 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK1
5543#endif
5544 use pm_kind, only: IKG => IK1
5545 integer(IKG) , intent(inout) , allocatable :: array(:)
5546 integer(IKG) , intent(in) , contiguous :: pattern(:)
5547 end subroutine
5548#endif
5549
5550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5551
5552#if LK5_ENABLED
5553 PURE module subroutine setRemovedDefComDefIns_D1_D1_LK5(array, pattern)
5554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5555 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK5
5556#endif
5557 use pm_kind, only: LKG => LK5
5558 logical(LKG) , intent(inout) , allocatable :: array(:)
5559 logical(LKG) , intent(in) , contiguous :: pattern(:)
5560 end subroutine
5561#endif
5562
5563#if LK4_ENABLED
5564 PURE module subroutine setRemovedDefComDefIns_D1_D1_LK4(array, pattern)
5565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5566 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK4
5567#endif
5568 use pm_kind, only: LKG => LK4
5569 logical(LKG) , intent(inout) , allocatable :: array(:)
5570 logical(LKG) , intent(in) , contiguous :: pattern(:)
5571 end subroutine
5572#endif
5573
5574#if LK3_ENABLED
5575 PURE module subroutine setRemovedDefComDefIns_D1_D1_LK3(array, pattern)
5576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5577 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK3
5578#endif
5579 use pm_kind, only: LKG => LK3
5580 logical(LKG) , intent(inout) , allocatable :: array(:)
5581 logical(LKG) , intent(in) , contiguous :: pattern(:)
5582 end subroutine
5583#endif
5584
5585#if LK2_ENABLED
5586 PURE module subroutine setRemovedDefComDefIns_D1_D1_LK2(array, pattern)
5587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5588 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK2
5589#endif
5590 use pm_kind, only: LKG => LK2
5591 logical(LKG) , intent(inout) , allocatable :: array(:)
5592 logical(LKG) , intent(in) , contiguous :: pattern(:)
5593 end subroutine
5594#endif
5595
5596#if LK1_ENABLED
5597 PURE module subroutine setRemovedDefComDefIns_D1_D1_LK1(array, pattern)
5598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5599 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK1
5600#endif
5601 use pm_kind, only: LKG => LK1
5602 logical(LKG) , intent(inout) , allocatable :: array(:)
5603 logical(LKG) , intent(in) , contiguous :: pattern(:)
5604 end subroutine
5605#endif
5606
5607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5608
5609#if CK5_ENABLED
5610 PURE module subroutine setRemovedDefComDefIns_D1_D1_CK5(array, pattern)
5611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5612 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK5
5613#endif
5614 use pm_kind, only: CKG => CK5
5615 complex(CKG) , intent(inout) , allocatable :: array(:)
5616 complex(CKG) , intent(in) , contiguous :: pattern(:)
5617 end subroutine
5618#endif
5619
5620#if CK4_ENABLED
5621 PURE module subroutine setRemovedDefComDefIns_D1_D1_CK4(array, pattern)
5622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5623 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK4
5624#endif
5625 use pm_kind, only: CKG => CK4
5626 complex(CKG) , intent(inout) , allocatable :: array(:)
5627 complex(CKG) , intent(in) , contiguous :: pattern(:)
5628 end subroutine
5629#endif
5630
5631#if CK3_ENABLED
5632 PURE module subroutine setRemovedDefComDefIns_D1_D1_CK3(array, pattern)
5633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5634 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK3
5635#endif
5636 use pm_kind, only: CKG => CK3
5637 complex(CKG) , intent(inout) , allocatable :: array(:)
5638 complex(CKG) , intent(in) , contiguous :: pattern(:)
5639 end subroutine
5640#endif
5641
5642#if CK2_ENABLED
5643 PURE module subroutine setRemovedDefComDefIns_D1_D1_CK2(array, pattern)
5644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5645 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK2
5646#endif
5647 use pm_kind, only: CKG => CK2
5648 complex(CKG) , intent(inout) , allocatable :: array(:)
5649 complex(CKG) , intent(in) , contiguous :: pattern(:)
5650 end subroutine
5651#endif
5652
5653#if CK1_ENABLED
5654 PURE module subroutine setRemovedDefComDefIns_D1_D1_CK1(array, pattern)
5655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5656 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK1
5657#endif
5658 use pm_kind, only: CKG => CK1
5659 complex(CKG) , intent(inout) , allocatable :: array(:)
5660 complex(CKG) , intent(in) , contiguous :: pattern(:)
5661 end subroutine
5662#endif
5663
5664 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5665
5666#if RK5_ENABLED
5667 PURE module subroutine setRemovedDefComDefIns_D1_D1_RK5(array, pattern)
5668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5669 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK5
5670#endif
5671 use pm_kind, only: RKG => RK5
5672 real(RKG) , intent(inout) , allocatable :: array(:)
5673 real(RKG) , intent(in) , contiguous :: pattern(:)
5674 end subroutine
5675#endif
5676
5677#if RK4_ENABLED
5678 PURE module subroutine setRemovedDefComDefIns_D1_D1_RK4(array, pattern)
5679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5680 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK4
5681#endif
5682 use pm_kind, only: RKG => RK4
5683 real(RKG) , intent(inout) , allocatable :: array(:)
5684 real(RKG) , intent(in) , contiguous :: pattern(:)
5685 end subroutine
5686#endif
5687
5688#if RK3_ENABLED
5689 PURE module subroutine setRemovedDefComDefIns_D1_D1_RK3(array, pattern)
5690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5691 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK3
5692#endif
5693 use pm_kind, only: RKG => RK3
5694 real(RKG) , intent(inout) , allocatable :: array(:)
5695 real(RKG) , intent(in) , contiguous :: pattern(:)
5696 end subroutine
5697#endif
5698
5699#if RK2_ENABLED
5700 PURE module subroutine setRemovedDefComDefIns_D1_D1_RK2(array, pattern)
5701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5702 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK2
5703#endif
5704 use pm_kind, only: RKG => RK2
5705 real(RKG) , intent(inout) , allocatable :: array(:)
5706 real(RKG) , intent(in) , contiguous :: pattern(:)
5707 end subroutine
5708#endif
5709
5710#if RK1_ENABLED
5711 PURE module subroutine setRemovedDefComDefIns_D1_D1_RK1(array, pattern)
5712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5713 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK1
5714#endif
5715 use pm_kind, only: RKG => RK1
5716 real(RKG) , intent(inout) , allocatable :: array(:)
5717 real(RKG) , intent(in) , contiguous :: pattern(:)
5718 end subroutine
5719#endif
5720
5721 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5722
5723 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5724 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5726
5727 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5728
5729#if SK5_ENABLED
5730 module subroutine setRemovedCusComDefIns_D1_D1_SK5(array, pattern, iseq)
5731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5732 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK5
5733#endif
5734 use pm_kind, only: SKG => SK5
5735 character(*,SKG) , intent(inout) , allocatable :: array(:)
5736 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5737 procedure(logical(LK)) :: iseq
5738 end subroutine
5739#endif
5740
5741#if SK4_ENABLED
5742 module subroutine setRemovedCusComDefIns_D1_D1_SK4(array, pattern, iseq)
5743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5744 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK4
5745#endif
5746 use pm_kind, only: SKG => SK4
5747 character(*,SKG) , intent(inout) , allocatable :: array(:)
5748 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5749 procedure(logical(LK)) :: iseq
5750 end subroutine
5751#endif
5752
5753#if SK3_ENABLED
5754 module subroutine setRemovedCusComDefIns_D1_D1_SK3(array, pattern, iseq)
5755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5756 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK3
5757#endif
5758 use pm_kind, only: SKG => SK3
5759 character(*,SKG) , intent(inout) , allocatable :: array(:)
5760 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5761 procedure(logical(LK)) :: iseq
5762 end subroutine
5763#endif
5764
5765#if SK2_ENABLED
5766 module subroutine setRemovedCusComDefIns_D1_D1_SK2(array, pattern, iseq)
5767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5768 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK2
5769#endif
5770 use pm_kind, only: SKG => SK2
5771 character(*,SKG) , intent(inout) , allocatable :: array(:)
5772 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5773 procedure(logical(LK)) :: iseq
5774 end subroutine
5775#endif
5776
5777#if SK1_ENABLED
5778 module subroutine setRemovedCusComDefIns_D1_D1_SK1(array, pattern, iseq)
5779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5780 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK1
5781#endif
5782 use pm_kind, only: SKG => SK1
5783 character(*,SKG) , intent(inout) , allocatable :: array(:)
5784 character(*,SKG) , intent(in) , contiguous :: pattern(:)
5785 procedure(logical(LK)) :: iseq
5786 end subroutine
5787#endif
5788
5789 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5790
5791#if IK5_ENABLED
5792 module subroutine setRemovedCusComDefIns_D1_D1_IK5(array, pattern, iseq)
5793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5794 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK5
5795#endif
5796 use pm_kind, only: IKG => IK5
5797 integer(IKG) , intent(inout) , allocatable :: array(:)
5798 integer(IKG) , intent(in) , contiguous :: pattern(:)
5799 procedure(logical(LK)) :: iseq
5800 end subroutine
5801#endif
5802
5803#if IK4_ENABLED
5804 module subroutine setRemovedCusComDefIns_D1_D1_IK4(array, pattern, iseq)
5805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5806 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK4
5807#endif
5808 use pm_kind, only: IKG => IK4
5809 integer(IKG) , intent(inout) , allocatable :: array(:)
5810 integer(IKG) , intent(in) , contiguous :: pattern(:)
5811 procedure(logical(LK)) :: iseq
5812 end subroutine
5813#endif
5814
5815#if IK3_ENABLED
5816 module subroutine setRemovedCusComDefIns_D1_D1_IK3(array, pattern, iseq)
5817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5818 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK3
5819#endif
5820 use pm_kind, only: IKG => IK3
5821 integer(IKG) , intent(inout) , allocatable :: array(:)
5822 integer(IKG) , intent(in) , contiguous :: pattern(:)
5823 procedure(logical(LK)) :: iseq
5824 end subroutine
5825#endif
5826
5827#if IK2_ENABLED
5828 module subroutine setRemovedCusComDefIns_D1_D1_IK2(array, pattern, iseq)
5829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5830 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK2
5831#endif
5832 use pm_kind, only: IKG => IK2
5833 integer(IKG) , intent(inout) , allocatable :: array(:)
5834 integer(IKG) , intent(in) , contiguous :: pattern(:)
5835 procedure(logical(LK)) :: iseq
5836 end subroutine
5837#endif
5838
5839#if IK1_ENABLED
5840 module subroutine setRemovedCusComDefIns_D1_D1_IK1(array, pattern, iseq)
5841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5842 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK1
5843#endif
5844 use pm_kind, only: IKG => IK1
5845 integer(IKG) , intent(inout) , allocatable :: array(:)
5846 integer(IKG) , intent(in) , contiguous :: pattern(:)
5847 procedure(logical(LK)) :: iseq
5848 end subroutine
5849#endif
5850
5851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5852
5853#if LK5_ENABLED
5854 module subroutine setRemovedCusComDefIns_D1_D1_LK5(array, pattern, iseq)
5855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5856 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK5
5857#endif
5858 use pm_kind, only: LKG => LK5
5859 logical(LKG) , intent(inout) , allocatable :: array(:)
5860 logical(LKG) , intent(in) , contiguous :: pattern(:)
5861 procedure(logical(LK)) :: iseq
5862 end subroutine
5863#endif
5864
5865#if LK4_ENABLED
5866 module subroutine setRemovedCusComDefIns_D1_D1_LK4(array, pattern, iseq)
5867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5868 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK4
5869#endif
5870 use pm_kind, only: LKG => LK4
5871 logical(LKG) , intent(inout) , allocatable :: array(:)
5872 logical(LKG) , intent(in) , contiguous :: pattern(:)
5873 procedure(logical(LK)) :: iseq
5874 end subroutine
5875#endif
5876
5877#if LK3_ENABLED
5878 module subroutine setRemovedCusComDefIns_D1_D1_LK3(array, pattern, iseq)
5879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5880 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK3
5881#endif
5882 use pm_kind, only: LKG => LK3
5883 logical(LKG) , intent(inout) , allocatable :: array(:)
5884 logical(LKG) , intent(in) , contiguous :: pattern(:)
5885 procedure(logical(LK)) :: iseq
5886 end subroutine
5887#endif
5888
5889#if LK2_ENABLED
5890 module subroutine setRemovedCusComDefIns_D1_D1_LK2(array, pattern, iseq)
5891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5892 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK2
5893#endif
5894 use pm_kind, only: LKG => LK2
5895 logical(LKG) , intent(inout) , allocatable :: array(:)
5896 logical(LKG) , intent(in) , contiguous :: pattern(:)
5897 procedure(logical(LK)) :: iseq
5898 end subroutine
5899#endif
5900
5901#if LK1_ENABLED
5902 module subroutine setRemovedCusComDefIns_D1_D1_LK1(array, pattern, iseq)
5903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5904 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK1
5905#endif
5906 use pm_kind, only: LKG => LK1
5907 logical(LKG) , intent(inout) , allocatable :: array(:)
5908 logical(LKG) , intent(in) , contiguous :: pattern(:)
5909 procedure(logical(LK)) :: iseq
5910 end subroutine
5911#endif
5912
5913 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5914
5915#if CK5_ENABLED
5916 module subroutine setRemovedCusComDefIns_D1_D1_CK5(array, pattern, iseq)
5917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5918 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK5
5919#endif
5920 use pm_kind, only: CKG => CK5
5921 complex(CKG) , intent(inout) , allocatable :: array(:)
5922 complex(CKG) , intent(in) , contiguous :: pattern(:)
5923 procedure(logical(LK)) :: iseq
5924 end subroutine
5925#endif
5926
5927#if CK4_ENABLED
5928 module subroutine setRemovedCusComDefIns_D1_D1_CK4(array, pattern, iseq)
5929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5930 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK4
5931#endif
5932 use pm_kind, only: CKG => CK4
5933 complex(CKG) , intent(inout) , allocatable :: array(:)
5934 complex(CKG) , intent(in) , contiguous :: pattern(:)
5935 procedure(logical(LK)) :: iseq
5936 end subroutine
5937#endif
5938
5939#if CK3_ENABLED
5940 module subroutine setRemovedCusComDefIns_D1_D1_CK3(array, pattern, iseq)
5941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5942 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK3
5943#endif
5944 use pm_kind, only: CKG => CK3
5945 complex(CKG) , intent(inout) , allocatable :: array(:)
5946 complex(CKG) , intent(in) , contiguous :: pattern(:)
5947 procedure(logical(LK)) :: iseq
5948 end subroutine
5949#endif
5950
5951#if CK2_ENABLED
5952 module subroutine setRemovedCusComDefIns_D1_D1_CK2(array, pattern, iseq)
5953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5954 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK2
5955#endif
5956 use pm_kind, only: CKG => CK2
5957 complex(CKG) , intent(inout) , allocatable :: array(:)
5958 complex(CKG) , intent(in) , contiguous :: pattern(:)
5959 procedure(logical(LK)) :: iseq
5960 end subroutine
5961#endif
5962
5963#if CK1_ENABLED
5964 module subroutine setRemovedCusComDefIns_D1_D1_CK1(array, pattern, iseq)
5965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5966 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK1
5967#endif
5968 use pm_kind, only: CKG => CK1
5969 complex(CKG) , intent(inout) , allocatable :: array(:)
5970 complex(CKG) , intent(in) , contiguous :: pattern(:)
5971 procedure(logical(LK)) :: iseq
5972 end subroutine
5973#endif
5974
5975 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5976
5977#if RK5_ENABLED
5978 module subroutine setRemovedCusComDefIns_D1_D1_RK5(array, pattern, iseq)
5979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5980 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK5
5981#endif
5982 use pm_kind, only: RKG => RK5
5983 real(RKG) , intent(inout) , allocatable :: array(:)
5984 real(RKG) , intent(in) , contiguous :: pattern(:)
5985 procedure(logical(LK)) :: iseq
5986 end subroutine
5987#endif
5988
5989#if RK4_ENABLED
5990 module subroutine setRemovedCusComDefIns_D1_D1_RK4(array, pattern, iseq)
5991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5992 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK4
5993#endif
5994 use pm_kind, only: RKG => RK4
5995 real(RKG) , intent(inout) , allocatable :: array(:)
5996 real(RKG) , intent(in) , contiguous :: pattern(:)
5997 procedure(logical(LK)) :: iseq
5998 end subroutine
5999#endif
6000
6001#if RK3_ENABLED
6002 module subroutine setRemovedCusComDefIns_D1_D1_RK3(array, pattern, iseq)
6003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6004 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK3
6005#endif
6006 use pm_kind, only: RKG => RK3
6007 real(RKG) , intent(inout) , allocatable :: array(:)
6008 real(RKG) , intent(in) , contiguous :: pattern(:)
6009 procedure(logical(LK)) :: iseq
6010 end subroutine
6011#endif
6012
6013#if RK2_ENABLED
6014 module subroutine setRemovedCusComDefIns_D1_D1_RK2(array, pattern, iseq)
6015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6016 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK2
6017#endif
6018 use pm_kind, only: RKG => RK2
6019 real(RKG) , intent(inout) , allocatable :: array(:)
6020 real(RKG) , intent(in) , contiguous :: pattern(:)
6021 procedure(logical(LK)) :: iseq
6022 end subroutine
6023#endif
6024
6025#if RK1_ENABLED
6026 module subroutine setRemovedCusComDefIns_D1_D1_RK1(array, pattern, iseq)
6027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6028 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK1
6029#endif
6030 use pm_kind, only: RKG => RK1
6031 real(RKG) , intent(inout) , allocatable :: array(:)
6032 real(RKG) , intent(in) , contiguous :: pattern(:)
6033 procedure(logical(LK)) :: iseq
6034 end subroutine
6035#endif
6036
6037 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6038
6039 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6040 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6041 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6042
6043 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6044
6045#if SK5_ENABLED
6046 PURE module subroutine setRemovedDefComCusIns_D1_D1_SK5(array, pattern, instance, sorted, unique)
6047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6048 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK5
6049#endif
6050 use pm_kind, only: SKG => SK5
6051 character(*,SKG) , intent(inout) , allocatable :: array(:)
6052 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6053 integer(IK) , intent(in) , contiguous :: instance(:)
6054 logical(LK) , intent(in) , optional :: sorted
6055 logical(LK) , intent(in) , optional :: unique
6056 end subroutine
6057#endif
6058
6059#if SK4_ENABLED
6060 PURE module subroutine setRemovedDefComCusIns_D1_D1_SK4(array, pattern, instance, sorted, unique)
6061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6062 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK4
6063#endif
6064 use pm_kind, only: SKG => SK4
6065 character(*,SKG) , intent(inout) , allocatable :: array(:)
6066 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6067 integer(IK) , intent(in) , contiguous :: instance(:)
6068 logical(LK) , intent(in) , optional :: sorted
6069 logical(LK) , intent(in) , optional :: unique
6070 end subroutine
6071#endif
6072
6073#if SK3_ENABLED
6074 PURE module subroutine setRemovedDefComCusIns_D1_D1_SK3(array, pattern, instance, sorted, unique)
6075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6076 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK3
6077#endif
6078 use pm_kind, only: SKG => SK3
6079 character(*,SKG) , intent(inout) , allocatable :: array(:)
6080 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6081 integer(IK) , intent(in) , contiguous :: instance(:)
6082 logical(LK) , intent(in) , optional :: sorted
6083 logical(LK) , intent(in) , optional :: unique
6084 end subroutine
6085#endif
6086
6087#if SK2_ENABLED
6088 PURE module subroutine setRemovedDefComCusIns_D1_D1_SK2(array, pattern, instance, sorted, unique)
6089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6090 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK2
6091#endif
6092 use pm_kind, only: SKG => SK2
6093 character(*,SKG) , intent(inout) , allocatable :: array(:)
6094 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6095 integer(IK) , intent(in) , contiguous :: instance(:)
6096 logical(LK) , intent(in) , optional :: sorted
6097 logical(LK) , intent(in) , optional :: unique
6098 end subroutine
6099#endif
6100
6101#if SK1_ENABLED
6102 PURE module subroutine setRemovedDefComCusIns_D1_D1_SK1(array, pattern, instance, sorted, unique)
6103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6104 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK1
6105#endif
6106 use pm_kind, only: SKG => SK1
6107 character(*,SKG) , intent(inout) , allocatable :: array(:)
6108 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6109 integer(IK) , intent(in) , contiguous :: instance(:)
6110 logical(LK) , intent(in) , optional :: sorted
6111 logical(LK) , intent(in) , optional :: unique
6112 end subroutine
6113#endif
6114
6115 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6116
6117#if IK5_ENABLED
6118 PURE module subroutine setRemovedDefComCusIns_D1_D1_IK5(array, pattern, instance, sorted, unique)
6119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6120 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK5
6121#endif
6122 use pm_kind, only: IKG => IK5
6123 integer(IKG) , intent(inout) , allocatable :: array(:)
6124 integer(IKG) , intent(in) , contiguous :: pattern(:)
6125 integer(IK) , intent(in) , contiguous :: instance(:)
6126 logical(LK) , intent(in) , optional :: sorted
6127 logical(LK) , intent(in) , optional :: unique
6128 end subroutine
6129#endif
6130
6131#if IK4_ENABLED
6132 PURE module subroutine setRemovedDefComCusIns_D1_D1_IK4(array, pattern, instance, sorted, unique)
6133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6134 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK4
6135#endif
6136 use pm_kind, only: IKG => IK4
6137 integer(IKG) , intent(inout) , allocatable :: array(:)
6138 integer(IKG) , intent(in) , contiguous :: pattern(:)
6139 integer(IK) , intent(in) , contiguous :: instance(:)
6140 logical(LK) , intent(in) , optional :: sorted
6141 logical(LK) , intent(in) , optional :: unique
6142 end subroutine
6143#endif
6144
6145#if IK3_ENABLED
6146 PURE module subroutine setRemovedDefComCusIns_D1_D1_IK3(array, pattern, instance, sorted, unique)
6147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6148 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK3
6149#endif
6150 use pm_kind, only: IKG => IK3
6151 integer(IKG) , intent(inout) , allocatable :: array(:)
6152 integer(IKG) , intent(in) , contiguous :: pattern(:)
6153 integer(IK) , intent(in) , contiguous :: instance(:)
6154 logical(LK) , intent(in) , optional :: sorted
6155 logical(LK) , intent(in) , optional :: unique
6156 end subroutine
6157#endif
6158
6159#if IK2_ENABLED
6160 PURE module subroutine setRemovedDefComCusIns_D1_D1_IK2(array, pattern, instance, sorted, unique)
6161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6162 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK2
6163#endif
6164 use pm_kind, only: IKG => IK2
6165 integer(IKG) , intent(inout) , allocatable :: array(:)
6166 integer(IKG) , intent(in) , contiguous :: pattern(:)
6167 integer(IK) , intent(in) , contiguous :: instance(:)
6168 logical(LK) , intent(in) , optional :: sorted
6169 logical(LK) , intent(in) , optional :: unique
6170 end subroutine
6171#endif
6172
6173#if IK1_ENABLED
6174 PURE module subroutine setRemovedDefComCusIns_D1_D1_IK1(array, pattern, instance, sorted, unique)
6175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6176 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK1
6177#endif
6178 use pm_kind, only: IKG => IK1
6179 integer(IKG) , intent(inout) , allocatable :: array(:)
6180 integer(IKG) , intent(in) , contiguous :: pattern(:)
6181 integer(IK) , intent(in) , contiguous :: instance(:)
6182 logical(LK) , intent(in) , optional :: sorted
6183 logical(LK) , intent(in) , optional :: unique
6184 end subroutine
6185#endif
6186
6187 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6188
6189#if LK5_ENABLED
6190 PURE module subroutine setRemovedDefComCusIns_D1_D1_LK5(array, pattern, instance, sorted, unique)
6191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6192 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK5
6193#endif
6194 use pm_kind, only: LKG => LK5
6195 logical(LKG) , intent(inout) , allocatable :: array(:)
6196 logical(LKG) , intent(in) , contiguous :: pattern(:)
6197 integer(IK) , intent(in) , contiguous :: instance(:)
6198 logical(LK) , intent(in) , optional :: sorted
6199 logical(LK) , intent(in) , optional :: unique
6200 end subroutine
6201#endif
6202
6203#if LK4_ENABLED
6204 PURE module subroutine setRemovedDefComCusIns_D1_D1_LK4(array, pattern, instance, sorted, unique)
6205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6206 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK4
6207#endif
6208 use pm_kind, only: LKG => LK4
6209 logical(LKG) , intent(inout) , allocatable :: array(:)
6210 logical(LKG) , intent(in) , contiguous :: pattern(:)
6211 integer(IK) , intent(in) , contiguous :: instance(:)
6212 logical(LK) , intent(in) , optional :: sorted
6213 logical(LK) , intent(in) , optional :: unique
6214 end subroutine
6215#endif
6216
6217#if LK3_ENABLED
6218 PURE module subroutine setRemovedDefComCusIns_D1_D1_LK3(array, pattern, instance, sorted, unique)
6219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6220 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK3
6221#endif
6222 use pm_kind, only: LKG => LK3
6223 logical(LKG) , intent(inout) , allocatable :: array(:)
6224 logical(LKG) , intent(in) , contiguous :: pattern(:)
6225 integer(IK) , intent(in) , contiguous :: instance(:)
6226 logical(LK) , intent(in) , optional :: sorted
6227 logical(LK) , intent(in) , optional :: unique
6228 end subroutine
6229#endif
6230
6231#if LK2_ENABLED
6232 PURE module subroutine setRemovedDefComCusIns_D1_D1_LK2(array, pattern, instance, sorted, unique)
6233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6234 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK2
6235#endif
6236 use pm_kind, only: LKG => LK2
6237 logical(LKG) , intent(inout) , allocatable :: array(:)
6238 logical(LKG) , intent(in) , contiguous :: pattern(:)
6239 integer(IK) , intent(in) , contiguous :: instance(:)
6240 logical(LK) , intent(in) , optional :: sorted
6241 logical(LK) , intent(in) , optional :: unique
6242 end subroutine
6243#endif
6244
6245#if LK1_ENABLED
6246 PURE module subroutine setRemovedDefComCusIns_D1_D1_LK1(array, pattern, instance, sorted, unique)
6247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6248 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK1
6249#endif
6250 use pm_kind, only: LKG => LK1
6251 logical(LKG) , intent(inout) , allocatable :: array(:)
6252 logical(LKG) , intent(in) , contiguous :: pattern(:)
6253 integer(IK) , intent(in) , contiguous :: instance(:)
6254 logical(LK) , intent(in) , optional :: sorted
6255 logical(LK) , intent(in) , optional :: unique
6256 end subroutine
6257#endif
6258
6259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6260
6261#if CK5_ENABLED
6262 PURE module subroutine setRemovedDefComCusIns_D1_D1_CK5(array, pattern, instance, sorted, unique)
6263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6264 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK5
6265#endif
6266 use pm_kind, only: CKG => CK5
6267 complex(CKG) , intent(inout) , allocatable :: array(:)
6268 complex(CKG) , intent(in) , contiguous :: pattern(:)
6269 integer(IK) , intent(in) , contiguous :: instance(:)
6270 logical(LK) , intent(in) , optional :: sorted
6271 logical(LK) , intent(in) , optional :: unique
6272 end subroutine
6273#endif
6274
6275#if CK4_ENABLED
6276 PURE module subroutine setRemovedDefComCusIns_D1_D1_CK4(array, pattern, instance, sorted, unique)
6277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6278 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK4
6279#endif
6280 use pm_kind, only: CKG => CK4
6281 complex(CKG) , intent(inout) , allocatable :: array(:)
6282 complex(CKG) , intent(in) , contiguous :: pattern(:)
6283 integer(IK) , intent(in) , contiguous :: instance(:)
6284 logical(LK) , intent(in) , optional :: sorted
6285 logical(LK) , intent(in) , optional :: unique
6286 end subroutine
6287#endif
6288
6289#if CK3_ENABLED
6290 PURE module subroutine setRemovedDefComCusIns_D1_D1_CK3(array, pattern, instance, sorted, unique)
6291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6292 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK3
6293#endif
6294 use pm_kind, only: CKG => CK3
6295 complex(CKG) , intent(inout) , allocatable :: array(:)
6296 complex(CKG) , intent(in) , contiguous :: pattern(:)
6297 integer(IK) , intent(in) , contiguous :: instance(:)
6298 logical(LK) , intent(in) , optional :: sorted
6299 logical(LK) , intent(in) , optional :: unique
6300 end subroutine
6301#endif
6302
6303#if CK2_ENABLED
6304 PURE module subroutine setRemovedDefComCusIns_D1_D1_CK2(array, pattern, instance, sorted, unique)
6305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6306 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK2
6307#endif
6308 use pm_kind, only: CKG => CK2
6309 complex(CKG) , intent(inout) , allocatable :: array(:)
6310 complex(CKG) , intent(in) , contiguous :: pattern(:)
6311 integer(IK) , intent(in) , contiguous :: instance(:)
6312 logical(LK) , intent(in) , optional :: sorted
6313 logical(LK) , intent(in) , optional :: unique
6314 end subroutine
6315#endif
6316
6317#if CK1_ENABLED
6318 PURE module subroutine setRemovedDefComCusIns_D1_D1_CK1(array, pattern, instance, sorted, unique)
6319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6320 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK1
6321#endif
6322 use pm_kind, only: CKG => CK1
6323 complex(CKG) , intent(inout) , allocatable :: array(:)
6324 complex(CKG) , intent(in) , contiguous :: pattern(:)
6325 integer(IK) , intent(in) , contiguous :: instance(:)
6326 logical(LK) , intent(in) , optional :: sorted
6327 logical(LK) , intent(in) , optional :: unique
6328 end subroutine
6329#endif
6330
6331 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6332
6333#if RK5_ENABLED
6334 PURE module subroutine setRemovedDefComCusIns_D1_D1_RK5(array, pattern, instance, sorted, unique)
6335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6336 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK5
6337#endif
6338 use pm_kind, only: RKG => RK5
6339 real(RKG) , intent(inout) , allocatable :: array(:)
6340 real(RKG) , intent(in) , contiguous :: pattern(:)
6341 integer(IK) , intent(in) , contiguous :: instance(:)
6342 logical(LK) , intent(in) , optional :: sorted
6343 logical(LK) , intent(in) , optional :: unique
6344 end subroutine
6345#endif
6346
6347#if RK4_ENABLED
6348 PURE module subroutine setRemovedDefComCusIns_D1_D1_RK4(array, pattern, instance, sorted, unique)
6349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6350 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK4
6351#endif
6352 use pm_kind, only: RKG => RK4
6353 real(RKG) , intent(inout) , allocatable :: array(:)
6354 real(RKG) , intent(in) , contiguous :: pattern(:)
6355 integer(IK) , intent(in) , contiguous :: instance(:)
6356 logical(LK) , intent(in) , optional :: sorted
6357 logical(LK) , intent(in) , optional :: unique
6358 end subroutine
6359#endif
6360
6361#if RK3_ENABLED
6362 PURE module subroutine setRemovedDefComCusIns_D1_D1_RK3(array, pattern, instance, sorted, unique)
6363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6364 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK3
6365#endif
6366 use pm_kind, only: RKG => RK3
6367 real(RKG) , intent(inout) , allocatable :: array(:)
6368 real(RKG) , intent(in) , contiguous :: pattern(:)
6369 integer(IK) , intent(in) , contiguous :: instance(:)
6370 logical(LK) , intent(in) , optional :: sorted
6371 logical(LK) , intent(in) , optional :: unique
6372 end subroutine
6373#endif
6374
6375#if RK2_ENABLED
6376 PURE module subroutine setRemovedDefComCusIns_D1_D1_RK2(array, pattern, instance, sorted, unique)
6377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6378 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK2
6379#endif
6380 use pm_kind, only: RKG => RK2
6381 real(RKG) , intent(inout) , allocatable :: array(:)
6382 real(RKG) , intent(in) , contiguous :: pattern(:)
6383 integer(IK) , intent(in) , contiguous :: instance(:)
6384 logical(LK) , intent(in) , optional :: sorted
6385 logical(LK) , intent(in) , optional :: unique
6386 end subroutine
6387#endif
6388
6389#if RK1_ENABLED
6390 PURE module subroutine setRemovedDefComCusIns_D1_D1_RK1(array, pattern, instance, sorted, unique)
6391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6392 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK1
6393#endif
6394 use pm_kind, only: RKG => RK1
6395 real(RKG) , intent(inout) , allocatable :: array(:)
6396 real(RKG) , intent(in) , contiguous :: pattern(:)
6397 integer(IK) , intent(in) , contiguous :: instance(:)
6398 logical(LK) , intent(in) , optional :: sorted
6399 logical(LK) , intent(in) , optional :: unique
6400 end subroutine
6401#endif
6402
6403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6404
6405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6406 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6407 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6408
6409 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6410
6411#if SK5_ENABLED
6412 module subroutine setRemovedCusComCusIns_D1_D1_SK5(array, pattern, iseq, instance, sorted, unique)
6413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6414 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK5
6415#endif
6416 use pm_kind, only: SKG => SK5
6417 character(*,SKG) , intent(inout) , allocatable :: array(:)
6418 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6419 procedure(logical(LK)) :: iseq
6420 integer(IK) , intent(in) , contiguous :: instance(:)
6421 logical(LK) , intent(in) , optional :: sorted
6422 logical(LK) , intent(in) , optional :: unique
6423 end subroutine
6424#endif
6425
6426#if SK4_ENABLED
6427 module subroutine setRemovedCusComCusIns_D1_D1_SK4(array, pattern, iseq, instance, sorted, unique)
6428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6429 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK4
6430#endif
6431 use pm_kind, only: SKG => SK4
6432 character(*,SKG) , intent(inout) , allocatable :: array(:)
6433 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6434 procedure(logical(LK)) :: iseq
6435 integer(IK) , intent(in) , contiguous :: instance(:)
6436 logical(LK) , intent(in) , optional :: sorted
6437 logical(LK) , intent(in) , optional :: unique
6438 end subroutine
6439#endif
6440
6441#if SK3_ENABLED
6442 module subroutine setRemovedCusComCusIns_D1_D1_SK3(array, pattern, iseq, instance, sorted, unique)
6443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6444 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK3
6445#endif
6446 use pm_kind, only: SKG => SK3
6447 character(*,SKG) , intent(inout) , allocatable :: array(:)
6448 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6449 procedure(logical(LK)) :: iseq
6450 integer(IK) , intent(in) , contiguous :: instance(:)
6451 logical(LK) , intent(in) , optional :: sorted
6452 logical(LK) , intent(in) , optional :: unique
6453 end subroutine
6454#endif
6455
6456#if SK2_ENABLED
6457 module subroutine setRemovedCusComCusIns_D1_D1_SK2(array, pattern, iseq, instance, sorted, unique)
6458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6459 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK2
6460#endif
6461 use pm_kind, only: SKG => SK2
6462 character(*,SKG) , intent(inout) , allocatable :: array(:)
6463 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6464 procedure(logical(LK)) :: iseq
6465 integer(IK) , intent(in) , contiguous :: instance(:)
6466 logical(LK) , intent(in) , optional :: sorted
6467 logical(LK) , intent(in) , optional :: unique
6468 end subroutine
6469#endif
6470
6471#if SK1_ENABLED
6472 module subroutine setRemovedCusComCusIns_D1_D1_SK1(array, pattern, iseq, instance, sorted, unique)
6473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6474 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK1
6475#endif
6476 use pm_kind, only: SKG => SK1
6477 character(*,SKG) , intent(inout) , allocatable :: array(:)
6478 character(*,SKG) , intent(in) , contiguous :: pattern(:)
6479 procedure(logical(LK)) :: iseq
6480 integer(IK) , intent(in) , contiguous :: instance(:)
6481 logical(LK) , intent(in) , optional :: sorted
6482 logical(LK) , intent(in) , optional :: unique
6483 end subroutine
6484#endif
6485
6486 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6487
6488#if IK5_ENABLED
6489 module subroutine setRemovedCusComCusIns_D1_D1_IK5(array, pattern, iseq, instance, sorted, unique)
6490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6491 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK5
6492#endif
6493 use pm_kind, only: IKG => IK5
6494 integer(IKG) , intent(inout) , allocatable :: array(:)
6495 integer(IKG) , intent(in) , contiguous :: pattern(:)
6496 procedure(logical(LK)) :: iseq
6497 integer(IK) , intent(in) , contiguous :: instance(:)
6498 logical(LK) , intent(in) , optional :: sorted
6499 logical(LK) , intent(in) , optional :: unique
6500 end subroutine
6501#endif
6502
6503#if IK4_ENABLED
6504 module subroutine setRemovedCusComCusIns_D1_D1_IK4(array, pattern, iseq, instance, sorted, unique)
6505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6506 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK4
6507#endif
6508 use pm_kind, only: IKG => IK4
6509 integer(IKG) , intent(inout) , allocatable :: array(:)
6510 integer(IKG) , intent(in) , contiguous :: pattern(:)
6511 procedure(logical(LK)) :: iseq
6512 integer(IK) , intent(in) , contiguous :: instance(:)
6513 logical(LK) , intent(in) , optional :: sorted
6514 logical(LK) , intent(in) , optional :: unique
6515 end subroutine
6516#endif
6517
6518#if IK3_ENABLED
6519 module subroutine setRemovedCusComCusIns_D1_D1_IK3(array, pattern, iseq, instance, sorted, unique)
6520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6521 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK3
6522#endif
6523 use pm_kind, only: IKG => IK3
6524 integer(IKG) , intent(inout) , allocatable :: array(:)
6525 integer(IKG) , intent(in) , contiguous :: pattern(:)
6526 procedure(logical(LK)) :: iseq
6527 integer(IK) , intent(in) , contiguous :: instance(:)
6528 logical(LK) , intent(in) , optional :: sorted
6529 logical(LK) , intent(in) , optional :: unique
6530 end subroutine
6531#endif
6532
6533#if IK2_ENABLED
6534 module subroutine setRemovedCusComCusIns_D1_D1_IK2(array, pattern, iseq, instance, sorted, unique)
6535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6536 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK2
6537#endif
6538 use pm_kind, only: IKG => IK2
6539 integer(IKG) , intent(inout) , allocatable :: array(:)
6540 integer(IKG) , intent(in) , contiguous :: pattern(:)
6541 procedure(logical(LK)) :: iseq
6542 integer(IK) , intent(in) , contiguous :: instance(:)
6543 logical(LK) , intent(in) , optional :: sorted
6544 logical(LK) , intent(in) , optional :: unique
6545 end subroutine
6546#endif
6547
6548#if IK1_ENABLED
6549 module subroutine setRemovedCusComCusIns_D1_D1_IK1(array, pattern, iseq, instance, sorted, unique)
6550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6551 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK1
6552#endif
6553 use pm_kind, only: IKG => IK1
6554 integer(IKG) , intent(inout) , allocatable :: array(:)
6555 integer(IKG) , intent(in) , contiguous :: pattern(:)
6556 procedure(logical(LK)) :: iseq
6557 integer(IK) , intent(in) , contiguous :: instance(:)
6558 logical(LK) , intent(in) , optional :: sorted
6559 logical(LK) , intent(in) , optional :: unique
6560 end subroutine
6561#endif
6562
6563 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6564
6565#if LK5_ENABLED
6566 module subroutine setRemovedCusComCusIns_D1_D1_LK5(array, pattern, iseq, instance, sorted, unique)
6567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6568 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK5
6569#endif
6570 use pm_kind, only: LKG => LK5
6571 logical(LKG) , intent(inout) , allocatable :: array(:)
6572 logical(LKG) , intent(in) , contiguous :: pattern(:)
6573 procedure(logical(LK)) :: iseq
6574 integer(IK) , intent(in) , contiguous :: instance(:)
6575 logical(LK) , intent(in) , optional :: sorted
6576 logical(LK) , intent(in) , optional :: unique
6577 end subroutine
6578#endif
6579
6580#if LK4_ENABLED
6581 module subroutine setRemovedCusComCusIns_D1_D1_LK4(array, pattern, iseq, instance, sorted, unique)
6582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6583 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK4
6584#endif
6585 use pm_kind, only: LKG => LK4
6586 logical(LKG) , intent(inout) , allocatable :: array(:)
6587 logical(LKG) , intent(in) , contiguous :: pattern(:)
6588 procedure(logical(LK)) :: iseq
6589 integer(IK) , intent(in) , contiguous :: instance(:)
6590 logical(LK) , intent(in) , optional :: sorted
6591 logical(LK) , intent(in) , optional :: unique
6592 end subroutine
6593#endif
6594
6595#if LK3_ENABLED
6596 module subroutine setRemovedCusComCusIns_D1_D1_LK3(array, pattern, iseq, instance, sorted, unique)
6597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6598 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK3
6599#endif
6600 use pm_kind, only: LKG => LK3
6601 logical(LKG) , intent(inout) , allocatable :: array(:)
6602 logical(LKG) , intent(in) , contiguous :: pattern(:)
6603 procedure(logical(LK)) :: iseq
6604 integer(IK) , intent(in) , contiguous :: instance(:)
6605 logical(LK) , intent(in) , optional :: sorted
6606 logical(LK) , intent(in) , optional :: unique
6607 end subroutine
6608#endif
6609
6610#if LK2_ENABLED
6611 module subroutine setRemovedCusComCusIns_D1_D1_LK2(array, pattern, iseq, instance, sorted, unique)
6612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6613 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK2
6614#endif
6615 use pm_kind, only: LKG => LK2
6616 logical(LKG) , intent(inout) , allocatable :: array(:)
6617 logical(LKG) , intent(in) , contiguous :: pattern(:)
6618 procedure(logical(LK)) :: iseq
6619 integer(IK) , intent(in) , contiguous :: instance(:)
6620 logical(LK) , intent(in) , optional :: sorted
6621 logical(LK) , intent(in) , optional :: unique
6622 end subroutine
6623#endif
6624
6625#if LK1_ENABLED
6626 module subroutine setRemovedCusComCusIns_D1_D1_LK1(array, pattern, iseq, instance, sorted, unique)
6627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6628 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK1
6629#endif
6630 use pm_kind, only: LKG => LK1
6631 logical(LKG) , intent(inout) , allocatable :: array(:)
6632 logical(LKG) , intent(in) , contiguous :: pattern(:)
6633 procedure(logical(LK)) :: iseq
6634 integer(IK) , intent(in) , contiguous :: instance(:)
6635 logical(LK) , intent(in) , optional :: sorted
6636 logical(LK) , intent(in) , optional :: unique
6637 end subroutine
6638#endif
6639
6640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6641
6642#if CK5_ENABLED
6643 module subroutine setRemovedCusComCusIns_D1_D1_CK5(array, pattern, iseq, instance, sorted, unique)
6644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6645 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK5
6646#endif
6647 use pm_kind, only: CKG => CK5
6648 complex(CKG) , intent(inout) , allocatable :: array(:)
6649 complex(CKG) , intent(in) , contiguous :: pattern(:)
6650 procedure(logical(LK)) :: iseq
6651 integer(IK) , intent(in) , contiguous :: instance(:)
6652 logical(LK) , intent(in) , optional :: sorted
6653 logical(LK) , intent(in) , optional :: unique
6654 end subroutine
6655#endif
6656
6657#if CK4_ENABLED
6658 module subroutine setRemovedCusComCusIns_D1_D1_CK4(array, pattern, iseq, instance, sorted, unique)
6659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6660 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK4
6661#endif
6662 use pm_kind, only: CKG => CK4
6663 complex(CKG) , intent(inout) , allocatable :: array(:)
6664 complex(CKG) , intent(in) , contiguous :: pattern(:)
6665 procedure(logical(LK)) :: iseq
6666 integer(IK) , intent(in) , contiguous :: instance(:)
6667 logical(LK) , intent(in) , optional :: sorted
6668 logical(LK) , intent(in) , optional :: unique
6669 end subroutine
6670#endif
6671
6672#if CK3_ENABLED
6673 module subroutine setRemovedCusComCusIns_D1_D1_CK3(array, pattern, iseq, instance, sorted, unique)
6674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6675 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK3
6676#endif
6677 use pm_kind, only: CKG => CK3
6678 complex(CKG) , intent(inout) , allocatable :: array(:)
6679 complex(CKG) , intent(in) , contiguous :: pattern(:)
6680 procedure(logical(LK)) :: iseq
6681 integer(IK) , intent(in) , contiguous :: instance(:)
6682 logical(LK) , intent(in) , optional :: sorted
6683 logical(LK) , intent(in) , optional :: unique
6684 end subroutine
6685#endif
6686
6687#if CK2_ENABLED
6688 module subroutine setRemovedCusComCusIns_D1_D1_CK2(array, pattern, iseq, instance, sorted, unique)
6689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6690 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK2
6691#endif
6692 use pm_kind, only: CKG => CK2
6693 complex(CKG) , intent(inout) , allocatable :: array(:)
6694 complex(CKG) , intent(in) , contiguous :: pattern(:)
6695 procedure(logical(LK)) :: iseq
6696 integer(IK) , intent(in) , contiguous :: instance(:)
6697 logical(LK) , intent(in) , optional :: sorted
6698 logical(LK) , intent(in) , optional :: unique
6699 end subroutine
6700#endif
6701
6702#if CK1_ENABLED
6703 module subroutine setRemovedCusComCusIns_D1_D1_CK1(array, pattern, iseq, instance, sorted, unique)
6704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6705 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK1
6706#endif
6707 use pm_kind, only: CKG => CK1
6708 complex(CKG) , intent(inout) , allocatable :: array(:)
6709 complex(CKG) , intent(in) , contiguous :: pattern(:)
6710 procedure(logical(LK)) :: iseq
6711 integer(IK) , intent(in) , contiguous :: instance(:)
6712 logical(LK) , intent(in) , optional :: sorted
6713 logical(LK) , intent(in) , optional :: unique
6714 end subroutine
6715#endif
6716
6717 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6718
6719#if RK5_ENABLED
6720 module subroutine setRemovedCusComCusIns_D1_D1_RK5(array, pattern, iseq, instance, sorted, unique)
6721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6722 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK5
6723#endif
6724 use pm_kind, only: RKG => RK5
6725 real(RKG) , intent(inout) , allocatable :: array(:)
6726 real(RKG) , intent(in) , contiguous :: pattern(:)
6727 procedure(logical(LK)) :: iseq
6728 integer(IK) , intent(in) , contiguous :: instance(:)
6729 logical(LK) , intent(in) , optional :: sorted
6730 logical(LK) , intent(in) , optional :: unique
6731 end subroutine
6732#endif
6733
6734#if RK4_ENABLED
6735 module subroutine setRemovedCusComCusIns_D1_D1_RK4(array, pattern, iseq, instance, sorted, unique)
6736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6737 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK4
6738#endif
6739 use pm_kind, only: RKG => RK4
6740 real(RKG) , intent(inout) , allocatable :: array(:)
6741 real(RKG) , intent(in) , contiguous :: pattern(:)
6742 procedure(logical(LK)) :: iseq
6743 integer(IK) , intent(in) , contiguous :: instance(:)
6744 logical(LK) , intent(in) , optional :: sorted
6745 logical(LK) , intent(in) , optional :: unique
6746 end subroutine
6747#endif
6748
6749#if RK3_ENABLED
6750 module subroutine setRemovedCusComCusIns_D1_D1_RK3(array, pattern, iseq, instance, sorted, unique)
6751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6752 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK3
6753#endif
6754 use pm_kind, only: RKG => RK3
6755 real(RKG) , intent(inout) , allocatable :: array(:)
6756 real(RKG) , intent(in) , contiguous :: pattern(:)
6757 procedure(logical(LK)) :: iseq
6758 integer(IK) , intent(in) , contiguous :: instance(:)
6759 logical(LK) , intent(in) , optional :: sorted
6760 logical(LK) , intent(in) , optional :: unique
6761 end subroutine
6762#endif
6763
6764#if RK2_ENABLED
6765 module subroutine setRemovedCusComCusIns_D1_D1_RK2(array, pattern, iseq, instance, sorted, unique)
6766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6767 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK2
6768#endif
6769 use pm_kind, only: RKG => RK2
6770 real(RKG) , intent(inout) , allocatable :: array(:)
6771 real(RKG) , intent(in) , contiguous :: pattern(:)
6772 procedure(logical(LK)) :: iseq
6773 integer(IK) , intent(in) , contiguous :: instance(:)
6774 logical(LK) , intent(in) , optional :: sorted
6775 logical(LK) , intent(in) , optional :: unique
6776 end subroutine
6777#endif
6778
6779#if RK1_ENABLED
6780 module subroutine setRemovedCusComCusIns_D1_D1_RK1(array, pattern, iseq, instance, sorted, unique)
6781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6782 !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK1
6783#endif
6784 use pm_kind, only: RKG => RK1
6785 real(RKG) , intent(inout) , allocatable :: array(:)
6786 real(RKG) , intent(in) , contiguous :: pattern(:)
6787 procedure(logical(LK)) :: iseq
6788 integer(IK) , intent(in) , contiguous :: instance(:)
6789 logical(LK) , intent(in) , optional :: sorted
6790 logical(LK) , intent(in) , optional :: unique
6791 end subroutine
6792#endif
6793
6794 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6795
6796 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6798 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6800 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6801 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6802 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6803 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6804 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6805
6806 ! The following interfaces return a new array and can be activated in the future if needed.
6807
6808! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6809! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6810! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6811! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6812! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6813! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6814! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6815! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6816! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6817!
6818! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6819!
6820!#if SK5_ENABLED
6821! PURE module subroutine setRemovedDefComDefIns_D0_D0_SK5(ArrayRemoved, array, pattern)
6822!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6823! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK5
6824!#endif
6825! use pm_kind, only: SKG => SK5
6826! character(:,SKG) , intent(inout) , allocatable :: array
6827! character(*,SKG) , intent(in) :: pattern
6828! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6829! end subroutine
6830!#endif
6831!
6832!#if SK4_ENABLED
6833! PURE module subroutine setRemovedDefComDefIns_D0_D0_SK4(ArrayRemoved, array, pattern)
6834!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6835! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK4
6836!#endif
6837! use pm_kind, only: SKG => SK4
6838! character(:,SKG) , intent(inout) , allocatable :: array
6839! character(*,SKG) , intent(in) :: pattern
6840! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6841! end subroutine
6842!#endif
6843!
6844!#if SK3_ENABLED
6845! PURE module subroutine setRemovedDefComDefIns_D0_D0_SK3(ArrayRemoved, array, pattern)
6846!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6847! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK3
6848!#endif
6849! use pm_kind, only: SKG => SK3
6850! character(:,SKG) , intent(inout) , allocatable :: array
6851! character(*,SKG) , intent(in) :: pattern
6852! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6853! end subroutine
6854!#endif
6855!
6856!#if SK2_ENABLED
6857! PURE module subroutine setRemovedDefComDefIns_D0_D0_SK2(ArrayRemoved, array, pattern)
6858!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6859! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK2
6860!#endif
6861! use pm_kind, only: SKG => SK2
6862! character(:,SKG) , intent(inout) , allocatable :: array
6863! character(*,SKG) , intent(in) :: pattern
6864! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6865! end subroutine
6866!#endif
6867!
6868!#if SK1_ENABLED
6869! PURE module subroutine setRemovedDefComDefIns_D0_D0_SK1(ArrayRemoved, array, pattern)
6870!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6871! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D0_D0_SK1
6872!#endif
6873! use pm_kind, only: SKG => SK1
6874! character(:,SKG) , intent(inout) , allocatable :: array
6875! character(*,SKG) , intent(in) :: pattern
6876! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6877! end subroutine
6878!#endif
6879!
6880! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6881!
6882! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6883! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6884! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6885!
6886! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6887!
6888!#if SK5_ENABLED
6889! module subroutine setRemovedCusComDefIns_D0_D0_SK5(ArrayRemoved, array, pattern, iseq)
6890!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6891! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK5
6892!#endif
6893! use pm_kind, only: SKG => SK5
6894! character(:,SKG) , intent(inout) , allocatable :: array
6895! character(*,SKG) , intent(in) :: pattern
6896! procedure(logical(LK)) :: iseq
6897! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6898! end subroutine
6899!#endif
6900!
6901!#if SK4_ENABLED
6902! module subroutine setRemovedCusComDefIns_D0_D0_SK4(ArrayRemoved, array, pattern, iseq)
6903!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6904! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK4
6905!#endif
6906! use pm_kind, only: SKG => SK4
6907! character(:,SKG) , intent(inout) , allocatable :: array
6908! character(*,SKG) , intent(in) :: pattern
6909! procedure(logical(LK)) :: iseq
6910! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6911! end subroutine
6912!#endif
6913!
6914!#if SK3_ENABLED
6915! module subroutine setRemovedCusComDefIns_D0_D0_SK3(ArrayRemoved, array, pattern, iseq)
6916!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6917! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK3
6918!#endif
6919! use pm_kind, only: SKG => SK3
6920! character(:,SKG) , intent(inout) , allocatable :: array
6921! character(*,SKG) , intent(in) :: pattern
6922! procedure(logical(LK)) :: iseq
6923! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6924! end subroutine
6925!#endif
6926!
6927!#if SK2_ENABLED
6928! module subroutine setRemovedCusComDefIns_D0_D0_SK2(ArrayRemoved, array, pattern, iseq)
6929!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6930! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK2
6931!#endif
6932! use pm_kind, only: SKG => SK2
6933! character(:,SKG) , intent(inout) , allocatable :: array
6934! character(*,SKG) , intent(in) :: pattern
6935! procedure(logical(LK)) :: iseq
6936! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6937! end subroutine
6938!#endif
6939!
6940!#if SK1_ENABLED
6941! module subroutine setRemovedCusComDefIns_D0_D0_SK1(ArrayRemoved, array, pattern, iseq)
6942!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6943! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D0_D0_SK1
6944!#endif
6945! use pm_kind, only: SKG => SK1
6946! character(:,SKG) , intent(inout) , allocatable :: array
6947! character(*,SKG) , intent(in) :: pattern
6948! procedure(logical(LK)) :: iseq
6949! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6950! end subroutine
6951!#endif
6952!
6953! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6954!
6955! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6956! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6957! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6958!
6959! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6960!
6961!#if SK5_ENABLED
6962! PURE module subroutine setRemovedDefComCusIns_D0_D0_SK5(ArrayRemoved, array, pattern, instance, sorted, unique)
6963!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6964! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK5
6965!#endif
6966! use pm_kind, only: SKG => SK5
6967! character(:,SKG) , intent(inout) , allocatable :: array
6968! character(*,SKG) , intent(in) :: pattern
6969! integer(IK) , intent(in) , contiguous :: instance(:)
6970! logical(LK) , intent(in) , optional :: sorted
6971! logical(LK) , intent(in) , optional :: unique
6972! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6973! end subroutine
6974!#endif
6975!
6976!#if SK4_ENABLED
6977! PURE module subroutine setRemovedDefComCusIns_D0_D0_SK4(ArrayRemoved, array, pattern, instance, sorted, unique)
6978!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6979! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK4
6980!#endif
6981! use pm_kind, only: SKG => SK4
6982! character(:,SKG) , intent(inout) , allocatable :: array
6983! character(*,SKG) , intent(in) :: pattern
6984! integer(IK) , intent(in) , contiguous :: instance(:)
6985! logical(LK) , intent(in) , optional :: sorted
6986! logical(LK) , intent(in) , optional :: unique
6987! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
6988! end subroutine
6989!#endif
6990!
6991!#if SK3_ENABLED
6992! PURE module subroutine setRemovedDefComCusIns_D0_D0_SK3(ArrayRemoved, array, pattern, instance, sorted, unique)
6993!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6994! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK3
6995!#endif
6996! use pm_kind, only: SKG => SK3
6997! character(:,SKG) , intent(inout) , allocatable :: array
6998! character(*,SKG) , intent(in) :: pattern
6999! integer(IK) , intent(in) , contiguous :: instance(:)
7000! logical(LK) , intent(in) , optional :: sorted
7001! logical(LK) , intent(in) , optional :: unique
7002! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
7003! end subroutine
7004!#endif
7005!
7006!#if SK2_ENABLED
7007! PURE module subroutine setRemovedDefComCusIns_D0_D0_SK2(ArrayRemoved, array, pattern, instance, sorted, unique)
7008!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7009! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK2
7010!#endif
7011! use pm_kind, only: SKG => SK2
7012! character(:,SKG) , intent(inout) , allocatable :: array
7013! character(*,SKG) , intent(in) :: pattern
7014! integer(IK) , intent(in) , contiguous :: instance(:)
7015! logical(LK) , intent(in) , optional :: sorted
7016! logical(LK) , intent(in) , optional :: unique
7017! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
7018! end subroutine
7019!#endif
7020!
7021!#if SK1_ENABLED
7022! PURE module subroutine setRemovedDefComCusIns_D0_D0_SK1(ArrayRemoved, array, pattern, instance, sorted, unique)
7023!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7024! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D0_D0_SK1
7025!#endif
7026! use pm_kind, only: SKG => SK1
7027! character(:,SKG) , intent(inout) , allocatable :: array
7028! character(*,SKG) , intent(in) :: pattern
7029! integer(IK) , intent(in) , contiguous :: instance(:)
7030! logical(LK) , intent(in) , optional :: sorted
7031! logical(LK) , intent(in) , optional :: unique
7032! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
7033! end subroutine
7034!#endif
7035!
7036! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7037!
7038! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7039! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7040! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7041!
7042! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7043!
7044!#if SK5_ENABLED
7045! module subroutine setRemovedCusComCusIns_D0_D0_SK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
7046!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7047! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK5
7048!#endif
7049! use pm_kind, only: SKG => SK5
7050! character(:,SKG) , intent(inout) , allocatable :: array
7051! character(*,SKG) , intent(in) :: pattern
7052! procedure(logical(LK)) :: iseq
7053! integer(IK) , intent(in) , contiguous :: instance(:)
7054! logical(LK) , intent(in) , optional :: sorted
7055! logical(LK) , intent(in) , optional :: unique
7056! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
7057! end subroutine
7058!#endif
7059!
7060!#if SK4_ENABLED
7061! module subroutine setRemovedCusComCusIns_D0_D0_SK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
7062!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7063! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK4
7064!#endif
7065! use pm_kind, only: SKG => SK4
7066! character(:,SKG) , intent(inout) , allocatable :: array
7067! character(*,SKG) , intent(in) :: pattern
7068! procedure(logical(LK)) :: iseq
7069! integer(IK) , intent(in) , contiguous :: instance(:)
7070! logical(LK) , intent(in) , optional :: sorted
7071! logical(LK) , intent(in) , optional :: unique
7072! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
7073! end subroutine
7074!#endif
7075!
7076!#if SK3_ENABLED
7077! module subroutine setRemovedCusComCusIns_D0_D0_SK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
7078!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7079! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK3
7080!#endif
7081! use pm_kind, only: SKG => SK3
7082! character(:,SKG) , intent(inout) , allocatable :: array
7083! character(*,SKG) , intent(in) :: pattern
7084! procedure(logical(LK)) :: iseq
7085! integer(IK) , intent(in) , contiguous :: instance(:)
7086! logical(LK) , intent(in) , optional :: sorted
7087! logical(LK) , intent(in) , optional :: unique
7088! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
7089! end subroutine
7090!#endif
7091!
7092!#if SK2_ENABLED
7093! module subroutine setRemovedCusComCusIns_D0_D0_SK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
7094!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7095! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK2
7096!#endif
7097! use pm_kind, only: SKG => SK2
7098! character(:,SKG) , intent(inout) , allocatable :: array
7099! character(*,SKG) , intent(in) :: pattern
7100! procedure(logical(LK)) :: iseq
7101! integer(IK) , intent(in) , contiguous :: instance(:)
7102! logical(LK) , intent(in) , optional :: sorted
7103! logical(LK) , intent(in) , optional :: unique
7104! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
7105! end subroutine
7106!#endif
7107!
7108!#if SK1_ENABLED
7109! module subroutine setRemovedCusComCusIns_D0_D0_SK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
7110!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7111! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D0_D0_SK1
7112!#endif
7113! use pm_kind, only: SKG => SK1
7114! character(:,SKG) , intent(inout) , allocatable :: array
7115! character(*,SKG) , intent(in) :: pattern
7116! procedure(logical(LK)) :: iseq
7117! integer(IK) , intent(in) , contiguous :: instance(:)
7118! logical(LK) , intent(in) , optional :: sorted
7119! logical(LK) , intent(in) , optional :: unique
7120! character(:,SKG) , intent(out) , allocatable :: ArrayRemoved
7121! end subroutine
7122!#endif
7123!
7124! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7125!
7126! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7127! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7128! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7129! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7130! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7131! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7132! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7133! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7134! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7135!
7136! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7137!
7138!#if SK5_ENABLED
7139! PURE module subroutine setRemovedDefComDefIns_D1_D0_SK5(ArrayRemoved, array, pattern)
7140!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7141! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK5
7142!#endif
7143! use pm_kind, only: SKG => SK5
7144! character(:,SKG) , intent(inout) , allocatable :: array(:)
7145! character(*,SKG) , intent(in) :: pattern
7146! character(*,SKG) , allocatable :: ArrayRemoved(:)
7147! end subroutine
7148!#endif
7149!
7150!#if SK4_ENABLED
7151! PURE module subroutine setRemovedDefComDefIns_D1_D0_SK4(ArrayRemoved, array, pattern)
7152!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7153! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK4
7154!#endif
7155! use pm_kind, only: SKG => SK4
7156! character(:,SKG) , intent(inout) , allocatable :: array(:)
7157! character(*,SKG) , intent(in) :: pattern
7158! character(*,SKG) , allocatable :: ArrayRemoved(:)
7159! end subroutine
7160!#endif
7161!
7162!#if SK3_ENABLED
7163! PURE module subroutine setRemovedDefComDefIns_D1_D0_SK3(ArrayRemoved, array, pattern)
7164!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7165! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK3
7166!#endif
7167! use pm_kind, only: SKG => SK3
7168! character(:,SKG) , intent(inout) , allocatable :: array(:)
7169! character(*,SKG) , intent(in) :: pattern
7170! character(*,SKG) , allocatable :: ArrayRemoved(:)
7171! end subroutine
7172!#endif
7173!
7174!#if SK2_ENABLED
7175! PURE module subroutine setRemovedDefComDefIns_D1_D0_SK2(ArrayRemoved, array, pattern)
7176!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7177! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK2
7178!#endif
7179! use pm_kind, only: SKG => SK2
7180! character(:,SKG) , intent(inout) , allocatable :: array(:)
7181! character(*,SKG) , intent(in) :: pattern
7182! character(*,SKG) , allocatable :: ArrayRemoved(:)
7183! end subroutine
7184!#endif
7185!
7186!#if SK1_ENABLED
7187! PURE module subroutine setRemovedDefComDefIns_D1_D0_SK1(ArrayRemoved, array, pattern)
7188!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7189! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_SK1
7190!#endif
7191! use pm_kind, only: SKG => SK1
7192! character(:,SKG) , intent(inout) , allocatable :: array(:)
7193! character(*,SKG) , intent(in) :: pattern
7194! character(*,SKG) , allocatable :: ArrayRemoved(:)
7195! end subroutine
7196!#endif
7197!
7198! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7199!
7200!#if IK5_ENABLED
7201! PURE module subroutine setRemovedDefComDefIns_D1_D0_IK5(ArrayRemoved, array, pattern)
7202!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7203! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK5
7204!#endif
7205! use pm_kind, only: IKG => IK5
7206! integer(IKG) , intent(inout) , allocatable :: array(:)
7207! integer(IKG) , intent(in) :: pattern
7208! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7209! end subroutine
7210!#endif
7211!
7212!#if IK4_ENABLED
7213! PURE module subroutine setRemovedDefComDefIns_D1_D0_IK4(ArrayRemoved, array, pattern)
7214!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7215! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK4
7216!#endif
7217! use pm_kind, only: IKG => IK4
7218! integer(IKG) , intent(inout) , allocatable :: array(:)
7219! integer(IKG) , intent(in) :: pattern
7220! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7221! end subroutine
7222!#endif
7223!
7224!#if IK3_ENABLED
7225! PURE module subroutine setRemovedDefComDefIns_D1_D0_IK3(ArrayRemoved, array, pattern)
7226!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7227! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK3
7228!#endif
7229! use pm_kind, only: IKG => IK3
7230! integer(IKG) , intent(inout) , allocatable :: array(:)
7231! integer(IKG) , intent(in) :: pattern
7232! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7233! end subroutine
7234!#endif
7235!
7236!#if IK2_ENABLED
7237! PURE module subroutine setRemovedDefComDefIns_D1_D0_IK2(ArrayRemoved, array, pattern)
7238!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7239! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK2
7240!#endif
7241! use pm_kind, only: IKG => IK2
7242! integer(IKG) , intent(inout) , allocatable :: array(:)
7243! integer(IKG) , intent(in) :: pattern
7244! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7245! end subroutine
7246!#endif
7247!
7248!#if IK1_ENABLED
7249! PURE module subroutine setRemovedDefComDefIns_D1_D0_IK1(ArrayRemoved, array, pattern)
7250!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7251! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_IK1
7252!#endif
7253! use pm_kind, only: IKG => IK1
7254! integer(IKG) , intent(inout) , allocatable :: array(:)
7255! integer(IKG) , intent(in) :: pattern
7256! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7257! end subroutine
7258!#endif
7259!
7260! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7261!
7262!#if LK5_ENABLED
7263! PURE module subroutine setRemovedDefComDefIns_D1_D0_LK5(ArrayRemoved, array, pattern)
7264!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7265! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK5
7266!#endif
7267! use pm_kind, only: LKG => LK5
7268! logical(LKG) , intent(inout) , allocatable :: array(:)
7269! logical(LKG) , intent(in) :: pattern
7270! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7271! end subroutine
7272!#endif
7273!
7274!#if LK4_ENABLED
7275! PURE module subroutine setRemovedDefComDefIns_D1_D0_LK4(ArrayRemoved, array, pattern)
7276!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7277! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK4
7278!#endif
7279! use pm_kind, only: LKG => LK4
7280! logical(LKG) , intent(inout) , allocatable :: array(:)
7281! logical(LKG) , intent(in) :: pattern
7282! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7283! end subroutine
7284!#endif
7285!
7286!#if LK3_ENABLED
7287! PURE module subroutine setRemovedDefComDefIns_D1_D0_LK3(ArrayRemoved, array, pattern)
7288!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7289! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK3
7290!#endif
7291! use pm_kind, only: LKG => LK3
7292! logical(LKG) , intent(inout) , allocatable :: array(:)
7293! logical(LKG) , intent(in) :: pattern
7294! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7295! end subroutine
7296!#endif
7297!
7298!#if LK2_ENABLED
7299! PURE module subroutine setRemovedDefComDefIns_D1_D0_LK2(ArrayRemoved, array, pattern)
7300!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7301! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK2
7302!#endif
7303! use pm_kind, only: LKG => LK2
7304! logical(LKG) , intent(inout) , allocatable :: array(:)
7305! logical(LKG) , intent(in) :: pattern
7306! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7307! end subroutine
7308!#endif
7309!
7310!#if LK1_ENABLED
7311! PURE module subroutine setRemovedDefComDefIns_D1_D0_LK1(ArrayRemoved, array, pattern)
7312!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7313! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_LK1
7314!#endif
7315! use pm_kind, only: LKG => LK1
7316! logical(LKG) , intent(inout) , allocatable :: array(:)
7317! logical(LKG) , intent(in) :: pattern
7318! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7319! end subroutine
7320!#endif
7321!
7322! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7323!
7324!#if CK5_ENABLED
7325! PURE module subroutine setRemovedDefComDefIns_D1_D0_CK5(ArrayRemoved, array, pattern)
7326!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7327! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK5
7328!#endif
7329! use pm_kind, only: CKG => CK5
7330! complex(CKG) , intent(inout) , allocatable :: array(:)
7331! complex(CKG) , intent(in) :: pattern
7332! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7333! end subroutine
7334!#endif
7335!
7336!#if CK4_ENABLED
7337! PURE module subroutine setRemovedDefComDefIns_D1_D0_CK4(ArrayRemoved, array, pattern)
7338!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7339! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK4
7340!#endif
7341! use pm_kind, only: CKG => CK4
7342! complex(CKG) , intent(inout) , allocatable :: array(:)
7343! complex(CKG) , intent(in) :: pattern
7344! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7345! end subroutine
7346!#endif
7347!
7348!#if CK3_ENABLED
7349! PURE module subroutine setRemovedDefComDefIns_D1_D0_CK3(ArrayRemoved, array, pattern)
7350!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7351! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK3
7352!#endif
7353! use pm_kind, only: CKG => CK3
7354! complex(CKG) , intent(inout) , allocatable :: array(:)
7355! complex(CKG) , intent(in) :: pattern
7356! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7357! end subroutine
7358!#endif
7359!
7360!#if CK2_ENABLED
7361! PURE module subroutine setRemovedDefComDefIns_D1_D0_CK2(ArrayRemoved, array, pattern)
7362!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7363! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK2
7364!#endif
7365! use pm_kind, only: CKG => CK2
7366! complex(CKG) , intent(inout) , allocatable :: array(:)
7367! complex(CKG) , intent(in) :: pattern
7368! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7369! end subroutine
7370!#endif
7371!
7372!#if CK1_ENABLED
7373! PURE module subroutine setRemovedDefComDefIns_D1_D0_CK1(ArrayRemoved, array, pattern)
7374!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7375! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_CK1
7376!#endif
7377! use pm_kind, only: CKG => CK1
7378! complex(CKG) , intent(inout) , allocatable :: array(:)
7379! complex(CKG) , intent(in) :: pattern
7380! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7381! end subroutine
7382!#endif
7383!
7384! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7385!
7386!#if RK5_ENABLED
7387! PURE module subroutine setRemovedDefComDefIns_D1_D0_RK5(ArrayRemoved, array, pattern)
7388!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7389! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK5
7390!#endif
7391! use pm_kind, only: RKG => RK5
7392! real(RKG) , intent(inout) , allocatable :: array(:)
7393! real(RKG) , intent(in) :: pattern
7394! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7395! end subroutine
7396!#endif
7397!
7398!#if RK4_ENABLED
7399! PURE module subroutine setRemovedDefComDefIns_D1_D0_RK4(ArrayRemoved, array, pattern)
7400!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7401! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK4
7402!#endif
7403! use pm_kind, only: RKG => RK4
7404! real(RKG) , intent(inout) , allocatable :: array(:)
7405! real(RKG) , intent(in) :: pattern
7406! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7407! end subroutine
7408!#endif
7409!
7410!#if RK3_ENABLED
7411! PURE module subroutine setRemovedDefComDefIns_D1_D0_RK3(ArrayRemoved, array, pattern)
7412!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7413! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK3
7414!#endif
7415! use pm_kind, only: RKG => RK3
7416! real(RKG) , intent(inout) , allocatable :: array(:)
7417! real(RKG) , intent(in) :: pattern
7418! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7419! end subroutine
7420!#endif
7421!
7422!#if RK2_ENABLED
7423! PURE module subroutine setRemovedDefComDefIns_D1_D0_RK2(ArrayRemoved, array, pattern)
7424!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7425! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK2
7426!#endif
7427! use pm_kind, only: RKG => RK2
7428! real(RKG) , intent(inout) , allocatable :: array(:)
7429! real(RKG) , intent(in) :: pattern
7430! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7431! end subroutine
7432!#endif
7433!
7434!#if RK1_ENABLED
7435! PURE module subroutine setRemovedDefComDefIns_D1_D0_RK1(ArrayRemoved, array, pattern)
7436!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7437! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D0_RK1
7438!#endif
7439! use pm_kind, only: RKG => RK1
7440! real(RKG) , intent(inout) , allocatable :: array(:)
7441! real(RKG) , intent(in) :: pattern
7442! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7443! end subroutine
7444!#endif
7445!
7446! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7447!
7448! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7449! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7450! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7451!
7452! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7453!
7454!#if SK5_ENABLED
7455! module subroutine setRemovedCusComDefIns_D1_D0_SK5(ArrayRemoved, array, pattern, iseq)
7456!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7457! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK5
7458!#endif
7459! use pm_kind, only: SKG => SK5
7460! character(:,SKG) , intent(inout) , allocatable :: array(:)
7461! character(*,SKG) , intent(in) :: pattern
7462! procedure(logical(LK)) :: iseq
7463! character(*,SKG) , allocatable :: ArrayRemoved(:)
7464! end subroutine
7465!#endif
7466!
7467!#if SK4_ENABLED
7468! module subroutine setRemovedCusComDefIns_D1_D0_SK4(ArrayRemoved, array, pattern, iseq)
7469!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7470! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK4
7471!#endif
7472! use pm_kind, only: SKG => SK4
7473! character(:,SKG) , intent(inout) , allocatable :: array(:)
7474! character(*,SKG) , intent(in) :: pattern
7475! procedure(logical(LK)) :: iseq
7476! character(*,SKG) , allocatable :: ArrayRemoved(:)
7477! end subroutine
7478!#endif
7479!
7480!#if SK3_ENABLED
7481! module subroutine setRemovedCusComDefIns_D1_D0_SK3(ArrayRemoved, array, pattern, iseq)
7482!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7483! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK3
7484!#endif
7485! use pm_kind, only: SKG => SK3
7486! character(:,SKG) , intent(inout) , allocatable :: array(:)
7487! character(*,SKG) , intent(in) :: pattern
7488! procedure(logical(LK)) :: iseq
7489! character(*,SKG) , allocatable :: ArrayRemoved(:)
7490! end subroutine
7491!#endif
7492!
7493!#if SK2_ENABLED
7494! module subroutine setRemovedCusComDefIns_D1_D0_SK2(ArrayRemoved, array, pattern, iseq)
7495!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7496! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK2
7497!#endif
7498! use pm_kind, only: SKG => SK2
7499! character(:,SKG) , intent(inout) , allocatable :: array(:)
7500! character(*,SKG) , intent(in) :: pattern
7501! procedure(logical(LK)) :: iseq
7502! character(*,SKG) , allocatable :: ArrayRemoved(:)
7503! end subroutine
7504!#endif
7505!
7506!#if SK1_ENABLED
7507! module subroutine setRemovedCusComDefIns_D1_D0_SK1(ArrayRemoved, array, pattern, iseq)
7508!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7509! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_SK1
7510!#endif
7511! use pm_kind, only: SKG => SK1
7512! character(:,SKG) , intent(inout) , allocatable :: array(:)
7513! character(*,SKG) , intent(in) :: pattern
7514! procedure(logical(LK)) :: iseq
7515! character(*,SKG) , allocatable :: ArrayRemoved(:)
7516! end subroutine
7517!#endif
7518!
7519! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7520!
7521!#if IK5_ENABLED
7522! module subroutine setRemovedCusComDefIns_D1_D0_IK5(ArrayRemoved, array, pattern, iseq)
7523!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7524! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK5
7525!#endif
7526! use pm_kind, only: IKG => IK5
7527! integer(IKG) , intent(inout) , allocatable :: array(:)
7528! integer(IKG) , intent(in) :: pattern
7529! procedure(logical(LK)) :: iseq
7530! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7531! end subroutine
7532!#endif
7533!
7534!#if IK4_ENABLED
7535! module subroutine setRemovedCusComDefIns_D1_D0_IK4(ArrayRemoved, array, pattern, iseq)
7536!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7537! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK4
7538!#endif
7539! use pm_kind, only: IKG => IK4
7540! integer(IKG) , intent(inout) , allocatable :: array(:)
7541! integer(IKG) , intent(in) :: pattern
7542! procedure(logical(LK)) :: iseq
7543! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7544! end subroutine
7545!#endif
7546!
7547!#if IK3_ENABLED
7548! module subroutine setRemovedCusComDefIns_D1_D0_IK3(ArrayRemoved, array, pattern, iseq)
7549!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7550! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK3
7551!#endif
7552! use pm_kind, only: IKG => IK3
7553! integer(IKG) , intent(inout) , allocatable :: array(:)
7554! integer(IKG) , intent(in) :: pattern
7555! procedure(logical(LK)) :: iseq
7556! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7557! end subroutine
7558!#endif
7559!
7560!#if IK2_ENABLED
7561! module subroutine setRemovedCusComDefIns_D1_D0_IK2(ArrayRemoved, array, pattern, iseq)
7562!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7563! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK2
7564!#endif
7565! use pm_kind, only: IKG => IK2
7566! integer(IKG) , intent(inout) , allocatable :: array(:)
7567! integer(IKG) , intent(in) :: pattern
7568! procedure(logical(LK)) :: iseq
7569! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7570! end subroutine
7571!#endif
7572!
7573!#if IK1_ENABLED
7574! module subroutine setRemovedCusComDefIns_D1_D0_IK1(ArrayRemoved, array, pattern, iseq)
7575!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7576! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_IK1
7577!#endif
7578! use pm_kind, only: IKG => IK1
7579! integer(IKG) , intent(inout) , allocatable :: array(:)
7580! integer(IKG) , intent(in) :: pattern
7581! procedure(logical(LK)) :: iseq
7582! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7583! end subroutine
7584!#endif
7585!
7586! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7587!
7588!#if LK5_ENABLED
7589! module subroutine setRemovedCusComDefIns_D1_D0_LK5(ArrayRemoved, array, pattern, iseq)
7590!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7591! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK5
7592!#endif
7593! use pm_kind, only: LKG => LK5
7594! logical(LKG) , intent(inout) , allocatable :: array(:)
7595! logical(LKG) , intent(in) :: pattern
7596! procedure(logical(LK)) :: iseq
7597! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7598! end subroutine
7599!#endif
7600!
7601!#if LK4_ENABLED
7602! module subroutine setRemovedCusComDefIns_D1_D0_LK4(ArrayRemoved, array, pattern, iseq)
7603!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7604! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK4
7605!#endif
7606! use pm_kind, only: LKG => LK4
7607! logical(LKG) , intent(inout) , allocatable :: array(:)
7608! logical(LKG) , intent(in) :: pattern
7609! procedure(logical(LK)) :: iseq
7610! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7611! end subroutine
7612!#endif
7613!
7614!#if LK3_ENABLED
7615! module subroutine setRemovedCusComDefIns_D1_D0_LK3(ArrayRemoved, array, pattern, iseq)
7616!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7617! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK3
7618!#endif
7619! use pm_kind, only: LKG => LK3
7620! logical(LKG) , intent(inout) , allocatable :: array(:)
7621! logical(LKG) , intent(in) :: pattern
7622! procedure(logical(LK)) :: iseq
7623! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7624! end subroutine
7625!#endif
7626!
7627!#if LK2_ENABLED
7628! module subroutine setRemovedCusComDefIns_D1_D0_LK2(ArrayRemoved, array, pattern, iseq)
7629!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7630! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK2
7631!#endif
7632! use pm_kind, only: LKG => LK2
7633! logical(LKG) , intent(inout) , allocatable :: array(:)
7634! logical(LKG) , intent(in) :: pattern
7635! procedure(logical(LK)) :: iseq
7636! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7637! end subroutine
7638!#endif
7639!
7640!#if LK1_ENABLED
7641! module subroutine setRemovedCusComDefIns_D1_D0_LK1(ArrayRemoved, array, pattern, iseq)
7642!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7643! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_LK1
7644!#endif
7645! use pm_kind, only: LKG => LK1
7646! logical(LKG) , intent(inout) , allocatable :: array(:)
7647! logical(LKG) , intent(in) :: pattern
7648! procedure(logical(LK)) :: iseq
7649! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7650! end subroutine
7651!#endif
7652!
7653! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7654!
7655!#if CK5_ENABLED
7656! module subroutine setRemovedCusComDefIns_D1_D0_CK5(ArrayRemoved, array, pattern, iseq)
7657!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7658! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK5
7659!#endif
7660! use pm_kind, only: CKG => CK5
7661! complex(CKG) , intent(inout) , allocatable :: array(:)
7662! complex(CKG) , intent(in) :: pattern
7663! procedure(logical(LK)) :: iseq
7664! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7665! end subroutine
7666!#endif
7667!
7668!#if CK4_ENABLED
7669! module subroutine setRemovedCusComDefIns_D1_D0_CK4(ArrayRemoved, array, pattern, iseq)
7670!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7671! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK4
7672!#endif
7673! use pm_kind, only: CKG => CK4
7674! complex(CKG) , intent(inout) , allocatable :: array(:)
7675! complex(CKG) , intent(in) :: pattern
7676! procedure(logical(LK)) :: iseq
7677! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7678! end subroutine
7679!#endif
7680!
7681!#if CK3_ENABLED
7682! module subroutine setRemovedCusComDefIns_D1_D0_CK3(ArrayRemoved, array, pattern, iseq)
7683!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7684! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK3
7685!#endif
7686! use pm_kind, only: CKG => CK3
7687! complex(CKG) , intent(inout) , allocatable :: array(:)
7688! complex(CKG) , intent(in) :: pattern
7689! procedure(logical(LK)) :: iseq
7690! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7691! end subroutine
7692!#endif
7693!
7694!#if CK2_ENABLED
7695! module subroutine setRemovedCusComDefIns_D1_D0_CK2(ArrayRemoved, array, pattern, iseq)
7696!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7697! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK2
7698!#endif
7699! use pm_kind, only: CKG => CK2
7700! complex(CKG) , intent(inout) , allocatable :: array(:)
7701! complex(CKG) , intent(in) :: pattern
7702! procedure(logical(LK)) :: iseq
7703! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7704! end subroutine
7705!#endif
7706!
7707!#if CK1_ENABLED
7708! module subroutine setRemovedCusComDefIns_D1_D0_CK1(ArrayRemoved, array, pattern, iseq)
7709!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7710! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_CK1
7711!#endif
7712! use pm_kind, only: CKG => CK1
7713! complex(CKG) , intent(inout) , allocatable :: array(:)
7714! complex(CKG) , intent(in) :: pattern
7715! procedure(logical(LK)) :: iseq
7716! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
7717! end subroutine
7718!#endif
7719!
7720! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7721!
7722!#if RK5_ENABLED
7723! module subroutine setRemovedCusComDefIns_D1_D0_RK5(ArrayRemoved, array, pattern, iseq)
7724!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7725! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK5
7726!#endif
7727! use pm_kind, only: RKG => RK5
7728! real(RKG) , intent(inout) , allocatable :: array(:)
7729! real(RKG) , intent(in) :: pattern
7730! procedure(logical(LK)) :: iseq
7731! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7732! end subroutine
7733!#endif
7734!
7735!#if RK4_ENABLED
7736! module subroutine setRemovedCusComDefIns_D1_D0_RK4(ArrayRemoved, array, pattern, iseq)
7737!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7738! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK4
7739!#endif
7740! use pm_kind, only: RKG => RK4
7741! real(RKG) , intent(inout) , allocatable :: array(:)
7742! real(RKG) , intent(in) :: pattern
7743! procedure(logical(LK)) :: iseq
7744! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7745! end subroutine
7746!#endif
7747!
7748!#if RK3_ENABLED
7749! module subroutine setRemovedCusComDefIns_D1_D0_RK3(ArrayRemoved, array, pattern, iseq)
7750!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7751! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK3
7752!#endif
7753! use pm_kind, only: RKG => RK3
7754! real(RKG) , intent(inout) , allocatable :: array(:)
7755! real(RKG) , intent(in) :: pattern
7756! procedure(logical(LK)) :: iseq
7757! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7758! end subroutine
7759!#endif
7760!
7761!#if RK2_ENABLED
7762! module subroutine setRemovedCusComDefIns_D1_D0_RK2(ArrayRemoved, array, pattern, iseq)
7763!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7764! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK2
7765!#endif
7766! use pm_kind, only: RKG => RK2
7767! real(RKG) , intent(inout) , allocatable :: array(:)
7768! real(RKG) , intent(in) :: pattern
7769! procedure(logical(LK)) :: iseq
7770! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7771! end subroutine
7772!#endif
7773!
7774!#if RK1_ENABLED
7775! module subroutine setRemovedCusComDefIns_D1_D0_RK1(ArrayRemoved, array, pattern, iseq)
7776!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7777! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D0_RK1
7778!#endif
7779! use pm_kind, only: RKG => RK1
7780! real(RKG) , intent(inout) , allocatable :: array(:)
7781! real(RKG) , intent(in) :: pattern
7782! procedure(logical(LK)) :: iseq
7783! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
7784! end subroutine
7785!#endif
7786!
7787! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7788!
7789! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7790! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7791! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7792!
7793! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7794!
7795!#if SK5_ENABLED
7796! PURE module subroutine setRemovedDefComCusIns_D1_D0_SK5(ArrayRemoved, array, pattern, instance, sorted, unique)
7797!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7798! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK5
7799!#endif
7800! use pm_kind, only: SKG => SK5
7801! character(:,SKG) , intent(inout) , allocatable :: array(:)
7802! character(*,SKG) , intent(in) :: pattern
7803! integer(IK) , intent(in) , contiguous :: instance(:)
7804! logical(LK) , intent(in) , optional :: sorted
7805! logical(LK) , intent(in) , optional :: unique
7806! character(*,SKG) , allocatable :: ArrayRemoved(:)
7807! end subroutine
7808!#endif
7809!
7810!#if SK4_ENABLED
7811! PURE module subroutine setRemovedDefComCusIns_D1_D0_SK4(ArrayRemoved, array, pattern, instance, sorted, unique)
7812!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7813! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK4
7814!#endif
7815! use pm_kind, only: SKG => SK4
7816! character(:,SKG) , intent(inout) , allocatable :: array(:)
7817! character(*,SKG) , intent(in) :: pattern
7818! integer(IK) , intent(in) , contiguous :: instance(:)
7819! logical(LK) , intent(in) , optional :: sorted
7820! logical(LK) , intent(in) , optional :: unique
7821! character(*,SKG) , allocatable :: ArrayRemoved(:)
7822! end subroutine
7823!#endif
7824!
7825!#if SK3_ENABLED
7826! PURE module subroutine setRemovedDefComCusIns_D1_D0_SK3(ArrayRemoved, array, pattern, instance, sorted, unique)
7827!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7828! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK3
7829!#endif
7830! use pm_kind, only: SKG => SK3
7831! character(:,SKG) , intent(inout) , allocatable :: array(:)
7832! character(*,SKG) , intent(in) :: pattern
7833! integer(IK) , intent(in) , contiguous :: instance(:)
7834! logical(LK) , intent(in) , optional :: sorted
7835! logical(LK) , intent(in) , optional :: unique
7836! character(*,SKG) , allocatable :: ArrayRemoved(:)
7837! end subroutine
7838!#endif
7839!
7840!#if SK2_ENABLED
7841! PURE module subroutine setRemovedDefComCusIns_D1_D0_SK2(ArrayRemoved, array, pattern, instance, sorted, unique)
7842!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7843! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK2
7844!#endif
7845! use pm_kind, only: SKG => SK2
7846! character(:,SKG) , intent(inout) , allocatable :: array(:)
7847! character(*,SKG) , intent(in) :: pattern
7848! integer(IK) , intent(in) , contiguous :: instance(:)
7849! logical(LK) , intent(in) , optional :: sorted
7850! logical(LK) , intent(in) , optional :: unique
7851! character(*,SKG) , allocatable :: ArrayRemoved(:)
7852! end subroutine
7853!#endif
7854!
7855!#if SK1_ENABLED
7856! PURE module subroutine setRemovedDefComCusIns_D1_D0_SK1(ArrayRemoved, array, pattern, instance, sorted, unique)
7857!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7858! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_SK1
7859!#endif
7860! use pm_kind, only: SKG => SK1
7861! character(:,SKG) , intent(inout) , allocatable :: array(:)
7862! character(*,SKG) , intent(in) :: pattern
7863! integer(IK) , intent(in) , contiguous :: instance(:)
7864! logical(LK) , intent(in) , optional :: sorted
7865! logical(LK) , intent(in) , optional :: unique
7866! character(*,SKG) , allocatable :: ArrayRemoved(:)
7867! end subroutine
7868!#endif
7869!
7870! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7871!
7872!#if IK5_ENABLED
7873! PURE module subroutine setRemovedDefComCusIns_D1_D0_IK5(ArrayRemoved, array, pattern, instance, sorted, unique)
7874!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7875! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK5
7876!#endif
7877! use pm_kind, only: IKG => IK5
7878! integer(IKG) , intent(inout) , allocatable :: array(:)
7879! integer(IKG) , intent(in) :: pattern
7880! integer(IK) , intent(in) , contiguous :: instance(:)
7881! logical(LK) , intent(in) , optional :: sorted
7882! logical(LK) , intent(in) , optional :: unique
7883! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7884! end subroutine
7885!#endif
7886!
7887!#if IK4_ENABLED
7888! PURE module subroutine setRemovedDefComCusIns_D1_D0_IK4(ArrayRemoved, array, pattern, instance, sorted, unique)
7889!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7890! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK4
7891!#endif
7892! use pm_kind, only: IKG => IK4
7893! integer(IKG) , intent(inout) , allocatable :: array(:)
7894! integer(IKG) , intent(in) :: pattern
7895! integer(IK) , intent(in) , contiguous :: instance(:)
7896! logical(LK) , intent(in) , optional :: sorted
7897! logical(LK) , intent(in) , optional :: unique
7898! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7899! end subroutine
7900!#endif
7901!
7902!#if IK3_ENABLED
7903! PURE module subroutine setRemovedDefComCusIns_D1_D0_IK3(ArrayRemoved, array, pattern, instance, sorted, unique)
7904!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7905! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK3
7906!#endif
7907! use pm_kind, only: IKG => IK3
7908! integer(IKG) , intent(inout) , allocatable :: array(:)
7909! integer(IKG) , intent(in) :: pattern
7910! integer(IK) , intent(in) , contiguous :: instance(:)
7911! logical(LK) , intent(in) , optional :: sorted
7912! logical(LK) , intent(in) , optional :: unique
7913! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7914! end subroutine
7915!#endif
7916!
7917!#if IK2_ENABLED
7918! PURE module subroutine setRemovedDefComCusIns_D1_D0_IK2(ArrayRemoved, array, pattern, instance, sorted, unique)
7919!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7920! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK2
7921!#endif
7922! use pm_kind, only: IKG => IK2
7923! integer(IKG) , intent(inout) , allocatable :: array(:)
7924! integer(IKG) , intent(in) :: pattern
7925! integer(IK) , intent(in) , contiguous :: instance(:)
7926! logical(LK) , intent(in) , optional :: sorted
7927! logical(LK) , intent(in) , optional :: unique
7928! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7929! end subroutine
7930!#endif
7931!
7932!#if IK1_ENABLED
7933! PURE module subroutine setRemovedDefComCusIns_D1_D0_IK1(ArrayRemoved, array, pattern, instance, sorted, unique)
7934!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7935! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_IK1
7936!#endif
7937! use pm_kind, only: IKG => IK1
7938! integer(IKG) , intent(inout) , allocatable :: array(:)
7939! integer(IKG) , intent(in) :: pattern
7940! integer(IK) , intent(in) , contiguous :: instance(:)
7941! logical(LK) , intent(in) , optional :: sorted
7942! logical(LK) , intent(in) , optional :: unique
7943! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
7944! end subroutine
7945!#endif
7946!
7947! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7948!
7949!#if LK5_ENABLED
7950! PURE module subroutine setRemovedDefComCusIns_D1_D0_LK5(ArrayRemoved, array, pattern, instance, sorted, unique)
7951!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7952! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK5
7953!#endif
7954! use pm_kind, only: LKG => LK5
7955! logical(LKG) , intent(inout) , allocatable :: array(:)
7956! logical(LKG) , intent(in) :: pattern
7957! integer(IK) , intent(in) , contiguous :: instance(:)
7958! logical(LK) , intent(in) , optional :: sorted
7959! logical(LK) , intent(in) , optional :: unique
7960! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7961! end subroutine
7962!#endif
7963!
7964!#if LK4_ENABLED
7965! PURE module subroutine setRemovedDefComCusIns_D1_D0_LK4(ArrayRemoved, array, pattern, instance, sorted, unique)
7966!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7967! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK4
7968!#endif
7969! use pm_kind, only: LKG => LK4
7970! logical(LKG) , intent(inout) , allocatable :: array(:)
7971! logical(LKG) , intent(in) :: pattern
7972! integer(IK) , intent(in) , contiguous :: instance(:)
7973! logical(LK) , intent(in) , optional :: sorted
7974! logical(LK) , intent(in) , optional :: unique
7975! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7976! end subroutine
7977!#endif
7978!
7979!#if LK3_ENABLED
7980! PURE module subroutine setRemovedDefComCusIns_D1_D0_LK3(ArrayRemoved, array, pattern, instance, sorted, unique)
7981!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7982! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK3
7983!#endif
7984! use pm_kind, only: LKG => LK3
7985! logical(LKG) , intent(inout) , allocatable :: array(:)
7986! logical(LKG) , intent(in) :: pattern
7987! integer(IK) , intent(in) , contiguous :: instance(:)
7988! logical(LK) , intent(in) , optional :: sorted
7989! logical(LK) , intent(in) , optional :: unique
7990! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
7991! end subroutine
7992!#endif
7993!
7994!#if LK2_ENABLED
7995! PURE module subroutine setRemovedDefComCusIns_D1_D0_LK2(ArrayRemoved, array, pattern, instance, sorted, unique)
7996!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7997! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK2
7998!#endif
7999! use pm_kind, only: LKG => LK2
8000! logical(LKG) , intent(inout) , allocatable :: array(:)
8001! logical(LKG) , intent(in) :: pattern
8002! integer(IK) , intent(in) , contiguous :: instance(:)
8003! logical(LK) , intent(in) , optional :: sorted
8004! logical(LK) , intent(in) , optional :: unique
8005! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8006! end subroutine
8007!#endif
8008!
8009!#if LK1_ENABLED
8010! PURE module subroutine setRemovedDefComCusIns_D1_D0_LK1(ArrayRemoved, array, pattern, instance, sorted, unique)
8011!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8012! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_LK1
8013!#endif
8014! use pm_kind, only: LKG => LK1
8015! logical(LKG) , intent(inout) , allocatable :: array(:)
8016! logical(LKG) , intent(in) :: pattern
8017! integer(IK) , intent(in) , contiguous :: instance(:)
8018! logical(LK) , intent(in) , optional :: sorted
8019! logical(LK) , intent(in) , optional :: unique
8020! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8021! end subroutine
8022!#endif
8023!
8024! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8025!
8026!#if CK5_ENABLED
8027! PURE module subroutine setRemovedDefComCusIns_D1_D0_CK5(ArrayRemoved, array, pattern, instance, sorted, unique)
8028!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8029! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK5
8030!#endif
8031! use pm_kind, only: CKG => CK5
8032! complex(CKG) , intent(inout) , allocatable :: array(:)
8033! complex(CKG) , intent(in) :: pattern
8034! integer(IK) , intent(in) , contiguous :: instance(:)
8035! logical(LK) , intent(in) , optional :: sorted
8036! logical(LK) , intent(in) , optional :: unique
8037! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8038! end subroutine
8039!#endif
8040!
8041!#if CK4_ENABLED
8042! PURE module subroutine setRemovedDefComCusIns_D1_D0_CK4(ArrayRemoved, array, pattern, instance, sorted, unique)
8043!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8044! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK4
8045!#endif
8046! use pm_kind, only: CKG => CK4
8047! complex(CKG) , intent(inout) , allocatable :: array(:)
8048! complex(CKG) , intent(in) :: pattern
8049! integer(IK) , intent(in) , contiguous :: instance(:)
8050! logical(LK) , intent(in) , optional :: sorted
8051! logical(LK) , intent(in) , optional :: unique
8052! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8053! end subroutine
8054!#endif
8055!
8056!#if CK3_ENABLED
8057! PURE module subroutine setRemovedDefComCusIns_D1_D0_CK3(ArrayRemoved, array, pattern, instance, sorted, unique)
8058!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8059! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK3
8060!#endif
8061! use pm_kind, only: CKG => CK3
8062! complex(CKG) , intent(inout) , allocatable :: array(:)
8063! complex(CKG) , intent(in) :: pattern
8064! integer(IK) , intent(in) , contiguous :: instance(:)
8065! logical(LK) , intent(in) , optional :: sorted
8066! logical(LK) , intent(in) , optional :: unique
8067! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8068! end subroutine
8069!#endif
8070!
8071!#if CK2_ENABLED
8072! PURE module subroutine setRemovedDefComCusIns_D1_D0_CK2(ArrayRemoved, array, pattern, instance, sorted, unique)
8073!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8074! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK2
8075!#endif
8076! use pm_kind, only: CKG => CK2
8077! complex(CKG) , intent(inout) , allocatable :: array(:)
8078! complex(CKG) , intent(in) :: pattern
8079! integer(IK) , intent(in) , contiguous :: instance(:)
8080! logical(LK) , intent(in) , optional :: sorted
8081! logical(LK) , intent(in) , optional :: unique
8082! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8083! end subroutine
8084!#endif
8085!
8086!#if CK1_ENABLED
8087! PURE module subroutine setRemovedDefComCusIns_D1_D0_CK1(ArrayRemoved, array, pattern, instance, sorted, unique)
8088!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8089! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_CK1
8090!#endif
8091! use pm_kind, only: CKG => CK1
8092! complex(CKG) , intent(inout) , allocatable :: array(:)
8093! complex(CKG) , intent(in) :: pattern
8094! integer(IK) , intent(in) , contiguous :: instance(:)
8095! logical(LK) , intent(in) , optional :: sorted
8096! logical(LK) , intent(in) , optional :: unique
8097! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8098! end subroutine
8099!#endif
8100!
8101! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8102!
8103!#if RK5_ENABLED
8104! PURE module subroutine setRemovedDefComCusIns_D1_D0_RK5(ArrayRemoved, array, pattern, instance, sorted, unique)
8105!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8106! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK5
8107!#endif
8108! use pm_kind, only: RKG => RK5
8109! real(RKG) , intent(inout) , allocatable :: array(:)
8110! real(RKG) , intent(in) :: pattern
8111! integer(IK) , intent(in) , contiguous :: instance(:)
8112! logical(LK) , intent(in) , optional :: sorted
8113! logical(LK) , intent(in) , optional :: unique
8114! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8115! end subroutine
8116!#endif
8117!
8118!#if RK4_ENABLED
8119! PURE module subroutine setRemovedDefComCusIns_D1_D0_RK4(ArrayRemoved, array, pattern, instance, sorted, unique)
8120!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8121! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK4
8122!#endif
8123! use pm_kind, only: RKG => RK4
8124! real(RKG) , intent(inout) , allocatable :: array(:)
8125! real(RKG) , intent(in) :: pattern
8126! integer(IK) , intent(in) , contiguous :: instance(:)
8127! logical(LK) , intent(in) , optional :: sorted
8128! logical(LK) , intent(in) , optional :: unique
8129! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8130! end subroutine
8131!#endif
8132!
8133!#if RK3_ENABLED
8134! PURE module subroutine setRemovedDefComCusIns_D1_D0_RK3(ArrayRemoved, array, pattern, instance, sorted, unique)
8135!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8136! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK3
8137!#endif
8138! use pm_kind, only: RKG => RK3
8139! real(RKG) , intent(inout) , allocatable :: array(:)
8140! real(RKG) , intent(in) :: pattern
8141! integer(IK) , intent(in) , contiguous :: instance(:)
8142! logical(LK) , intent(in) , optional :: sorted
8143! logical(LK) , intent(in) , optional :: unique
8144! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8145! end subroutine
8146!#endif
8147!
8148!#if RK2_ENABLED
8149! PURE module subroutine setRemovedDefComCusIns_D1_D0_RK2(ArrayRemoved, array, pattern, instance, sorted, unique)
8150!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8151! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK2
8152!#endif
8153! use pm_kind, only: RKG => RK2
8154! real(RKG) , intent(inout) , allocatable :: array(:)
8155! real(RKG) , intent(in) :: pattern
8156! integer(IK) , intent(in) , contiguous :: instance(:)
8157! logical(LK) , intent(in) , optional :: sorted
8158! logical(LK) , intent(in) , optional :: unique
8159! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8160! end subroutine
8161!#endif
8162!
8163!#if RK1_ENABLED
8164! PURE module subroutine setRemovedDefComCusIns_D1_D0_RK1(ArrayRemoved, array, pattern, instance, sorted, unique)
8165!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8166! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D0_RK1
8167!#endif
8168! use pm_kind, only: RKG => RK1
8169! real(RKG) , intent(inout) , allocatable :: array(:)
8170! real(RKG) , intent(in) :: pattern
8171! integer(IK) , intent(in) , contiguous :: instance(:)
8172! logical(LK) , intent(in) , optional :: sorted
8173! logical(LK) , intent(in) , optional :: unique
8174! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8175! end subroutine
8176!#endif
8177!
8178! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8179!
8180! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8181! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8182! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8183!
8184! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8185!
8186!#if SK5_ENABLED
8187! module subroutine setRemovedCusComCusIns_D1_D0_SK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8188!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8189! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK5
8190!#endif
8191! use pm_kind, only: SKG => SK5
8192! character(:,SKG) , intent(inout) , allocatable :: array(:)
8193! character(*,SKG) , intent(in) :: pattern
8194! procedure(logical(LK)) :: iseq
8195! integer(IK) , intent(in) , contiguous :: instance(:)
8196! logical(LK) , intent(in) , optional :: sorted
8197! logical(LK) , intent(in) , optional :: unique
8198! character(*,SKG) , allocatable :: ArrayRemoved(:)
8199! end subroutine
8200!#endif
8201!
8202!#if SK4_ENABLED
8203! module subroutine setRemovedCusComCusIns_D1_D0_SK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8204!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8205! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK4
8206!#endif
8207! use pm_kind, only: SKG => SK4
8208! character(:,SKG) , intent(inout) , allocatable :: array(:)
8209! character(*,SKG) , intent(in) :: pattern
8210! procedure(logical(LK)) :: iseq
8211! integer(IK) , intent(in) , contiguous :: instance(:)
8212! logical(LK) , intent(in) , optional :: sorted
8213! logical(LK) , intent(in) , optional :: unique
8214! character(*,SKG) , allocatable :: ArrayRemoved(:)
8215! end subroutine
8216!#endif
8217!
8218!#if SK3_ENABLED
8219! module subroutine setRemovedCusComCusIns_D1_D0_SK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8220!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8221! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK3
8222!#endif
8223! use pm_kind, only: SKG => SK3
8224! character(:,SKG) , intent(inout) , allocatable :: array(:)
8225! character(*,SKG) , intent(in) :: pattern
8226! procedure(logical(LK)) :: iseq
8227! integer(IK) , intent(in) , contiguous :: instance(:)
8228! logical(LK) , intent(in) , optional :: sorted
8229! logical(LK) , intent(in) , optional :: unique
8230! character(*,SKG) , allocatable :: ArrayRemoved(:)
8231! end subroutine
8232!#endif
8233!
8234!#if SK2_ENABLED
8235! module subroutine setRemovedCusComCusIns_D1_D0_SK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8236!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8237! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK2
8238!#endif
8239! use pm_kind, only: SKG => SK2
8240! character(:,SKG) , intent(inout) , allocatable :: array(:)
8241! character(*,SKG) , intent(in) :: pattern
8242! procedure(logical(LK)) :: iseq
8243! integer(IK) , intent(in) , contiguous :: instance(:)
8244! logical(LK) , intent(in) , optional :: sorted
8245! logical(LK) , intent(in) , optional :: unique
8246! character(*,SKG) , allocatable :: ArrayRemoved(:)
8247! end subroutine
8248!#endif
8249!
8250!#if SK1_ENABLED
8251! module subroutine setRemovedCusComCusIns_D1_D0_SK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8252!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8253! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_SK1
8254!#endif
8255! use pm_kind, only: SKG => SK1
8256! character(:,SKG) , intent(inout) , allocatable :: array(:)
8257! character(*,SKG) , intent(in) :: pattern
8258! procedure(logical(LK)) :: iseq
8259! integer(IK) , intent(in) , contiguous :: instance(:)
8260! logical(LK) , intent(in) , optional :: sorted
8261! logical(LK) , intent(in) , optional :: unique
8262! character(*,SKG) , allocatable :: ArrayRemoved(:)
8263! end subroutine
8264!#endif
8265!
8266! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8267!
8268!#if IK5_ENABLED
8269! module subroutine setRemovedCusComCusIns_D1_D0_IK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8270!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8271! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK5
8272!#endif
8273! use pm_kind, only: IKG => IK5
8274! integer(IKG) , intent(inout) , allocatable :: array(:)
8275! integer(IKG) , intent(in) :: pattern
8276! procedure(logical(LK)) :: iseq
8277! integer(IK) , intent(in) , contiguous :: instance(:)
8278! logical(LK) , intent(in) , optional :: sorted
8279! logical(LK) , intent(in) , optional :: unique
8280! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8281! end subroutine
8282!#endif
8283!
8284!#if IK4_ENABLED
8285! module subroutine setRemovedCusComCusIns_D1_D0_IK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8286!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8287! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK4
8288!#endif
8289! use pm_kind, only: IKG => IK4
8290! integer(IKG) , intent(inout) , allocatable :: array(:)
8291! integer(IKG) , intent(in) :: pattern
8292! procedure(logical(LK)) :: iseq
8293! integer(IK) , intent(in) , contiguous :: instance(:)
8294! logical(LK) , intent(in) , optional :: sorted
8295! logical(LK) , intent(in) , optional :: unique
8296! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8297! end subroutine
8298!#endif
8299!
8300!#if IK3_ENABLED
8301! module subroutine setRemovedCusComCusIns_D1_D0_IK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8302!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8303! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK3
8304!#endif
8305! use pm_kind, only: IKG => IK3
8306! integer(IKG) , intent(inout) , allocatable :: array(:)
8307! integer(IKG) , intent(in) :: pattern
8308! procedure(logical(LK)) :: iseq
8309! integer(IK) , intent(in) , contiguous :: instance(:)
8310! logical(LK) , intent(in) , optional :: sorted
8311! logical(LK) , intent(in) , optional :: unique
8312! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8313! end subroutine
8314!#endif
8315!
8316!#if IK2_ENABLED
8317! module subroutine setRemovedCusComCusIns_D1_D0_IK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8318!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8319! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK2
8320!#endif
8321! use pm_kind, only: IKG => IK2
8322! integer(IKG) , intent(inout) , allocatable :: array(:)
8323! integer(IKG) , intent(in) :: pattern
8324! procedure(logical(LK)) :: iseq
8325! integer(IK) , intent(in) , contiguous :: instance(:)
8326! logical(LK) , intent(in) , optional :: sorted
8327! logical(LK) , intent(in) , optional :: unique
8328! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8329! end subroutine
8330!#endif
8331!
8332!#if IK1_ENABLED
8333! module subroutine setRemovedCusComCusIns_D1_D0_IK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8334!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8335! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_IK1
8336!#endif
8337! use pm_kind, only: IKG => IK1
8338! integer(IKG) , intent(inout) , allocatable :: array(:)
8339! integer(IKG) , intent(in) :: pattern
8340! procedure(logical(LK)) :: iseq
8341! integer(IK) , intent(in) , contiguous :: instance(:)
8342! logical(LK) , intent(in) , optional :: sorted
8343! logical(LK) , intent(in) , optional :: unique
8344! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8345! end subroutine
8346!#endif
8347!
8348! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8349!
8350!#if LK5_ENABLED
8351! module subroutine setRemovedCusComCusIns_D1_D0_LK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8352!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8353! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK5
8354!#endif
8355! use pm_kind, only: LKG => LK5
8356! logical(LKG) , intent(inout) , allocatable :: array(:)
8357! logical(LKG) , intent(in) :: pattern
8358! procedure(logical(LK)) :: iseq
8359! integer(IK) , intent(in) , contiguous :: instance(:)
8360! logical(LK) , intent(in) , optional :: sorted
8361! logical(LK) , intent(in) , optional :: unique
8362! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8363! end subroutine
8364!#endif
8365!
8366!#if LK4_ENABLED
8367! module subroutine setRemovedCusComCusIns_D1_D0_LK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8368!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8369! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK4
8370!#endif
8371! use pm_kind, only: LKG => LK4
8372! logical(LKG) , intent(inout) , allocatable :: array(:)
8373! logical(LKG) , intent(in) :: pattern
8374! procedure(logical(LK)) :: iseq
8375! integer(IK) , intent(in) , contiguous :: instance(:)
8376! logical(LK) , intent(in) , optional :: sorted
8377! logical(LK) , intent(in) , optional :: unique
8378! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8379! end subroutine
8380!#endif
8381!
8382!#if LK3_ENABLED
8383! module subroutine setRemovedCusComCusIns_D1_D0_LK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8384!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8385! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK3
8386!#endif
8387! use pm_kind, only: LKG => LK3
8388! logical(LKG) , intent(inout) , allocatable :: array(:)
8389! logical(LKG) , intent(in) :: pattern
8390! procedure(logical(LK)) :: iseq
8391! integer(IK) , intent(in) , contiguous :: instance(:)
8392! logical(LK) , intent(in) , optional :: sorted
8393! logical(LK) , intent(in) , optional :: unique
8394! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8395! end subroutine
8396!#endif
8397!
8398!#if LK2_ENABLED
8399! module subroutine setRemovedCusComCusIns_D1_D0_LK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8400!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8401! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK2
8402!#endif
8403! use pm_kind, only: LKG => LK2
8404! logical(LKG) , intent(inout) , allocatable :: array(:)
8405! logical(LKG) , intent(in) :: pattern
8406! procedure(logical(LK)) :: iseq
8407! integer(IK) , intent(in) , contiguous :: instance(:)
8408! logical(LK) , intent(in) , optional :: sorted
8409! logical(LK) , intent(in) , optional :: unique
8410! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8411! end subroutine
8412!#endif
8413!
8414!#if LK1_ENABLED
8415! module subroutine setRemovedCusComCusIns_D1_D0_LK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8416!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8417! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_LK1
8418!#endif
8419! use pm_kind, only: LKG => LK1
8420! logical(LKG) , intent(inout) , allocatable :: array(:)
8421! logical(LKG) , intent(in) :: pattern
8422! procedure(logical(LK)) :: iseq
8423! integer(IK) , intent(in) , contiguous :: instance(:)
8424! logical(LK) , intent(in) , optional :: sorted
8425! logical(LK) , intent(in) , optional :: unique
8426! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8427! end subroutine
8428!#endif
8429!
8430! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8431!
8432!#if CK5_ENABLED
8433! module subroutine setRemovedCusComCusIns_D1_D0_CK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8434!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8435! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK5
8436!#endif
8437! use pm_kind, only: CKG => CK5
8438! complex(CKG) , intent(inout) , allocatable :: array(:)
8439! complex(CKG) , intent(in) :: pattern
8440! procedure(logical(LK)) :: iseq
8441! integer(IK) , intent(in) , contiguous :: instance(:)
8442! logical(LK) , intent(in) , optional :: sorted
8443! logical(LK) , intent(in) , optional :: unique
8444! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8445! end subroutine
8446!#endif
8447!
8448!#if CK4_ENABLED
8449! module subroutine setRemovedCusComCusIns_D1_D0_CK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8450!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8451! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK4
8452!#endif
8453! use pm_kind, only: CKG => CK4
8454! complex(CKG) , intent(inout) , allocatable :: array(:)
8455! complex(CKG) , intent(in) :: pattern
8456! procedure(logical(LK)) :: iseq
8457! integer(IK) , intent(in) , contiguous :: instance(:)
8458! logical(LK) , intent(in) , optional :: sorted
8459! logical(LK) , intent(in) , optional :: unique
8460! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8461! end subroutine
8462!#endif
8463!
8464!#if CK3_ENABLED
8465! module subroutine setRemovedCusComCusIns_D1_D0_CK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8466!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8467! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK3
8468!#endif
8469! use pm_kind, only: CKG => CK3
8470! complex(CKG) , intent(inout) , allocatable :: array(:)
8471! complex(CKG) , intent(in) :: pattern
8472! procedure(logical(LK)) :: iseq
8473! integer(IK) , intent(in) , contiguous :: instance(:)
8474! logical(LK) , intent(in) , optional :: sorted
8475! logical(LK) , intent(in) , optional :: unique
8476! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8477! end subroutine
8478!#endif
8479!
8480!#if CK2_ENABLED
8481! module subroutine setRemovedCusComCusIns_D1_D0_CK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8482!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8483! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK2
8484!#endif
8485! use pm_kind, only: CKG => CK2
8486! complex(CKG) , intent(inout) , allocatable :: array(:)
8487! complex(CKG) , intent(in) :: pattern
8488! procedure(logical(LK)) :: iseq
8489! integer(IK) , intent(in) , contiguous :: instance(:)
8490! logical(LK) , intent(in) , optional :: sorted
8491! logical(LK) , intent(in) , optional :: unique
8492! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8493! end subroutine
8494!#endif
8495!
8496!#if CK1_ENABLED
8497! module subroutine setRemovedCusComCusIns_D1_D0_CK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8498!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8499! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_CK1
8500!#endif
8501! use pm_kind, only: CKG => CK1
8502! complex(CKG) , intent(inout) , allocatable :: array(:)
8503! complex(CKG) , intent(in) :: pattern
8504! procedure(logical(LK)) :: iseq
8505! integer(IK) , intent(in) , contiguous :: instance(:)
8506! logical(LK) , intent(in) , optional :: sorted
8507! logical(LK) , intent(in) , optional :: unique
8508! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8509! end subroutine
8510!#endif
8511!
8512! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8513!
8514!#if RK5_ENABLED
8515! module subroutine setRemovedCusComCusIns_D1_D0_RK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8516!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8517! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK5
8518!#endif
8519! use pm_kind, only: RKG => RK5
8520! real(RKG) , intent(inout) , allocatable :: array(:)
8521! real(RKG) , intent(in) :: pattern
8522! procedure(logical(LK)) :: iseq
8523! integer(IK) , intent(in) , contiguous :: instance(:)
8524! logical(LK) , intent(in) , optional :: sorted
8525! logical(LK) , intent(in) , optional :: unique
8526! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8527! end subroutine
8528!#endif
8529!
8530!#if RK4_ENABLED
8531! module subroutine setRemovedCusComCusIns_D1_D0_RK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8532!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8533! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK4
8534!#endif
8535! use pm_kind, only: RKG => RK4
8536! real(RKG) , intent(inout) , allocatable :: array(:)
8537! real(RKG) , intent(in) :: pattern
8538! procedure(logical(LK)) :: iseq
8539! integer(IK) , intent(in) , contiguous :: instance(:)
8540! logical(LK) , intent(in) , optional :: sorted
8541! logical(LK) , intent(in) , optional :: unique
8542! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8543! end subroutine
8544!#endif
8545!
8546!#if RK3_ENABLED
8547! module subroutine setRemovedCusComCusIns_D1_D0_RK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8548!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8549! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK3
8550!#endif
8551! use pm_kind, only: RKG => RK3
8552! real(RKG) , intent(inout) , allocatable :: array(:)
8553! real(RKG) , intent(in) :: pattern
8554! procedure(logical(LK)) :: iseq
8555! integer(IK) , intent(in) , contiguous :: instance(:)
8556! logical(LK) , intent(in) , optional :: sorted
8557! logical(LK) , intent(in) , optional :: unique
8558! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8559! end subroutine
8560!#endif
8561!
8562!#if RK2_ENABLED
8563! module subroutine setRemovedCusComCusIns_D1_D0_RK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8564!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8565! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK2
8566!#endif
8567! use pm_kind, only: RKG => RK2
8568! real(RKG) , intent(inout) , allocatable :: array(:)
8569! real(RKG) , intent(in) :: pattern
8570! procedure(logical(LK)) :: iseq
8571! integer(IK) , intent(in) , contiguous :: instance(:)
8572! logical(LK) , intent(in) , optional :: sorted
8573! logical(LK) , intent(in) , optional :: unique
8574! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8575! end subroutine
8576!#endif
8577!
8578!#if RK1_ENABLED
8579! module subroutine setRemovedCusComCusIns_D1_D0_RK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
8580!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8581! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D0_RK1
8582!#endif
8583! use pm_kind, only: RKG => RK1
8584! real(RKG) , intent(inout) , allocatable :: array(:)
8585! real(RKG) , intent(in) :: pattern
8586! procedure(logical(LK)) :: iseq
8587! integer(IK) , intent(in) , contiguous :: instance(:)
8588! logical(LK) , intent(in) , optional :: sorted
8589! logical(LK) , intent(in) , optional :: unique
8590! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8591! end subroutine
8592!#endif
8593!
8594! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8595!
8596! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8597! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8598! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8599! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8600! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8601! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8602! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8603! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8604! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8605!
8606! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8607!
8608!#if SK5_ENABLED
8609! PURE module subroutine setRemovedDefComDefIns_D1_D1_SK5(ArrayRemoved, array, pattern)
8610!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8611! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK5
8612!#endif
8613! use pm_kind, only: SKG => SK5
8614! character(:,SKG) , intent(inout) , allocatable :: array(:)
8615! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8616! character(*,SKG) , allocatable :: ArrayRemoved(:)
8617! end subroutine
8618!#endif
8619!
8620!#if SK4_ENABLED
8621! PURE module subroutine setRemovedDefComDefIns_D1_D1_SK4(ArrayRemoved, array, pattern)
8622!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8623! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK4
8624!#endif
8625! use pm_kind, only: SKG => SK4
8626! character(:,SKG) , intent(inout) , allocatable :: array(:)
8627! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8628! character(*,SKG) , allocatable :: ArrayRemoved(:)
8629! end subroutine
8630!#endif
8631!
8632!#if SK3_ENABLED
8633! PURE module subroutine setRemovedDefComDefIns_D1_D1_SK3(ArrayRemoved, array, pattern)
8634!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8635! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK3
8636!#endif
8637! use pm_kind, only: SKG => SK3
8638! character(:,SKG) , intent(inout) , allocatable :: array(:)
8639! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8640! character(*,SKG) , allocatable :: ArrayRemoved(:)
8641! end subroutine
8642!#endif
8643!
8644!#if SK2_ENABLED
8645! PURE module subroutine setRemovedDefComDefIns_D1_D1_SK2(ArrayRemoved, array, pattern)
8646!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8647! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK2
8648!#endif
8649! use pm_kind, only: SKG => SK2
8650! character(:,SKG) , intent(inout) , allocatable :: array(:)
8651! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8652! character(*,SKG) , allocatable :: ArrayRemoved(:)
8653! end subroutine
8654!#endif
8655!
8656!#if SK1_ENABLED
8657! PURE module subroutine setRemovedDefComDefIns_D1_D1_SK1(ArrayRemoved, array, pattern)
8658!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8659! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_SK1
8660!#endif
8661! use pm_kind, only: SKG => SK1
8662! character(:,SKG) , intent(inout) , allocatable :: array(:)
8663! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8664! character(*,SKG) , allocatable :: ArrayRemoved(:)
8665! end subroutine
8666!#endif
8667!
8668! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8669!
8670!#if IK5_ENABLED
8671! PURE module subroutine setRemovedDefComDefIns_D1_D1_IK5(ArrayRemoved, array, pattern)
8672!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8673! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK5
8674!#endif
8675! use pm_kind, only: IKG => IK5
8676! integer(IKG) , intent(inout) , allocatable :: array(:)
8677! integer(IKG) , intent(in) , contiguous :: pattern(:)
8678! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8679! end subroutine
8680!#endif
8681!
8682!#if IK4_ENABLED
8683! PURE module subroutine setRemovedDefComDefIns_D1_D1_IK4(ArrayRemoved, array, pattern)
8684!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8685! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK4
8686!#endif
8687! use pm_kind, only: IKG => IK4
8688! integer(IKG) , intent(inout) , allocatable :: array(:)
8689! integer(IKG) , intent(in) , contiguous :: pattern(:)
8690! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8691! end subroutine
8692!#endif
8693!
8694!#if IK3_ENABLED
8695! PURE module subroutine setRemovedDefComDefIns_D1_D1_IK3(ArrayRemoved, array, pattern)
8696!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8697! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK3
8698!#endif
8699! use pm_kind, only: IKG => IK3
8700! integer(IKG) , intent(inout) , allocatable :: array(:)
8701! integer(IKG) , intent(in) , contiguous :: pattern(:)
8702! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8703! end subroutine
8704!#endif
8705!
8706!#if IK2_ENABLED
8707! PURE module subroutine setRemovedDefComDefIns_D1_D1_IK2(ArrayRemoved, array, pattern)
8708!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8709! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK2
8710!#endif
8711! use pm_kind, only: IKG => IK2
8712! integer(IKG) , intent(inout) , allocatable :: array(:)
8713! integer(IKG) , intent(in) , contiguous :: pattern(:)
8714! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8715! end subroutine
8716!#endif
8717!
8718!#if IK1_ENABLED
8719! PURE module subroutine setRemovedDefComDefIns_D1_D1_IK1(ArrayRemoved, array, pattern)
8720!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8721! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_IK1
8722!#endif
8723! use pm_kind, only: IKG => IK1
8724! integer(IKG) , intent(inout) , allocatable :: array(:)
8725! integer(IKG) , intent(in) , contiguous :: pattern(:)
8726! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
8727! end subroutine
8728!#endif
8729!
8730! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8731!
8732!#if LK5_ENABLED
8733! PURE module subroutine setRemovedDefComDefIns_D1_D1_LK5(ArrayRemoved, array, pattern)
8734!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8735! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK5
8736!#endif
8737! use pm_kind, only: LKG => LK5
8738! logical(LKG) , intent(inout) , allocatable :: array(:)
8739! logical(LKG) , intent(in) , contiguous :: pattern(:)
8740! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8741! end subroutine
8742!#endif
8743!
8744!#if LK4_ENABLED
8745! PURE module subroutine setRemovedDefComDefIns_D1_D1_LK4(ArrayRemoved, array, pattern)
8746!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8747! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK4
8748!#endif
8749! use pm_kind, only: LKG => LK4
8750! logical(LKG) , intent(inout) , allocatable :: array(:)
8751! logical(LKG) , intent(in) , contiguous :: pattern(:)
8752! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8753! end subroutine
8754!#endif
8755!
8756!#if LK3_ENABLED
8757! PURE module subroutine setRemovedDefComDefIns_D1_D1_LK3(ArrayRemoved, array, pattern)
8758!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8759! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK3
8760!#endif
8761! use pm_kind, only: LKG => LK3
8762! logical(LKG) , intent(inout) , allocatable :: array(:)
8763! logical(LKG) , intent(in) , contiguous :: pattern(:)
8764! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8765! end subroutine
8766!#endif
8767!
8768!#if LK2_ENABLED
8769! PURE module subroutine setRemovedDefComDefIns_D1_D1_LK2(ArrayRemoved, array, pattern)
8770!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8771! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK2
8772!#endif
8773! use pm_kind, only: LKG => LK2
8774! logical(LKG) , intent(inout) , allocatable :: array(:)
8775! logical(LKG) , intent(in) , contiguous :: pattern(:)
8776! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8777! end subroutine
8778!#endif
8779!
8780!#if LK1_ENABLED
8781! PURE module subroutine setRemovedDefComDefIns_D1_D1_LK1(ArrayRemoved, array, pattern)
8782!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8783! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_LK1
8784!#endif
8785! use pm_kind, only: LKG => LK1
8786! logical(LKG) , intent(inout) , allocatable :: array(:)
8787! logical(LKG) , intent(in) , contiguous :: pattern(:)
8788! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
8789! end subroutine
8790!#endif
8791!
8792! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8793!
8794!#if CK5_ENABLED
8795! PURE module subroutine setRemovedDefComDefIns_D1_D1_CK5(ArrayRemoved, array, pattern)
8796!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8797! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK5
8798!#endif
8799! use pm_kind, only: CKG => CK5
8800! complex(CKG) , intent(inout) , allocatable :: array(:)
8801! complex(CKG) , intent(in) , contiguous :: pattern(:)
8802! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8803! end subroutine
8804!#endif
8805!
8806!#if CK4_ENABLED
8807! PURE module subroutine setRemovedDefComDefIns_D1_D1_CK4(ArrayRemoved, array, pattern)
8808!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8809! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK4
8810!#endif
8811! use pm_kind, only: CKG => CK4
8812! complex(CKG) , intent(inout) , allocatable :: array(:)
8813! complex(CKG) , intent(in) , contiguous :: pattern(:)
8814! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8815! end subroutine
8816!#endif
8817!
8818!#if CK3_ENABLED
8819! PURE module subroutine setRemovedDefComDefIns_D1_D1_CK3(ArrayRemoved, array, pattern)
8820!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8821! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK3
8822!#endif
8823! use pm_kind, only: CKG => CK3
8824! complex(CKG) , intent(inout) , allocatable :: array(:)
8825! complex(CKG) , intent(in) , contiguous :: pattern(:)
8826! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8827! end subroutine
8828!#endif
8829!
8830!#if CK2_ENABLED
8831! PURE module subroutine setRemovedDefComDefIns_D1_D1_CK2(ArrayRemoved, array, pattern)
8832!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8833! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK2
8834!#endif
8835! use pm_kind, only: CKG => CK2
8836! complex(CKG) , intent(inout) , allocatable :: array(:)
8837! complex(CKG) , intent(in) , contiguous :: pattern(:)
8838! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8839! end subroutine
8840!#endif
8841!
8842!#if CK1_ENABLED
8843! PURE module subroutine setRemovedDefComDefIns_D1_D1_CK1(ArrayRemoved, array, pattern)
8844!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8845! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_CK1
8846!#endif
8847! use pm_kind, only: CKG => CK1
8848! complex(CKG) , intent(inout) , allocatable :: array(:)
8849! complex(CKG) , intent(in) , contiguous :: pattern(:)
8850! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
8851! end subroutine
8852!#endif
8853!
8854! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8855!
8856!#if RK5_ENABLED
8857! PURE module subroutine setRemovedDefComDefIns_D1_D1_RK5(ArrayRemoved, array, pattern)
8858!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8859! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK5
8860!#endif
8861! use pm_kind, only: RKG => RK5
8862! real(RKG) , intent(inout) , allocatable :: array(:)
8863! real(RKG) , intent(in) , contiguous :: pattern(:)
8864! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8865! end subroutine
8866!#endif
8867!
8868!#if RK4_ENABLED
8869! PURE module subroutine setRemovedDefComDefIns_D1_D1_RK4(ArrayRemoved, array, pattern)
8870!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8871! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK4
8872!#endif
8873! use pm_kind, only: RKG => RK4
8874! real(RKG) , intent(inout) , allocatable :: array(:)
8875! real(RKG) , intent(in) , contiguous :: pattern(:)
8876! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8877! end subroutine
8878!#endif
8879!
8880!#if RK3_ENABLED
8881! PURE module subroutine setRemovedDefComDefIns_D1_D1_RK3(ArrayRemoved, array, pattern)
8882!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8883! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK3
8884!#endif
8885! use pm_kind, only: RKG => RK3
8886! real(RKG) , intent(inout) , allocatable :: array(:)
8887! real(RKG) , intent(in) , contiguous :: pattern(:)
8888! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8889! end subroutine
8890!#endif
8891!
8892!#if RK2_ENABLED
8893! PURE module subroutine setRemovedDefComDefIns_D1_D1_RK2(ArrayRemoved, array, pattern)
8894!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8895! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK2
8896!#endif
8897! use pm_kind, only: RKG => RK2
8898! real(RKG) , intent(inout) , allocatable :: array(:)
8899! real(RKG) , intent(in) , contiguous :: pattern(:)
8900! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8901! end subroutine
8902!#endif
8903!
8904!#if RK1_ENABLED
8905! PURE module subroutine setRemovedDefComDefIns_D1_D1_RK1(ArrayRemoved, array, pattern)
8906!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8907! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComDefIns_D1_D1_RK1
8908!#endif
8909! use pm_kind, only: RKG => RK1
8910! real(RKG) , intent(inout) , allocatable :: array(:)
8911! real(RKG) , intent(in) , contiguous :: pattern(:)
8912! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
8913! end subroutine
8914!#endif
8915!
8916! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8917!
8918! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8919! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8920! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8921!
8922! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8923!
8924!#if SK5_ENABLED
8925! module subroutine setRemovedCusComDefIns_D1_D1_SK5(ArrayRemoved, array, pattern, iseq)
8926!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8927! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK5
8928!#endif
8929! use pm_kind, only: SKG => SK5
8930! character(:,SKG) , intent(inout) , allocatable :: array(:)
8931! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8932! procedure(logical(LK)) :: iseq
8933! character(*,SKG) , allocatable :: ArrayRemoved(:)
8934! end subroutine
8935!#endif
8936!
8937!#if SK4_ENABLED
8938! module subroutine setRemovedCusComDefIns_D1_D1_SK4(ArrayRemoved, array, pattern, iseq)
8939!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8940! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK4
8941!#endif
8942! use pm_kind, only: SKG => SK4
8943! character(:,SKG) , intent(inout) , allocatable :: array(:)
8944! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8945! procedure(logical(LK)) :: iseq
8946! character(*,SKG) , allocatable :: ArrayRemoved(:)
8947! end subroutine
8948!#endif
8949!
8950!#if SK3_ENABLED
8951! module subroutine setRemovedCusComDefIns_D1_D1_SK3(ArrayRemoved, array, pattern, iseq)
8952!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8953! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK3
8954!#endif
8955! use pm_kind, only: SKG => SK3
8956! character(:,SKG) , intent(inout) , allocatable :: array(:)
8957! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8958! procedure(logical(LK)) :: iseq
8959! character(*,SKG) , allocatable :: ArrayRemoved(:)
8960! end subroutine
8961!#endif
8962!
8963!#if SK2_ENABLED
8964! module subroutine setRemovedCusComDefIns_D1_D1_SK2(ArrayRemoved, array, pattern, iseq)
8965!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8966! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK2
8967!#endif
8968! use pm_kind, only: SKG => SK2
8969! character(:,SKG) , intent(inout) , allocatable :: array(:)
8970! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8971! procedure(logical(LK)) :: iseq
8972! character(*,SKG) , allocatable :: ArrayRemoved(:)
8973! end subroutine
8974!#endif
8975!
8976!#if SK1_ENABLED
8977! module subroutine setRemovedCusComDefIns_D1_D1_SK1(ArrayRemoved, array, pattern, iseq)
8978!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8979! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_SK1
8980!#endif
8981! use pm_kind, only: SKG => SK1
8982! character(:,SKG) , intent(inout) , allocatable :: array(:)
8983! character(*,SKG) , intent(in) , contiguous :: pattern(:)
8984! procedure(logical(LK)) :: iseq
8985! character(*,SKG) , allocatable :: ArrayRemoved(:)
8986! end subroutine
8987!#endif
8988!
8989! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8990!
8991!#if IK5_ENABLED
8992! module subroutine setRemovedCusComDefIns_D1_D1_IK5(ArrayRemoved, array, pattern, iseq)
8993!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8994! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK5
8995!#endif
8996! use pm_kind, only: IKG => IK5
8997! integer(IKG) , intent(inout) , allocatable :: array(:)
8998! integer(IKG) , intent(in) , contiguous :: pattern(:)
8999! procedure(logical(LK)) :: iseq
9000! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9001! end subroutine
9002!#endif
9003!
9004!#if IK4_ENABLED
9005! module subroutine setRemovedCusComDefIns_D1_D1_IK4(ArrayRemoved, array, pattern, iseq)
9006!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9007! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK4
9008!#endif
9009! use pm_kind, only: IKG => IK4
9010! integer(IKG) , intent(inout) , allocatable :: array(:)
9011! integer(IKG) , intent(in) , contiguous :: pattern(:)
9012! procedure(logical(LK)) :: iseq
9013! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9014! end subroutine
9015!#endif
9016!
9017!#if IK3_ENABLED
9018! module subroutine setRemovedCusComDefIns_D1_D1_IK3(ArrayRemoved, array, pattern, iseq)
9019!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9020! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK3
9021!#endif
9022! use pm_kind, only: IKG => IK3
9023! integer(IKG) , intent(inout) , allocatable :: array(:)
9024! integer(IKG) , intent(in) , contiguous :: pattern(:)
9025! procedure(logical(LK)) :: iseq
9026! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9027! end subroutine
9028!#endif
9029!
9030!#if IK2_ENABLED
9031! module subroutine setRemovedCusComDefIns_D1_D1_IK2(ArrayRemoved, array, pattern, iseq)
9032!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9033! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK2
9034!#endif
9035! use pm_kind, only: IKG => IK2
9036! integer(IKG) , intent(inout) , allocatable :: array(:)
9037! integer(IKG) , intent(in) , contiguous :: pattern(:)
9038! procedure(logical(LK)) :: iseq
9039! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9040! end subroutine
9041!#endif
9042!
9043!#if IK1_ENABLED
9044! module subroutine setRemovedCusComDefIns_D1_D1_IK1(ArrayRemoved, array, pattern, iseq)
9045!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9046! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_IK1
9047!#endif
9048! use pm_kind, only: IKG => IK1
9049! integer(IKG) , intent(inout) , allocatable :: array(:)
9050! integer(IKG) , intent(in) , contiguous :: pattern(:)
9051! procedure(logical(LK)) :: iseq
9052! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9053! end subroutine
9054!#endif
9055!
9056! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9057!
9058!#if LK5_ENABLED
9059! module subroutine setRemovedCusComDefIns_D1_D1_LK5(ArrayRemoved, array, pattern, iseq)
9060!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9061! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK5
9062!#endif
9063! use pm_kind, only: LKG => LK5
9064! logical(LKG) , intent(inout) , allocatable :: array(:)
9065! logical(LKG) , intent(in) , contiguous :: pattern(:)
9066! procedure(logical(LK)) :: iseq
9067! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9068! end subroutine
9069!#endif
9070!
9071!#if LK4_ENABLED
9072! module subroutine setRemovedCusComDefIns_D1_D1_LK4(ArrayRemoved, array, pattern, iseq)
9073!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9074! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK4
9075!#endif
9076! use pm_kind, only: LKG => LK4
9077! logical(LKG) , intent(inout) , allocatable :: array(:)
9078! logical(LKG) , intent(in) , contiguous :: pattern(:)
9079! procedure(logical(LK)) :: iseq
9080! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9081! end subroutine
9082!#endif
9083!
9084!#if LK3_ENABLED
9085! module subroutine setRemovedCusComDefIns_D1_D1_LK3(ArrayRemoved, array, pattern, iseq)
9086!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9087! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK3
9088!#endif
9089! use pm_kind, only: LKG => LK3
9090! logical(LKG) , intent(inout) , allocatable :: array(:)
9091! logical(LKG) , intent(in) , contiguous :: pattern(:)
9092! procedure(logical(LK)) :: iseq
9093! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9094! end subroutine
9095!#endif
9096!
9097!#if LK2_ENABLED
9098! module subroutine setRemovedCusComDefIns_D1_D1_LK2(ArrayRemoved, array, pattern, iseq)
9099!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9100! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK2
9101!#endif
9102! use pm_kind, only: LKG => LK2
9103! logical(LKG) , intent(inout) , allocatable :: array(:)
9104! logical(LKG) , intent(in) , contiguous :: pattern(:)
9105! procedure(logical(LK)) :: iseq
9106! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9107! end subroutine
9108!#endif
9109!
9110!#if LK1_ENABLED
9111! module subroutine setRemovedCusComDefIns_D1_D1_LK1(ArrayRemoved, array, pattern, iseq)
9112!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9113! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_LK1
9114!#endif
9115! use pm_kind, only: LKG => LK1
9116! logical(LKG) , intent(inout) , allocatable :: array(:)
9117! logical(LKG) , intent(in) , contiguous :: pattern(:)
9118! procedure(logical(LK)) :: iseq
9119! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9120! end subroutine
9121!#endif
9122!
9123! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9124!
9125!#if CK5_ENABLED
9126! module subroutine setRemovedCusComDefIns_D1_D1_CK5(ArrayRemoved, array, pattern, iseq)
9127!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9128! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK5
9129!#endif
9130! use pm_kind, only: CKG => CK5
9131! complex(CKG) , intent(inout) , allocatable :: array(:)
9132! complex(CKG) , intent(in) , contiguous :: pattern(:)
9133! procedure(logical(LK)) :: iseq
9134! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9135! end subroutine
9136!#endif
9137!
9138!#if CK4_ENABLED
9139! module subroutine setRemovedCusComDefIns_D1_D1_CK4(ArrayRemoved, array, pattern, iseq)
9140!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9141! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK4
9142!#endif
9143! use pm_kind, only: CKG => CK4
9144! complex(CKG) , intent(inout) , allocatable :: array(:)
9145! complex(CKG) , intent(in) , contiguous :: pattern(:)
9146! procedure(logical(LK)) :: iseq
9147! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9148! end subroutine
9149!#endif
9150!
9151!#if CK3_ENABLED
9152! module subroutine setRemovedCusComDefIns_D1_D1_CK3(ArrayRemoved, array, pattern, iseq)
9153!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9154! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK3
9155!#endif
9156! use pm_kind, only: CKG => CK3
9157! complex(CKG) , intent(inout) , allocatable :: array(:)
9158! complex(CKG) , intent(in) , contiguous :: pattern(:)
9159! procedure(logical(LK)) :: iseq
9160! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9161! end subroutine
9162!#endif
9163!
9164!#if CK2_ENABLED
9165! module subroutine setRemovedCusComDefIns_D1_D1_CK2(ArrayRemoved, array, pattern, iseq)
9166!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9167! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK2
9168!#endif
9169! use pm_kind, only: CKG => CK2
9170! complex(CKG) , intent(inout) , allocatable :: array(:)
9171! complex(CKG) , intent(in) , contiguous :: pattern(:)
9172! procedure(logical(LK)) :: iseq
9173! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9174! end subroutine
9175!#endif
9176!
9177!#if CK1_ENABLED
9178! module subroutine setRemovedCusComDefIns_D1_D1_CK1(ArrayRemoved, array, pattern, iseq)
9179!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9180! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_CK1
9181!#endif
9182! use pm_kind, only: CKG => CK1
9183! complex(CKG) , intent(inout) , allocatable :: array(:)
9184! complex(CKG) , intent(in) , contiguous :: pattern(:)
9185! procedure(logical(LK)) :: iseq
9186! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9187! end subroutine
9188!#endif
9189!
9190! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9191!
9192!#if RK5_ENABLED
9193! module subroutine setRemovedCusComDefIns_D1_D1_RK5(ArrayRemoved, array, pattern, iseq)
9194!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9195! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK5
9196!#endif
9197! use pm_kind, only: RKG => RK5
9198! real(RKG) , intent(inout) , allocatable :: array(:)
9199! real(RKG) , intent(in) , contiguous :: pattern(:)
9200! procedure(logical(LK)) :: iseq
9201! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9202! end subroutine
9203!#endif
9204!
9205!#if RK4_ENABLED
9206! module subroutine setRemovedCusComDefIns_D1_D1_RK4(ArrayRemoved, array, pattern, iseq)
9207!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9208! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK4
9209!#endif
9210! use pm_kind, only: RKG => RK4
9211! real(RKG) , intent(inout) , allocatable :: array(:)
9212! real(RKG) , intent(in) , contiguous :: pattern(:)
9213! procedure(logical(LK)) :: iseq
9214! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9215! end subroutine
9216!#endif
9217!
9218!#if RK3_ENABLED
9219! module subroutine setRemovedCusComDefIns_D1_D1_RK3(ArrayRemoved, array, pattern, iseq)
9220!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9221! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK3
9222!#endif
9223! use pm_kind, only: RKG => RK3
9224! real(RKG) , intent(inout) , allocatable :: array(:)
9225! real(RKG) , intent(in) , contiguous :: pattern(:)
9226! procedure(logical(LK)) :: iseq
9227! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9228! end subroutine
9229!#endif
9230!
9231!#if RK2_ENABLED
9232! module subroutine setRemovedCusComDefIns_D1_D1_RK2(ArrayRemoved, array, pattern, iseq)
9233!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9234! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK2
9235!#endif
9236! use pm_kind, only: RKG => RK2
9237! real(RKG) , intent(inout) , allocatable :: array(:)
9238! real(RKG) , intent(in) , contiguous :: pattern(:)
9239! procedure(logical(LK)) :: iseq
9240! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9241! end subroutine
9242!#endif
9243!
9244!#if RK1_ENABLED
9245! module subroutine setRemovedCusComDefIns_D1_D1_RK1(ArrayRemoved, array, pattern, iseq)
9246!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9247! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComDefIns_D1_D1_RK1
9248!#endif
9249! use pm_kind, only: RKG => RK1
9250! real(RKG) , intent(inout) , allocatable :: array(:)
9251! real(RKG) , intent(in) , contiguous :: pattern(:)
9252! procedure(logical(LK)) :: iseq
9253! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9254! end subroutine
9255!#endif
9256!
9257! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9258!
9259! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9260! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9261! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9262!
9263! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9264!
9265!#if SK5_ENABLED
9266! PURE module subroutine setRemovedDefComCusIns_D1_D1_SK5(ArrayRemoved, array, pattern, instance, sorted, unique)
9267!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9268! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK5
9269!#endif
9270! use pm_kind, only: SKG => SK5
9271! character(:,SKG) , intent(inout) , allocatable :: array(:)
9272! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9273! integer(IK) , intent(in) , contiguous :: instance(:)
9274! logical(LK) , intent(in) , optional :: sorted
9275! logical(LK) , intent(in) , optional :: unique
9276! character(*,SKG) , allocatable :: ArrayRemoved(:)
9277! end subroutine
9278!#endif
9279!
9280!#if SK4_ENABLED
9281! PURE module subroutine setRemovedDefComCusIns_D1_D1_SK4(ArrayRemoved, array, pattern, instance, sorted, unique)
9282!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9283! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK4
9284!#endif
9285! use pm_kind, only: SKG => SK4
9286! character(:,SKG) , intent(inout) , allocatable :: array(:)
9287! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9288! integer(IK) , intent(in) , contiguous :: instance(:)
9289! logical(LK) , intent(in) , optional :: sorted
9290! logical(LK) , intent(in) , optional :: unique
9291! character(*,SKG) , allocatable :: ArrayRemoved(:)
9292! end subroutine
9293!#endif
9294!
9295!#if SK3_ENABLED
9296! PURE module subroutine setRemovedDefComCusIns_D1_D1_SK3(ArrayRemoved, array, pattern, instance, sorted, unique)
9297!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9298! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK3
9299!#endif
9300! use pm_kind, only: SKG => SK3
9301! character(:,SKG) , intent(inout) , allocatable :: array(:)
9302! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9303! integer(IK) , intent(in) , contiguous :: instance(:)
9304! logical(LK) , intent(in) , optional :: sorted
9305! logical(LK) , intent(in) , optional :: unique
9306! character(*,SKG) , allocatable :: ArrayRemoved(:)
9307! end subroutine
9308!#endif
9309!
9310!#if SK2_ENABLED
9311! PURE module subroutine setRemovedDefComCusIns_D1_D1_SK2(ArrayRemoved, array, pattern, instance, sorted, unique)
9312!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9313! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK2
9314!#endif
9315! use pm_kind, only: SKG => SK2
9316! character(:,SKG) , intent(inout) , allocatable :: array(:)
9317! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9318! integer(IK) , intent(in) , contiguous :: instance(:)
9319! logical(LK) , intent(in) , optional :: sorted
9320! logical(LK) , intent(in) , optional :: unique
9321! character(*,SKG) , allocatable :: ArrayRemoved(:)
9322! end subroutine
9323!#endif
9324!
9325!#if SK1_ENABLED
9326! PURE module subroutine setRemovedDefComCusIns_D1_D1_SK1(ArrayRemoved, array, pattern, instance, sorted, unique)
9327!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9328! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_SK1
9329!#endif
9330! use pm_kind, only: SKG => SK1
9331! character(:,SKG) , intent(inout) , allocatable :: array(:)
9332! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9333! integer(IK) , intent(in) , contiguous :: instance(:)
9334! logical(LK) , intent(in) , optional :: sorted
9335! logical(LK) , intent(in) , optional :: unique
9336! character(*,SKG) , allocatable :: ArrayRemoved(:)
9337! end subroutine
9338!#endif
9339!
9340! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9341!
9342!#if IK5_ENABLED
9343! PURE module subroutine setRemovedDefComCusIns_D1_D1_IK5(ArrayRemoved, array, pattern, instance, sorted, unique)
9344!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9345! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK5
9346!#endif
9347! use pm_kind, only: IKG => IK5
9348! integer(IKG) , intent(inout) , allocatable :: array(:)
9349! integer(IKG) , intent(in) , contiguous :: pattern(:)
9350! integer(IK) , intent(in) , contiguous :: instance(:)
9351! logical(LK) , intent(in) , optional :: sorted
9352! logical(LK) , intent(in) , optional :: unique
9353! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9354! end subroutine
9355!#endif
9356!
9357!#if IK4_ENABLED
9358! PURE module subroutine setRemovedDefComCusIns_D1_D1_IK4(ArrayRemoved, array, pattern, instance, sorted, unique)
9359!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9360! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK4
9361!#endif
9362! use pm_kind, only: IKG => IK4
9363! integer(IKG) , intent(inout) , allocatable :: array(:)
9364! integer(IKG) , intent(in) , contiguous :: pattern(:)
9365! integer(IK) , intent(in) , contiguous :: instance(:)
9366! logical(LK) , intent(in) , optional :: sorted
9367! logical(LK) , intent(in) , optional :: unique
9368! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9369! end subroutine
9370!#endif
9371!
9372!#if IK3_ENABLED
9373! PURE module subroutine setRemovedDefComCusIns_D1_D1_IK3(ArrayRemoved, array, pattern, instance, sorted, unique)
9374!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9375! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK3
9376!#endif
9377! use pm_kind, only: IKG => IK3
9378! integer(IKG) , intent(inout) , allocatable :: array(:)
9379! integer(IKG) , intent(in) , contiguous :: pattern(:)
9380! integer(IK) , intent(in) , contiguous :: instance(:)
9381! logical(LK) , intent(in) , optional :: sorted
9382! logical(LK) , intent(in) , optional :: unique
9383! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9384! end subroutine
9385!#endif
9386!
9387!#if IK2_ENABLED
9388! PURE module subroutine setRemovedDefComCusIns_D1_D1_IK2(ArrayRemoved, array, pattern, instance, sorted, unique)
9389!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9390! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK2
9391!#endif
9392! use pm_kind, only: IKG => IK2
9393! integer(IKG) , intent(inout) , allocatable :: array(:)
9394! integer(IKG) , intent(in) , contiguous :: pattern(:)
9395! integer(IK) , intent(in) , contiguous :: instance(:)
9396! logical(LK) , intent(in) , optional :: sorted
9397! logical(LK) , intent(in) , optional :: unique
9398! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9399! end subroutine
9400!#endif
9401!
9402!#if IK1_ENABLED
9403! PURE module subroutine setRemovedDefComCusIns_D1_D1_IK1(ArrayRemoved, array, pattern, instance, sorted, unique)
9404!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9405! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_IK1
9406!#endif
9407! use pm_kind, only: IKG => IK1
9408! integer(IKG) , intent(inout) , allocatable :: array(:)
9409! integer(IKG) , intent(in) , contiguous :: pattern(:)
9410! integer(IK) , intent(in) , contiguous :: instance(:)
9411! logical(LK) , intent(in) , optional :: sorted
9412! logical(LK) , intent(in) , optional :: unique
9413! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9414! end subroutine
9415!#endif
9416!
9417! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9418!
9419!#if LK5_ENABLED
9420! PURE module subroutine setRemovedDefComCusIns_D1_D1_LK5(ArrayRemoved, array, pattern, instance, sorted, unique)
9421!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9422! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK5
9423!#endif
9424! use pm_kind, only: LKG => LK5
9425! logical(LKG) , intent(inout) , allocatable :: array(:)
9426! logical(LKG) , intent(in) , contiguous :: pattern(:)
9427! integer(IK) , intent(in) , contiguous :: instance(:)
9428! logical(LK) , intent(in) , optional :: sorted
9429! logical(LK) , intent(in) , optional :: unique
9430! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9431! end subroutine
9432!#endif
9433!
9434!#if LK4_ENABLED
9435! PURE module subroutine setRemovedDefComCusIns_D1_D1_LK4(ArrayRemoved, array, pattern, instance, sorted, unique)
9436!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9437! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK4
9438!#endif
9439! use pm_kind, only: LKG => LK4
9440! logical(LKG) , intent(inout) , allocatable :: array(:)
9441! logical(LKG) , intent(in) , contiguous :: pattern(:)
9442! integer(IK) , intent(in) , contiguous :: instance(:)
9443! logical(LK) , intent(in) , optional :: sorted
9444! logical(LK) , intent(in) , optional :: unique
9445! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9446! end subroutine
9447!#endif
9448!
9449!#if LK3_ENABLED
9450! PURE module subroutine setRemovedDefComCusIns_D1_D1_LK3(ArrayRemoved, array, pattern, instance, sorted, unique)
9451!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9452! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK3
9453!#endif
9454! use pm_kind, only: LKG => LK3
9455! logical(LKG) , intent(inout) , allocatable :: array(:)
9456! logical(LKG) , intent(in) , contiguous :: pattern(:)
9457! integer(IK) , intent(in) , contiguous :: instance(:)
9458! logical(LK) , intent(in) , optional :: sorted
9459! logical(LK) , intent(in) , optional :: unique
9460! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9461! end subroutine
9462!#endif
9463!
9464!#if LK2_ENABLED
9465! PURE module subroutine setRemovedDefComCusIns_D1_D1_LK2(ArrayRemoved, array, pattern, instance, sorted, unique)
9466!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9467! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK2
9468!#endif
9469! use pm_kind, only: LKG => LK2
9470! logical(LKG) , intent(inout) , allocatable :: array(:)
9471! logical(LKG) , intent(in) , contiguous :: pattern(:)
9472! integer(IK) , intent(in) , contiguous :: instance(:)
9473! logical(LK) , intent(in) , optional :: sorted
9474! logical(LK) , intent(in) , optional :: unique
9475! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9476! end subroutine
9477!#endif
9478!
9479!#if LK1_ENABLED
9480! PURE module subroutine setRemovedDefComCusIns_D1_D1_LK1(ArrayRemoved, array, pattern, instance, sorted, unique)
9481!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9482! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_LK1
9483!#endif
9484! use pm_kind, only: LKG => LK1
9485! logical(LKG) , intent(inout) , allocatable :: array(:)
9486! logical(LKG) , intent(in) , contiguous :: pattern(:)
9487! integer(IK) , intent(in) , contiguous :: instance(:)
9488! logical(LK) , intent(in) , optional :: sorted
9489! logical(LK) , intent(in) , optional :: unique
9490! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9491! end subroutine
9492!#endif
9493!
9494! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9495!
9496!#if CK5_ENABLED
9497! PURE module subroutine setRemovedDefComCusIns_D1_D1_CK5(ArrayRemoved, array, pattern, instance, sorted, unique)
9498!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9499! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK5
9500!#endif
9501! use pm_kind, only: CKG => CK5
9502! complex(CKG) , intent(inout) , allocatable :: array(:)
9503! complex(CKG) , intent(in) , contiguous :: pattern(:)
9504! integer(IK) , intent(in) , contiguous :: instance(:)
9505! logical(LK) , intent(in) , optional :: sorted
9506! logical(LK) , intent(in) , optional :: unique
9507! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9508! end subroutine
9509!#endif
9510!
9511!#if CK4_ENABLED
9512! PURE module subroutine setRemovedDefComCusIns_D1_D1_CK4(ArrayRemoved, array, pattern, instance, sorted, unique)
9513!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9514! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK4
9515!#endif
9516! use pm_kind, only: CKG => CK4
9517! complex(CKG) , intent(inout) , allocatable :: array(:)
9518! complex(CKG) , intent(in) , contiguous :: pattern(:)
9519! integer(IK) , intent(in) , contiguous :: instance(:)
9520! logical(LK) , intent(in) , optional :: sorted
9521! logical(LK) , intent(in) , optional :: unique
9522! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9523! end subroutine
9524!#endif
9525!
9526!#if CK3_ENABLED
9527! PURE module subroutine setRemovedDefComCusIns_D1_D1_CK3(ArrayRemoved, array, pattern, instance, sorted, unique)
9528!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9529! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK3
9530!#endif
9531! use pm_kind, only: CKG => CK3
9532! complex(CKG) , intent(inout) , allocatable :: array(:)
9533! complex(CKG) , intent(in) , contiguous :: pattern(:)
9534! integer(IK) , intent(in) , contiguous :: instance(:)
9535! logical(LK) , intent(in) , optional :: sorted
9536! logical(LK) , intent(in) , optional :: unique
9537! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9538! end subroutine
9539!#endif
9540!
9541!#if CK2_ENABLED
9542! PURE module subroutine setRemovedDefComCusIns_D1_D1_CK2(ArrayRemoved, array, pattern, instance, sorted, unique)
9543!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9544! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK2
9545!#endif
9546! use pm_kind, only: CKG => CK2
9547! complex(CKG) , intent(inout) , allocatable :: array(:)
9548! complex(CKG) , intent(in) , contiguous :: pattern(:)
9549! integer(IK) , intent(in) , contiguous :: instance(:)
9550! logical(LK) , intent(in) , optional :: sorted
9551! logical(LK) , intent(in) , optional :: unique
9552! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9553! end subroutine
9554!#endif
9555!
9556!#if CK1_ENABLED
9557! PURE module subroutine setRemovedDefComCusIns_D1_D1_CK1(ArrayRemoved, array, pattern, instance, sorted, unique)
9558!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9559! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_CK1
9560!#endif
9561! use pm_kind, only: CKG => CK1
9562! complex(CKG) , intent(inout) , allocatable :: array(:)
9563! complex(CKG) , intent(in) , contiguous :: pattern(:)
9564! integer(IK) , intent(in) , contiguous :: instance(:)
9565! logical(LK) , intent(in) , optional :: sorted
9566! logical(LK) , intent(in) , optional :: unique
9567! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9568! end subroutine
9569!#endif
9570!
9571! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9572!
9573!#if RK5_ENABLED
9574! PURE module subroutine setRemovedDefComCusIns_D1_D1_RK5(ArrayRemoved, array, pattern, instance, sorted, unique)
9575!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9576! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK5
9577!#endif
9578! use pm_kind, only: RKG => RK5
9579! real(RKG) , intent(inout) , allocatable :: array(:)
9580! real(RKG) , intent(in) , contiguous :: pattern(:)
9581! integer(IK) , intent(in) , contiguous :: instance(:)
9582! logical(LK) , intent(in) , optional :: sorted
9583! logical(LK) , intent(in) , optional :: unique
9584! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9585! end subroutine
9586!#endif
9587!
9588!#if RK4_ENABLED
9589! PURE module subroutine setRemovedDefComCusIns_D1_D1_RK4(ArrayRemoved, array, pattern, instance, sorted, unique)
9590!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9591! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK4
9592!#endif
9593! use pm_kind, only: RKG => RK4
9594! real(RKG) , intent(inout) , allocatable :: array(:)
9595! real(RKG) , intent(in) , contiguous :: pattern(:)
9596! integer(IK) , intent(in) , contiguous :: instance(:)
9597! logical(LK) , intent(in) , optional :: sorted
9598! logical(LK) , intent(in) , optional :: unique
9599! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9600! end subroutine
9601!#endif
9602!
9603!#if RK3_ENABLED
9604! PURE module subroutine setRemovedDefComCusIns_D1_D1_RK3(ArrayRemoved, array, pattern, instance, sorted, unique)
9605!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9606! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK3
9607!#endif
9608! use pm_kind, only: RKG => RK3
9609! real(RKG) , intent(inout) , allocatable :: array(:)
9610! real(RKG) , intent(in) , contiguous :: pattern(:)
9611! integer(IK) , intent(in) , contiguous :: instance(:)
9612! logical(LK) , intent(in) , optional :: sorted
9613! logical(LK) , intent(in) , optional :: unique
9614! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9615! end subroutine
9616!#endif
9617!
9618!#if RK2_ENABLED
9619! PURE module subroutine setRemovedDefComCusIns_D1_D1_RK2(ArrayRemoved, array, pattern, instance, sorted, unique)
9620!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9621! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK2
9622!#endif
9623! use pm_kind, only: RKG => RK2
9624! real(RKG) , intent(inout) , allocatable :: array(:)
9625! real(RKG) , intent(in) , contiguous :: pattern(:)
9626! integer(IK) , intent(in) , contiguous :: instance(:)
9627! logical(LK) , intent(in) , optional :: sorted
9628! logical(LK) , intent(in) , optional :: unique
9629! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9630! end subroutine
9631!#endif
9632!
9633!#if RK1_ENABLED
9634! PURE module subroutine setRemovedDefComCusIns_D1_D1_RK1(ArrayRemoved, array, pattern, instance, sorted, unique)
9635!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9636! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedDefComCusIns_D1_D1_RK1
9637!#endif
9638! use pm_kind, only: RKG => RK1
9639! real(RKG) , intent(inout) , allocatable :: array(:)
9640! real(RKG) , intent(in) , contiguous :: pattern(:)
9641! integer(IK) , intent(in) , contiguous :: instance(:)
9642! logical(LK) , intent(in) , optional :: sorted
9643! logical(LK) , intent(in) , optional :: unique
9644! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9645! end subroutine
9646!#endif
9647!
9648! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9649!
9650! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9651! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9652! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9653!
9654! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9655!
9656!#if SK5_ENABLED
9657! module subroutine setRemovedCusComCusIns_D1_D1_SK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9658!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9659! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK5
9660!#endif
9661! use pm_kind, only: SKG => SK5
9662! character(:,SKG) , intent(inout) , allocatable :: array(:)
9663! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9664! procedure(logical(LK)) :: iseq
9665! integer(IK) , intent(in) , contiguous :: instance(:)
9666! logical(LK) , intent(in) , optional :: sorted
9667! logical(LK) , intent(in) , optional :: unique
9668! character(*,SKG) , allocatable :: ArrayRemoved(:)
9669! end subroutine
9670!#endif
9671!
9672!#if SK4_ENABLED
9673! module subroutine setRemovedCusComCusIns_D1_D1_SK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9674!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9675! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK4
9676!#endif
9677! use pm_kind, only: SKG => SK4
9678! character(:,SKG) , intent(inout) , allocatable :: array(:)
9679! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9680! procedure(logical(LK)) :: iseq
9681! integer(IK) , intent(in) , contiguous :: instance(:)
9682! logical(LK) , intent(in) , optional :: sorted
9683! logical(LK) , intent(in) , optional :: unique
9684! character(*,SKG) , allocatable :: ArrayRemoved(:)
9685! end subroutine
9686!#endif
9687!
9688!#if SK3_ENABLED
9689! module subroutine setRemovedCusComCusIns_D1_D1_SK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9690!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9691! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK3
9692!#endif
9693! use pm_kind, only: SKG => SK3
9694! character(:,SKG) , intent(inout) , allocatable :: array(:)
9695! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9696! procedure(logical(LK)) :: iseq
9697! integer(IK) , intent(in) , contiguous :: instance(:)
9698! logical(LK) , intent(in) , optional :: sorted
9699! logical(LK) , intent(in) , optional :: unique
9700! character(*,SKG) , allocatable :: ArrayRemoved(:)
9701! end subroutine
9702!#endif
9703!
9704!#if SK2_ENABLED
9705! module subroutine setRemovedCusComCusIns_D1_D1_SK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9706!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9707! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK2
9708!#endif
9709! use pm_kind, only: SKG => SK2
9710! character(:,SKG) , intent(inout) , allocatable :: array(:)
9711! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9712! procedure(logical(LK)) :: iseq
9713! integer(IK) , intent(in) , contiguous :: instance(:)
9714! logical(LK) , intent(in) , optional :: sorted
9715! logical(LK) , intent(in) , optional :: unique
9716! character(*,SKG) , allocatable :: ArrayRemoved(:)
9717! end subroutine
9718!#endif
9719!
9720!#if SK1_ENABLED
9721! module subroutine setRemovedCusComCusIns_D1_D1_SK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9722!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9723! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_SK1
9724!#endif
9725! use pm_kind, only: SKG => SK1
9726! character(:,SKG) , intent(inout) , allocatable :: array(:)
9727! character(*,SKG) , intent(in) , contiguous :: pattern(:)
9728! procedure(logical(LK)) :: iseq
9729! integer(IK) , intent(in) , contiguous :: instance(:)
9730! logical(LK) , intent(in) , optional :: sorted
9731! logical(LK) , intent(in) , optional :: unique
9732! character(*,SKG) , allocatable :: ArrayRemoved(:)
9733! end subroutine
9734!#endif
9735!
9736! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9737!
9738!#if IK5_ENABLED
9739! module subroutine setRemovedCusComCusIns_D1_D1_IK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9740!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9741! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK5
9742!#endif
9743! use pm_kind, only: IKG => IK5
9744! integer(IKG) , intent(inout) , allocatable :: array(:)
9745! integer(IKG) , intent(in) , contiguous :: pattern(:)
9746! procedure(logical(LK)) :: iseq
9747! integer(IK) , intent(in) , contiguous :: instance(:)
9748! logical(LK) , intent(in) , optional :: sorted
9749! logical(LK) , intent(in) , optional :: unique
9750! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9751! end subroutine
9752!#endif
9753!
9754!#if IK4_ENABLED
9755! module subroutine setRemovedCusComCusIns_D1_D1_IK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9756!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9757! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK4
9758!#endif
9759! use pm_kind, only: IKG => IK4
9760! integer(IKG) , intent(inout) , allocatable :: array(:)
9761! integer(IKG) , intent(in) , contiguous :: pattern(:)
9762! procedure(logical(LK)) :: iseq
9763! integer(IK) , intent(in) , contiguous :: instance(:)
9764! logical(LK) , intent(in) , optional :: sorted
9765! logical(LK) , intent(in) , optional :: unique
9766! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9767! end subroutine
9768!#endif
9769!
9770!#if IK3_ENABLED
9771! module subroutine setRemovedCusComCusIns_D1_D1_IK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9772!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9773! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK3
9774!#endif
9775! use pm_kind, only: IKG => IK3
9776! integer(IKG) , intent(inout) , allocatable :: array(:)
9777! integer(IKG) , intent(in) , contiguous :: pattern(:)
9778! procedure(logical(LK)) :: iseq
9779! integer(IK) , intent(in) , contiguous :: instance(:)
9780! logical(LK) , intent(in) , optional :: sorted
9781! logical(LK) , intent(in) , optional :: unique
9782! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9783! end subroutine
9784!#endif
9785!
9786!#if IK2_ENABLED
9787! module subroutine setRemovedCusComCusIns_D1_D1_IK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9788!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9789! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK2
9790!#endif
9791! use pm_kind, only: IKG => IK2
9792! integer(IKG) , intent(inout) , allocatable :: array(:)
9793! integer(IKG) , intent(in) , contiguous :: pattern(:)
9794! procedure(logical(LK)) :: iseq
9795! integer(IK) , intent(in) , contiguous :: instance(:)
9796! logical(LK) , intent(in) , optional :: sorted
9797! logical(LK) , intent(in) , optional :: unique
9798! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9799! end subroutine
9800!#endif
9801!
9802!#if IK1_ENABLED
9803! module subroutine setRemovedCusComCusIns_D1_D1_IK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9804!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9805! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_IK1
9806!#endif
9807! use pm_kind, only: IKG => IK1
9808! integer(IKG) , intent(inout) , allocatable :: array(:)
9809! integer(IKG) , intent(in) , contiguous :: pattern(:)
9810! procedure(logical(LK)) :: iseq
9811! integer(IK) , intent(in) , contiguous :: instance(:)
9812! logical(LK) , intent(in) , optional :: sorted
9813! logical(LK) , intent(in) , optional :: unique
9814! integer(IKG) , intent(out) , allocatable :: ArrayRemoved(:)
9815! end subroutine
9816!#endif
9817!
9818! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9819!
9820!#if LK5_ENABLED
9821! module subroutine setRemovedCusComCusIns_D1_D1_LK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9822!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9823! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK5
9824!#endif
9825! use pm_kind, only: LKG => LK5
9826! logical(LKG) , intent(inout) , allocatable :: array(:)
9827! logical(LKG) , intent(in) , contiguous :: pattern(:)
9828! procedure(logical(LK)) :: iseq
9829! integer(IK) , intent(in) , contiguous :: instance(:)
9830! logical(LK) , intent(in) , optional :: sorted
9831! logical(LK) , intent(in) , optional :: unique
9832! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9833! end subroutine
9834!#endif
9835!
9836!#if LK4_ENABLED
9837! module subroutine setRemovedCusComCusIns_D1_D1_LK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9838!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9839! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK4
9840!#endif
9841! use pm_kind, only: LKG => LK4
9842! logical(LKG) , intent(inout) , allocatable :: array(:)
9843! logical(LKG) , intent(in) , contiguous :: pattern(:)
9844! procedure(logical(LK)) :: iseq
9845! integer(IK) , intent(in) , contiguous :: instance(:)
9846! logical(LK) , intent(in) , optional :: sorted
9847! logical(LK) , intent(in) , optional :: unique
9848! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9849! end subroutine
9850!#endif
9851!
9852!#if LK3_ENABLED
9853! module subroutine setRemovedCusComCusIns_D1_D1_LK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9854!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9855! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK3
9856!#endif
9857! use pm_kind, only: LKG => LK3
9858! logical(LKG) , intent(inout) , allocatable :: array(:)
9859! logical(LKG) , intent(in) , contiguous :: pattern(:)
9860! procedure(logical(LK)) :: iseq
9861! integer(IK) , intent(in) , contiguous :: instance(:)
9862! logical(LK) , intent(in) , optional :: sorted
9863! logical(LK) , intent(in) , optional :: unique
9864! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9865! end subroutine
9866!#endif
9867!
9868!#if LK2_ENABLED
9869! module subroutine setRemovedCusComCusIns_D1_D1_LK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9870!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9871! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK2
9872!#endif
9873! use pm_kind, only: LKG => LK2
9874! logical(LKG) , intent(inout) , allocatable :: array(:)
9875! logical(LKG) , intent(in) , contiguous :: pattern(:)
9876! procedure(logical(LK)) :: iseq
9877! integer(IK) , intent(in) , contiguous :: instance(:)
9878! logical(LK) , intent(in) , optional :: sorted
9879! logical(LK) , intent(in) , optional :: unique
9880! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9881! end subroutine
9882!#endif
9883!
9884!#if LK1_ENABLED
9885! module subroutine setRemovedCusComCusIns_D1_D1_LK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9886!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9887! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_LK1
9888!#endif
9889! use pm_kind, only: LKG => LK1
9890! logical(LKG) , intent(inout) , allocatable :: array(:)
9891! logical(LKG) , intent(in) , contiguous :: pattern(:)
9892! procedure(logical(LK)) :: iseq
9893! integer(IK) , intent(in) , contiguous :: instance(:)
9894! logical(LK) , intent(in) , optional :: sorted
9895! logical(LK) , intent(in) , optional :: unique
9896! logical(LKG) , intent(out) , allocatable :: ArrayRemoved(:)
9897! end subroutine
9898!#endif
9899!
9900! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9901!
9902!#if CK5_ENABLED
9903! module subroutine setRemovedCusComCusIns_D1_D1_CK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9904!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9905! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK5
9906!#endif
9907! use pm_kind, only: CKG => CK5
9908! complex(CKG) , intent(inout) , allocatable :: array(:)
9909! complex(CKG) , intent(in) , contiguous :: pattern(:)
9910! procedure(logical(LK)) :: iseq
9911! integer(IK) , intent(in) , contiguous :: instance(:)
9912! logical(LK) , intent(in) , optional :: sorted
9913! logical(LK) , intent(in) , optional :: unique
9914! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9915! end subroutine
9916!#endif
9917!
9918!#if CK4_ENABLED
9919! module subroutine setRemovedCusComCusIns_D1_D1_CK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9920!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9921! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK4
9922!#endif
9923! use pm_kind, only: CKG => CK4
9924! complex(CKG) , intent(inout) , allocatable :: array(:)
9925! complex(CKG) , intent(in) , contiguous :: pattern(:)
9926! procedure(logical(LK)) :: iseq
9927! integer(IK) , intent(in) , contiguous :: instance(:)
9928! logical(LK) , intent(in) , optional :: sorted
9929! logical(LK) , intent(in) , optional :: unique
9930! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9931! end subroutine
9932!#endif
9933!
9934!#if CK3_ENABLED
9935! module subroutine setRemovedCusComCusIns_D1_D1_CK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9936!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9937! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK3
9938!#endif
9939! use pm_kind, only: CKG => CK3
9940! complex(CKG) , intent(inout) , allocatable :: array(:)
9941! complex(CKG) , intent(in) , contiguous :: pattern(:)
9942! procedure(logical(LK)) :: iseq
9943! integer(IK) , intent(in) , contiguous :: instance(:)
9944! logical(LK) , intent(in) , optional :: sorted
9945! logical(LK) , intent(in) , optional :: unique
9946! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9947! end subroutine
9948!#endif
9949!
9950!#if CK2_ENABLED
9951! module subroutine setRemovedCusComCusIns_D1_D1_CK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9952!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9953! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK2
9954!#endif
9955! use pm_kind, only: CKG => CK2
9956! complex(CKG) , intent(inout) , allocatable :: array(:)
9957! complex(CKG) , intent(in) , contiguous :: pattern(:)
9958! procedure(logical(LK)) :: iseq
9959! integer(IK) , intent(in) , contiguous :: instance(:)
9960! logical(LK) , intent(in) , optional :: sorted
9961! logical(LK) , intent(in) , optional :: unique
9962! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9963! end subroutine
9964!#endif
9965!
9966!#if CK1_ENABLED
9967! module subroutine setRemovedCusComCusIns_D1_D1_CK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9968!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9969! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_CK1
9970!#endif
9971! use pm_kind, only: CKG => CK1
9972! complex(CKG) , intent(inout) , allocatable :: array(:)
9973! complex(CKG) , intent(in) , contiguous :: pattern(:)
9974! procedure(logical(LK)) :: iseq
9975! integer(IK) , intent(in) , contiguous :: instance(:)
9976! logical(LK) , intent(in) , optional :: sorted
9977! logical(LK) , intent(in) , optional :: unique
9978! complex(CKG) , intent(out) , allocatable :: ArrayRemoved(:)
9979! end subroutine
9980!#endif
9981!
9982! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9983!
9984!#if RK5_ENABLED
9985! module subroutine setRemovedCusComCusIns_D1_D1_RK5(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
9986!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9987! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK5
9988!#endif
9989! use pm_kind, only: RKG => RK5
9990! real(RKG) , intent(inout) , allocatable :: array(:)
9991! real(RKG) , intent(in) , contiguous :: pattern(:)
9992! procedure(logical(LK)) :: iseq
9993! integer(IK) , intent(in) , contiguous :: instance(:)
9994! logical(LK) , intent(in) , optional :: sorted
9995! logical(LK) , intent(in) , optional :: unique
9996! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
9997! end subroutine
9998!#endif
9999!
10000!#if RK4_ENABLED
10001! module subroutine setRemovedCusComCusIns_D1_D1_RK4(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
10002!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10003! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK4
10004!#endif
10005! use pm_kind, only: RKG => RK4
10006! real(RKG) , intent(inout) , allocatable :: array(:)
10007! real(RKG) , intent(in) , contiguous :: pattern(:)
10008! procedure(logical(LK)) :: iseq
10009! integer(IK) , intent(in) , contiguous :: instance(:)
10010! logical(LK) , intent(in) , optional :: sorted
10011! logical(LK) , intent(in) , optional :: unique
10012! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
10013! end subroutine
10014!#endif
10015!
10016!#if RK3_ENABLED
10017! module subroutine setRemovedCusComCusIns_D1_D1_RK3(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
10018!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10019! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK3
10020!#endif
10021! use pm_kind, only: RKG => RK3
10022! real(RKG) , intent(inout) , allocatable :: array(:)
10023! real(RKG) , intent(in) , contiguous :: pattern(:)
10024! procedure(logical(LK)) :: iseq
10025! integer(IK) , intent(in) , contiguous :: instance(:)
10026! logical(LK) , intent(in) , optional :: sorted
10027! logical(LK) , intent(in) , optional :: unique
10028! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
10029! end subroutine
10030!#endif
10031!
10032!#if RK2_ENABLED
10033! module subroutine setRemovedCusComCusIns_D1_D1_RK2(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
10034!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10035! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK2
10036!#endif
10037! use pm_kind, only: RKG => RK2
10038! real(RKG) , intent(inout) , allocatable :: array(:)
10039! real(RKG) , intent(in) , contiguous :: pattern(:)
10040! procedure(logical(LK)) :: iseq
10041! integer(IK) , intent(in) , contiguous :: instance(:)
10042! logical(LK) , intent(in) , optional :: sorted
10043! logical(LK) , intent(in) , optional :: unique
10044! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
10045! end subroutine
10046!#endif
10047!
10048!#if RK1_ENABLED
10049! module subroutine setRemovedCusComCusIns_D1_D1_RK1(ArrayRemoved, array, pattern, iseq, instance, sorted, unique)
10050!#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10051! !DEC$ ATTRIBUTES DLLEXPORT :: setRemovedCusComCusIns_D1_D1_RK1
10052!#endif
10053! use pm_kind, only: RKG => RK1
10054! real(RKG) , intent(inout) , allocatable :: array(:)
10055! real(RKG) , intent(in) , contiguous :: pattern(:)
10056! procedure(logical(LK)) :: iseq
10057! integer(IK) , intent(in) , contiguous :: instance(:)
10058! logical(LK) , intent(in) , optional :: sorted
10059! logical(LK) , intent(in) , optional :: unique
10060! real(RKG) , intent(out) , allocatable :: ArrayRemoved(:)
10061! end subroutine
10062!#endif
10063!
10064! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10065!
10066! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10067! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10068! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10069! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10070! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10071! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10072! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10073! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10074! !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10075
10076 end interface
10077
10078!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10079
10080end module pm_arrayRemove ! LCOV_EXCL_LINE
Generate and return an allocatable array containing the remaining parts of the input array as a seque...
Return the remaining parts of the input array as a sequence after removing the input pattern at the r...
This module contains procedures and generic interfaces for removing a pattern from arrays of various ...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter SK5
Definition: pm_kind.F90:326
integer, parameter LK1
Definition: pm_kind.F90:412
integer, parameter IK3
Definition: pm_kind.F90:368
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter IK1
Definition: pm_kind.F90:382
integer, parameter LK5
Definition: pm_kind.F90:392
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter LK2
Definition: pm_kind.F90:407
integer, parameter LK4
Definition: pm_kind.F90:397
integer, parameter CK5
Definition: pm_kind.F90:420
integer, parameter CK4
Definition: pm_kind.F90:431
integer, parameter SK4
Definition: pm_kind.F90:331
integer, parameter LK3
Definition: pm_kind.F90:402
integer, parameter IK2
Definition: pm_kind.F90:375
integer, parameter CK2
Definition: pm_kind.F90:453
integer, parameter SK2
Definition: pm_kind.F90:341
integer, parameter CK3
Definition: pm_kind.F90:442
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter IK4
Definition: pm_kind.F90:361
integer, parameter IK5
Definition: pm_kind.F90:354
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RK1
Definition: pm_kind.F90:522
integer, parameter SK3
Definition: pm_kind.F90:336