97#define LEN_ARRAY len(array,IK)
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
357 character(
*,SKG) ,
intent(in) :: array
358 character(
*,SKG) ,
intent(in) :: pattern
359 character(:,SKG) ,
allocatable :: ArrayRemoved
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
369 character(
*,SKG) ,
intent(in) :: array
370 character(
*,SKG) ,
intent(in) :: pattern
371 character(:,SKG) ,
allocatable :: ArrayRemoved
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
381 character(
*,SKG) ,
intent(in) :: array
382 character(
*,SKG) ,
intent(in) :: pattern
383 character(:,SKG) ,
allocatable :: ArrayRemoved
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
393 character(
*,SKG) ,
intent(in) :: array
394 character(
*,SKG) ,
intent(in) :: pattern
395 character(:,SKG) ,
allocatable :: ArrayRemoved
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
405 character(
*,SKG) ,
intent(in) :: array
406 character(
*,SKG) ,
intent(in) :: pattern
407 character(:,SKG) ,
allocatable :: ArrayRemoved
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
425 character(
*,SKG) ,
intent(in) :: array
426 character(
*,SKG) ,
intent(in) :: pattern
427 procedure(
logical(LK)) :: iseq
428 character(:,SKG) ,
allocatable :: ArrayRemoved
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
438 character(
*,SKG) ,
intent(in) :: array
439 character(
*,SKG) ,
intent(in) :: pattern
440 procedure(
logical(LK)) :: iseq
441 character(:,SKG) ,
allocatable :: ArrayRemoved
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
451 character(
*,SKG) ,
intent(in) :: array
452 character(
*,SKG) ,
intent(in) :: pattern
453 procedure(
logical(LK)) :: iseq
454 character(:,SKG) ,
allocatable :: ArrayRemoved
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
464 character(
*,SKG) ,
intent(in) :: array
465 character(
*,SKG) ,
intent(in) :: pattern
466 procedure(
logical(LK)) :: iseq
467 character(:,SKG) ,
allocatable :: ArrayRemoved
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
477 character(
*,SKG) ,
intent(in) :: array
478 character(
*,SKG) ,
intent(in) :: pattern
479 procedure(
logical(LK)) :: iseq
480 character(:,SKG) ,
allocatable :: ArrayRemoved
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
675 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
676 character(
*,SKG) ,
intent(in) :: pattern
677 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
687 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
688 character(
*,SKG) ,
intent(in) :: pattern
689 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
699 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
700 character(
*,SKG) ,
intent(in) :: pattern
701 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
711 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
712 character(
*,SKG) ,
intent(in) :: pattern
713 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
723 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
724 character(
*,SKG) ,
intent(in) :: pattern
725 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
737 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
738 integer(IKG) ,
intent(in) :: pattern
739 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
749 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
750 integer(IKG) ,
intent(in) :: pattern
751 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
761 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
762 integer(IKG) ,
intent(in) :: pattern
763 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
773 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
774 integer(IKG) ,
intent(in) :: pattern
775 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
785 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
786 integer(IKG) ,
intent(in) :: pattern
787 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
799 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
800 logical(LKG) ,
intent(in) :: pattern
801 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
811 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
812 logical(LKG) ,
intent(in) :: pattern
813 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
823 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
824 logical(LKG) ,
intent(in) :: pattern
825 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
835 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
836 logical(LKG) ,
intent(in) :: pattern
837 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
847 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
848 logical(LKG) ,
intent(in) :: pattern
849 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
861 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
862 complex(CKG) ,
intent(in) :: pattern
863 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
873 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
874 complex(CKG) ,
intent(in) :: pattern
875 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
885 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
886 complex(CKG) ,
intent(in) :: pattern
887 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
897 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
898 complex(CKG) ,
intent(in) :: pattern
899 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
909 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
910 complex(CKG) ,
intent(in) :: pattern
911 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
923 real(RKG) ,
intent(in) ,
contiguous :: array(:)
924 real(RKG) ,
intent(in) :: pattern
925 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
935 real(RKG) ,
intent(in) ,
contiguous :: array(:)
936 real(RKG) ,
intent(in) :: pattern
937 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
947 real(RKG) ,
intent(in) ,
contiguous :: array(:)
948 real(RKG) ,
intent(in) :: pattern
949 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
959 real(RKG) ,
intent(in) ,
contiguous :: array(:)
960 real(RKG) ,
intent(in) :: pattern
961 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
971 real(RKG) ,
intent(in) ,
contiguous :: array(:)
972 real(RKG) ,
intent(in) :: pattern
973 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
1058 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1059 integer(IKG) ,
intent(in) :: pattern
1060 procedure(
logical(LK)) :: iseq
1061 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
1071 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1072 integer(IKG) ,
intent(in) :: pattern
1073 procedure(
logical(LK)) :: iseq
1074 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
1084 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1085 integer(IKG) ,
intent(in) :: pattern
1086 procedure(
logical(LK)) :: iseq
1087 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
1097 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1098 integer(IKG) ,
intent(in) :: pattern
1099 procedure(
logical(LK)) :: iseq
1100 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
1110 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1111 integer(IKG) ,
intent(in) :: pattern
1112 procedure(
logical(LK)) :: iseq
1113 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
1125 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1126 logical(LKG) ,
intent(in) :: pattern
1127 procedure(
logical(LK)) :: iseq
1128 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
1138 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1139 logical(LKG) ,
intent(in) :: pattern
1140 procedure(
logical(LK)) :: iseq
1141 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
1151 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1152 logical(LKG) ,
intent(in) :: pattern
1153 procedure(
logical(LK)) :: iseq
1154 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
1164 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1165 logical(LKG) ,
intent(in) :: pattern
1166 procedure(
logical(LK)) :: iseq
1167 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
1177 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1178 logical(LKG) ,
intent(in) :: pattern
1179 procedure(
logical(LK)) :: iseq
1180 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
1192 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1193 complex(CKG) ,
intent(in) :: pattern
1194 procedure(
logical(LK)) :: iseq
1195 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
1205 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1206 complex(CKG) ,
intent(in) :: pattern
1207 procedure(
logical(LK)) :: iseq
1208 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
1218 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1219 complex(CKG) ,
intent(in) :: pattern
1220 procedure(
logical(LK)) :: iseq
1221 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
1231 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1232 complex(CKG) ,
intent(in) :: pattern
1233 procedure(
logical(LK)) :: iseq
1234 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
1244 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1245 complex(CKG) ,
intent(in) :: pattern
1246 procedure(
logical(LK)) :: iseq
1247 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
1259 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1260 real(RKG) ,
intent(in) :: pattern
1261 procedure(
logical(LK)) :: iseq
1262 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
1272 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1273 real(RKG) ,
intent(in) :: pattern
1274 procedure(
logical(LK)) :: iseq
1275 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
1285 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1286 real(RKG) ,
intent(in) :: pattern
1287 procedure(
logical(LK)) :: iseq
1288 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
1298 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1299 real(RKG) ,
intent(in) :: pattern
1300 procedure(
logical(LK)) :: iseq
1301 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
1311 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1312 real(RKG) ,
intent(in) :: pattern
1313 procedure(
logical(LK)) :: iseq
1314 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
2145 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2146 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2147 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
2157 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2158 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2159 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
2169 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2170 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2171 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
2181 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2182 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2183 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
2193 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2194 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
2195 character(LEN_ARRAY, SKG) ,
allocatable :: ArrayRemoved(:)
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
2207 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2208 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2209 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2219 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2220 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2221 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2231 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2232 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2233 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2243 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2244 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2245 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2255 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2256 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2257 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2269 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2270 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2271 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2281 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2282 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2283 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2293 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2294 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2295 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2305 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2306 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2307 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2317 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2318 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2319 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2331 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2332 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2333 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2343 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2344 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2345 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2355 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2356 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2357 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2367 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2368 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2369 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2379 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2380 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2381 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2393 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2394 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2395 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
2405 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2406 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2407 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
2417 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2418 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2419 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
2429 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2430 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2431 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
2441 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2442 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2443 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
2528 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2529 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2530 procedure(
logical(LK)) :: iseq
2531 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2541 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2542 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2543 procedure(
logical(LK)) :: iseq
2544 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2554 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2555 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2556 procedure(
logical(LK)) :: iseq
2557 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2567 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2568 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2569 procedure(
logical(LK)) :: iseq
2570 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2580 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2581 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
2582 procedure(
logical(LK)) :: iseq
2583 integer(IKG) ,
allocatable :: ArrayRemoved(:)
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
2595 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2596 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2597 procedure(
logical(LK)) :: iseq
2598 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2608 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2609 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2610 procedure(
logical(LK)) :: iseq
2611 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2621 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2622 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2623 procedure(
logical(LK)) :: iseq
2624 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2634 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2635 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2636 procedure(
logical(LK)) :: iseq
2637 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2647 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2648 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
2649 procedure(
logical(LK)) :: iseq
2650 logical(LKG) ,
allocatable :: ArrayRemoved(:)
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
2662 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2663 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2664 procedure(
logical(LK)) :: iseq
2665 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2675 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2676 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2677 procedure(
logical(LK)) :: iseq
2678 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2688 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2689 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2690 procedure(
logical(LK)) :: iseq
2691 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2701 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2702 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2703 procedure(
logical(LK)) :: iseq
2704 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2714 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2715 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
2716 procedure(
logical(LK)) :: iseq
2717 complex(CKG) ,
allocatable :: ArrayRemoved(:)
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
2729 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2730 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2731 procedure(
logical(LK)) :: iseq
2732 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
2742 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2743 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2744 procedure(
logical(LK)) :: iseq
2745 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
2755 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2756 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2757 procedure(
logical(LK)) :: iseq
2758 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
2768 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2769 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2770 procedure(
logical(LK)) :: iseq
2771 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
2781 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2782 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
2783 procedure(
logical(LK)) :: iseq
2784 real(RKG) ,
allocatable :: ArrayRemoved(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
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(:)
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
3776 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3777 character(
*,SKG) ,
intent(in) :: pattern
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
3787 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3788 character(
*,SKG) ,
intent(in) :: pattern
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
3798 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3799 character(
*,SKG) ,
intent(in) :: pattern
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
3809 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3810 character(
*,SKG) ,
intent(in) :: pattern
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
3820 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3821 character(
*,SKG) ,
intent(in) :: pattern
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
3839 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3840 character(
*,SKG) ,
intent(in) :: pattern
3841 procedure(
logical(LK)) :: iseq
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
3851 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3852 character(
*,SKG) ,
intent(in) :: pattern
3853 procedure(
logical(LK)) :: iseq
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
3863 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3864 character(
*,SKG) ,
intent(in) :: pattern
3865 procedure(
logical(LK)) :: iseq
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
3875 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3876 character(
*,SKG) ,
intent(in) :: pattern
3877 procedure(
logical(LK)) :: iseq
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
3887 character(:,SKG) ,
intent(inout) ,
allocatable :: array
3888 character(
*,SKG) ,
intent(in) :: pattern
3889 procedure(
logical(LK)) :: iseq
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
4074 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4075 character(
*,SKG) ,
intent(in) :: pattern
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
4085 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4086 character(
*,SKG) ,
intent(in) :: pattern
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
4096 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4097 character(
*,SKG) ,
intent(in) :: pattern
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
4107 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4108 character(
*,SKG) ,
intent(in) :: pattern
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
4118 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4119 character(
*,SKG) ,
intent(in) :: pattern
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
4131 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4132 integer(IKG) ,
intent(in) :: pattern
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
4142 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4143 integer(IKG) ,
intent(in) :: pattern
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
4153 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4154 integer(IKG) ,
intent(in) :: pattern
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
4164 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4165 integer(IKG) ,
intent(in) :: pattern
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
4175 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4176 integer(IKG) ,
intent(in) :: pattern
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
4188 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4189 logical(LKG) ,
intent(in) :: pattern
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
4199 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4200 logical(LKG) ,
intent(in) :: pattern
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
4210 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4211 logical(LKG) ,
intent(in) :: pattern
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
4221 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4222 logical(LKG) ,
intent(in) :: pattern
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
4232 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4233 logical(LKG) ,
intent(in) :: pattern
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
4245 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4246 complex(CKG) ,
intent(in) :: pattern
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
4256 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4257 complex(CKG) ,
intent(in) :: pattern
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
4267 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4268 complex(CKG) ,
intent(in) :: pattern
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
4278 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4279 complex(CKG) ,
intent(in) :: pattern
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
4289 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4290 complex(CKG) ,
intent(in) :: pattern
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
4302 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4303 real(RKG) ,
intent(in) :: pattern
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
4313 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4314 real(RKG) ,
intent(in) :: pattern
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
4324 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4325 real(RKG) ,
intent(in) :: pattern
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
4335 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4336 real(RKG) ,
intent(in) :: pattern
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
4346 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4347 real(RKG) ,
intent(in) :: pattern
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
4365 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4366 character(
*,SKG) ,
intent(in) :: pattern
4367 procedure(
logical(LK)) :: iseq
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
4377 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4378 character(
*,SKG) ,
intent(in) :: pattern
4379 procedure(
logical(LK)) :: iseq
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
4389 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4390 character(
*,SKG) ,
intent(in) :: pattern
4391 procedure(
logical(LK)) :: iseq
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
4401 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4402 character(
*,SKG) ,
intent(in) :: pattern
4403 procedure(
logical(LK)) :: iseq
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
4413 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
4414 character(
*,SKG) ,
intent(in) :: pattern
4415 procedure(
logical(LK)) :: iseq
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
4427 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4428 integer(IKG) ,
intent(in) :: pattern
4429 procedure(
logical(LK)) :: iseq
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
4439 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4440 integer(IKG) ,
intent(in) :: pattern
4441 procedure(
logical(LK)) :: iseq
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
4451 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4452 integer(IKG) ,
intent(in) :: pattern
4453 procedure(
logical(LK)) :: iseq
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
4463 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4464 integer(IKG) ,
intent(in) :: pattern
4465 procedure(
logical(LK)) :: iseq
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
4475 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
4476 integer(IKG) ,
intent(in) :: pattern
4477 procedure(
logical(LK)) :: iseq
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
4489 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4490 logical(LKG) ,
intent(in) :: pattern
4491 procedure(
logical(LK)) :: iseq
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
4501 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4502 logical(LKG) ,
intent(in) :: pattern
4503 procedure(
logical(LK)) :: iseq
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
4513 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4514 logical(LKG) ,
intent(in) :: pattern
4515 procedure(
logical(LK)) :: iseq
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
4525 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4526 logical(LKG) ,
intent(in) :: pattern
4527 procedure(
logical(LK)) :: iseq
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
4537 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
4538 logical(LKG) ,
intent(in) :: pattern
4539 procedure(
logical(LK)) :: iseq
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
4551 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4552 complex(CKG) ,
intent(in) :: pattern
4553 procedure(
logical(LK)) :: iseq
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
4563 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4564 complex(CKG) ,
intent(in) :: pattern
4565 procedure(
logical(LK)) :: iseq
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
4575 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4576 complex(CKG) ,
intent(in) :: pattern
4577 procedure(
logical(LK)) :: iseq
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
4587 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4588 complex(CKG) ,
intent(in) :: pattern
4589 procedure(
logical(LK)) :: iseq
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
4599 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
4600 complex(CKG) ,
intent(in) :: pattern
4601 procedure(
logical(LK)) :: iseq
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
4613 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4614 real(RKG) ,
intent(in) :: pattern
4615 procedure(
logical(LK)) :: iseq
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
4625 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4626 real(RKG) ,
intent(in) :: pattern
4627 procedure(
logical(LK)) :: iseq
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
4637 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4638 real(RKG) ,
intent(in) :: pattern
4639 procedure(
logical(LK)) :: iseq
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
4649 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4650 real(RKG) ,
intent(in) :: pattern
4651 procedure(
logical(LK)) :: iseq
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
4661 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
4662 real(RKG) ,
intent(in) :: pattern
4663 procedure(
logical(LK)) :: iseq
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
5444 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5445 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5455 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5456 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5466 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5467 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5477 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5478 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5488 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5489 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5501 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5502 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5512 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5513 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5523 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5524 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5534 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5535 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5545 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5546 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5558 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5559 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5569 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5570 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5580 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5581 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5591 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5592 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5602 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5603 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5615 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5616 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5626 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5627 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5637 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5638 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5648 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5649 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5659 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5660 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5672 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
5673 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5683 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
5684 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5694 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
5695 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5705 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
5706 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5716 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
5717 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
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
5735 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5736 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5737 procedure(
logical(LK)) :: iseq
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
5747 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5748 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5749 procedure(
logical(LK)) :: iseq
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
5759 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5760 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5761 procedure(
logical(LK)) :: iseq
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
5771 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5772 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5773 procedure(
logical(LK)) :: iseq
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
5783 character(
*,SKG) ,
intent(inout) ,
allocatable :: array(:)
5784 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
5785 procedure(
logical(LK)) :: iseq
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
5797 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5798 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5799 procedure(
logical(LK)) :: iseq
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
5809 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5810 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5811 procedure(
logical(LK)) :: iseq
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
5821 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5822 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5823 procedure(
logical(LK)) :: iseq
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
5833 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5834 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5835 procedure(
logical(LK)) :: iseq
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
5845 integer(IKG) ,
intent(inout) ,
allocatable :: array(:)
5846 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
5847 procedure(
logical(LK)) :: iseq
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
5859 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5860 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5861 procedure(
logical(LK)) :: iseq
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
5871 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5872 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5873 procedure(
logical(LK)) :: iseq
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
5883 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5884 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5885 procedure(
logical(LK)) :: iseq
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
5895 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5896 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5897 procedure(
logical(LK)) :: iseq
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
5907 logical(LKG) ,
intent(inout) ,
allocatable :: array(:)
5908 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
5909 procedure(
logical(LK)) :: iseq
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
5921 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5922 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5923 procedure(
logical(LK)) :: iseq
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
5933 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5934 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5935 procedure(
logical(LK)) :: iseq
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
5945 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5946 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5947 procedure(
logical(LK)) :: iseq
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
5957 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5958 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5959 procedure(
logical(LK)) :: iseq
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
5969 complex(CKG) ,
intent(inout) ,
allocatable :: array(:)
5970 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
5971 procedure(
logical(LK)) :: iseq
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
5983 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
5984 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5985 procedure(
logical(LK)) :: iseq
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
5995 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
5996 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
5997 procedure(
logical(LK)) :: iseq
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
6007 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
6008 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
6009 procedure(
logical(LK)) :: iseq
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
6019 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
6020 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
6021 procedure(
logical(LK)) :: iseq
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
6031 real(RKG) ,
intent(inout) ,
allocatable :: array(:)
6032 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
6033 procedure(
logical(LK)) :: iseq
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...