555 PURE module function getSelectedDefCom_D0_SK5(array, rank, lb, ub)
result(selection)
556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
557 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D0_SK5
560 character(
*,SKG) ,
intent(in) :: array
561 integer(IK) ,
intent(in) :: rank
562 integer(IK) ,
intent(in) ,
optional :: lb, ub
563 character(
1,SKG) :: selection
568 PURE module function getSelectedDefCom_D0_SK4(array, rank, lb, ub)
result(selection)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D0_SK4
573 character(
*,SKG) ,
intent(in) :: array
574 integer(IK) ,
intent(in) :: rank
575 integer(IK) ,
intent(in) ,
optional :: lb, ub
576 character(
1,SKG) :: selection
581 PURE module function getSelectedDefCom_D0_SK3(array, rank, lb, ub)
result(selection)
582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
583 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D0_SK3
586 character(
*,SKG) ,
intent(in) :: array
587 integer(IK) ,
intent(in) :: rank
588 integer(IK) ,
intent(in) ,
optional :: lb, ub
589 character(
1,SKG) :: selection
594 PURE module function getSelectedDefCom_D0_SK2(array, rank, lb, ub)
result(selection)
595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
596 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D0_SK2
599 character(
*,SKG) ,
intent(in) :: array
600 integer(IK) ,
intent(in) :: rank
601 integer(IK) ,
intent(in) ,
optional :: lb, ub
602 character(
1,SKG) :: selection
607 PURE module function getSelectedDefCom_D0_SK1(array, rank, lb, ub)
result(selection)
608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
609 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D0_SK1
612 character(
*,SKG) ,
intent(in) :: array
613 integer(IK) ,
intent(in) :: rank
614 integer(IK) ,
intent(in) ,
optional :: lb, ub
615 character(
1,SKG) :: selection
622 PURE module function getSelectedDefCom_D1_SK5(array, rank, lb, ub)
result(selection)
623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
624 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_SK5
627 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
628 integer(IK) ,
intent(in) :: rank
629 integer(IK) ,
intent(in) ,
optional :: lb, ub
630 character(
len(array,IK),SKG) :: selection
635 PURE module function getSelectedDefCom_D1_SK4(array, rank, lb, ub)
result(selection)
636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
637 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_SK4
640 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
641 integer(IK) ,
intent(in) :: rank
642 integer(IK) ,
intent(in) ,
optional :: lb, ub
643 character(
len(array,IK),SKG) :: selection
648 PURE module function getSelectedDefCom_D1_SK3(array, rank, lb, ub)
result(selection)
649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
650 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_SK3
653 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
654 integer(IK) ,
intent(in) :: rank
655 integer(IK) ,
intent(in) ,
optional :: lb, ub
656 character(
len(array,IK),SKG) :: selection
661 PURE module function getSelectedDefCom_D1_SK2(array, rank, lb, ub)
result(selection)
662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
663 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_SK2
666 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
667 integer(IK) ,
intent(in) :: rank
668 integer(IK) ,
intent(in) ,
optional :: lb, ub
669 character(
len(array,IK),SKG) :: selection
674 PURE module function getSelectedDefCom_D1_SK1(array, rank, lb, ub)
result(selection)
675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
676 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_SK1
679 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
680 integer(IK) ,
intent(in) :: rank
681 integer(IK) ,
intent(in) ,
optional :: lb, ub
682 character(
len(array,IK),SKG) :: selection
689 PURE module function getSelectedDefCom_D1_IK5(array, rank, lb, ub)
result(selection)
690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
691 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_IK5
694 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
695 integer(IK) ,
intent(in) :: rank
696 integer(IK) ,
intent(in) ,
optional :: lb, ub
697 integer(IKG) :: selection
702 PURE module function getSelectedDefCom_D1_IK4(array, rank, lb, ub)
result(selection)
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_IK4
707 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
708 integer(IK) ,
intent(in) :: rank
709 integer(IK) ,
intent(in) ,
optional :: lb, ub
710 integer(IKG) :: selection
715 PURE module function getSelectedDefCom_D1_IK3(array, rank, lb, ub)
result(selection)
716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
717 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_IK3
720 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
721 integer(IK) ,
intent(in) :: rank
722 integer(IK) ,
intent(in) ,
optional :: lb, ub
723 integer(IKG) :: selection
728 PURE module function getSelectedDefCom_D1_IK2(array, rank, lb, ub)
result(selection)
729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
730 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_IK2
733 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
734 integer(IK) ,
intent(in) :: rank
735 integer(IK) ,
intent(in) ,
optional :: lb, ub
736 integer(IKG) :: selection
741 PURE module function getSelectedDefCom_D1_IK1(array, rank, lb, ub)
result(selection)
742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
743 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_IK1
746 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
747 integer(IK) ,
intent(in) :: rank
748 integer(IK) ,
intent(in) ,
optional :: lb, ub
749 integer(IKG) :: selection
756 PURE module function getSelectedDefCom_D1_LK5(array, rank, lb, ub)
result(selection)
757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
758 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_LK5
761 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
762 integer(IK) ,
intent(in) :: rank
763 integer(IK) ,
intent(in) ,
optional :: lb, ub
764 logical(LKG) :: selection
769 PURE module function getSelectedDefCom_D1_LK4(array, rank, lb, ub)
result(selection)
770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
771 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_LK4
774 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
775 integer(IK) ,
intent(in) :: rank
776 integer(IK) ,
intent(in) ,
optional :: lb, ub
777 logical(LKG) :: selection
782 PURE module function getSelectedDefCom_D1_LK3(array, rank, lb, ub)
result(selection)
783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
784 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_LK3
787 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
788 integer(IK) ,
intent(in) :: rank
789 integer(IK) ,
intent(in) ,
optional :: lb, ub
790 logical(LKG) :: selection
795 PURE module function getSelectedDefCom_D1_LK2(array, rank, lb, ub)
result(selection)
796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
797 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_LK2
800 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
801 integer(IK) ,
intent(in) :: rank
802 integer(IK) ,
intent(in) ,
optional :: lb, ub
803 logical(LKG) :: selection
808 PURE module function getSelectedDefCom_D1_LK1(array, rank, lb, ub)
result(selection)
809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
810 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_LK1
813 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
814 integer(IK) ,
intent(in) :: rank
815 integer(IK) ,
intent(in) ,
optional :: lb, ub
816 logical(LKG) :: selection
823 PURE module function getSelectedDefCom_D1_CK5(array, rank, lb, ub)
result(selection)
824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
825 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_CK5
828 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
829 integer(IK) ,
intent(in) :: rank
830 integer(IK) ,
intent(in) ,
optional :: lb, ub
831 complex(CKG) :: selection
836 PURE module function getSelectedDefCom_D1_CK4(array, rank, lb, ub)
result(selection)
837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
838 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_CK4
841 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
842 integer(IK) ,
intent(in) :: rank
843 integer(IK) ,
intent(in) ,
optional :: lb, ub
844 complex(CKG) :: selection
849 PURE module function getSelectedDefCom_D1_CK3(array, rank, lb, ub)
result(selection)
850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
851 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_CK3
854 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
855 integer(IK) ,
intent(in) :: rank
856 integer(IK) ,
intent(in) ,
optional :: lb, ub
857 complex(CKG) :: selection
862 PURE module function getSelectedDefCom_D1_CK2(array, rank, lb, ub)
result(selection)
863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
864 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_CK2
867 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
868 integer(IK) ,
intent(in) :: rank
869 integer(IK) ,
intent(in) ,
optional :: lb, ub
870 complex(CKG) :: selection
875 PURE module function getSelectedDefCom_D1_CK1(array, rank, lb, ub)
result(selection)
876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
877 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_CK1
880 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
881 integer(IK) ,
intent(in) :: rank
882 integer(IK) ,
intent(in) ,
optional :: lb, ub
883 complex(CKG) :: selection
890 PURE module function getSelectedDefCom_D1_RK5(array, rank, lb, ub)
result(selection)
891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
892 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_RK5
895 real(RKG) ,
intent(in) ,
contiguous :: array(:)
896 integer(IK) ,
intent(in) :: rank
897 integer(IK) ,
intent(in) ,
optional :: lb, ub
898 real(RKG) :: selection
903 PURE module function getSelectedDefCom_D1_RK4(array, rank, lb, ub)
result(selection)
904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
905 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_RK4
908 real(RKG) ,
intent(in) ,
contiguous :: array(:)
909 integer(IK) ,
intent(in) :: rank
910 integer(IK) ,
intent(in) ,
optional :: lb, ub
911 real(RKG) :: selection
916 PURE module function getSelectedDefCom_D1_RK3(array, rank, lb, ub)
result(selection)
917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
918 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_RK3
921 real(RKG) ,
intent(in) ,
contiguous :: array(:)
922 integer(IK) ,
intent(in) :: rank
923 integer(IK) ,
intent(in) ,
optional :: lb, ub
924 real(RKG) :: selection
929 PURE module function getSelectedDefCom_D1_RK2(array, rank, lb, ub)
result(selection)
930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
931 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_RK2
934 real(RKG) ,
intent(in) ,
contiguous :: array(:)
935 integer(IK) ,
intent(in) :: rank
936 integer(IK) ,
intent(in) ,
optional :: lb, ub
937 real(RKG) :: selection
942 PURE module function getSelectedDefCom_D1_RK1(array, rank, lb, ub)
result(selection)
943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
944 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_RK1
947 real(RKG) ,
intent(in) ,
contiguous :: array(:)
948 integer(IK) ,
intent(in) :: rank
949 integer(IK) ,
intent(in) ,
optional :: lb, ub
950 real(RKG) :: selection
959 module function getSelectedDefCom_D1_PSSK5(array, rank, lb, ub)
result(selection)
960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
961 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_PSSK5
965 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
966 integer(IK) ,
intent(in) :: rank
967 integer(IK) ,
intent(in) ,
optional :: lb, ub
968 type(css_pdt(SKG)) :: selection
973 module function getSelectedDefCom_D1_PSSK4(array, rank, lb, ub)
result(selection)
974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
975 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_PSSK4
979 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
980 integer(IK) ,
intent(in) :: rank
981 integer(IK) ,
intent(in) ,
optional :: lb, ub
982 type(css_pdt(SKG)) :: selection
987 module function getSelectedDefCom_D1_PSSK3(array, rank, lb, ub)
result(selection)
988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
989 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_PSSK3
993 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
994 integer(IK) ,
intent(in) :: rank
995 integer(IK) ,
intent(in) ,
optional :: lb, ub
996 type(css_pdt(SKG)) :: selection
1001 module function getSelectedDefCom_D1_PSSK2(array, rank, lb, ub)
result(selection)
1002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1003 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_PSSK2
1007 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1008 integer(IK) ,
intent(in) :: rank
1009 integer(IK) ,
intent(in) ,
optional :: lb, ub
1010 type(css_pdt(SKG)) :: selection
1015 module function getSelectedDefCom_D1_PSSK1(array, rank, lb, ub)
result(selection)
1016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1017 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_PSSK1
1021 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1022 integer(IK) ,
intent(in) :: rank
1023 integer(IK) ,
intent(in) ,
optional :: lb, ub
1024 type(css_pdt(SKG)) :: selection
1033 module function getSelectedDefCom_D1_BSSK(array, rank, lb, ub)
result(selection)
1034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1035 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedDefCom_D1_BSSK
1039 type(css_type) ,
intent(in) ,
contiguous :: array(:)
1040 integer(IK) ,
intent(in) :: rank
1041 integer(IK) ,
intent(in) ,
optional :: lb, ub
1042 type(css_type) :: selection
1064 module function getSelectedCusCom_D0_SK5(array, rank, isSorted, lb, ub)
result(selection)
1065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1066 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D0_SK5
1069 character(
*,SKG) ,
intent(in) :: array
1070 integer(IK) ,
intent(in) :: rank
1071 procedure(
logical(LK)) :: isSorted
1072 integer(IK) ,
intent(in) ,
optional :: lb, ub
1073 character(
1,SKG) :: selection
1078 module function getSelectedCusCom_D0_SK4(array, rank, isSorted, lb, ub)
result(selection)
1079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1080 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D0_SK4
1083 character(
*,SKG) ,
intent(in) :: array
1084 integer(IK) ,
intent(in) :: rank
1085 procedure(
logical(LK)) :: isSorted
1086 integer(IK) ,
intent(in) ,
optional :: lb, ub
1087 character(
1,SKG) :: selection
1092 module function getSelectedCusCom_D0_SK3(array, rank, isSorted, lb, ub)
result(selection)
1093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1094 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D0_SK3
1097 character(
*,SKG) ,
intent(in) :: array
1098 integer(IK) ,
intent(in) :: rank
1099 procedure(
logical(LK)) :: isSorted
1100 integer(IK) ,
intent(in) ,
optional :: lb, ub
1101 character(
1,SKG) :: selection
1106 module function getSelectedCusCom_D0_SK2(array, rank, isSorted, lb, ub)
result(selection)
1107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1108 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D0_SK2
1111 character(
*,SKG) ,
intent(in) :: array
1112 integer(IK) ,
intent(in) :: rank
1113 procedure(
logical(LK)) :: isSorted
1114 integer(IK) ,
intent(in) ,
optional :: lb, ub
1115 character(
1,SKG) :: selection
1120 module function getSelectedCusCom_D0_SK1(array, rank, isSorted, lb, ub)
result(selection)
1121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1122 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D0_SK1
1125 character(
*,SKG) ,
intent(in) :: array
1126 integer(IK) ,
intent(in) :: rank
1127 procedure(
logical(LK)) :: isSorted
1128 integer(IK) ,
intent(in) ,
optional :: lb, ub
1129 character(
1,SKG) :: selection
1136 module function getSelectedCusCom_D1_SK5(array, rank, isSorted, lb, ub)
result(selection)
1137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1138 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_SK5
1141 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1142 integer(IK) ,
intent(in) :: rank
1143 procedure(
logical(LK)) :: isSorted
1144 integer(IK) ,
intent(in) ,
optional :: lb, ub
1145 character(
len(array,IK),SKG) :: selection
1150 module function getSelectedCusCom_D1_SK4(array, rank, isSorted, lb, ub)
result(selection)
1151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1152 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_SK4
1155 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1156 integer(IK) ,
intent(in) :: rank
1157 procedure(
logical(LK)) :: isSorted
1158 integer(IK) ,
intent(in) ,
optional :: lb, ub
1159 character(
len(array,IK),SKG) :: selection
1164 module function getSelectedCusCom_D1_SK3(array, rank, isSorted, lb, ub)
result(selection)
1165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1166 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_SK3
1169 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1170 integer(IK) ,
intent(in) :: rank
1171 procedure(
logical(LK)) :: isSorted
1172 integer(IK) ,
intent(in) ,
optional :: lb, ub
1173 character(
len(array,IK),SKG) :: selection
1178 module function getSelectedCusCom_D1_SK2(array, rank, isSorted, lb, ub)
result(selection)
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_SK2
1183 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1184 integer(IK) ,
intent(in) :: rank
1185 procedure(
logical(LK)) :: isSorted
1186 integer(IK) ,
intent(in) ,
optional :: lb, ub
1187 character(
len(array,IK),SKG) :: selection
1192 module function getSelectedCusCom_D1_SK1(array, rank, isSorted, lb, ub)
result(selection)
1193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1194 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_SK1
1197 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1198 integer(IK) ,
intent(in) :: rank
1199 procedure(
logical(LK)) :: isSorted
1200 integer(IK) ,
intent(in) ,
optional :: lb, ub
1201 character(
len(array,IK),SKG) :: selection
1208 module function getSelectedCusCom_D1_IK5(array, rank, isSorted, lb, ub)
result(selection)
1209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1210 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_IK5
1213 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1214 integer(IK) ,
intent(in) :: rank
1215 procedure(
logical(LK)) :: isSorted
1216 integer(IK) ,
intent(in) ,
optional :: lb, ub
1217 integer(IKG) :: selection
1222 module function getSelectedCusCom_D1_IK4(array, rank, isSorted, lb, ub)
result(selection)
1223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1224 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_IK4
1227 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1228 integer(IK) ,
intent(in) :: rank
1229 procedure(
logical(LK)) :: isSorted
1230 integer(IK) ,
intent(in) ,
optional :: lb, ub
1231 integer(IKG) :: selection
1236 module function getSelectedCusCom_D1_IK3(array, rank, isSorted, lb, ub)
result(selection)
1237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1238 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_IK3
1241 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1242 integer(IK) ,
intent(in) :: rank
1243 procedure(
logical(LK)) :: isSorted
1244 integer(IK) ,
intent(in) ,
optional :: lb, ub
1245 integer(IKG) :: selection
1250 module function getSelectedCusCom_D1_IK2(array, rank, isSorted, lb, ub)
result(selection)
1251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1252 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_IK2
1255 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1256 integer(IK) ,
intent(in) :: rank
1257 procedure(
logical(LK)) :: isSorted
1258 integer(IK) ,
intent(in) ,
optional :: lb, ub
1259 integer(IKG) :: selection
1264 module function getSelectedCusCom_D1_IK1(array, rank, isSorted, lb, ub)
result(selection)
1265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1266 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_IK1
1269 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1270 integer(IK) ,
intent(in) :: rank
1271 procedure(
logical(LK)) :: isSorted
1272 integer(IK) ,
intent(in) ,
optional :: lb, ub
1273 integer(IKG) :: selection
1280 module function getSelectedCusCom_D1_LK5(array, rank, isSorted, lb, ub)
result(selection)
1281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1282 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_LK5
1285 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1286 integer(IK) ,
intent(in) :: rank
1287 procedure(
logical(LK)) :: isSorted
1288 integer(IK) ,
intent(in) ,
optional :: lb, ub
1289 logical(LKG) :: selection
1294 module function getSelectedCusCom_D1_LK4(array, rank, isSorted, lb, ub)
result(selection)
1295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1296 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_LK4
1299 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1300 integer(IK) ,
intent(in) :: rank
1301 procedure(
logical(LK)) :: isSorted
1302 integer(IK) ,
intent(in) ,
optional :: lb, ub
1303 logical(LKG) :: selection
1308 module function getSelectedCusCom_D1_LK3(array, rank, isSorted, lb, ub)
result(selection)
1309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1310 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_LK3
1313 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1314 integer(IK) ,
intent(in) :: rank
1315 procedure(
logical(LK)) :: isSorted
1316 integer(IK) ,
intent(in) ,
optional :: lb, ub
1317 logical(LKG) :: selection
1322 module function getSelectedCusCom_D1_LK2(array, rank, isSorted, lb, ub)
result(selection)
1323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1324 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_LK2
1327 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1328 integer(IK) ,
intent(in) :: rank
1329 procedure(
logical(LK)) :: isSorted
1330 integer(IK) ,
intent(in) ,
optional :: lb, ub
1331 logical(LKG) :: selection
1336 module function getSelectedCusCom_D1_LK1(array, rank, isSorted, lb, ub)
result(selection)
1337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1338 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_LK1
1341 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1342 integer(IK) ,
intent(in) :: rank
1343 procedure(
logical(LK)) :: isSorted
1344 integer(IK) ,
intent(in) ,
optional :: lb, ub
1345 logical(LKG) :: selection
1352 module function getSelectedCusCom_D1_CK5(array, rank, isSorted, lb, ub)
result(selection)
1353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1354 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_CK5
1357 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1358 integer(IK) ,
intent(in) :: rank
1359 procedure(
logical(LK)) :: isSorted
1360 integer(IK) ,
intent(in) ,
optional :: lb, ub
1361 complex(CKG) :: selection
1366 module function getSelectedCusCom_D1_CK4(array, rank, isSorted, lb, ub)
result(selection)
1367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1368 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_CK4
1371 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1372 integer(IK) ,
intent(in) :: rank
1373 procedure(
logical(LK)) :: isSorted
1374 integer(IK) ,
intent(in) ,
optional :: lb, ub
1375 complex(CKG) :: selection
1380 module function getSelectedCusCom_D1_CK3(array, rank, isSorted, lb, ub)
result(selection)
1381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1382 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_CK3
1385 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1386 integer(IK) ,
intent(in) :: rank
1387 procedure(
logical(LK)) :: isSorted
1388 integer(IK) ,
intent(in) ,
optional :: lb, ub
1389 complex(CKG) :: selection
1394 module function getSelectedCusCom_D1_CK2(array, rank, isSorted, lb, ub)
result(selection)
1395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1396 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_CK2
1399 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1400 integer(IK) ,
intent(in) :: rank
1401 procedure(
logical(LK)) :: isSorted
1402 integer(IK) ,
intent(in) ,
optional :: lb, ub
1403 complex(CKG) :: selection
1408 module function getSelectedCusCom_D1_CK1(array, rank, isSorted, lb, ub)
result(selection)
1409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1410 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_CK1
1413 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1414 integer(IK) ,
intent(in) :: rank
1415 procedure(
logical(LK)) :: isSorted
1416 integer(IK) ,
intent(in) ,
optional :: lb, ub
1417 complex(CKG) :: selection
1424 module function getSelectedCusCom_D1_RK5(array, rank, isSorted, lb, ub)
result(selection)
1425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1426 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_RK5
1429 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1430 integer(IK) ,
intent(in) :: rank
1431 procedure(
logical(LK)) :: isSorted
1432 integer(IK) ,
intent(in) ,
optional :: lb, ub
1433 real(RKG) :: selection
1438 module function getSelectedCusCom_D1_RK4(array, rank, isSorted, lb, ub)
result(selection)
1439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1440 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_RK4
1443 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1444 integer(IK) ,
intent(in) :: rank
1445 procedure(
logical(LK)) :: isSorted
1446 integer(IK) ,
intent(in) ,
optional :: lb, ub
1447 real(RKG) :: selection
1452 module function getSelectedCusCom_D1_RK3(array, rank, isSorted, lb, ub)
result(selection)
1453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1454 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_RK3
1457 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1458 integer(IK) ,
intent(in) :: rank
1459 procedure(
logical(LK)) :: isSorted
1460 integer(IK) ,
intent(in) ,
optional :: lb, ub
1461 real(RKG) :: selection
1466 module function getSelectedCusCom_D1_RK2(array, rank, isSorted, lb, ub)
result(selection)
1467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1468 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_RK2
1471 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1472 integer(IK) ,
intent(in) :: rank
1473 procedure(
logical(LK)) :: isSorted
1474 integer(IK) ,
intent(in) ,
optional :: lb, ub
1475 real(RKG) :: selection
1480 module function getSelectedCusCom_D1_RK1(array, rank, isSorted, lb, ub)
result(selection)
1481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1482 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_RK1
1485 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1486 integer(IK) ,
intent(in) :: rank
1487 procedure(
logical(LK)) :: isSorted
1488 integer(IK) ,
intent(in) ,
optional :: lb, ub
1489 real(RKG) :: selection
1498 module function getSelectedCusCom_D1_PSSK5(array, rank, isSorted, lb, ub)
result(selection)
1499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1500 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_PSSK5
1504 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1505 integer(IK) ,
intent(in) :: rank
1506 procedure(
logical(LK)) :: isSorted
1507 integer(IK) ,
intent(in) ,
optional :: lb, ub
1508 type(css_pdt(SKG)) :: selection
1513 module function getSelectedCusCom_D1_PSSK4(array, rank, isSorted, lb, ub)
result(selection)
1514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1515 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_PSSK4
1519 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1520 integer(IK) ,
intent(in) :: rank
1521 procedure(
logical(LK)) :: isSorted
1522 integer(IK) ,
intent(in) ,
optional :: lb, ub
1523 type(css_pdt(SKG)) :: selection
1528 module function getSelectedCusCom_D1_PSSK3(array, rank, isSorted, lb, ub)
result(selection)
1529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1530 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_PSSK3
1534 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1535 integer(IK) ,
intent(in) :: rank
1536 procedure(
logical(LK)) :: isSorted
1537 integer(IK) ,
intent(in) ,
optional :: lb, ub
1538 type(css_pdt(SKG)) :: selection
1543 module function getSelectedCusCom_D1_PSSK2(array, rank, isSorted, lb, ub)
result(selection)
1544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1545 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_PSSK2
1549 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1550 integer(IK) ,
intent(in) :: rank
1551 procedure(
logical(LK)) :: isSorted
1552 integer(IK) ,
intent(in) ,
optional :: lb, ub
1553 type(css_pdt(SKG)) :: selection
1558 module function getSelectedCusCom_D1_PSSK1(array, rank, isSorted, lb, ub)
result(selection)
1559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1560 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_PSSK1
1564 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1565 integer(IK) ,
intent(in) :: rank
1566 procedure(
logical(LK)) :: isSorted
1567 integer(IK) ,
intent(in) ,
optional :: lb, ub
1568 type(css_pdt(SKG)) :: selection
1577 module function getSelectedCusCom_D1_BSSK(array, rank, isSorted, lb, ub)
result(selection)
1578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1579 !DEC$ ATTRIBUTES DLLEXPORT :: getSelectedCusCom_D1_BSSK
1583 type(css_type) ,
intent(in) ,
contiguous :: array(:)
1584 integer(IK) ,
intent(in) :: rank
1585 procedure(
logical(LK)) :: isSorted
1586 integer(IK) ,
intent(in) ,
optional :: lb, ub
1587 type(css_type) :: selection
1734 PURE module subroutine setSelectedDefCom_D0_SK5(selection, array, rank, lb, ub)
1735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1736 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D0_SK5
1739 character(
*,SKG) ,
intent(inout) :: array
1740 integer(IK) ,
intent(in) :: rank
1741 integer(IK) ,
intent(in) ,
optional :: lb, ub
1742 character(
1,SKG) ,
intent(out) :: selection
1747 PURE module subroutine setSelectedDefCom_D0_SK4(selection, array, rank, lb, ub)
1748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1749 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D0_SK4
1752 character(
*,SKG) ,
intent(inout) :: array
1753 integer(IK) ,
intent(in) :: rank
1754 integer(IK) ,
intent(in) ,
optional :: lb, ub
1755 character(
1,SKG) ,
intent(out) :: selection
1760 PURE module subroutine setSelectedDefCom_D0_SK3(selection, array, rank, lb, ub)
1761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1762 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D0_SK3
1765 character(
*,SKG) ,
intent(inout) :: array
1766 integer(IK) ,
intent(in) :: rank
1767 integer(IK) ,
intent(in) ,
optional :: lb, ub
1768 character(
1,SKG) ,
intent(out) :: selection
1773 PURE module subroutine setSelectedDefCom_D0_SK2(selection, array, rank, lb, ub)
1774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1775 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D0_SK2
1778 character(
*,SKG) ,
intent(inout) :: array
1779 integer(IK) ,
intent(in) :: rank
1780 integer(IK) ,
intent(in) ,
optional :: lb, ub
1781 character(
1,SKG) ,
intent(out) :: selection
1786 PURE module subroutine setSelectedDefCom_D0_SK1(selection, array, rank, lb, ub)
1787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1788 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D0_SK1
1791 character(
*,SKG) ,
intent(inout) :: array
1792 integer(IK) ,
intent(in) :: rank
1793 integer(IK) ,
intent(in) ,
optional :: lb, ub
1794 character(
1,SKG) ,
intent(out) :: selection
1807 PURE module subroutine setSelectedDefCom_D1_SK5(selection, array, rank, lb, ub)
1808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1809 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_SK5
1812 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1813 integer(IK) ,
intent(in) :: rank
1814 integer(IK) ,
intent(in) ,
optional :: lb, ub
1815 character(
len(array,IK),SKG),
intent(out) :: selection
1820 PURE module subroutine setSelectedDefCom_D1_SK4(selection, array, rank, lb, ub)
1821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1822 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_SK4
1825 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1826 integer(IK) ,
intent(in) :: rank
1827 integer(IK) ,
intent(in) ,
optional :: lb, ub
1828 character(
len(array,IK),SKG),
intent(out) :: selection
1833 PURE module subroutine setSelectedDefCom_D1_SK3(selection, array, rank, lb, ub)
1834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1835 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_SK3
1838 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1839 integer(IK) ,
intent(in) :: rank
1840 integer(IK) ,
intent(in) ,
optional :: lb, ub
1841 character(
len(array,IK),SKG),
intent(out) :: selection
1846 PURE module subroutine setSelectedDefCom_D1_SK2(selection, array, rank, lb, ub)
1847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1848 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_SK2
1851 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1852 integer(IK) ,
intent(in) :: rank
1853 integer(IK) ,
intent(in) ,
optional :: lb, ub
1854 character(
len(array,IK),SKG),
intent(out) :: selection
1859 PURE module subroutine setSelectedDefCom_D1_SK1(selection, array, rank, lb, ub)
1860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1861 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_SK1
1864 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
1865 integer(IK) ,
intent(in) :: rank
1866 integer(IK) ,
intent(in) ,
optional :: lb, ub
1867 character(
len(array,IK),SKG),
intent(out) :: selection
1874 PURE module subroutine setSelectedDefCom_D1_IK5(selection, array, rank, lb, ub)
1875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1876 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_IK5
1879 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1880 integer(IK) ,
intent(in) :: rank
1881 integer(IK) ,
intent(in) ,
optional :: lb, ub
1882 integer(IKG) ,
intent(out) :: selection
1887 PURE module subroutine setSelectedDefCom_D1_IK4(selection, array, rank, lb, ub)
1888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1889 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_IK4
1892 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1893 integer(IK) ,
intent(in) :: rank
1894 integer(IK) ,
intent(in) ,
optional :: lb, ub
1895 integer(IKG) ,
intent(out) :: selection
1900 PURE module subroutine setSelectedDefCom_D1_IK3(selection, array, rank, lb, ub)
1901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1902 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_IK3
1905 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1906 integer(IK) ,
intent(in) :: rank
1907 integer(IK) ,
intent(in) ,
optional :: lb, ub
1908 integer(IKG) ,
intent(out) :: selection
1913 PURE module subroutine setSelectedDefCom_D1_IK2(selection, array, rank, lb, ub)
1914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1915 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_IK2
1918 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1919 integer(IK) ,
intent(in) :: rank
1920 integer(IK) ,
intent(in) ,
optional :: lb, ub
1921 integer(IKG) ,
intent(out) :: selection
1926 PURE module subroutine setSelectedDefCom_D1_IK1(selection, array, rank, lb, ub)
1927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1928 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_IK1
1931 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
1932 integer(IK) ,
intent(in) :: rank
1933 integer(IK) ,
intent(in) ,
optional :: lb, ub
1934 integer(IKG) ,
intent(out) :: selection
1941 PURE module subroutine setSelectedDefCom_D1_LK5(selection, array, rank, lb, ub)
1942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1943 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_LK5
1946 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1947 integer(IK) ,
intent(in) :: rank
1948 integer(IK) ,
intent(in) ,
optional :: lb, ub
1949 logical(LKG) ,
intent(out) :: selection
1954 PURE module subroutine setSelectedDefCom_D1_LK4(selection, array, rank, lb, ub)
1955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1956 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_LK4
1959 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1960 integer(IK) ,
intent(in) :: rank
1961 integer(IK) ,
intent(in) ,
optional :: lb, ub
1962 logical(LKG) ,
intent(out) :: selection
1967 PURE module subroutine setSelectedDefCom_D1_LK3(selection, array, rank, lb, ub)
1968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1969 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_LK3
1972 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1973 integer(IK) ,
intent(in) :: rank
1974 integer(IK) ,
intent(in) ,
optional :: lb, ub
1975 logical(LKG) ,
intent(out) :: selection
1980 PURE module subroutine setSelectedDefCom_D1_LK2(selection, array, rank, lb, ub)
1981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1982 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_LK2
1985 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1986 integer(IK) ,
intent(in) :: rank
1987 integer(IK) ,
intent(in) ,
optional :: lb, ub
1988 logical(LKG) ,
intent(out) :: selection
1993 PURE module subroutine setSelectedDefCom_D1_LK1(selection, array, rank, lb, ub)
1994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1995 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_LK1
1998 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
1999 integer(IK) ,
intent(in) :: rank
2000 integer(IK) ,
intent(in) ,
optional :: lb, ub
2001 logical(LKG) ,
intent(out) :: selection
2008 PURE module subroutine setSelectedDefCom_D1_CK5(selection, array, rank, lb, ub)
2009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2010 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_CK5
2013 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2014 integer(IK) ,
intent(in) :: rank
2015 integer(IK) ,
intent(in) ,
optional :: lb, ub
2016 complex(CKG) ,
intent(out) :: selection
2021 PURE module subroutine setSelectedDefCom_D1_CK4(selection, array, rank, lb, ub)
2022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2023 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_CK4
2026 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2027 integer(IK) ,
intent(in) :: rank
2028 integer(IK) ,
intent(in) ,
optional :: lb, ub
2029 complex(CKG) ,
intent(out) :: selection
2034 PURE module subroutine setSelectedDefCom_D1_CK3(selection, array, rank, lb, ub)
2035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2036 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_CK3
2039 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2040 integer(IK) ,
intent(in) :: rank
2041 integer(IK) ,
intent(in) ,
optional :: lb, ub
2042 complex(CKG) ,
intent(out) :: selection
2047 PURE module subroutine setSelectedDefCom_D1_CK2(selection, array, rank, lb, ub)
2048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2049 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_CK2
2052 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2053 integer(IK) ,
intent(in) :: rank
2054 integer(IK) ,
intent(in) ,
optional :: lb, ub
2055 complex(CKG) ,
intent(out) :: selection
2060 PURE module subroutine setSelectedDefCom_D1_CK1(selection, array, rank, lb, ub)
2061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2062 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_CK1
2065 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2066 integer(IK) ,
intent(in) :: rank
2067 integer(IK) ,
intent(in) ,
optional :: lb, ub
2068 complex(CKG) ,
intent(out) :: selection
2075 PURE module subroutine setSelectedDefCom_D1_RK5(selection, array, rank, lb, ub)
2076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2077 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_RK5
2080 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2081 integer(IK) ,
intent(in) :: rank
2082 integer(IK) ,
intent(in) ,
optional :: lb, ub
2083 real(RKG) ,
intent(out) :: selection
2088 PURE module subroutine setSelectedDefCom_D1_RK4(selection, array, rank, lb, ub)
2089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2090 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_RK4
2093 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2094 integer(IK) ,
intent(in) :: rank
2095 integer(IK) ,
intent(in) ,
optional :: lb, ub
2096 real(RKG) ,
intent(out) :: selection
2101 PURE module subroutine setSelectedDefCom_D1_RK3(selection, array, rank, lb, ub)
2102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2103 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_RK3
2106 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2107 integer(IK) ,
intent(in) :: rank
2108 integer(IK) ,
intent(in) ,
optional :: lb, ub
2109 real(RKG) ,
intent(out) :: selection
2114 PURE module subroutine setSelectedDefCom_D1_RK2(selection, array, rank, lb, ub)
2115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2116 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_RK2
2119 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2120 integer(IK) ,
intent(in) :: rank
2121 integer(IK) ,
intent(in) ,
optional :: lb, ub
2122 real(RKG) ,
intent(out) :: selection
2127 PURE module subroutine setSelectedDefCom_D1_RK1(selection, array, rank, lb, ub)
2128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2129 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_RK1
2132 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2133 integer(IK) ,
intent(in) :: rank
2134 integer(IK) ,
intent(in) ,
optional :: lb, ub
2135 real(RKG) ,
intent(out) :: selection
2144 module subroutine setSelectedDefCom_D1_PSSK5(selection, array, rank, lb, ub)
2145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2146 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_PSSK5
2150 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2151 integer(IK) ,
intent(in) :: rank
2152 integer(IK) ,
intent(in) ,
optional :: lb, ub
2153 type(css_pdt(SKG)) ,
intent(out) :: selection
2158 module subroutine setSelectedDefCom_D1_PSSK4(selection, array, rank, lb, ub)
2159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2160 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_PSSK4
2164 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2165 integer(IK) ,
intent(in) :: rank
2166 integer(IK) ,
intent(in) ,
optional :: lb, ub
2167 type(css_pdt(SKG)) ,
intent(out) :: selection
2172 module subroutine setSelectedDefCom_D1_PSSK3(selection, array, rank, lb, ub)
2173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2174 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_PSSK3
2178 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2179 integer(IK) ,
intent(in) :: rank
2180 integer(IK) ,
intent(in) ,
optional :: lb, ub
2181 type(css_pdt(SKG)) ,
intent(out) :: selection
2186 module subroutine setSelectedDefCom_D1_PSSK2(selection, array, rank, lb, ub)
2187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2188 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_PSSK2
2192 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2193 integer(IK) ,
intent(in) :: rank
2194 integer(IK) ,
intent(in) ,
optional :: lb, ub
2195 type(css_pdt(SKG)) ,
intent(out) :: selection
2200 module subroutine setSelectedDefCom_D1_PSSK1(selection, array, rank, lb, ub)
2201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2202 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_PSSK1
2206 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2207 integer(IK) ,
intent(in) :: rank
2208 integer(IK) ,
intent(in) ,
optional :: lb, ub
2209 type(css_pdt(SKG)) ,
intent(out) :: selection
2218 module subroutine setSelectedDefCom_D1_BSSK(selection, array, rank, lb, ub)
2219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2220 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedDefCom_D1_BSSK
2224 type(css_type) ,
intent(inout) ,
contiguous :: array(:)
2225 integer(IK) ,
intent(in) :: rank
2226 integer(IK) ,
intent(in) ,
optional :: lb, ub
2227 type(css_type) ,
intent(out) :: selection
2245 module subroutine setSelectedCusCom_D0_SK5(selection, array, rank, isSorted, lb, ub)
2246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2247 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D0_SK5
2250 character(
*,SKG) ,
intent(inout) :: array
2251 integer(IK) ,
intent(in) :: rank
2252 procedure(
logical(LK)) :: isSorted
2253 integer(IK) ,
intent(in) ,
optional :: lb, ub
2254 character(
1,SKG) ,
intent(out) :: selection
2259 module subroutine setSelectedCusCom_D0_SK4(selection, array, rank, isSorted, lb, ub)
2260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2261 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D0_SK4
2264 character(
*,SKG) ,
intent(inout) :: array
2265 integer(IK) ,
intent(in) :: rank
2266 procedure(
logical(LK)) :: isSorted
2267 integer(IK) ,
intent(in) ,
optional :: lb, ub
2268 character(
1,SKG) ,
intent(out) :: selection
2273 module subroutine setSelectedCusCom_D0_SK3(selection, array, rank, isSorted, lb, ub)
2274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2275 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D0_SK3
2278 character(
*,SKG) ,
intent(inout) :: array
2279 integer(IK) ,
intent(in) :: rank
2280 procedure(
logical(LK)) :: isSorted
2281 integer(IK) ,
intent(in) ,
optional :: lb, ub
2282 character(
1,SKG) ,
intent(out) :: selection
2287 module subroutine setSelectedCusCom_D0_SK2(selection, array, rank, isSorted, lb, ub)
2288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2289 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D0_SK2
2292 character(
*,SKG) ,
intent(inout) :: array
2293 integer(IK) ,
intent(in) :: rank
2294 procedure(
logical(LK)) :: isSorted
2295 integer(IK) ,
intent(in) ,
optional :: lb, ub
2296 character(
1,SKG) ,
intent(out) :: selection
2301 module subroutine setSelectedCusCom_D0_SK1(selection, array, rank, isSorted, lb, ub)
2302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2303 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D0_SK1
2306 character(
*,SKG) ,
intent(inout) :: array
2307 integer(IK) ,
intent(in) :: rank
2308 procedure(
logical(LK)) :: isSorted
2309 integer(IK) ,
intent(in) ,
optional :: lb, ub
2310 character(
1,SKG) ,
intent(out) :: selection
2317 module subroutine setSelectedCusCom_D1_SK5(selection, array, rank, isSorted, lb, ub)
2318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2319 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_SK5
2322 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
2323 integer(IK) ,
intent(in) :: rank
2324 procedure(
logical(LK)) :: isSorted
2325 integer(IK) ,
intent(in) ,
optional :: lb, ub
2326 character(
len(array,IK),SKG),
intent(out) :: selection
2331 module subroutine setSelectedCusCom_D1_SK4(selection, array, rank, isSorted, lb, ub)
2332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2333 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_SK4
2336 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
2337 integer(IK) ,
intent(in) :: rank
2338 procedure(
logical(LK)) :: isSorted
2339 integer(IK) ,
intent(in) ,
optional :: lb, ub
2340 character(
len(array,IK),SKG),
intent(out) :: selection
2345 module subroutine setSelectedCusCom_D1_SK3(selection, array, rank, isSorted, lb, ub)
2346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2347 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_SK3
2350 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
2351 integer(IK) ,
intent(in) :: rank
2352 procedure(
logical(LK)) :: isSorted
2353 integer(IK) ,
intent(in) ,
optional :: lb, ub
2354 character(
len(array,IK),SKG),
intent(out) :: selection
2359 module subroutine setSelectedCusCom_D1_SK2(selection, array, rank, isSorted, lb, ub)
2360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2361 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_SK2
2364 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
2365 integer(IK) ,
intent(in) :: rank
2366 procedure(
logical(LK)) :: isSorted
2367 integer(IK) ,
intent(in) ,
optional :: lb, ub
2368 character(
len(array,IK),SKG),
intent(out) :: selection
2373 module subroutine setSelectedCusCom_D1_SK1(selection, array, rank, isSorted, lb, ub)
2374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2375 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_SK1
2378 character(
*,SKG) ,
intent(inout) ,
contiguous :: array(:)
2379 integer(IK) ,
intent(in) :: rank
2380 procedure(
logical(LK)) :: isSorted
2381 integer(IK) ,
intent(in) ,
optional :: lb, ub
2382 character(
len(array,IK),SKG),
intent(out) :: selection
2389 module subroutine setSelectedCusCom_D1_IK5(selection, array, rank, isSorted, lb, ub)
2390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2391 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_IK5
2394 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
2395 integer(IK) ,
intent(in) :: rank
2396 procedure(
logical(LK)) :: isSorted
2397 integer(IK) ,
intent(in) ,
optional :: lb, ub
2398 integer(IKG) ,
intent(out) :: selection
2403 module subroutine setSelectedCusCom_D1_IK4(selection, array, rank, isSorted, lb, ub)
2404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2405 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_IK4
2408 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
2409 integer(IK) ,
intent(in) :: rank
2410 procedure(
logical(LK)) :: isSorted
2411 integer(IK) ,
intent(in) ,
optional :: lb, ub
2412 integer(IKG) ,
intent(out) :: selection
2417 module subroutine setSelectedCusCom_D1_IK3(selection, array, rank, isSorted, lb, ub)
2418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2419 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_IK3
2422 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
2423 integer(IK) ,
intent(in) :: rank
2424 procedure(
logical(LK)) :: isSorted
2425 integer(IK) ,
intent(in) ,
optional :: lb, ub
2426 integer(IKG) ,
intent(out) :: selection
2431 module subroutine setSelectedCusCom_D1_IK2(selection, array, rank, isSorted, lb, ub)
2432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2433 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_IK2
2436 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
2437 integer(IK) ,
intent(in) :: rank
2438 procedure(
logical(LK)) :: isSorted
2439 integer(IK) ,
intent(in) ,
optional :: lb, ub
2440 integer(IKG) ,
intent(out) :: selection
2445 module subroutine setSelectedCusCom_D1_IK1(selection, array, rank, isSorted, lb, ub)
2446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2447 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_IK1
2450 integer(IKG) ,
intent(inout) ,
contiguous :: array(:)
2451 integer(IK) ,
intent(in) :: rank
2452 procedure(
logical(LK)) :: isSorted
2453 integer(IK) ,
intent(in) ,
optional :: lb, ub
2454 integer(IKG) ,
intent(out) :: selection
2461 module subroutine setSelectedCusCom_D1_LK5(selection, array, rank, isSorted, lb, ub)
2462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2463 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_LK5
2466 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
2467 integer(IK) ,
intent(in) :: rank
2468 procedure(
logical(LK)) :: isSorted
2469 integer(IK) ,
intent(in) ,
optional :: lb, ub
2470 logical(LKG) ,
intent(out) :: selection
2475 module subroutine setSelectedCusCom_D1_LK4(selection, array, rank, isSorted, lb, ub)
2476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2477 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_LK4
2480 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
2481 integer(IK) ,
intent(in) :: rank
2482 procedure(
logical(LK)) :: isSorted
2483 integer(IK) ,
intent(in) ,
optional :: lb, ub
2484 logical(LKG) ,
intent(out) :: selection
2489 module subroutine setSelectedCusCom_D1_LK3(selection, array, rank, isSorted, lb, ub)
2490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2491 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_LK3
2494 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
2495 integer(IK) ,
intent(in) :: rank
2496 procedure(
logical(LK)) :: isSorted
2497 integer(IK) ,
intent(in) ,
optional :: lb, ub
2498 logical(LKG) ,
intent(out) :: selection
2503 module subroutine setSelectedCusCom_D1_LK2(selection, array, rank, isSorted, lb, ub)
2504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2505 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_LK2
2508 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
2509 integer(IK) ,
intent(in) :: rank
2510 procedure(
logical(LK)) :: isSorted
2511 integer(IK) ,
intent(in) ,
optional :: lb, ub
2512 logical(LKG) ,
intent(out) :: selection
2517 module subroutine setSelectedCusCom_D1_LK1(selection, array, rank, isSorted, lb, ub)
2518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2519 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_LK1
2522 logical(LKG) ,
intent(inout) ,
contiguous :: array(:)
2523 integer(IK) ,
intent(in) :: rank
2524 procedure(
logical(LK)) :: isSorted
2525 integer(IK) ,
intent(in) ,
optional :: lb, ub
2526 logical(LKG) ,
intent(out) :: selection
2533 module subroutine setSelectedCusCom_D1_CK5(selection, array, rank, isSorted, lb, ub)
2534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2535 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_CK5
2538 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2539 integer(IK) ,
intent(in) :: rank
2540 procedure(
logical(LK)) :: isSorted
2541 integer(IK) ,
intent(in) ,
optional :: lb, ub
2542 complex(CKG) ,
intent(out) :: selection
2547 module subroutine setSelectedCusCom_D1_CK4(selection, array, rank, isSorted, lb, ub)
2548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2549 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_CK4
2552 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2553 integer(IK) ,
intent(in) :: rank
2554 procedure(
logical(LK)) :: isSorted
2555 integer(IK) ,
intent(in) ,
optional :: lb, ub
2556 complex(CKG) ,
intent(out) :: selection
2561 module subroutine setSelectedCusCom_D1_CK3(selection, array, rank, isSorted, lb, ub)
2562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2563 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_CK3
2566 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2567 integer(IK) ,
intent(in) :: rank
2568 procedure(
logical(LK)) :: isSorted
2569 integer(IK) ,
intent(in) ,
optional :: lb, ub
2570 complex(CKG) ,
intent(out) :: selection
2575 module subroutine setSelectedCusCom_D1_CK2(selection, array, rank, isSorted, lb, ub)
2576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2577 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_CK2
2580 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2581 integer(IK) ,
intent(in) :: rank
2582 procedure(
logical(LK)) :: isSorted
2583 integer(IK) ,
intent(in) ,
optional :: lb, ub
2584 complex(CKG) ,
intent(out) :: selection
2589 module subroutine setSelectedCusCom_D1_CK1(selection, array, rank, isSorted, lb, ub)
2590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2591 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_CK1
2594 complex(CKG) ,
intent(inout) ,
contiguous :: array(:)
2595 integer(IK) ,
intent(in) :: rank
2596 procedure(
logical(LK)) :: isSorted
2597 integer(IK) ,
intent(in) ,
optional :: lb, ub
2598 complex(CKG) ,
intent(out) :: selection
2605 module subroutine setSelectedCusCom_D1_RK5(selection, array, rank, isSorted, lb, ub)
2606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2607 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_RK5
2610 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2611 integer(IK) ,
intent(in) :: rank
2612 procedure(
logical(LK)) :: isSorted
2613 integer(IK) ,
intent(in) ,
optional :: lb, ub
2614 real(RKG) ,
intent(out) :: selection
2619 module subroutine setSelectedCusCom_D1_RK4(selection, array, rank, isSorted, lb, ub)
2620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2621 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_RK4
2624 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2625 integer(IK) ,
intent(in) :: rank
2626 procedure(
logical(LK)) :: isSorted
2627 integer(IK) ,
intent(in) ,
optional :: lb, ub
2628 real(RKG) ,
intent(out) :: selection
2633 module subroutine setSelectedCusCom_D1_RK3(selection, array, rank, isSorted, lb, ub)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_RK3
2638 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2639 integer(IK) ,
intent(in) :: rank
2640 procedure(
logical(LK)) :: isSorted
2641 integer(IK) ,
intent(in) ,
optional :: lb, ub
2642 real(RKG) ,
intent(out) :: selection
2647 module subroutine setSelectedCusCom_D1_RK2(selection, array, rank, isSorted, lb, ub)
2648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2649 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_RK2
2652 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2653 integer(IK) ,
intent(in) :: rank
2654 procedure(
logical(LK)) :: isSorted
2655 integer(IK) ,
intent(in) ,
optional :: lb, ub
2656 real(RKG) ,
intent(out) :: selection
2661 module subroutine setSelectedCusCom_D1_RK1(selection, array, rank, isSorted, lb, ub)
2662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2663 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_RK1
2666 real(RKG) ,
intent(inout) ,
contiguous :: array(:)
2667 integer(IK) ,
intent(in) :: rank
2668 procedure(
logical(LK)) :: isSorted
2669 integer(IK) ,
intent(in) ,
optional :: lb, ub
2670 real(RKG) ,
intent(out) :: selection
2679 module subroutine setSelectedCusCom_D1_PSSK5(selection, array, rank, isSorted, lb, ub)
2680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2681 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_PSSK5
2685 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2686 integer(IK) ,
intent(in) :: rank
2687 procedure(
logical(LK)) :: isSorted
2688 integer(IK) ,
intent(in) ,
optional :: lb, ub
2689 type(css_pdt(SKG)) ,
intent(out) :: selection
2694 module subroutine setSelectedCusCom_D1_PSSK4(selection, array, rank, isSorted, lb, ub)
2695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2696 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_PSSK4
2700 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2701 integer(IK) ,
intent(in) :: rank
2702 procedure(
logical(LK)) :: isSorted
2703 integer(IK) ,
intent(in) ,
optional :: lb, ub
2704 type(css_pdt(SKG)) ,
intent(out) :: selection
2709 module subroutine setSelectedCusCom_D1_PSSK3(selection, array, rank, isSorted, lb, ub)
2710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2711 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_PSSK3
2715 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2716 integer(IK) ,
intent(in) :: rank
2717 procedure(
logical(LK)) :: isSorted
2718 integer(IK) ,
intent(in) ,
optional :: lb, ub
2719 type(css_pdt(SKG)) ,
intent(out) :: selection
2724 module subroutine setSelectedCusCom_D1_PSSK2(selection, array, rank, isSorted, lb, ub)
2725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2726 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_PSSK2
2730 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2731 integer(IK) ,
intent(in) :: rank
2732 procedure(
logical(LK)) :: isSorted
2733 integer(IK) ,
intent(in) ,
optional :: lb, ub
2734 type(css_pdt(SKG)) ,
intent(out) :: selection
2739 module subroutine setSelectedCusCom_D1_PSSK1(selection, array, rank, isSorted, lb, ub)
2740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2741 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_PSSK1
2745 type(css_pdt(SKG)) ,
intent(inout) ,
contiguous :: array(:)
2746 integer(IK) ,
intent(in) :: rank
2747 procedure(
logical(LK)) :: isSorted
2748 integer(IK) ,
intent(in) ,
optional :: lb, ub
2749 type(css_pdt(SKG)) ,
intent(out) :: selection
2758 module subroutine setSelectedCusCom_D1_BSSK(selection, array, rank, isSorted, lb, ub)
2759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2760 !DEC$ ATTRIBUTES DLLEXPORT :: setSelectedCusCom_D1_BSSK
2764 type(css_type) ,
intent(inout) ,
contiguous :: array(:)
2765 integer(IK) ,
intent(in) :: rank
2766 procedure(
logical(LK)) :: isSorted
2767 integer(IK) ,
intent(in) ,
optional :: lb, ub
2768 type(css_type) ,
intent(out) :: selection
Generate and return the rankth smallest value in the input array by first sorting its elements in asc...
Return the rankth smallest (or ordered) value in the input array by first sorting its elements in asc...
This module contains procedures and generic interfaces for selecting the th smallest element in unsor...
character(*, SK), parameter MODULE_NAME
This module contains the derived types for generating allocatable containers of scalar,...
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 the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the css_type type for generating instances of container of scalar of string objects.