375 PURE module function getCountLocDefBorDefCom_D0_D0_SK5(array, pattern, blindness)
result(count)
376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
377 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D0_D0_SK5
380 character(
*,SKG) ,
intent(in) :: array
381 character(
*,SKG) ,
intent(in) :: pattern
382 integer(IK) ,
intent(in),
optional :: blindness
388 PURE module function getCountLocDefBorDefCom_D0_D0_SK4(array, pattern, blindness)
result(count)
389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
390 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D0_D0_SK4
393 character(
*,SKG) ,
intent(in) :: array
394 character(
*,SKG) ,
intent(in) :: pattern
395 integer(IK) ,
intent(in),
optional :: blindness
401 PURE module function getCountLocDefBorDefCom_D0_D0_SK3(array, pattern, blindness)
result(count)
402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
403 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D0_D0_SK3
406 character(
*,SKG) ,
intent(in) :: array
407 character(
*,SKG) ,
intent(in) :: pattern
408 integer(IK) ,
intent(in),
optional :: blindness
414 PURE module function getCountLocDefBorDefCom_D0_D0_SK2(array, pattern, blindness)
result(count)
415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
416 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D0_D0_SK2
419 character(
*,SKG) ,
intent(in) :: array
420 character(
*,SKG) ,
intent(in) :: pattern
421 integer(IK) ,
intent(in),
optional :: blindness
427 PURE module function getCountLocDefBorDefCom_D0_D0_SK1(array, pattern, blindness)
result(count)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D0_D0_SK1
432 character(
*,SKG) ,
intent(in) :: array
433 character(
*,SKG) ,
intent(in) :: pattern
434 integer(IK) ,
intent(in),
optional :: blindness
448 module function getCountLocDefBorCusCom_D0_D0_SK5(array, pattern, iseq, blindness)
result(count)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D0_D0_SK5
453 character(
*,SKG) ,
intent(in) :: array
454 character(
*,SKG) ,
intent(in) :: pattern
455 procedure(
logical(LK)) :: iseq
456 integer(IK) ,
intent(in),
optional :: blindness
462 module function getCountLocDefBorCusCom_D0_D0_SK4(array, pattern, iseq, blindness)
result(count)
463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
464 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D0_D0_SK4
467 character(
*,SKG) ,
intent(in) :: array
468 character(
*,SKG) ,
intent(in) :: pattern
469 procedure(
logical(LK)) :: iseq
470 integer(IK) ,
intent(in),
optional :: blindness
476 module function getCountLocDefBorCusCom_D0_D0_SK3(array, pattern, iseq, blindness)
result(count)
477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
478 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D0_D0_SK3
481 character(
*,SKG) ,
intent(in) :: array
482 character(
*,SKG) ,
intent(in) :: pattern
483 procedure(
logical(LK)) :: iseq
484 integer(IK) ,
intent(in),
optional :: blindness
490 module function getCountLocDefBorCusCom_D0_D0_SK2(array, pattern, iseq, blindness)
result(count)
491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
492 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D0_D0_SK2
495 character(
*,SKG) ,
intent(in) :: array
496 character(
*,SKG) ,
intent(in) :: pattern
497 procedure(
logical(LK)) :: iseq
498 integer(IK) ,
intent(in),
optional :: blindness
504 module function getCountLocDefBorCusCom_D0_D0_SK1(array, pattern, iseq, blindness)
result(count)
505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
506 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D0_D0_SK1
509 character(
*,SKG) ,
intent(in) :: array
510 character(
*,SKG) ,
intent(in) :: pattern
511 procedure(
logical(LK)) :: iseq
512 integer(IK) ,
intent(in),
optional :: blindness
536 PURE module function getCountLocDefBorDefCom_D1_D0_SK5(array, pattern, blindness)
result(count)
537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
538 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_SK5
541 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
542 character(
*,SKG) ,
intent(in) :: pattern
543 integer(IK) ,
intent(in),
optional :: blindness
549 PURE module function getCountLocDefBorDefCom_D1_D0_SK4(array, pattern, blindness)
result(count)
550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
551 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_SK4
554 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
555 character(
*,SKG) ,
intent(in) :: pattern
556 integer(IK) ,
intent(in),
optional :: blindness
562 PURE module function getCountLocDefBorDefCom_D1_D0_SK3(array, pattern, blindness)
result(count)
563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
564 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_SK3
567 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
568 character(
*,SKG) ,
intent(in) :: pattern
569 integer(IK) ,
intent(in),
optional :: blindness
575 PURE module function getCountLocDefBorDefCom_D1_D0_SK2(array, pattern, blindness)
result(count)
576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
577 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_SK2
580 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
581 character(
*,SKG) ,
intent(in) :: pattern
582 integer(IK) ,
intent(in),
optional :: blindness
588 PURE module function getCountLocDefBorDefCom_D1_D0_SK1(array, pattern, blindness)
result(count)
589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
590 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_SK1
593 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
594 character(
*,SKG) ,
intent(in) :: pattern
595 integer(IK) ,
intent(in),
optional :: blindness
603 PURE module function getCountLocDefBorDefCom_D1_D0_IK5(array, pattern, blindness)
result(count)
604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
605 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_IK5
608 integer(IKG) ,
intent(in),
contiguous :: array(:)
609 integer(IKG) ,
intent(in) :: pattern
610 integer(IK) ,
intent(in),
optional :: blindness
616 PURE module function getCountLocDefBorDefCom_D1_D0_IK4(array, pattern, blindness)
result(count)
617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
618 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_IK4
621 integer(IKG) ,
intent(in),
contiguous :: array(:)
622 integer(IKG) ,
intent(in) :: pattern
623 integer(IK) ,
intent(in),
optional :: blindness
629 PURE module function getCountLocDefBorDefCom_D1_D0_IK3(array, pattern, blindness)
result(count)
630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
631 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_IK3
634 integer(IKG) ,
intent(in),
contiguous :: array(:)
635 integer(IKG) ,
intent(in) :: pattern
636 integer(IK) ,
intent(in),
optional :: blindness
642 PURE module function getCountLocDefBorDefCom_D1_D0_IK2(array, pattern, blindness)
result(count)
643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
644 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_IK2
647 integer(IKG) ,
intent(in),
contiguous :: array(:)
648 integer(IKG) ,
intent(in) :: pattern
649 integer(IK) ,
intent(in),
optional :: blindness
655 PURE module function getCountLocDefBorDefCom_D1_D0_IK1(array, pattern, blindness)
result(count)
656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
657 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_IK1
660 integer(IKG) ,
intent(in),
contiguous :: array(:)
661 integer(IKG) ,
intent(in) :: pattern
662 integer(IK) ,
intent(in),
optional :: blindness
670 PURE module function getCountLocDefBorDefCom_D1_D0_LK5(array, pattern, blindness)
result(count)
671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
672 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_LK5
675 logical(LKG) ,
intent(in),
contiguous :: array(:)
676 logical(LKG) ,
intent(in) :: pattern
677 integer(IK) ,
intent(in),
optional :: blindness
683 PURE module function getCountLocDefBorDefCom_D1_D0_LK4(array, pattern, blindness)
result(count)
684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
685 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_LK4
688 logical(LKG) ,
intent(in),
contiguous :: array(:)
689 logical(LKG) ,
intent(in) :: pattern
690 integer(IK) ,
intent(in),
optional :: blindness
696 PURE module function getCountLocDefBorDefCom_D1_D0_LK3(array, pattern, blindness)
result(count)
697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
698 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_LK3
701 logical(LKG) ,
intent(in),
contiguous :: array(:)
702 logical(LKG) ,
intent(in) :: pattern
703 integer(IK) ,
intent(in),
optional :: blindness
709 PURE module function getCountLocDefBorDefCom_D1_D0_LK2(array, pattern, blindness)
result(count)
710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
711 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_LK2
714 logical(LKG) ,
intent(in),
contiguous :: array(:)
715 logical(LKG) ,
intent(in) :: pattern
716 integer(IK) ,
intent(in),
optional :: blindness
722 PURE module function getCountLocDefBorDefCom_D1_D0_LK1(array, pattern, blindness)
result(count)
723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
724 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_LK1
727 logical(LKG) ,
intent(in),
contiguous :: array(:)
728 logical(LKG) ,
intent(in) :: pattern
729 integer(IK) ,
intent(in),
optional :: blindness
737 PURE module function getCountLocDefBorDefCom_D1_D0_CK5(array, pattern, blindness)
result(count)
738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
739 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_CK5
742 complex(CKG) ,
intent(in),
contiguous :: array(:)
743 complex(CKG) ,
intent(in) :: pattern
744 integer(IK) ,
intent(in),
optional :: blindness
750 PURE module function getCountLocDefBorDefCom_D1_D0_CK4(array, pattern, blindness)
result(count)
751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
752 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_CK4
755 complex(CKG) ,
intent(in),
contiguous :: array(:)
756 complex(CKG) ,
intent(in) :: pattern
757 integer(IK) ,
intent(in),
optional :: blindness
763 PURE module function getCountLocDefBorDefCom_D1_D0_CK3(array, pattern, blindness)
result(count)
764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
765 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_CK3
768 complex(CKG) ,
intent(in),
contiguous :: array(:)
769 complex(CKG) ,
intent(in) :: pattern
770 integer(IK) ,
intent(in),
optional :: blindness
776 PURE module function getCountLocDefBorDefCom_D1_D0_CK2(array, pattern, blindness)
result(count)
777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
778 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_CK2
781 complex(CKG) ,
intent(in),
contiguous :: array(:)
782 complex(CKG) ,
intent(in) :: pattern
783 integer(IK) ,
intent(in),
optional :: blindness
789 PURE module function getCountLocDefBorDefCom_D1_D0_CK1(array, pattern, blindness)
result(count)
790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
791 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_CK1
794 complex(CKG) ,
intent(in),
contiguous :: array(:)
795 complex(CKG) ,
intent(in) :: pattern
796 integer(IK) ,
intent(in),
optional :: blindness
804 PURE module function getCountLocDefBorDefCom_D1_D0_RK5(array, pattern, blindness)
result(count)
805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
806 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_RK5
809 real(RKG) ,
intent(in),
contiguous :: array(:)
810 real(RKG) ,
intent(in) :: pattern
811 integer(IK) ,
intent(in),
optional :: blindness
817 PURE module function getCountLocDefBorDefCom_D1_D0_RK4(array, pattern, blindness)
result(count)
818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
819 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_RK4
822 real(RKG) ,
intent(in),
contiguous :: array(:)
823 real(RKG) ,
intent(in) :: pattern
824 integer(IK) ,
intent(in),
optional :: blindness
830 PURE module function getCountLocDefBorDefCom_D1_D0_RK3(array, pattern, blindness)
result(count)
831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
832 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_RK3
835 real(RKG) ,
intent(in),
contiguous :: array(:)
836 real(RKG) ,
intent(in) :: pattern
837 integer(IK) ,
intent(in),
optional :: blindness
843 PURE module function getCountLocDefBorDefCom_D1_D0_RK2(array, pattern, blindness)
result(count)
844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
845 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_RK2
848 real(RKG) ,
intent(in),
contiguous :: array(:)
849 real(RKG) ,
intent(in) :: pattern
850 integer(IK) ,
intent(in),
optional :: blindness
856 PURE module function getCountLocDefBorDefCom_D1_D0_RK1(array, pattern, blindness)
result(count)
857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
858 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D0_RK1
861 real(RKG) ,
intent(in),
contiguous :: array(:)
862 real(RKG) ,
intent(in) :: pattern
863 integer(IK) ,
intent(in),
optional :: blindness
877 module function getCountLocDefBorCusCom_D1_D0_SK5(array, pattern, iseq, blindness)
result(count)
878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
879 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_SK5
882 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
883 character(
*,SKG) ,
intent(in) :: pattern
884 procedure(
logical(LK)) :: iseq
885 integer(IK) ,
intent(in),
optional :: blindness
891 module function getCountLocDefBorCusCom_D1_D0_SK4(array, pattern, iseq, blindness)
result(count)
892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
893 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_SK4
896 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
897 character(
*,SKG) ,
intent(in) :: pattern
898 procedure(
logical(LK)) :: iseq
899 integer(IK) ,
intent(in),
optional :: blindness
905 module function getCountLocDefBorCusCom_D1_D0_SK3(array, pattern, iseq, blindness)
result(count)
906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
907 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_SK3
910 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
911 character(
*,SKG) ,
intent(in) :: pattern
912 procedure(
logical(LK)) :: iseq
913 integer(IK) ,
intent(in),
optional :: blindness
919 module function getCountLocDefBorCusCom_D1_D0_SK2(array, pattern, iseq, blindness)
result(count)
920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
921 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_SK2
924 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
925 character(
*,SKG) ,
intent(in) :: pattern
926 procedure(
logical(LK)) :: iseq
927 integer(IK) ,
intent(in),
optional :: blindness
933 module function getCountLocDefBorCusCom_D1_D0_SK1(array, pattern, iseq, blindness)
result(count)
934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
935 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_SK1
938 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
939 character(
*,SKG) ,
intent(in) :: pattern
940 procedure(
logical(LK)) :: iseq
941 integer(IK) ,
intent(in),
optional :: blindness
949 module function getCountLocDefBorCusCom_D1_D0_IK5(array, pattern, iseq, blindness)
result(count)
950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
951 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_IK5
954 integer(IKG) ,
intent(in),
contiguous :: array(:)
955 integer(IKG) ,
intent(in) :: pattern
956 procedure(
logical(LK)) :: iseq
957 integer(IK) ,
intent(in),
optional :: blindness
963 module function getCountLocDefBorCusCom_D1_D0_IK4(array, pattern, iseq, blindness)
result(count)
964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
965 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_IK4
968 integer(IKG) ,
intent(in),
contiguous :: array(:)
969 integer(IKG) ,
intent(in) :: pattern
970 procedure(
logical(LK)) :: iseq
971 integer(IK) ,
intent(in),
optional :: blindness
977 module function getCountLocDefBorCusCom_D1_D0_IK3(array, pattern, iseq, blindness)
result(count)
978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
979 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_IK3
982 integer(IKG) ,
intent(in),
contiguous :: array(:)
983 integer(IKG) ,
intent(in) :: pattern
984 procedure(
logical(LK)) :: iseq
985 integer(IK) ,
intent(in),
optional :: blindness
991 module function getCountLocDefBorCusCom_D1_D0_IK2(array, pattern, iseq, blindness)
result(count)
992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
993 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_IK2
996 integer(IKG) ,
intent(in),
contiguous :: array(:)
997 integer(IKG) ,
intent(in) :: pattern
998 procedure(
logical(LK)) :: iseq
999 integer(IK) ,
intent(in),
optional :: blindness
1000 integer(IK) :: count
1005 module function getCountLocDefBorCusCom_D1_D0_IK1(array, pattern, iseq, blindness)
result(count)
1006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1007 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_IK1
1010 integer(IKG) ,
intent(in),
contiguous :: array(:)
1011 integer(IKG) ,
intent(in) :: pattern
1012 procedure(
logical(LK)) :: iseq
1013 integer(IK) ,
intent(in),
optional :: blindness
1014 integer(IK) :: count
1021 module function getCountLocDefBorCusCom_D1_D0_LK5(array, pattern, iseq, blindness)
result(count)
1022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1023 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_LK5
1026 logical(LKG) ,
intent(in),
contiguous :: array(:)
1027 logical(LKG) ,
intent(in) :: pattern
1028 procedure(
logical(LK)) :: iseq
1029 integer(IK) ,
intent(in),
optional :: blindness
1030 integer(IK) :: count
1035 module function getCountLocDefBorCusCom_D1_D0_LK4(array, pattern, iseq, blindness)
result(count)
1036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1037 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_LK4
1040 logical(LKG) ,
intent(in),
contiguous :: array(:)
1041 logical(LKG) ,
intent(in) :: pattern
1042 procedure(
logical(LK)) :: iseq
1043 integer(IK) ,
intent(in),
optional :: blindness
1044 integer(IK) :: count
1049 module function getCountLocDefBorCusCom_D1_D0_LK3(array, pattern, iseq, blindness)
result(count)
1050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1051 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_LK3
1054 logical(LKG) ,
intent(in),
contiguous :: array(:)
1055 logical(LKG) ,
intent(in) :: pattern
1056 procedure(
logical(LK)) :: iseq
1057 integer(IK) ,
intent(in),
optional :: blindness
1058 integer(IK) :: count
1063 module function getCountLocDefBorCusCom_D1_D0_LK2(array, pattern, iseq, blindness)
result(count)
1064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1065 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_LK2
1068 logical(LKG) ,
intent(in),
contiguous :: array(:)
1069 logical(LKG) ,
intent(in) :: pattern
1070 procedure(
logical(LK)) :: iseq
1071 integer(IK) ,
intent(in),
optional :: blindness
1072 integer(IK) :: count
1077 module function getCountLocDefBorCusCom_D1_D0_LK1(array, pattern, iseq, blindness)
result(count)
1078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1079 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_LK1
1082 logical(LKG) ,
intent(in),
contiguous :: array(:)
1083 logical(LKG) ,
intent(in) :: pattern
1084 procedure(
logical(LK)) :: iseq
1085 integer(IK) ,
intent(in),
optional :: blindness
1086 integer(IK) :: count
1093 module function getCountLocDefBorCusCom_D1_D0_CK5(array, pattern, iseq, blindness)
result(count)
1094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1095 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_CK5
1098 complex(CKG) ,
intent(in),
contiguous :: array(:)
1099 complex(CKG) ,
intent(in) :: pattern
1100 procedure(
logical(LK)) :: iseq
1101 integer(IK) ,
intent(in),
optional :: blindness
1102 integer(IK) :: count
1107 module function getCountLocDefBorCusCom_D1_D0_CK4(array, pattern, iseq, blindness)
result(count)
1108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1109 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_CK4
1112 complex(CKG) ,
intent(in),
contiguous :: array(:)
1113 complex(CKG) ,
intent(in) :: pattern
1114 procedure(
logical(LK)) :: iseq
1115 integer(IK) ,
intent(in),
optional :: blindness
1116 integer(IK) :: count
1121 module function getCountLocDefBorCusCom_D1_D0_CK3(array, pattern, iseq, blindness)
result(count)
1122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1123 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_CK3
1126 complex(CKG) ,
intent(in),
contiguous :: array(:)
1127 complex(CKG) ,
intent(in) :: pattern
1128 procedure(
logical(LK)) :: iseq
1129 integer(IK) ,
intent(in),
optional :: blindness
1130 integer(IK) :: count
1135 module function getCountLocDefBorCusCom_D1_D0_CK2(array, pattern, iseq, blindness)
result(count)
1136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1137 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_CK2
1140 complex(CKG) ,
intent(in),
contiguous :: array(:)
1141 complex(CKG) ,
intent(in) :: pattern
1142 procedure(
logical(LK)) :: iseq
1143 integer(IK) ,
intent(in),
optional :: blindness
1144 integer(IK) :: count
1149 module function getCountLocDefBorCusCom_D1_D0_CK1(array, pattern, iseq, blindness)
result(count)
1150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1151 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_CK1
1154 complex(CKG) ,
intent(in),
contiguous :: array(:)
1155 complex(CKG) ,
intent(in) :: pattern
1156 procedure(
logical(LK)) :: iseq
1157 integer(IK) ,
intent(in),
optional :: blindness
1158 integer(IK) :: count
1165 module function getCountLocDefBorCusCom_D1_D0_RK5(array, pattern, iseq, blindness)
result(count)
1166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1167 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_RK5
1170 real(RKG) ,
intent(in),
contiguous :: array(:)
1171 real(RKG) ,
intent(in) :: pattern
1172 procedure(
logical(LK)) :: iseq
1173 integer(IK) ,
intent(in),
optional :: blindness
1174 integer(IK) :: count
1179 module function getCountLocDefBorCusCom_D1_D0_RK4(array, pattern, iseq, blindness)
result(count)
1180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1181 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_RK4
1184 real(RKG) ,
intent(in),
contiguous :: array(:)
1185 real(RKG) ,
intent(in) :: pattern
1186 procedure(
logical(LK)) :: iseq
1187 integer(IK) ,
intent(in),
optional :: blindness
1188 integer(IK) :: count
1193 module function getCountLocDefBorCusCom_D1_D0_RK3(array, pattern, iseq, blindness)
result(count)
1194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1195 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_RK3
1198 real(RKG) ,
intent(in),
contiguous :: array(:)
1199 real(RKG) ,
intent(in) :: pattern
1200 procedure(
logical(LK)) :: iseq
1201 integer(IK) ,
intent(in),
optional :: blindness
1202 integer(IK) :: count
1207 module function getCountLocDefBorCusCom_D1_D0_RK2(array, pattern, iseq, blindness)
result(count)
1208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1209 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_RK2
1212 real(RKG) ,
intent(in),
contiguous :: array(:)
1213 real(RKG) ,
intent(in) :: pattern
1214 procedure(
logical(LK)) :: iseq
1215 integer(IK) ,
intent(in),
optional :: blindness
1216 integer(IK) :: count
1221 module function getCountLocDefBorCusCom_D1_D0_RK1(array, pattern, iseq, blindness)
result(count)
1222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1223 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D0_RK1
1226 real(RKG) ,
intent(in),
contiguous :: array(:)
1227 real(RKG) ,
intent(in) :: pattern
1228 procedure(
logical(LK)) :: iseq
1229 integer(IK) ,
intent(in),
optional :: blindness
1230 integer(IK) :: count
1253 PURE module function getCountLocDefBorDefCom_D1_D1_SK5(array, pattern, blindness)
result(count)
1254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1255 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_SK5
1258 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1259 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1260 integer(IK) ,
intent(in),
optional :: blindness
1261 integer(IK) :: count
1266 PURE module function getCountLocDefBorDefCom_D1_D1_SK4(array, pattern, blindness)
result(count)
1267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1268 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_SK4
1271 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1272 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1273 integer(IK) ,
intent(in),
optional :: blindness
1274 integer(IK) :: count
1279 PURE module function getCountLocDefBorDefCom_D1_D1_SK3(array, pattern, blindness)
result(count)
1280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1281 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_SK3
1284 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1285 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1286 integer(IK) ,
intent(in),
optional :: blindness
1287 integer(IK) :: count
1292 PURE module function getCountLocDefBorDefCom_D1_D1_SK2(array, pattern, blindness)
result(count)
1293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1294 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_SK2
1297 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1298 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1299 integer(IK) ,
intent(in),
optional :: blindness
1300 integer(IK) :: count
1305 PURE module function getCountLocDefBorDefCom_D1_D1_SK1(array, pattern, blindness)
result(count)
1306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1307 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_SK1
1310 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1311 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1312 integer(IK) ,
intent(in),
optional :: blindness
1313 integer(IK) :: count
1320 PURE module function getCountLocDefBorDefCom_D1_D1_IK5(array, pattern, blindness)
result(count)
1321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1322 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_IK5
1325 integer(IKG) ,
intent(in),
contiguous :: array(:)
1326 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1327 integer(IK) ,
intent(in),
optional :: blindness
1328 integer(IK) :: count
1333 PURE module function getCountLocDefBorDefCom_D1_D1_IK4(array, pattern, blindness)
result(count)
1334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1335 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_IK4
1338 integer(IKG) ,
intent(in),
contiguous :: array(:)
1339 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1340 integer(IK) ,
intent(in),
optional :: blindness
1341 integer(IK) :: count
1346 PURE module function getCountLocDefBorDefCom_D1_D1_IK3(array, pattern, blindness)
result(count)
1347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1348 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_IK3
1351 integer(IKG) ,
intent(in),
contiguous :: array(:)
1352 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1353 integer(IK) ,
intent(in),
optional :: blindness
1354 integer(IK) :: count
1359 PURE module function getCountLocDefBorDefCom_D1_D1_IK2(array, pattern, blindness)
result(count)
1360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1361 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_IK2
1364 integer(IKG) ,
intent(in),
contiguous :: array(:)
1365 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1366 integer(IK) ,
intent(in),
optional :: blindness
1367 integer(IK) :: count
1372 PURE module function getCountLocDefBorDefCom_D1_D1_IK1(array, pattern, blindness)
result(count)
1373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1374 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_IK1
1377 integer(IKG) ,
intent(in),
contiguous :: array(:)
1378 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1379 integer(IK) ,
intent(in),
optional :: blindness
1380 integer(IK) :: count
1387 PURE module function getCountLocDefBorDefCom_D1_D1_LK5(array, pattern, blindness)
result(count)
1388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1389 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_LK5
1392 logical(LKG) ,
intent(in),
contiguous :: array(:)
1393 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1394 integer(IK) ,
intent(in),
optional :: blindness
1395 integer(IK) :: count
1400 PURE module function getCountLocDefBorDefCom_D1_D1_LK4(array, pattern, blindness)
result(count)
1401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1402 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_LK4
1405 logical(LKG) ,
intent(in),
contiguous :: array(:)
1406 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1407 integer(IK) ,
intent(in),
optional :: blindness
1408 integer(IK) :: count
1413 PURE module function getCountLocDefBorDefCom_D1_D1_LK3(array, pattern, blindness)
result(count)
1414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1415 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_LK3
1418 logical(LKG) ,
intent(in),
contiguous :: array(:)
1419 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1420 integer(IK) ,
intent(in),
optional :: blindness
1421 integer(IK) :: count
1426 PURE module function getCountLocDefBorDefCom_D1_D1_LK2(array, pattern, blindness)
result(count)
1427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1428 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_LK2
1431 logical(LKG) ,
intent(in),
contiguous :: array(:)
1432 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1433 integer(IK) ,
intent(in),
optional :: blindness
1434 integer(IK) :: count
1439 PURE module function getCountLocDefBorDefCom_D1_D1_LK1(array, pattern, blindness)
result(count)
1440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1441 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_LK1
1444 logical(LKG) ,
intent(in),
contiguous :: array(:)
1445 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1446 integer(IK) ,
intent(in),
optional :: blindness
1447 integer(IK) :: count
1454 PURE module function getCountLocDefBorDefCom_D1_D1_CK5(array, pattern, blindness)
result(count)
1455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1456 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_CK5
1459 complex(CKG) ,
intent(in),
contiguous :: array(:)
1460 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1461 integer(IK) ,
intent(in),
optional :: blindness
1462 integer(IK) :: count
1467 PURE module function getCountLocDefBorDefCom_D1_D1_CK4(array, pattern, blindness)
result(count)
1468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1469 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_CK4
1472 complex(CKG) ,
intent(in),
contiguous :: array(:)
1473 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1474 integer(IK) ,
intent(in),
optional :: blindness
1475 integer(IK) :: count
1480 PURE module function getCountLocDefBorDefCom_D1_D1_CK3(array, pattern, blindness)
result(count)
1481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1482 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_CK3
1485 complex(CKG) ,
intent(in),
contiguous :: array(:)
1486 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1487 integer(IK) ,
intent(in),
optional :: blindness
1488 integer(IK) :: count
1493 PURE module function getCountLocDefBorDefCom_D1_D1_CK2(array, pattern, blindness)
result(count)
1494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1495 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_CK2
1498 complex(CKG) ,
intent(in),
contiguous :: array(:)
1499 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1500 integer(IK) ,
intent(in),
optional :: blindness
1501 integer(IK) :: count
1506 PURE module function getCountLocDefBorDefCom_D1_D1_CK1(array, pattern, blindness)
result(count)
1507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1508 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_CK1
1511 complex(CKG) ,
intent(in),
contiguous :: array(:)
1512 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1513 integer(IK) ,
intent(in),
optional :: blindness
1514 integer(IK) :: count
1521 PURE module function getCountLocDefBorDefCom_D1_D1_RK5(array, pattern, blindness)
result(count)
1522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1523 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_RK5
1526 real(RKG) ,
intent(in),
contiguous :: array(:)
1527 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1528 integer(IK) ,
intent(in),
optional :: blindness
1529 integer(IK) :: count
1534 PURE module function getCountLocDefBorDefCom_D1_D1_RK4(array, pattern, blindness)
result(count)
1535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1536 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_RK4
1539 real(RKG) ,
intent(in),
contiguous :: array(:)
1540 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1541 integer(IK) ,
intent(in),
optional :: blindness
1542 integer(IK) :: count
1547 PURE module function getCountLocDefBorDefCom_D1_D1_RK3(array, pattern, blindness)
result(count)
1548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1549 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_RK3
1552 real(RKG) ,
intent(in),
contiguous :: array(:)
1553 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1554 integer(IK) ,
intent(in),
optional :: blindness
1555 integer(IK) :: count
1560 PURE module function getCountLocDefBorDefCom_D1_D1_RK2(array, pattern, blindness)
result(count)
1561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1562 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_RK2
1565 real(RKG) ,
intent(in),
contiguous :: array(:)
1566 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1567 integer(IK) ,
intent(in),
optional :: blindness
1568 integer(IK) :: count
1573 PURE module function getCountLocDefBorDefCom_D1_D1_RK1(array, pattern, blindness)
result(count)
1574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1575 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorDefCom_D1_D1_RK1
1578 real(RKG) ,
intent(in),
contiguous :: array(:)
1579 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1580 integer(IK) ,
intent(in),
optional :: blindness
1581 integer(IK) :: count
1594 module function getCountLocDefBorCusCom_D1_D1_SK5(array, pattern, iseq, blindness)
result(count)
1595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1596 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_SK5
1599 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1600 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1601 procedure(
logical(LK)) :: iseq
1602 integer(IK) ,
intent(in),
optional :: blindness
1603 integer(IK) :: count
1608 module function getCountLocDefBorCusCom_D1_D1_SK4(array, pattern, iseq, blindness)
result(count)
1609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1610 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_SK4
1613 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1614 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1615 procedure(
logical(LK)) :: iseq
1616 integer(IK) ,
intent(in),
optional :: blindness
1617 integer(IK) :: count
1622 module function getCountLocDefBorCusCom_D1_D1_SK3(array, pattern, iseq, blindness)
result(count)
1623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1624 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_SK3
1627 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1628 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1629 procedure(
logical(LK)) :: iseq
1630 integer(IK) ,
intent(in),
optional :: blindness
1631 integer(IK) :: count
1636 module function getCountLocDefBorCusCom_D1_D1_SK2(array, pattern, iseq, blindness)
result(count)
1637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1638 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_SK2
1641 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1642 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1643 procedure(
logical(LK)) :: iseq
1644 integer(IK) ,
intent(in),
optional :: blindness
1645 integer(IK) :: count
1650 module function getCountLocDefBorCusCom_D1_D1_SK1(array, pattern, iseq, blindness)
result(count)
1651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1652 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_SK1
1655 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
1656 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
1657 procedure(
logical(LK)) :: iseq
1658 integer(IK) ,
intent(in),
optional :: blindness
1659 integer(IK) :: count
1666 module function getCountLocDefBorCusCom_D1_D1_IK5(array, pattern, iseq, blindness)
result(count)
1667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1668 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_IK5
1671 integer(IKG) ,
intent(in),
contiguous :: array(:)
1672 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1673 procedure(
logical(LK)) :: iseq
1674 integer(IK) ,
intent(in),
optional :: blindness
1675 integer(IK) :: count
1680 module function getCountLocDefBorCusCom_D1_D1_IK4(array, pattern, iseq, blindness)
result(count)
1681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1682 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_IK4
1685 integer(IKG) ,
intent(in),
contiguous :: array(:)
1686 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1687 procedure(
logical(LK)) :: iseq
1688 integer(IK) ,
intent(in),
optional :: blindness
1689 integer(IK) :: count
1694 module function getCountLocDefBorCusCom_D1_D1_IK3(array, pattern, iseq, blindness)
result(count)
1695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1696 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_IK3
1699 integer(IKG) ,
intent(in),
contiguous :: array(:)
1700 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1701 procedure(
logical(LK)) :: iseq
1702 integer(IK) ,
intent(in),
optional :: blindness
1703 integer(IK) :: count
1708 module function getCountLocDefBorCusCom_D1_D1_IK2(array, pattern, iseq, blindness)
result(count)
1709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1710 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_IK2
1713 integer(IKG) ,
intent(in),
contiguous :: array(:)
1714 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1715 procedure(
logical(LK)) :: iseq
1716 integer(IK) ,
intent(in),
optional :: blindness
1717 integer(IK) :: count
1722 module function getCountLocDefBorCusCom_D1_D1_IK1(array, pattern, iseq, blindness)
result(count)
1723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1724 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_IK1
1727 integer(IKG) ,
intent(in),
contiguous :: array(:)
1728 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
1729 procedure(
logical(LK)) :: iseq
1730 integer(IK) ,
intent(in),
optional :: blindness
1731 integer(IK) :: count
1738 module function getCountLocDefBorCusCom_D1_D1_LK5(array, pattern, iseq, blindness)
result(count)
1739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1740 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_LK5
1743 logical(LKG) ,
intent(in),
contiguous :: array(:)
1744 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1745 procedure(
logical(LK)) :: iseq
1746 integer(IK) ,
intent(in),
optional :: blindness
1747 integer(IK) :: count
1752 module function getCountLocDefBorCusCom_D1_D1_LK4(array, pattern, iseq, blindness)
result(count)
1753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1754 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_LK4
1757 logical(LKG) ,
intent(in),
contiguous :: array(:)
1758 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1759 procedure(
logical(LK)) :: iseq
1760 integer(IK) ,
intent(in),
optional :: blindness
1761 integer(IK) :: count
1766 module function getCountLocDefBorCusCom_D1_D1_LK3(array, pattern, iseq, blindness)
result(count)
1767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1768 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_LK3
1771 logical(LKG) ,
intent(in),
contiguous :: array(:)
1772 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1773 procedure(
logical(LK)) :: iseq
1774 integer(IK) ,
intent(in),
optional :: blindness
1775 integer(IK) :: count
1780 module function getCountLocDefBorCusCom_D1_D1_LK2(array, pattern, iseq, blindness)
result(count)
1781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1782 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_LK2
1785 logical(LKG) ,
intent(in),
contiguous :: array(:)
1786 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1787 procedure(
logical(LK)) :: iseq
1788 integer(IK) ,
intent(in),
optional :: blindness
1789 integer(IK) :: count
1794 module function getCountLocDefBorCusCom_D1_D1_LK1(array, pattern, iseq, blindness)
result(count)
1795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1796 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_LK1
1799 logical(LKG) ,
intent(in),
contiguous :: array(:)
1800 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
1801 procedure(
logical(LK)) :: iseq
1802 integer(IK) ,
intent(in),
optional :: blindness
1803 integer(IK) :: count
1810 module function getCountLocDefBorCusCom_D1_D1_CK5(array, pattern, iseq, blindness)
result(count)
1811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1812 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_CK5
1815 complex(CKG) ,
intent(in),
contiguous :: array(:)
1816 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1817 procedure(
logical(LK)) :: iseq
1818 integer(IK) ,
intent(in),
optional :: blindness
1819 integer(IK) :: count
1824 module function getCountLocDefBorCusCom_D1_D1_CK4(array, pattern, iseq, blindness)
result(count)
1825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1826 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_CK4
1829 complex(CKG) ,
intent(in),
contiguous :: array(:)
1830 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1831 procedure(
logical(LK)) :: iseq
1832 integer(IK) ,
intent(in),
optional :: blindness
1833 integer(IK) :: count
1838 module function getCountLocDefBorCusCom_D1_D1_CK3(array, pattern, iseq, blindness)
result(count)
1839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1840 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_CK3
1843 complex(CKG) ,
intent(in),
contiguous :: array(:)
1844 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1845 procedure(
logical(LK)) :: iseq
1846 integer(IK) ,
intent(in),
optional :: blindness
1847 integer(IK) :: count
1852 module function getCountLocDefBorCusCom_D1_D1_CK2(array, pattern, iseq, blindness)
result(count)
1853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1854 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_CK2
1857 complex(CKG) ,
intent(in),
contiguous :: array(:)
1858 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1859 procedure(
logical(LK)) :: iseq
1860 integer(IK) ,
intent(in),
optional :: blindness
1861 integer(IK) :: count
1866 module function getCountLocDefBorCusCom_D1_D1_CK1(array, pattern, iseq, blindness)
result(count)
1867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1868 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_CK1
1871 complex(CKG) ,
intent(in),
contiguous :: array(:)
1872 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
1873 procedure(
logical(LK)) :: iseq
1874 integer(IK) ,
intent(in),
optional :: blindness
1875 integer(IK) :: count
1882 module function getCountLocDefBorCusCom_D1_D1_RK5(array, pattern, iseq, blindness)
result(count)
1883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1884 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_RK5
1887 real(RKG) ,
intent(in),
contiguous :: array(:)
1888 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1889 procedure(
logical(LK)) :: iseq
1890 integer(IK) ,
intent(in),
optional :: blindness
1891 integer(IK) :: count
1896 module function getCountLocDefBorCusCom_D1_D1_RK4(array, pattern, iseq, blindness)
result(count)
1897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1898 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_RK4
1901 real(RKG) ,
intent(in),
contiguous :: array(:)
1902 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1903 procedure(
logical(LK)) :: iseq
1904 integer(IK) ,
intent(in),
optional :: blindness
1905 integer(IK) :: count
1910 module function getCountLocDefBorCusCom_D1_D1_RK3(array, pattern, iseq, blindness)
result(count)
1911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1912 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_RK3
1915 real(RKG) ,
intent(in),
contiguous :: array(:)
1916 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1917 procedure(
logical(LK)) :: iseq
1918 integer(IK) ,
intent(in),
optional :: blindness
1919 integer(IK) :: count
1924 module function getCountLocDefBorCusCom_D1_D1_RK2(array, pattern, iseq, blindness)
result(count)
1925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1926 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_RK2
1929 real(RKG) ,
intent(in),
contiguous :: array(:)
1930 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1931 procedure(
logical(LK)) :: iseq
1932 integer(IK) ,
intent(in),
optional :: blindness
1933 integer(IK) :: count
1938 module function getCountLocDefBorCusCom_D1_D1_RK1(array, pattern, iseq, blindness)
result(count)
1939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1940 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDefBorCusCom_D1_D1_RK1
1943 real(RKG) ,
intent(in),
contiguous :: array(:)
1944 real(RKG) ,
intent(in),
contiguous :: pattern(:)
1945 procedure(
logical(LK)) :: iseq
1946 integer(IK) ,
intent(in),
optional :: blindness
1947 integer(IK) :: count
1970 PURE module function getCountLocDisBorDefCom_D0_D0_SK5(array, pattern, border, blindness)
result(count)
1971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1972 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D0_D0_SK5
1975 character(
*,SKG) ,
intent(in) :: array
1976 character(
*,SKG) ,
intent(in) :: pattern
1977 type(discrete_type) ,
intent(in) :: border
1978 integer(IK) ,
intent(in),
optional :: blindness
1979 integer(IK) :: count
1984 PURE module function getCountLocDisBorDefCom_D0_D0_SK4(array, pattern, border, blindness)
result(count)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D0_D0_SK4
1989 character(
*,SKG) ,
intent(in) :: array
1990 character(
*,SKG) ,
intent(in) :: pattern
1991 type(discrete_type) ,
intent(in) :: border
1992 integer(IK) ,
intent(in),
optional :: blindness
1993 integer(IK) :: count
1998 PURE module function getCountLocDisBorDefCom_D0_D0_SK3(array, pattern, border, blindness)
result(count)
1999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2000 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D0_D0_SK3
2003 character(
*,SKG) ,
intent(in) :: array
2004 character(
*,SKG) ,
intent(in) :: pattern
2005 type(discrete_type) ,
intent(in) :: border
2006 integer(IK) ,
intent(in),
optional :: blindness
2007 integer(IK) :: count
2012 PURE module function getCountLocDisBorDefCom_D0_D0_SK2(array, pattern, border, blindness)
result(count)
2013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2014 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D0_D0_SK2
2017 character(
*,SKG) ,
intent(in) :: array
2018 character(
*,SKG) ,
intent(in) :: pattern
2019 type(discrete_type) ,
intent(in) :: border
2020 integer(IK) ,
intent(in),
optional :: blindness
2021 integer(IK) :: count
2026 PURE module function getCountLocDisBorDefCom_D0_D0_SK1(array, pattern, border, blindness)
result(count)
2027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2028 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D0_D0_SK1
2031 character(
*,SKG) ,
intent(in) :: array
2032 character(
*,SKG) ,
intent(in) :: pattern
2033 type(discrete_type) ,
intent(in) :: border
2034 integer(IK) ,
intent(in),
optional :: blindness
2035 integer(IK) :: count
2048 module function getCountLocDisBorCusCom_D0_D0_SK5(array, pattern, border, iseq, blindness)
result(count)
2049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2050 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D0_D0_SK5
2053 character(
*,SKG) ,
intent(in) :: array
2054 character(
*,SKG) ,
intent(in) :: pattern
2055 procedure(
logical(LK)) :: iseq
2056 type(discrete_type) ,
intent(in) :: border
2057 integer(IK) ,
intent(in),
optional :: blindness
2058 integer(IK) :: count
2063 module function getCountLocDisBorCusCom_D0_D0_SK4(array, pattern, border, iseq, blindness)
result(count)
2064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2065 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D0_D0_SK4
2068 character(
*,SKG) ,
intent(in) :: array
2069 character(
*,SKG) ,
intent(in) :: pattern
2070 procedure(
logical(LK)) :: iseq
2071 type(discrete_type) ,
intent(in) :: border
2072 integer(IK) ,
intent(in),
optional :: blindness
2073 integer(IK) :: count
2078 module function getCountLocDisBorCusCom_D0_D0_SK3(array, pattern, border, iseq, blindness)
result(count)
2079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2080 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D0_D0_SK3
2083 character(
*,SKG) ,
intent(in) :: array
2084 character(
*,SKG) ,
intent(in) :: pattern
2085 procedure(
logical(LK)) :: iseq
2086 type(discrete_type) ,
intent(in) :: border
2087 integer(IK) ,
intent(in),
optional :: blindness
2088 integer(IK) :: count
2093 module function getCountLocDisBorCusCom_D0_D0_SK2(array, pattern, border, iseq, blindness)
result(count)
2094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2095 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D0_D0_SK2
2098 character(
*,SKG) ,
intent(in) :: array
2099 character(
*,SKG) ,
intent(in) :: pattern
2100 procedure(
logical(LK)) :: iseq
2101 type(discrete_type) ,
intent(in) :: border
2102 integer(IK) ,
intent(in),
optional :: blindness
2103 integer(IK) :: count
2108 module function getCountLocDisBorCusCom_D0_D0_SK1(array, pattern, border, iseq, blindness)
result(count)
2109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2110 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D0_D0_SK1
2113 character(
*,SKG) ,
intent(in) :: array
2114 character(
*,SKG) ,
intent(in) :: pattern
2115 procedure(
logical(LK)) :: iseq
2116 type(discrete_type) ,
intent(in) :: border
2117 integer(IK) ,
intent(in),
optional :: blindness
2118 integer(IK) :: count
2141 PURE module function getCountLocDisBorDefCom_D1_D0_SK5(array, pattern, border, blindness)
result(count)
2142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2143 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_SK5
2146 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2147 character(
*,SKG) ,
intent(in) :: pattern
2148 type(discrete_type) ,
intent(in) :: border
2149 integer(IK) ,
intent(in),
optional :: blindness
2150 integer(IK) :: count
2155 PURE module function getCountLocDisBorDefCom_D1_D0_SK4(array, pattern, border, blindness)
result(count)
2156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2157 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_SK4
2160 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2161 character(
*,SKG) ,
intent(in) :: pattern
2162 type(discrete_type) ,
intent(in) :: border
2163 integer(IK) ,
intent(in),
optional :: blindness
2164 integer(IK) :: count
2169 PURE module function getCountLocDisBorDefCom_D1_D0_SK3(array, pattern, border, blindness)
result(count)
2170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2171 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_SK3
2174 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2175 character(
*,SKG) ,
intent(in) :: pattern
2176 type(discrete_type) ,
intent(in) :: border
2177 integer(IK) ,
intent(in),
optional :: blindness
2178 integer(IK) :: count
2183 PURE module function getCountLocDisBorDefCom_D1_D0_SK2(array, pattern, border, blindness)
result(count)
2184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2185 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_SK2
2188 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2189 character(
*,SKG) ,
intent(in) :: pattern
2190 type(discrete_type) ,
intent(in) :: border
2191 integer(IK) ,
intent(in),
optional :: blindness
2192 integer(IK) :: count
2197 PURE module function getCountLocDisBorDefCom_D1_D0_SK1(array, pattern, border, blindness)
result(count)
2198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2199 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_SK1
2202 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2203 character(
*,SKG) ,
intent(in) :: pattern
2204 type(discrete_type) ,
intent(in) :: border
2205 integer(IK) ,
intent(in),
optional :: blindness
2206 integer(IK) :: count
2213 PURE module function getCountLocDisBorDefCom_D1_D0_IK5(array, pattern, border, blindness)
result(count)
2214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2215 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_IK5
2218 integer(IKG) ,
intent(in),
contiguous :: array(:)
2219 integer(IKG) ,
intent(in) :: pattern
2220 type(discrete_type) ,
intent(in) :: border
2221 integer(IK) ,
intent(in),
optional :: blindness
2222 integer(IK) :: count
2227 PURE module function getCountLocDisBorDefCom_D1_D0_IK4(array, pattern, border, blindness)
result(count)
2228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2229 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_IK4
2232 integer(IKG) ,
intent(in),
contiguous :: array(:)
2233 integer(IKG) ,
intent(in) :: pattern
2234 type(discrete_type) ,
intent(in) :: border
2235 integer(IK) ,
intent(in),
optional :: blindness
2236 integer(IK) :: count
2241 PURE module function getCountLocDisBorDefCom_D1_D0_IK3(array, pattern, border, blindness)
result(count)
2242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2243 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_IK3
2246 integer(IKG) ,
intent(in),
contiguous :: array(:)
2247 integer(IKG) ,
intent(in) :: pattern
2248 type(discrete_type) ,
intent(in) :: border
2249 integer(IK) ,
intent(in),
optional :: blindness
2250 integer(IK) :: count
2255 PURE module function getCountLocDisBorDefCom_D1_D0_IK2(array, pattern, border, blindness)
result(count)
2256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2257 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_IK2
2260 integer(IKG) ,
intent(in),
contiguous :: array(:)
2261 integer(IKG) ,
intent(in) :: pattern
2262 type(discrete_type) ,
intent(in) :: border
2263 integer(IK) ,
intent(in),
optional :: blindness
2264 integer(IK) :: count
2269 PURE module function getCountLocDisBorDefCom_D1_D0_IK1(array, pattern, border, blindness)
result(count)
2270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2271 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_IK1
2274 integer(IKG) ,
intent(in),
contiguous :: array(:)
2275 integer(IKG) ,
intent(in) :: pattern
2276 type(discrete_type) ,
intent(in) :: border
2277 integer(IK) ,
intent(in),
optional :: blindness
2278 integer(IK) :: count
2285 PURE module function getCountLocDisBorDefCom_D1_D0_LK5(array, pattern, border, blindness)
result(count)
2286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2287 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_LK5
2290 logical(LKG) ,
intent(in),
contiguous :: array(:)
2291 logical(LKG) ,
intent(in) :: pattern
2292 type(discrete_type) ,
intent(in) :: border
2293 integer(IK) ,
intent(in),
optional :: blindness
2294 integer(IK) :: count
2299 PURE module function getCountLocDisBorDefCom_D1_D0_LK4(array, pattern, border, blindness)
result(count)
2300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2301 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_LK4
2304 logical(LKG) ,
intent(in),
contiguous :: array(:)
2305 logical(LKG) ,
intent(in) :: pattern
2306 type(discrete_type) ,
intent(in) :: border
2307 integer(IK) ,
intent(in),
optional :: blindness
2308 integer(IK) :: count
2313 PURE module function getCountLocDisBorDefCom_D1_D0_LK3(array, pattern, border, blindness)
result(count)
2314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2315 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_LK3
2318 logical(LKG) ,
intent(in),
contiguous :: array(:)
2319 logical(LKG) ,
intent(in) :: pattern
2320 type(discrete_type) ,
intent(in) :: border
2321 integer(IK) ,
intent(in),
optional :: blindness
2322 integer(IK) :: count
2327 PURE module function getCountLocDisBorDefCom_D1_D0_LK2(array, pattern, border, blindness)
result(count)
2328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2329 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_LK2
2332 logical(LKG) ,
intent(in),
contiguous :: array(:)
2333 logical(LKG) ,
intent(in) :: pattern
2334 type(discrete_type) ,
intent(in) :: border
2335 integer(IK) ,
intent(in),
optional :: blindness
2336 integer(IK) :: count
2341 PURE module function getCountLocDisBorDefCom_D1_D0_LK1(array, pattern, border, blindness)
result(count)
2342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2343 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_LK1
2346 logical(LKG) ,
intent(in),
contiguous :: array(:)
2347 logical(LKG) ,
intent(in) :: pattern
2348 type(discrete_type) ,
intent(in) :: border
2349 integer(IK) ,
intent(in),
optional :: blindness
2350 integer(IK) :: count
2357 PURE module function getCountLocDisBorDefCom_D1_D0_CK5(array, pattern, border, blindness)
result(count)
2358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2359 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_CK5
2362 complex(CKG) ,
intent(in),
contiguous :: array(:)
2363 complex(CKG) ,
intent(in) :: pattern
2364 type(discrete_type) ,
intent(in) :: border
2365 integer(IK) ,
intent(in),
optional :: blindness
2366 integer(IK) :: count
2371 PURE module function getCountLocDisBorDefCom_D1_D0_CK4(array, pattern, border, blindness)
result(count)
2372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2373 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_CK4
2376 complex(CKG) ,
intent(in),
contiguous :: array(:)
2377 complex(CKG) ,
intent(in) :: pattern
2378 type(discrete_type) ,
intent(in) :: border
2379 integer(IK) ,
intent(in),
optional :: blindness
2380 integer(IK) :: count
2385 PURE module function getCountLocDisBorDefCom_D1_D0_CK3(array, pattern, border, blindness)
result(count)
2386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2387 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_CK3
2390 complex(CKG) ,
intent(in),
contiguous :: array(:)
2391 complex(CKG) ,
intent(in) :: pattern
2392 type(discrete_type) ,
intent(in) :: border
2393 integer(IK) ,
intent(in),
optional :: blindness
2394 integer(IK) :: count
2399 PURE module function getCountLocDisBorDefCom_D1_D0_CK2(array, pattern, border, blindness)
result(count)
2400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2401 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_CK2
2404 complex(CKG) ,
intent(in),
contiguous :: array(:)
2405 complex(CKG) ,
intent(in) :: pattern
2406 type(discrete_type) ,
intent(in) :: border
2407 integer(IK) ,
intent(in),
optional :: blindness
2408 integer(IK) :: count
2413 PURE module function getCountLocDisBorDefCom_D1_D0_CK1(array, pattern, border, blindness)
result(count)
2414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2415 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_CK1
2418 complex(CKG) ,
intent(in),
contiguous :: array(:)
2419 complex(CKG) ,
intent(in) :: pattern
2420 type(discrete_type) ,
intent(in) :: border
2421 integer(IK) ,
intent(in),
optional :: blindness
2422 integer(IK) :: count
2429 PURE module function getCountLocDisBorDefCom_D1_D0_RK5(array, pattern, border, blindness)
result(count)
2430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2431 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_RK5
2434 real(RKG) ,
intent(in),
contiguous :: array(:)
2435 real(RKG) ,
intent(in) :: pattern
2436 type(discrete_type) ,
intent(in) :: border
2437 integer(IK) ,
intent(in),
optional :: blindness
2438 integer(IK) :: count
2443 PURE module function getCountLocDisBorDefCom_D1_D0_RK4(array, pattern, border, blindness)
result(count)
2444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2445 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_RK4
2448 real(RKG) ,
intent(in),
contiguous :: array(:)
2449 real(RKG) ,
intent(in) :: pattern
2450 type(discrete_type) ,
intent(in) :: border
2451 integer(IK) ,
intent(in),
optional :: blindness
2452 integer(IK) :: count
2457 PURE module function getCountLocDisBorDefCom_D1_D0_RK3(array, pattern, border, blindness)
result(count)
2458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2459 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_RK3
2462 real(RKG) ,
intent(in),
contiguous :: array(:)
2463 real(RKG) ,
intent(in) :: pattern
2464 type(discrete_type) ,
intent(in) :: border
2465 integer(IK) ,
intent(in),
optional :: blindness
2466 integer(IK) :: count
2471 PURE module function getCountLocDisBorDefCom_D1_D0_RK2(array, pattern, border, blindness)
result(count)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_RK2
2476 real(RKG) ,
intent(in),
contiguous :: array(:)
2477 real(RKG) ,
intent(in) :: pattern
2478 type(discrete_type) ,
intent(in) :: border
2479 integer(IK) ,
intent(in),
optional :: blindness
2480 integer(IK) :: count
2485 PURE module function getCountLocDisBorDefCom_D1_D0_RK1(array, pattern, border, blindness)
result(count)
2486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2487 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D0_RK1
2490 real(RKG) ,
intent(in),
contiguous :: array(:)
2491 real(RKG) ,
intent(in) :: pattern
2492 type(discrete_type) ,
intent(in) :: border
2493 integer(IK) ,
intent(in),
optional :: blindness
2494 integer(IK) :: count
2507 module function getCountLocDisBorCusCom_D1_D0_SK5(array, pattern, border, iseq, blindness)
result(count)
2508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2509 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_SK5
2512 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2513 character(
*,SKG) ,
intent(in) :: pattern
2514 procedure(
logical(LK)) :: iseq
2515 type(discrete_type) ,
intent(in) :: border
2516 integer(IK) ,
intent(in),
optional :: blindness
2517 integer(IK) :: count
2522 module function getCountLocDisBorCusCom_D1_D0_SK4(array, pattern, border, iseq, blindness)
result(count)
2523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2524 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_SK4
2527 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2528 character(
*,SKG) ,
intent(in) :: pattern
2529 procedure(
logical(LK)) :: iseq
2530 type(discrete_type) ,
intent(in) :: border
2531 integer(IK) ,
intent(in),
optional :: blindness
2532 integer(IK) :: count
2537 module function getCountLocDisBorCusCom_D1_D0_SK3(array, pattern, border, iseq, blindness)
result(count)
2538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2539 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_SK3
2542 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2543 character(
*,SKG) ,
intent(in) :: pattern
2544 procedure(
logical(LK)) :: iseq
2545 type(discrete_type) ,
intent(in) :: border
2546 integer(IK) ,
intent(in),
optional :: blindness
2547 integer(IK) :: count
2552 module function getCountLocDisBorCusCom_D1_D0_SK2(array, pattern, border, iseq, blindness)
result(count)
2553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2554 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_SK2
2557 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2558 character(
*,SKG) ,
intent(in) :: pattern
2559 procedure(
logical(LK)) :: iseq
2560 type(discrete_type) ,
intent(in) :: border
2561 integer(IK) ,
intent(in),
optional :: blindness
2562 integer(IK) :: count
2567 module function getCountLocDisBorCusCom_D1_D0_SK1(array, pattern, border, iseq, blindness)
result(count)
2568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2569 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_SK1
2572 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2573 character(
*,SKG) ,
intent(in) :: pattern
2574 procedure(
logical(LK)) :: iseq
2575 type(discrete_type) ,
intent(in) :: border
2576 integer(IK) ,
intent(in),
optional :: blindness
2577 integer(IK) :: count
2584 module function getCountLocDisBorCusCom_D1_D0_IK5(array, pattern, border, iseq, blindness)
result(count)
2585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2586 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_IK5
2589 integer(IKG) ,
intent(in),
contiguous :: array(:)
2590 integer(IKG) ,
intent(in) :: pattern
2591 procedure(
logical(LK)) :: iseq
2592 type(discrete_type) ,
intent(in) :: border
2593 integer(IK) ,
intent(in),
optional :: blindness
2594 integer(IK) :: count
2599 module function getCountLocDisBorCusCom_D1_D0_IK4(array, pattern, border, iseq, blindness)
result(count)
2600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2601 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_IK4
2604 integer(IKG) ,
intent(in),
contiguous :: array(:)
2605 integer(IKG) ,
intent(in) :: pattern
2606 procedure(
logical(LK)) :: iseq
2607 type(discrete_type) ,
intent(in) :: border
2608 integer(IK) ,
intent(in),
optional :: blindness
2609 integer(IK) :: count
2614 module function getCountLocDisBorCusCom_D1_D0_IK3(array, pattern, border, iseq, blindness)
result(count)
2615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2616 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_IK3
2619 integer(IKG) ,
intent(in),
contiguous :: array(:)
2620 integer(IKG) ,
intent(in) :: pattern
2621 procedure(
logical(LK)) :: iseq
2622 type(discrete_type) ,
intent(in) :: border
2623 integer(IK) ,
intent(in),
optional :: blindness
2624 integer(IK) :: count
2629 module function getCountLocDisBorCusCom_D1_D0_IK2(array, pattern, border, iseq, blindness)
result(count)
2630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2631 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_IK2
2634 integer(IKG) ,
intent(in),
contiguous :: array(:)
2635 integer(IKG) ,
intent(in) :: pattern
2636 procedure(
logical(LK)) :: iseq
2637 type(discrete_type) ,
intent(in) :: border
2638 integer(IK) ,
intent(in),
optional :: blindness
2639 integer(IK) :: count
2644 module function getCountLocDisBorCusCom_D1_D0_IK1(array, pattern, border, iseq, blindness)
result(count)
2645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2646 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_IK1
2649 integer(IKG) ,
intent(in),
contiguous :: array(:)
2650 integer(IKG) ,
intent(in) :: pattern
2651 procedure(
logical(LK)) :: iseq
2652 type(discrete_type) ,
intent(in) :: border
2653 integer(IK) ,
intent(in),
optional :: blindness
2654 integer(IK) :: count
2661 module function getCountLocDisBorCusCom_D1_D0_LK5(array, pattern, border, iseq, blindness)
result(count)
2662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2663 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_LK5
2666 logical(LKG) ,
intent(in),
contiguous :: array(:)
2667 logical(LKG) ,
intent(in) :: pattern
2668 procedure(
logical(LK)) :: iseq
2669 type(discrete_type) ,
intent(in) :: border
2670 integer(IK) ,
intent(in),
optional :: blindness
2671 integer(IK) :: count
2676 module function getCountLocDisBorCusCom_D1_D0_LK4(array, pattern, border, iseq, blindness)
result(count)
2677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2678 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_LK4
2681 logical(LKG) ,
intent(in),
contiguous :: array(:)
2682 logical(LKG) ,
intent(in) :: pattern
2683 procedure(
logical(LK)) :: iseq
2684 type(discrete_type) ,
intent(in) :: border
2685 integer(IK) ,
intent(in),
optional :: blindness
2686 integer(IK) :: count
2691 module function getCountLocDisBorCusCom_D1_D0_LK3(array, pattern, border, iseq, blindness)
result(count)
2692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2693 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_LK3
2696 logical(LKG) ,
intent(in),
contiguous :: array(:)
2697 logical(LKG) ,
intent(in) :: pattern
2698 procedure(
logical(LK)) :: iseq
2699 type(discrete_type) ,
intent(in) :: border
2700 integer(IK) ,
intent(in),
optional :: blindness
2701 integer(IK) :: count
2706 module function getCountLocDisBorCusCom_D1_D0_LK2(array, pattern, border, iseq, blindness)
result(count)
2707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2708 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_LK2
2711 logical(LKG) ,
intent(in),
contiguous :: array(:)
2712 logical(LKG) ,
intent(in) :: pattern
2713 procedure(
logical(LK)) :: iseq
2714 type(discrete_type) ,
intent(in) :: border
2715 integer(IK) ,
intent(in),
optional :: blindness
2716 integer(IK) :: count
2721 module function getCountLocDisBorCusCom_D1_D0_LK1(array, pattern, border, iseq, blindness)
result(count)
2722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2723 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_LK1
2726 logical(LKG) ,
intent(in),
contiguous :: array(:)
2727 logical(LKG) ,
intent(in) :: pattern
2728 procedure(
logical(LK)) :: iseq
2729 type(discrete_type) ,
intent(in) :: border
2730 integer(IK) ,
intent(in),
optional :: blindness
2731 integer(IK) :: count
2738 module function getCountLocDisBorCusCom_D1_D0_CK5(array, pattern, border, iseq, blindness)
result(count)
2739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2740 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_CK5
2743 complex(CKG) ,
intent(in),
contiguous :: array(:)
2744 complex(CKG) ,
intent(in) :: pattern
2745 procedure(
logical(LK)) :: iseq
2746 type(discrete_type) ,
intent(in) :: border
2747 integer(IK) ,
intent(in),
optional :: blindness
2748 integer(IK) :: count
2753 module function getCountLocDisBorCusCom_D1_D0_CK4(array, pattern, border, iseq, blindness)
result(count)
2754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2755 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_CK4
2758 complex(CKG) ,
intent(in),
contiguous :: array(:)
2759 complex(CKG) ,
intent(in) :: pattern
2760 procedure(
logical(LK)) :: iseq
2761 type(discrete_type) ,
intent(in) :: border
2762 integer(IK) ,
intent(in),
optional :: blindness
2763 integer(IK) :: count
2768 module function getCountLocDisBorCusCom_D1_D0_CK3(array, pattern, border, iseq, blindness)
result(count)
2769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2770 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_CK3
2773 complex(CKG) ,
intent(in),
contiguous :: array(:)
2774 complex(CKG) ,
intent(in) :: pattern
2775 procedure(
logical(LK)) :: iseq
2776 type(discrete_type) ,
intent(in) :: border
2777 integer(IK) ,
intent(in),
optional :: blindness
2778 integer(IK) :: count
2783 module function getCountLocDisBorCusCom_D1_D0_CK2(array, pattern, border, iseq, blindness)
result(count)
2784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2785 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_CK2
2788 complex(CKG) ,
intent(in),
contiguous :: array(:)
2789 complex(CKG) ,
intent(in) :: pattern
2790 procedure(
logical(LK)) :: iseq
2791 type(discrete_type) ,
intent(in) :: border
2792 integer(IK) ,
intent(in),
optional :: blindness
2793 integer(IK) :: count
2798 module function getCountLocDisBorCusCom_D1_D0_CK1(array, pattern, border, iseq, blindness)
result(count)
2799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2800 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_CK1
2803 complex(CKG) ,
intent(in),
contiguous :: array(:)
2804 complex(CKG) ,
intent(in) :: pattern
2805 procedure(
logical(LK)) :: iseq
2806 type(discrete_type) ,
intent(in) :: border
2807 integer(IK) ,
intent(in),
optional :: blindness
2808 integer(IK) :: count
2815 module function getCountLocDisBorCusCom_D1_D0_RK5(array, pattern, border, iseq, blindness)
result(count)
2816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2817 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_RK5
2820 real(RKG) ,
intent(in),
contiguous :: array(:)
2821 real(RKG) ,
intent(in) :: pattern
2822 procedure(
logical(LK)) :: iseq
2823 type(discrete_type) ,
intent(in) :: border
2824 integer(IK) ,
intent(in),
optional :: blindness
2825 integer(IK) :: count
2830 module function getCountLocDisBorCusCom_D1_D0_RK4(array, pattern, border, iseq, blindness)
result(count)
2831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2832 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_RK4
2835 real(RKG) ,
intent(in),
contiguous :: array(:)
2836 real(RKG) ,
intent(in) :: pattern
2837 procedure(
logical(LK)) :: iseq
2838 type(discrete_type) ,
intent(in) :: border
2839 integer(IK) ,
intent(in),
optional :: blindness
2840 integer(IK) :: count
2845 module function getCountLocDisBorCusCom_D1_D0_RK3(array, pattern, border, iseq, blindness)
result(count)
2846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2847 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_RK3
2850 real(RKG) ,
intent(in),
contiguous :: array(:)
2851 real(RKG) ,
intent(in) :: pattern
2852 procedure(
logical(LK)) :: iseq
2853 type(discrete_type) ,
intent(in) :: border
2854 integer(IK) ,
intent(in),
optional :: blindness
2855 integer(IK) :: count
2860 module function getCountLocDisBorCusCom_D1_D0_RK2(array, pattern, border, iseq, blindness)
result(count)
2861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2862 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_RK2
2865 real(RKG) ,
intent(in),
contiguous :: array(:)
2866 real(RKG) ,
intent(in) :: pattern
2867 procedure(
logical(LK)) :: iseq
2868 type(discrete_type) ,
intent(in) :: border
2869 integer(IK) ,
intent(in),
optional :: blindness
2870 integer(IK) :: count
2875 module function getCountLocDisBorCusCom_D1_D0_RK1(array, pattern, border, iseq, blindness)
result(count)
2876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2877 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D0_RK1
2880 real(RKG) ,
intent(in),
contiguous :: array(:)
2881 real(RKG) ,
intent(in) :: pattern
2882 procedure(
logical(LK)) :: iseq
2883 type(discrete_type) ,
intent(in) :: border
2884 integer(IK) ,
intent(in),
optional :: blindness
2885 integer(IK) :: count
2908 PURE module function getCountLocDisBorDefCom_D1_D1_SK5(array, pattern, border, blindness)
result(count)
2909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2910 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_SK5
2913 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2914 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2915 type(discrete_type) ,
intent(in) :: border
2916 integer(IK) ,
intent(in),
optional :: blindness
2917 integer(IK) :: count
2922 PURE module function getCountLocDisBorDefCom_D1_D1_SK4(array, pattern, border, blindness)
result(count)
2923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2924 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_SK4
2927 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2928 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2929 type(discrete_type) ,
intent(in) :: border
2930 integer(IK) ,
intent(in),
optional :: blindness
2931 integer(IK) :: count
2936 PURE module function getCountLocDisBorDefCom_D1_D1_SK3(array, pattern, border, blindness)
result(count)
2937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2938 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_SK3
2941 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2942 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2943 type(discrete_type) ,
intent(in) :: border
2944 integer(IK) ,
intent(in),
optional :: blindness
2945 integer(IK) :: count
2950 PURE module function getCountLocDisBorDefCom_D1_D1_SK2(array, pattern, border, blindness)
result(count)
2951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2952 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_SK2
2955 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2956 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2957 type(discrete_type) ,
intent(in) :: border
2958 integer(IK) ,
intent(in),
optional :: blindness
2959 integer(IK) :: count
2964 PURE module function getCountLocDisBorDefCom_D1_D1_SK1(array, pattern, border, blindness)
result(count)
2965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2966 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_SK1
2969 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
2970 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
2971 type(discrete_type) ,
intent(in) :: border
2972 integer(IK) ,
intent(in),
optional :: blindness
2973 integer(IK) :: count
2980 PURE module function getCountLocDisBorDefCom_D1_D1_IK5(array, pattern, border, blindness)
result(count)
2981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2982 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_IK5
2985 integer(IKG) ,
intent(in),
contiguous :: array(:)
2986 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
2987 type(discrete_type) ,
intent(in) :: border
2988 integer(IK) ,
intent(in),
optional :: blindness
2989 integer(IK) :: count
2994 PURE module function getCountLocDisBorDefCom_D1_D1_IK4(array, pattern, border, blindness)
result(count)
2995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2996 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_IK4
2999 integer(IKG) ,
intent(in),
contiguous :: array(:)
3000 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3001 type(discrete_type) ,
intent(in) :: border
3002 integer(IK) ,
intent(in),
optional :: blindness
3003 integer(IK) :: count
3008 PURE module function getCountLocDisBorDefCom_D1_D1_IK3(array, pattern, border, blindness)
result(count)
3009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3010 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_IK3
3013 integer(IKG) ,
intent(in),
contiguous :: array(:)
3014 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3015 type(discrete_type) ,
intent(in) :: border
3016 integer(IK) ,
intent(in),
optional :: blindness
3017 integer(IK) :: count
3022 PURE module function getCountLocDisBorDefCom_D1_D1_IK2(array, pattern, border, blindness)
result(count)
3023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3024 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_IK2
3027 integer(IKG) ,
intent(in),
contiguous :: array(:)
3028 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3029 type(discrete_type) ,
intent(in) :: border
3030 integer(IK) ,
intent(in),
optional :: blindness
3031 integer(IK) :: count
3036 PURE module function getCountLocDisBorDefCom_D1_D1_IK1(array, pattern, border, blindness)
result(count)
3037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3038 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_IK1
3041 integer(IKG) ,
intent(in),
contiguous :: array(:)
3042 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3043 type(discrete_type) ,
intent(in) :: border
3044 integer(IK) ,
intent(in),
optional :: blindness
3045 integer(IK) :: count
3052 PURE module function getCountLocDisBorDefCom_D1_D1_LK5(array, pattern, border, blindness)
result(count)
3053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3054 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_LK5
3057 logical(LKG) ,
intent(in),
contiguous :: array(:)
3058 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3059 type(discrete_type) ,
intent(in) :: border
3060 integer(IK) ,
intent(in),
optional :: blindness
3061 integer(IK) :: count
3066 PURE module function getCountLocDisBorDefCom_D1_D1_LK4(array, pattern, border, blindness)
result(count)
3067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3068 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_LK4
3071 logical(LKG) ,
intent(in),
contiguous :: array(:)
3072 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3073 type(discrete_type) ,
intent(in) :: border
3074 integer(IK) ,
intent(in),
optional :: blindness
3075 integer(IK) :: count
3080 PURE module function getCountLocDisBorDefCom_D1_D1_LK3(array, pattern, border, blindness)
result(count)
3081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3082 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_LK3
3085 logical(LKG) ,
intent(in),
contiguous :: array(:)
3086 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3087 type(discrete_type) ,
intent(in) :: border
3088 integer(IK) ,
intent(in),
optional :: blindness
3089 integer(IK) :: count
3094 PURE module function getCountLocDisBorDefCom_D1_D1_LK2(array, pattern, border, blindness)
result(count)
3095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3096 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_LK2
3099 logical(LKG) ,
intent(in),
contiguous :: array(:)
3100 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3101 type(discrete_type) ,
intent(in) :: border
3102 integer(IK) ,
intent(in),
optional :: blindness
3103 integer(IK) :: count
3108 PURE module function getCountLocDisBorDefCom_D1_D1_LK1(array, pattern, border, blindness)
result(count)
3109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3110 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_LK1
3113 logical(LKG) ,
intent(in),
contiguous :: array(:)
3114 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3115 type(discrete_type) ,
intent(in) :: border
3116 integer(IK) ,
intent(in),
optional :: blindness
3117 integer(IK) :: count
3124 PURE module function getCountLocDisBorDefCom_D1_D1_CK5(array, pattern, border, blindness)
result(count)
3125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3126 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_CK5
3129 complex(CKG) ,
intent(in),
contiguous :: array(:)
3130 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3131 type(discrete_type) ,
intent(in) :: border
3132 integer(IK) ,
intent(in),
optional :: blindness
3133 integer(IK) :: count
3138 PURE module function getCountLocDisBorDefCom_D1_D1_CK4(array, pattern, border, blindness)
result(count)
3139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3140 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_CK4
3143 complex(CKG) ,
intent(in),
contiguous :: array(:)
3144 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3145 type(discrete_type) ,
intent(in) :: border
3146 integer(IK) ,
intent(in),
optional :: blindness
3147 integer(IK) :: count
3152 PURE module function getCountLocDisBorDefCom_D1_D1_CK3(array, pattern, border, blindness)
result(count)
3153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3154 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_CK3
3157 complex(CKG) ,
intent(in),
contiguous :: array(:)
3158 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3159 type(discrete_type) ,
intent(in) :: border
3160 integer(IK) ,
intent(in),
optional :: blindness
3161 integer(IK) :: count
3166 PURE module function getCountLocDisBorDefCom_D1_D1_CK2(array, pattern, border, blindness)
result(count)
3167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3168 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_CK2
3171 complex(CKG) ,
intent(in),
contiguous :: array(:)
3172 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3173 type(discrete_type) ,
intent(in) :: border
3174 integer(IK) ,
intent(in),
optional :: blindness
3175 integer(IK) :: count
3180 PURE module function getCountLocDisBorDefCom_D1_D1_CK1(array, pattern, border, blindness)
result(count)
3181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3182 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_CK1
3185 complex(CKG) ,
intent(in),
contiguous :: array(:)
3186 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3187 type(discrete_type) ,
intent(in) :: border
3188 integer(IK) ,
intent(in),
optional :: blindness
3189 integer(IK) :: count
3196 PURE module function getCountLocDisBorDefCom_D1_D1_RK5(array, pattern, border, blindness)
result(count)
3197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3198 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_RK5
3201 real(RKG) ,
intent(in),
contiguous :: array(:)
3202 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3203 type(discrete_type) ,
intent(in) :: border
3204 integer(IK) ,
intent(in),
optional :: blindness
3205 integer(IK) :: count
3210 PURE module function getCountLocDisBorDefCom_D1_D1_RK4(array, pattern, border, blindness)
result(count)
3211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3212 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_RK4
3215 real(RKG) ,
intent(in),
contiguous :: array(:)
3216 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3217 type(discrete_type) ,
intent(in) :: border
3218 integer(IK) ,
intent(in),
optional :: blindness
3219 integer(IK) :: count
3224 PURE module function getCountLocDisBorDefCom_D1_D1_RK3(array, pattern, border, blindness)
result(count)
3225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3226 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_RK3
3229 real(RKG) ,
intent(in),
contiguous :: array(:)
3230 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3231 type(discrete_type) ,
intent(in) :: border
3232 integer(IK) ,
intent(in),
optional :: blindness
3233 integer(IK) :: count
3238 PURE module function getCountLocDisBorDefCom_D1_D1_RK2(array, pattern, border, blindness)
result(count)
3239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3240 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_RK2
3243 real(RKG) ,
intent(in),
contiguous :: array(:)
3244 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3245 type(discrete_type) ,
intent(in) :: border
3246 integer(IK) ,
intent(in),
optional :: blindness
3247 integer(IK) :: count
3252 PURE module function getCountLocDisBorDefCom_D1_D1_RK1(array, pattern, border, blindness)
result(count)
3253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3254 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorDefCom_D1_D1_RK1
3257 real(RKG) ,
intent(in),
contiguous :: array(:)
3258 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3259 type(discrete_type) ,
intent(in) :: border
3260 integer(IK) ,
intent(in),
optional :: blindness
3261 integer(IK) :: count
3274 module function getCountLocDisBorCusCom_D1_D1_SK5(array, pattern, border, iseq, blindness)
result(count)
3275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3276 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_SK5
3279 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3280 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
3281 procedure(
logical(LK)) :: iseq
3282 type(discrete_type) ,
intent(in) :: border
3283 integer(IK) ,
intent(in),
optional :: blindness
3284 integer(IK) :: count
3289 module function getCountLocDisBorCusCom_D1_D1_SK4(array, pattern, border, iseq, blindness)
result(count)
3290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3291 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_SK4
3294 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3295 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
3296 procedure(
logical(LK)) :: iseq
3297 type(discrete_type) ,
intent(in) :: border
3298 integer(IK) ,
intent(in),
optional :: blindness
3299 integer(IK) :: count
3304 module function getCountLocDisBorCusCom_D1_D1_SK3(array, pattern, border, iseq, blindness)
result(count)
3305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3306 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_SK3
3309 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3310 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
3311 procedure(
logical(LK)) :: iseq
3312 type(discrete_type) ,
intent(in) :: border
3313 integer(IK) ,
intent(in),
optional :: blindness
3314 integer(IK) :: count
3319 module function getCountLocDisBorCusCom_D1_D1_SK2(array, pattern, border, iseq, blindness)
result(count)
3320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3321 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_SK2
3324 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3325 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
3326 procedure(
logical(LK)) :: iseq
3327 type(discrete_type) ,
intent(in) :: border
3328 integer(IK) ,
intent(in),
optional :: blindness
3329 integer(IK) :: count
3334 module function getCountLocDisBorCusCom_D1_D1_SK1(array, pattern, border, iseq, blindness)
result(count)
3335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3336 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_SK1
3339 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
3340 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
3341 procedure(
logical(LK)) :: iseq
3342 type(discrete_type) ,
intent(in) :: border
3343 integer(IK) ,
intent(in),
optional :: blindness
3344 integer(IK) :: count
3351 module function getCountLocDisBorCusCom_D1_D1_IK5(array, pattern, border, iseq, blindness)
result(count)
3352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3353 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_IK5
3356 integer(IKG) ,
intent(in),
contiguous :: array(:)
3357 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3358 procedure(
logical(LK)) :: iseq
3359 type(discrete_type) ,
intent(in) :: border
3360 integer(IK) ,
intent(in),
optional :: blindness
3361 integer(IK) :: count
3366 module function getCountLocDisBorCusCom_D1_D1_IK4(array, pattern, border, iseq, blindness)
result(count)
3367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3368 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_IK4
3371 integer(IKG) ,
intent(in),
contiguous :: array(:)
3372 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3373 procedure(
logical(LK)) :: iseq
3374 type(discrete_type) ,
intent(in) :: border
3375 integer(IK) ,
intent(in),
optional :: blindness
3376 integer(IK) :: count
3381 module function getCountLocDisBorCusCom_D1_D1_IK3(array, pattern, border, iseq, blindness)
result(count)
3382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3383 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_IK3
3386 integer(IKG) ,
intent(in),
contiguous :: array(:)
3387 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3388 procedure(
logical(LK)) :: iseq
3389 type(discrete_type) ,
intent(in) :: border
3390 integer(IK) ,
intent(in),
optional :: blindness
3391 integer(IK) :: count
3396 module function getCountLocDisBorCusCom_D1_D1_IK2(array, pattern, border, iseq, blindness)
result(count)
3397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3398 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_IK2
3401 integer(IKG) ,
intent(in),
contiguous :: array(:)
3402 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3403 procedure(
logical(LK)) :: iseq
3404 type(discrete_type) ,
intent(in) :: border
3405 integer(IK) ,
intent(in),
optional :: blindness
3406 integer(IK) :: count
3411 module function getCountLocDisBorCusCom_D1_D1_IK1(array, pattern, border, iseq, blindness)
result(count)
3412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3413 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_IK1
3416 integer(IKG) ,
intent(in),
contiguous :: array(:)
3417 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
3418 procedure(
logical(LK)) :: iseq
3419 type(discrete_type) ,
intent(in) :: border
3420 integer(IK) ,
intent(in),
optional :: blindness
3421 integer(IK) :: count
3428 module function getCountLocDisBorCusCom_D1_D1_LK5(array, pattern, border, iseq, blindness)
result(count)
3429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3430 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_LK5
3433 logical(LKG) ,
intent(in),
contiguous :: array(:)
3434 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3435 procedure(
logical(LK)) :: iseq
3436 type(discrete_type) ,
intent(in) :: border
3437 integer(IK) ,
intent(in),
optional :: blindness
3438 integer(IK) :: count
3443 module function getCountLocDisBorCusCom_D1_D1_LK4(array, pattern, border, iseq, blindness)
result(count)
3444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3445 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_LK4
3448 logical(LKG) ,
intent(in),
contiguous :: array(:)
3449 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3450 procedure(
logical(LK)) :: iseq
3451 type(discrete_type) ,
intent(in) :: border
3452 integer(IK) ,
intent(in),
optional :: blindness
3453 integer(IK) :: count
3458 module function getCountLocDisBorCusCom_D1_D1_LK3(array, pattern, border, iseq, blindness)
result(count)
3459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3460 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_LK3
3463 logical(LKG) ,
intent(in),
contiguous :: array(:)
3464 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3465 procedure(
logical(LK)) :: iseq
3466 type(discrete_type) ,
intent(in) :: border
3467 integer(IK) ,
intent(in),
optional :: blindness
3468 integer(IK) :: count
3473 module function getCountLocDisBorCusCom_D1_D1_LK2(array, pattern, border, iseq, blindness)
result(count)
3474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3475 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_LK2
3478 logical(LKG) ,
intent(in),
contiguous :: array(:)
3479 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3480 procedure(
logical(LK)) :: iseq
3481 type(discrete_type) ,
intent(in) :: border
3482 integer(IK) ,
intent(in),
optional :: blindness
3483 integer(IK) :: count
3488 module function getCountLocDisBorCusCom_D1_D1_LK1(array, pattern, border, iseq, blindness)
result(count)
3489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3490 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_LK1
3493 logical(LKG) ,
intent(in),
contiguous :: array(:)
3494 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
3495 procedure(
logical(LK)) :: iseq
3496 type(discrete_type) ,
intent(in) :: border
3497 integer(IK) ,
intent(in),
optional :: blindness
3498 integer(IK) :: count
3505 module function getCountLocDisBorCusCom_D1_D1_CK5(array, pattern, border, iseq, blindness)
result(count)
3506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3507 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_CK5
3510 complex(CKG) ,
intent(in),
contiguous :: array(:)
3511 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3512 procedure(
logical(LK)) :: iseq
3513 type(discrete_type) ,
intent(in) :: border
3514 integer(IK) ,
intent(in),
optional :: blindness
3515 integer(IK) :: count
3520 module function getCountLocDisBorCusCom_D1_D1_CK4(array, pattern, border, iseq, blindness)
result(count)
3521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3522 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_CK4
3525 complex(CKG) ,
intent(in),
contiguous :: array(:)
3526 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3527 procedure(
logical(LK)) :: iseq
3528 type(discrete_type) ,
intent(in) :: border
3529 integer(IK) ,
intent(in),
optional :: blindness
3530 integer(IK) :: count
3535 module function getCountLocDisBorCusCom_D1_D1_CK3(array, pattern, border, iseq, blindness)
result(count)
3536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3537 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_CK3
3540 complex(CKG) ,
intent(in),
contiguous :: array(:)
3541 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3542 procedure(
logical(LK)) :: iseq
3543 type(discrete_type) ,
intent(in) :: border
3544 integer(IK) ,
intent(in),
optional :: blindness
3545 integer(IK) :: count
3550 module function getCountLocDisBorCusCom_D1_D1_CK2(array, pattern, border, iseq, blindness)
result(count)
3551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3552 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_CK2
3555 complex(CKG) ,
intent(in),
contiguous :: array(:)
3556 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3557 procedure(
logical(LK)) :: iseq
3558 type(discrete_type) ,
intent(in) :: border
3559 integer(IK) ,
intent(in),
optional :: blindness
3560 integer(IK) :: count
3565 module function getCountLocDisBorCusCom_D1_D1_CK1(array, pattern, border, iseq, blindness)
result(count)
3566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3567 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_CK1
3570 complex(CKG) ,
intent(in),
contiguous :: array(:)
3571 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
3572 procedure(
logical(LK)) :: iseq
3573 type(discrete_type) ,
intent(in) :: border
3574 integer(IK) ,
intent(in),
optional :: blindness
3575 integer(IK) :: count
3582 module function getCountLocDisBorCusCom_D1_D1_RK5(array, pattern, border, iseq, blindness)
result(count)
3583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3584 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_RK5
3587 real(RKG) ,
intent(in),
contiguous :: array(:)
3588 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3589 procedure(
logical(LK)) :: iseq
3590 type(discrete_type) ,
intent(in) :: border
3591 integer(IK) ,
intent(in),
optional :: blindness
3592 integer(IK) :: count
3597 module function getCountLocDisBorCusCom_D1_D1_RK4(array, pattern, border, iseq, blindness)
result(count)
3598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3599 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_RK4
3602 real(RKG) ,
intent(in),
contiguous :: array(:)
3603 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3604 procedure(
logical(LK)) :: iseq
3605 type(discrete_type) ,
intent(in) :: border
3606 integer(IK) ,
intent(in),
optional :: blindness
3607 integer(IK) :: count
3612 module function getCountLocDisBorCusCom_D1_D1_RK3(array, pattern, border, iseq, blindness)
result(count)
3613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3614 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_RK3
3617 real(RKG) ,
intent(in),
contiguous :: array(:)
3618 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3619 procedure(
logical(LK)) :: iseq
3620 type(discrete_type) ,
intent(in) :: border
3621 integer(IK) ,
intent(in),
optional :: blindness
3622 integer(IK) :: count
3627 module function getCountLocDisBorCusCom_D1_D1_RK2(array, pattern, border, iseq, blindness)
result(count)
3628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3629 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_RK2
3632 real(RKG) ,
intent(in),
contiguous :: array(:)
3633 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3634 procedure(
logical(LK)) :: iseq
3635 type(discrete_type) ,
intent(in) :: border
3636 integer(IK) ,
intent(in),
optional :: blindness
3637 integer(IK) :: count
3642 module function getCountLocDisBorCusCom_D1_D1_RK1(array, pattern, border, iseq, blindness)
result(count)
3643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3644 !DEC$ ATTRIBUTES DLLEXPORT :: getCountLocDisBorCusCom_D1_D1_RK1
3647 real(RKG) ,
intent(in),
contiguous :: array(:)
3648 real(RKG) ,
intent(in),
contiguous :: pattern(:)
3649 procedure(
logical(LK)) :: iseq
3650 type(discrete_type) ,
intent(in) :: border
3651 integer(IK) ,
intent(in),
optional :: blindness
3652 integer(IK) :: count
3948 PURE module function getLocDefComDefIns_D0_D0_SK5(array, pattern, blindness)
result(loc)
3949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3950 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D0_D0_SK5
3953 character(
*,SKG) ,
intent(in) :: array
3954 character(
*,SKG) ,
intent(in) :: pattern
3955 integer(IK) ,
intent(in),
optional :: blindness
3956 integer(IK) ,
allocatable :: loc(:)
3961 PURE module function getLocDefComDefIns_D0_D0_SK4(array, pattern, blindness)
result(loc)
3962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3963 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D0_D0_SK4
3966 character(
*,SKG) ,
intent(in) :: array
3967 character(
*,SKG) ,
intent(in) :: pattern
3968 integer(IK) ,
intent(in),
optional :: blindness
3969 integer(IK) ,
allocatable :: loc(:)
3974 PURE module function getLocDefComDefIns_D0_D0_SK3(array, pattern, blindness)
result(loc)
3975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3976 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D0_D0_SK3
3979 character(
*,SKG) ,
intent(in) :: array
3980 character(
*,SKG) ,
intent(in) :: pattern
3981 integer(IK) ,
intent(in),
optional :: blindness
3982 integer(IK) ,
allocatable :: loc(:)
3987 PURE module function getLocDefComDefIns_D0_D0_SK2(array, pattern, blindness)
result(loc)
3988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3989 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D0_D0_SK2
3992 character(
*,SKG) ,
intent(in) :: array
3993 character(
*,SKG) ,
intent(in) :: pattern
3994 integer(IK) ,
intent(in),
optional :: blindness
3995 integer(IK) ,
allocatable :: loc(:)
4000 PURE module function getLocDefComDefIns_D0_D0_SK1(array, pattern, blindness)
result(loc)
4001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4002 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D0_D0_SK1
4005 character(
*,SKG) ,
intent(in) :: array
4006 character(
*,SKG) ,
intent(in) :: pattern
4007 integer(IK) ,
intent(in),
optional :: blindness
4008 integer(IK) ,
allocatable :: loc(:)
4021 module function getLocCusComDefIns_D0_D0_SK5(array, pattern, iseq, blindness)
result(loc)
4022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4023 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D0_D0_SK5
4026 character(
*,SKG) ,
intent(in) :: array
4027 character(
*,SKG) ,
intent(in) :: pattern
4028 procedure(
logical(LK)) :: iseq
4029 integer(IK) ,
intent(in),
optional :: blindness
4030 integer(IK) ,
allocatable :: loc(:)
4035 module function getLocCusComDefIns_D0_D0_SK4(array, pattern, iseq, blindness)
result(loc)
4036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4037 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D0_D0_SK4
4040 character(
*,SKG) ,
intent(in) :: array
4041 character(
*,SKG) ,
intent(in) :: pattern
4042 procedure(
logical(LK)) :: iseq
4043 integer(IK) ,
intent(in),
optional :: blindness
4044 integer(IK) ,
allocatable :: loc(:)
4049 module function getLocCusComDefIns_D0_D0_SK3(array, pattern, iseq, blindness)
result(loc)
4050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4051 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D0_D0_SK3
4054 character(
*,SKG) ,
intent(in) :: array
4055 character(
*,SKG) ,
intent(in) :: pattern
4056 procedure(
logical(LK)) :: iseq
4057 integer(IK) ,
intent(in),
optional :: blindness
4058 integer(IK) ,
allocatable :: loc(:)
4063 module function getLocCusComDefIns_D0_D0_SK2(array, pattern, iseq, blindness)
result(loc)
4064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4065 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D0_D0_SK2
4068 character(
*,SKG) ,
intent(in) :: array
4069 character(
*,SKG) ,
intent(in) :: pattern
4070 procedure(
logical(LK)) :: iseq
4071 integer(IK) ,
intent(in),
optional :: blindness
4072 integer(IK) ,
allocatable :: loc(:)
4077 module function getLocCusComDefIns_D0_D0_SK1(array, pattern, iseq, blindness)
result(loc)
4078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4079 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D0_D0_SK1
4082 character(
*,SKG) ,
intent(in) :: array
4083 character(
*,SKG) ,
intent(in) :: pattern
4084 procedure(
logical(LK)) :: iseq
4085 integer(IK) ,
intent(in),
optional :: blindness
4086 integer(IK) ,
allocatable :: loc(:)
4099 PURE module function getLocDefComCusIns_D0_D0_SK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
4100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4101 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D0_D0_SK5
4104 character(
*,SKG) ,
intent(in) :: array
4105 character(
*,SKG) ,
intent(in) :: pattern
4106 integer(IK) ,
intent(in),
contiguous :: instance(:)
4107 logical(LK) ,
intent(in),
optional :: sorted
4108 logical(LK) ,
intent(in),
optional :: positive
4109 integer(IK) ,
intent(in),
optional :: blindness
4110 integer(IK) ,
allocatable :: loc(:)
4115 PURE module function getLocDefComCusIns_D0_D0_SK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
4116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4117 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D0_D0_SK4
4120 character(
*,SKG) ,
intent(in) :: array
4121 character(
*,SKG) ,
intent(in) :: pattern
4122 integer(IK) ,
intent(in),
contiguous :: instance(:)
4123 logical(LK) ,
intent(in),
optional :: sorted
4124 logical(LK) ,
intent(in),
optional :: positive
4125 integer(IK) ,
intent(in),
optional :: blindness
4126 integer(IK) ,
allocatable :: loc(:)
4131 PURE module function getLocDefComCusIns_D0_D0_SK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
4132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4133 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D0_D0_SK3
4136 character(
*,SKG) ,
intent(in) :: array
4137 character(
*,SKG) ,
intent(in) :: pattern
4138 integer(IK) ,
intent(in),
contiguous :: instance(:)
4139 logical(LK) ,
intent(in),
optional :: sorted
4140 logical(LK) ,
intent(in),
optional :: positive
4141 integer(IK) ,
intent(in),
optional :: blindness
4142 integer(IK) ,
allocatable :: loc(:)
4147 PURE module function getLocDefComCusIns_D0_D0_SK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
4148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4149 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D0_D0_SK2
4152 character(
*,SKG) ,
intent(in) :: array
4153 character(
*,SKG) ,
intent(in) :: pattern
4154 integer(IK) ,
intent(in),
contiguous :: instance(:)
4155 logical(LK) ,
intent(in),
optional :: sorted
4156 logical(LK) ,
intent(in),
optional :: positive
4157 integer(IK) ,
intent(in),
optional :: blindness
4158 integer(IK) ,
allocatable :: loc(:)
4163 PURE module function getLocDefComCusIns_D0_D0_SK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
4164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4165 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D0_D0_SK1
4168 character(
*,SKG) ,
intent(in) :: array
4169 character(
*,SKG) ,
intent(in) :: pattern
4170 integer(IK) ,
intent(in),
contiguous :: instance(:)
4171 logical(LK) ,
intent(in),
optional :: sorted
4172 logical(LK) ,
intent(in),
optional :: positive
4173 integer(IK) ,
intent(in),
optional :: blindness
4174 integer(IK) ,
allocatable :: loc(:)
4187 module function getLocCusComCusIns_D0_D0_SK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
4188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4189 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D0_D0_SK5
4192 character(
*,SKG) ,
intent(in) :: array
4193 character(
*,SKG) ,
intent(in) :: pattern
4194 procedure(
logical(LK)) :: iseq
4195 integer(IK) ,
intent(in),
contiguous :: instance(:)
4196 logical(LK) ,
intent(in),
optional :: sorted
4197 logical(LK) ,
intent(in),
optional :: positive
4198 integer(IK) ,
intent(in),
optional :: blindness
4199 integer(IK) ,
allocatable :: loc(:)
4204 module function getLocCusComCusIns_D0_D0_SK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
4205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4206 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D0_D0_SK4
4209 character(
*,SKG) ,
intent(in) :: array
4210 character(
*,SKG) ,
intent(in) :: pattern
4211 procedure(
logical(LK)) :: iseq
4212 integer(IK) ,
intent(in),
contiguous :: instance(:)
4213 logical(LK) ,
intent(in),
optional :: sorted
4214 logical(LK) ,
intent(in),
optional :: positive
4215 integer(IK) ,
intent(in),
optional :: blindness
4216 integer(IK) ,
allocatable :: loc(:)
4221 module function getLocCusComCusIns_D0_D0_SK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
4222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4223 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D0_D0_SK3
4226 character(
*,SKG) ,
intent(in) :: array
4227 character(
*,SKG) ,
intent(in) :: pattern
4228 procedure(
logical(LK)) :: iseq
4229 integer(IK) ,
intent(in),
contiguous :: instance(:)
4230 logical(LK) ,
intent(in),
optional :: sorted
4231 logical(LK) ,
intent(in),
optional :: positive
4232 integer(IK) ,
intent(in),
optional :: blindness
4233 integer(IK) ,
allocatable :: loc(:)
4238 module function getLocCusComCusIns_D0_D0_SK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
4239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4240 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D0_D0_SK2
4243 character(
*,SKG) ,
intent(in) :: array
4244 character(
*,SKG) ,
intent(in) :: pattern
4245 procedure(
logical(LK)) :: iseq
4246 integer(IK) ,
intent(in),
contiguous :: instance(:)
4247 logical(LK) ,
intent(in),
optional :: sorted
4248 logical(LK) ,
intent(in),
optional :: positive
4249 integer(IK) ,
intent(in),
optional :: blindness
4250 integer(IK) ,
allocatable :: loc(:)
4255 module function getLocCusComCusIns_D0_D0_SK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
4256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4257 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D0_D0_SK1
4260 character(
*,SKG) ,
intent(in) :: array
4261 character(
*,SKG) ,
intent(in) :: pattern
4262 procedure(
logical(LK)) :: iseq
4263 integer(IK) ,
intent(in),
contiguous :: instance(:)
4264 logical(LK) ,
intent(in),
optional :: sorted
4265 logical(LK) ,
intent(in),
optional :: positive
4266 integer(IK) ,
intent(in),
optional :: blindness
4267 integer(IK) ,
allocatable :: loc(:)
4290 PURE module function getLocDefComDefIns_D1_D0_SK5(array, pattern, blindness)
result(loc)
4291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4292 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_SK5
4295 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4296 character(
*,SKG) ,
intent(in) :: pattern
4297 integer(IK) ,
intent(in),
optional :: blindness
4298 integer(IK) ,
allocatable :: loc(:)
4303 PURE module function getLocDefComDefIns_D1_D0_SK4(array, pattern, blindness)
result(loc)
4304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4305 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_SK4
4308 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4309 character(
*,SKG) ,
intent(in) :: pattern
4310 integer(IK) ,
intent(in),
optional :: blindness
4311 integer(IK) ,
allocatable :: loc(:)
4316 PURE module function getLocDefComDefIns_D1_D0_SK3(array, pattern, blindness)
result(loc)
4317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4318 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_SK3
4321 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4322 character(
*,SKG) ,
intent(in) :: pattern
4323 integer(IK) ,
intent(in),
optional :: blindness
4324 integer(IK) ,
allocatable :: loc(:)
4329 PURE module function getLocDefComDefIns_D1_D0_SK2(array, pattern, blindness)
result(loc)
4330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4331 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_SK2
4334 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4335 character(
*,SKG) ,
intent(in) :: pattern
4336 integer(IK) ,
intent(in),
optional :: blindness
4337 integer(IK) ,
allocatable :: loc(:)
4342 PURE module function getLocDefComDefIns_D1_D0_SK1(array, pattern, blindness)
result(loc)
4343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4344 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_SK1
4347 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4348 character(
*,SKG) ,
intent(in) :: pattern
4349 integer(IK) ,
intent(in),
optional :: blindness
4350 integer(IK) ,
allocatable :: loc(:)
4357 PURE module function getLocDefComDefIns_D1_D0_IK5(array, pattern, blindness)
result(loc)
4358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4359 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_IK5
4362 integer(IKG) ,
intent(in),
contiguous :: array(:)
4363 integer(IKG) ,
intent(in) :: pattern
4364 integer(IK) ,
intent(in),
optional :: blindness
4365 integer(IK) ,
allocatable :: loc(:)
4370 PURE module function getLocDefComDefIns_D1_D0_IK4(array, pattern, blindness)
result(loc)
4371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4372 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_IK4
4375 integer(IKG) ,
intent(in),
contiguous :: array(:)
4376 integer(IKG) ,
intent(in) :: pattern
4377 integer(IK) ,
intent(in),
optional :: blindness
4378 integer(IK) ,
allocatable :: loc(:)
4383 PURE module function getLocDefComDefIns_D1_D0_IK3(array, pattern, blindness)
result(loc)
4384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4385 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_IK3
4388 integer(IKG) ,
intent(in),
contiguous :: array(:)
4389 integer(IKG) ,
intent(in) :: pattern
4390 integer(IK) ,
intent(in),
optional :: blindness
4391 integer(IK) ,
allocatable :: loc(:)
4396 PURE module function getLocDefComDefIns_D1_D0_IK2(array, pattern, blindness)
result(loc)
4397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4398 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_IK2
4401 integer(IKG) ,
intent(in),
contiguous :: array(:)
4402 integer(IKG) ,
intent(in) :: pattern
4403 integer(IK) ,
intent(in),
optional :: blindness
4404 integer(IK) ,
allocatable :: loc(:)
4409 PURE module function getLocDefComDefIns_D1_D0_IK1(array, pattern, blindness)
result(loc)
4410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4411 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_IK1
4414 integer(IKG) ,
intent(in),
contiguous :: array(:)
4415 integer(IKG) ,
intent(in) :: pattern
4416 integer(IK) ,
intent(in),
optional :: blindness
4417 integer(IK) ,
allocatable :: loc(:)
4424 PURE module function getLocDefComDefIns_D1_D0_LK5(array, pattern, blindness)
result(loc)
4425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4426 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_LK5
4429 logical(LKG) ,
intent(in),
contiguous :: array(:)
4430 logical(LKG) ,
intent(in) :: pattern
4431 integer(IK) ,
intent(in),
optional :: blindness
4432 integer(IK) ,
allocatable :: loc(:)
4437 PURE module function getLocDefComDefIns_D1_D0_LK4(array, pattern, blindness)
result(loc)
4438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4439 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_LK4
4442 logical(LKG) ,
intent(in),
contiguous :: array(:)
4443 logical(LKG) ,
intent(in) :: pattern
4444 integer(IK) ,
intent(in),
optional :: blindness
4445 integer(IK) ,
allocatable :: loc(:)
4450 PURE module function getLocDefComDefIns_D1_D0_LK3(array, pattern, blindness)
result(loc)
4451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4452 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_LK3
4455 logical(LKG) ,
intent(in),
contiguous :: array(:)
4456 logical(LKG) ,
intent(in) :: pattern
4457 integer(IK) ,
intent(in),
optional :: blindness
4458 integer(IK) ,
allocatable :: loc(:)
4463 PURE module function getLocDefComDefIns_D1_D0_LK2(array, pattern, blindness)
result(loc)
4464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4465 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_LK2
4468 logical(LKG) ,
intent(in),
contiguous :: array(:)
4469 logical(LKG) ,
intent(in) :: pattern
4470 integer(IK) ,
intent(in),
optional :: blindness
4471 integer(IK) ,
allocatable :: loc(:)
4476 PURE module function getLocDefComDefIns_D1_D0_LK1(array, pattern, blindness)
result(loc)
4477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4478 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_LK1
4481 logical(LKG) ,
intent(in),
contiguous :: array(:)
4482 logical(LKG) ,
intent(in) :: pattern
4483 integer(IK) ,
intent(in),
optional :: blindness
4484 integer(IK) ,
allocatable :: loc(:)
4491 PURE module function getLocDefComDefIns_D1_D0_CK5(array, pattern, blindness)
result(loc)
4492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4493 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_CK5
4496 complex(CKG) ,
intent(in),
contiguous :: array(:)
4497 complex(CKG) ,
intent(in) :: pattern
4498 integer(IK) ,
intent(in),
optional :: blindness
4499 integer(IK) ,
allocatable :: loc(:)
4504 PURE module function getLocDefComDefIns_D1_D0_CK4(array, pattern, blindness)
result(loc)
4505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4506 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_CK4
4509 complex(CKG) ,
intent(in),
contiguous :: array(:)
4510 complex(CKG) ,
intent(in) :: pattern
4511 integer(IK) ,
intent(in),
optional :: blindness
4512 integer(IK) ,
allocatable :: loc(:)
4517 PURE module function getLocDefComDefIns_D1_D0_CK3(array, pattern, blindness)
result(loc)
4518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4519 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_CK3
4522 complex(CKG) ,
intent(in),
contiguous :: array(:)
4523 complex(CKG) ,
intent(in) :: pattern
4524 integer(IK) ,
intent(in),
optional :: blindness
4525 integer(IK) ,
allocatable :: loc(:)
4530 PURE module function getLocDefComDefIns_D1_D0_CK2(array, pattern, blindness)
result(loc)
4531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4532 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_CK2
4535 complex(CKG) ,
intent(in),
contiguous :: array(:)
4536 complex(CKG) ,
intent(in) :: pattern
4537 integer(IK) ,
intent(in),
optional :: blindness
4538 integer(IK) ,
allocatable :: loc(:)
4543 PURE module function getLocDefComDefIns_D1_D0_CK1(array, pattern, blindness)
result(loc)
4544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4545 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_CK1
4548 complex(CKG) ,
intent(in),
contiguous :: array(:)
4549 complex(CKG) ,
intent(in) :: pattern
4550 integer(IK) ,
intent(in),
optional :: blindness
4551 integer(IK) ,
allocatable :: loc(:)
4558 PURE module function getLocDefComDefIns_D1_D0_RK5(array, pattern, blindness)
result(loc)
4559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4560 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_RK5
4563 real(RKG) ,
intent(in),
contiguous :: array(:)
4564 real(RKG) ,
intent(in) :: pattern
4565 integer(IK) ,
intent(in),
optional :: blindness
4566 integer(IK) ,
allocatable :: loc(:)
4571 PURE module function getLocDefComDefIns_D1_D0_RK4(array, pattern, blindness)
result(loc)
4572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4573 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_RK4
4576 real(RKG) ,
intent(in),
contiguous :: array(:)
4577 real(RKG) ,
intent(in) :: pattern
4578 integer(IK) ,
intent(in),
optional :: blindness
4579 integer(IK) ,
allocatable :: loc(:)
4584 PURE module function getLocDefComDefIns_D1_D0_RK3(array, pattern, blindness)
result(loc)
4585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4586 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_RK3
4589 real(RKG) ,
intent(in),
contiguous :: array(:)
4590 real(RKG) ,
intent(in) :: pattern
4591 integer(IK) ,
intent(in),
optional :: blindness
4592 integer(IK) ,
allocatable :: loc(:)
4597 PURE module function getLocDefComDefIns_D1_D0_RK2(array, pattern, blindness)
result(loc)
4598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4599 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_RK2
4602 real(RKG) ,
intent(in),
contiguous :: array(:)
4603 real(RKG) ,
intent(in) :: pattern
4604 integer(IK) ,
intent(in),
optional :: blindness
4605 integer(IK) ,
allocatable :: loc(:)
4610 PURE module function getLocDefComDefIns_D1_D0_RK1(array, pattern, blindness)
result(loc)
4611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4612 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D0_RK1
4615 real(RKG) ,
intent(in),
contiguous :: array(:)
4616 real(RKG) ,
intent(in) :: pattern
4617 integer(IK) ,
intent(in),
optional :: blindness
4618 integer(IK) ,
allocatable :: loc(:)
4631 module function getLocCusComDefIns_D1_D0_SK5(array, pattern, iseq, blindness)
result(loc)
4632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4633 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_SK5
4636 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4637 character(
*,SKG) ,
intent(in) :: pattern
4638 procedure(
logical(LK)) :: iseq
4639 integer(IK) ,
intent(in),
optional :: blindness
4640 integer(IK) ,
allocatable :: loc(:)
4645 module function getLocCusComDefIns_D1_D0_SK4(array, pattern, iseq, blindness)
result(loc)
4646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4647 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_SK4
4650 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4651 character(
*,SKG) ,
intent(in) :: pattern
4652 procedure(
logical(LK)) :: iseq
4653 integer(IK) ,
intent(in),
optional :: blindness
4654 integer(IK) ,
allocatable :: loc(:)
4659 module function getLocCusComDefIns_D1_D0_SK3(array, pattern, iseq, blindness)
result(loc)
4660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4661 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_SK3
4664 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4665 character(
*,SKG) ,
intent(in) :: pattern
4666 procedure(
logical(LK)) :: iseq
4667 integer(IK) ,
intent(in),
optional :: blindness
4668 integer(IK) ,
allocatable :: loc(:)
4673 module function getLocCusComDefIns_D1_D0_SK2(array, pattern, iseq, blindness)
result(loc)
4674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4675 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_SK2
4678 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4679 character(
*,SKG) ,
intent(in) :: pattern
4680 procedure(
logical(LK)) :: iseq
4681 integer(IK) ,
intent(in),
optional :: blindness
4682 integer(IK) ,
allocatable :: loc(:)
4687 module function getLocCusComDefIns_D1_D0_SK1(array, pattern, iseq, blindness)
result(loc)
4688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4689 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_SK1
4692 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
4693 character(
*,SKG) ,
intent(in) :: pattern
4694 procedure(
logical(LK)) :: iseq
4695 integer(IK) ,
intent(in),
optional :: blindness
4696 integer(IK) ,
allocatable :: loc(:)
4703 module function getLocCusComDefIns_D1_D0_IK5(array, pattern, iseq, blindness)
result(loc)
4704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4705 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_IK5
4708 integer(IKG) ,
intent(in),
contiguous :: array(:)
4709 integer(IKG) ,
intent(in) :: pattern
4710 procedure(
logical(LK)) :: iseq
4711 integer(IK) ,
intent(in),
optional :: blindness
4712 integer(IK) ,
allocatable :: loc(:)
4717 module function getLocCusComDefIns_D1_D0_IK4(array, pattern, iseq, blindness)
result(loc)
4718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4719 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_IK4
4722 integer(IKG) ,
intent(in),
contiguous :: array(:)
4723 integer(IKG) ,
intent(in) :: pattern
4724 procedure(
logical(LK)) :: iseq
4725 integer(IK) ,
intent(in),
optional :: blindness
4726 integer(IK) ,
allocatable :: loc(:)
4731 module function getLocCusComDefIns_D1_D0_IK3(array, pattern, iseq, blindness)
result(loc)
4732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4733 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_IK3
4736 integer(IKG) ,
intent(in),
contiguous :: array(:)
4737 integer(IKG) ,
intent(in) :: pattern
4738 procedure(
logical(LK)) :: iseq
4739 integer(IK) ,
intent(in),
optional :: blindness
4740 integer(IK) ,
allocatable :: loc(:)
4745 module function getLocCusComDefIns_D1_D0_IK2(array, pattern, iseq, blindness)
result(loc)
4746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4747 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_IK2
4750 integer(IKG) ,
intent(in),
contiguous :: array(:)
4751 integer(IKG) ,
intent(in) :: pattern
4752 procedure(
logical(LK)) :: iseq
4753 integer(IK) ,
intent(in),
optional :: blindness
4754 integer(IK) ,
allocatable :: loc(:)
4759 module function getLocCusComDefIns_D1_D0_IK1(array, pattern, iseq, blindness)
result(loc)
4760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4761 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_IK1
4764 integer(IKG) ,
intent(in),
contiguous :: array(:)
4765 integer(IKG) ,
intent(in) :: pattern
4766 procedure(
logical(LK)) :: iseq
4767 integer(IK) ,
intent(in),
optional :: blindness
4768 integer(IK) ,
allocatable :: loc(:)
4775 module function getLocCusComDefIns_D1_D0_LK5(array, pattern, iseq, blindness)
result(loc)
4776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4777 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_LK5
4780 logical(LKG) ,
intent(in),
contiguous :: array(:)
4781 logical(LKG) ,
intent(in) :: pattern
4782 procedure(
logical(LK)) :: iseq
4783 integer(IK) ,
intent(in),
optional :: blindness
4784 integer(IK) ,
allocatable :: loc(:)
4789 module function getLocCusComDefIns_D1_D0_LK4(array, pattern, iseq, blindness)
result(loc)
4790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4791 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_LK4
4794 logical(LKG) ,
intent(in),
contiguous :: array(:)
4795 logical(LKG) ,
intent(in) :: pattern
4796 procedure(
logical(LK)) :: iseq
4797 integer(IK) ,
intent(in),
optional :: blindness
4798 integer(IK) ,
allocatable :: loc(:)
4803 module function getLocCusComDefIns_D1_D0_LK3(array, pattern, iseq, blindness)
result(loc)
4804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4805 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_LK3
4808 logical(LKG) ,
intent(in),
contiguous :: array(:)
4809 logical(LKG) ,
intent(in) :: pattern
4810 procedure(
logical(LK)) :: iseq
4811 integer(IK) ,
intent(in),
optional :: blindness
4812 integer(IK) ,
allocatable :: loc(:)
4817 module function getLocCusComDefIns_D1_D0_LK2(array, pattern, iseq, blindness)
result(loc)
4818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4819 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_LK2
4822 logical(LKG) ,
intent(in),
contiguous :: array(:)
4823 logical(LKG) ,
intent(in) :: pattern
4824 procedure(
logical(LK)) :: iseq
4825 integer(IK) ,
intent(in),
optional :: blindness
4826 integer(IK) ,
allocatable :: loc(:)
4831 module function getLocCusComDefIns_D1_D0_LK1(array, pattern, iseq, blindness)
result(loc)
4832#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4833 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_LK1
4836 logical(LKG) ,
intent(in),
contiguous :: array(:)
4837 logical(LKG) ,
intent(in) :: pattern
4838 procedure(
logical(LK)) :: iseq
4839 integer(IK) ,
intent(in),
optional :: blindness
4840 integer(IK) ,
allocatable :: loc(:)
4847 module function getLocCusComDefIns_D1_D0_CK5(array, pattern, iseq, blindness)
result(loc)
4848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4849 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_CK5
4852 complex(CKG) ,
intent(in),
contiguous :: array(:)
4853 complex(CKG) ,
intent(in) :: pattern
4854 procedure(
logical(LK)) :: iseq
4855 integer(IK) ,
intent(in),
optional :: blindness
4856 integer(IK) ,
allocatable :: loc(:)
4861 module function getLocCusComDefIns_D1_D0_CK4(array, pattern, iseq, blindness)
result(loc)
4862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4863 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_CK4
4866 complex(CKG) ,
intent(in),
contiguous :: array(:)
4867 complex(CKG) ,
intent(in) :: pattern
4868 procedure(
logical(LK)) :: iseq
4869 integer(IK) ,
intent(in),
optional :: blindness
4870 integer(IK) ,
allocatable :: loc(:)
4875 module function getLocCusComDefIns_D1_D0_CK3(array, pattern, iseq, blindness)
result(loc)
4876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4877 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_CK3
4880 complex(CKG) ,
intent(in),
contiguous :: array(:)
4881 complex(CKG) ,
intent(in) :: pattern
4882 procedure(
logical(LK)) :: iseq
4883 integer(IK) ,
intent(in),
optional :: blindness
4884 integer(IK) ,
allocatable :: loc(:)
4889 module function getLocCusComDefIns_D1_D0_CK2(array, pattern, iseq, blindness)
result(loc)
4890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4891 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_CK2
4894 complex(CKG) ,
intent(in),
contiguous :: array(:)
4895 complex(CKG) ,
intent(in) :: pattern
4896 procedure(
logical(LK)) :: iseq
4897 integer(IK) ,
intent(in),
optional :: blindness
4898 integer(IK) ,
allocatable :: loc(:)
4903 module function getLocCusComDefIns_D1_D0_CK1(array, pattern, iseq, blindness)
result(loc)
4904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4905 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_CK1
4908 complex(CKG) ,
intent(in),
contiguous :: array(:)
4909 complex(CKG) ,
intent(in) :: pattern
4910 procedure(
logical(LK)) :: iseq
4911 integer(IK) ,
intent(in),
optional :: blindness
4912 integer(IK) ,
allocatable :: loc(:)
4919 module function getLocCusComDefIns_D1_D0_RK5(array, pattern, iseq, blindness)
result(loc)
4920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4921 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_RK5
4924 real(RKG) ,
intent(in),
contiguous :: array(:)
4925 real(RKG) ,
intent(in) :: pattern
4926 procedure(
logical(LK)) :: iseq
4927 integer(IK) ,
intent(in),
optional :: blindness
4928 integer(IK) ,
allocatable :: loc(:)
4933 module function getLocCusComDefIns_D1_D0_RK4(array, pattern, iseq, blindness)
result(loc)
4934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4935 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_RK4
4938 real(RKG) ,
intent(in),
contiguous :: array(:)
4939 real(RKG) ,
intent(in) :: pattern
4940 procedure(
logical(LK)) :: iseq
4941 integer(IK) ,
intent(in),
optional :: blindness
4942 integer(IK) ,
allocatable :: loc(:)
4947 module function getLocCusComDefIns_D1_D0_RK3(array, pattern, iseq, blindness)
result(loc)
4948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4949 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_RK3
4952 real(RKG) ,
intent(in),
contiguous :: array(:)
4953 real(RKG) ,
intent(in) :: pattern
4954 procedure(
logical(LK)) :: iseq
4955 integer(IK) ,
intent(in),
optional :: blindness
4956 integer(IK) ,
allocatable :: loc(:)
4961 module function getLocCusComDefIns_D1_D0_RK2(array, pattern, iseq, blindness)
result(loc)
4962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4963 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_RK2
4966 real(RKG) ,
intent(in),
contiguous :: array(:)
4967 real(RKG) ,
intent(in) :: pattern
4968 procedure(
logical(LK)) :: iseq
4969 integer(IK) ,
intent(in),
optional :: blindness
4970 integer(IK) ,
allocatable :: loc(:)
4975 module function getLocCusComDefIns_D1_D0_RK1(array, pattern, iseq, blindness)
result(loc)
4976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4977 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D0_RK1
4980 real(RKG) ,
intent(in),
contiguous :: array(:)
4981 real(RKG) ,
intent(in) :: pattern
4982 procedure(
logical(LK)) :: iseq
4983 integer(IK) ,
intent(in),
optional :: blindness
4984 integer(IK) ,
allocatable :: loc(:)
4997 PURE module function getLocDefComCusIns_D1_D0_SK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
4998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4999 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_SK5
5002 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5003 character(
*,SKG) ,
intent(in) :: pattern
5004 integer(IK) ,
intent(in),
contiguous :: instance(:)
5005 logical(LK) ,
intent(in),
optional :: sorted
5006 logical(LK) ,
intent(in),
optional :: positive
5007 integer(IK) ,
intent(in),
optional :: blindness
5008 integer(IK) ,
allocatable :: loc(:)
5013 PURE module function getLocDefComCusIns_D1_D0_SK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
5014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5015 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_SK4
5018 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5019 character(
*,SKG) ,
intent(in) :: pattern
5020 integer(IK) ,
intent(in),
contiguous :: instance(:)
5021 logical(LK) ,
intent(in),
optional :: sorted
5022 logical(LK) ,
intent(in),
optional :: positive
5023 integer(IK) ,
intent(in),
optional :: blindness
5024 integer(IK) ,
allocatable :: loc(:)
5029 PURE module function getLocDefComCusIns_D1_D0_SK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
5030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5031 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_SK3
5034 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5035 character(
*,SKG) ,
intent(in) :: pattern
5036 integer(IK) ,
intent(in),
contiguous :: instance(:)
5037 logical(LK) ,
intent(in),
optional :: sorted
5038 logical(LK) ,
intent(in),
optional :: positive
5039 integer(IK) ,
intent(in),
optional :: blindness
5040 integer(IK) ,
allocatable :: loc(:)
5045 PURE module function getLocDefComCusIns_D1_D0_SK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
5046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5047 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_SK2
5050 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5051 character(
*,SKG) ,
intent(in) :: pattern
5052 integer(IK) ,
intent(in),
contiguous :: instance(:)
5053 logical(LK) ,
intent(in),
optional :: sorted
5054 logical(LK) ,
intent(in),
optional :: positive
5055 integer(IK) ,
intent(in),
optional :: blindness
5056 integer(IK) ,
allocatable :: loc(:)
5061 PURE module function getLocDefComCusIns_D1_D0_SK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
5062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5063 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_SK1
5066 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5067 character(
*,SKG) ,
intent(in) :: pattern
5068 integer(IK) ,
intent(in),
contiguous :: instance(:)
5069 logical(LK) ,
intent(in),
optional :: sorted
5070 logical(LK) ,
intent(in),
optional :: positive
5071 integer(IK) ,
intent(in),
optional :: blindness
5072 integer(IK) ,
allocatable :: loc(:)
5079 PURE module function getLocDefComCusIns_D1_D0_IK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
5080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5081 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_IK5
5084 integer(IKG) ,
intent(in),
contiguous :: array(:)
5085 integer(IKG) ,
intent(in) :: pattern
5086 integer(IK) ,
intent(in),
contiguous :: instance(:)
5087 logical(LK) ,
intent(in),
optional :: sorted
5088 logical(LK) ,
intent(in),
optional :: positive
5089 integer(IK) ,
intent(in),
optional :: blindness
5090 integer(IK) ,
allocatable :: loc(:)
5095 PURE module function getLocDefComCusIns_D1_D0_IK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
5096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5097 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_IK4
5100 integer(IKG) ,
intent(in),
contiguous :: array(:)
5101 integer(IKG) ,
intent(in) :: pattern
5102 integer(IK) ,
intent(in),
contiguous :: instance(:)
5103 logical(LK) ,
intent(in),
optional :: sorted
5104 logical(LK) ,
intent(in),
optional :: positive
5105 integer(IK) ,
intent(in),
optional :: blindness
5106 integer(IK) ,
allocatable :: loc(:)
5111 PURE module function getLocDefComCusIns_D1_D0_IK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
5112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5113 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_IK3
5116 integer(IKG) ,
intent(in),
contiguous :: array(:)
5117 integer(IKG) ,
intent(in) :: pattern
5118 integer(IK) ,
intent(in),
contiguous :: instance(:)
5119 logical(LK) ,
intent(in),
optional :: sorted
5120 logical(LK) ,
intent(in),
optional :: positive
5121 integer(IK) ,
intent(in),
optional :: blindness
5122 integer(IK) ,
allocatable :: loc(:)
5127 PURE module function getLocDefComCusIns_D1_D0_IK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
5128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5129 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_IK2
5132 integer(IKG) ,
intent(in),
contiguous :: array(:)
5133 integer(IKG) ,
intent(in) :: pattern
5134 integer(IK) ,
intent(in),
contiguous :: instance(:)
5135 logical(LK) ,
intent(in),
optional :: sorted
5136 logical(LK) ,
intent(in),
optional :: positive
5137 integer(IK) ,
intent(in),
optional :: blindness
5138 integer(IK) ,
allocatable :: loc(:)
5143 PURE module function getLocDefComCusIns_D1_D0_IK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
5144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5145 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_IK1
5148 integer(IKG) ,
intent(in),
contiguous :: array(:)
5149 integer(IKG) ,
intent(in) :: pattern
5150 integer(IK) ,
intent(in),
contiguous :: instance(:)
5151 logical(LK) ,
intent(in),
optional :: sorted
5152 logical(LK) ,
intent(in),
optional :: positive
5153 integer(IK) ,
intent(in),
optional :: blindness
5154 integer(IK) ,
allocatable :: loc(:)
5161 PURE module function getLocDefComCusIns_D1_D0_LK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
5162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5163 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_LK5
5166 logical(LKG) ,
intent(in),
contiguous :: array(:)
5167 logical(LKG) ,
intent(in) :: pattern
5168 integer(IK) ,
intent(in),
contiguous :: instance(:)
5169 logical(LK) ,
intent(in),
optional :: sorted
5170 logical(LK) ,
intent(in),
optional :: positive
5171 integer(IK) ,
intent(in),
optional :: blindness
5172 integer(IK) ,
allocatable :: loc(:)
5177 PURE module function getLocDefComCusIns_D1_D0_LK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
5178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5179 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_LK4
5182 logical(LKG) ,
intent(in),
contiguous :: array(:)
5183 logical(LKG) ,
intent(in) :: pattern
5184 integer(IK) ,
intent(in),
contiguous :: instance(:)
5185 logical(LK) ,
intent(in),
optional :: sorted
5186 logical(LK) ,
intent(in),
optional :: positive
5187 integer(IK) ,
intent(in),
optional :: blindness
5188 integer(IK) ,
allocatable :: loc(:)
5193 PURE module function getLocDefComCusIns_D1_D0_LK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
5194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5195 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_LK3
5198 logical(LKG) ,
intent(in),
contiguous :: array(:)
5199 logical(LKG) ,
intent(in) :: pattern
5200 integer(IK) ,
intent(in),
contiguous :: instance(:)
5201 logical(LK) ,
intent(in),
optional :: sorted
5202 logical(LK) ,
intent(in),
optional :: positive
5203 integer(IK) ,
intent(in),
optional :: blindness
5204 integer(IK) ,
allocatable :: loc(:)
5209 PURE module function getLocDefComCusIns_D1_D0_LK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
5210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5211 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_LK2
5214 logical(LKG) ,
intent(in),
contiguous :: array(:)
5215 logical(LKG) ,
intent(in) :: pattern
5216 integer(IK) ,
intent(in),
contiguous :: instance(:)
5217 logical(LK) ,
intent(in),
optional :: sorted
5218 logical(LK) ,
intent(in),
optional :: positive
5219 integer(IK) ,
intent(in),
optional :: blindness
5220 integer(IK) ,
allocatable :: loc(:)
5225 PURE module function getLocDefComCusIns_D1_D0_LK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
5226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5227 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_LK1
5230 logical(LKG) ,
intent(in),
contiguous :: array(:)
5231 logical(LKG) ,
intent(in) :: pattern
5232 integer(IK) ,
intent(in),
contiguous :: instance(:)
5233 logical(LK) ,
intent(in),
optional :: sorted
5234 logical(LK) ,
intent(in),
optional :: positive
5235 integer(IK) ,
intent(in),
optional :: blindness
5236 integer(IK) ,
allocatable :: loc(:)
5243 PURE module function getLocDefComCusIns_D1_D0_CK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
5244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5245 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_CK5
5248 complex(CKG) ,
intent(in),
contiguous :: array(:)
5249 complex(CKG) ,
intent(in) :: pattern
5250 integer(IK) ,
intent(in),
contiguous :: instance(:)
5251 logical(LK) ,
intent(in),
optional :: sorted
5252 logical(LK) ,
intent(in),
optional :: positive
5253 integer(IK) ,
intent(in),
optional :: blindness
5254 integer(IK) ,
allocatable :: loc(:)
5259 PURE module function getLocDefComCusIns_D1_D0_CK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
5260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5261 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_CK4
5264 complex(CKG) ,
intent(in),
contiguous :: array(:)
5265 complex(CKG) ,
intent(in) :: pattern
5266 integer(IK) ,
intent(in),
contiguous :: instance(:)
5267 logical(LK) ,
intent(in),
optional :: sorted
5268 logical(LK) ,
intent(in),
optional :: positive
5269 integer(IK) ,
intent(in),
optional :: blindness
5270 integer(IK) ,
allocatable :: loc(:)
5275 PURE module function getLocDefComCusIns_D1_D0_CK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
5276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5277 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_CK3
5280 complex(CKG) ,
intent(in),
contiguous :: array(:)
5281 complex(CKG) ,
intent(in) :: pattern
5282 integer(IK) ,
intent(in),
contiguous :: instance(:)
5283 logical(LK) ,
intent(in),
optional :: sorted
5284 logical(LK) ,
intent(in),
optional :: positive
5285 integer(IK) ,
intent(in),
optional :: blindness
5286 integer(IK) ,
allocatable :: loc(:)
5291 PURE module function getLocDefComCusIns_D1_D0_CK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
5292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5293 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_CK2
5296 complex(CKG) ,
intent(in),
contiguous :: array(:)
5297 complex(CKG) ,
intent(in) :: pattern
5298 integer(IK) ,
intent(in),
contiguous :: instance(:)
5299 logical(LK) ,
intent(in),
optional :: sorted
5300 logical(LK) ,
intent(in),
optional :: positive
5301 integer(IK) ,
intent(in),
optional :: blindness
5302 integer(IK) ,
allocatable :: loc(:)
5307 PURE module function getLocDefComCusIns_D1_D0_CK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
5308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5309 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_CK1
5312 complex(CKG) ,
intent(in),
contiguous :: array(:)
5313 complex(CKG) ,
intent(in) :: pattern
5314 integer(IK) ,
intent(in),
contiguous :: instance(:)
5315 logical(LK) ,
intent(in),
optional :: sorted
5316 logical(LK) ,
intent(in),
optional :: positive
5317 integer(IK) ,
intent(in),
optional :: blindness
5318 integer(IK) ,
allocatable :: loc(:)
5325 PURE module function getLocDefComCusIns_D1_D0_RK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
5326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5327 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_RK5
5330 real(RKG) ,
intent(in),
contiguous :: array(:)
5331 real(RKG) ,
intent(in) :: pattern
5332 integer(IK) ,
intent(in),
contiguous :: instance(:)
5333 logical(LK) ,
intent(in),
optional :: sorted
5334 logical(LK) ,
intent(in),
optional :: positive
5335 integer(IK) ,
intent(in),
optional :: blindness
5336 integer(IK) ,
allocatable :: loc(:)
5341 PURE module function getLocDefComCusIns_D1_D0_RK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
5342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5343 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_RK4
5346 real(RKG) ,
intent(in),
contiguous :: array(:)
5347 real(RKG) ,
intent(in) :: pattern
5348 integer(IK) ,
intent(in),
contiguous :: instance(:)
5349 logical(LK) ,
intent(in),
optional :: sorted
5350 logical(LK) ,
intent(in),
optional :: positive
5351 integer(IK) ,
intent(in),
optional :: blindness
5352 integer(IK) ,
allocatable :: loc(:)
5357 PURE module function getLocDefComCusIns_D1_D0_RK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
5358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5359 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_RK3
5362 real(RKG) ,
intent(in),
contiguous :: array(:)
5363 real(RKG) ,
intent(in) :: pattern
5364 integer(IK) ,
intent(in),
contiguous :: instance(:)
5365 logical(LK) ,
intent(in),
optional :: sorted
5366 logical(LK) ,
intent(in),
optional :: positive
5367 integer(IK) ,
intent(in),
optional :: blindness
5368 integer(IK) ,
allocatable :: loc(:)
5373 PURE module function getLocDefComCusIns_D1_D0_RK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
5374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5375 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_RK2
5378 real(RKG) ,
intent(in),
contiguous :: array(:)
5379 real(RKG) ,
intent(in) :: pattern
5380 integer(IK) ,
intent(in),
contiguous :: instance(:)
5381 logical(LK) ,
intent(in),
optional :: sorted
5382 logical(LK) ,
intent(in),
optional :: positive
5383 integer(IK) ,
intent(in),
optional :: blindness
5384 integer(IK) ,
allocatable :: loc(:)
5389 PURE module function getLocDefComCusIns_D1_D0_RK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
5390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5391 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D0_RK1
5394 real(RKG) ,
intent(in),
contiguous :: array(:)
5395 real(RKG) ,
intent(in) :: pattern
5396 integer(IK) ,
intent(in),
contiguous :: instance(:)
5397 logical(LK) ,
intent(in),
optional :: sorted
5398 logical(LK) ,
intent(in),
optional :: positive
5399 integer(IK) ,
intent(in),
optional :: blindness
5400 integer(IK) ,
allocatable :: loc(:)
5413 module function getLocCusComCusIns_D1_D0_SK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5415 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_SK5
5418 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5419 character(
*,SKG) ,
intent(in) :: pattern
5420 procedure(
logical(LK)) :: iseq
5421 integer(IK) ,
intent(in),
contiguous :: instance(:)
5422 logical(LK) ,
intent(in),
optional :: sorted
5423 logical(LK) ,
intent(in),
optional :: positive
5424 integer(IK) ,
intent(in),
optional :: blindness
5425 integer(IK) ,
allocatable :: loc(:)
5430 module function getLocCusComCusIns_D1_D0_SK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5432 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_SK4
5435 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5436 character(
*,SKG) ,
intent(in) :: pattern
5437 procedure(
logical(LK)) :: iseq
5438 integer(IK) ,
intent(in),
contiguous :: instance(:)
5439 logical(LK) ,
intent(in),
optional :: sorted
5440 logical(LK) ,
intent(in),
optional :: positive
5441 integer(IK) ,
intent(in),
optional :: blindness
5442 integer(IK) ,
allocatable :: loc(:)
5447 module function getLocCusComCusIns_D1_D0_SK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5449 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_SK3
5452 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5453 character(
*,SKG) ,
intent(in) :: pattern
5454 procedure(
logical(LK)) :: iseq
5455 integer(IK) ,
intent(in),
contiguous :: instance(:)
5456 logical(LK) ,
intent(in),
optional :: sorted
5457 logical(LK) ,
intent(in),
optional :: positive
5458 integer(IK) ,
intent(in),
optional :: blindness
5459 integer(IK) ,
allocatable :: loc(:)
5464 module function getLocCusComCusIns_D1_D0_SK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5466 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_SK2
5469 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5470 character(
*,SKG) ,
intent(in) :: pattern
5471 procedure(
logical(LK)) :: iseq
5472 integer(IK) ,
intent(in),
contiguous :: instance(:)
5473 logical(LK) ,
intent(in),
optional :: sorted
5474 logical(LK) ,
intent(in),
optional :: positive
5475 integer(IK) ,
intent(in),
optional :: blindness
5476 integer(IK) ,
allocatable :: loc(:)
5481 module function getLocCusComCusIns_D1_D0_SK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5483 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_SK1
5486 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5487 character(
*,SKG) ,
intent(in) :: pattern
5488 procedure(
logical(LK)) :: iseq
5489 integer(IK) ,
intent(in),
contiguous :: instance(:)
5490 logical(LK) ,
intent(in),
optional :: sorted
5491 logical(LK) ,
intent(in),
optional :: positive
5492 integer(IK) ,
intent(in),
optional :: blindness
5493 integer(IK) ,
allocatable :: loc(:)
5500 module function getLocCusComCusIns_D1_D0_IK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5502 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_IK5
5505 integer(IKG) ,
intent(in),
contiguous :: array(:)
5506 integer(IKG) ,
intent(in) :: pattern
5507 procedure(
logical(LK)) :: iseq
5508 integer(IK) ,
intent(in),
contiguous :: instance(:)
5509 logical(LK) ,
intent(in),
optional :: sorted
5510 logical(LK) ,
intent(in),
optional :: positive
5511 integer(IK) ,
intent(in),
optional :: blindness
5512 integer(IK) ,
allocatable :: loc(:)
5517 module function getLocCusComCusIns_D1_D0_IK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5519 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_IK4
5522 integer(IKG) ,
intent(in),
contiguous :: array(:)
5523 integer(IKG) ,
intent(in) :: pattern
5524 procedure(
logical(LK)) :: iseq
5525 integer(IK) ,
intent(in),
contiguous :: instance(:)
5526 logical(LK) ,
intent(in),
optional :: sorted
5527 logical(LK) ,
intent(in),
optional :: positive
5528 integer(IK) ,
intent(in),
optional :: blindness
5529 integer(IK) ,
allocatable :: loc(:)
5534 module function getLocCusComCusIns_D1_D0_IK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5536 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_IK3
5539 integer(IKG) ,
intent(in),
contiguous :: array(:)
5540 integer(IKG) ,
intent(in) :: pattern
5541 procedure(
logical(LK)) :: iseq
5542 integer(IK) ,
intent(in),
contiguous :: instance(:)
5543 logical(LK) ,
intent(in),
optional :: sorted
5544 logical(LK) ,
intent(in),
optional :: positive
5545 integer(IK) ,
intent(in),
optional :: blindness
5546 integer(IK) ,
allocatable :: loc(:)
5551 module function getLocCusComCusIns_D1_D0_IK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5553 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_IK2
5556 integer(IKG) ,
intent(in),
contiguous :: array(:)
5557 integer(IKG) ,
intent(in) :: pattern
5558 procedure(
logical(LK)) :: iseq
5559 integer(IK) ,
intent(in),
contiguous :: instance(:)
5560 logical(LK) ,
intent(in),
optional :: sorted
5561 logical(LK) ,
intent(in),
optional :: positive
5562 integer(IK) ,
intent(in),
optional :: blindness
5563 integer(IK) ,
allocatable :: loc(:)
5568 module function getLocCusComCusIns_D1_D0_IK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5570 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_IK1
5573 integer(IKG) ,
intent(in),
contiguous :: array(:)
5574 integer(IKG) ,
intent(in) :: pattern
5575 procedure(
logical(LK)) :: iseq
5576 integer(IK) ,
intent(in),
contiguous :: instance(:)
5577 logical(LK) ,
intent(in),
optional :: sorted
5578 logical(LK) ,
intent(in),
optional :: positive
5579 integer(IK) ,
intent(in),
optional :: blindness
5580 integer(IK) ,
allocatable :: loc(:)
5587 module function getLocCusComCusIns_D1_D0_LK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5589 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_LK5
5592 logical(LKG) ,
intent(in),
contiguous :: array(:)
5593 logical(LKG) ,
intent(in) :: pattern
5594 procedure(
logical(LK)) :: iseq
5595 integer(IK) ,
intent(in),
contiguous :: instance(:)
5596 logical(LK) ,
intent(in),
optional :: sorted
5597 logical(LK) ,
intent(in),
optional :: positive
5598 integer(IK) ,
intent(in),
optional :: blindness
5599 integer(IK) ,
allocatable :: loc(:)
5604 module function getLocCusComCusIns_D1_D0_LK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5606 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_LK4
5609 logical(LKG) ,
intent(in),
contiguous :: array(:)
5610 logical(LKG) ,
intent(in) :: pattern
5611 procedure(
logical(LK)) :: iseq
5612 integer(IK) ,
intent(in),
contiguous :: instance(:)
5613 logical(LK) ,
intent(in),
optional :: sorted
5614 logical(LK) ,
intent(in),
optional :: positive
5615 integer(IK) ,
intent(in),
optional :: blindness
5616 integer(IK) ,
allocatable :: loc(:)
5621 module function getLocCusComCusIns_D1_D0_LK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5623 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_LK3
5626 logical(LKG) ,
intent(in),
contiguous :: array(:)
5627 logical(LKG) ,
intent(in) :: pattern
5628 procedure(
logical(LK)) :: iseq
5629 integer(IK) ,
intent(in),
contiguous :: instance(:)
5630 logical(LK) ,
intent(in),
optional :: sorted
5631 logical(LK) ,
intent(in),
optional :: positive
5632 integer(IK) ,
intent(in),
optional :: blindness
5633 integer(IK) ,
allocatable :: loc(:)
5638 module function getLocCusComCusIns_D1_D0_LK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5640 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_LK2
5643 logical(LKG) ,
intent(in),
contiguous :: array(:)
5644 logical(LKG) ,
intent(in) :: pattern
5645 procedure(
logical(LK)) :: iseq
5646 integer(IK) ,
intent(in),
contiguous :: instance(:)
5647 logical(LK) ,
intent(in),
optional :: sorted
5648 logical(LK) ,
intent(in),
optional :: positive
5649 integer(IK) ,
intent(in),
optional :: blindness
5650 integer(IK) ,
allocatable :: loc(:)
5655 module function getLocCusComCusIns_D1_D0_LK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5657 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_LK1
5660 logical(LKG) ,
intent(in),
contiguous :: array(:)
5661 logical(LKG) ,
intent(in) :: pattern
5662 procedure(
logical(LK)) :: iseq
5663 integer(IK) ,
intent(in),
contiguous :: instance(:)
5664 logical(LK) ,
intent(in),
optional :: sorted
5665 logical(LK) ,
intent(in),
optional :: positive
5666 integer(IK) ,
intent(in),
optional :: blindness
5667 integer(IK) ,
allocatable :: loc(:)
5674 module function getLocCusComCusIns_D1_D0_CK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5676 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_CK5
5679 complex(CKG) ,
intent(in),
contiguous :: array(:)
5680 complex(CKG) ,
intent(in) :: pattern
5681 procedure(
logical(LK)) :: iseq
5682 integer(IK) ,
intent(in),
contiguous :: instance(:)
5683 logical(LK) ,
intent(in),
optional :: sorted
5684 logical(LK) ,
intent(in),
optional :: positive
5685 integer(IK) ,
intent(in),
optional :: blindness
5686 integer(IK) ,
allocatable :: loc(:)
5691 module function getLocCusComCusIns_D1_D0_CK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5693 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_CK4
5696 complex(CKG) ,
intent(in),
contiguous :: array(:)
5697 complex(CKG) ,
intent(in) :: pattern
5698 procedure(
logical(LK)) :: iseq
5699 integer(IK) ,
intent(in),
contiguous :: instance(:)
5700 logical(LK) ,
intent(in),
optional :: sorted
5701 logical(LK) ,
intent(in),
optional :: positive
5702 integer(IK) ,
intent(in),
optional :: blindness
5703 integer(IK) ,
allocatable :: loc(:)
5708 module function getLocCusComCusIns_D1_D0_CK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5710 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_CK3
5713 complex(CKG) ,
intent(in),
contiguous :: array(:)
5714 complex(CKG) ,
intent(in) :: pattern
5715 procedure(
logical(LK)) :: iseq
5716 integer(IK) ,
intent(in),
contiguous :: instance(:)
5717 logical(LK) ,
intent(in),
optional :: sorted
5718 logical(LK) ,
intent(in),
optional :: positive
5719 integer(IK) ,
intent(in),
optional :: blindness
5720 integer(IK) ,
allocatable :: loc(:)
5725 module function getLocCusComCusIns_D1_D0_CK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5727 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_CK2
5730 complex(CKG) ,
intent(in),
contiguous :: array(:)
5731 complex(CKG) ,
intent(in) :: pattern
5732 procedure(
logical(LK)) :: iseq
5733 integer(IK) ,
intent(in),
contiguous :: instance(:)
5734 logical(LK) ,
intent(in),
optional :: sorted
5735 logical(LK) ,
intent(in),
optional :: positive
5736 integer(IK) ,
intent(in),
optional :: blindness
5737 integer(IK) ,
allocatable :: loc(:)
5742 module function getLocCusComCusIns_D1_D0_CK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5744 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_CK1
5747 complex(CKG) ,
intent(in),
contiguous :: array(:)
5748 complex(CKG) ,
intent(in) :: pattern
5749 procedure(
logical(LK)) :: iseq
5750 integer(IK) ,
intent(in),
contiguous :: instance(:)
5751 logical(LK) ,
intent(in),
optional :: sorted
5752 logical(LK) ,
intent(in),
optional :: positive
5753 integer(IK) ,
intent(in),
optional :: blindness
5754 integer(IK) ,
allocatable :: loc(:)
5761 module function getLocCusComCusIns_D1_D0_RK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5763 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_RK5
5766 real(RKG) ,
intent(in),
contiguous :: array(:)
5767 real(RKG) ,
intent(in) :: pattern
5768 procedure(
logical(LK)) :: iseq
5769 integer(IK) ,
intent(in),
contiguous :: instance(:)
5770 logical(LK) ,
intent(in),
optional :: sorted
5771 logical(LK) ,
intent(in),
optional :: positive
5772 integer(IK) ,
intent(in),
optional :: blindness
5773 integer(IK) ,
allocatable :: loc(:)
5778 module function getLocCusComCusIns_D1_D0_RK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5780 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_RK4
5783 real(RKG) ,
intent(in),
contiguous :: array(:)
5784 real(RKG) ,
intent(in) :: pattern
5785 procedure(
logical(LK)) :: iseq
5786 integer(IK) ,
intent(in),
contiguous :: instance(:)
5787 logical(LK) ,
intent(in),
optional :: sorted
5788 logical(LK) ,
intent(in),
optional :: positive
5789 integer(IK) ,
intent(in),
optional :: blindness
5790 integer(IK) ,
allocatable :: loc(:)
5795 module function getLocCusComCusIns_D1_D0_RK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5797 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_RK3
5800 real(RKG) ,
intent(in),
contiguous :: array(:)
5801 real(RKG) ,
intent(in) :: pattern
5802 procedure(
logical(LK)) :: iseq
5803 integer(IK) ,
intent(in),
contiguous :: instance(:)
5804 logical(LK) ,
intent(in),
optional :: sorted
5805 logical(LK) ,
intent(in),
optional :: positive
5806 integer(IK) ,
intent(in),
optional :: blindness
5807 integer(IK) ,
allocatable :: loc(:)
5812 module function getLocCusComCusIns_D1_D0_RK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5814 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_RK2
5817 real(RKG) ,
intent(in),
contiguous :: array(:)
5818 real(RKG) ,
intent(in) :: pattern
5819 procedure(
logical(LK)) :: iseq
5820 integer(IK) ,
intent(in),
contiguous :: instance(:)
5821 logical(LK) ,
intent(in),
optional :: sorted
5822 logical(LK) ,
intent(in),
optional :: positive
5823 integer(IK) ,
intent(in),
optional :: blindness
5824 integer(IK) ,
allocatable :: loc(:)
5829 module function getLocCusComCusIns_D1_D0_RK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
5830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5831 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D0_RK1
5834 real(RKG) ,
intent(in),
contiguous :: array(:)
5835 real(RKG) ,
intent(in) :: pattern
5836 procedure(
logical(LK)) :: iseq
5837 integer(IK) ,
intent(in),
contiguous :: instance(:)
5838 logical(LK) ,
intent(in),
optional :: sorted
5839 logical(LK) ,
intent(in),
optional :: positive
5840 integer(IK) ,
intent(in),
optional :: blindness
5841 integer(IK) ,
allocatable :: loc(:)
5864 PURE module function getLocDefComDefIns_D1_D1_SK5(array, pattern, blindness)
result(loc)
5865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5866 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_SK5
5869 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5870 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5871 integer(IK) ,
intent(in),
optional :: blindness
5872 integer(IK) ,
allocatable :: loc(:)
5877 PURE module function getLocDefComDefIns_D1_D1_SK4(array, pattern, blindness)
result(loc)
5878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5879 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_SK4
5882 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5883 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5884 integer(IK) ,
intent(in),
optional :: blindness
5885 integer(IK) ,
allocatable :: loc(:)
5890 PURE module function getLocDefComDefIns_D1_D1_SK3(array, pattern, blindness)
result(loc)
5891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5892 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_SK3
5895 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5896 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5897 integer(IK) ,
intent(in),
optional :: blindness
5898 integer(IK) ,
allocatable :: loc(:)
5903 PURE module function getLocDefComDefIns_D1_D1_SK2(array, pattern, blindness)
result(loc)
5904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5905 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_SK2
5908 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5909 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5910 integer(IK) ,
intent(in),
optional :: blindness
5911 integer(IK) ,
allocatable :: loc(:)
5916 PURE module function getLocDefComDefIns_D1_D1_SK1(array, pattern, blindness)
result(loc)
5917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5918 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_SK1
5921 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
5922 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
5923 integer(IK) ,
intent(in),
optional :: blindness
5924 integer(IK) ,
allocatable :: loc(:)
5931 PURE module function getLocDefComDefIns_D1_D1_IK5(array, pattern, blindness)
result(loc)
5932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5933 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_IK5
5936 integer(IKG) ,
intent(in),
contiguous :: array(:)
5937 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5938 integer(IK) ,
intent(in),
optional :: blindness
5939 integer(IK) ,
allocatable :: loc(:)
5944 PURE module function getLocDefComDefIns_D1_D1_IK4(array, pattern, blindness)
result(loc)
5945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5946 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_IK4
5949 integer(IKG) ,
intent(in),
contiguous :: array(:)
5950 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5951 integer(IK) ,
intent(in),
optional :: blindness
5952 integer(IK) ,
allocatable :: loc(:)
5957 PURE module function getLocDefComDefIns_D1_D1_IK3(array, pattern, blindness)
result(loc)
5958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5959 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_IK3
5962 integer(IKG) ,
intent(in),
contiguous :: array(:)
5963 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5964 integer(IK) ,
intent(in),
optional :: blindness
5965 integer(IK) ,
allocatable :: loc(:)
5970 PURE module function getLocDefComDefIns_D1_D1_IK2(array, pattern, blindness)
result(loc)
5971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5972 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_IK2
5975 integer(IKG) ,
intent(in),
contiguous :: array(:)
5976 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5977 integer(IK) ,
intent(in),
optional :: blindness
5978 integer(IK) ,
allocatable :: loc(:)
5983 PURE module function getLocDefComDefIns_D1_D1_IK1(array, pattern, blindness)
result(loc)
5984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5985 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_IK1
5988 integer(IKG) ,
intent(in),
contiguous :: array(:)
5989 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
5990 integer(IK) ,
intent(in),
optional :: blindness
5991 integer(IK) ,
allocatable :: loc(:)
5998 PURE module function getLocDefComDefIns_D1_D1_LK5(array, pattern, blindness)
result(loc)
5999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6000 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_LK5
6003 logical(LKG) ,
intent(in),
contiguous :: array(:)
6004 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6005 integer(IK) ,
intent(in),
optional :: blindness
6006 integer(IK) ,
allocatable :: loc(:)
6011 PURE module function getLocDefComDefIns_D1_D1_LK4(array, pattern, blindness)
result(loc)
6012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6013 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_LK4
6016 logical(LKG) ,
intent(in),
contiguous :: array(:)
6017 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6018 integer(IK) ,
intent(in),
optional :: blindness
6019 integer(IK) ,
allocatable :: loc(:)
6024 PURE module function getLocDefComDefIns_D1_D1_LK3(array, pattern, blindness)
result(loc)
6025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6026 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_LK3
6029 logical(LKG) ,
intent(in),
contiguous :: array(:)
6030 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6031 integer(IK) ,
intent(in),
optional :: blindness
6032 integer(IK) ,
allocatable :: loc(:)
6037 PURE module function getLocDefComDefIns_D1_D1_LK2(array, pattern, blindness)
result(loc)
6038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6039 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_LK2
6042 logical(LKG) ,
intent(in),
contiguous :: array(:)
6043 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6044 integer(IK) ,
intent(in),
optional :: blindness
6045 integer(IK) ,
allocatable :: loc(:)
6050 PURE module function getLocDefComDefIns_D1_D1_LK1(array, pattern, blindness)
result(loc)
6051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6052 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_LK1
6055 logical(LKG) ,
intent(in),
contiguous :: array(:)
6056 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6057 integer(IK) ,
intent(in),
optional :: blindness
6058 integer(IK) ,
allocatable :: loc(:)
6065 PURE module function getLocDefComDefIns_D1_D1_CK5(array, pattern, blindness)
result(loc)
6066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6067 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_CK5
6070 complex(CKG) ,
intent(in),
contiguous :: array(:)
6071 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6072 integer(IK) ,
intent(in),
optional :: blindness
6073 integer(IK) ,
allocatable :: loc(:)
6078 PURE module function getLocDefComDefIns_D1_D1_CK4(array, pattern, blindness)
result(loc)
6079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6080 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_CK4
6083 complex(CKG) ,
intent(in),
contiguous :: array(:)
6084 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6085 integer(IK) ,
intent(in),
optional :: blindness
6086 integer(IK) ,
allocatable :: loc(:)
6091 PURE module function getLocDefComDefIns_D1_D1_CK3(array, pattern, blindness)
result(loc)
6092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6093 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_CK3
6096 complex(CKG) ,
intent(in),
contiguous :: array(:)
6097 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6098 integer(IK) ,
intent(in),
optional :: blindness
6099 integer(IK) ,
allocatable :: loc(:)
6104 PURE module function getLocDefComDefIns_D1_D1_CK2(array, pattern, blindness)
result(loc)
6105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6106 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_CK2
6109 complex(CKG) ,
intent(in),
contiguous :: array(:)
6110 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6111 integer(IK) ,
intent(in),
optional :: blindness
6112 integer(IK) ,
allocatable :: loc(:)
6117 PURE module function getLocDefComDefIns_D1_D1_CK1(array, pattern, blindness)
result(loc)
6118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6119 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_CK1
6122 complex(CKG) ,
intent(in),
contiguous :: array(:)
6123 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6124 integer(IK) ,
intent(in),
optional :: blindness
6125 integer(IK) ,
allocatable :: loc(:)
6132 PURE module function getLocDefComDefIns_D1_D1_RK5(array, pattern, blindness)
result(loc)
6133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6134 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_RK5
6137 real(RKG) ,
intent(in),
contiguous :: array(:)
6138 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6139 integer(IK) ,
intent(in),
optional :: blindness
6140 integer(IK) ,
allocatable :: loc(:)
6145 PURE module function getLocDefComDefIns_D1_D1_RK4(array, pattern, blindness)
result(loc)
6146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6147 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_RK4
6150 real(RKG) ,
intent(in),
contiguous :: array(:)
6151 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6152 integer(IK) ,
intent(in),
optional :: blindness
6153 integer(IK) ,
allocatable :: loc(:)
6158 PURE module function getLocDefComDefIns_D1_D1_RK3(array, pattern, blindness)
result(loc)
6159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6160 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_RK3
6163 real(RKG) ,
intent(in),
contiguous :: array(:)
6164 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6165 integer(IK) ,
intent(in),
optional :: blindness
6166 integer(IK) ,
allocatable :: loc(:)
6171 PURE module function getLocDefComDefIns_D1_D1_RK2(array, pattern, blindness)
result(loc)
6172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6173 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_RK2
6176 real(RKG) ,
intent(in),
contiguous :: array(:)
6177 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6178 integer(IK) ,
intent(in),
optional :: blindness
6179 integer(IK) ,
allocatable :: loc(:)
6184 PURE module function getLocDefComDefIns_D1_D1_RK1(array, pattern, blindness)
result(loc)
6185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6186 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComDefIns_D1_D1_RK1
6189 real(RKG) ,
intent(in),
contiguous :: array(:)
6190 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6191 integer(IK) ,
intent(in),
optional :: blindness
6192 integer(IK) ,
allocatable :: loc(:)
6205 module function getLocCusComDefIns_D1_D1_SK5(array, pattern, iseq, blindness)
result(loc)
6206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6207 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_SK5
6210 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6211 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6212 procedure(
logical(LK)) :: iseq
6213 integer(IK) ,
intent(in),
optional :: blindness
6214 integer(IK) ,
allocatable :: loc(:)
6219 module function getLocCusComDefIns_D1_D1_SK4(array, pattern, iseq, blindness)
result(loc)
6220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6221 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_SK4
6224 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6225 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6226 procedure(
logical(LK)) :: iseq
6227 integer(IK) ,
intent(in),
optional :: blindness
6228 integer(IK) ,
allocatable :: loc(:)
6233 module function getLocCusComDefIns_D1_D1_SK3(array, pattern, iseq, blindness)
result(loc)
6234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6235 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_SK3
6238 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6239 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6240 procedure(
logical(LK)) :: iseq
6241 integer(IK) ,
intent(in),
optional :: blindness
6242 integer(IK) ,
allocatable :: loc(:)
6247 module function getLocCusComDefIns_D1_D1_SK2(array, pattern, iseq, blindness)
result(loc)
6248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6249 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_SK2
6252 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6253 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6254 procedure(
logical(LK)) :: iseq
6255 integer(IK) ,
intent(in),
optional :: blindness
6256 integer(IK) ,
allocatable :: loc(:)
6261 module function getLocCusComDefIns_D1_D1_SK1(array, pattern, iseq, blindness)
result(loc)
6262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6263 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_SK1
6266 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6267 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6268 procedure(
logical(LK)) :: iseq
6269 integer(IK) ,
intent(in),
optional :: blindness
6270 integer(IK) ,
allocatable :: loc(:)
6277 module function getLocCusComDefIns_D1_D1_IK5(array, pattern, iseq, blindness)
result(loc)
6278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6279 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_IK5
6282 integer(IKG) ,
intent(in),
contiguous :: array(:)
6283 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6284 procedure(
logical(LK)) :: iseq
6285 integer(IK) ,
intent(in),
optional :: blindness
6286 integer(IK) ,
allocatable :: loc(:)
6291 module function getLocCusComDefIns_D1_D1_IK4(array, pattern, iseq, blindness)
result(loc)
6292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6293 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_IK4
6296 integer(IKG) ,
intent(in),
contiguous :: array(:)
6297 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6298 procedure(
logical(LK)) :: iseq
6299 integer(IK) ,
intent(in),
optional :: blindness
6300 integer(IK) ,
allocatable :: loc(:)
6305 module function getLocCusComDefIns_D1_D1_IK3(array, pattern, iseq, blindness)
result(loc)
6306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6307 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_IK3
6310 integer(IKG) ,
intent(in),
contiguous :: array(:)
6311 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6312 procedure(
logical(LK)) :: iseq
6313 integer(IK) ,
intent(in),
optional :: blindness
6314 integer(IK) ,
allocatable :: loc(:)
6319 module function getLocCusComDefIns_D1_D1_IK2(array, pattern, iseq, blindness)
result(loc)
6320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6321 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_IK2
6324 integer(IKG) ,
intent(in),
contiguous :: array(:)
6325 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6326 procedure(
logical(LK)) :: iseq
6327 integer(IK) ,
intent(in),
optional :: blindness
6328 integer(IK) ,
allocatable :: loc(:)
6333 module function getLocCusComDefIns_D1_D1_IK1(array, pattern, iseq, blindness)
result(loc)
6334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6335 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_IK1
6338 integer(IKG) ,
intent(in),
contiguous :: array(:)
6339 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6340 procedure(
logical(LK)) :: iseq
6341 integer(IK) ,
intent(in),
optional :: blindness
6342 integer(IK) ,
allocatable :: loc(:)
6349 module function getLocCusComDefIns_D1_D1_LK5(array, pattern, iseq, blindness)
result(loc)
6350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6351 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_LK5
6354 logical(LKG) ,
intent(in),
contiguous :: array(:)
6355 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6356 procedure(
logical(LK)) :: iseq
6357 integer(IK) ,
intent(in),
optional :: blindness
6358 integer(IK) ,
allocatable :: loc(:)
6363 module function getLocCusComDefIns_D1_D1_LK4(array, pattern, iseq, blindness)
result(loc)
6364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6365 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_LK4
6368 logical(LKG) ,
intent(in),
contiguous :: array(:)
6369 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6370 procedure(
logical(LK)) :: iseq
6371 integer(IK) ,
intent(in),
optional :: blindness
6372 integer(IK) ,
allocatable :: loc(:)
6377 module function getLocCusComDefIns_D1_D1_LK3(array, pattern, iseq, blindness)
result(loc)
6378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6379 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_LK3
6382 logical(LKG) ,
intent(in),
contiguous :: array(:)
6383 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6384 procedure(
logical(LK)) :: iseq
6385 integer(IK) ,
intent(in),
optional :: blindness
6386 integer(IK) ,
allocatable :: loc(:)
6391 module function getLocCusComDefIns_D1_D1_LK2(array, pattern, iseq, blindness)
result(loc)
6392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6393 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_LK2
6396 logical(LKG) ,
intent(in),
contiguous :: array(:)
6397 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6398 procedure(
logical(LK)) :: iseq
6399 integer(IK) ,
intent(in),
optional :: blindness
6400 integer(IK) ,
allocatable :: loc(:)
6405 module function getLocCusComDefIns_D1_D1_LK1(array, pattern, iseq, blindness)
result(loc)
6406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6407 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_LK1
6410 logical(LKG) ,
intent(in),
contiguous :: array(:)
6411 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6412 procedure(
logical(LK)) :: iseq
6413 integer(IK) ,
intent(in),
optional :: blindness
6414 integer(IK) ,
allocatable :: loc(:)
6421 module function getLocCusComDefIns_D1_D1_CK5(array, pattern, iseq, blindness)
result(loc)
6422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6423 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_CK5
6426 complex(CKG) ,
intent(in),
contiguous :: array(:)
6427 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6428 procedure(
logical(LK)) :: iseq
6429 integer(IK) ,
intent(in),
optional :: blindness
6430 integer(IK) ,
allocatable :: loc(:)
6435 module function getLocCusComDefIns_D1_D1_CK4(array, pattern, iseq, blindness)
result(loc)
6436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6437 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_CK4
6440 complex(CKG) ,
intent(in),
contiguous :: array(:)
6441 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6442 procedure(
logical(LK)) :: iseq
6443 integer(IK) ,
intent(in),
optional :: blindness
6444 integer(IK) ,
allocatable :: loc(:)
6449 module function getLocCusComDefIns_D1_D1_CK3(array, pattern, iseq, blindness)
result(loc)
6450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6451 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_CK3
6454 complex(CKG) ,
intent(in),
contiguous :: array(:)
6455 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6456 procedure(
logical(LK)) :: iseq
6457 integer(IK) ,
intent(in),
optional :: blindness
6458 integer(IK) ,
allocatable :: loc(:)
6463 module function getLocCusComDefIns_D1_D1_CK2(array, pattern, iseq, blindness)
result(loc)
6464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6465 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_CK2
6468 complex(CKG) ,
intent(in),
contiguous :: array(:)
6469 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6470 procedure(
logical(LK)) :: iseq
6471 integer(IK) ,
intent(in),
optional :: blindness
6472 integer(IK) ,
allocatable :: loc(:)
6477 module function getLocCusComDefIns_D1_D1_CK1(array, pattern, iseq, blindness)
result(loc)
6478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6479 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_CK1
6482 complex(CKG) ,
intent(in),
contiguous :: array(:)
6483 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6484 procedure(
logical(LK)) :: iseq
6485 integer(IK) ,
intent(in),
optional :: blindness
6486 integer(IK) ,
allocatable :: loc(:)
6493 module function getLocCusComDefIns_D1_D1_RK5(array, pattern, iseq, blindness)
result(loc)
6494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6495 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_RK5
6498 real(RKG) ,
intent(in),
contiguous :: array(:)
6499 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6500 procedure(
logical(LK)) :: iseq
6501 integer(IK) ,
intent(in),
optional :: blindness
6502 integer(IK) ,
allocatable :: loc(:)
6507 module function getLocCusComDefIns_D1_D1_RK4(array, pattern, iseq, blindness)
result(loc)
6508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6509 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_RK4
6512 real(RKG) ,
intent(in),
contiguous :: array(:)
6513 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6514 procedure(
logical(LK)) :: iseq
6515 integer(IK) ,
intent(in),
optional :: blindness
6516 integer(IK) ,
allocatable :: loc(:)
6521 module function getLocCusComDefIns_D1_D1_RK3(array, pattern, iseq, blindness)
result(loc)
6522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6523 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_RK3
6526 real(RKG) ,
intent(in),
contiguous :: array(:)
6527 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6528 procedure(
logical(LK)) :: iseq
6529 integer(IK) ,
intent(in),
optional :: blindness
6530 integer(IK) ,
allocatable :: loc(:)
6535 module function getLocCusComDefIns_D1_D1_RK2(array, pattern, iseq, blindness)
result(loc)
6536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6537 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_RK2
6540 real(RKG) ,
intent(in),
contiguous :: array(:)
6541 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6542 procedure(
logical(LK)) :: iseq
6543 integer(IK) ,
intent(in),
optional :: blindness
6544 integer(IK) ,
allocatable :: loc(:)
6549 module function getLocCusComDefIns_D1_D1_RK1(array, pattern, iseq, blindness)
result(loc)
6550#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6551 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComDefIns_D1_D1_RK1
6554 real(RKG) ,
intent(in),
contiguous :: array(:)
6555 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6556 procedure(
logical(LK)) :: iseq
6557 integer(IK) ,
intent(in),
optional :: blindness
6558 integer(IK) ,
allocatable :: loc(:)
6571 PURE module function getLocDefComCusIns_D1_D1_SK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
6572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6573 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_SK5
6576 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6577 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6578 integer(IK) ,
intent(in),
contiguous :: instance(:)
6579 logical(LK) ,
intent(in),
optional :: sorted
6580 logical(LK) ,
intent(in),
optional :: positive
6581 integer(IK) ,
intent(in),
optional :: blindness
6582 integer(IK) ,
allocatable :: loc(:)
6587 PURE module function getLocDefComCusIns_D1_D1_SK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
6588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6589 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_SK4
6592 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6593 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6594 integer(IK) ,
intent(in),
contiguous :: instance(:)
6595 logical(LK) ,
intent(in),
optional :: sorted
6596 logical(LK) ,
intent(in),
optional :: positive
6597 integer(IK) ,
intent(in),
optional :: blindness
6598 integer(IK) ,
allocatable :: loc(:)
6603 PURE module function getLocDefComCusIns_D1_D1_SK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
6604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6605 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_SK3
6608 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6609 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6610 integer(IK) ,
intent(in),
contiguous :: instance(:)
6611 logical(LK) ,
intent(in),
optional :: sorted
6612 logical(LK) ,
intent(in),
optional :: positive
6613 integer(IK) ,
intent(in),
optional :: blindness
6614 integer(IK) ,
allocatable :: loc(:)
6619 PURE module function getLocDefComCusIns_D1_D1_SK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
6620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6621 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_SK2
6624 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6625 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6626 integer(IK) ,
intent(in),
contiguous :: instance(:)
6627 logical(LK) ,
intent(in),
optional :: sorted
6628 logical(LK) ,
intent(in),
optional :: positive
6629 integer(IK) ,
intent(in),
optional :: blindness
6630 integer(IK) ,
allocatable :: loc(:)
6635 PURE module function getLocDefComCusIns_D1_D1_SK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
6636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6637 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_SK1
6640 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6641 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6642 integer(IK) ,
intent(in),
contiguous :: instance(:)
6643 logical(LK) ,
intent(in),
optional :: sorted
6644 logical(LK) ,
intent(in),
optional :: positive
6645 integer(IK) ,
intent(in),
optional :: blindness
6646 integer(IK) ,
allocatable :: loc(:)
6653 PURE module function getLocDefComCusIns_D1_D1_IK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
6654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6655 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_IK5
6658 integer(IKG) ,
intent(in),
contiguous :: array(:)
6659 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6660 integer(IK) ,
intent(in),
contiguous :: instance(:)
6661 logical(LK) ,
intent(in),
optional :: sorted
6662 logical(LK) ,
intent(in),
optional :: positive
6663 integer(IK) ,
intent(in),
optional :: blindness
6664 integer(IK) ,
allocatable :: loc(:)
6669 PURE module function getLocDefComCusIns_D1_D1_IK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
6670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6671 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_IK4
6674 integer(IKG) ,
intent(in),
contiguous :: array(:)
6675 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6676 integer(IK) ,
intent(in),
contiguous :: instance(:)
6677 logical(LK) ,
intent(in),
optional :: sorted
6678 logical(LK) ,
intent(in),
optional :: positive
6679 integer(IK) ,
intent(in),
optional :: blindness
6680 integer(IK) ,
allocatable :: loc(:)
6685 PURE module function getLocDefComCusIns_D1_D1_IK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
6686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6687 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_IK3
6690 integer(IKG) ,
intent(in),
contiguous :: array(:)
6691 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6692 integer(IK) ,
intent(in),
contiguous :: instance(:)
6693 logical(LK) ,
intent(in),
optional :: sorted
6694 logical(LK) ,
intent(in),
optional :: positive
6695 integer(IK) ,
intent(in),
optional :: blindness
6696 integer(IK) ,
allocatable :: loc(:)
6701 PURE module function getLocDefComCusIns_D1_D1_IK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
6702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6703 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_IK2
6706 integer(IKG) ,
intent(in),
contiguous :: array(:)
6707 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6708 integer(IK) ,
intent(in),
contiguous :: instance(:)
6709 logical(LK) ,
intent(in),
optional :: sorted
6710 logical(LK) ,
intent(in),
optional :: positive
6711 integer(IK) ,
intent(in),
optional :: blindness
6712 integer(IK) ,
allocatable :: loc(:)
6717 PURE module function getLocDefComCusIns_D1_D1_IK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
6718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6719 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_IK1
6722 integer(IKG) ,
intent(in),
contiguous :: array(:)
6723 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
6724 integer(IK) ,
intent(in),
contiguous :: instance(:)
6725 logical(LK) ,
intent(in),
optional :: sorted
6726 logical(LK) ,
intent(in),
optional :: positive
6727 integer(IK) ,
intent(in),
optional :: blindness
6728 integer(IK) ,
allocatable :: loc(:)
6735 PURE module function getLocDefComCusIns_D1_D1_LK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
6736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6737 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_LK5
6740 logical(LKG) ,
intent(in),
contiguous :: array(:)
6741 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6742 integer(IK) ,
intent(in),
contiguous :: instance(:)
6743 logical(LK) ,
intent(in),
optional :: sorted
6744 logical(LK) ,
intent(in),
optional :: positive
6745 integer(IK) ,
intent(in),
optional :: blindness
6746 integer(IK) ,
allocatable :: loc(:)
6751 PURE module function getLocDefComCusIns_D1_D1_LK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
6752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6753 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_LK4
6756 logical(LKG) ,
intent(in),
contiguous :: array(:)
6757 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6758 integer(IK) ,
intent(in),
contiguous :: instance(:)
6759 logical(LK) ,
intent(in),
optional :: sorted
6760 logical(LK) ,
intent(in),
optional :: positive
6761 integer(IK) ,
intent(in),
optional :: blindness
6762 integer(IK) ,
allocatable :: loc(:)
6767 PURE module function getLocDefComCusIns_D1_D1_LK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
6768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6769 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_LK3
6772 logical(LKG) ,
intent(in),
contiguous :: array(:)
6773 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6774 integer(IK) ,
intent(in),
contiguous :: instance(:)
6775 logical(LK) ,
intent(in),
optional :: sorted
6776 logical(LK) ,
intent(in),
optional :: positive
6777 integer(IK) ,
intent(in),
optional :: blindness
6778 integer(IK) ,
allocatable :: loc(:)
6783 PURE module function getLocDefComCusIns_D1_D1_LK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
6784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6785 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_LK2
6788 logical(LKG) ,
intent(in),
contiguous :: array(:)
6789 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6790 integer(IK) ,
intent(in),
contiguous :: instance(:)
6791 logical(LK) ,
intent(in),
optional :: sorted
6792 logical(LK) ,
intent(in),
optional :: positive
6793 integer(IK) ,
intent(in),
optional :: blindness
6794 integer(IK) ,
allocatable :: loc(:)
6799 PURE module function getLocDefComCusIns_D1_D1_LK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
6800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6801 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_LK1
6804 logical(LKG) ,
intent(in),
contiguous :: array(:)
6805 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
6806 integer(IK) ,
intent(in),
contiguous :: instance(:)
6807 logical(LK) ,
intent(in),
optional :: sorted
6808 logical(LK) ,
intent(in),
optional :: positive
6809 integer(IK) ,
intent(in),
optional :: blindness
6810 integer(IK) ,
allocatable :: loc(:)
6817 PURE module function getLocDefComCusIns_D1_D1_CK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
6818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6819 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_CK5
6822 complex(CKG) ,
intent(in),
contiguous :: array(:)
6823 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6824 integer(IK) ,
intent(in),
contiguous :: instance(:)
6825 logical(LK) ,
intent(in),
optional :: sorted
6826 logical(LK) ,
intent(in),
optional :: positive
6827 integer(IK) ,
intent(in),
optional :: blindness
6828 integer(IK) ,
allocatable :: loc(:)
6833 PURE module function getLocDefComCusIns_D1_D1_CK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
6834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6835 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_CK4
6838 complex(CKG) ,
intent(in),
contiguous :: array(:)
6839 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6840 integer(IK) ,
intent(in),
contiguous :: instance(:)
6841 logical(LK) ,
intent(in),
optional :: sorted
6842 logical(LK) ,
intent(in),
optional :: positive
6843 integer(IK) ,
intent(in),
optional :: blindness
6844 integer(IK) ,
allocatable :: loc(:)
6849 PURE module function getLocDefComCusIns_D1_D1_CK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
6850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6851 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_CK3
6854 complex(CKG) ,
intent(in),
contiguous :: array(:)
6855 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6856 integer(IK) ,
intent(in),
contiguous :: instance(:)
6857 logical(LK) ,
intent(in),
optional :: sorted
6858 logical(LK) ,
intent(in),
optional :: positive
6859 integer(IK) ,
intent(in),
optional :: blindness
6860 integer(IK) ,
allocatable :: loc(:)
6865 PURE module function getLocDefComCusIns_D1_D1_CK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
6866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6867 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_CK2
6870 complex(CKG) ,
intent(in),
contiguous :: array(:)
6871 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6872 integer(IK) ,
intent(in),
contiguous :: instance(:)
6873 logical(LK) ,
intent(in),
optional :: sorted
6874 logical(LK) ,
intent(in),
optional :: positive
6875 integer(IK) ,
intent(in),
optional :: blindness
6876 integer(IK) ,
allocatable :: loc(:)
6881 PURE module function getLocDefComCusIns_D1_D1_CK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
6882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6883 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_CK1
6886 complex(CKG) ,
intent(in),
contiguous :: array(:)
6887 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
6888 integer(IK) ,
intent(in),
contiguous :: instance(:)
6889 logical(LK) ,
intent(in),
optional :: sorted
6890 logical(LK) ,
intent(in),
optional :: positive
6891 integer(IK) ,
intent(in),
optional :: blindness
6892 integer(IK) ,
allocatable :: loc(:)
6899 PURE module function getLocDefComCusIns_D1_D1_RK5(array, pattern, instance, sorted, positive, blindness)
result(loc)
6900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6901 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_RK5
6904 real(RKG) ,
intent(in),
contiguous :: array(:)
6905 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6906 integer(IK) ,
intent(in),
contiguous :: instance(:)
6907 logical(LK) ,
intent(in),
optional :: sorted
6908 logical(LK) ,
intent(in),
optional :: positive
6909 integer(IK) ,
intent(in),
optional :: blindness
6910 integer(IK) ,
allocatable :: loc(:)
6915 PURE module function getLocDefComCusIns_D1_D1_RK4(array, pattern, instance, sorted, positive, blindness)
result(loc)
6916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6917 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_RK4
6920 real(RKG) ,
intent(in),
contiguous :: array(:)
6921 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6922 integer(IK) ,
intent(in),
contiguous :: instance(:)
6923 logical(LK) ,
intent(in),
optional :: sorted
6924 logical(LK) ,
intent(in),
optional :: positive
6925 integer(IK) ,
intent(in),
optional :: blindness
6926 integer(IK) ,
allocatable :: loc(:)
6931 PURE module function getLocDefComCusIns_D1_D1_RK3(array, pattern, instance, sorted, positive, blindness)
result(loc)
6932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6933 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_RK3
6936 real(RKG) ,
intent(in),
contiguous :: array(:)
6937 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6938 integer(IK) ,
intent(in),
contiguous :: instance(:)
6939 logical(LK) ,
intent(in),
optional :: sorted
6940 logical(LK) ,
intent(in),
optional :: positive
6941 integer(IK) ,
intent(in),
optional :: blindness
6942 integer(IK) ,
allocatable :: loc(:)
6947 PURE module function getLocDefComCusIns_D1_D1_RK2(array, pattern, instance, sorted, positive, blindness)
result(loc)
6948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6949 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_RK2
6952 real(RKG) ,
intent(in),
contiguous :: array(:)
6953 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6954 integer(IK) ,
intent(in),
contiguous :: instance(:)
6955 logical(LK) ,
intent(in),
optional :: sorted
6956 logical(LK) ,
intent(in),
optional :: positive
6957 integer(IK) ,
intent(in),
optional :: blindness
6958 integer(IK) ,
allocatable :: loc(:)
6963 PURE module function getLocDefComCusIns_D1_D1_RK1(array, pattern, instance, sorted, positive, blindness)
result(loc)
6964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6965 !DEC$ ATTRIBUTES DLLEXPORT :: getLocDefComCusIns_D1_D1_RK1
6968 real(RKG) ,
intent(in),
contiguous :: array(:)
6969 real(RKG) ,
intent(in),
contiguous :: pattern(:)
6970 integer(IK) ,
intent(in),
contiguous :: instance(:)
6971 logical(LK) ,
intent(in),
optional :: sorted
6972 logical(LK) ,
intent(in),
optional :: positive
6973 integer(IK) ,
intent(in),
optional :: blindness
6974 integer(IK) ,
allocatable :: loc(:)
6987 module function getLocCusComCusIns_D1_D1_SK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
6988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6989 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_SK5
6992 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
6993 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
6994 procedure(
logical(LK)) :: iseq
6995 integer(IK) ,
intent(in),
contiguous :: instance(:)
6996 logical(LK) ,
intent(in),
optional :: sorted
6997 logical(LK) ,
intent(in),
optional :: positive
6998 integer(IK) ,
intent(in),
optional :: blindness
6999 integer(IK) ,
allocatable :: loc(:)
7004 module function getLocCusComCusIns_D1_D1_SK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7006 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_SK4
7009 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7010 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7011 procedure(
logical(LK)) :: iseq
7012 integer(IK) ,
intent(in),
contiguous :: instance(:)
7013 logical(LK) ,
intent(in),
optional :: sorted
7014 logical(LK) ,
intent(in),
optional :: positive
7015 integer(IK) ,
intent(in),
optional :: blindness
7016 integer(IK) ,
allocatable :: loc(:)
7021 module function getLocCusComCusIns_D1_D1_SK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7023 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_SK3
7026 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7027 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7028 procedure(
logical(LK)) :: iseq
7029 integer(IK) ,
intent(in),
contiguous :: instance(:)
7030 logical(LK) ,
intent(in),
optional :: sorted
7031 logical(LK) ,
intent(in),
optional :: positive
7032 integer(IK) ,
intent(in),
optional :: blindness
7033 integer(IK) ,
allocatable :: loc(:)
7038 module function getLocCusComCusIns_D1_D1_SK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7040 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_SK2
7043 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7044 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7045 procedure(
logical(LK)) :: iseq
7046 integer(IK) ,
intent(in),
contiguous :: instance(:)
7047 logical(LK) ,
intent(in),
optional :: sorted
7048 logical(LK) ,
intent(in),
optional :: positive
7049 integer(IK) ,
intent(in),
optional :: blindness
7050 integer(IK) ,
allocatable :: loc(:)
7055 module function getLocCusComCusIns_D1_D1_SK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7057 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_SK1
7060 character(
*,SKG) ,
intent(in),
contiguous :: array(:)
7061 character(
*,SKG) ,
intent(in),
contiguous :: pattern(:)
7062 procedure(
logical(LK)) :: iseq
7063 integer(IK) ,
intent(in),
contiguous :: instance(:)
7064 logical(LK) ,
intent(in),
optional :: sorted
7065 logical(LK) ,
intent(in),
optional :: positive
7066 integer(IK) ,
intent(in),
optional :: blindness
7067 integer(IK) ,
allocatable :: loc(:)
7074 module function getLocCusComCusIns_D1_D1_IK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7076 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_IK5
7079 integer(IKG) ,
intent(in),
contiguous :: array(:)
7080 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7081 procedure(
logical(LK)) :: iseq
7082 integer(IK) ,
intent(in),
contiguous :: instance(:)
7083 logical(LK) ,
intent(in),
optional :: sorted
7084 logical(LK) ,
intent(in),
optional :: positive
7085 integer(IK) ,
intent(in),
optional :: blindness
7086 integer(IK) ,
allocatable :: loc(:)
7091 module function getLocCusComCusIns_D1_D1_IK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7093 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_IK4
7096 integer(IKG) ,
intent(in),
contiguous :: array(:)
7097 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7098 procedure(
logical(LK)) :: iseq
7099 integer(IK) ,
intent(in),
contiguous :: instance(:)
7100 logical(LK) ,
intent(in),
optional :: sorted
7101 logical(LK) ,
intent(in),
optional :: positive
7102 integer(IK) ,
intent(in),
optional :: blindness
7103 integer(IK) ,
allocatable :: loc(:)
7108 module function getLocCusComCusIns_D1_D1_IK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7110 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_IK3
7113 integer(IKG) ,
intent(in),
contiguous :: array(:)
7114 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7115 procedure(
logical(LK)) :: iseq
7116 integer(IK) ,
intent(in),
contiguous :: instance(:)
7117 logical(LK) ,
intent(in),
optional :: sorted
7118 logical(LK) ,
intent(in),
optional :: positive
7119 integer(IK) ,
intent(in),
optional :: blindness
7120 integer(IK) ,
allocatable :: loc(:)
7125 module function getLocCusComCusIns_D1_D1_IK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7127 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_IK2
7130 integer(IKG) ,
intent(in),
contiguous :: array(:)
7131 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7132 procedure(
logical(LK)) :: iseq
7133 integer(IK) ,
intent(in),
contiguous :: instance(:)
7134 logical(LK) ,
intent(in),
optional :: sorted
7135 logical(LK) ,
intent(in),
optional :: positive
7136 integer(IK) ,
intent(in),
optional :: blindness
7137 integer(IK) ,
allocatable :: loc(:)
7142 module function getLocCusComCusIns_D1_D1_IK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7144 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_IK1
7147 integer(IKG) ,
intent(in),
contiguous :: array(:)
7148 integer(IKG) ,
intent(in),
contiguous :: pattern(:)
7149 procedure(
logical(LK)) :: iseq
7150 integer(IK) ,
intent(in),
contiguous :: instance(:)
7151 logical(LK) ,
intent(in),
optional :: sorted
7152 logical(LK) ,
intent(in),
optional :: positive
7153 integer(IK) ,
intent(in),
optional :: blindness
7154 integer(IK) ,
allocatable :: loc(:)
7161 module function getLocCusComCusIns_D1_D1_LK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7163 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_LK5
7166 logical(LKG) ,
intent(in),
contiguous :: array(:)
7167 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7168 procedure(
logical(LK)) :: iseq
7169 integer(IK) ,
intent(in),
contiguous :: instance(:)
7170 logical(LK) ,
intent(in),
optional :: sorted
7171 logical(LK) ,
intent(in),
optional :: positive
7172 integer(IK) ,
intent(in),
optional :: blindness
7173 integer(IK) ,
allocatable :: loc(:)
7178 module function getLocCusComCusIns_D1_D1_LK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7180 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_LK4
7183 logical(LKG) ,
intent(in),
contiguous :: array(:)
7184 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7185 procedure(
logical(LK)) :: iseq
7186 integer(IK) ,
intent(in),
contiguous :: instance(:)
7187 logical(LK) ,
intent(in),
optional :: sorted
7188 logical(LK) ,
intent(in),
optional :: positive
7189 integer(IK) ,
intent(in),
optional :: blindness
7190 integer(IK) ,
allocatable :: loc(:)
7195 module function getLocCusComCusIns_D1_D1_LK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7197 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_LK3
7200 logical(LKG) ,
intent(in),
contiguous :: array(:)
7201 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7202 procedure(
logical(LK)) :: iseq
7203 integer(IK) ,
intent(in),
contiguous :: instance(:)
7204 logical(LK) ,
intent(in),
optional :: sorted
7205 logical(LK) ,
intent(in),
optional :: positive
7206 integer(IK) ,
intent(in),
optional :: blindness
7207 integer(IK) ,
allocatable :: loc(:)
7212 module function getLocCusComCusIns_D1_D1_LK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7214 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_LK2
7217 logical(LKG) ,
intent(in),
contiguous :: array(:)
7218 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7219 procedure(
logical(LK)) :: iseq
7220 integer(IK) ,
intent(in),
contiguous :: instance(:)
7221 logical(LK) ,
intent(in),
optional :: sorted
7222 logical(LK) ,
intent(in),
optional :: positive
7223 integer(IK) ,
intent(in),
optional :: blindness
7224 integer(IK) ,
allocatable :: loc(:)
7229 module function getLocCusComCusIns_D1_D1_LK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7231 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_LK1
7234 logical(LKG) ,
intent(in),
contiguous :: array(:)
7235 logical(LKG) ,
intent(in),
contiguous :: pattern(:)
7236 procedure(
logical(LK)) :: iseq
7237 integer(IK) ,
intent(in),
contiguous :: instance(:)
7238 logical(LK) ,
intent(in),
optional :: sorted
7239 logical(LK) ,
intent(in),
optional :: positive
7240 integer(IK) ,
intent(in),
optional :: blindness
7241 integer(IK) ,
allocatable :: loc(:)
7248 module function getLocCusComCusIns_D1_D1_CK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7250 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_CK5
7253 complex(CKG) ,
intent(in),
contiguous :: array(:)
7254 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7255 procedure(
logical(LK)) :: iseq
7256 integer(IK) ,
intent(in),
contiguous :: instance(:)
7257 logical(LK) ,
intent(in),
optional :: sorted
7258 logical(LK) ,
intent(in),
optional :: positive
7259 integer(IK) ,
intent(in),
optional :: blindness
7260 integer(IK) ,
allocatable :: loc(:)
7265 module function getLocCusComCusIns_D1_D1_CK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7267 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_CK4
7270 complex(CKG) ,
intent(in),
contiguous :: array(:)
7271 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7272 procedure(
logical(LK)) :: iseq
7273 integer(IK) ,
intent(in),
contiguous :: instance(:)
7274 logical(LK) ,
intent(in),
optional :: sorted
7275 logical(LK) ,
intent(in),
optional :: positive
7276 integer(IK) ,
intent(in),
optional :: blindness
7277 integer(IK) ,
allocatable :: loc(:)
7282 module function getLocCusComCusIns_D1_D1_CK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7284 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_CK3
7287 complex(CKG) ,
intent(in),
contiguous :: array(:)
7288 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7289 procedure(
logical(LK)) :: iseq
7290 integer(IK) ,
intent(in),
contiguous :: instance(:)
7291 logical(LK) ,
intent(in),
optional :: sorted
7292 logical(LK) ,
intent(in),
optional :: positive
7293 integer(IK) ,
intent(in),
optional :: blindness
7294 integer(IK) ,
allocatable :: loc(:)
7299 module function getLocCusComCusIns_D1_D1_CK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7301 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_CK2
7304 complex(CKG) ,
intent(in),
contiguous :: array(:)
7305 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7306 procedure(
logical(LK)) :: iseq
7307 integer(IK) ,
intent(in),
contiguous :: instance(:)
7308 logical(LK) ,
intent(in),
optional :: sorted
7309 logical(LK) ,
intent(in),
optional :: positive
7310 integer(IK) ,
intent(in),
optional :: blindness
7311 integer(IK) ,
allocatable :: loc(:)
7316 module function getLocCusComCusIns_D1_D1_CK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7318 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_CK1
7321 complex(CKG) ,
intent(in),
contiguous :: array(:)
7322 complex(CKG) ,
intent(in),
contiguous :: pattern(:)
7323 procedure(
logical(LK)) :: iseq
7324 integer(IK) ,
intent(in),
contiguous :: instance(:)
7325 logical(LK) ,
intent(in),
optional :: sorted
7326 logical(LK) ,
intent(in),
optional :: positive
7327 integer(IK) ,
intent(in),
optional :: blindness
7328 integer(IK) ,
allocatable :: loc(:)
7335 module function getLocCusComCusIns_D1_D1_RK5(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7337 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_RK5
7340 real(RKG) ,
intent(in),
contiguous :: array(:)
7341 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7342 procedure(
logical(LK)) :: iseq
7343 integer(IK) ,
intent(in),
contiguous :: instance(:)
7344 logical(LK) ,
intent(in),
optional :: sorted
7345 logical(LK) ,
intent(in),
optional :: positive
7346 integer(IK) ,
intent(in),
optional :: blindness
7347 integer(IK) ,
allocatable :: loc(:)
7352 module function getLocCusComCusIns_D1_D1_RK4(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7354 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_RK4
7357 real(RKG) ,
intent(in),
contiguous :: array(:)
7358 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7359 procedure(
logical(LK)) :: iseq
7360 integer(IK) ,
intent(in),
contiguous :: instance(:)
7361 logical(LK) ,
intent(in),
optional :: sorted
7362 logical(LK) ,
intent(in),
optional :: positive
7363 integer(IK) ,
intent(in),
optional :: blindness
7364 integer(IK) ,
allocatable :: loc(:)
7369 module function getLocCusComCusIns_D1_D1_RK3(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7371 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_RK3
7374 real(RKG) ,
intent(in),
contiguous :: array(:)
7375 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7376 procedure(
logical(LK)) :: iseq
7377 integer(IK) ,
intent(in),
contiguous :: instance(:)
7378 logical(LK) ,
intent(in),
optional :: sorted
7379 logical(LK) ,
intent(in),
optional :: positive
7380 integer(IK) ,
intent(in),
optional :: blindness
7381 integer(IK) ,
allocatable :: loc(:)
7386 module function getLocCusComCusIns_D1_D1_RK2(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7388 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_RK2
7391 real(RKG) ,
intent(in),
contiguous :: array(:)
7392 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7393 procedure(
logical(LK)) :: iseq
7394 integer(IK) ,
intent(in),
contiguous :: instance(:)
7395 logical(LK) ,
intent(in),
optional :: sorted
7396 logical(LK) ,
intent(in),
optional :: positive
7397 integer(IK) ,
intent(in),
optional :: blindness
7398 integer(IK) ,
allocatable :: loc(:)
7403 module function getLocCusComCusIns_D1_D1_RK1(array, pattern, iseq, instance, sorted, positive, blindness)
result(loc)
7404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7405 !DEC$ ATTRIBUTES DLLEXPORT :: getLocCusComCusIns_D1_D1_RK1
7408 real(RKG) ,
intent(in),
contiguous :: array(:)
7409 real(RKG) ,
intent(in),
contiguous :: pattern(:)
7410 procedure(
logical(LK)) :: iseq
7411 integer(IK) ,
intent(in),
contiguous :: instance(:)
7412 logical(LK) ,
intent(in),
optional :: sorted
7413 logical(LK) ,
intent(in),
optional :: positive
7414 integer(IK) ,
intent(in),
optional :: blindness
7415 integer(IK) ,
allocatable :: loc(:)
7633 PURE module subroutine setLocDefComDefIns_D0_D0_SK5(loc, nloc, array, pattern, blindness)
7634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7635 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D0_D0_SK5
7638 character(
*,SKG) ,
intent(in) :: array
7639 character(
*,SKG) ,
intent(in) :: pattern
7640 integer(IK) ,
intent(in) ,
optional :: blindness
7641 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7642 integer(IK) ,
intent(out) :: nloc
7647 PURE module subroutine setLocDefComDefIns_D0_D0_SK4(loc, nloc, array, pattern, blindness)
7648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7649 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D0_D0_SK4
7652 character(
*,SKG) ,
intent(in) :: array
7653 character(
*,SKG) ,
intent(in) :: pattern
7654 integer(IK) ,
intent(in) ,
optional :: blindness
7655 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7656 integer(IK) ,
intent(out) :: nloc
7661 PURE module subroutine setLocDefComDefIns_D0_D0_SK3(loc, nloc, array, pattern, blindness)
7662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7663 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D0_D0_SK3
7666 character(
*,SKG) ,
intent(in) :: array
7667 character(
*,SKG) ,
intent(in) :: pattern
7668 integer(IK) ,
intent(in) ,
optional :: blindness
7669 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7670 integer(IK) ,
intent(out) :: nloc
7675 PURE module subroutine setLocDefComDefIns_D0_D0_SK2(loc, nloc, array, pattern, blindness)
7676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7677 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D0_D0_SK2
7680 character(
*,SKG) ,
intent(in) :: array
7681 character(
*,SKG) ,
intent(in) :: pattern
7682 integer(IK) ,
intent(in) ,
optional :: blindness
7683 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7684 integer(IK) ,
intent(out) :: nloc
7689 PURE module subroutine setLocDefComDefIns_D0_D0_SK1(loc, nloc, array, pattern, blindness)
7690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7691 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D0_D0_SK1
7694 character(
*,SKG) ,
intent(in) :: array
7695 character(
*,SKG) ,
intent(in) :: pattern
7696 integer(IK) ,
intent(in) ,
optional :: blindness
7697 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7698 integer(IK) ,
intent(out) :: nloc
7711 module subroutine setLocCusComDefIns_D0_D0_SK5(loc, nloc, array, pattern, iseq, blindness)
7712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7713 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D0_D0_SK5
7716 character(
*,SKG) ,
intent(in) :: array
7717 character(
*,SKG) ,
intent(in) :: pattern
7718 procedure(
logical(LK)) :: iseq
7719 integer(IK) ,
intent(in) ,
optional :: blindness
7720 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7721 integer(IK) ,
intent(out) :: nloc
7726 module subroutine setLocCusComDefIns_D0_D0_SK4(loc, nloc, array, pattern, iseq, blindness)
7727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7728 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D0_D0_SK4
7731 character(
*,SKG) ,
intent(in) :: array
7732 character(
*,SKG) ,
intent(in) :: pattern
7733 procedure(
logical(LK)) :: iseq
7734 integer(IK) ,
intent(in) ,
optional :: blindness
7735 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7736 integer(IK) ,
intent(out) :: nloc
7741 module subroutine setLocCusComDefIns_D0_D0_SK3(loc, nloc, array, pattern, iseq, blindness)
7742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7743 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D0_D0_SK3
7746 character(
*,SKG) ,
intent(in) :: array
7747 character(
*,SKG) ,
intent(in) :: pattern
7748 procedure(
logical(LK)) :: iseq
7749 integer(IK) ,
intent(in) ,
optional :: blindness
7750 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7751 integer(IK) ,
intent(out) :: nloc
7756 module subroutine setLocCusComDefIns_D0_D0_SK2(loc, nloc, array, pattern, iseq, blindness)
7757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7758 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D0_D0_SK2
7761 character(
*,SKG) ,
intent(in) :: array
7762 character(
*,SKG) ,
intent(in) :: pattern
7763 procedure(
logical(LK)) :: iseq
7764 integer(IK) ,
intent(in) ,
optional :: blindness
7765 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7766 integer(IK) ,
intent(out) :: nloc
7771 module subroutine setLocCusComDefIns_D0_D0_SK1(loc, nloc, array, pattern, iseq, blindness)
7772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7773 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D0_D0_SK1
7776 character(
*,SKG) ,
intent(in) :: array
7777 character(
*,SKG) ,
intent(in) :: pattern
7778 procedure(
logical(LK)) :: iseq
7779 integer(IK) ,
intent(in) ,
optional :: blindness
7780 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7781 integer(IK) ,
intent(out) :: nloc
7794 PURE module subroutine setLocDefComCusIns_D0_D0_SK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
7795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7796 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D0_D0_SK5
7799 character(
*,SKG) ,
intent(in) :: array
7800 character(
*,SKG) ,
intent(in) :: pattern
7801 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7802 logical(LK) ,
intent(in) :: sorted
7803 logical(LK) ,
intent(in) :: positive
7804 integer(IK) ,
intent(in) :: blindness
7805 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7806 integer(IK) ,
intent(out) :: nloc
7811 PURE module subroutine setLocDefComCusIns_D0_D0_SK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
7812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7813 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D0_D0_SK4
7816 character(
*,SKG) ,
intent(in) :: array
7817 character(
*,SKG) ,
intent(in) :: pattern
7818 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7819 logical(LK) ,
intent(in) :: sorted
7820 logical(LK) ,
intent(in) :: positive
7821 integer(IK) ,
intent(in) :: blindness
7822 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7823 integer(IK) ,
intent(out) :: nloc
7828 PURE module subroutine setLocDefComCusIns_D0_D0_SK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
7829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7830 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D0_D0_SK3
7833 character(
*,SKG) ,
intent(in) :: array
7834 character(
*,SKG) ,
intent(in) :: pattern
7835 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7836 logical(LK) ,
intent(in) :: sorted
7837 logical(LK) ,
intent(in) :: positive
7838 integer(IK) ,
intent(in) :: blindness
7839 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7840 integer(IK) ,
intent(out) :: nloc
7845 PURE module subroutine setLocDefComCusIns_D0_D0_SK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
7846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7847 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D0_D0_SK2
7850 character(
*,SKG) ,
intent(in) :: array
7851 character(
*,SKG) ,
intent(in) :: pattern
7852 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7853 logical(LK) ,
intent(in) :: sorted
7854 logical(LK) ,
intent(in) :: positive
7855 integer(IK) ,
intent(in) :: blindness
7856 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7857 integer(IK) ,
intent(out) :: nloc
7862 PURE module subroutine setLocDefComCusIns_D0_D0_SK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
7863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7864 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D0_D0_SK1
7867 character(
*,SKG) ,
intent(in) :: array
7868 character(
*,SKG) ,
intent(in) :: pattern
7869 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7870 logical(LK) ,
intent(in) :: sorted
7871 logical(LK) ,
intent(in) :: positive
7872 integer(IK) ,
intent(in) :: blindness
7873 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7874 integer(IK) ,
intent(out) :: nloc
7887 module subroutine setLocCusComCusIns_D0_D0_SK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
7888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7889 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D0_D0_SK5
7892 character(
*,SKG) ,
intent(in) :: array
7893 character(
*,SKG) ,
intent(in) :: pattern
7894 procedure(
logical(LK)) :: iseq
7895 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7896 logical(LK) ,
intent(in) :: sorted
7897 logical(LK) ,
intent(in) :: positive
7898 integer(IK) ,
intent(in) :: blindness
7899 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7900 integer(IK) ,
intent(out) :: nloc
7905 module subroutine setLocCusComCusIns_D0_D0_SK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
7906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7907 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D0_D0_SK4
7910 character(
*,SKG) ,
intent(in) :: array
7911 character(
*,SKG) ,
intent(in) :: pattern
7912 procedure(
logical(LK)) :: iseq
7913 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7914 logical(LK) ,
intent(in) :: sorted
7915 logical(LK) ,
intent(in) :: positive
7916 integer(IK) ,
intent(in) :: blindness
7917 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7918 integer(IK) ,
intent(out) :: nloc
7923 module subroutine setLocCusComCusIns_D0_D0_SK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
7924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7925 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D0_D0_SK3
7928 character(
*,SKG) ,
intent(in) :: array
7929 character(
*,SKG) ,
intent(in) :: pattern
7930 procedure(
logical(LK)) :: iseq
7931 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7932 logical(LK) ,
intent(in) :: sorted
7933 logical(LK) ,
intent(in) :: positive
7934 integer(IK) ,
intent(in) :: blindness
7935 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7936 integer(IK) ,
intent(out) :: nloc
7941 module subroutine setLocCusComCusIns_D0_D0_SK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
7942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7943 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D0_D0_SK2
7946 character(
*,SKG) ,
intent(in) :: array
7947 character(
*,SKG) ,
intent(in) :: pattern
7948 procedure(
logical(LK)) :: iseq
7949 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7950 logical(LK) ,
intent(in) :: sorted
7951 logical(LK) ,
intent(in) :: positive
7952 integer(IK) ,
intent(in) :: blindness
7953 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7954 integer(IK) ,
intent(out) :: nloc
7959 module subroutine setLocCusComCusIns_D0_D0_SK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
7960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7961 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D0_D0_SK1
7964 character(
*,SKG) ,
intent(in) :: array
7965 character(
*,SKG) ,
intent(in) :: pattern
7966 procedure(
logical(LK)) :: iseq
7967 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
7968 logical(LK) ,
intent(in) :: sorted
7969 logical(LK) ,
intent(in) :: positive
7970 integer(IK) ,
intent(in) :: blindness
7971 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
7972 integer(IK) ,
intent(out) :: nloc
7995 PURE module subroutine setLocDefComDefIns_D1_D0_SK5(loc, nloc, array, pattern, blindness)
7996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7997 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_SK5
8000 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8001 character(
*,SKG) ,
intent(in) :: pattern
8002 integer(IK) ,
intent(in) ,
optional :: blindness
8003 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8004 integer(IK) ,
intent(out) :: nloc
8009 PURE module subroutine setLocDefComDefIns_D1_D0_SK4(loc, nloc, array, pattern, blindness)
8010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8011 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_SK4
8014 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8015 character(
*,SKG) ,
intent(in) :: pattern
8016 integer(IK) ,
intent(in) ,
optional :: blindness
8017 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8018 integer(IK) ,
intent(out) :: nloc
8023 PURE module subroutine setLocDefComDefIns_D1_D0_SK3(loc, nloc, array, pattern, blindness)
8024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8025 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_SK3
8028 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8029 character(
*,SKG) ,
intent(in) :: pattern
8030 integer(IK) ,
intent(in) ,
optional :: blindness
8031 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8032 integer(IK) ,
intent(out) :: nloc
8037 PURE module subroutine setLocDefComDefIns_D1_D0_SK2(loc, nloc, array, pattern, blindness)
8038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8039 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_SK2
8042 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8043 character(
*,SKG) ,
intent(in) :: pattern
8044 integer(IK) ,
intent(in) ,
optional :: blindness
8045 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8046 integer(IK) ,
intent(out) :: nloc
8051 PURE module subroutine setLocDefComDefIns_D1_D0_SK1(loc, nloc, array, pattern, blindness)
8052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8053 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_SK1
8056 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8057 character(
*,SKG) ,
intent(in) :: pattern
8058 integer(IK) ,
intent(in) ,
optional :: blindness
8059 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8060 integer(IK) ,
intent(out) :: nloc
8067 PURE module subroutine setLocDefComDefIns_D1_D0_IK5(loc, nloc, array, pattern, blindness)
8068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8069 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_IK5
8072 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8073 integer(IKG) ,
intent(in) :: pattern
8074 integer(IK) ,
intent(in) ,
optional :: blindness
8075 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8076 integer(IK) ,
intent(out) :: nloc
8081 PURE module subroutine setLocDefComDefIns_D1_D0_IK4(loc, nloc, array, pattern, blindness)
8082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8083 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_IK4
8086 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8087 integer(IKG) ,
intent(in) :: pattern
8088 integer(IK) ,
intent(in) ,
optional :: blindness
8089 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8090 integer(IK) ,
intent(out) :: nloc
8095 PURE module subroutine setLocDefComDefIns_D1_D0_IK3(loc, nloc, array, pattern, blindness)
8096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8097 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_IK3
8100 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8101 integer(IKG) ,
intent(in) :: pattern
8102 integer(IK) ,
intent(in) ,
optional :: blindness
8103 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8104 integer(IK) ,
intent(out) :: nloc
8109 PURE module subroutine setLocDefComDefIns_D1_D0_IK2(loc, nloc, array, pattern, blindness)
8110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8111 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_IK2
8114 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8115 integer(IKG) ,
intent(in) :: pattern
8116 integer(IK) ,
intent(in) ,
optional :: blindness
8117 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8118 integer(IK) ,
intent(out) :: nloc
8123 PURE module subroutine setLocDefComDefIns_D1_D0_IK1(loc, nloc, array, pattern, blindness)
8124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8125 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_IK1
8128 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8129 integer(IKG) ,
intent(in) :: pattern
8130 integer(IK) ,
intent(in) ,
optional :: blindness
8131 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8132 integer(IK) ,
intent(out) :: nloc
8139 PURE module subroutine setLocDefComDefIns_D1_D0_LK5(loc, nloc, array, pattern, blindness)
8140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8141 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_LK5
8144 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8145 logical(LKG) ,
intent(in) :: pattern
8146 integer(IK) ,
intent(in) ,
optional :: blindness
8147 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8148 integer(IK) ,
intent(out) :: nloc
8153 PURE module subroutine setLocDefComDefIns_D1_D0_LK4(loc, nloc, array, pattern, blindness)
8154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8155 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_LK4
8158 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8159 logical(LKG) ,
intent(in) :: pattern
8160 integer(IK) ,
intent(in) ,
optional :: blindness
8161 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8162 integer(IK) ,
intent(out) :: nloc
8167 PURE module subroutine setLocDefComDefIns_D1_D0_LK3(loc, nloc, array, pattern, blindness)
8168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8169 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_LK3
8172 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8173 logical(LKG) ,
intent(in) :: pattern
8174 integer(IK) ,
intent(in) ,
optional :: blindness
8175 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8176 integer(IK) ,
intent(out) :: nloc
8181 PURE module subroutine setLocDefComDefIns_D1_D0_LK2(loc, nloc, array, pattern, blindness)
8182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8183 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_LK2
8186 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8187 logical(LKG) ,
intent(in) :: pattern
8188 integer(IK) ,
intent(in) ,
optional :: blindness
8189 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8190 integer(IK) ,
intent(out) :: nloc
8195 PURE module subroutine setLocDefComDefIns_D1_D0_LK1(loc, nloc, array, pattern, blindness)
8196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8197 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_LK1
8200 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8201 logical(LKG) ,
intent(in) :: pattern
8202 integer(IK) ,
intent(in) ,
optional :: blindness
8203 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8204 integer(IK) ,
intent(out) :: nloc
8211 PURE module subroutine setLocDefComDefIns_D1_D0_CK5(loc, nloc, array, pattern, blindness)
8212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8213 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_CK5
8216 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8217 complex(CKG) ,
intent(in) :: pattern
8218 integer(IK) ,
intent(in) ,
optional :: blindness
8219 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8220 integer(IK) ,
intent(out) :: nloc
8225 PURE module subroutine setLocDefComDefIns_D1_D0_CK4(loc, nloc, array, pattern, blindness)
8226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8227 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_CK4
8230 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8231 complex(CKG) ,
intent(in) :: pattern
8232 integer(IK) ,
intent(in) ,
optional :: blindness
8233 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8234 integer(IK) ,
intent(out) :: nloc
8239 PURE module subroutine setLocDefComDefIns_D1_D0_CK3(loc, nloc, array, pattern, blindness)
8240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8241 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_CK3
8244 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8245 complex(CKG) ,
intent(in) :: pattern
8246 integer(IK) ,
intent(in) ,
optional :: blindness
8247 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8248 integer(IK) ,
intent(out) :: nloc
8253 PURE module subroutine setLocDefComDefIns_D1_D0_CK2(loc, nloc, array, pattern, blindness)
8254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8255 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_CK2
8258 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8259 complex(CKG) ,
intent(in) :: pattern
8260 integer(IK) ,
intent(in) ,
optional :: blindness
8261 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8262 integer(IK) ,
intent(out) :: nloc
8267 PURE module subroutine setLocDefComDefIns_D1_D0_CK1(loc, nloc, array, pattern, blindness)
8268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8269 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_CK1
8272 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8273 complex(CKG) ,
intent(in) :: pattern
8274 integer(IK) ,
intent(in) ,
optional :: blindness
8275 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8276 integer(IK) ,
intent(out) :: nloc
8283 PURE module subroutine setLocDefComDefIns_D1_D0_RK5(loc, nloc, array, pattern, blindness)
8284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8285 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_RK5
8288 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8289 real(RKG) ,
intent(in) :: pattern
8290 integer(IK) ,
intent(in) ,
optional :: blindness
8291 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8292 integer(IK) ,
intent(out) :: nloc
8297 PURE module subroutine setLocDefComDefIns_D1_D0_RK4(loc, nloc, array, pattern, blindness)
8298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8299 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_RK4
8302 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8303 real(RKG) ,
intent(in) :: pattern
8304 integer(IK) ,
intent(in) ,
optional :: blindness
8305 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8306 integer(IK) ,
intent(out) :: nloc
8311 PURE module subroutine setLocDefComDefIns_D1_D0_RK3(loc, nloc, array, pattern, blindness)
8312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8313 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_RK3
8316 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8317 real(RKG) ,
intent(in) :: pattern
8318 integer(IK) ,
intent(in) ,
optional :: blindness
8319 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8320 integer(IK) ,
intent(out) :: nloc
8325 PURE module subroutine setLocDefComDefIns_D1_D0_RK2(loc, nloc, array, pattern, blindness)
8326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8327 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_RK2
8330 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8331 real(RKG) ,
intent(in) :: pattern
8332 integer(IK) ,
intent(in) ,
optional :: blindness
8333 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8334 integer(IK) ,
intent(out) :: nloc
8339 PURE module subroutine setLocDefComDefIns_D1_D0_RK1(loc, nloc, array, pattern, blindness)
8340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8341 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D0_RK1
8344 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8345 real(RKG) ,
intent(in) :: pattern
8346 integer(IK) ,
intent(in) ,
optional :: blindness
8347 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8348 integer(IK) ,
intent(out) :: nloc
8361 module subroutine setLocCusComDefIns_D1_D0_SK5(loc, nloc, array, pattern, iseq, blindness)
8362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8363 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_SK5
8366 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8367 character(
*,SKG) ,
intent(in) :: pattern
8368 procedure(
logical(LK)) :: iseq
8369 integer(IK) ,
intent(in) ,
optional :: blindness
8370 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8371 integer(IK) ,
intent(out) :: nloc
8376 module subroutine setLocCusComDefIns_D1_D0_SK4(loc, nloc, array, pattern, iseq, blindness)
8377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8378 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_SK4
8381 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8382 character(
*,SKG) ,
intent(in) :: pattern
8383 procedure(
logical(LK)) :: iseq
8384 integer(IK) ,
intent(in) ,
optional :: blindness
8385 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8386 integer(IK) ,
intent(out) :: nloc
8391 module subroutine setLocCusComDefIns_D1_D0_SK3(loc, nloc, array, pattern, iseq, blindness)
8392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8393 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_SK3
8396 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8397 character(
*,SKG) ,
intent(in) :: pattern
8398 procedure(
logical(LK)) :: iseq
8399 integer(IK) ,
intent(in) ,
optional :: blindness
8400 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8401 integer(IK) ,
intent(out) :: nloc
8406 module subroutine setLocCusComDefIns_D1_D0_SK2(loc, nloc, array, pattern, iseq, blindness)
8407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8408 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_SK2
8411 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8412 character(
*,SKG) ,
intent(in) :: pattern
8413 procedure(
logical(LK)) :: iseq
8414 integer(IK) ,
intent(in) ,
optional :: blindness
8415 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8416 integer(IK) ,
intent(out) :: nloc
8421 module subroutine setLocCusComDefIns_D1_D0_SK1(loc, nloc, array, pattern, iseq, blindness)
8422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8423 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_SK1
8426 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8427 character(
*,SKG) ,
intent(in) :: pattern
8428 procedure(
logical(LK)) :: iseq
8429 integer(IK) ,
intent(in) ,
optional :: blindness
8430 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8431 integer(IK) ,
intent(out) :: nloc
8438 module subroutine setLocCusComDefIns_D1_D0_IK5(loc, nloc, array, pattern, iseq, blindness)
8439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8440 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_IK5
8443 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8444 integer(IKG) ,
intent(in) :: pattern
8445 procedure(
logical(LK)) :: iseq
8446 integer(IK) ,
intent(in) ,
optional :: blindness
8447 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8448 integer(IK) ,
intent(out) :: nloc
8453 module subroutine setLocCusComDefIns_D1_D0_IK4(loc, nloc, array, pattern, iseq, blindness)
8454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8455 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_IK4
8458 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8459 integer(IKG) ,
intent(in) :: pattern
8460 procedure(
logical(LK)) :: iseq
8461 integer(IK) ,
intent(in) ,
optional :: blindness
8462 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8463 integer(IK) ,
intent(out) :: nloc
8468 module subroutine setLocCusComDefIns_D1_D0_IK3(loc, nloc, array, pattern, iseq, blindness)
8469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8470 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_IK3
8473 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8474 integer(IKG) ,
intent(in) :: pattern
8475 procedure(
logical(LK)) :: iseq
8476 integer(IK) ,
intent(in) ,
optional :: blindness
8477 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8478 integer(IK) ,
intent(out) :: nloc
8483 module subroutine setLocCusComDefIns_D1_D0_IK2(loc, nloc, array, pattern, iseq, blindness)
8484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8485 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_IK2
8488 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8489 integer(IKG) ,
intent(in) :: pattern
8490 procedure(
logical(LK)) :: iseq
8491 integer(IK) ,
intent(in) ,
optional :: blindness
8492 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8493 integer(IK) ,
intent(out) :: nloc
8498 module subroutine setLocCusComDefIns_D1_D0_IK1(loc, nloc, array, pattern, iseq, blindness)
8499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8500 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_IK1
8503 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8504 integer(IKG) ,
intent(in) :: pattern
8505 procedure(
logical(LK)) :: iseq
8506 integer(IK) ,
intent(in) ,
optional :: blindness
8507 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8508 integer(IK) ,
intent(out) :: nloc
8515 module subroutine setLocCusComDefIns_D1_D0_LK5(loc, nloc, array, pattern, iseq, blindness)
8516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8517 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_LK5
8520 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8521 logical(LKG) ,
intent(in) :: pattern
8522 procedure(
logical(LK)) :: iseq
8523 integer(IK) ,
intent(in) ,
optional :: blindness
8524 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8525 integer(IK) ,
intent(out) :: nloc
8530 module subroutine setLocCusComDefIns_D1_D0_LK4(loc, nloc, array, pattern, iseq, blindness)
8531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8532 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_LK4
8535 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8536 logical(LKG) ,
intent(in) :: pattern
8537 procedure(
logical(LK)) :: iseq
8538 integer(IK) ,
intent(in) ,
optional :: blindness
8539 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8540 integer(IK) ,
intent(out) :: nloc
8545 module subroutine setLocCusComDefIns_D1_D0_LK3(loc, nloc, array, pattern, iseq, blindness)
8546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8547 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_LK3
8550 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8551 logical(LKG) ,
intent(in) :: pattern
8552 procedure(
logical(LK)) :: iseq
8553 integer(IK) ,
intent(in) ,
optional :: blindness
8554 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8555 integer(IK) ,
intent(out) :: nloc
8560 module subroutine setLocCusComDefIns_D1_D0_LK2(loc, nloc, array, pattern, iseq, blindness)
8561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8562 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_LK2
8565 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8566 logical(LKG) ,
intent(in) :: pattern
8567 procedure(
logical(LK)) :: iseq
8568 integer(IK) ,
intent(in) ,
optional :: blindness
8569 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8570 integer(IK) ,
intent(out) :: nloc
8575 module subroutine setLocCusComDefIns_D1_D0_LK1(loc, nloc, array, pattern, iseq, blindness)
8576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8577 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_LK1
8580 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8581 logical(LKG) ,
intent(in) :: pattern
8582 procedure(
logical(LK)) :: iseq
8583 integer(IK) ,
intent(in) ,
optional :: blindness
8584 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8585 integer(IK) ,
intent(out) :: nloc
8592 module subroutine setLocCusComDefIns_D1_D0_CK5(loc, nloc, array, pattern, iseq, blindness)
8593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8594 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_CK5
8597 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8598 complex(CKG) ,
intent(in) :: pattern
8599 procedure(
logical(LK)) :: iseq
8600 integer(IK) ,
intent(in) ,
optional :: blindness
8601 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8602 integer(IK) ,
intent(out) :: nloc
8607 module subroutine setLocCusComDefIns_D1_D0_CK4(loc, nloc, array, pattern, iseq, blindness)
8608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8609 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_CK4
8612 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8613 complex(CKG) ,
intent(in) :: pattern
8614 procedure(
logical(LK)) :: iseq
8615 integer(IK) ,
intent(in) ,
optional :: blindness
8616 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8617 integer(IK) ,
intent(out) :: nloc
8622 module subroutine setLocCusComDefIns_D1_D0_CK3(loc, nloc, array, pattern, iseq, blindness)
8623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8624 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_CK3
8627 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8628 complex(CKG) ,
intent(in) :: pattern
8629 procedure(
logical(LK)) :: iseq
8630 integer(IK) ,
intent(in) ,
optional :: blindness
8631 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8632 integer(IK) ,
intent(out) :: nloc
8637 module subroutine setLocCusComDefIns_D1_D0_CK2(loc, nloc, array, pattern, iseq, blindness)
8638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8639 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_CK2
8642 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8643 complex(CKG) ,
intent(in) :: pattern
8644 procedure(
logical(LK)) :: iseq
8645 integer(IK) ,
intent(in) ,
optional :: blindness
8646 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8647 integer(IK) ,
intent(out) :: nloc
8652 module subroutine setLocCusComDefIns_D1_D0_CK1(loc, nloc, array, pattern, iseq, blindness)
8653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8654 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_CK1
8657 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
8658 complex(CKG) ,
intent(in) :: pattern
8659 procedure(
logical(LK)) :: iseq
8660 integer(IK) ,
intent(in) ,
optional :: blindness
8661 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8662 integer(IK) ,
intent(out) :: nloc
8669 module subroutine setLocCusComDefIns_D1_D0_RK5(loc, nloc, array, pattern, iseq, blindness)
8670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8671 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_RK5
8674 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8675 real(RKG) ,
intent(in) :: pattern
8676 procedure(
logical(LK)) :: iseq
8677 integer(IK) ,
intent(in) ,
optional :: blindness
8678 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8679 integer(IK) ,
intent(out) :: nloc
8684 module subroutine setLocCusComDefIns_D1_D0_RK4(loc, nloc, array, pattern, iseq, blindness)
8685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8686 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_RK4
8689 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8690 real(RKG) ,
intent(in) :: pattern
8691 procedure(
logical(LK)) :: iseq
8692 integer(IK) ,
intent(in) ,
optional :: blindness
8693 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8694 integer(IK) ,
intent(out) :: nloc
8699 module subroutine setLocCusComDefIns_D1_D0_RK3(loc, nloc, array, pattern, iseq, blindness)
8700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8701 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_RK3
8704 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8705 real(RKG) ,
intent(in) :: pattern
8706 procedure(
logical(LK)) :: iseq
8707 integer(IK) ,
intent(in) ,
optional :: blindness
8708 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8709 integer(IK) ,
intent(out) :: nloc
8714 module subroutine setLocCusComDefIns_D1_D0_RK2(loc, nloc, array, pattern, iseq, blindness)
8715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8716 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_RK2
8719 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8720 real(RKG) ,
intent(in) :: pattern
8721 procedure(
logical(LK)) :: iseq
8722 integer(IK) ,
intent(in) ,
optional :: blindness
8723 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8724 integer(IK) ,
intent(out) :: nloc
8729 module subroutine setLocCusComDefIns_D1_D0_RK1(loc, nloc, array, pattern, iseq, blindness)
8730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8731 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D0_RK1
8734 real(RKG) ,
intent(in) ,
contiguous :: array(:)
8735 real(RKG) ,
intent(in) :: pattern
8736 procedure(
logical(LK)) :: iseq
8737 integer(IK) ,
intent(in) ,
optional :: blindness
8738 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8739 integer(IK) ,
intent(out) :: nloc
8752 PURE module subroutine setLocDefComCusIns_D1_D0_SK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8754 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_SK5
8757 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8758 character(
*,SKG) ,
intent(in) :: pattern
8759 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8760 logical(LK) ,
intent(in) :: sorted
8761 logical(LK) ,
intent(in) :: positive
8762 integer(IK) ,
intent(in) :: blindness
8763 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8764 integer(IK) ,
intent(out) :: nloc
8769 PURE module subroutine setLocDefComCusIns_D1_D0_SK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8771 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_SK4
8774 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8775 character(
*,SKG) ,
intent(in) :: pattern
8776 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8777 logical(LK) ,
intent(in) :: sorted
8778 logical(LK) ,
intent(in) :: positive
8779 integer(IK) ,
intent(in) :: blindness
8780 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8781 integer(IK) ,
intent(out) :: nloc
8786 PURE module subroutine setLocDefComCusIns_D1_D0_SK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8788 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_SK3
8791 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8792 character(
*,SKG) ,
intent(in) :: pattern
8793 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8794 logical(LK) ,
intent(in) :: sorted
8795 logical(LK) ,
intent(in) :: positive
8796 integer(IK) ,
intent(in) :: blindness
8797 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8798 integer(IK) ,
intent(out) :: nloc
8803 PURE module subroutine setLocDefComCusIns_D1_D0_SK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8805 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_SK2
8808 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8809 character(
*,SKG) ,
intent(in) :: pattern
8810 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8811 logical(LK) ,
intent(in) :: sorted
8812 logical(LK) ,
intent(in) :: positive
8813 integer(IK) ,
intent(in) :: blindness
8814 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8815 integer(IK) ,
intent(out) :: nloc
8820 PURE module subroutine setLocDefComCusIns_D1_D0_SK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8822 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_SK1
8825 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
8826 character(
*,SKG) ,
intent(in) :: pattern
8827 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8828 logical(LK) ,
intent(in) :: sorted
8829 logical(LK) ,
intent(in) :: positive
8830 integer(IK) ,
intent(in) :: blindness
8831 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8832 integer(IK) ,
intent(out) :: nloc
8839 PURE module subroutine setLocDefComCusIns_D1_D0_IK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8841 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_IK5
8844 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8845 integer(IKG) ,
intent(in) :: pattern
8846 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8847 logical(LK) ,
intent(in) :: sorted
8848 logical(LK) ,
intent(in) :: positive
8849 integer(IK) ,
intent(in) :: blindness
8850 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8851 integer(IK) ,
intent(out) :: nloc
8856 PURE module subroutine setLocDefComCusIns_D1_D0_IK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8858 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_IK4
8861 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8862 integer(IKG) ,
intent(in) :: pattern
8863 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8864 logical(LK) ,
intent(in) :: sorted
8865 logical(LK) ,
intent(in) :: positive
8866 integer(IK) ,
intent(in) :: blindness
8867 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8868 integer(IK) ,
intent(out) :: nloc
8873 PURE module subroutine setLocDefComCusIns_D1_D0_IK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8875 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_IK3
8878 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8879 integer(IKG) ,
intent(in) :: pattern
8880 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8881 logical(LK) ,
intent(in) :: sorted
8882 logical(LK) ,
intent(in) :: positive
8883 integer(IK) ,
intent(in) :: blindness
8884 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8885 integer(IK) ,
intent(out) :: nloc
8890 PURE module subroutine setLocDefComCusIns_D1_D0_IK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8892 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_IK2
8895 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8896 integer(IKG) ,
intent(in) :: pattern
8897 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8898 logical(LK) ,
intent(in) :: sorted
8899 logical(LK) ,
intent(in) :: positive
8900 integer(IK) ,
intent(in) :: blindness
8901 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8902 integer(IK) ,
intent(out) :: nloc
8907 PURE module subroutine setLocDefComCusIns_D1_D0_IK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8909 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_IK1
8912 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
8913 integer(IKG) ,
intent(in) :: pattern
8914 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8915 logical(LK) ,
intent(in) :: sorted
8916 logical(LK) ,
intent(in) :: positive
8917 integer(IK) ,
intent(in) :: blindness
8918 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8919 integer(IK) ,
intent(out) :: nloc
8926 PURE module subroutine setLocDefComCusIns_D1_D0_LK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8928 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_LK5
8931 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8932 logical(LKG) ,
intent(in) :: pattern
8933 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8934 logical(LK) ,
intent(in) :: sorted
8935 logical(LK) ,
intent(in) :: positive
8936 integer(IK) ,
intent(in) :: blindness
8937 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8938 integer(IK) ,
intent(out) :: nloc
8943 PURE module subroutine setLocDefComCusIns_D1_D0_LK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8945 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_LK4
8948 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8949 logical(LKG) ,
intent(in) :: pattern
8950 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8951 logical(LK) ,
intent(in) :: sorted
8952 logical(LK) ,
intent(in) :: positive
8953 integer(IK) ,
intent(in) :: blindness
8954 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8955 integer(IK) ,
intent(out) :: nloc
8960 PURE module subroutine setLocDefComCusIns_D1_D0_LK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8962 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_LK3
8965 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8966 logical(LKG) ,
intent(in) :: pattern
8967 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8968 logical(LK) ,
intent(in) :: sorted
8969 logical(LK) ,
intent(in) :: positive
8970 integer(IK) ,
intent(in) :: blindness
8971 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8972 integer(IK) ,
intent(out) :: nloc
8977 PURE module subroutine setLocDefComCusIns_D1_D0_LK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8979 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_LK2
8982 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
8983 logical(LKG) ,
intent(in) :: pattern
8984 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
8985 logical(LK) ,
intent(in) :: sorted
8986 logical(LK) ,
intent(in) :: positive
8987 integer(IK) ,
intent(in) :: blindness
8988 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
8989 integer(IK) ,
intent(out) :: nloc
8994 PURE module subroutine setLocDefComCusIns_D1_D0_LK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
8995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8996 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_LK1
8999 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9000 logical(LKG) ,
intent(in) :: pattern
9001 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9002 logical(LK) ,
intent(in) :: sorted
9003 logical(LK) ,
intent(in) :: positive
9004 integer(IK) ,
intent(in) :: blindness
9005 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9006 integer(IK) ,
intent(out) :: nloc
9013 PURE module subroutine setLocDefComCusIns_D1_D0_CK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9015 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_CK5
9018 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9019 complex(CKG) ,
intent(in) :: pattern
9020 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9021 logical(LK) ,
intent(in) :: sorted
9022 logical(LK) ,
intent(in) :: positive
9023 integer(IK) ,
intent(in) :: blindness
9024 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9025 integer(IK) ,
intent(out) :: nloc
9030 PURE module subroutine setLocDefComCusIns_D1_D0_CK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9032 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_CK4
9035 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9036 complex(CKG) ,
intent(in) :: pattern
9037 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9038 logical(LK) ,
intent(in) :: sorted
9039 logical(LK) ,
intent(in) :: positive
9040 integer(IK) ,
intent(in) :: blindness
9041 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9042 integer(IK) ,
intent(out) :: nloc
9047 PURE module subroutine setLocDefComCusIns_D1_D0_CK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9049 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_CK3
9052 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9053 complex(CKG) ,
intent(in) :: pattern
9054 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9055 logical(LK) ,
intent(in) :: sorted
9056 logical(LK) ,
intent(in) :: positive
9057 integer(IK) ,
intent(in) :: blindness
9058 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9059 integer(IK) ,
intent(out) :: nloc
9064 PURE module subroutine setLocDefComCusIns_D1_D0_CK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9066 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_CK2
9069 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9070 complex(CKG) ,
intent(in) :: pattern
9071 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9072 logical(LK) ,
intent(in) :: sorted
9073 logical(LK) ,
intent(in) :: positive
9074 integer(IK) ,
intent(in) :: blindness
9075 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9076 integer(IK) ,
intent(out) :: nloc
9081 PURE module subroutine setLocDefComCusIns_D1_D0_CK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9083 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_CK1
9086 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9087 complex(CKG) ,
intent(in) :: pattern
9088 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9089 logical(LK) ,
intent(in) :: sorted
9090 logical(LK) ,
intent(in) :: positive
9091 integer(IK) ,
intent(in) :: blindness
9092 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9093 integer(IK) ,
intent(out) :: nloc
9100 PURE module subroutine setLocDefComCusIns_D1_D0_RK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9102 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_RK5
9105 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9106 real(RKG) ,
intent(in) :: pattern
9107 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9108 logical(LK) ,
intent(in) :: sorted
9109 logical(LK) ,
intent(in) :: positive
9110 integer(IK) ,
intent(in) :: blindness
9111 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9112 integer(IK) ,
intent(out) :: nloc
9117 PURE module subroutine setLocDefComCusIns_D1_D0_RK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9119 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_RK4
9122 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9123 real(RKG) ,
intent(in) :: pattern
9124 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9125 logical(LK) ,
intent(in) :: sorted
9126 logical(LK) ,
intent(in) :: positive
9127 integer(IK) ,
intent(in) :: blindness
9128 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9129 integer(IK) ,
intent(out) :: nloc
9134 PURE module subroutine setLocDefComCusIns_D1_D0_RK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9136 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_RK3
9139 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9140 real(RKG) ,
intent(in) :: pattern
9141 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9142 logical(LK) ,
intent(in) :: sorted
9143 logical(LK) ,
intent(in) :: positive
9144 integer(IK) ,
intent(in) :: blindness
9145 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9146 integer(IK) ,
intent(out) :: nloc
9151 PURE module subroutine setLocDefComCusIns_D1_D0_RK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9153 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_RK2
9156 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9157 real(RKG) ,
intent(in) :: pattern
9158 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9159 logical(LK) ,
intent(in) :: sorted
9160 logical(LK) ,
intent(in) :: positive
9161 integer(IK) ,
intent(in) :: blindness
9162 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9163 integer(IK) ,
intent(out) :: nloc
9168 PURE module subroutine setLocDefComCusIns_D1_D0_RK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
9169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9170 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D0_RK1
9173 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9174 real(RKG) ,
intent(in) :: pattern
9175 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9176 logical(LK) ,
intent(in) :: sorted
9177 logical(LK) ,
intent(in) :: positive
9178 integer(IK) ,
intent(in) :: blindness
9179 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9180 integer(IK) ,
intent(out) :: nloc
9193 module subroutine setLocCusComCusIns_D1_D0_SK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9195 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_SK5
9198 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9199 character(
*,SKG) ,
intent(in) :: pattern
9200 procedure(
logical(LK)) :: iseq
9201 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9202 logical(LK) ,
intent(in) :: sorted
9203 logical(LK) ,
intent(in) :: positive
9204 integer(IK) ,
intent(in) :: blindness
9205 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9206 integer(IK) ,
intent(out) :: nloc
9211 module subroutine setLocCusComCusIns_D1_D0_SK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9213 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_SK4
9216 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9217 character(
*,SKG) ,
intent(in) :: pattern
9218 procedure(
logical(LK)) :: iseq
9219 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9220 logical(LK) ,
intent(in) :: sorted
9221 logical(LK) ,
intent(in) :: positive
9222 integer(IK) ,
intent(in) :: blindness
9223 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9224 integer(IK) ,
intent(out) :: nloc
9229 module subroutine setLocCusComCusIns_D1_D0_SK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9231 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_SK3
9234 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9235 character(
*,SKG) ,
intent(in) :: pattern
9236 procedure(
logical(LK)) :: iseq
9237 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9238 logical(LK) ,
intent(in) :: sorted
9239 logical(LK) ,
intent(in) :: positive
9240 integer(IK) ,
intent(in) :: blindness
9241 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9242 integer(IK) ,
intent(out) :: nloc
9247 module subroutine setLocCusComCusIns_D1_D0_SK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9249 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_SK2
9252 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9253 character(
*,SKG) ,
intent(in) :: pattern
9254 procedure(
logical(LK)) :: iseq
9255 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9256 logical(LK) ,
intent(in) :: sorted
9257 logical(LK) ,
intent(in) :: positive
9258 integer(IK) ,
intent(in) :: blindness
9259 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9260 integer(IK) ,
intent(out) :: nloc
9265 module subroutine setLocCusComCusIns_D1_D0_SK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9267 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_SK1
9270 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9271 character(
*,SKG) ,
intent(in) :: pattern
9272 procedure(
logical(LK)) :: iseq
9273 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9274 logical(LK) ,
intent(in) :: sorted
9275 logical(LK) ,
intent(in) :: positive
9276 integer(IK) ,
intent(in) :: blindness
9277 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9278 integer(IK) ,
intent(out) :: nloc
9285 module subroutine setLocCusComCusIns_D1_D0_IK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9287 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_IK5
9290 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9291 integer(IKG) ,
intent(in) :: pattern
9292 procedure(
logical(LK)) :: iseq
9293 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9294 logical(LK) ,
intent(in) :: sorted
9295 logical(LK) ,
intent(in) :: positive
9296 integer(IK) ,
intent(in) :: blindness
9297 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9298 integer(IK) ,
intent(out) :: nloc
9303 module subroutine setLocCusComCusIns_D1_D0_IK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9305 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_IK4
9308 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9309 integer(IKG) ,
intent(in) :: pattern
9310 procedure(
logical(LK)) :: iseq
9311 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9312 logical(LK) ,
intent(in) :: sorted
9313 logical(LK) ,
intent(in) :: positive
9314 integer(IK) ,
intent(in) :: blindness
9315 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9316 integer(IK) ,
intent(out) :: nloc
9321 module subroutine setLocCusComCusIns_D1_D0_IK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9323 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_IK3
9326 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9327 integer(IKG) ,
intent(in) :: pattern
9328 procedure(
logical(LK)) :: iseq
9329 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9330 logical(LK) ,
intent(in) :: sorted
9331 logical(LK) ,
intent(in) :: positive
9332 integer(IK) ,
intent(in) :: blindness
9333 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9334 integer(IK) ,
intent(out) :: nloc
9339 module subroutine setLocCusComCusIns_D1_D0_IK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9341 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_IK2
9344 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9345 integer(IKG) ,
intent(in) :: pattern
9346 procedure(
logical(LK)) :: iseq
9347 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9348 logical(LK) ,
intent(in) :: sorted
9349 logical(LK) ,
intent(in) :: positive
9350 integer(IK) ,
intent(in) :: blindness
9351 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9352 integer(IK) ,
intent(out) :: nloc
9357 module subroutine setLocCusComCusIns_D1_D0_IK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9359 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_IK1
9362 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9363 integer(IKG) ,
intent(in) :: pattern
9364 procedure(
logical(LK)) :: iseq
9365 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9366 logical(LK) ,
intent(in) :: sorted
9367 logical(LK) ,
intent(in) :: positive
9368 integer(IK) ,
intent(in) :: blindness
9369 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9370 integer(IK) ,
intent(out) :: nloc
9377 module subroutine setLocCusComCusIns_D1_D0_LK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9379 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_LK5
9382 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9383 logical(LKG) ,
intent(in) :: pattern
9384 procedure(
logical(LK)) :: iseq
9385 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9386 logical(LK) ,
intent(in) :: sorted
9387 logical(LK) ,
intent(in) :: positive
9388 integer(IK) ,
intent(in) :: blindness
9389 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9390 integer(IK) ,
intent(out) :: nloc
9395 module subroutine setLocCusComCusIns_D1_D0_LK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9397 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_LK4
9400 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9401 logical(LKG) ,
intent(in) :: pattern
9402 procedure(
logical(LK)) :: iseq
9403 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9404 logical(LK) ,
intent(in) :: sorted
9405 logical(LK) ,
intent(in) :: positive
9406 integer(IK) ,
intent(in) :: blindness
9407 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9408 integer(IK) ,
intent(out) :: nloc
9413 module subroutine setLocCusComCusIns_D1_D0_LK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9415 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_LK3
9418 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9419 logical(LKG) ,
intent(in) :: pattern
9420 procedure(
logical(LK)) :: iseq
9421 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9422 logical(LK) ,
intent(in) :: sorted
9423 logical(LK) ,
intent(in) :: positive
9424 integer(IK) ,
intent(in) :: blindness
9425 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9426 integer(IK) ,
intent(out) :: nloc
9431 module subroutine setLocCusComCusIns_D1_D0_LK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9433 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_LK2
9436 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9437 logical(LKG) ,
intent(in) :: pattern
9438 procedure(
logical(LK)) :: iseq
9439 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9440 logical(LK) ,
intent(in) :: sorted
9441 logical(LK) ,
intent(in) :: positive
9442 integer(IK) ,
intent(in) :: blindness
9443 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9444 integer(IK) ,
intent(out) :: nloc
9449 module subroutine setLocCusComCusIns_D1_D0_LK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9451 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_LK1
9454 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9455 logical(LKG) ,
intent(in) :: pattern
9456 procedure(
logical(LK)) :: iseq
9457 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9458 logical(LK) ,
intent(in) :: sorted
9459 logical(LK) ,
intent(in) :: positive
9460 integer(IK) ,
intent(in) :: blindness
9461 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9462 integer(IK) ,
intent(out) :: nloc
9469 module subroutine setLocCusComCusIns_D1_D0_CK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9471 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_CK5
9474 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9475 complex(CKG) ,
intent(in) :: pattern
9476 procedure(
logical(LK)) :: iseq
9477 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9478 logical(LK) ,
intent(in) :: sorted
9479 logical(LK) ,
intent(in) :: positive
9480 integer(IK) ,
intent(in) :: blindness
9481 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9482 integer(IK) ,
intent(out) :: nloc
9487 module subroutine setLocCusComCusIns_D1_D0_CK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9489 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_CK4
9492 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9493 complex(CKG) ,
intent(in) :: pattern
9494 procedure(
logical(LK)) :: iseq
9495 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9496 logical(LK) ,
intent(in) :: sorted
9497 logical(LK) ,
intent(in) :: positive
9498 integer(IK) ,
intent(in) :: blindness
9499 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9500 integer(IK) ,
intent(out) :: nloc
9505 module subroutine setLocCusComCusIns_D1_D0_CK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9507 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_CK3
9510 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9511 complex(CKG) ,
intent(in) :: pattern
9512 procedure(
logical(LK)) :: iseq
9513 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9514 logical(LK) ,
intent(in) :: sorted
9515 logical(LK) ,
intent(in) :: positive
9516 integer(IK) ,
intent(in) :: blindness
9517 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9518 integer(IK) ,
intent(out) :: nloc
9523 module subroutine setLocCusComCusIns_D1_D0_CK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9525 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_CK2
9528 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9529 complex(CKG) ,
intent(in) :: pattern
9530 procedure(
logical(LK)) :: iseq
9531 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9532 logical(LK) ,
intent(in) :: sorted
9533 logical(LK) ,
intent(in) :: positive
9534 integer(IK) ,
intent(in) :: blindness
9535 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9536 integer(IK) ,
intent(out) :: nloc
9541 module subroutine setLocCusComCusIns_D1_D0_CK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9543 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_CK1
9546 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9547 complex(CKG) ,
intent(in) :: pattern
9548 procedure(
logical(LK)) :: iseq
9549 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9550 logical(LK) ,
intent(in) :: sorted
9551 logical(LK) ,
intent(in) :: positive
9552 integer(IK) ,
intent(in) :: blindness
9553 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9554 integer(IK) ,
intent(out) :: nloc
9561 module subroutine setLocCusComCusIns_D1_D0_RK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9563 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_RK5
9566 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9567 real(RKG) ,
intent(in) :: pattern
9568 procedure(
logical(LK)) :: iseq
9569 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9570 logical(LK) ,
intent(in) :: sorted
9571 logical(LK) ,
intent(in) :: positive
9572 integer(IK) ,
intent(in) :: blindness
9573 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9574 integer(IK) ,
intent(out) :: nloc
9579 module subroutine setLocCusComCusIns_D1_D0_RK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9581 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_RK4
9584 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9585 real(RKG) ,
intent(in) :: pattern
9586 procedure(
logical(LK)) :: iseq
9587 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9588 logical(LK) ,
intent(in) :: sorted
9589 logical(LK) ,
intent(in) :: positive
9590 integer(IK) ,
intent(in) :: blindness
9591 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9592 integer(IK) ,
intent(out) :: nloc
9597 module subroutine setLocCusComCusIns_D1_D0_RK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9599 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_RK3
9602 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9603 real(RKG) ,
intent(in) :: pattern
9604 procedure(
logical(LK)) :: iseq
9605 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9606 logical(LK) ,
intent(in) :: sorted
9607 logical(LK) ,
intent(in) :: positive
9608 integer(IK) ,
intent(in) :: blindness
9609 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9610 integer(IK) ,
intent(out) :: nloc
9615 module subroutine setLocCusComCusIns_D1_D0_RK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9617 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_RK2
9620 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9621 real(RKG) ,
intent(in) :: pattern
9622 procedure(
logical(LK)) :: iseq
9623 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9624 logical(LK) ,
intent(in) :: sorted
9625 logical(LK) ,
intent(in) :: positive
9626 integer(IK) ,
intent(in) :: blindness
9627 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9628 integer(IK) ,
intent(out) :: nloc
9633 module subroutine setLocCusComCusIns_D1_D0_RK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
9634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9635 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D0_RK1
9638 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9639 real(RKG) ,
intent(in) :: pattern
9640 procedure(
logical(LK)) :: iseq
9641 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
9642 logical(LK) ,
intent(in) :: sorted
9643 logical(LK) ,
intent(in) :: positive
9644 integer(IK) ,
intent(in) :: blindness
9645 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9646 integer(IK) ,
intent(out) :: nloc
9669 PURE module subroutine setLocDefComDefIns_D1_D1_SK5(loc, nloc, array, pattern, blindness)
9670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9671 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_SK5
9674 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9675 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9676 integer(IK) ,
intent(in) ,
optional :: blindness
9677 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9678 integer(IK) ,
intent(out) :: nloc
9683 PURE module subroutine setLocDefComDefIns_D1_D1_SK4(loc, nloc, array, pattern, blindness)
9684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9685 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_SK4
9688 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9689 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9690 integer(IK) ,
intent(in) ,
optional :: blindness
9691 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9692 integer(IK) ,
intent(out) :: nloc
9697 PURE module subroutine setLocDefComDefIns_D1_D1_SK3(loc, nloc, array, pattern, blindness)
9698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9699 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_SK3
9702 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9703 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9704 integer(IK) ,
intent(in) ,
optional :: blindness
9705 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9706 integer(IK) ,
intent(out) :: nloc
9711 PURE module subroutine setLocDefComDefIns_D1_D1_SK2(loc, nloc, array, pattern, blindness)
9712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9713 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_SK2
9716 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9717 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9718 integer(IK) ,
intent(in) ,
optional :: blindness
9719 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9720 integer(IK) ,
intent(out) :: nloc
9725 PURE module subroutine setLocDefComDefIns_D1_D1_SK1(loc, nloc, array, pattern, blindness)
9726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9727 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_SK1
9730 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
9731 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
9732 integer(IK) ,
intent(in) ,
optional :: blindness
9733 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9734 integer(IK) ,
intent(out) :: nloc
9741 PURE module subroutine setLocDefComDefIns_D1_D1_IK5(loc, nloc, array, pattern, blindness)
9742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9743 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_IK5
9746 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9747 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9748 integer(IK) ,
intent(in) ,
optional :: blindness
9749 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9750 integer(IK) ,
intent(out) :: nloc
9755 PURE module subroutine setLocDefComDefIns_D1_D1_IK4(loc, nloc, array, pattern, blindness)
9756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9757 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_IK4
9760 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9761 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9762 integer(IK) ,
intent(in) ,
optional :: blindness
9763 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9764 integer(IK) ,
intent(out) :: nloc
9769 PURE module subroutine setLocDefComDefIns_D1_D1_IK3(loc, nloc, array, pattern, blindness)
9770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9771 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_IK3
9774 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9775 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9776 integer(IK) ,
intent(in) ,
optional :: blindness
9777 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9778 integer(IK) ,
intent(out) :: nloc
9783 PURE module subroutine setLocDefComDefIns_D1_D1_IK2(loc, nloc, array, pattern, blindness)
9784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9785 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_IK2
9788 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9789 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9790 integer(IK) ,
intent(in) ,
optional :: blindness
9791 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9792 integer(IK) ,
intent(out) :: nloc
9797 PURE module subroutine setLocDefComDefIns_D1_D1_IK1(loc, nloc, array, pattern, blindness)
9798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9799 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_IK1
9802 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
9803 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
9804 integer(IK) ,
intent(in) ,
optional :: blindness
9805 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9806 integer(IK) ,
intent(out) :: nloc
9813 PURE module subroutine setLocDefComDefIns_D1_D1_LK5(loc, nloc, array, pattern, blindness)
9814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9815 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_LK5
9818 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9819 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9820 integer(IK) ,
intent(in) ,
optional :: blindness
9821 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9822 integer(IK) ,
intent(out) :: nloc
9827 PURE module subroutine setLocDefComDefIns_D1_D1_LK4(loc, nloc, array, pattern, blindness)
9828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9829 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_LK4
9832 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9833 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9834 integer(IK) ,
intent(in) ,
optional :: blindness
9835 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9836 integer(IK) ,
intent(out) :: nloc
9841 PURE module subroutine setLocDefComDefIns_D1_D1_LK3(loc, nloc, array, pattern, blindness)
9842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9843 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_LK3
9846 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9847 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9848 integer(IK) ,
intent(in) ,
optional :: blindness
9849 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9850 integer(IK) ,
intent(out) :: nloc
9855 PURE module subroutine setLocDefComDefIns_D1_D1_LK2(loc, nloc, array, pattern, blindness)
9856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9857 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_LK2
9860 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9861 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9862 integer(IK) ,
intent(in) ,
optional :: blindness
9863 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9864 integer(IK) ,
intent(out) :: nloc
9869 PURE module subroutine setLocDefComDefIns_D1_D1_LK1(loc, nloc, array, pattern, blindness)
9870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9871 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_LK1
9874 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
9875 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
9876 integer(IK) ,
intent(in) ,
optional :: blindness
9877 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9878 integer(IK) ,
intent(out) :: nloc
9885 PURE module subroutine setLocDefComDefIns_D1_D1_CK5(loc, nloc, array, pattern, blindness)
9886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9887 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_CK5
9890 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9891 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9892 integer(IK) ,
intent(in) ,
optional :: blindness
9893 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9894 integer(IK) ,
intent(out) :: nloc
9899 PURE module subroutine setLocDefComDefIns_D1_D1_CK4(loc, nloc, array, pattern, blindness)
9900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9901 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_CK4
9904 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9905 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9906 integer(IK) ,
intent(in) ,
optional :: blindness
9907 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9908 integer(IK) ,
intent(out) :: nloc
9913 PURE module subroutine setLocDefComDefIns_D1_D1_CK3(loc, nloc, array, pattern, blindness)
9914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9915 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_CK3
9918 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9919 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9920 integer(IK) ,
intent(in) ,
optional :: blindness
9921 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9922 integer(IK) ,
intent(out) :: nloc
9927 PURE module subroutine setLocDefComDefIns_D1_D1_CK2(loc, nloc, array, pattern, blindness)
9928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9929 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_CK2
9932 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9933 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9934 integer(IK) ,
intent(in) ,
optional :: blindness
9935 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9936 integer(IK) ,
intent(out) :: nloc
9941 PURE module subroutine setLocDefComDefIns_D1_D1_CK1(loc, nloc, array, pattern, blindness)
9942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9943 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_CK1
9946 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
9947 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
9948 integer(IK) ,
intent(in) ,
optional :: blindness
9949 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9950 integer(IK) ,
intent(out) :: nloc
9957 PURE module subroutine setLocDefComDefIns_D1_D1_RK5(loc, nloc, array, pattern, blindness)
9958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9959 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_RK5
9962 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9963 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9964 integer(IK) ,
intent(in) ,
optional :: blindness
9965 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9966 integer(IK) ,
intent(out) :: nloc
9971 PURE module subroutine setLocDefComDefIns_D1_D1_RK4(loc, nloc, array, pattern, blindness)
9972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9973 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_RK4
9976 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9977 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9978 integer(IK) ,
intent(in) ,
optional :: blindness
9979 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9980 integer(IK) ,
intent(out) :: nloc
9985 PURE module subroutine setLocDefComDefIns_D1_D1_RK3(loc, nloc, array, pattern, blindness)
9986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9987 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_RK3
9990 real(RKG) ,
intent(in) ,
contiguous :: array(:)
9991 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
9992 integer(IK) ,
intent(in) ,
optional :: blindness
9993 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
9994 integer(IK) ,
intent(out) :: nloc
9999 PURE module subroutine setLocDefComDefIns_D1_D1_RK2(loc, nloc, array, pattern, blindness)
10000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10001 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_RK2
10004 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10005 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10006 integer(IK) ,
intent(in) ,
optional :: blindness
10007 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10008 integer(IK) ,
intent(out) :: nloc
10013 PURE module subroutine setLocDefComDefIns_D1_D1_RK1(loc, nloc, array, pattern, blindness)
10014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10015 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComDefIns_D1_D1_RK1
10018 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10019 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10020 integer(IK) ,
intent(in) ,
optional :: blindness
10021 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10022 integer(IK) ,
intent(out) :: nloc
10035 module subroutine setLocCusComDefIns_D1_D1_SK5(loc, nloc, array, pattern, iseq, blindness)
10036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10037 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_SK5
10040 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10041 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10042 procedure(
logical(LK)) :: iseq
10043 integer(IK) ,
intent(in) ,
optional :: blindness
10044 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10045 integer(IK) ,
intent(out) :: nloc
10050 module subroutine setLocCusComDefIns_D1_D1_SK4(loc, nloc, array, pattern, iseq, blindness)
10051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10052 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_SK4
10055 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10056 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10057 procedure(
logical(LK)) :: iseq
10058 integer(IK) ,
intent(in) ,
optional :: blindness
10059 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10060 integer(IK) ,
intent(out) :: nloc
10065 module subroutine setLocCusComDefIns_D1_D1_SK3(loc, nloc, array, pattern, iseq, blindness)
10066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10067 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_SK3
10070 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10071 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10072 procedure(
logical(LK)) :: iseq
10073 integer(IK) ,
intent(in) ,
optional :: blindness
10074 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10075 integer(IK) ,
intent(out) :: nloc
10080 module subroutine setLocCusComDefIns_D1_D1_SK2(loc, nloc, array, pattern, iseq, blindness)
10081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10082 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_SK2
10085 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10086 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10087 procedure(
logical(LK)) :: iseq
10088 integer(IK) ,
intent(in) ,
optional :: blindness
10089 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10090 integer(IK) ,
intent(out) :: nloc
10095 module subroutine setLocCusComDefIns_D1_D1_SK1(loc, nloc, array, pattern, iseq, blindness)
10096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10097 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_SK1
10100 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10101 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10102 procedure(
logical(LK)) :: iseq
10103 integer(IK) ,
intent(in) ,
optional :: blindness
10104 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10105 integer(IK) ,
intent(out) :: nloc
10112 module subroutine setLocCusComDefIns_D1_D1_IK5(loc, nloc, array, pattern, iseq, blindness)
10113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10114 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_IK5
10117 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10118 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10119 procedure(
logical(LK)) :: iseq
10120 integer(IK) ,
intent(in) ,
optional :: blindness
10121 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10122 integer(IK) ,
intent(out) :: nloc
10127 module subroutine setLocCusComDefIns_D1_D1_IK4(loc, nloc, array, pattern, iseq, blindness)
10128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10129 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_IK4
10132 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10133 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10134 procedure(
logical(LK)) :: iseq
10135 integer(IK) ,
intent(in) ,
optional :: blindness
10136 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10137 integer(IK) ,
intent(out) :: nloc
10142 module subroutine setLocCusComDefIns_D1_D1_IK3(loc, nloc, array, pattern, iseq, blindness)
10143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10144 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_IK3
10147 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10148 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10149 procedure(
logical(LK)) :: iseq
10150 integer(IK) ,
intent(in) ,
optional :: blindness
10151 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10152 integer(IK) ,
intent(out) :: nloc
10157 module subroutine setLocCusComDefIns_D1_D1_IK2(loc, nloc, array, pattern, iseq, blindness)
10158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10159 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_IK2
10162 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10163 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10164 procedure(
logical(LK)) :: iseq
10165 integer(IK) ,
intent(in) ,
optional :: blindness
10166 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10167 integer(IK) ,
intent(out) :: nloc
10172 module subroutine setLocCusComDefIns_D1_D1_IK1(loc, nloc, array, pattern, iseq, blindness)
10173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10174 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_IK1
10177 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10178 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10179 procedure(
logical(LK)) :: iseq
10180 integer(IK) ,
intent(in) ,
optional :: blindness
10181 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10182 integer(IK) ,
intent(out) :: nloc
10189 module subroutine setLocCusComDefIns_D1_D1_LK5(loc, nloc, array, pattern, iseq, blindness)
10190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10191 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_LK5
10194 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10195 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10196 procedure(
logical(LK)) :: iseq
10197 integer(IK) ,
intent(in) ,
optional :: blindness
10198 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10199 integer(IK) ,
intent(out) :: nloc
10204 module subroutine setLocCusComDefIns_D1_D1_LK4(loc, nloc, array, pattern, iseq, blindness)
10205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10206 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_LK4
10209 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10210 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10211 procedure(
logical(LK)) :: iseq
10212 integer(IK) ,
intent(in) ,
optional :: blindness
10213 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10214 integer(IK) ,
intent(out) :: nloc
10219 module subroutine setLocCusComDefIns_D1_D1_LK3(loc, nloc, array, pattern, iseq, blindness)
10220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10221 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_LK3
10224 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10225 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10226 procedure(
logical(LK)) :: iseq
10227 integer(IK) ,
intent(in) ,
optional :: blindness
10228 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10229 integer(IK) ,
intent(out) :: nloc
10234 module subroutine setLocCusComDefIns_D1_D1_LK2(loc, nloc, array, pattern, iseq, blindness)
10235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10236 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_LK2
10239 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10240 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10241 procedure(
logical(LK)) :: iseq
10242 integer(IK) ,
intent(in) ,
optional :: blindness
10243 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10244 integer(IK) ,
intent(out) :: nloc
10249 module subroutine setLocCusComDefIns_D1_D1_LK1(loc, nloc, array, pattern, iseq, blindness)
10250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10251 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_LK1
10254 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10255 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10256 procedure(
logical(LK)) :: iseq
10257 integer(IK) ,
intent(in) ,
optional :: blindness
10258 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10259 integer(IK) ,
intent(out) :: nloc
10266 module subroutine setLocCusComDefIns_D1_D1_CK5(loc, nloc, array, pattern, iseq, blindness)
10267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10268 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_CK5
10271 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10272 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10273 procedure(
logical(LK)) :: iseq
10274 integer(IK) ,
intent(in) ,
optional :: blindness
10275 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10276 integer(IK) ,
intent(out) :: nloc
10281 module subroutine setLocCusComDefIns_D1_D1_CK4(loc, nloc, array, pattern, iseq, blindness)
10282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10283 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_CK4
10286 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10287 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10288 procedure(
logical(LK)) :: iseq
10289 integer(IK) ,
intent(in) ,
optional :: blindness
10290 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10291 integer(IK) ,
intent(out) :: nloc
10296 module subroutine setLocCusComDefIns_D1_D1_CK3(loc, nloc, array, pattern, iseq, blindness)
10297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10298 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_CK3
10301 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10302 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10303 procedure(
logical(LK)) :: iseq
10304 integer(IK) ,
intent(in) ,
optional :: blindness
10305 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10306 integer(IK) ,
intent(out) :: nloc
10311 module subroutine setLocCusComDefIns_D1_D1_CK2(loc, nloc, array, pattern, iseq, blindness)
10312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10313 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_CK2
10316 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10317 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10318 procedure(
logical(LK)) :: iseq
10319 integer(IK) ,
intent(in) ,
optional :: blindness
10320 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10321 integer(IK) ,
intent(out) :: nloc
10326 module subroutine setLocCusComDefIns_D1_D1_CK1(loc, nloc, array, pattern, iseq, blindness)
10327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10328 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_CK1
10331 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10332 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10333 procedure(
logical(LK)) :: iseq
10334 integer(IK) ,
intent(in) ,
optional :: blindness
10335 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10336 integer(IK) ,
intent(out) :: nloc
10343 module subroutine setLocCusComDefIns_D1_D1_RK5(loc, nloc, array, pattern, iseq, blindness)
10344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10345 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_RK5
10348 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10349 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10350 procedure(
logical(LK)) :: iseq
10351 integer(IK) ,
intent(in) ,
optional :: blindness
10352 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10353 integer(IK) ,
intent(out) :: nloc
10358 module subroutine setLocCusComDefIns_D1_D1_RK4(loc, nloc, array, pattern, iseq, blindness)
10359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10360 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_RK4
10363 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10364 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10365 procedure(
logical(LK)) :: iseq
10366 integer(IK) ,
intent(in) ,
optional :: blindness
10367 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10368 integer(IK) ,
intent(out) :: nloc
10373 module subroutine setLocCusComDefIns_D1_D1_RK3(loc, nloc, array, pattern, iseq, blindness)
10374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10375 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_RK3
10378 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10379 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10380 procedure(
logical(LK)) :: iseq
10381 integer(IK) ,
intent(in) ,
optional :: blindness
10382 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10383 integer(IK) ,
intent(out) :: nloc
10388 module subroutine setLocCusComDefIns_D1_D1_RK2(loc, nloc, array, pattern, iseq, blindness)
10389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10390 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_RK2
10393 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10394 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10395 procedure(
logical(LK)) :: iseq
10396 integer(IK) ,
intent(in) ,
optional :: blindness
10397 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10398 integer(IK) ,
intent(out) :: nloc
10403 module subroutine setLocCusComDefIns_D1_D1_RK1(loc, nloc, array, pattern, iseq, blindness)
10404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10405 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComDefIns_D1_D1_RK1
10408 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10409 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10410 procedure(
logical(LK)) :: iseq
10411 integer(IK) ,
intent(in) ,
optional :: blindness
10412 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10413 integer(IK) ,
intent(out) :: nloc
10426 PURE module subroutine setLocDefComCusIns_D1_D1_SK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10428 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_SK5
10431 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10432 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10433 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10434 logical(LK) ,
intent(in) :: sorted
10435 logical(LK) ,
intent(in) :: positive
10436 integer(IK) ,
intent(in) :: blindness
10437 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10438 integer(IK) ,
intent(out) :: nloc
10443 PURE module subroutine setLocDefComCusIns_D1_D1_SK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10445 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_SK4
10448 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10449 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10450 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10451 logical(LK) ,
intent(in) :: sorted
10452 logical(LK) ,
intent(in) :: positive
10453 integer(IK) ,
intent(in) :: blindness
10454 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10455 integer(IK) ,
intent(out) :: nloc
10460 PURE module subroutine setLocDefComCusIns_D1_D1_SK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10462 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_SK3
10465 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10466 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10467 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10468 logical(LK) ,
intent(in) :: sorted
10469 logical(LK) ,
intent(in) :: positive
10470 integer(IK) ,
intent(in) :: blindness
10471 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10472 integer(IK) ,
intent(out) :: nloc
10477 PURE module subroutine setLocDefComCusIns_D1_D1_SK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10479 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_SK2
10482 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10483 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10484 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10485 logical(LK) ,
intent(in) :: sorted
10486 logical(LK) ,
intent(in) :: positive
10487 integer(IK) ,
intent(in) :: blindness
10488 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10489 integer(IK) ,
intent(out) :: nloc
10494 PURE module subroutine setLocDefComCusIns_D1_D1_SK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10496 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_SK1
10499 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10500 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10501 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10502 logical(LK) ,
intent(in) :: sorted
10503 logical(LK) ,
intent(in) :: positive
10504 integer(IK) ,
intent(in) :: blindness
10505 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10506 integer(IK) ,
intent(out) :: nloc
10513 PURE module subroutine setLocDefComCusIns_D1_D1_IK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10515 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_IK5
10518 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10519 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10520 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10521 logical(LK) ,
intent(in) :: sorted
10522 logical(LK) ,
intent(in) :: positive
10523 integer(IK) ,
intent(in) :: blindness
10524 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10525 integer(IK) ,
intent(out) :: nloc
10530 PURE module subroutine setLocDefComCusIns_D1_D1_IK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10532 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_IK4
10535 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10536 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10537 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10538 logical(LK) ,
intent(in) :: sorted
10539 logical(LK) ,
intent(in) :: positive
10540 integer(IK) ,
intent(in) :: blindness
10541 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10542 integer(IK) ,
intent(out) :: nloc
10547 PURE module subroutine setLocDefComCusIns_D1_D1_IK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10549 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_IK3
10552 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10553 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10554 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10555 logical(LK) ,
intent(in) :: sorted
10556 logical(LK) ,
intent(in) :: positive
10557 integer(IK) ,
intent(in) :: blindness
10558 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10559 integer(IK) ,
intent(out) :: nloc
10564 PURE module subroutine setLocDefComCusIns_D1_D1_IK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10566 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_IK2
10569 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10570 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10571 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10572 logical(LK) ,
intent(in) :: sorted
10573 logical(LK) ,
intent(in) :: positive
10574 integer(IK) ,
intent(in) :: blindness
10575 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10576 integer(IK) ,
intent(out) :: nloc
10581 PURE module subroutine setLocDefComCusIns_D1_D1_IK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10583 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_IK1
10586 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10587 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10588 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10589 logical(LK) ,
intent(in) :: sorted
10590 logical(LK) ,
intent(in) :: positive
10591 integer(IK) ,
intent(in) :: blindness
10592 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10593 integer(IK) ,
intent(out) :: nloc
10600 PURE module subroutine setLocDefComCusIns_D1_D1_LK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10602 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_LK5
10605 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10606 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10607 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10608 logical(LK) ,
intent(in) :: sorted
10609 logical(LK) ,
intent(in) :: positive
10610 integer(IK) ,
intent(in) :: blindness
10611 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10612 integer(IK) ,
intent(out) :: nloc
10617 PURE module subroutine setLocDefComCusIns_D1_D1_LK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10619 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_LK4
10622 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10623 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10624 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10625 logical(LK) ,
intent(in) :: sorted
10626 logical(LK) ,
intent(in) :: positive
10627 integer(IK) ,
intent(in) :: blindness
10628 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10629 integer(IK) ,
intent(out) :: nloc
10634 PURE module subroutine setLocDefComCusIns_D1_D1_LK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10636 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_LK3
10639 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10640 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10641 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10642 logical(LK) ,
intent(in) :: sorted
10643 logical(LK) ,
intent(in) :: positive
10644 integer(IK) ,
intent(in) :: blindness
10645 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10646 integer(IK) ,
intent(out) :: nloc
10651 PURE module subroutine setLocDefComCusIns_D1_D1_LK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10653 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_LK2
10656 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10657 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10658 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10659 logical(LK) ,
intent(in) :: sorted
10660 logical(LK) ,
intent(in) :: positive
10661 integer(IK) ,
intent(in) :: blindness
10662 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10663 integer(IK) ,
intent(out) :: nloc
10668 PURE module subroutine setLocDefComCusIns_D1_D1_LK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10670 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_LK1
10673 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
10674 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
10675 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10676 logical(LK) ,
intent(in) :: sorted
10677 logical(LK) ,
intent(in) :: positive
10678 integer(IK) ,
intent(in) :: blindness
10679 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10680 integer(IK) ,
intent(out) :: nloc
10687 PURE module subroutine setLocDefComCusIns_D1_D1_CK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10688#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10689 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_CK5
10692 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10693 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10694 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10695 logical(LK) ,
intent(in) :: sorted
10696 logical(LK) ,
intent(in) :: positive
10697 integer(IK) ,
intent(in) :: blindness
10698 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10699 integer(IK) ,
intent(out) :: nloc
10704 PURE module subroutine setLocDefComCusIns_D1_D1_CK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10706 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_CK4
10709 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10710 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10711 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10712 logical(LK) ,
intent(in) :: sorted
10713 logical(LK) ,
intent(in) :: positive
10714 integer(IK) ,
intent(in) :: blindness
10715 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10716 integer(IK) ,
intent(out) :: nloc
10721 PURE module subroutine setLocDefComCusIns_D1_D1_CK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10723 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_CK3
10726 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10727 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10728 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10729 logical(LK) ,
intent(in) :: sorted
10730 logical(LK) ,
intent(in) :: positive
10731 integer(IK) ,
intent(in) :: blindness
10732 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10733 integer(IK) ,
intent(out) :: nloc
10738 PURE module subroutine setLocDefComCusIns_D1_D1_CK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10740 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_CK2
10743 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10744 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10745 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10746 logical(LK) ,
intent(in) :: sorted
10747 logical(LK) ,
intent(in) :: positive
10748 integer(IK) ,
intent(in) :: blindness
10749 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10750 integer(IK) ,
intent(out) :: nloc
10755 PURE module subroutine setLocDefComCusIns_D1_D1_CK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10757 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_CK1
10760 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
10761 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
10762 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10763 logical(LK) ,
intent(in) :: sorted
10764 logical(LK) ,
intent(in) :: positive
10765 integer(IK) ,
intent(in) :: blindness
10766 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10767 integer(IK) ,
intent(out) :: nloc
10774 PURE module subroutine setLocDefComCusIns_D1_D1_RK5(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10776 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_RK5
10779 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10780 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10781 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10782 logical(LK) ,
intent(in) :: sorted
10783 logical(LK) ,
intent(in) :: positive
10784 integer(IK) ,
intent(in) :: blindness
10785 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10786 integer(IK) ,
intent(out) :: nloc
10791 PURE module subroutine setLocDefComCusIns_D1_D1_RK4(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10793 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_RK4
10796 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10797 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10798 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10799 logical(LK) ,
intent(in) :: sorted
10800 logical(LK) ,
intent(in) :: positive
10801 integer(IK) ,
intent(in) :: blindness
10802 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10803 integer(IK) ,
intent(out) :: nloc
10808 PURE module subroutine setLocDefComCusIns_D1_D1_RK3(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10810 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_RK3
10813 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10814 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10815 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10816 logical(LK) ,
intent(in) :: sorted
10817 logical(LK) ,
intent(in) :: positive
10818 integer(IK) ,
intent(in) :: blindness
10819 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10820 integer(IK) ,
intent(out) :: nloc
10825 PURE module subroutine setLocDefComCusIns_D1_D1_RK2(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10827 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_RK2
10830 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10831 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10832 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10833 logical(LK) ,
intent(in) :: sorted
10834 logical(LK) ,
intent(in) :: positive
10835 integer(IK) ,
intent(in) :: blindness
10836 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10837 integer(IK) ,
intent(out) :: nloc
10842 PURE module subroutine setLocDefComCusIns_D1_D1_RK1(loc, nloc, array, pattern, instance, sorted, positive, blindness)
10843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10844 !DEC$ ATTRIBUTES DLLEXPORT :: setLocDefComCusIns_D1_D1_RK1
10847 real(RKG) ,
intent(in) ,
contiguous :: array(:)
10848 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
10849 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10850 logical(LK) ,
intent(in) :: sorted
10851 logical(LK) ,
intent(in) :: positive
10852 integer(IK) ,
intent(in) :: blindness
10853 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10854 integer(IK) ,
intent(out) :: nloc
10867 module subroutine setLocCusComCusIns_D1_D1_SK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
10868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10869 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_SK5
10872 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10873 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10874 procedure(
logical(LK)) :: iseq
10875 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10876 logical(LK) ,
intent(in) :: sorted
10877 logical(LK) ,
intent(in) :: positive
10878 integer(IK) ,
intent(in) :: blindness
10879 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10880 integer(IK) ,
intent(out) :: nloc
10885 module subroutine setLocCusComCusIns_D1_D1_SK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
10886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10887 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_SK4
10890 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10891 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10892 procedure(
logical(LK)) :: iseq
10893 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10894 logical(LK) ,
intent(in) :: sorted
10895 logical(LK) ,
intent(in) :: positive
10896 integer(IK) ,
intent(in) :: blindness
10897 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10898 integer(IK) ,
intent(out) :: nloc
10903 module subroutine setLocCusComCusIns_D1_D1_SK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
10904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10905 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_SK3
10908 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10909 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10910 procedure(
logical(LK)) :: iseq
10911 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10912 logical(LK) ,
intent(in) :: sorted
10913 logical(LK) ,
intent(in) :: positive
10914 integer(IK) ,
intent(in) :: blindness
10915 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10916 integer(IK) ,
intent(out) :: nloc
10921 module subroutine setLocCusComCusIns_D1_D1_SK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
10922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10923 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_SK2
10926 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10927 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10928 procedure(
logical(LK)) :: iseq
10929 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10930 logical(LK) ,
intent(in) :: sorted
10931 logical(LK) ,
intent(in) :: positive
10932 integer(IK) ,
intent(in) :: blindness
10933 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10934 integer(IK) ,
intent(out) :: nloc
10939 module subroutine setLocCusComCusIns_D1_D1_SK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
10940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10941 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_SK1
10944 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
10945 character(
*,SKG) ,
intent(in) ,
contiguous :: pattern(:)
10946 procedure(
logical(LK)) :: iseq
10947 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10948 logical(LK) ,
intent(in) :: sorted
10949 logical(LK) ,
intent(in) :: positive
10950 integer(IK) ,
intent(in) :: blindness
10951 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10952 integer(IK) ,
intent(out) :: nloc
10959 module subroutine setLocCusComCusIns_D1_D1_IK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
10960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10961 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_IK5
10964 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10965 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10966 procedure(
logical(LK)) :: iseq
10967 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10968 logical(LK) ,
intent(in) :: sorted
10969 logical(LK) ,
intent(in) :: positive
10970 integer(IK) ,
intent(in) :: blindness
10971 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10972 integer(IK) ,
intent(out) :: nloc
10977 module subroutine setLocCusComCusIns_D1_D1_IK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
10978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10979 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_IK4
10982 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
10983 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
10984 procedure(
logical(LK)) :: iseq
10985 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
10986 logical(LK) ,
intent(in) :: sorted
10987 logical(LK) ,
intent(in) :: positive
10988 integer(IK) ,
intent(in) :: blindness
10989 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
10990 integer(IK) ,
intent(out) :: nloc
10995 module subroutine setLocCusComCusIns_D1_D1_IK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
10996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10997 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_IK3
11000 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
11001 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
11002 procedure(
logical(LK)) :: iseq
11003 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11004 logical(LK) ,
intent(in) :: sorted
11005 logical(LK) ,
intent(in) :: positive
11006 integer(IK) ,
intent(in) :: blindness
11007 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11008 integer(IK) ,
intent(out) :: nloc
11013 module subroutine setLocCusComCusIns_D1_D1_IK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11015 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_IK2
11018 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
11019 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
11020 procedure(
logical(LK)) :: iseq
11021 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11022 logical(LK) ,
intent(in) :: sorted
11023 logical(LK) ,
intent(in) :: positive
11024 integer(IK) ,
intent(in) :: blindness
11025 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11026 integer(IK) ,
intent(out) :: nloc
11031 module subroutine setLocCusComCusIns_D1_D1_IK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11033 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_IK1
11036 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
11037 integer(IKG) ,
intent(in) ,
contiguous :: pattern(:)
11038 procedure(
logical(LK)) :: iseq
11039 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11040 logical(LK) ,
intent(in) :: sorted
11041 logical(LK) ,
intent(in) :: positive
11042 integer(IK) ,
intent(in) :: blindness
11043 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11044 integer(IK) ,
intent(out) :: nloc
11051 module subroutine setLocCusComCusIns_D1_D1_LK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11053 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_LK5
11056 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
11057 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
11058 procedure(
logical(LK)) :: iseq
11059 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11060 logical(LK) ,
intent(in) :: sorted
11061 logical(LK) ,
intent(in) :: positive
11062 integer(IK) ,
intent(in) :: blindness
11063 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11064 integer(IK) ,
intent(out) :: nloc
11069 module subroutine setLocCusComCusIns_D1_D1_LK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11071 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_LK4
11074 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
11075 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
11076 procedure(
logical(LK)) :: iseq
11077 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11078 logical(LK) ,
intent(in) :: sorted
11079 logical(LK) ,
intent(in) :: positive
11080 integer(IK) ,
intent(in) :: blindness
11081 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11082 integer(IK) ,
intent(out) :: nloc
11087 module subroutine setLocCusComCusIns_D1_D1_LK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11089 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_LK3
11092 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
11093 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
11094 procedure(
logical(LK)) :: iseq
11095 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11096 logical(LK) ,
intent(in) :: sorted
11097 logical(LK) ,
intent(in) :: positive
11098 integer(IK) ,
intent(in) :: blindness
11099 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11100 integer(IK) ,
intent(out) :: nloc
11105 module subroutine setLocCusComCusIns_D1_D1_LK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11107 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_LK2
11110 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
11111 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
11112 procedure(
logical(LK)) :: iseq
11113 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11114 logical(LK) ,
intent(in) :: sorted
11115 logical(LK) ,
intent(in) :: positive
11116 integer(IK) ,
intent(in) :: blindness
11117 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11118 integer(IK) ,
intent(out) :: nloc
11123 module subroutine setLocCusComCusIns_D1_D1_LK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11125 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_LK1
11128 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
11129 logical(LKG) ,
intent(in) ,
contiguous :: pattern(:)
11130 procedure(
logical(LK)) :: iseq
11131 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11132 logical(LK) ,
intent(in) :: sorted
11133 logical(LK) ,
intent(in) :: positive
11134 integer(IK) ,
intent(in) :: blindness
11135 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11136 integer(IK) ,
intent(out) :: nloc
11143 module subroutine setLocCusComCusIns_D1_D1_CK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11145 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_CK5
11148 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
11149 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
11150 procedure(
logical(LK)) :: iseq
11151 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11152 logical(LK) ,
intent(in) :: sorted
11153 logical(LK) ,
intent(in) :: positive
11154 integer(IK) ,
intent(in) :: blindness
11155 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11156 integer(IK) ,
intent(out) :: nloc
11161 module subroutine setLocCusComCusIns_D1_D1_CK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11163 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_CK4
11166 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
11167 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
11168 procedure(
logical(LK)) :: iseq
11169 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11170 logical(LK) ,
intent(in) :: sorted
11171 logical(LK) ,
intent(in) :: positive
11172 integer(IK) ,
intent(in) :: blindness
11173 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11174 integer(IK) ,
intent(out) :: nloc
11179 module subroutine setLocCusComCusIns_D1_D1_CK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11181 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_CK3
11184 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
11185 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
11186 procedure(
logical(LK)) :: iseq
11187 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11188 logical(LK) ,
intent(in) :: sorted
11189 logical(LK) ,
intent(in) :: positive
11190 integer(IK) ,
intent(in) :: blindness
11191 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11192 integer(IK) ,
intent(out) :: nloc
11197 module subroutine setLocCusComCusIns_D1_D1_CK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11199 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_CK2
11202 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
11203 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
11204 procedure(
logical(LK)) :: iseq
11205 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11206 logical(LK) ,
intent(in) :: sorted
11207 logical(LK) ,
intent(in) :: positive
11208 integer(IK) ,
intent(in) :: blindness
11209 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11210 integer(IK) ,
intent(out) :: nloc
11215 module subroutine setLocCusComCusIns_D1_D1_CK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11217 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_CK1
11220 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
11221 complex(CKG) ,
intent(in) ,
contiguous :: pattern(:)
11222 procedure(
logical(LK)) :: iseq
11223 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11224 logical(LK) ,
intent(in) :: sorted
11225 logical(LK) ,
intent(in) :: positive
11226 integer(IK) ,
intent(in) :: blindness
11227 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11228 integer(IK) ,
intent(out) :: nloc
11235 module subroutine setLocCusComCusIns_D1_D1_RK5(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11237 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_RK5
11240 real(RKG) ,
intent(in) ,
contiguous :: array(:)
11241 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
11242 procedure(
logical(LK)) :: iseq
11243 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11244 logical(LK) ,
intent(in) :: sorted
11245 logical(LK) ,
intent(in) :: positive
11246 integer(IK) ,
intent(in) :: blindness
11247 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11248 integer(IK) ,
intent(out) :: nloc
11253 module subroutine setLocCusComCusIns_D1_D1_RK4(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11255 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_RK4
11258 real(RKG) ,
intent(in) ,
contiguous :: array(:)
11259 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
11260 procedure(
logical(LK)) :: iseq
11261 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11262 logical(LK) ,
intent(in) :: sorted
11263 logical(LK) ,
intent(in) :: positive
11264 integer(IK) ,
intent(in) :: blindness
11265 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11266 integer(IK) ,
intent(out) :: nloc
11271 module subroutine setLocCusComCusIns_D1_D1_RK3(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11273 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_RK3
11276 real(RKG) ,
intent(in) ,
contiguous :: array(:)
11277 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
11278 procedure(
logical(LK)) :: iseq
11279 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11280 logical(LK) ,
intent(in) :: sorted
11281 logical(LK) ,
intent(in) :: positive
11282 integer(IK) ,
intent(in) :: blindness
11283 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11284 integer(IK) ,
intent(out) :: nloc
11289 module subroutine setLocCusComCusIns_D1_D1_RK2(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11291 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_RK2
11294 real(RKG) ,
intent(in) ,
contiguous :: array(:)
11295 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
11296 procedure(
logical(LK)) :: iseq
11297 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11298 logical(LK) ,
intent(in) :: sorted
11299 logical(LK) ,
intent(in) :: positive
11300 integer(IK) ,
intent(in) :: blindness
11301 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11302 integer(IK) ,
intent(out) :: nloc
11307 module subroutine setLocCusComCusIns_D1_D1_RK1(loc, nloc, array, pattern, iseq, instance, sorted, positive, blindness)
11308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11309 !DEC$ ATTRIBUTES DLLEXPORT :: setLocCusComCusIns_D1_D1_RK1
11312 real(RKG) ,
intent(in) ,
contiguous :: array(:)
11313 real(RKG) ,
intent(in) ,
contiguous :: pattern(:)
11314 procedure(
logical(LK)) :: iseq
11315 integer(IK) ,
intent(in) ,
contiguous :: instance(:)
11316 logical(LK) ,
intent(in) :: sorted
11317 logical(LK) ,
intent(in) :: positive
11318 integer(IK) ,
intent(in) :: blindness
11319 integer(IK) ,
intent(inout) ,
allocatable :: loc(:)
11320 integer(IK) ,
intent(out) :: nloc
Generate and return the number of occurrences of the input pattern in the input array optionally subj...
Generate and return an allocatable array containing the indices of the locations within the input arr...
Return an allocatable array containing the indices of the locations within the input array where the ...
This module contains procedures and generic interfaces for finding locations of a pattern in arrays o...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(discrete_type), parameter discrete
This is a scalar parameter object of type discrete_type that is exclusively used to signify the discr...
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...
This is an abstract derived type for constructing concrete derived types to distinguish various proce...
This is a concrete derived type whose instances are exclusively used to signify the discrete sequence...