635 module function getRankDenseDefCom_D0_SK5(array)
result(rank)
636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
637 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D0_SK5
640 character(
*,SKG) ,
intent(in) :: array
641 integer(TKR) ::
rank(
len(array, IK))
646 module function getRankDenseDefCom_D0_SK4(array)
result(rank)
647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
648 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D0_SK4
651 character(
*,SKG) ,
intent(in) :: array
652 integer(TKR) ::
rank(
len(array, IK))
657 module function getRankDenseDefCom_D0_SK3(array)
result(rank)
658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
659 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D0_SK3
662 character(
*,SKG) ,
intent(in) :: array
663 integer(TKR) ::
rank(
len(array, IK))
668 module function getRankDenseDefCom_D0_SK2(array)
result(rank)
669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
670 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D0_SK2
673 character(
*,SKG) ,
intent(in) :: array
674 integer(TKR) ::
rank(
len(array, IK))
679 module function getRankDenseDefCom_D0_SK1(array)
result(rank)
680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
681 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D0_SK1
684 character(
*,SKG) ,
intent(in) :: array
685 integer(TKR) ::
rank(
len(array, IK))
692 module function getRankDenseDefCom_D1_SK5(array)
result(rank)
693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
694 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_SK5
697 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
698 integer(TKR) ::
rank(
size(array,
kind = IK))
703 module function getRankDenseDefCom_D1_SK4(array)
result(rank)
704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
705 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_SK4
708 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
709 integer(TKR) ::
rank(
size(array,
kind = IK))
714 module function getRankDenseDefCom_D1_SK3(array)
result(rank)
715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
716 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_SK3
719 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
720 integer(TKR) ::
rank(
size(array,
kind = IK))
725 module function getRankDenseDefCom_D1_SK2(array)
result(rank)
726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
727 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_SK2
730 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
731 integer(TKR) ::
rank(
size(array,
kind = IK))
736 module function getRankDenseDefCom_D1_SK1(array)
result(rank)
737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
738 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_SK1
741 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
742 integer(TKR) ::
rank(
size(array,
kind = IK))
749 module function getRankDenseDefCom_D1_IK5(array)
result(rank)
750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
751 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_IK5
754 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
755 integer(TKR) ::
rank(
size(array,
kind = IK))
760 module function getRankDenseDefCom_D1_IK4(array)
result(rank)
761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
762 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_IK4
765 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
766 integer(TKR) ::
rank(
size(array,
kind = IK))
771 module function getRankDenseDefCom_D1_IK3(array)
result(rank)
772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
773 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_IK3
776 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
777 integer(TKR) ::
rank(
size(array,
kind = IK))
782 module function getRankDenseDefCom_D1_IK2(array)
result(rank)
783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
784 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_IK2
787 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
788 integer(TKR) ::
rank(
size(array,
kind = IK))
793 module function getRankDenseDefCom_D1_IK1(array)
result(rank)
794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
795 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_IK1
798 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
799 integer(TKR) ::
rank(
size(array,
kind = IK))
806 module function getRankDenseDefCom_D1_LK5(array)
result(rank)
807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
808 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_LK5
811 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
812 integer(TKR) ::
rank(
size(array,
kind = IK))
817 module function getRankDenseDefCom_D1_LK4(array)
result(rank)
818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
819 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_LK4
822 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
823 integer(TKR) ::
rank(
size(array,
kind = IK))
828 module function getRankDenseDefCom_D1_LK3(array)
result(rank)
829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
830 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_LK3
833 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
834 integer(TKR) ::
rank(
size(array,
kind = IK))
839 module function getRankDenseDefCom_D1_LK2(array)
result(rank)
840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
841 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_LK2
844 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
845 integer(TKR) ::
rank(
size(array,
kind = IK))
850 module function getRankDenseDefCom_D1_LK1(array)
result(rank)
851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
852 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_LK1
855 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
856 integer(TKR) ::
rank(
size(array,
kind = IK))
863 module function getRankDenseDefCom_D1_CK5(array)
result(rank)
864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
865 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_CK5
868 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
869 integer(TKR) ::
rank(
size(array,
kind = IK))
874 module function getRankDenseDefCom_D1_CK4(array)
result(rank)
875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
876 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_CK4
879 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
880 integer(TKR) ::
rank(
size(array,
kind = IK))
885 module function getRankDenseDefCom_D1_CK3(array)
result(rank)
886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
887 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_CK3
890 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
891 integer(TKR) ::
rank(
size(array,
kind = IK))
896 module function getRankDenseDefCom_D1_CK2(array)
result(rank)
897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
898 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_CK2
901 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
902 integer(TKR) ::
rank(
size(array,
kind = IK))
907 module function getRankDenseDefCom_D1_CK1(array)
result(rank)
908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
909 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_CK1
912 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
913 integer(TKR) ::
rank(
size(array,
kind = IK))
920 module function getRankDenseDefCom_D1_RK5(array)
result(rank)
921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
922 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_RK5
925 real(RKG) ,
intent(in) ,
contiguous :: array(:)
926 integer(TKR) ::
rank(
size(array,
kind = IK))
931 module function getRankDenseDefCom_D1_RK4(array)
result(rank)
932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
933 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_RK4
936 real(RKG) ,
intent(in) ,
contiguous :: array(:)
937 integer(TKR) ::
rank(
size(array,
kind = IK))
942 module function getRankDenseDefCom_D1_RK3(array)
result(rank)
943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
944 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_RK3
947 real(RKG) ,
intent(in) ,
contiguous :: array(:)
948 integer(TKR) ::
rank(
size(array,
kind = IK))
953 module function getRankDenseDefCom_D1_RK2(array)
result(rank)
954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
955 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_RK2
958 real(RKG) ,
intent(in) ,
contiguous :: array(:)
959 integer(TKR) ::
rank(
size(array,
kind = IK))
964 module function getRankDenseDefCom_D1_RK1(array)
result(rank)
965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
966 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_RK1
969 real(RKG) ,
intent(in) ,
contiguous :: array(:)
970 integer(TKR) ::
rank(
size(array,
kind = IK))
979 module function getRankDenseDefCom_D1_PSSK5(array)
result(rank)
980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
981 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_PSSK5
985 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
986 integer(TKR) ::
rank(
size(array,
kind = IK))
991 module function getRankDenseDefCom_D1_PSSK4(array)
result(rank)
992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
993 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_PSSK4
997 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
998 integer(TKR) ::
rank(
size(array,
kind = IK))
1003 module function getRankDenseDefCom_D1_PSSK3(array)
result(rank)
1004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1005 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_PSSK3
1009 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1010 integer(TKR) ::
rank(
size(array,
kind = IK))
1015 module function getRankDenseDefCom_D1_PSSK2(array)
result(rank)
1016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1017 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_PSSK2
1021 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1022 integer(TKR) ::
rank(
size(array,
kind = IK))
1027 module function getRankDenseDefCom_D1_PSSK1(array)
result(rank)
1028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1029 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_PSSK1
1033 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1034 integer(TKR) ::
rank(
size(array,
kind = IK))
1043 module function getRankDenseDefCom_D1_BSSK(array)
result(rank)
1044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1045 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseDefCom_D1_BSSK
1049 type(css_type) ,
intent(in) ,
contiguous :: array(:)
1050 integer(TKR) ::
rank(
size(array,
kind = IK))
1062 module function getRankDenseCusCom_D0_SK5(array, isSorted)
result(rank)
1063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1064 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D0_SK5
1067 character(
*,SKG) ,
intent(in) :: array
1068 procedure(
logical(LK)) :: isSorted
1069 integer(TKR) ::
rank(
len(array, IK))
1074 module function getRankDenseCusCom_D0_SK4(array, isSorted)
result(rank)
1075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1076 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D0_SK4
1079 character(
*,SKG) ,
intent(in) :: array
1080 procedure(
logical(LK)) :: isSorted
1081 integer(TKR) ::
rank(
len(array, IK))
1086 module function getRankDenseCusCom_D0_SK3(array, isSorted)
result(rank)
1087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1088 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D0_SK3
1091 character(
*,SKG) ,
intent(in) :: array
1092 procedure(
logical(LK)) :: isSorted
1093 integer(TKR) ::
rank(
len(array, IK))
1098 module function getRankDenseCusCom_D0_SK2(array, isSorted)
result(rank)
1099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1100 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D0_SK2
1103 character(
*,SKG) ,
intent(in) :: array
1104 procedure(
logical(LK)) :: isSorted
1105 integer(TKR) ::
rank(
len(array, IK))
1110 module function getRankDenseCusCom_D0_SK1(array, isSorted)
result(rank)
1111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1112 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D0_SK1
1115 character(
*,SKG) ,
intent(in) :: array
1116 procedure(
logical(LK)) :: isSorted
1117 integer(TKR) ::
rank(
len(array, IK))
1124 module function getRankDenseCusCom_D1_SK5(array, isSorted)
result(rank)
1125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1126 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_SK5
1129 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1130 procedure(
logical(LK)) :: isSorted
1131 integer(TKR) ::
rank(
size(array,
kind = IK))
1136 module function getRankDenseCusCom_D1_SK4(array, isSorted)
result(rank)
1137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1138 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_SK4
1141 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1142 procedure(
logical(LK)) :: isSorted
1143 integer(TKR) ::
rank(
size(array,
kind = IK))
1148 module function getRankDenseCusCom_D1_SK3(array, isSorted)
result(rank)
1149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1150 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_SK3
1153 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1154 procedure(
logical(LK)) :: isSorted
1155 integer(TKR) ::
rank(
size(array,
kind = IK))
1160 module function getRankDenseCusCom_D1_SK2(array, isSorted)
result(rank)
1161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1162 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_SK2
1165 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1166 procedure(
logical(LK)) :: isSorted
1167 integer(TKR) ::
rank(
size(array,
kind = IK))
1172 module function getRankDenseCusCom_D1_SK1(array, isSorted)
result(rank)
1173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1174 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_SK1
1177 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1178 procedure(
logical(LK)) :: isSorted
1179 integer(TKR) ::
rank(
size(array,
kind = IK))
1186 module function getRankDenseCusCom_D1_IK5(array, isSorted)
result(rank)
1187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1188 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_IK5
1191 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1192 procedure(
logical(LK)) :: isSorted
1193 integer(TKR) ::
rank(
size(array,
kind = IK))
1198 module function getRankDenseCusCom_D1_IK4(array, isSorted)
result(rank)
1199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1200 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_IK4
1203 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1204 procedure(
logical(LK)) :: isSorted
1205 integer(TKR) ::
rank(
size(array,
kind = IK))
1210 module function getRankDenseCusCom_D1_IK3(array, isSorted)
result(rank)
1211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1212 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_IK3
1215 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1216 procedure(
logical(LK)) :: isSorted
1217 integer(TKR) ::
rank(
size(array,
kind = IK))
1222 module function getRankDenseCusCom_D1_IK2(array, isSorted)
result(rank)
1223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1224 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_IK2
1227 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1228 procedure(
logical(LK)) :: isSorted
1229 integer(TKR) ::
rank(
size(array,
kind = IK))
1234 module function getRankDenseCusCom_D1_IK1(array, isSorted)
result(rank)
1235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1236 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_IK1
1239 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1240 procedure(
logical(LK)) :: isSorted
1241 integer(TKR) ::
rank(
size(array,
kind = IK))
1248 module function getRankDenseCusCom_D1_LK5(array, isSorted)
result(rank)
1249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1250 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_LK5
1253 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1254 procedure(
logical(LK)) :: isSorted
1255 integer(TKR) ::
rank(
size(array,
kind = IK))
1260 module function getRankDenseCusCom_D1_LK4(array, isSorted)
result(rank)
1261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1262 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_LK4
1265 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1266 procedure(
logical(LK)) :: isSorted
1267 integer(TKR) ::
rank(
size(array,
kind = IK))
1272 module function getRankDenseCusCom_D1_LK3(array, isSorted)
result(rank)
1273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1274 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_LK3
1277 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1278 procedure(
logical(LK)) :: isSorted
1279 integer(TKR) ::
rank(
size(array,
kind = IK))
1284 module function getRankDenseCusCom_D1_LK2(array, isSorted)
result(rank)
1285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1286 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_LK2
1289 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1290 procedure(
logical(LK)) :: isSorted
1291 integer(TKR) ::
rank(
size(array,
kind = IK))
1296 module function getRankDenseCusCom_D1_LK1(array, isSorted)
result(rank)
1297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1298 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_LK1
1301 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1302 procedure(
logical(LK)) :: isSorted
1303 integer(TKR) ::
rank(
size(array,
kind = IK))
1310 module function getRankDenseCusCom_D1_CK5(array, isSorted)
result(rank)
1311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1312 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_CK5
1315 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1316 procedure(
logical(LK)) :: isSorted
1317 integer(TKR) ::
rank(
size(array,
kind = IK))
1322 module function getRankDenseCusCom_D1_CK4(array, isSorted)
result(rank)
1323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1324 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_CK4
1327 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1328 procedure(
logical(LK)) :: isSorted
1329 integer(TKR) ::
rank(
size(array,
kind = IK))
1334 module function getRankDenseCusCom_D1_CK3(array, isSorted)
result(rank)
1335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1336 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_CK3
1339 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1340 procedure(
logical(LK)) :: isSorted
1341 integer(TKR) ::
rank(
size(array,
kind = IK))
1346 module function getRankDenseCusCom_D1_CK2(array, isSorted)
result(rank)
1347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1348 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_CK2
1351 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1352 procedure(
logical(LK)) :: isSorted
1353 integer(TKR) ::
rank(
size(array,
kind = IK))
1358 module function getRankDenseCusCom_D1_CK1(array, isSorted)
result(rank)
1359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1360 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_CK1
1363 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1364 procedure(
logical(LK)) :: isSorted
1365 integer(TKR) ::
rank(
size(array,
kind = IK))
1372 module function getRankDenseCusCom_D1_RK5(array, isSorted)
result(rank)
1373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1374 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_RK5
1377 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1378 procedure(
logical(LK)) :: isSorted
1379 integer(TKR) ::
rank(
size(array,
kind = IK))
1384 module function getRankDenseCusCom_D1_RK4(array, isSorted)
result(rank)
1385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1386 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_RK4
1389 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1390 procedure(
logical(LK)) :: isSorted
1391 integer(TKR) ::
rank(
size(array,
kind = IK))
1396 module function getRankDenseCusCom_D1_RK3(array, isSorted)
result(rank)
1397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1398 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_RK3
1401 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1402 procedure(
logical(LK)) :: isSorted
1403 integer(TKR) ::
rank(
size(array,
kind = IK))
1408 module function getRankDenseCusCom_D1_RK2(array, isSorted)
result(rank)
1409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1410 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_RK2
1413 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1414 procedure(
logical(LK)) :: isSorted
1415 integer(TKR) ::
rank(
size(array,
kind = IK))
1420 module function getRankDenseCusCom_D1_RK1(array, isSorted)
result(rank)
1421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1422 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_RK1
1425 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1426 procedure(
logical(LK)) :: isSorted
1427 integer(TKR) ::
rank(
size(array,
kind = IK))
1436 module function getRankDenseCusCom_D1_PSSK5(array, isSorted)
result(rank)
1437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1438 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_PSSK5
1442 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1443 procedure(
logical(LK)) :: isSorted
1444 integer(TKR) ::
rank(
size(array,
kind = IK))
1449 module function getRankDenseCusCom_D1_PSSK4(array, isSorted)
result(rank)
1450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1451 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_PSSK4
1455 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1456 procedure(
logical(LK)) :: isSorted
1457 integer(TKR) ::
rank(
size(array,
kind = IK))
1462 module function getRankDenseCusCom_D1_PSSK3(array, isSorted)
result(rank)
1463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1464 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_PSSK3
1468 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1469 procedure(
logical(LK)) :: isSorted
1470 integer(TKR) ::
rank(
size(array,
kind = IK))
1475 module function getRankDenseCusCom_D1_PSSK2(array, isSorted)
result(rank)
1476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1477 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_PSSK2
1481 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1482 procedure(
logical(LK)) :: isSorted
1483 integer(TKR) ::
rank(
size(array,
kind = IK))
1488 module function getRankDenseCusCom_D1_PSSK1(array, isSorted)
result(rank)
1489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1490 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_PSSK1
1494 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
1495 integer(TKR) ::
rank(
size(array,
kind = IK))
1496 procedure(
logical(LK)) :: isSorted
1505 module function getRankDenseCusCom_D1_BSSK(array, isSorted)
result(rank)
1506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1507 !DEC$ ATTRIBUTES DLLEXPORT :: getRankDenseCusCom_D1_BSSK
1511 type(css_type) ,
intent(in) ,
contiguous :: array(:)
1512 procedure(
logical(LK)) :: isSorted
1513 integer(TKR) ::
rank(
size(array,
kind = IK))
1674 PURE module subroutine setRankDenseDefCom_D0_SK5(rank, array)
1675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1676 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D0_SK5
1679 character(
*,SKG) ,
intent(in) :: array
1680 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1685 PURE module subroutine setRankDenseDefCom_D0_SK4(rank, array)
1686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1687 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D0_SK4
1690 character(
*,SKG) ,
intent(in) :: array
1691 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1696 PURE module subroutine setRankDenseDefCom_D0_SK3(rank, array)
1697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1698 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D0_SK3
1701 character(
*,SKG) ,
intent(in) :: array
1702 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1707 PURE module subroutine setRankDenseDefCom_D0_SK2(rank, array)
1708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1709 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D0_SK2
1712 character(
*,SKG) ,
intent(in) :: array
1713 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1718 PURE module subroutine setRankDenseDefCom_D0_SK1(rank, array)
1719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1720 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D0_SK1
1723 character(
*,SKG) ,
intent(in) :: array
1724 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1731 PURE module subroutine setRankDenseDefCom_D1_SK5(rank, array)
1732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1733 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_SK5
1736 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1737 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1742 PURE module subroutine setRankDenseDefCom_D1_SK4(rank, array)
1743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1744 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_SK4
1747 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1748 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1753 PURE module subroutine setRankDenseDefCom_D1_SK3(rank, array)
1754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1755 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_SK3
1758 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1759 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1764 PURE module subroutine setRankDenseDefCom_D1_SK2(rank, array)
1765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1766 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_SK2
1769 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1770 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1775 PURE module subroutine setRankDenseDefCom_D1_SK1(rank, array)
1776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1777 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_SK1
1780 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
1781 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1788 PURE module subroutine setRankDenseDefCom_D1_IK5(rank, array)
1789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1790 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_IK5
1793 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1794 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1799 PURE module subroutine setRankDenseDefCom_D1_IK4(rank, array)
1800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1801 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_IK4
1804 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1805 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1810 PURE module subroutine setRankDenseDefCom_D1_IK3(rank, array)
1811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1812 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_IK3
1815 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1816 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1821 PURE module subroutine setRankDenseDefCom_D1_IK2(rank, array)
1822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1823 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_IK2
1826 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1827 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1832 PURE module subroutine setRankDenseDefCom_D1_IK1(rank, array)
1833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1834 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_IK1
1837 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
1838 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1845 PURE module subroutine setRankDenseDefCom_D1_LK5(rank, array)
1846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1847 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_LK5
1850 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1851 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1856 PURE module subroutine setRankDenseDefCom_D1_LK4(rank, array)
1857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1858 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_LK4
1861 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1862 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1867 PURE module subroutine setRankDenseDefCom_D1_LK3(rank, array)
1868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1869 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_LK3
1872 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1873 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1878 PURE module subroutine setRankDenseDefCom_D1_LK2(rank, array)
1879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1880 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_LK2
1883 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1884 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1889 PURE module subroutine setRankDenseDefCom_D1_LK1(rank, array)
1890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1891 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_LK1
1894 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
1895 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1902 PURE module subroutine setRankDenseDefCom_D1_CK5(rank, array)
1903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1904 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_CK5
1907 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1908 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1913 PURE module subroutine setRankDenseDefCom_D1_CK4(rank, array)
1914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1915 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_CK4
1918 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1919 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1924 PURE module subroutine setRankDenseDefCom_D1_CK3(rank, array)
1925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1926 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_CK3
1929 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1930 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1935 PURE module subroutine setRankDenseDefCom_D1_CK2(rank, array)
1936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1937 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_CK2
1940 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1941 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1946 PURE module subroutine setRankDenseDefCom_D1_CK1(rank, array)
1947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1948 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_CK1
1951 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
1952 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1959 PURE module subroutine setRankDenseDefCom_D1_RK5(rank, array)
1960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1961 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_RK5
1964 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1965 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1970 PURE module subroutine setRankDenseDefCom_D1_RK4(rank, array)
1971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1972 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_RK4
1975 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1976 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1981 PURE module subroutine setRankDenseDefCom_D1_RK3(rank, array)
1982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1983 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_RK3
1986 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1987 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
1992 PURE module subroutine setRankDenseDefCom_D1_RK2(rank, array)
1993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1994 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_RK2
1997 real(RKG) ,
intent(in) ,
contiguous :: array(:)
1998 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2003 PURE module subroutine setRankDenseDefCom_D1_RK1(rank, array)
2004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2005 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_RK1
2008 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2009 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2018 PURE module subroutine setRankDenseDefCom_D1_PSSK5(rank, array)
2019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2020 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_PSSK5
2024 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2025 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2030 PURE module subroutine setRankDenseDefCom_D1_PSSK4(rank, array)
2031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2032 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_PSSK4
2036 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2037 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2042 PURE module subroutine setRankDenseDefCom_D1_PSSK3(rank, array)
2043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2044 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_PSSK3
2048 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2049 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2054 PURE module subroutine setRankDenseDefCom_D1_PSSK2(rank, array)
2055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2056 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_PSSK2
2060 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2061 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2066 PURE module subroutine setRankDenseDefCom_D1_PSSK1(rank, array)
2067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2068 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_PSSK1
2072 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2073 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2082 PURE module subroutine setRankDenseDefCom_D1_BSSK(rank, array)
2083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2084 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseDefCom_D1_BSSK
2088 type(css_type) ,
intent(in) ,
contiguous :: array(:)
2089 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2101 module subroutine setRankDenseCusCom_D0_SK5(rank, array, isSorted)
2102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2103 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D0_SK5
2106 character(
*,SKG) ,
intent(in) :: array
2107 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2108 procedure(
logical(LK)) :: isSorted
2113 module subroutine setRankDenseCusCom_D0_SK4(rank, array, isSorted)
2114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2115 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D0_SK4
2118 character(
*,SKG) ,
intent(in) :: array
2119 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2120 procedure(
logical(LK)) :: isSorted
2125 module subroutine setRankDenseCusCom_D0_SK3(rank, array, isSorted)
2126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2127 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D0_SK3
2130 character(
*,SKG) ,
intent(in) :: array
2131 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2132 procedure(
logical(LK)) :: isSorted
2137 module subroutine setRankDenseCusCom_D0_SK2(rank, array, isSorted)
2138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2139 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D0_SK2
2142 character(
*,SKG) ,
intent(in) :: array
2143 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2144 procedure(
logical(LK)) :: isSorted
2149 module subroutine setRankDenseCusCom_D0_SK1(rank, array, isSorted)
2150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2151 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D0_SK1
2154 character(
*,SKG) ,
intent(in) :: array
2155 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2156 procedure(
logical(LK)) :: isSorted
2163 module subroutine setRankDenseCusCom_D1_SK5(rank, array, isSorted)
2164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2165 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_SK5
2168 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2169 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2170 procedure(
logical(LK)) :: isSorted
2175 module subroutine setRankDenseCusCom_D1_SK4(rank, array, isSorted)
2176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2177 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_SK4
2180 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2181 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2182 procedure(
logical(LK)) :: isSorted
2187 module subroutine setRankDenseCusCom_D1_SK3(rank, array, isSorted)
2188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2189 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_SK3
2192 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2193 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2194 procedure(
logical(LK)) :: isSorted
2199 module subroutine setRankDenseCusCom_D1_SK2(rank, array, isSorted)
2200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2201 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_SK2
2204 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2205 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2206 procedure(
logical(LK)) :: isSorted
2211 module subroutine setRankDenseCusCom_D1_SK1(rank, array, isSorted)
2212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2213 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_SK1
2216 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2217 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2218 procedure(
logical(LK)) :: isSorted
2225 module subroutine setRankDenseCusCom_D1_IK5(rank, array, isSorted)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_IK5
2230 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2231 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2232 procedure(
logical(LK)) :: isSorted
2237 module subroutine setRankDenseCusCom_D1_IK4(rank, array, isSorted)
2238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2239 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_IK4
2242 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2243 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2244 procedure(
logical(LK)) :: isSorted
2249 module subroutine setRankDenseCusCom_D1_IK3(rank, array, isSorted)
2250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2251 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_IK3
2254 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2255 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2256 procedure(
logical(LK)) :: isSorted
2261 module subroutine setRankDenseCusCom_D1_IK2(rank, array, isSorted)
2262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2263 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_IK2
2266 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2267 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2268 procedure(
logical(LK)) :: isSorted
2273 module subroutine setRankDenseCusCom_D1_IK1(rank, array, isSorted)
2274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2275 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_IK1
2278 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2279 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2280 procedure(
logical(LK)) :: isSorted
2287 module subroutine setRankDenseCusCom_D1_LK5(rank, array, isSorted)
2288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2289 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_LK5
2292 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2293 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2294 procedure(
logical(LK)) :: isSorted
2299 module subroutine setRankDenseCusCom_D1_LK4(rank, array, isSorted)
2300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2301 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_LK4
2304 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2305 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2306 procedure(
logical(LK)) :: isSorted
2311 module subroutine setRankDenseCusCom_D1_LK3(rank, array, isSorted)
2312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2313 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_LK3
2316 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2317 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2318 procedure(
logical(LK)) :: isSorted
2323 module subroutine setRankDenseCusCom_D1_LK2(rank, array, isSorted)
2324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2325 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_LK2
2328 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2329 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2330 procedure(
logical(LK)) :: isSorted
2335 module subroutine setRankDenseCusCom_D1_LK1(rank, array, isSorted)
2336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2337 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_LK1
2340 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2341 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2342 procedure(
logical(LK)) :: isSorted
2349 module subroutine setRankDenseCusCom_D1_CK5(rank, array, isSorted)
2350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2351 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_CK5
2354 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2355 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2356 procedure(
logical(LK)) :: isSorted
2361 module subroutine setRankDenseCusCom_D1_CK4(rank, array, isSorted)
2362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2363 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_CK4
2366 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2367 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2368 procedure(
logical(LK)) :: isSorted
2373 module subroutine setRankDenseCusCom_D1_CK3(rank, array, isSorted)
2374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2375 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_CK3
2378 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2379 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2380 procedure(
logical(LK)) :: isSorted
2385 module subroutine setRankDenseCusCom_D1_CK2(rank, array, isSorted)
2386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2387 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_CK2
2390 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2391 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2392 procedure(
logical(LK)) :: isSorted
2397 module subroutine setRankDenseCusCom_D1_CK1(rank, array, isSorted)
2398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2399 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_CK1
2402 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2403 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2404 procedure(
logical(LK)) :: isSorted
2411 module subroutine setRankDenseCusCom_D1_RK5(rank, array, isSorted)
2412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2413 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_RK5
2416 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2417 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2418 procedure(
logical(LK)) :: isSorted
2423 module subroutine setRankDenseCusCom_D1_RK4(rank, array, isSorted)
2424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2425 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_RK4
2428 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2429 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2430 procedure(
logical(LK)) :: isSorted
2435 module subroutine setRankDenseCusCom_D1_RK3(rank, array, isSorted)
2436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2437 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_RK3
2440 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2441 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2442 procedure(
logical(LK)) :: isSorted
2447 module subroutine setRankDenseCusCom_D1_RK2(rank, array, isSorted)
2448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2449 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_RK2
2452 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2453 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2454 procedure(
logical(LK)) :: isSorted
2459 module subroutine setRankDenseCusCom_D1_RK1(rank, array, isSorted)
2460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2461 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_RK1
2464 real(RKG) ,
intent(in) ,
contiguous :: array(:)
2465 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2466 procedure(
logical(LK)) :: isSorted
2475 module subroutine setRankDenseCusCom_D1_PSSK5(rank, array, isSorted)
2476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2477 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_PSSK5
2481 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2482 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2483 procedure(
logical(LK)) :: isSorted
2488 module subroutine setRankDenseCusCom_D1_PSSK4(rank, array, isSorted)
2489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2490 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_PSSK4
2494 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2495 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2496 procedure(
logical(LK)) :: isSorted
2501 module subroutine setRankDenseCusCom_D1_PSSK3(rank, array, isSorted)
2502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2503 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_PSSK3
2507 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2508 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2509 procedure(
logical(LK)) :: isSorted
2514 module subroutine setRankDenseCusCom_D1_PSSK2(rank, array, isSorted)
2515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2516 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_PSSK2
2520 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2521 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2522 procedure(
logical(LK)) :: isSorted
2527 module subroutine setRankDenseCusCom_D1_PSSK1(rank, array, isSorted)
2528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2529 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_PSSK1
2533 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
2534 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2535 procedure(
logical(LK)) :: isSorted
2544 module subroutine setRankDenseCusCom_D1_BSSK(rank, array, isSorted)
2545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2546 !DEC$ ATTRIBUTES DLLEXPORT :: setRankDenseCusCom_D1_BSSK
2550 type(css_type) ,
intent(in) ,
contiguous :: array(:)
2551 integer(TKR) ,
intent(out) ,
contiguous ::
rank(:)
2552 procedure(
logical(LK)) :: isSorted
2715 module function getRankFractionalDefCom_D0_SK5(array)
result(rank)
2716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2717 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D0_SK5
2720 character(
*,SKG) ,
intent(in) :: array
2721 real(TKR) ::
rank(
len(array, IK))
2726 module function getRankFractionalDefCom_D0_SK4(array)
result(rank)
2727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2728 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D0_SK4
2731 character(
*,SKG) ,
intent(in) :: array
2732 real(TKR) ::
rank(
len(array, IK))
2737 module function getRankFractionalDefCom_D0_SK3(array)
result(rank)
2738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2739 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D0_SK3
2742 character(
*,SKG) ,
intent(in) :: array
2743 real(TKR) ::
rank(
len(array, IK))
2748 module function getRankFractionalDefCom_D0_SK2(array)
result(rank)
2749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2750 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D0_SK2
2753 character(
*,SKG) ,
intent(in) :: array
2754 real(TKR) ::
rank(
len(array, IK))
2759 module function getRankFractionalDefCom_D0_SK1(array)
result(rank)
2760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2761 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D0_SK1
2764 character(
*,SKG) ,
intent(in) :: array
2765 real(TKR) ::
rank(
len(array, IK))
2772 module function getRankFractionalDefCom_D1_SK5(array)
result(rank)
2773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2774 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_SK5
2777 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2778 real(TKR) ::
rank(
size(array,
kind = IK))
2783 module function getRankFractionalDefCom_D1_SK4(array)
result(rank)
2784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2785 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_SK4
2788 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2789 real(TKR) ::
rank(
size(array,
kind = IK))
2794 module function getRankFractionalDefCom_D1_SK3(array)
result(rank)
2795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2796 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_SK3
2799 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2800 real(TKR) ::
rank(
size(array,
kind = IK))
2805 module function getRankFractionalDefCom_D1_SK2(array)
result(rank)
2806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2807 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_SK2
2810 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2811 real(TKR) ::
rank(
size(array,
kind = IK))
2816 module function getRankFractionalDefCom_D1_SK1(array)
result(rank)
2817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2818 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_SK1
2821 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
2822 real(TKR) ::
rank(
size(array,
kind = IK))
2829 module function getRankFractionalDefCom_D1_IK5(array)
result(rank)
2830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2831 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_IK5
2834 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2835 real(TKR) ::
rank(
size(array,
kind = IK))
2840 module function getRankFractionalDefCom_D1_IK4(array)
result(rank)
2841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2842 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_IK4
2845 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2846 real(TKR) ::
rank(
size(array,
kind = IK))
2851 module function getRankFractionalDefCom_D1_IK3(array)
result(rank)
2852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2853 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_IK3
2856 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2857 real(TKR) ::
rank(
size(array,
kind = IK))
2862 module function getRankFractionalDefCom_D1_IK2(array)
result(rank)
2863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2864 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_IK2
2867 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2868 real(TKR) ::
rank(
size(array,
kind = IK))
2873 module function getRankFractionalDefCom_D1_IK1(array)
result(rank)
2874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2875 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_IK1
2878 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
2879 real(TKR) ::
rank(
size(array,
kind = IK))
2886 module function getRankFractionalDefCom_D1_LK5(array)
result(rank)
2887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2888 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_LK5
2891 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2892 real(TKR) ::
rank(
size(array,
kind = IK))
2897 module function getRankFractionalDefCom_D1_LK4(array)
result(rank)
2898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2899 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_LK4
2902 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2903 real(TKR) ::
rank(
size(array,
kind = IK))
2908 module function getRankFractionalDefCom_D1_LK3(array)
result(rank)
2909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2910 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_LK3
2913 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2914 real(TKR) ::
rank(
size(array,
kind = IK))
2919 module function getRankFractionalDefCom_D1_LK2(array)
result(rank)
2920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2921 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_LK2
2924 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2925 real(TKR) ::
rank(
size(array,
kind = IK))
2930 module function getRankFractionalDefCom_D1_LK1(array)
result(rank)
2931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2932 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_LK1
2935 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
2936 real(TKR) ::
rank(
size(array,
kind = IK))
2943 module function getRankFractionalDefCom_D1_CK5(array)
result(rank)
2944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2945 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_CK5
2948 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2949 real(TKR) ::
rank(
size(array,
kind = IK))
2954 module function getRankFractionalDefCom_D1_CK4(array)
result(rank)
2955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2956 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_CK4
2959 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2960 real(TKR) ::
rank(
size(array,
kind = IK))
2965 module function getRankFractionalDefCom_D1_CK3(array)
result(rank)
2966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2967 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_CK3
2970 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2971 real(TKR) ::
rank(
size(array,
kind = IK))
2976 module function getRankFractionalDefCom_D1_CK2(array)
result(rank)
2977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2978 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_CK2
2981 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2982 real(TKR) ::
rank(
size(array,
kind = IK))
2987 module function getRankFractionalDefCom_D1_CK1(array)
result(rank)
2988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2989 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_CK1
2992 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
2993 real(TKR) ::
rank(
size(array,
kind = IK))
3000 module function getRankFractionalDefCom_D1_RK5(array)
result(rank)
3001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3002 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_RK5
3005 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3006 real(TKR) ::
rank(
size(array,
kind = IK))
3011 module function getRankFractionalDefCom_D1_RK4(array)
result(rank)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_RK4
3016 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3017 real(TKR) ::
rank(
size(array,
kind = IK))
3022 module function getRankFractionalDefCom_D1_RK3(array)
result(rank)
3023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3024 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_RK3
3027 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3028 real(TKR) ::
rank(
size(array,
kind = IK))
3033 module function getRankFractionalDefCom_D1_RK2(array)
result(rank)
3034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3035 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_RK2
3038 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3039 real(TKR) ::
rank(
size(array,
kind = IK))
3044 module function getRankFractionalDefCom_D1_RK1(array)
result(rank)
3045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3046 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_RK1
3049 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3050 real(TKR) ::
rank(
size(array,
kind = IK))
3059 module function getRankFractionalDefCom_D1_PSSK5(array)
result(rank)
3060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3061 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_PSSK5
3065 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3066 real(TKR) ::
rank(
size(array,
kind = IK))
3071 module function getRankFractionalDefCom_D1_PSSK4(array)
result(rank)
3072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3073 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_PSSK4
3077 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3078 real(TKR) ::
rank(
size(array,
kind = IK))
3083 module function getRankFractionalDefCom_D1_PSSK3(array)
result(rank)
3084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3085 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_PSSK3
3089 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3090 real(TKR) ::
rank(
size(array,
kind = IK))
3095 module function getRankFractionalDefCom_D1_PSSK2(array)
result(rank)
3096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3097 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_PSSK2
3101 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3102 real(TKR) ::
rank(
size(array,
kind = IK))
3107 module function getRankFractionalDefCom_D1_PSSK1(array)
result(rank)
3108#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3109 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_PSSK1
3113 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3114 real(TKR) ::
rank(
size(array,
kind = IK))
3123 module function getRankFractionalDefCom_D1_BSSK(array)
result(rank)
3124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3125 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalDefCom_D1_BSSK
3129 type(css_type) ,
intent(in) ,
contiguous :: array(:)
3130 real(TKR) ::
rank(
size(array,
kind = IK))
3142 module function getRankFractionalCusCom_D0_SK5(array, isSorted)
result(rank)
3143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3144 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D0_SK5
3147 character(
*,SKG) ,
intent(in) :: array
3148 procedure(
logical(LK)) :: isSorted
3149 real(TKR) ::
rank(
len(array, IK))
3154 module function getRankFractionalCusCom_D0_SK4(array, isSorted)
result(rank)
3155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3156 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D0_SK4
3159 character(
*,SKG) ,
intent(in) :: array
3160 procedure(
logical(LK)) :: isSorted
3161 real(TKR) ::
rank(
len(array, IK))
3166 module function getRankFractionalCusCom_D0_SK3(array, isSorted)
result(rank)
3167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3168 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D0_SK3
3171 character(
*,SKG) ,
intent(in) :: array
3172 procedure(
logical(LK)) :: isSorted
3173 real(TKR) ::
rank(
len(array, IK))
3178 module function getRankFractionalCusCom_D0_SK2(array, isSorted)
result(rank)
3179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3180 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D0_SK2
3183 character(
*,SKG) ,
intent(in) :: array
3184 procedure(
logical(LK)) :: isSorted
3185 real(TKR) ::
rank(
len(array, IK))
3190 module function getRankFractionalCusCom_D0_SK1(array, isSorted)
result(rank)
3191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3192 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D0_SK1
3195 character(
*,SKG) ,
intent(in) :: array
3196 procedure(
logical(LK)) :: isSorted
3197 real(TKR) ::
rank(
len(array, IK))
3204 module function getRankFractionalCusCom_D1_SK5(array, isSorted)
result(rank)
3205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3206 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_SK5
3209 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3210 procedure(
logical(LK)) :: isSorted
3211 real(TKR) ::
rank(
size(array,
kind = IK))
3216 module function getRankFractionalCusCom_D1_SK4(array, isSorted)
result(rank)
3217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3218 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_SK4
3221 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3222 procedure(
logical(LK)) :: isSorted
3223 real(TKR) ::
rank(
size(array,
kind = IK))
3228 module function getRankFractionalCusCom_D1_SK3(array, isSorted)
result(rank)
3229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3230 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_SK3
3233 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3234 procedure(
logical(LK)) :: isSorted
3235 real(TKR) ::
rank(
size(array,
kind = IK))
3240 module function getRankFractionalCusCom_D1_SK2(array, isSorted)
result(rank)
3241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3242 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_SK2
3245 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3246 procedure(
logical(LK)) :: isSorted
3247 real(TKR) ::
rank(
size(array,
kind = IK))
3252 module function getRankFractionalCusCom_D1_SK1(array, isSorted)
result(rank)
3253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3254 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_SK1
3257 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3258 procedure(
logical(LK)) :: isSorted
3259 real(TKR) ::
rank(
size(array,
kind = IK))
3266 module function getRankFractionalCusCom_D1_IK5(array, isSorted)
result(rank)
3267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3268 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_IK5
3271 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3272 procedure(
logical(LK)) :: isSorted
3273 real(TKR) ::
rank(
size(array,
kind = IK))
3278 module function getRankFractionalCusCom_D1_IK4(array, isSorted)
result(rank)
3279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3280 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_IK4
3283 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3284 procedure(
logical(LK)) :: isSorted
3285 real(TKR) ::
rank(
size(array,
kind = IK))
3290 module function getRankFractionalCusCom_D1_IK3(array, isSorted)
result(rank)
3291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3292 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_IK3
3295 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3296 procedure(
logical(LK)) :: isSorted
3297 real(TKR) ::
rank(
size(array,
kind = IK))
3302 module function getRankFractionalCusCom_D1_IK2(array, isSorted)
result(rank)
3303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3304 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_IK2
3307 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3308 procedure(
logical(LK)) :: isSorted
3309 real(TKR) ::
rank(
size(array,
kind = IK))
3314 module function getRankFractionalCusCom_D1_IK1(array, isSorted)
result(rank)
3315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3316 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_IK1
3319 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3320 procedure(
logical(LK)) :: isSorted
3321 real(TKR) ::
rank(
size(array,
kind = IK))
3328 module function getRankFractionalCusCom_D1_LK5(array, isSorted)
result(rank)
3329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3330 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_LK5
3333 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3334 procedure(
logical(LK)) :: isSorted
3335 real(TKR) ::
rank(
size(array,
kind = IK))
3340 module function getRankFractionalCusCom_D1_LK4(array, isSorted)
result(rank)
3341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3342 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_LK4
3345 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3346 procedure(
logical(LK)) :: isSorted
3347 real(TKR) ::
rank(
size(array,
kind = IK))
3352 module function getRankFractionalCusCom_D1_LK3(array, isSorted)
result(rank)
3353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3354 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_LK3
3357 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3358 procedure(
logical(LK)) :: isSorted
3359 real(TKR) ::
rank(
size(array,
kind = IK))
3364 module function getRankFractionalCusCom_D1_LK2(array, isSorted)
result(rank)
3365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3366 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_LK2
3369 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3370 procedure(
logical(LK)) :: isSorted
3371 real(TKR) ::
rank(
size(array,
kind = IK))
3376 module function getRankFractionalCusCom_D1_LK1(array, isSorted)
result(rank)
3377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3378 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_LK1
3381 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3382 procedure(
logical(LK)) :: isSorted
3383 real(TKR) ::
rank(
size(array,
kind = IK))
3390 module function getRankFractionalCusCom_D1_CK5(array, isSorted)
result(rank)
3391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3392 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_CK5
3395 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3396 procedure(
logical(LK)) :: isSorted
3397 real(TKR) ::
rank(
size(array,
kind = IK))
3402 module function getRankFractionalCusCom_D1_CK4(array, isSorted)
result(rank)
3403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3404 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_CK4
3407 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3408 procedure(
logical(LK)) :: isSorted
3409 real(TKR) ::
rank(
size(array,
kind = IK))
3414 module function getRankFractionalCusCom_D1_CK3(array, isSorted)
result(rank)
3415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3416 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_CK3
3419 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3420 procedure(
logical(LK)) :: isSorted
3421 real(TKR) ::
rank(
size(array,
kind = IK))
3426 module function getRankFractionalCusCom_D1_CK2(array, isSorted)
result(rank)
3427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3428 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_CK2
3431 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3432 procedure(
logical(LK)) :: isSorted
3433 real(TKR) ::
rank(
size(array,
kind = IK))
3438 module function getRankFractionalCusCom_D1_CK1(array, isSorted)
result(rank)
3439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3440 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_CK1
3443 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3444 procedure(
logical(LK)) :: isSorted
3445 real(TKR) ::
rank(
size(array,
kind = IK))
3452 module function getRankFractionalCusCom_D1_RK5(array, isSorted)
result(rank)
3453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3454 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_RK5
3457 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3458 procedure(
logical(LK)) :: isSorted
3459 real(TKR) ::
rank(
size(array,
kind = IK))
3464 module function getRankFractionalCusCom_D1_RK4(array, isSorted)
result(rank)
3465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3466 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_RK4
3469 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3470 procedure(
logical(LK)) :: isSorted
3471 real(TKR) ::
rank(
size(array,
kind = IK))
3476 module function getRankFractionalCusCom_D1_RK3(array, isSorted)
result(rank)
3477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3478 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_RK3
3481 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3482 procedure(
logical(LK)) :: isSorted
3483 real(TKR) ::
rank(
size(array,
kind = IK))
3488 module function getRankFractionalCusCom_D1_RK2(array, isSorted)
result(rank)
3489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3490 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_RK2
3493 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3494 procedure(
logical(LK)) :: isSorted
3495 real(TKR) ::
rank(
size(array,
kind = IK))
3500 module function getRankFractionalCusCom_D1_RK1(array, isSorted)
result(rank)
3501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3502 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_RK1
3505 real(RKG) ,
intent(in) ,
contiguous :: array(:)
3506 procedure(
logical(LK)) :: isSorted
3507 real(TKR) ::
rank(
size(array,
kind = IK))
3516 module function getRankFractionalCusCom_D1_PSSK5(array, isSorted)
result(rank)
3517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3518 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_PSSK5
3522 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3523 procedure(
logical(LK)) :: isSorted
3524 real(TKR) ::
rank(
size(array,
kind = IK))
3529 module function getRankFractionalCusCom_D1_PSSK4(array, isSorted)
result(rank)
3530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3531 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_PSSK4
3535 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3536 procedure(
logical(LK)) :: isSorted
3537 real(TKR) ::
rank(
size(array,
kind = IK))
3542 module function getRankFractionalCusCom_D1_PSSK3(array, isSorted)
result(rank)
3543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3544 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_PSSK3
3548 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3549 procedure(
logical(LK)) :: isSorted
3550 real(TKR) ::
rank(
size(array,
kind = IK))
3555 module function getRankFractionalCusCom_D1_PSSK2(array, isSorted)
result(rank)
3556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3557 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_PSSK2
3561 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3562 procedure(
logical(LK)) :: isSorted
3563 real(TKR) ::
rank(
size(array,
kind = IK))
3568 module function getRankFractionalCusCom_D1_PSSK1(array, isSorted)
result(rank)
3569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3570 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_PSSK1
3574 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
3575 real(TKR) ::
rank(
size(array,
kind = IK))
3576 procedure(
logical(LK)) :: isSorted
3585 module function getRankFractionalCusCom_D1_BSSK(array, isSorted)
result(rank)
3586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3587 !DEC$ ATTRIBUTES DLLEXPORT :: getRankFractionalCusCom_D1_BSSK
3591 type(css_type) ,
intent(in) ,
contiguous :: array(:)
3592 procedure(
logical(LK)) :: isSorted
3593 real(TKR) ::
rank(
size(array,
kind = IK))
3760 PURE module subroutine setRankFractionalDefCom_D0_SK5(rank, array)
3761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3762 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D0_SK5
3765 character(
*,SKG) ,
intent(in) :: array
3766 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3771 PURE module subroutine setRankFractionalDefCom_D0_SK4(rank, array)
3772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3773 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D0_SK4
3776 character(
*,SKG) ,
intent(in) :: array
3777 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3782 PURE module subroutine setRankFractionalDefCom_D0_SK3(rank, array)
3783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3784 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D0_SK3
3787 character(
*,SKG) ,
intent(in) :: array
3788 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3793 PURE module subroutine setRankFractionalDefCom_D0_SK2(rank, array)
3794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3795 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D0_SK2
3798 character(
*,SKG) ,
intent(in) :: array
3799 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3804 PURE module subroutine setRankFractionalDefCom_D0_SK1(rank, array)
3805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3806 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D0_SK1
3809 character(
*,SKG) ,
intent(in) :: array
3810 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3817 PURE module subroutine setRankFractionalDefCom_D1_SK5(rank, array)
3818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3819 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_SK5
3822 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3823 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3828 PURE module subroutine setRankFractionalDefCom_D1_SK4(rank, array)
3829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3830 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_SK4
3833 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3834 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3839 PURE module subroutine setRankFractionalDefCom_D1_SK3(rank, array)
3840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3841 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_SK3
3844 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3845 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3850 PURE module subroutine setRankFractionalDefCom_D1_SK2(rank, array)
3851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3852 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_SK2
3855 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3856 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3861 PURE module subroutine setRankFractionalDefCom_D1_SK1(rank, array)
3862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3863 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_SK1
3866 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
3867 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3874 PURE module subroutine setRankFractionalDefCom_D1_IK5(rank, array)
3875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3876 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_IK5
3879 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3880 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3885 PURE module subroutine setRankFractionalDefCom_D1_IK4(rank, array)
3886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3887 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_IK4
3890 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3891 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3896 PURE module subroutine setRankFractionalDefCom_D1_IK3(rank, array)
3897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3898 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_IK3
3901 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3902 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3907 PURE module subroutine setRankFractionalDefCom_D1_IK2(rank, array)
3908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3909 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_IK2
3912 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3913 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3918 PURE module subroutine setRankFractionalDefCom_D1_IK1(rank, array)
3919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3920 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_IK1
3923 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
3924 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3931 PURE module subroutine setRankFractionalDefCom_D1_LK5(rank, array)
3932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3933 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_LK5
3936 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3937 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3942 PURE module subroutine setRankFractionalDefCom_D1_LK4(rank, array)
3943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3944 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_LK4
3947 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3948 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3953 PURE module subroutine setRankFractionalDefCom_D1_LK3(rank, array)
3954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3955 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_LK3
3958 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3959 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3964 PURE module subroutine setRankFractionalDefCom_D1_LK2(rank, array)
3965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3966 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_LK2
3969 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3970 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3975 PURE module subroutine setRankFractionalDefCom_D1_LK1(rank, array)
3976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3977 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_LK1
3980 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
3981 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3988 PURE module subroutine setRankFractionalDefCom_D1_CK5(rank, array)
3989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3990 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_CK5
3993 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
3994 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
3999 PURE module subroutine setRankFractionalDefCom_D1_CK4(rank, array)
4000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4001 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_CK4
4004 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4005 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4010 PURE module subroutine setRankFractionalDefCom_D1_CK3(rank, array)
4011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4012 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_CK3
4015 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4016 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4021 PURE module subroutine setRankFractionalDefCom_D1_CK2(rank, array)
4022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4023 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_CK2
4026 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4027 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4032 PURE module subroutine setRankFractionalDefCom_D1_CK1(rank, array)
4033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4034 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_CK1
4037 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4038 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4045 PURE module subroutine setRankFractionalDefCom_D1_RK5(rank, array)
4046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4047 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_RK5
4050 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4051 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4056 PURE module subroutine setRankFractionalDefCom_D1_RK4(rank, array)
4057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4058 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_RK4
4061 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4062 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4067 PURE module subroutine setRankFractionalDefCom_D1_RK3(rank, array)
4068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4069 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_RK3
4072 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4073 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4078 PURE module subroutine setRankFractionalDefCom_D1_RK2(rank, array)
4079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4080 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_RK2
4083 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4084 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4089 PURE module subroutine setRankFractionalDefCom_D1_RK1(rank, array)
4090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4091 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_RK1
4094 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4095 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4104 PURE module subroutine setRankFractionalDefCom_D1_PSSK5(rank, array)
4105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4106 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_PSSK5
4110 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4111 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4116 PURE module subroutine setRankFractionalDefCom_D1_PSSK4(rank, array)
4117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4118 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_PSSK4
4122 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4123 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4128 PURE module subroutine setRankFractionalDefCom_D1_PSSK3(rank, array)
4129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4130 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_PSSK3
4134 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4135 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4140 PURE module subroutine setRankFractionalDefCom_D1_PSSK2(rank, array)
4141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4142 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_PSSK2
4146 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4147 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4152 PURE module subroutine setRankFractionalDefCom_D1_PSSK1(rank, array)
4153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4154 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_PSSK1
4158 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4159 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4168 PURE module subroutine setRankFractionalDefCom_D1_BSSK(rank, array)
4169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4170 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalDefCom_D1_BSSK
4174 type(css_type) ,
intent(in) ,
contiguous :: array(:)
4175 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4187 module subroutine setRankFractionalCusCom_D0_SK5(rank, array, isSorted)
4188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4189 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D0_SK5
4192 character(
*,SKG) ,
intent(in) :: array
4193 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4194 procedure(
logical(LK)) :: isSorted
4199 module subroutine setRankFractionalCusCom_D0_SK4(rank, array, isSorted)
4200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4201 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D0_SK4
4204 character(
*,SKG) ,
intent(in) :: array
4205 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4206 procedure(
logical(LK)) :: isSorted
4211 module subroutine setRankFractionalCusCom_D0_SK3(rank, array, isSorted)
4212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4213 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D0_SK3
4216 character(
*,SKG) ,
intent(in) :: array
4217 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4218 procedure(
logical(LK)) :: isSorted
4223 module subroutine setRankFractionalCusCom_D0_SK2(rank, array, isSorted)
4224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4225 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D0_SK2
4228 character(
*,SKG) ,
intent(in) :: array
4229 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4230 procedure(
logical(LK)) :: isSorted
4235 module subroutine setRankFractionalCusCom_D0_SK1(rank, array, isSorted)
4236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4237 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D0_SK1
4240 character(
*,SKG) ,
intent(in) :: array
4241 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4242 procedure(
logical(LK)) :: isSorted
4249 module subroutine setRankFractionalCusCom_D1_SK5(rank, array, isSorted)
4250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4251 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_SK5
4254 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4255 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4256 procedure(
logical(LK)) :: isSorted
4261 module subroutine setRankFractionalCusCom_D1_SK4(rank, array, isSorted)
4262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4263 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_SK4
4266 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4267 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4268 procedure(
logical(LK)) :: isSorted
4273 module subroutine setRankFractionalCusCom_D1_SK3(rank, array, isSorted)
4274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4275 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_SK3
4278 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4279 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4280 procedure(
logical(LK)) :: isSorted
4285 module subroutine setRankFractionalCusCom_D1_SK2(rank, array, isSorted)
4286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4287 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_SK2
4290 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4291 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4292 procedure(
logical(LK)) :: isSorted
4297 module subroutine setRankFractionalCusCom_D1_SK1(rank, array, isSorted)
4298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4299 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_SK1
4302 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4303 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4304 procedure(
logical(LK)) :: isSorted
4311 module subroutine setRankFractionalCusCom_D1_IK5(rank, array, isSorted)
4312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4313 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_IK5
4316 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4317 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4318 procedure(
logical(LK)) :: isSorted
4323 module subroutine setRankFractionalCusCom_D1_IK4(rank, array, isSorted)
4324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4325 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_IK4
4328 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4329 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4330 procedure(
logical(LK)) :: isSorted
4335 module subroutine setRankFractionalCusCom_D1_IK3(rank, array, isSorted)
4336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4337 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_IK3
4340 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4341 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4342 procedure(
logical(LK)) :: isSorted
4347 module subroutine setRankFractionalCusCom_D1_IK2(rank, array, isSorted)
4348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4349 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_IK2
4352 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4353 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4354 procedure(
logical(LK)) :: isSorted
4359 module subroutine setRankFractionalCusCom_D1_IK1(rank, array, isSorted)
4360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4361 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_IK1
4364 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4365 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4366 procedure(
logical(LK)) :: isSorted
4373 module subroutine setRankFractionalCusCom_D1_LK5(rank, array, isSorted)
4374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4375 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_LK5
4378 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4379 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4380 procedure(
logical(LK)) :: isSorted
4385 module subroutine setRankFractionalCusCom_D1_LK4(rank, array, isSorted)
4386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4387 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_LK4
4390 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4391 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4392 procedure(
logical(LK)) :: isSorted
4397 module subroutine setRankFractionalCusCom_D1_LK3(rank, array, isSorted)
4398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4399 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_LK3
4402 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4403 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4404 procedure(
logical(LK)) :: isSorted
4409 module subroutine setRankFractionalCusCom_D1_LK2(rank, array, isSorted)
4410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4411 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_LK2
4414 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4415 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4416 procedure(
logical(LK)) :: isSorted
4421 module subroutine setRankFractionalCusCom_D1_LK1(rank, array, isSorted)
4422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4423 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_LK1
4426 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4427 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4428 procedure(
logical(LK)) :: isSorted
4435 module subroutine setRankFractionalCusCom_D1_CK5(rank, array, isSorted)
4436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4437 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_CK5
4440 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4441 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4442 procedure(
logical(LK)) :: isSorted
4447 module subroutine setRankFractionalCusCom_D1_CK4(rank, array, isSorted)
4448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4449 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_CK4
4452 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4453 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4454 procedure(
logical(LK)) :: isSorted
4459 module subroutine setRankFractionalCusCom_D1_CK3(rank, array, isSorted)
4460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4461 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_CK3
4464 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4465 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4466 procedure(
logical(LK)) :: isSorted
4471 module subroutine setRankFractionalCusCom_D1_CK2(rank, array, isSorted)
4472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4473 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_CK2
4476 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4477 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4478 procedure(
logical(LK)) :: isSorted
4483 module subroutine setRankFractionalCusCom_D1_CK1(rank, array, isSorted)
4484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4485 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_CK1
4488 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
4489 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4490 procedure(
logical(LK)) :: isSorted
4497 module subroutine setRankFractionalCusCom_D1_RK5(rank, array, isSorted)
4498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4499 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_RK5
4502 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4503 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4504 procedure(
logical(LK)) :: isSorted
4509 module subroutine setRankFractionalCusCom_D1_RK4(rank, array, isSorted)
4510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4511 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_RK4
4514 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4515 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4516 procedure(
logical(LK)) :: isSorted
4521 module subroutine setRankFractionalCusCom_D1_RK3(rank, array, isSorted)
4522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4523 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_RK3
4526 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4527 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4528 procedure(
logical(LK)) :: isSorted
4533 module subroutine setRankFractionalCusCom_D1_RK2(rank, array, isSorted)
4534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4535 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_RK2
4538 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4539 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4540 procedure(
logical(LK)) :: isSorted
4545 module subroutine setRankFractionalCusCom_D1_RK1(rank, array, isSorted)
4546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4547 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_RK1
4550 real(RKG) ,
intent(in) ,
contiguous :: array(:)
4551 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4552 procedure(
logical(LK)) :: isSorted
4561 module subroutine setRankFractionalCusCom_D1_PSSK5(rank, array, isSorted)
4562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4563 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_PSSK5
4567 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4568 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4569 procedure(
logical(LK)) :: isSorted
4574 module subroutine setRankFractionalCusCom_D1_PSSK4(rank, array, isSorted)
4575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4576 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_PSSK4
4580 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4581 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4582 procedure(
logical(LK)) :: isSorted
4587 module subroutine setRankFractionalCusCom_D1_PSSK3(rank, array, isSorted)
4588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4589 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_PSSK3
4593 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4594 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4595 procedure(
logical(LK)) :: isSorted
4600 module subroutine setRankFractionalCusCom_D1_PSSK2(rank, array, isSorted)
4601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4602 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_PSSK2
4606 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4607 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4608 procedure(
logical(LK)) :: isSorted
4613 module subroutine setRankFractionalCusCom_D1_PSSK1(rank, array, isSorted)
4614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4615 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_PSSK1
4619 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
4620 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4621 procedure(
logical(LK)) :: isSorted
4630 module subroutine setRankFractionalCusCom_D1_BSSK(rank, array, isSorted)
4631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4632 !DEC$ ATTRIBUTES DLLEXPORT :: setRankFractionalCusCom_D1_BSSK
4636 type(css_type) ,
intent(in) ,
contiguous :: array(:)
4637 real(TKR) ,
intent(out) ,
contiguous ::
rank(:)
4638 procedure(
logical(LK)) :: isSorted
4808 module function getRankModifiedDefCom_D0_SK5(array)
result(rank)
4809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4810 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D0_SK5
4813 character(
*,SKG) ,
intent(in) :: array
4814 integer(TKR) ::
rank(
len(array, IK))
4819 module function getRankModifiedDefCom_D0_SK4(array)
result(rank)
4820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4821 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D0_SK4
4824 character(
*,SKG) ,
intent(in) :: array
4825 integer(TKR) ::
rank(
len(array, IK))
4830 module function getRankModifiedDefCom_D0_SK3(array)
result(rank)
4831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4832 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D0_SK3
4835 character(
*,SKG) ,
intent(in) :: array
4836 integer(TKR) ::
rank(
len(array, IK))
4841 module function getRankModifiedDefCom_D0_SK2(array)
result(rank)
4842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4843 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D0_SK2
4846 character(
*,SKG) ,
intent(in) :: array
4847 integer(TKR) ::
rank(
len(array, IK))
4852 module function getRankModifiedDefCom_D0_SK1(array)
result(rank)
4853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4854 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D0_SK1
4857 character(
*,SKG) ,
intent(in) :: array
4858 integer(TKR) ::
rank(
len(array, IK))
4865 module function getRankModifiedDefCom_D1_SK5(array)
result(rank)
4866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4867 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_SK5
4870 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4871 integer(TKR) ::
rank(
size(array,
kind = IK))
4876 module function getRankModifiedDefCom_D1_SK4(array)
result(rank)
4877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4878 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_SK4
4881 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4882 integer(TKR) ::
rank(
size(array,
kind = IK))
4887 module function getRankModifiedDefCom_D1_SK3(array)
result(rank)
4888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4889 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_SK3
4892 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4893 integer(TKR) ::
rank(
size(array,
kind = IK))
4898 module function getRankModifiedDefCom_D1_SK2(array)
result(rank)
4899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4900 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_SK2
4903 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4904 integer(TKR) ::
rank(
size(array,
kind = IK))
4909 module function getRankModifiedDefCom_D1_SK1(array)
result(rank)
4910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4911 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_SK1
4914 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
4915 integer(TKR) ::
rank(
size(array,
kind = IK))
4922 module function getRankModifiedDefCom_D1_IK5(array)
result(rank)
4923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4924 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_IK5
4927 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4928 integer(TKR) ::
rank(
size(array,
kind = IK))
4933 module function getRankModifiedDefCom_D1_IK4(array)
result(rank)
4934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4935 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_IK4
4938 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4939 integer(TKR) ::
rank(
size(array,
kind = IK))
4944 module function getRankModifiedDefCom_D1_IK3(array)
result(rank)
4945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4946 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_IK3
4949 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4950 integer(TKR) ::
rank(
size(array,
kind = IK))
4955 module function getRankModifiedDefCom_D1_IK2(array)
result(rank)
4956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4957 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_IK2
4960 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4961 integer(TKR) ::
rank(
size(array,
kind = IK))
4966 module function getRankModifiedDefCom_D1_IK1(array)
result(rank)
4967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4968 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_IK1
4971 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
4972 integer(TKR) ::
rank(
size(array,
kind = IK))
4979 module function getRankModifiedDefCom_D1_LK5(array)
result(rank)
4980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4981 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_LK5
4984 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4985 integer(TKR) ::
rank(
size(array,
kind = IK))
4990 module function getRankModifiedDefCom_D1_LK4(array)
result(rank)
4991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4992 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_LK4
4995 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
4996 integer(TKR) ::
rank(
size(array,
kind = IK))
5001 module function getRankModifiedDefCom_D1_LK3(array)
result(rank)
5002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5003 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_LK3
5006 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5007 integer(TKR) ::
rank(
size(array,
kind = IK))
5012 module function getRankModifiedDefCom_D1_LK2(array)
result(rank)
5013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5014 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_LK2
5017 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5018 integer(TKR) ::
rank(
size(array,
kind = IK))
5023 module function getRankModifiedDefCom_D1_LK1(array)
result(rank)
5024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5025 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_LK1
5028 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5029 integer(TKR) ::
rank(
size(array,
kind = IK))
5036 module function getRankModifiedDefCom_D1_CK5(array)
result(rank)
5037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5038 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_CK5
5041 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5042 integer(TKR) ::
rank(
size(array,
kind = IK))
5047 module function getRankModifiedDefCom_D1_CK4(array)
result(rank)
5048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5049 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_CK4
5052 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5053 integer(TKR) ::
rank(
size(array,
kind = IK))
5058 module function getRankModifiedDefCom_D1_CK3(array)
result(rank)
5059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5060 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_CK3
5063 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5064 integer(TKR) ::
rank(
size(array,
kind = IK))
5069 module function getRankModifiedDefCom_D1_CK2(array)
result(rank)
5070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5071 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_CK2
5074 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5075 integer(TKR) ::
rank(
size(array,
kind = IK))
5080 module function getRankModifiedDefCom_D1_CK1(array)
result(rank)
5081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5082 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_CK1
5085 complex(CKG) ,
intent(in) ,
contiguous :: array(:)
5086 integer(TKR) ::
rank(
size(array,
kind = IK))
5093 module function getRankModifiedDefCom_D1_RK5(array)
result(rank)
5094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5095 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_RK5
5098 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5099 integer(TKR) ::
rank(
size(array,
kind = IK))
5104 module function getRankModifiedDefCom_D1_RK4(array)
result(rank)
5105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5106 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_RK4
5109 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5110 integer(TKR) ::
rank(
size(array,
kind = IK))
5115 module function getRankModifiedDefCom_D1_RK3(array)
result(rank)
5116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5117 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_RK3
5120 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5121 integer(TKR) ::
rank(
size(array,
kind = IK))
5126 module function getRankModifiedDefCom_D1_RK2(array)
result(rank)
5127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5128 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_RK2
5131 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5132 integer(TKR) ::
rank(
size(array,
kind = IK))
5137 module function getRankModifiedDefCom_D1_RK1(array)
result(rank)
5138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5139 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_RK1
5142 real(RKG) ,
intent(in) ,
contiguous :: array(:)
5143 integer(TKR) ::
rank(
size(array,
kind = IK))
5152 module function getRankModifiedDefCom_D1_PSSK5(array)
result(rank)
5153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5154 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_PSSK5
5158 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
5159 integer(TKR) ::
rank(
size(array,
kind = IK))
5164 module function getRankModifiedDefCom_D1_PSSK4(array)
result(rank)
5165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5166 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_PSSK4
5170 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
5171 integer(TKR) ::
rank(
size(array,
kind = IK))
5176 module function getRankModifiedDefCom_D1_PSSK3(array)
result(rank)
5177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5178 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_PSSK3
5182 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
5183 integer(TKR) ::
rank(
size(array,
kind = IK))
5188 module function getRankModifiedDefCom_D1_PSSK2(array)
result(rank)
5189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5190 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_PSSK2
5194 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
5195 integer(TKR) ::
rank(
size(array,
kind = IK))
5200 module function getRankModifiedDefCom_D1_PSSK1(array)
result(rank)
5201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5202 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_PSSK1
5206 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: array(:)
5207 integer(TKR) ::
rank(
size(array,
kind = IK))
5216 module function getRankModifiedDefCom_D1_BSSK(array)
result(rank)
5217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5218 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedDefCom_D1_BSSK
5222 type(css_type) ,
intent(in) ,
contiguous :: array(:)
5223 integer(TKR) ::
rank(
size(array,
kind = IK))
5235 module function getRankModifiedCusCom_D0_SK5(array, isSorted)
result(rank)
5236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5237 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D0_SK5
5240 character(
*,SKG) ,
intent(in) :: array
5241 procedure(
logical(LK)) :: isSorted
5242 integer(TKR) ::
rank(
len(array, IK))
5247 module function getRankModifiedCusCom_D0_SK4(array, isSorted)
result(rank)
5248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5249 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D0_SK4
5252 character(
*,SKG) ,
intent(in) :: array
5253 procedure(
logical(LK)) :: isSorted
5254 integer(TKR) ::
rank(
len(array, IK))
5259 module function getRankModifiedCusCom_D0_SK3(array, isSorted)
result(rank)
5260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5261 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D0_SK3
5264 character(
*,SKG) ,
intent(in) :: array
5265 procedure(
logical(LK)) :: isSorted
5266 integer(TKR) ::
rank(
len(array, IK))
5271 module function getRankModifiedCusCom_D0_SK2(array, isSorted)
result(rank)
5272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5273 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D0_SK2
5276 character(
*,SKG) ,
intent(in) :: array
5277 procedure(
logical(LK)) :: isSorted
5278 integer(TKR) ::
rank(
len(array, IK))
5283 module function getRankModifiedCusCom_D0_SK1(array, isSorted)
result(rank)
5284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5285 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D0_SK1
5288 character(
*,SKG) ,
intent(in) :: array
5289 procedure(
logical(LK)) :: isSorted
5290 integer(TKR) ::
rank(
len(array, IK))
5297 module function getRankModifiedCusCom_D1_SK5(array, isSorted)
result(rank)
5298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5299 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_SK5
5302 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5303 procedure(
logical(LK)) :: isSorted
5304 integer(TKR) ::
rank(
size(array,
kind = IK))
5309 module function getRankModifiedCusCom_D1_SK4(array, isSorted)
result(rank)
5310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5311 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_SK4
5314 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5315 procedure(
logical(LK)) :: isSorted
5316 integer(TKR) ::
rank(
size(array,
kind = IK))
5321 module function getRankModifiedCusCom_D1_SK3(array, isSorted)
result(rank)
5322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5323 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_SK3
5326 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5327 procedure(
logical(LK)) :: isSorted
5328 integer(TKR) ::
rank(
size(array,
kind = IK))
5333 module function getRankModifiedCusCom_D1_SK2(array, isSorted)
result(rank)
5334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5335 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_SK2
5338 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5339 procedure(
logical(LK)) :: isSorted
5340 integer(TKR) ::
rank(
size(array,
kind = IK))
5345 module function getRankModifiedCusCom_D1_SK1(array, isSorted)
result(rank)
5346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5347 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_SK1
5350 character(
*,SKG) ,
intent(in) ,
contiguous :: array(:)
5351 procedure(
logical(LK)) :: isSorted
5352 integer(TKR) ::
rank(
size(array,
kind = IK))
5359 module function getRankModifiedCusCom_D1_IK5(array, isSorted)
result(rank)
5360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5361 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_IK5
5364 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5365 procedure(
logical(LK)) :: isSorted
5366 integer(TKR) ::
rank(
size(array,
kind = IK))
5371 module function getRankModifiedCusCom_D1_IK4(array, isSorted)
result(rank)
5372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5373 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_IK4
5376 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5377 procedure(
logical(LK)) :: isSorted
5378 integer(TKR) ::
rank(
size(array,
kind = IK))
5383 module function getRankModifiedCusCom_D1_IK3(array, isSorted)
result(rank)
5384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5385 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_IK3
5388 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5389 procedure(
logical(LK)) :: isSorted
5390 integer(TKR) ::
rank(
size(array,
kind = IK))
5395 module function getRankModifiedCusCom_D1_IK2(array, isSorted)
result(rank)
5396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5397 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_IK2
5400 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5401 procedure(
logical(LK)) :: isSorted
5402 integer(TKR) ::
rank(
size(array,
kind = IK))
5407 module function getRankModifiedCusCom_D1_IK1(array, isSorted)
result(rank)
5408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5409 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_IK1
5412 integer(IKG) ,
intent(in) ,
contiguous :: array(:)
5413 procedure(
logical(LK)) :: isSorted
5414 integer(TKR) ::
rank(
size(array,
kind = IK))
5421 module function getRankModifiedCusCom_D1_LK5(array, isSorted)
result(rank)
5422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5423 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_LK5
5426 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5427 procedure(
logical(LK)) :: isSorted
5428 integer(TKR) ::
rank(
size(array,
kind = IK))
5433 module function getRankModifiedCusCom_D1_LK4(array, isSorted)
result(rank)
5434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5435 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_LK4
5438 logical(LKG) ,
intent(in) ,
contiguous :: array(:)
5439 procedure(
logical(LK)) :: isSorted
5440 integer(TKR) ::
rank(
size(array,
kind = IK))
5445 module function getRankModifiedCusCom_D1_LK3(array, isSorted)
result(rank)
5446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5447 !DEC$ ATTRIBUTES DLLEXPORT :: getRankModifiedCusCom_D1_LK3