373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
374 !DIR$ ATTRIBUTES DLLEXPORT ::
kendall
438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
439 !DIR$ ATTRIBUTES DLLEXPORT ::
kendallA
503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
504 !DIR$ ATTRIBUTES DLLEXPORT ::
kendallB
561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
562 !DIR$ ATTRIBUTES DLLEXPORT ::
pearson
618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
619 !DIR$ ATTRIBUTES DLLEXPORT ::
spearman
774 PURE module function getCFC_RULD_VUXD_CK5(cov, subsetv)
result(cor)
775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
776 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_CK5
779 type(uppDia_type) ,
intent(in) :: subsetv
780 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
781 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
786 PURE module function getCFC_RULD_VUXD_CK4(cov, subsetv)
result(cor)
787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
788 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_CK4
791 type(uppDia_type) ,
intent(in) :: subsetv
792 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
793 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
798 PURE module function getCFC_RULD_VUXD_CK3(cov, subsetv)
result(cor)
799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
800 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_CK3
803 type(uppDia_type) ,
intent(in) :: subsetv
804 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
805 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
810 PURE module function getCFC_RULD_VUXD_CK2(cov, subsetv)
result(cor)
811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
812 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_CK2
815 type(uppDia_type) ,
intent(in) :: subsetv
816 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
817 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
822 PURE module function getCFC_RULD_VUXD_CK1(cov, subsetv)
result(cor)
823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
824 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_CK1
827 type(uppDia_type) ,
intent(in) :: subsetv
828 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
829 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
836 PURE module function getCFC_RULD_VUXD_RK5(cov, subsetv)
result(cor)
837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
838 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_RK5
841 type(uppDia_type) ,
intent(in) :: subsetv
842 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
843 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
848 PURE module function getCFC_RULD_VUXD_RK4(cov, subsetv)
result(cor)
849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
850 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_RK4
853 type(uppDia_type) ,
intent(in) :: subsetv
854 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
855 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
860 PURE module function getCFC_RULD_VUXD_RK3(cov, subsetv)
result(cor)
861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
862 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_RK3
865 type(uppDia_type) ,
intent(in) :: subsetv
866 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
867 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
872 PURE module function getCFC_RULD_VUXD_RK2(cov, subsetv)
result(cor)
873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
874 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_RK2
877 type(uppDia_type) ,
intent(in) :: subsetv
878 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
879 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
884 PURE module function getCFC_RULD_VUXD_RK1(cov, subsetv)
result(cor)
885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
886 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXD_RK1
889 type(uppDia_type) ,
intent(in) :: subsetv
890 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
891 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
904 PURE module function getCFC_RULD_VXLD_CK5(cov, subsetv)
result(cor)
905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
906 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_CK5
909 type(lowDia_type) ,
intent(in) :: subsetv
910 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
911 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
916 PURE module function getCFC_RULD_VXLD_CK4(cov, subsetv)
result(cor)
917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
918 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_CK4
921 type(lowDia_type) ,
intent(in) :: subsetv
922 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
923 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
928 PURE module function getCFC_RULD_VXLD_CK3(cov, subsetv)
result(cor)
929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
930 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_CK3
933 type(lowDia_type) ,
intent(in) :: subsetv
934 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
935 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
940 PURE module function getCFC_RULD_VXLD_CK2(cov, subsetv)
result(cor)
941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
942 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_CK2
945 type(lowDia_type) ,
intent(in) :: subsetv
946 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
947 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
952 PURE module function getCFC_RULD_VXLD_CK1(cov, subsetv)
result(cor)
953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
954 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_CK1
957 type(lowDia_type) ,
intent(in) :: subsetv
958 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
959 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
966 PURE module function getCFC_RULD_VXLD_RK5(cov, subsetv)
result(cor)
967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
968 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_RK5
971 type(lowDia_type) ,
intent(in) :: subsetv
972 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
973 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
978 PURE module function getCFC_RULD_VXLD_RK4(cov, subsetv)
result(cor)
979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
980 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_RK4
983 type(lowDia_type) ,
intent(in) :: subsetv
984 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
985 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
990 PURE module function getCFC_RULD_VXLD_RK3(cov, subsetv)
result(cor)
991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
992 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_RK3
995 type(lowDia_type) ,
intent(in) :: subsetv
996 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
997 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1002 PURE module function getCFC_RULD_VXLD_RK2(cov, subsetv)
result(cor)
1003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1004 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_RK2
1007 type(lowDia_type) ,
intent(in) :: subsetv
1008 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1009 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1014 PURE module function getCFC_RULD_VXLD_RK1(cov, subsetv)
result(cor)
1015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1016 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLD_RK1
1019 type(lowDia_type) ,
intent(in) :: subsetv
1020 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1021 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1034 PURE module function getCFC_RULD_VUXX_CK5(cov, subsetv, stdinv)
result(cor)
1035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1036 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_CK5
1039 type(upp_type) ,
intent(in) :: subsetv
1040 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1041 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1042 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1047 PURE module function getCFC_RULD_VUXX_CK4(cov, subsetv, stdinv)
result(cor)
1048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1049 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_CK4
1052 type(upp_type) ,
intent(in) :: subsetv
1053 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1054 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1055 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1060 PURE module function getCFC_RULD_VUXX_CK3(cov, subsetv, stdinv)
result(cor)
1061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1062 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_CK3
1065 type(upp_type) ,
intent(in) :: subsetv
1066 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1067 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1068 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1073 PURE module function getCFC_RULD_VUXX_CK2(cov, subsetv, stdinv)
result(cor)
1074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1075 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_CK2
1078 type(upp_type) ,
intent(in) :: subsetv
1079 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1080 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1081 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1086 PURE module function getCFC_RULD_VUXX_CK1(cov, subsetv, stdinv)
result(cor)
1087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1088 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_CK1
1091 type(upp_type) ,
intent(in) :: subsetv
1092 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1093 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1094 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1101 PURE module function getCFC_RULD_VUXX_RK5(cov, subsetv, stdinv)
result(cor)
1102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1103 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_RK5
1106 type(upp_type) ,
intent(in) :: subsetv
1107 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1108 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1109 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1114 PURE module function getCFC_RULD_VUXX_RK4(cov, subsetv, stdinv)
result(cor)
1115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1116 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_RK4
1119 type(upp_type) ,
intent(in) :: subsetv
1120 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1121 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1122 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1127 PURE module function getCFC_RULD_VUXX_RK3(cov, subsetv, stdinv)
result(cor)
1128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1129 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_RK3
1132 type(upp_type) ,
intent(in) :: subsetv
1133 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1134 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1135 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1140 PURE module function getCFC_RULD_VUXX_RK2(cov, subsetv, stdinv)
result(cor)
1141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1142 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_RK2
1145 type(upp_type) ,
intent(in) :: subsetv
1146 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1147 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1148 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1153 PURE module function getCFC_RULD_VUXX_RK1(cov, subsetv, stdinv)
result(cor)
1154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1155 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VUXX_RK1
1158 type(upp_type) ,
intent(in) :: subsetv
1159 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1160 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1161 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1174 PURE module function getCFC_RULD_VXLX_CK5(cov, subsetv, stdinv)
result(cor)
1175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1176 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_CK5
1179 type(low_type) ,
intent(in) :: subsetv
1180 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1181 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1182 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1187 PURE module function getCFC_RULD_VXLX_CK4(cov, subsetv, stdinv)
result(cor)
1188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1189 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_CK4
1192 type(low_type) ,
intent(in) :: subsetv
1193 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1194 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1195 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1200 PURE module function getCFC_RULD_VXLX_CK3(cov, subsetv, stdinv)
result(cor)
1201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1202 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_CK3
1205 type(low_type) ,
intent(in) :: subsetv
1206 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1207 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1208 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1213 PURE module function getCFC_RULD_VXLX_CK2(cov, subsetv, stdinv)
result(cor)
1214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1215 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_CK2
1218 type(low_type) ,
intent(in) :: subsetv
1219 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1220 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1221 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1226 PURE module function getCFC_RULD_VXLX_CK1(cov, subsetv, stdinv)
result(cor)
1227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1228 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_CK1
1231 type(low_type) ,
intent(in) :: subsetv
1232 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1233 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1234 complex(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1241 PURE module function getCFC_RULD_VXLX_RK5(cov, subsetv, stdinv)
result(cor)
1242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1243 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_RK5
1246 type(low_type) ,
intent(in) :: subsetv
1247 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1248 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1249 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1254 PURE module function getCFC_RULD_VXLX_RK4(cov, subsetv, stdinv)
result(cor)
1255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1256 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_RK4
1259 type(low_type) ,
intent(in) :: subsetv
1260 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1261 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1262 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1267 PURE module function getCFC_RULD_VXLX_RK3(cov, subsetv, stdinv)
result(cor)
1268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1269 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_RK3
1272 type(low_type) ,
intent(in) :: subsetv
1273 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1274 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1275 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1280 PURE module function getCFC_RULD_VXLX_RK2(cov, subsetv, stdinv)
result(cor)
1281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1282 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_RK2
1285 type(low_type) ,
intent(in) :: subsetv
1286 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1287 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1288 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1293 PURE module function getCFC_RULD_VXLX_RK1(cov, subsetv, stdinv)
result(cor)
1294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1295 !DEC$ ATTRIBUTES DLLEXPORT :: getCFC_RULD_VXLX_RK1
1298 type(low_type) ,
intent(in) :: subsetv
1299 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
1300 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
1301 real(TKG) :: cor(
size(cov,
1, IK),
size(cov,
2, IK))
1322 PURE module function getPrsWNO_XY_CK5(x, y)
result(cor)
1323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1324 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_CK5
1327 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1333 PURE module function getPrsWNO_XY_CK4(x, y)
result(cor)
1334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1335 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_CK4
1338 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1344 PURE module function getPrsWNO_XY_CK3(x, y)
result(cor)
1345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1346 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_CK3
1349 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1355 PURE module function getPrsWNO_XY_CK2(x, y)
result(cor)
1356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1357 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_CK2
1360 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1366 PURE module function getPrsWNO_XY_CK1(x, y)
result(cor)
1367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1368 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_CK1
1371 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1379 PURE module function getPrsWNO_XY_RK5(x, y)
result(cor)
1380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1381 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_RK5
1384 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1390 PURE module function getPrsWNO_XY_RK4(x, y)
result(cor)
1391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1392 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_RK4
1395 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1401 PURE module function getPrsWNO_XY_RK3(x, y)
result(cor)
1402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1403 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_RK3
1406 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1412 PURE module function getPrsWNO_XY_RK2(x, y)
result(cor)
1413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1414 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_RK2
1417 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1423 PURE module function getPrsWNO_XY_RK1(x, y)
result(cor)
1424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1425 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_XY_RK1
1428 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1444 PURE module function getPrsWTI_XY_CK5(x, y, weight)
result(cor)
1445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1446 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_CK5
1449 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1450 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1456 PURE module function getPrsWTI_XY_CK4(x, y, weight)
result(cor)
1457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1458 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_CK4
1461 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1462 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1468 PURE module function getPrsWTI_XY_CK3(x, y, weight)
result(cor)
1469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1470 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_CK3
1473 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1474 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1480 PURE module function getPrsWTI_XY_CK2(x, y, weight)
result(cor)
1481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1482 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_CK2
1485 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1486 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1492 PURE module function getPrsWTI_XY_CK1(x, y, weight)
result(cor)
1493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1494 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_CK1
1497 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1498 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1506 PURE module function getPrsWTI_XY_RK5(x, y, weight)
result(cor)
1507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1508 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_RK5
1511 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1512 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1518 PURE module function getPrsWTI_XY_RK4(x, y, weight)
result(cor)
1519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1520 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_RK4
1523 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1524 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1530 PURE module function getPrsWTI_XY_RK3(x, y, weight)
result(cor)
1531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1532 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_RK3
1535 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1536 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1542 PURE module function getPrsWTI_XY_RK2(x, y, weight)
result(cor)
1543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1544 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_RK2
1547 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1548 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1554 PURE module function getPrsWTI_XY_RK1(x, y, weight)
result(cor)
1555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1556 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_XY_RK1
1559 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1560 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1576 PURE module function getPrsWTR_XY_CK5(x, y, weight)
result(cor)
1577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1578 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_CK5
1581 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1582 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1588 PURE module function getPrsWTR_XY_CK4(x, y, weight)
result(cor)
1589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1590 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_CK4
1593 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1594 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1600 PURE module function getPrsWTR_XY_CK3(x, y, weight)
result(cor)
1601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1602 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_CK3
1605 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1606 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1612 PURE module function getPrsWTR_XY_CK2(x, y, weight)
result(cor)
1613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1614 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_CK2
1617 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1618 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1624 PURE module function getPrsWTR_XY_CK1(x, y, weight)
result(cor)
1625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1626 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_CK1
1629 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1630 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1638 PURE module function getPrsWTR_XY_RK5(x, y, weight)
result(cor)
1639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1640 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_RK5
1643 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1644 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1650 PURE module function getPrsWTR_XY_RK4(x, y, weight)
result(cor)
1651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1652 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_RK4
1655 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1656 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1662 PURE module function getPrsWTR_XY_RK3(x, y, weight)
result(cor)
1663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1664 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_RK3
1667 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1668 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1674 PURE module function getPrsWTR_XY_RK2(x, y, weight)
result(cor)
1675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1676 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_RK2
1679 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1680 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1686 PURE module function getPrsWTR_XY_RK1(x, y, weight)
result(cor)
1687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1688 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_XY_RK1
1691 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1692 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
1710 PURE module function getPrsWNO_ULD_CK5(sample, dim)
result(cor)
1711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1712 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_CK5
1715 integer(IK) ,
intent(in) :: dim
1716 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1717 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1722 PURE module function getPrsWNO_ULD_CK4(sample, dim)
result(cor)
1723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1724 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_CK4
1727 integer(IK) ,
intent(in) :: dim
1728 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1729 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1734 PURE module function getPrsWNO_ULD_CK3(sample, dim)
result(cor)
1735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1736 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_CK3
1739 integer(IK) ,
intent(in) :: dim
1740 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1741 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1746 PURE module function getPrsWNO_ULD_CK2(sample, dim)
result(cor)
1747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1748 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_CK2
1751 integer(IK) ,
intent(in) :: dim
1752 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1753 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1758 PURE module function getPrsWNO_ULD_CK1(sample, dim)
result(cor)
1759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1760 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_CK1
1763 integer(IK) ,
intent(in) :: dim
1764 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1765 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1772 PURE module function getPrsWNO_ULD_RK5(sample, dim)
result(cor)
1773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1774 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_RK5
1777 integer(IK) ,
intent(in) :: dim
1778 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1779 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1784 PURE module function getPrsWNO_ULD_RK4(sample, dim)
result(cor)
1785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1786 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_RK4
1789 integer(IK) ,
intent(in) :: dim
1790 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1791 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1796 PURE module function getPrsWNO_ULD_RK3(sample, dim)
result(cor)
1797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1798 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_RK3
1801 integer(IK) ,
intent(in) :: dim
1802 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1803 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1808 PURE module function getPrsWNO_ULD_RK2(sample, dim)
result(cor)
1809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1810 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_RK2
1813 integer(IK) ,
intent(in) :: dim
1814 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1815 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1820 PURE module function getPrsWNO_ULD_RK1(sample, dim)
result(cor)
1821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1822 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWNO_ULD_RK1
1825 integer(IK) ,
intent(in) :: dim
1826 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1827 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1842 PURE module function getPrsWTI_ULD_CK5(sample, dim, weight)
result(cor)
1843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1844 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_CK5
1847 integer(IK) ,
intent(in) :: dim
1848 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1849 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1850 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1855 PURE module function getPrsWTI_ULD_CK4(sample, dim, weight)
result(cor)
1856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1857 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_CK4
1860 integer(IK) ,
intent(in) :: dim
1861 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1862 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1863 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1868 PURE module function getPrsWTI_ULD_CK3(sample, dim, weight)
result(cor)
1869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1870 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_CK3
1873 integer(IK) ,
intent(in) :: dim
1874 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1875 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1876 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1881 PURE module function getPrsWTI_ULD_CK2(sample, dim, weight)
result(cor)
1882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1883 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_CK2
1886 integer(IK) ,
intent(in) :: dim
1887 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1888 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1889 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1894 PURE module function getPrsWTI_ULD_CK1(sample, dim, weight)
result(cor)
1895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1896 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_CK1
1899 integer(IK) ,
intent(in) :: dim
1900 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1901 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1902 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1909 PURE module function getPrsWTI_ULD_RK5(sample, dim, weight)
result(cor)
1910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1911 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_RK5
1914 integer(IK) ,
intent(in) :: dim
1915 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1916 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1917 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1922 PURE module function getPrsWTI_ULD_RK4(sample, dim, weight)
result(cor)
1923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1924 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_RK4
1927 integer(IK) ,
intent(in) :: dim
1928 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1929 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1930 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1935 PURE module function getPrsWTI_ULD_RK3(sample, dim, weight)
result(cor)
1936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1937 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_RK3
1940 integer(IK) ,
intent(in) :: dim
1941 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1942 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1943 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1948 PURE module function getPrsWTI_ULD_RK2(sample, dim, weight)
result(cor)
1949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1950 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_RK2
1953 integer(IK) ,
intent(in) :: dim
1954 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1955 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1956 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1961 PURE module function getPrsWTI_ULD_RK1(sample, dim, weight)
result(cor)
1962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1963 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTI_ULD_RK1
1966 integer(IK) ,
intent(in) :: dim
1967 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
1968 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1969 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1984 PURE module function getPrsWTR_ULD_CK5(sample, dim, weight)
result(cor)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_CK5
1989 integer(IK) ,
intent(in) :: dim
1990 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
1991 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
1992 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
1997 PURE module function getPrsWTR_ULD_CK4(sample, dim, weight)
result(cor)
1998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1999 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_CK4
2002 integer(IK) ,
intent(in) :: dim
2003 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2004 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2005 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
2010 PURE module function getPrsWTR_ULD_CK3(sample, dim, weight)
result(cor)
2011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2012 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_CK3
2015 integer(IK) ,
intent(in) :: dim
2016 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2017 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2018 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
2023 PURE module function getPrsWTR_ULD_CK2(sample, dim, weight)
result(cor)
2024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2025 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_CK2
2028 integer(IK) ,
intent(in) :: dim
2029 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2030 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2031 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
2036 PURE module function getPrsWTR_ULD_CK1(sample, dim, weight)
result(cor)
2037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2038 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_CK1
2041 integer(IK) ,
intent(in) :: dim
2042 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2043 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2044 complex(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
2051 PURE module function getPrsWTR_ULD_RK5(sample, dim, weight)
result(cor)
2052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2053 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_RK5
2056 integer(IK) ,
intent(in) :: dim
2057 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2058 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2059 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
2064 PURE module function getPrsWTR_ULD_RK4(sample, dim, weight)
result(cor)
2065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2066 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_RK4
2069 integer(IK) ,
intent(in) :: dim
2070 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2071 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2072 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
2077 PURE module function getPrsWTR_ULD_RK3(sample, dim, weight)
result(cor)
2078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2079 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_RK3
2082 integer(IK) ,
intent(in) :: dim
2083 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2084 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2085 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
2090 PURE module function getPrsWTR_ULD_RK2(sample, dim, weight)
result(cor)
2091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2092 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_RK2
2095 integer(IK) ,
intent(in) :: dim
2096 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2097 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2098 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
2103 PURE module function getPrsWTR_ULD_RK1(sample, dim, weight)
result(cor)
2104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2105 !DEC$ ATTRIBUTES DLLEXPORT :: getPrsWTR_ULD_RK1
2108 integer(IK) ,
intent(in) :: dim
2109 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
2110 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
2111 real(TKG) :: cor(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
2332 PURE module subroutine setCFC_RUXX_VUXX_RK5(cor, subset, cov, subsetv, stdinv)
2333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2334 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_RK5
2337 type(upp_type) ,
intent(in) :: subset
2338 type(upp_type) ,
intent(in) :: subsetv
2339 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2340 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2341 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2346 PURE module subroutine setCFC_RUXX_VUXX_RK4(cor, subset, cov, subsetv, stdinv)
2347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2348 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_RK4
2351 type(upp_type) ,
intent(in) :: subset
2352 type(upp_type) ,
intent(in) :: subsetv
2353 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2354 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2355 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2360 PURE module subroutine setCFC_RUXX_VUXX_RK3(cor, subset, cov, subsetv, stdinv)
2361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2362 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_RK3
2365 type(upp_type) ,
intent(in) :: subset
2366 type(upp_type) ,
intent(in) :: subsetv
2367 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2368 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2369 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2374 PURE module subroutine setCFC_RUXX_VUXX_RK2(cor, subset, cov, subsetv, stdinv)
2375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2376 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_RK2
2379 type(upp_type) ,
intent(in) :: subset
2380 type(upp_type) ,
intent(in) :: subsetv
2381 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2382 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2383 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2388 PURE module subroutine setCFC_RUXX_VUXX_RK1(cor, subset, cov, subsetv, stdinv)
2389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2390 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_RK1
2393 type(upp_type) ,
intent(in) :: subset
2394 type(upp_type) ,
intent(in) :: subsetv
2395 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2396 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2397 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2404 PURE module subroutine setCFC_RUXX_VXLX_RK5(cor, subset, cov, subsetv, stdinv)
2405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2406 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_RK5
2409 type(upp_type) ,
intent(in) :: subset
2410 type(low_type) ,
intent(in) :: subsetv
2411 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2412 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2413 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2418 PURE module subroutine setCFC_RUXX_VXLX_RK4(cor, subset, cov, subsetv, stdinv)
2419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2420 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_RK4
2423 type(upp_type) ,
intent(in) :: subset
2424 type(low_type) ,
intent(in) :: subsetv
2425 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2426 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2427 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2432 PURE module subroutine setCFC_RUXX_VXLX_RK3(cor, subset, cov, subsetv, stdinv)
2433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2434 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_RK3
2437 type(upp_type) ,
intent(in) :: subset
2438 type(low_type) ,
intent(in) :: subsetv
2439 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2440 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2441 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2446 PURE module subroutine setCFC_RUXX_VXLX_RK2(cor, subset, cov, subsetv, stdinv)
2447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2448 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_RK2
2451 type(upp_type) ,
intent(in) :: subset
2452 type(low_type) ,
intent(in) :: subsetv
2453 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2454 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2455 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2460 PURE module subroutine setCFC_RUXX_VXLX_RK1(cor, subset, cov, subsetv, stdinv)
2461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2462 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_RK1
2465 type(upp_type) ,
intent(in) :: subset
2466 type(low_type) ,
intent(in) :: subsetv
2467 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2468 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2469 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2482 PURE module subroutine setCFC_RXLX_VUXX_RK5(cor, subset, cov, subsetv, stdinv)
2483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2484 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_RK5
2487 type(low_type) ,
intent(in) :: subset
2488 type(upp_type) ,
intent(in) :: subsetv
2489 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2490 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2491 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2496 PURE module subroutine setCFC_RXLX_VUXX_RK4(cor, subset, cov, subsetv, stdinv)
2497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2498 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_RK4
2501 type(low_type) ,
intent(in) :: subset
2502 type(upp_type) ,
intent(in) :: subsetv
2503 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2504 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2505 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2510 PURE module subroutine setCFC_RXLX_VUXX_RK3(cor, subset, cov, subsetv, stdinv)
2511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2512 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_RK3
2515 type(low_type) ,
intent(in) :: subset
2516 type(upp_type) ,
intent(in) :: subsetv
2517 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2518 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2519 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2524 PURE module subroutine setCFC_RXLX_VUXX_RK2(cor, subset, cov, subsetv, stdinv)
2525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2526 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_RK2
2529 type(low_type) ,
intent(in) :: subset
2530 type(upp_type) ,
intent(in) :: subsetv
2531 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2532 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2533 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2538 PURE module subroutine setCFC_RXLX_VUXX_RK1(cor, subset, cov, subsetv, stdinv)
2539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2540 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_RK1
2543 type(low_type) ,
intent(in) :: subset
2544 type(upp_type) ,
intent(in) :: subsetv
2545 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2546 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2547 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2554 PURE module subroutine setCFC_RXLX_VXLX_RK5(cor, subset, cov, subsetv, stdinv)
2555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2556 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_RK5
2559 type(low_type) ,
intent(in) :: subset
2560 type(low_type) ,
intent(in) :: subsetv
2561 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2562 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2563 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2568 PURE module subroutine setCFC_RXLX_VXLX_RK4(cor, subset, cov, subsetv, stdinv)
2569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2570 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_RK4
2573 type(low_type) ,
intent(in) :: subset
2574 type(low_type) ,
intent(in) :: subsetv
2575 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2576 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2577 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2582 PURE module subroutine setCFC_RXLX_VXLX_RK3(cor, subset, cov, subsetv, stdinv)
2583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2584 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_RK3
2587 type(low_type) ,
intent(in) :: subset
2588 type(low_type) ,
intent(in) :: subsetv
2589 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2590 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2591 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2596 PURE module subroutine setCFC_RXLX_VXLX_RK2(cor, subset, cov, subsetv, stdinv)
2597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2598 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_RK2
2601 type(low_type) ,
intent(in) :: subset
2602 type(low_type) ,
intent(in) :: subsetv
2603 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2604 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2605 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2610 PURE module subroutine setCFC_RXLX_VXLX_RK1(cor, subset, cov, subsetv, stdinv)
2611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2612 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_RK1
2615 type(low_type) ,
intent(in) :: subset
2616 type(low_type) ,
intent(in) :: subsetv
2617 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2618 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2619 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2642 PURE module subroutine setCFC_RUXD_VUXX_RK5(cor, subset, cov, subsetv, stdinv)
2643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2644 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_RK5
2647 type(uppDia_type) ,
intent(in) :: subset
2648 type(upp_type) ,
intent(in) :: subsetv
2649 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2650 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2651 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2656 PURE module subroutine setCFC_RUXD_VUXX_RK4(cor, subset, cov, subsetv, stdinv)
2657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2658 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_RK4
2661 type(uppDia_type) ,
intent(in) :: subset
2662 type(upp_type) ,
intent(in) :: subsetv
2663 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2664 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2665 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2670 PURE module subroutine setCFC_RUXD_VUXX_RK3(cor, subset, cov, subsetv, stdinv)
2671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2672 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_RK3
2675 type(uppDia_type) ,
intent(in) :: subset
2676 type(upp_type) ,
intent(in) :: subsetv
2677 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2678 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2679 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2684 PURE module subroutine setCFC_RUXD_VUXX_RK2(cor, subset, cov, subsetv, stdinv)
2685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2686 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_RK2
2689 type(uppDia_type) ,
intent(in) :: subset
2690 type(upp_type) ,
intent(in) :: subsetv
2691 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2692 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2693 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2698 PURE module subroutine setCFC_RUXD_VUXX_RK1(cor, subset, cov, subsetv, stdinv)
2699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2700 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_RK1
2703 type(uppDia_type) ,
intent(in) :: subset
2704 type(upp_type) ,
intent(in) :: subsetv
2705 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2706 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2707 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2714 PURE module subroutine setCFC_RUXD_VXLX_RK5(cor, subset, cov, subsetv, stdinv)
2715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2716 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_RK5
2719 type(uppDia_type) ,
intent(in) :: subset
2720 type(low_type) ,
intent(in) :: subsetv
2721 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2722 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2723 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2728 PURE module subroutine setCFC_RUXD_VXLX_RK4(cor, subset, cov, subsetv, stdinv)
2729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2730 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_RK4
2733 type(uppDia_type) ,
intent(in) :: subset
2734 type(low_type) ,
intent(in) :: subsetv
2735 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2736 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2737 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2742 PURE module subroutine setCFC_RUXD_VXLX_RK3(cor, subset, cov, subsetv, stdinv)
2743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2744 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_RK3
2747 type(uppDia_type) ,
intent(in) :: subset
2748 type(low_type) ,
intent(in) :: subsetv
2749 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2750 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2751 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2756 PURE module subroutine setCFC_RUXD_VXLX_RK2(cor, subset, cov, subsetv, stdinv)
2757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2758 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_RK2
2761 type(uppDia_type) ,
intent(in) :: subset
2762 type(low_type) ,
intent(in) :: subsetv
2763 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2764 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2765 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2770 PURE module subroutine setCFC_RUXD_VXLX_RK1(cor, subset, cov, subsetv, stdinv)
2771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2772 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_RK1
2775 type(uppDia_type) ,
intent(in) :: subset
2776 type(low_type) ,
intent(in) :: subsetv
2777 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2778 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2779 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2792 PURE module subroutine setCFC_RXLD_VUXX_RK5(cor, subset, cov, subsetv, stdinv)
2793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2794 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_RK5
2797 type(lowDia_type) ,
intent(in) :: subset
2798 type(upp_type) ,
intent(in) :: subsetv
2799 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2800 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2801 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2806 PURE module subroutine setCFC_RXLD_VUXX_RK4(cor, subset, cov, subsetv, stdinv)
2807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2808 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_RK4
2811 type(lowDia_type) ,
intent(in) :: subset
2812 type(upp_type) ,
intent(in) :: subsetv
2813 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2814 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2815 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2820 PURE module subroutine setCFC_RXLD_VUXX_RK3(cor, subset, cov, subsetv, stdinv)
2821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2822 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_RK3
2825 type(lowDia_type) ,
intent(in) :: subset
2826 type(upp_type) ,
intent(in) :: subsetv
2827 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2828 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2829 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2834 PURE module subroutine setCFC_RXLD_VUXX_RK2(cor, subset, cov, subsetv, stdinv)
2835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2836 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_RK2
2839 type(lowDia_type) ,
intent(in) :: subset
2840 type(upp_type) ,
intent(in) :: subsetv
2841 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2842 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2843 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2848 PURE module subroutine setCFC_RXLD_VUXX_RK1(cor, subset, cov, subsetv, stdinv)
2849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2850 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_RK1
2853 type(lowDia_type) ,
intent(in) :: subset
2854 type(upp_type) ,
intent(in) :: subsetv
2855 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2856 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2857 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2864 PURE module subroutine setCFC_RXLD_VXLX_RK5(cor, subset, cov, subsetv, stdinv)
2865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2866 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_RK5
2869 type(lowDia_type) ,
intent(in) :: subset
2870 type(low_type) ,
intent(in) :: subsetv
2871 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2872 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2873 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2878 PURE module subroutine setCFC_RXLD_VXLX_RK4(cor, subset, cov, subsetv, stdinv)
2879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2880 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_RK4
2883 type(lowDia_type) ,
intent(in) :: subset
2884 type(low_type) ,
intent(in) :: subsetv
2885 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2886 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2887 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2892 PURE module subroutine setCFC_RXLD_VXLX_RK3(cor, subset, cov, subsetv, stdinv)
2893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2894 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_RK3
2897 type(lowDia_type) ,
intent(in) :: subset
2898 type(low_type) ,
intent(in) :: subsetv
2899 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2900 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2901 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2906 PURE module subroutine setCFC_RXLD_VXLX_RK2(cor, subset, cov, subsetv, stdinv)
2907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2908 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_RK2
2911 type(lowDia_type) ,
intent(in) :: subset
2912 type(low_type) ,
intent(in) :: subsetv
2913 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2914 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2915 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2920 PURE module subroutine setCFC_RXLD_VXLX_RK1(cor, subset, cov, subsetv, stdinv)
2921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2922 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_RK1
2925 type(lowDia_type) ,
intent(in) :: subset
2926 type(low_type) ,
intent(in) :: subsetv
2927 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
2928 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2929 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2952 PURE module subroutine setCFC_RUXX_VUXD_RK5(cor, subset, cov, subsetv)
2953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2954 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_RK5
2957 type(upp_type) ,
intent(in) :: subset
2958 type(uppDia_type) ,
intent(in) :: subsetv
2959 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2960 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2965 PURE module subroutine setCFC_RUXX_VUXD_RK4(cor, subset, cov, subsetv)
2966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2967 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_RK4
2970 type(upp_type) ,
intent(in) :: subset
2971 type(uppDia_type) ,
intent(in) :: subsetv
2972 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2973 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2978 PURE module subroutine setCFC_RUXX_VUXD_RK3(cor, subset, cov, subsetv)
2979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2980 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_RK3
2983 type(upp_type) ,
intent(in) :: subset
2984 type(uppDia_type) ,
intent(in) :: subsetv
2985 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2986 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
2991 PURE module subroutine setCFC_RUXX_VUXD_RK2(cor, subset, cov, subsetv)
2992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2993 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_RK2
2996 type(upp_type) ,
intent(in) :: subset
2997 type(uppDia_type) ,
intent(in) :: subsetv
2998 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
2999 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3004 PURE module subroutine setCFC_RUXX_VUXD_RK1(cor, subset, cov, subsetv)
3005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3006 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_RK1
3009 type(upp_type) ,
intent(in) :: subset
3010 type(uppDia_type) ,
intent(in) :: subsetv
3011 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3012 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3019 PURE module subroutine setCFC_RUXX_VXLD_RK5(cor, subset, cov, subsetv)
3020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3021 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_RK5
3024 type(upp_type) ,
intent(in) :: subset
3025 type(lowDia_type) ,
intent(in) :: subsetv
3026 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3027 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3032 PURE module subroutine setCFC_RUXX_VXLD_RK4(cor, subset, cov, subsetv)
3033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3034 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_RK4
3037 type(upp_type) ,
intent(in) :: subset
3038 type(lowDia_type) ,
intent(in) :: subsetv
3039 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3040 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3045 PURE module subroutine setCFC_RUXX_VXLD_RK3(cor, subset, cov, subsetv)
3046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3047 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_RK3
3050 type(upp_type) ,
intent(in) :: subset
3051 type(lowDia_type) ,
intent(in) :: subsetv
3052 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3053 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3058 PURE module subroutine setCFC_RUXX_VXLD_RK2(cor, subset, cov, subsetv)
3059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3060 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_RK2
3063 type(upp_type) ,
intent(in) :: subset
3064 type(lowDia_type) ,
intent(in) :: subsetv
3065 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3066 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3071 PURE module subroutine setCFC_RUXX_VXLD_RK1(cor, subset, cov, subsetv)
3072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3073 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_RK1
3076 type(upp_type) ,
intent(in) :: subset
3077 type(lowDia_type) ,
intent(in) :: subsetv
3078 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3079 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3092 PURE module subroutine setCFC_RXLX_VUXD_RK5(cor, subset, cov, subsetv)
3093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3094 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_RK5
3097 type(low_type) ,
intent(in) :: subset
3098 type(uppDia_type) ,
intent(in) :: subsetv
3099 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3100 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3105 PURE module subroutine setCFC_RXLX_VUXD_RK4(cor, subset, cov, subsetv)
3106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3107 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_RK4
3110 type(low_type) ,
intent(in) :: subset
3111 type(uppDia_type) ,
intent(in) :: subsetv
3112 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3113 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3118 PURE module subroutine setCFC_RXLX_VUXD_RK3(cor, subset, cov, subsetv)
3119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3120 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_RK3
3123 type(low_type) ,
intent(in) :: subset
3124 type(uppDia_type) ,
intent(in) :: subsetv
3125 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3126 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3131 PURE module subroutine setCFC_RXLX_VUXD_RK2(cor, subset, cov, subsetv)
3132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3133 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_RK2
3136 type(low_type) ,
intent(in) :: subset
3137 type(uppDia_type) ,
intent(in) :: subsetv
3138 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3139 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3144 PURE module subroutine setCFC_RXLX_VUXD_RK1(cor, subset, cov, subsetv)
3145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3146 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_RK1
3149 type(low_type) ,
intent(in) :: subset
3150 type(uppDia_type) ,
intent(in) :: subsetv
3151 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3152 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3159 PURE module subroutine setCFC_RXLX_VXLD_RK5(cor, subset, cov, subsetv)
3160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3161 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_RK5
3164 type(low_type) ,
intent(in) :: subset
3165 type(lowDia_type) ,
intent(in) :: subsetv
3166 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3167 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3172 PURE module subroutine setCFC_RXLX_VXLD_RK4(cor, subset, cov, subsetv)
3173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3174 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_RK4
3177 type(low_type) ,
intent(in) :: subset
3178 type(lowDia_type) ,
intent(in) :: subsetv
3179 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3180 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3185 PURE module subroutine setCFC_RXLX_VXLD_RK3(cor, subset, cov, subsetv)
3186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3187 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_RK3
3190 type(low_type) ,
intent(in) :: subset
3191 type(lowDia_type) ,
intent(in) :: subsetv
3192 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3193 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3198 PURE module subroutine setCFC_RXLX_VXLD_RK2(cor, subset, cov, subsetv)
3199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3200 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_RK2
3203 type(low_type) ,
intent(in) :: subset
3204 type(lowDia_type) ,
intent(in) :: subsetv
3205 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3206 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3211 PURE module subroutine setCFC_RXLX_VXLD_RK1(cor, subset, cov, subsetv)
3212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3213 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_RK1
3216 type(low_type) ,
intent(in) :: subset
3217 type(lowDia_type) ,
intent(in) :: subsetv
3218 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3219 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3242 PURE module subroutine setCFC_RUXD_VUXD_RK5(cor, subset, cov, subsetv)
3243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3244 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_RK5
3247 type(uppDia_type) ,
intent(in) :: subset
3248 type(uppDia_type) ,
intent(in) :: subsetv
3249 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3250 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3255 PURE module subroutine setCFC_RUXD_VUXD_RK4(cor, subset, cov, subsetv)
3256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3257 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_RK4
3260 type(uppDia_type) ,
intent(in) :: subset
3261 type(uppDia_type) ,
intent(in) :: subsetv
3262 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3263 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3268 PURE module subroutine setCFC_RUXD_VUXD_RK3(cor, subset, cov, subsetv)
3269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3270 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_RK3
3273 type(uppDia_type) ,
intent(in) :: subset
3274 type(uppDia_type) ,
intent(in) :: subsetv
3275 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3276 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3281 PURE module subroutine setCFC_RUXD_VUXD_RK2(cor, subset, cov, subsetv)
3282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3283 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_RK2
3286 type(uppDia_type) ,
intent(in) :: subset
3287 type(uppDia_type) ,
intent(in) :: subsetv
3288 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3289 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3294 PURE module subroutine setCFC_RUXD_VUXD_RK1(cor, subset, cov, subsetv)
3295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3296 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_RK1
3299 type(uppDia_type) ,
intent(in) :: subset
3300 type(uppDia_type) ,
intent(in) :: subsetv
3301 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3302 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3309 PURE module subroutine setCFC_RUXD_VXLD_RK5(cor, subset, cov, subsetv)
3310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3311 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_RK5
3314 type(uppDia_type) ,
intent(in) :: subset
3315 type(lowDia_type) ,
intent(in) :: subsetv
3316 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3317 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3322 PURE module subroutine setCFC_RUXD_VXLD_RK4(cor, subset, cov, subsetv)
3323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3324 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_RK4
3327 type(uppDia_type) ,
intent(in) :: subset
3328 type(lowDia_type) ,
intent(in) :: subsetv
3329 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3330 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3335 PURE module subroutine setCFC_RUXD_VXLD_RK3(cor, subset, cov, subsetv)
3336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3337 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_RK3
3340 type(uppDia_type) ,
intent(in) :: subset
3341 type(lowDia_type) ,
intent(in) :: subsetv
3342 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3343 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3348 PURE module subroutine setCFC_RUXD_VXLD_RK2(cor, subset, cov, subsetv)
3349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3350 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_RK2
3353 type(uppDia_type) ,
intent(in) :: subset
3354 type(lowDia_type) ,
intent(in) :: subsetv
3355 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3356 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3361 PURE module subroutine setCFC_RUXD_VXLD_RK1(cor, subset, cov, subsetv)
3362#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3363 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_RK1
3366 type(uppDia_type) ,
intent(in) :: subset
3367 type(lowDia_type) ,
intent(in) :: subsetv
3368 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3369 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3382 PURE module subroutine setCFC_RXLD_VUXD_RK5(cor, subset, cov, subsetv)
3383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3384 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_RK5
3387 type(lowDia_type) ,
intent(in) :: subset
3388 type(uppDia_type) ,
intent(in) :: subsetv
3389 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3390 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3395 PURE module subroutine setCFC_RXLD_VUXD_RK4(cor, subset, cov, subsetv)
3396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3397 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_RK4
3400 type(lowDia_type) ,
intent(in) :: subset
3401 type(uppDia_type) ,
intent(in) :: subsetv
3402 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3403 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3408 PURE module subroutine setCFC_RXLD_VUXD_RK3(cor, subset, cov, subsetv)
3409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3410 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_RK3
3413 type(lowDia_type) ,
intent(in) :: subset
3414 type(uppDia_type) ,
intent(in) :: subsetv
3415 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3416 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3421 PURE module subroutine setCFC_RXLD_VUXD_RK2(cor, subset, cov, subsetv)
3422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3423 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_RK2
3426 type(lowDia_type) ,
intent(in) :: subset
3427 type(uppDia_type) ,
intent(in) :: subsetv
3428 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3429 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3434 PURE module subroutine setCFC_RXLD_VUXD_RK1(cor, subset, cov, subsetv)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_RK1
3439 type(lowDia_type) ,
intent(in) :: subset
3440 type(uppDia_type) ,
intent(in) :: subsetv
3441 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3442 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3449 PURE module subroutine setCFC_RXLD_VXLD_RK5(cor, subset, cov, subsetv)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_RK5
3454 type(lowDia_type) ,
intent(in) :: subset
3455 type(lowDia_type) ,
intent(in) :: subsetv
3456 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3457 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3462 PURE module subroutine setCFC_RXLD_VXLD_RK4(cor, subset, cov, subsetv)
3463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3464 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_RK4
3467 type(lowDia_type) ,
intent(in) :: subset
3468 type(lowDia_type) ,
intent(in) :: subsetv
3469 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3470 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3475 PURE module subroutine setCFC_RXLD_VXLD_RK3(cor, subset, cov, subsetv)
3476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3477 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_RK3
3480 type(lowDia_type) ,
intent(in) :: subset
3481 type(lowDia_type) ,
intent(in) :: subsetv
3482 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3483 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3488 PURE module subroutine setCFC_RXLD_VXLD_RK2(cor, subset, cov, subsetv)
3489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3490 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_RK2
3493 type(lowDia_type) ,
intent(in) :: subset
3494 type(lowDia_type) ,
intent(in) :: subsetv
3495 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3496 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3501 PURE module subroutine setCFC_RXLD_VXLD_RK1(cor, subset, cov, subsetv)
3502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3503 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_RK1
3506 type(lowDia_type) ,
intent(in) :: subset
3507 type(lowDia_type) ,
intent(in) :: subsetv
3508 real(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
3509 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3530 PURE module subroutine setPrsOrgWNO_XY_RK5(cor, x, y)
3531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3532 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_RK5
3535 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3536 real(TKG) ,
intent(out) :: cor
3541 PURE module subroutine setPrsOrgWNO_XY_RK4(cor, x, y)
3542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3543 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_RK4
3546 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3547 real(TKG) ,
intent(out) :: cor
3552 PURE module subroutine setPrsOrgWNO_XY_RK3(cor, x, y)
3553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3554 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_RK3
3557 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3558 real(TKG) ,
intent(out) :: cor
3563 PURE module subroutine setPrsOrgWNO_XY_RK2(cor, x, y)
3564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3565 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_RK2
3568 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3569 real(TKG) ,
intent(out) :: cor
3574 PURE module subroutine setPrsOrgWNO_XY_RK1(cor, x, y)
3575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3576 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_RK1
3579 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3580 real(TKG) ,
intent(out) :: cor
3587 PURE module subroutine setPrsAvgWNO_XY_RK5(cor, mean, x, y)
3588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3589 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_RK5
3592 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3593 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3594 real(TKG) ,
intent(out) :: cor
3599 PURE module subroutine setPrsAvgWNO_XY_RK4(cor, mean, x, y)
3600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3601 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_RK4
3604 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3605 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3606 real(TKG) ,
intent(out) :: cor
3611 PURE module subroutine setPrsAvgWNO_XY_RK3(cor, mean, x, y)
3612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3613 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_RK3
3616 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3617 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3618 real(TKG) ,
intent(out) :: cor
3623 PURE module subroutine setPrsAvgWNO_XY_RK2(cor, mean, x, y)
3624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3625 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_RK2
3628 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3629 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3630 real(TKG) ,
intent(out) :: cor
3635 PURE module subroutine setPrsAvgWNO_XY_RK1(cor, mean, x, y)
3636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3637 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_RK1
3640 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3641 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3642 real(TKG) ,
intent(out) :: cor
3657 PURE module subroutine setPrsOrgWTI_XY_RK5(cor, x, y, weight, weisum)
3658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3659 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_RK5
3662 integer(IK) ,
intent(in) :: weisum
3663 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3664 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3665 real(TKG) ,
intent(out) :: cor
3670 PURE module subroutine setPrsOrgWTI_XY_RK4(cor, x, y, weight, weisum)
3671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3672 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_RK4
3675 integer(IK) ,
intent(in) :: weisum
3676 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3677 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3678 real(TKG) ,
intent(out) :: cor
3683 PURE module subroutine setPrsOrgWTI_XY_RK3(cor, x, y, weight, weisum)
3684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3685 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_RK3
3688 integer(IK) ,
intent(in) :: weisum
3689 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3690 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3691 real(TKG) ,
intent(out) :: cor
3696 PURE module subroutine setPrsOrgWTI_XY_RK2(cor, x, y, weight, weisum)
3697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3698 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_RK2
3701 integer(IK) ,
intent(in) :: weisum
3702 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3703 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3704 real(TKG) ,
intent(out) :: cor
3709 PURE module subroutine setPrsOrgWTI_XY_RK1(cor, x, y, weight, weisum)
3710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3711 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_RK1
3714 integer(IK) ,
intent(in) :: weisum
3715 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3716 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3717 real(TKG) ,
intent(out) :: cor
3724 PURE module subroutine setPrsAvgWTI_XY_RK5(cor, mean, x, y, weight, weisum)
3725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3726 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_RK5
3729 integer(IK) ,
intent(in) :: weisum
3730 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3731 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3732 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3733 real(TKG) ,
intent(out) :: cor
3738 PURE module subroutine setPrsAvgWTI_XY_RK4(cor, mean, x, y, weight, weisum)
3739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3740 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_RK4
3743 integer(IK) ,
intent(in) :: weisum
3744 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3745 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3746 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3747 real(TKG) ,
intent(out) :: cor
3752 PURE module subroutine setPrsAvgWTI_XY_RK3(cor, mean, x, y, weight, weisum)
3753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3754 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_RK3
3757 integer(IK) ,
intent(in) :: weisum
3758 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3759 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3760 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3761 real(TKG) ,
intent(out) :: cor
3766 PURE module subroutine setPrsAvgWTI_XY_RK2(cor, mean, x, y, weight, weisum)
3767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3768 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_RK2
3771 integer(IK) ,
intent(in) :: weisum
3772 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3773 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3774 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3775 real(TKG) ,
intent(out) :: cor
3780 PURE module subroutine setPrsAvgWTI_XY_RK1(cor, mean, x, y, weight, weisum)
3781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3782 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_RK1
3785 integer(IK) ,
intent(in) :: weisum
3786 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
3787 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3788 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3789 real(TKG) ,
intent(out) :: cor
3804 PURE module subroutine setPrsOrgWTR_XY_RK5(cor, x, y, weight, weisum)
3805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3806 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_RK5
3809 real(TKG) ,
intent(in) :: weisum
3810 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3811 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3812 real(TKG) ,
intent(out) :: cor
3817 PURE module subroutine setPrsOrgWTR_XY_RK4(cor, x, y, weight, weisum)
3818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3819 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_RK4
3822 real(TKG) ,
intent(in) :: weisum
3823 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3824 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3825 real(TKG) ,
intent(out) :: cor
3830 PURE module subroutine setPrsOrgWTR_XY_RK3(cor, x, y, weight, weisum)
3831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3832 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_RK3
3835 real(TKG) ,
intent(in) :: weisum
3836 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3837 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3838 real(TKG) ,
intent(out) :: cor
3843 PURE module subroutine setPrsOrgWTR_XY_RK2(cor, x, y, weight, weisum)
3844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3845 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_RK2
3848 real(TKG) ,
intent(in) :: weisum
3849 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3850 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3851 real(TKG) ,
intent(out) :: cor
3856 PURE module subroutine setPrsOrgWTR_XY_RK1(cor, x, y, weight, weisum)
3857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3858 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_RK1
3861 real(TKG) ,
intent(in) :: weisum
3862 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3863 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3864 real(TKG) ,
intent(out) :: cor
3871 PURE module subroutine setPrsAvgWTR_XY_RK5(cor, mean, x, y, weight, weisum)
3872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3873 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_RK5
3876 real(TKG) ,
intent(in) :: weisum
3877 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3878 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3879 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3880 real(TKG) ,
intent(out) :: cor
3885 PURE module subroutine setPrsAvgWTR_XY_RK4(cor, mean, x, y, weight, weisum)
3886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3887 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_RK4
3890 real(TKG) ,
intent(in) :: weisum
3891 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3892 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3893 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3894 real(TKG) ,
intent(out) :: cor
3899 PURE module subroutine setPrsAvgWTR_XY_RK3(cor, mean, x, y, weight, weisum)
3900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3901 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_RK3
3904 real(TKG) ,
intent(in) :: weisum
3905 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3906 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3907 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3908 real(TKG) ,
intent(out) :: cor
3913 PURE module subroutine setPrsAvgWTR_XY_RK2(cor, mean, x, y, weight, weisum)
3914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3915 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_RK2
3918 real(TKG) ,
intent(in) :: weisum
3919 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3920 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3921 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3922 real(TKG) ,
intent(out) :: cor
3927 PURE module subroutine setPrsAvgWTR_XY_RK1(cor, mean, x, y, weight, weisum)
3928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3929 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_RK1
3932 real(TKG) ,
intent(in) :: weisum
3933 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
3934 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
3935 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
3936 real(TKG) ,
intent(out) :: cor
3953 PURE module subroutine setPrsOrgWNO_UXD_RK5(cor, subset, sample, dim)
3954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3955 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_RK5
3958 integer(IK) ,
intent(in) :: dim
3959 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3960 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3961 type(uppDia_type) ,
intent(in) :: subset
3966 PURE module subroutine setPrsOrgWNO_UXD_RK4(cor, subset, sample, dim)
3967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3968 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_RK4
3971 integer(IK) ,
intent(in) :: dim
3972 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3973 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3974 type(uppDia_type) ,
intent(in) :: subset
3979 PURE module subroutine setPrsOrgWNO_UXD_RK3(cor, subset, sample, dim)
3980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3981 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_RK3
3984 integer(IK) ,
intent(in) :: dim
3985 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3986 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
3987 type(uppDia_type) ,
intent(in) :: subset
3992 PURE module subroutine setPrsOrgWNO_UXD_RK2(cor, subset, sample, dim)
3993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3994 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_RK2
3997 integer(IK) ,
intent(in) :: dim
3998 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
3999 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4000 type(uppDia_type) ,
intent(in) :: subset
4005 PURE module subroutine setPrsOrgWNO_UXD_RK1(cor, subset, sample, dim)
4006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4007 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_RK1
4010 integer(IK) ,
intent(in) :: dim
4011 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4012 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4013 type(uppDia_type) ,
intent(in) :: subset
4020 PURE module subroutine setPrsAvgWNO_UXD_RK5(cor, subset, mean, sample, dim)
4021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4022 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_RK5
4025 integer(IK) ,
intent(in) :: dim
4026 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4027 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4028 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4029 type(uppDia_type) ,
intent(in) :: subset
4034 PURE module subroutine setPrsAvgWNO_UXD_RK4(cor, subset, mean, sample, dim)
4035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4036 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_RK4
4039 integer(IK) ,
intent(in) :: dim
4040 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4041 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4042 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4043 type(uppDia_type) ,
intent(in) :: subset
4048 PURE module subroutine setPrsAvgWNO_UXD_RK3(cor, subset, mean, sample, dim)
4049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4050 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_RK3
4053 integer(IK) ,
intent(in) :: dim
4054 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4055 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4056 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4057 type(uppDia_type) ,
intent(in) :: subset
4062 PURE module subroutine setPrsAvgWNO_UXD_RK2(cor, subset, mean, sample, dim)
4063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4064 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_RK2
4067 integer(IK) ,
intent(in) :: dim
4068 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4069 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4070 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4071 type(uppDia_type) ,
intent(in) :: subset
4076 PURE module subroutine setPrsAvgWNO_UXD_RK1(cor, subset, mean, sample, dim)
4077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4078 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_RK1
4081 integer(IK) ,
intent(in) :: dim
4082 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4083 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4084 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4085 type(uppDia_type) ,
intent(in) :: subset
4100 PURE module subroutine setPrsOrgWTI_UXD_RK5(cor, subset, sample, dim, weight, weisum)
4101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4102 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_RK5
4105 integer(IK) ,
intent(in) :: dim
4106 integer(IK) ,
intent(in) :: weisum
4107 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4108 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4109 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4110 type(uppDia_type) ,
intent(in) :: subset
4115 PURE module subroutine setPrsOrgWTI_UXD_RK4(cor, subset, sample, dim, weight, weisum)
4116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4117 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_RK4
4120 integer(IK) ,
intent(in) :: dim
4121 integer(IK) ,
intent(in) :: weisum
4122 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4123 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4124 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4125 type(uppDia_type) ,
intent(in) :: subset
4130 PURE module subroutine setPrsOrgWTI_UXD_RK3(cor, subset, sample, dim, weight, weisum)
4131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4132 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_RK3
4135 integer(IK) ,
intent(in) :: dim
4136 integer(IK) ,
intent(in) :: weisum
4137 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4138 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4139 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4140 type(uppDia_type) ,
intent(in) :: subset
4145 PURE module subroutine setPrsOrgWTI_UXD_RK2(cor, subset, sample, dim, weight, weisum)
4146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4147 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_RK2
4150 integer(IK) ,
intent(in) :: dim
4151 integer(IK) ,
intent(in) :: weisum
4152 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4153 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4154 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4155 type(uppDia_type) ,
intent(in) :: subset
4160 PURE module subroutine setPrsOrgWTI_UXD_RK1(cor, subset, sample, dim, weight, weisum)
4161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4162 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_RK1
4165 integer(IK) ,
intent(in) :: dim
4166 integer(IK) ,
intent(in) :: weisum
4167 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4168 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4169 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4170 type(uppDia_type) ,
intent(in) :: subset
4177 PURE module subroutine setPrsAvgWTI_UXD_RK5(cor, subset, mean, sample, dim, weight, weisum)
4178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4179 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_RK5
4182 integer(IK) ,
intent(in) :: dim
4183 integer(IK) ,
intent(in) :: weisum
4184 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4185 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4186 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4187 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4188 type(uppDia_type) ,
intent(in) :: subset
4193 PURE module subroutine setPrsAvgWTI_UXD_RK4(cor, subset, mean, sample, dim, weight, weisum)
4194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4195 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_RK4
4198 integer(IK) ,
intent(in) :: dim
4199 integer(IK) ,
intent(in) :: weisum
4200 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4201 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4202 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4203 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4204 type(uppDia_type) ,
intent(in) :: subset
4209 PURE module subroutine setPrsAvgWTI_UXD_RK3(cor, subset, mean, sample, dim, weight, weisum)
4210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4211 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_RK3
4214 integer(IK) ,
intent(in) :: dim
4215 integer(IK) ,
intent(in) :: weisum
4216 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4217 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4218 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4219 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4220 type(uppDia_type) ,
intent(in) :: subset
4225 PURE module subroutine setPrsAvgWTI_UXD_RK2(cor, subset, mean, sample, dim, weight, weisum)
4226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4227 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_RK2
4230 integer(IK) ,
intent(in) :: dim
4231 integer(IK) ,
intent(in) :: weisum
4232 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4233 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4234 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4235 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4236 type(uppDia_type) ,
intent(in) :: subset
4241 PURE module subroutine setPrsAvgWTI_UXD_RK1(cor, subset, mean, sample, dim, weight, weisum)
4242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4243 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_RK1
4246 integer(IK) ,
intent(in) :: dim
4247 integer(IK) ,
intent(in) :: weisum
4248 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4249 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4250 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4251 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4252 type(uppDia_type) ,
intent(in) :: subset
4267 PURE module subroutine setPrsOrgWTR_UXD_RK5(cor, subset, sample, dim, weight, weisum)
4268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4269 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_RK5
4272 integer(IK) ,
intent(in) :: dim
4273 real(TKG) ,
intent(in) :: weisum
4274 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4275 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4276 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4277 type(uppDia_type) ,
intent(in) :: subset
4282 PURE module subroutine setPrsOrgWTR_UXD_RK4(cor, subset, sample, dim, weight, weisum)
4283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4284 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_RK4
4287 integer(IK) ,
intent(in) :: dim
4288 real(TKG) ,
intent(in) :: weisum
4289 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4290 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4291 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4292 type(uppDia_type) ,
intent(in) :: subset
4297 PURE module subroutine setPrsOrgWTR_UXD_RK3(cor, subset, sample, dim, weight, weisum)
4298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4299 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_RK3
4302 integer(IK) ,
intent(in) :: dim
4303 real(TKG) ,
intent(in) :: weisum
4304 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4305 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4306 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4307 type(uppDia_type) ,
intent(in) :: subset
4312 PURE module subroutine setPrsOrgWTR_UXD_RK2(cor, subset, sample, dim, weight, weisum)
4313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4314 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_RK2
4317 integer(IK) ,
intent(in) :: dim
4318 real(TKG) ,
intent(in) :: weisum
4319 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4320 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4321 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4322 type(uppDia_type) ,
intent(in) :: subset
4327 PURE module subroutine setPrsOrgWTR_UXD_RK1(cor, subset, sample, dim, weight, weisum)
4328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4329 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_RK1
4332 integer(IK) ,
intent(in) :: dim
4333 real(TKG) ,
intent(in) :: weisum
4334 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4335 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4336 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4337 type(uppDia_type) ,
intent(in) :: subset
4344 PURE module subroutine setPrsAvgWTR_UXD_RK5(cor, subset, mean, sample, dim, weight, weisum)
4345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4346 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_RK5
4349 integer(IK) ,
intent(in) :: dim
4350 real(TKG) ,
intent(in) :: weisum
4351 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4352 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4353 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4354 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4355 type(uppDia_type) ,
intent(in) :: subset
4360 PURE module subroutine setPrsAvgWTR_UXD_RK4(cor, subset, mean, sample, dim, weight, weisum)
4361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4362 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_RK4
4365 integer(IK) ,
intent(in) :: dim
4366 real(TKG) ,
intent(in) :: weisum
4367 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4368 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4369 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4370 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4371 type(uppDia_type) ,
intent(in) :: subset
4376 PURE module subroutine setPrsAvgWTR_UXD_RK3(cor, subset, mean, sample, dim, weight, weisum)
4377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4378 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_RK3
4381 integer(IK) ,
intent(in) :: dim
4382 real(TKG) ,
intent(in) :: weisum
4383 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4384 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4385 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4386 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4387 type(uppDia_type) ,
intent(in) :: subset
4392 PURE module subroutine setPrsAvgWTR_UXD_RK2(cor, subset, mean, sample, dim, weight, weisum)
4393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4394 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_RK2
4397 integer(IK) ,
intent(in) :: dim
4398 real(TKG) ,
intent(in) :: weisum
4399 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4400 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4401 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4402 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4403 type(uppDia_type) ,
intent(in) :: subset
4408 PURE module subroutine setPrsAvgWTR_UXD_RK1(cor, subset, mean, sample, dim, weight, weisum)
4409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4410 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_RK1
4413 integer(IK) ,
intent(in) :: dim
4414 real(TKG) ,
intent(in) :: weisum
4415 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4416 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4417 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4418 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4419 type(uppDia_type) ,
intent(in) :: subset
4436 PURE module subroutine setPrsOrgWNO_XLD_RK5(cor, subset, sample, dim)
4437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4438 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_RK5
4441 integer(IK) ,
intent(in) :: dim
4442 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4443 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4444 type(lowDia_type) ,
intent(in) :: subset
4449 PURE module subroutine setPrsOrgWNO_XLD_RK4(cor, subset, sample, dim)
4450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4451 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_RK4
4454 integer(IK) ,
intent(in) :: dim
4455 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4456 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4457 type(lowDia_type) ,
intent(in) :: subset
4462 PURE module subroutine setPrsOrgWNO_XLD_RK3(cor, subset, sample, dim)
4463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4464 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_RK3
4467 integer(IK) ,
intent(in) :: dim
4468 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4469 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4470 type(lowDia_type) ,
intent(in) :: subset
4475 PURE module subroutine setPrsOrgWNO_XLD_RK2(cor, subset, sample, dim)
4476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4477 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_RK2
4480 integer(IK) ,
intent(in) :: dim
4481 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4482 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4483 type(lowDia_type) ,
intent(in) :: subset
4488 PURE module subroutine setPrsOrgWNO_XLD_RK1(cor, subset, sample, dim)
4489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4490 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_RK1
4493 integer(IK) ,
intent(in) :: dim
4494 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4495 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4496 type(lowDia_type) ,
intent(in) :: subset
4503 PURE module subroutine setPrsAvgWNO_XLD_RK5(cor, subset, mean, sample, dim)
4504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4505 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_RK5
4508 integer(IK) ,
intent(in) :: dim
4509 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4510 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4511 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4512 type(lowDia_type) ,
intent(in) :: subset
4517 PURE module subroutine setPrsAvgWNO_XLD_RK4(cor, subset, mean, sample, dim)
4518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4519 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_RK4
4522 integer(IK) ,
intent(in) :: dim
4523 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4524 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4525 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4526 type(lowDia_type) ,
intent(in) :: subset
4531 PURE module subroutine setPrsAvgWNO_XLD_RK3(cor, subset, mean, sample, dim)
4532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4533 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_RK3
4536 integer(IK) ,
intent(in) :: dim
4537 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4538 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4539 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4540 type(lowDia_type) ,
intent(in) :: subset
4545 PURE module subroutine setPrsAvgWNO_XLD_RK2(cor, subset, mean, sample, dim)
4546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4547 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_RK2
4550 integer(IK) ,
intent(in) :: dim
4551 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4552 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4553 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4554 type(lowDia_type) ,
intent(in) :: subset
4559 PURE module subroutine setPrsAvgWNO_XLD_RK1(cor, subset, mean, sample, dim)
4560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4561 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_RK1
4564 integer(IK) ,
intent(in) :: dim
4565 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4566 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4567 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4568 type(lowDia_type) ,
intent(in) :: subset
4583 PURE module subroutine setPrsOrgWTI_XLD_RK5(cor, subset, sample, dim, weight, weisum)
4584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4585 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_RK5
4588 integer(IK) ,
intent(in) :: dim
4589 integer(IK) ,
intent(in) :: weisum
4590 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4591 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4592 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4593 type(lowDia_type) ,
intent(in) :: subset
4598 PURE module subroutine setPrsOrgWTI_XLD_RK4(cor, subset, sample, dim, weight, weisum)
4599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4600 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_RK4
4603 integer(IK) ,
intent(in) :: dim
4604 integer(IK) ,
intent(in) :: weisum
4605 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4606 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4607 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4608 type(lowDia_type) ,
intent(in) :: subset
4613 PURE module subroutine setPrsOrgWTI_XLD_RK3(cor, subset, sample, dim, weight, weisum)
4614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4615 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_RK3
4618 integer(IK) ,
intent(in) :: dim
4619 integer(IK) ,
intent(in) :: weisum
4620 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4621 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4622 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4623 type(lowDia_type) ,
intent(in) :: subset
4628 PURE module subroutine setPrsOrgWTI_XLD_RK2(cor, subset, sample, dim, weight, weisum)
4629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4630 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_RK2
4633 integer(IK) ,
intent(in) :: dim
4634 integer(IK) ,
intent(in) :: weisum
4635 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4636 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4637 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4638 type(lowDia_type) ,
intent(in) :: subset
4643 PURE module subroutine setPrsOrgWTI_XLD_RK1(cor, subset, sample, dim, weight, weisum)
4644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4645 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_RK1
4648 integer(IK) ,
intent(in) :: dim
4649 integer(IK) ,
intent(in) :: weisum
4650 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4651 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4652 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4653 type(lowDia_type) ,
intent(in) :: subset
4660 PURE module subroutine setPrsAvgWTI_XLD_RK5(cor, subset, mean, sample, dim, weight, weisum)
4661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4662 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_RK5
4665 integer(IK) ,
intent(in) :: dim
4666 integer(IK) ,
intent(in) :: weisum
4667 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4668 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4669 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4670 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4671 type(lowDia_type) ,
intent(in) :: subset
4676 PURE module subroutine setPrsAvgWTI_XLD_RK4(cor, subset, mean, sample, dim, weight, weisum)
4677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4678 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_RK4
4681 integer(IK) ,
intent(in) :: dim
4682 integer(IK) ,
intent(in) :: weisum
4683 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4684 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4685 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4686 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4687 type(lowDia_type) ,
intent(in) :: subset
4692 PURE module subroutine setPrsAvgWTI_XLD_RK3(cor, subset, mean, sample, dim, weight, weisum)
4693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4694 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_RK3
4697 integer(IK) ,
intent(in) :: dim
4698 integer(IK) ,
intent(in) :: weisum
4699 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4700 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4701 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4702 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4703 type(lowDia_type) ,
intent(in) :: subset
4708 PURE module subroutine setPrsAvgWTI_XLD_RK2(cor, subset, mean, sample, dim, weight, weisum)
4709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4710 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_RK2
4713 integer(IK) ,
intent(in) :: dim
4714 integer(IK) ,
intent(in) :: weisum
4715 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4716 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4717 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4718 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4719 type(lowDia_type) ,
intent(in) :: subset
4724 PURE module subroutine setPrsAvgWTI_XLD_RK1(cor, subset, mean, sample, dim, weight, weisum)
4725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4726 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_RK1
4729 integer(IK) ,
intent(in) :: dim
4730 integer(IK) ,
intent(in) :: weisum
4731 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
4732 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4733 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4734 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4735 type(lowDia_type) ,
intent(in) :: subset
4750 PURE module subroutine setPrsOrgWTR_XLD_RK5(cor, subset, sample, dim, weight, weisum)
4751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4752 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_RK5
4755 integer(IK) ,
intent(in) :: dim
4756 real(TKG) ,
intent(in) :: weisum
4757 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4758 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4759 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4760 type(lowDia_type) ,
intent(in) :: subset
4765 PURE module subroutine setPrsOrgWTR_XLD_RK4(cor, subset, sample, dim, weight, weisum)
4766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4767 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_RK4
4770 integer(IK) ,
intent(in) :: dim
4771 real(TKG) ,
intent(in) :: weisum
4772 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4773 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4774 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4775 type(lowDia_type) ,
intent(in) :: subset
4780 PURE module subroutine setPrsOrgWTR_XLD_RK3(cor, subset, sample, dim, weight, weisum)
4781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4782 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_RK3
4785 integer(IK) ,
intent(in) :: dim
4786 real(TKG) ,
intent(in) :: weisum
4787 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4788 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4789 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4790 type(lowDia_type) ,
intent(in) :: subset
4795 PURE module subroutine setPrsOrgWTR_XLD_RK2(cor, subset, sample, dim, weight, weisum)
4796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4797 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_RK2
4800 integer(IK) ,
intent(in) :: dim
4801 real(TKG) ,
intent(in) :: weisum
4802 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4803 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4804 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4805 type(lowDia_type) ,
intent(in) :: subset
4810 PURE module subroutine setPrsOrgWTR_XLD_RK1(cor, subset, sample, dim, weight, weisum)
4811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4812 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_RK1
4815 integer(IK) ,
intent(in) :: dim
4816 real(TKG) ,
intent(in) :: weisum
4817 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4818 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4819 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4820 type(lowDia_type) ,
intent(in) :: subset
4827 PURE module subroutine setPrsAvgWTR_XLD_RK5(cor, subset, mean, sample, dim, weight, weisum)
4828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4829 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_RK5
4832 integer(IK) ,
intent(in) :: dim
4833 real(TKG) ,
intent(in) :: weisum
4834 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4835 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4836 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4837 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4838 type(lowDia_type) ,
intent(in) :: subset
4843 PURE module subroutine setPrsAvgWTR_XLD_RK4(cor, subset, mean, sample, dim, weight, weisum)
4844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4845 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_RK4
4848 integer(IK) ,
intent(in) :: dim
4849 real(TKG) ,
intent(in) :: weisum
4850 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4851 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4852 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4853 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4854 type(lowDia_type) ,
intent(in) :: subset
4859 PURE module subroutine setPrsAvgWTR_XLD_RK3(cor, subset, mean, sample, dim, weight, weisum)
4860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4861 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_RK3
4864 integer(IK) ,
intent(in) :: dim
4865 real(TKG) ,
intent(in) :: weisum
4866 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4867 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4868 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4869 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4870 type(lowDia_type) ,
intent(in) :: subset
4875 PURE module subroutine setPrsAvgWTR_XLD_RK2(cor, subset, mean, sample, dim, weight, weisum)
4876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4877 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_RK2
4880 integer(IK) ,
intent(in) :: dim
4881 real(TKG) ,
intent(in) :: weisum
4882 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4883 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4884 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4885 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4886 type(lowDia_type) ,
intent(in) :: subset
4891 PURE module subroutine setPrsAvgWTR_XLD_RK1(cor, subset, mean, sample, dim, weight, weisum)
4892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4893 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_RK1
4896 integer(IK) ,
intent(in) :: dim
4897 real(TKG) ,
intent(in) :: weisum
4898 real(TKG) ,
intent(in) ,
contiguous :: mean(:)
4899 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
4900 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
4901 real(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4902 type(lowDia_type) ,
intent(in) :: subset
4925 PURE module subroutine setCFC_RUXX_VUXX_CK5(cor, subset, cov, subsetv, stdinv)
4926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4927 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_CK5
4930 type(upp_type) ,
intent(in) :: subset
4931 type(upp_type) ,
intent(in) :: subsetv
4932 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
4933 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
4934 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4939 PURE module subroutine setCFC_RUXX_VUXX_CK4(cor, subset, cov, subsetv, stdinv)
4940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4941 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_CK4
4944 type(upp_type) ,
intent(in) :: subset
4945 type(upp_type) ,
intent(in) :: subsetv
4946 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
4947 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
4948 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4953 PURE module subroutine setCFC_RUXX_VUXX_CK3(cor, subset, cov, subsetv, stdinv)
4954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4955 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_CK3
4958 type(upp_type) ,
intent(in) :: subset
4959 type(upp_type) ,
intent(in) :: subsetv
4960 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
4961 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
4962 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4967 PURE module subroutine setCFC_RUXX_VUXX_CK2(cor, subset, cov, subsetv, stdinv)
4968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4969 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_CK2
4972 type(upp_type) ,
intent(in) :: subset
4973 type(upp_type) ,
intent(in) :: subsetv
4974 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
4975 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
4976 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4981 PURE module subroutine setCFC_RUXX_VUXX_CK1(cor, subset, cov, subsetv, stdinv)
4982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4983 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXX_CK1
4986 type(upp_type) ,
intent(in) :: subset
4987 type(upp_type) ,
intent(in) :: subsetv
4988 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
4989 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
4990 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
4997 PURE module subroutine setCFC_RUXX_VXLX_CK5(cor, subset, cov, subsetv, stdinv)
4998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4999 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_CK5
5002 type(upp_type) ,
intent(in) :: subset
5003 type(low_type) ,
intent(in) :: subsetv
5004 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5005 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5006 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5011 PURE module subroutine setCFC_RUXX_VXLX_CK4(cor, subset, cov, subsetv, stdinv)
5012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5013 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_CK4
5016 type(upp_type) ,
intent(in) :: subset
5017 type(low_type) ,
intent(in) :: subsetv
5018 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5019 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5020 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5025 PURE module subroutine setCFC_RUXX_VXLX_CK3(cor, subset, cov, subsetv, stdinv)
5026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5027 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_CK3
5030 type(upp_type) ,
intent(in) :: subset
5031 type(low_type) ,
intent(in) :: subsetv
5032 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5033 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5034 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5039 PURE module subroutine setCFC_RUXX_VXLX_CK2(cor, subset, cov, subsetv, stdinv)
5040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5041 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_CK2
5044 type(upp_type) ,
intent(in) :: subset
5045 type(low_type) ,
intent(in) :: subsetv
5046 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5047 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5048 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5053 PURE module subroutine setCFC_RUXX_VXLX_CK1(cor, subset, cov, subsetv, stdinv)
5054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5055 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLX_CK1
5058 type(upp_type) ,
intent(in) :: subset
5059 type(low_type) ,
intent(in) :: subsetv
5060 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5061 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5062 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5075 PURE module subroutine setCFC_RXLX_VUXX_CK5(cor, subset, cov, subsetv, stdinv)
5076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5077 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_CK5
5080 type(low_type) ,
intent(in) :: subset
5081 type(upp_type) ,
intent(in) :: subsetv
5082 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5083 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5084 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5089 PURE module subroutine setCFC_RXLX_VUXX_CK4(cor, subset, cov, subsetv, stdinv)
5090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5091 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_CK4
5094 type(low_type) ,
intent(in) :: subset
5095 type(upp_type) ,
intent(in) :: subsetv
5096 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5097 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5098 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5103 PURE module subroutine setCFC_RXLX_VUXX_CK3(cor, subset, cov, subsetv, stdinv)
5104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5105 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_CK3
5108 type(low_type) ,
intent(in) :: subset
5109 type(upp_type) ,
intent(in) :: subsetv
5110 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5111 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5112 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5117 PURE module subroutine setCFC_RXLX_VUXX_CK2(cor, subset, cov, subsetv, stdinv)
5118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5119 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_CK2
5122 type(low_type) ,
intent(in) :: subset
5123 type(upp_type) ,
intent(in) :: subsetv
5124 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5125 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5126 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5131 PURE module subroutine setCFC_RXLX_VUXX_CK1(cor, subset, cov, subsetv, stdinv)
5132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5133 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXX_CK1
5136 type(low_type) ,
intent(in) :: subset
5137 type(upp_type) ,
intent(in) :: subsetv
5138 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5139 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5140 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5147 PURE module subroutine setCFC_RXLX_VXLX_CK5(cor, subset, cov, subsetv, stdinv)
5148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5149 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_CK5
5152 type(low_type) ,
intent(in) :: subset
5153 type(low_type) ,
intent(in) :: subsetv
5154 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5155 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5156 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5161 PURE module subroutine setCFC_RXLX_VXLX_CK4(cor, subset, cov, subsetv, stdinv)
5162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5163 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_CK4
5166 type(low_type) ,
intent(in) :: subset
5167 type(low_type) ,
intent(in) :: subsetv
5168 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5169 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5170 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5175 PURE module subroutine setCFC_RXLX_VXLX_CK3(cor, subset, cov, subsetv, stdinv)
5176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5177 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_CK3
5180 type(low_type) ,
intent(in) :: subset
5181 type(low_type) ,
intent(in) :: subsetv
5182 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5183 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5184 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5189 PURE module subroutine setCFC_RXLX_VXLX_CK2(cor, subset, cov, subsetv, stdinv)
5190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5191 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_CK2
5194 type(low_type) ,
intent(in) :: subset
5195 type(low_type) ,
intent(in) :: subsetv
5196 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5197 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5198 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5203 PURE module subroutine setCFC_RXLX_VXLX_CK1(cor, subset, cov, subsetv, stdinv)
5204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5205 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLX_CK1
5208 type(low_type) ,
intent(in) :: subset
5209 type(low_type) ,
intent(in) :: subsetv
5210 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5211 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5212 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5235 PURE module subroutine setCFC_RUXD_VUXX_CK5(cor, subset, cov, subsetv, stdinv)
5236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5237 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_CK5
5240 type(uppDia_type) ,
intent(in) :: subset
5241 type(upp_type) ,
intent(in) :: subsetv
5242 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5243 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5244 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5249 PURE module subroutine setCFC_RUXD_VUXX_CK4(cor, subset, cov, subsetv, stdinv)
5250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5251 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_CK4
5254 type(uppDia_type) ,
intent(in) :: subset
5255 type(upp_type) ,
intent(in) :: subsetv
5256 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5257 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5258 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5263 PURE module subroutine setCFC_RUXD_VUXX_CK3(cor, subset, cov, subsetv, stdinv)
5264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5265 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_CK3
5268 type(uppDia_type) ,
intent(in) :: subset
5269 type(upp_type) ,
intent(in) :: subsetv
5270 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5271 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5272 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5277 PURE module subroutine setCFC_RUXD_VUXX_CK2(cor, subset, cov, subsetv, stdinv)
5278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5279 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_CK2
5282 type(uppDia_type) ,
intent(in) :: subset
5283 type(upp_type) ,
intent(in) :: subsetv
5284 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5285 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5286 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5291 PURE module subroutine setCFC_RUXD_VUXX_CK1(cor, subset, cov, subsetv, stdinv)
5292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5293 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXX_CK1
5296 type(uppDia_type) ,
intent(in) :: subset
5297 type(upp_type) ,
intent(in) :: subsetv
5298 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5299 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5300 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5307 PURE module subroutine setCFC_RUXD_VXLX_CK5(cor, subset, cov, subsetv, stdinv)
5308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5309 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_CK5
5312 type(uppDia_type) ,
intent(in) :: subset
5313 type(low_type) ,
intent(in) :: subsetv
5314 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5315 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5316 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5321 PURE module subroutine setCFC_RUXD_VXLX_CK4(cor, subset, cov, subsetv, stdinv)
5322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5323 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_CK4
5326 type(uppDia_type) ,
intent(in) :: subset
5327 type(low_type) ,
intent(in) :: subsetv
5328 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5329 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5330 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5335 PURE module subroutine setCFC_RUXD_VXLX_CK3(cor, subset, cov, subsetv, stdinv)
5336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5337 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_CK3
5340 type(uppDia_type) ,
intent(in) :: subset
5341 type(low_type) ,
intent(in) :: subsetv
5342 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5343 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5344 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5349 PURE module subroutine setCFC_RUXD_VXLX_CK2(cor, subset, cov, subsetv, stdinv)
5350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5351 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_CK2
5354 type(uppDia_type) ,
intent(in) :: subset
5355 type(low_type) ,
intent(in) :: subsetv
5356 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5357 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5358 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5363 PURE module subroutine setCFC_RUXD_VXLX_CK1(cor, subset, cov, subsetv, stdinv)
5364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5365 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLX_CK1
5368 type(uppDia_type) ,
intent(in) :: subset
5369 type(low_type) ,
intent(in) :: subsetv
5370 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5371 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5372 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5385 PURE module subroutine setCFC_RXLD_VUXX_CK5(cor, subset, cov, subsetv, stdinv)
5386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5387 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_CK5
5390 type(lowDia_type) ,
intent(in) :: subset
5391 type(upp_type) ,
intent(in) :: subsetv
5392 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5393 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5394 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5399 PURE module subroutine setCFC_RXLD_VUXX_CK4(cor, subset, cov, subsetv, stdinv)
5400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5401 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_CK4
5404 type(lowDia_type) ,
intent(in) :: subset
5405 type(upp_type) ,
intent(in) :: subsetv
5406 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5407 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5408 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5413 PURE module subroutine setCFC_RXLD_VUXX_CK3(cor, subset, cov, subsetv, stdinv)
5414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5415 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_CK3
5418 type(lowDia_type) ,
intent(in) :: subset
5419 type(upp_type) ,
intent(in) :: subsetv
5420 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5421 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5422 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5427 PURE module subroutine setCFC_RXLD_VUXX_CK2(cor, subset, cov, subsetv, stdinv)
5428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5429 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_CK2
5432 type(lowDia_type) ,
intent(in) :: subset
5433 type(upp_type) ,
intent(in) :: subsetv
5434 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5435 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5436 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5441 PURE module subroutine setCFC_RXLD_VUXX_CK1(cor, subset, cov, subsetv, stdinv)
5442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5443 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXX_CK1
5446 type(lowDia_type) ,
intent(in) :: subset
5447 type(upp_type) ,
intent(in) :: subsetv
5448 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5449 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5450 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5457 PURE module subroutine setCFC_RXLD_VXLX_CK5(cor, subset, cov, subsetv, stdinv)
5458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5459 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_CK5
5462 type(lowDia_type) ,
intent(in) :: subset
5463 type(low_type) ,
intent(in) :: subsetv
5464 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5465 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5466 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5471 PURE module subroutine setCFC_RXLD_VXLX_CK4(cor, subset, cov, subsetv, stdinv)
5472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5473 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_CK4
5476 type(lowDia_type) ,
intent(in) :: subset
5477 type(low_type) ,
intent(in) :: subsetv
5478 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5479 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5480 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5485 PURE module subroutine setCFC_RXLD_VXLX_CK3(cor, subset, cov, subsetv, stdinv)
5486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5487 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_CK3
5490 type(lowDia_type) ,
intent(in) :: subset
5491 type(low_type) ,
intent(in) :: subsetv
5492 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5493 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5494 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5499 PURE module subroutine setCFC_RXLD_VXLX_CK2(cor, subset, cov, subsetv, stdinv)
5500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5501 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_CK2
5504 type(lowDia_type) ,
intent(in) :: subset
5505 type(low_type) ,
intent(in) :: subsetv
5506 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5507 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5508 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5513 PURE module subroutine setCFC_RXLD_VXLX_CK1(cor, subset, cov, subsetv, stdinv)
5514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5515 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLX_CK1
5518 type(lowDia_type) ,
intent(in) :: subset
5519 type(low_type) ,
intent(in) :: subsetv
5520 real(TKG) ,
intent(in) ,
contiguous :: stdinv(:)
5521 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5522 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5545 PURE module subroutine setCFC_RUXX_VUXD_CK5(cor, subset, cov, subsetv)
5546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5547 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_CK5
5550 type(upp_type) ,
intent(in) :: subset
5551 type(uppDia_type) ,
intent(in) :: subsetv
5552 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5553 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5558 PURE module subroutine setCFC_RUXX_VUXD_CK4(cor, subset, cov, subsetv)
5559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5560 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_CK4
5563 type(upp_type) ,
intent(in) :: subset
5564 type(uppDia_type) ,
intent(in) :: subsetv
5565 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5566 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5571 PURE module subroutine setCFC_RUXX_VUXD_CK3(cor, subset, cov, subsetv)
5572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5573 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_CK3
5576 type(upp_type) ,
intent(in) :: subset
5577 type(uppDia_type) ,
intent(in) :: subsetv
5578 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5579 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5584 PURE module subroutine setCFC_RUXX_VUXD_CK2(cor, subset, cov, subsetv)
5585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5586 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_CK2
5589 type(upp_type) ,
intent(in) :: subset
5590 type(uppDia_type) ,
intent(in) :: subsetv
5591 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5592 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5597 PURE module subroutine setCFC_RUXX_VUXD_CK1(cor, subset, cov, subsetv)
5598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5599 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VUXD_CK1
5602 type(upp_type) ,
intent(in) :: subset
5603 type(uppDia_type) ,
intent(in) :: subsetv
5604 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5605 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5612 PURE module subroutine setCFC_RUXX_VXLD_CK5(cor, subset, cov, subsetv)
5613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5614 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_CK5
5617 type(upp_type) ,
intent(in) :: subset
5618 type(lowDia_type) ,
intent(in) :: subsetv
5619 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5620 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5625 PURE module subroutine setCFC_RUXX_VXLD_CK4(cor, subset, cov, subsetv)
5626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5627 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_CK4
5630 type(upp_type) ,
intent(in) :: subset
5631 type(lowDia_type) ,
intent(in) :: subsetv
5632 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5633 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5638 PURE module subroutine setCFC_RUXX_VXLD_CK3(cor, subset, cov, subsetv)
5639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5640 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_CK3
5643 type(upp_type) ,
intent(in) :: subset
5644 type(lowDia_type) ,
intent(in) :: subsetv
5645 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5646 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5651 PURE module subroutine setCFC_RUXX_VXLD_CK2(cor, subset, cov, subsetv)
5652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5653 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_CK2
5656 type(upp_type) ,
intent(in) :: subset
5657 type(lowDia_type) ,
intent(in) :: subsetv
5658 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5659 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5664 PURE module subroutine setCFC_RUXX_VXLD_CK1(cor, subset, cov, subsetv)
5665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5666 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXX_VXLD_CK1
5669 type(upp_type) ,
intent(in) :: subset
5670 type(lowDia_type) ,
intent(in) :: subsetv
5671 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5672 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5685 PURE module subroutine setCFC_RXLX_VUXD_CK5(cor, subset, cov, subsetv)
5686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5687 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_CK5
5690 type(low_type) ,
intent(in) :: subset
5691 type(uppDia_type) ,
intent(in) :: subsetv
5692 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5693 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5698 PURE module subroutine setCFC_RXLX_VUXD_CK4(cor, subset, cov, subsetv)
5699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5700 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_CK4
5703 type(low_type) ,
intent(in) :: subset
5704 type(uppDia_type) ,
intent(in) :: subsetv
5705 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5706 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5711 PURE module subroutine setCFC_RXLX_VUXD_CK3(cor, subset, cov, subsetv)
5712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5713 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_CK3
5716 type(low_type) ,
intent(in) :: subset
5717 type(uppDia_type) ,
intent(in) :: subsetv
5718 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5719 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5724 PURE module subroutine setCFC_RXLX_VUXD_CK2(cor, subset, cov, subsetv)
5725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5726 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_CK2
5729 type(low_type) ,
intent(in) :: subset
5730 type(uppDia_type) ,
intent(in) :: subsetv
5731 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5732 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5737 PURE module subroutine setCFC_RXLX_VUXD_CK1(cor, subset, cov, subsetv)
5738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5739 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VUXD_CK1
5742 type(low_type) ,
intent(in) :: subset
5743 type(uppDia_type) ,
intent(in) :: subsetv
5744 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5745 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5752 PURE module subroutine setCFC_RXLX_VXLD_CK5(cor, subset, cov, subsetv)
5753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5754 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_CK5
5757 type(low_type) ,
intent(in) :: subset
5758 type(lowDia_type) ,
intent(in) :: subsetv
5759 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5760 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5765 PURE module subroutine setCFC_RXLX_VXLD_CK4(cor, subset, cov, subsetv)
5766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5767 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_CK4
5770 type(low_type) ,
intent(in) :: subset
5771 type(lowDia_type) ,
intent(in) :: subsetv
5772 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5773 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5778 PURE module subroutine setCFC_RXLX_VXLD_CK3(cor, subset, cov, subsetv)
5779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5780 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_CK3
5783 type(low_type) ,
intent(in) :: subset
5784 type(lowDia_type) ,
intent(in) :: subsetv
5785 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5786 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5791 PURE module subroutine setCFC_RXLX_VXLD_CK2(cor, subset, cov, subsetv)
5792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5793 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_CK2
5796 type(low_type) ,
intent(in) :: subset
5797 type(lowDia_type) ,
intent(in) :: subsetv
5798 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5799 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5804 PURE module subroutine setCFC_RXLX_VXLD_CK1(cor, subset, cov, subsetv)
5805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5806 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLX_VXLD_CK1
5809 type(low_type) ,
intent(in) :: subset
5810 type(lowDia_type) ,
intent(in) :: subsetv
5811 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5812 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5835 PURE module subroutine setCFC_RUXD_VUXD_CK5(cor, subset, cov, subsetv)
5836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5837 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_CK5
5840 type(uppDia_type) ,
intent(in) :: subset
5841 type(uppDia_type) ,
intent(in) :: subsetv
5842 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5843 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5848 PURE module subroutine setCFC_RUXD_VUXD_CK4(cor, subset, cov, subsetv)
5849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5850 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_CK4
5853 type(uppDia_type) ,
intent(in) :: subset
5854 type(uppDia_type) ,
intent(in) :: subsetv
5855 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5856 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5861 PURE module subroutine setCFC_RUXD_VUXD_CK3(cor, subset, cov, subsetv)
5862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5863 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_CK3
5866 type(uppDia_type) ,
intent(in) :: subset
5867 type(uppDia_type) ,
intent(in) :: subsetv
5868 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5869 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5874 PURE module subroutine setCFC_RUXD_VUXD_CK2(cor, subset, cov, subsetv)
5875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5876 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_CK2
5879 type(uppDia_type) ,
intent(in) :: subset
5880 type(uppDia_type) ,
intent(in) :: subsetv
5881 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5882 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5887 PURE module subroutine setCFC_RUXD_VUXD_CK1(cor, subset, cov, subsetv)
5888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5889 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VUXD_CK1
5892 type(uppDia_type) ,
intent(in) :: subset
5893 type(uppDia_type) ,
intent(in) :: subsetv
5894 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5895 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5902 PURE module subroutine setCFC_RUXD_VXLD_CK5(cor, subset, cov, subsetv)
5903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5904 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_CK5
5907 type(uppDia_type) ,
intent(in) :: subset
5908 type(lowDia_type) ,
intent(in) :: subsetv
5909 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5910 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5915 PURE module subroutine setCFC_RUXD_VXLD_CK4(cor, subset, cov, subsetv)
5916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5917 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_CK4
5920 type(uppDia_type) ,
intent(in) :: subset
5921 type(lowDia_type) ,
intent(in) :: subsetv
5922 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5923 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5928 PURE module subroutine setCFC_RUXD_VXLD_CK3(cor, subset, cov, subsetv)
5929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5930 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_CK3
5933 type(uppDia_type) ,
intent(in) :: subset
5934 type(lowDia_type) ,
intent(in) :: subsetv
5935 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5936 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5941 PURE module subroutine setCFC_RUXD_VXLD_CK2(cor, subset, cov, subsetv)
5942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5943 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_CK2
5946 type(uppDia_type) ,
intent(in) :: subset
5947 type(lowDia_type) ,
intent(in) :: subsetv
5948 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5949 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5954 PURE module subroutine setCFC_RUXD_VXLD_CK1(cor, subset, cov, subsetv)
5955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5956 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RUXD_VXLD_CK1
5959 type(uppDia_type) ,
intent(in) :: subset
5960 type(lowDia_type) ,
intent(in) :: subsetv
5961 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5962 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5975 PURE module subroutine setCFC_RXLD_VUXD_CK5(cor, subset, cov, subsetv)
5976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5977 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_CK5
5980 type(lowDia_type) ,
intent(in) :: subset
5981 type(uppDia_type) ,
intent(in) :: subsetv
5982 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5983 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
5988 PURE module subroutine setCFC_RXLD_VUXD_CK4(cor, subset, cov, subsetv)
5989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5990 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_CK4
5993 type(lowDia_type) ,
intent(in) :: subset
5994 type(uppDia_type) ,
intent(in) :: subsetv
5995 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
5996 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6001 PURE module subroutine setCFC_RXLD_VUXD_CK3(cor, subset, cov, subsetv)
6002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6003 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_CK3
6006 type(lowDia_type) ,
intent(in) :: subset
6007 type(uppDia_type) ,
intent(in) :: subsetv
6008 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
6009 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6014 PURE module subroutine setCFC_RXLD_VUXD_CK2(cor, subset, cov, subsetv)
6015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6016 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_CK2
6019 type(lowDia_type) ,
intent(in) :: subset
6020 type(uppDia_type) ,
intent(in) :: subsetv
6021 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
6022 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6027 PURE module subroutine setCFC_RXLD_VUXD_CK1(cor, subset, cov, subsetv)
6028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6029 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VUXD_CK1
6032 type(lowDia_type) ,
intent(in) :: subset
6033 type(uppDia_type) ,
intent(in) :: subsetv
6034 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
6035 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6042 PURE module subroutine setCFC_RXLD_VXLD_CK5(cor, subset, cov, subsetv)
6043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6044 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_CK5
6047 type(lowDia_type) ,
intent(in) :: subset
6048 type(lowDia_type) ,
intent(in) :: subsetv
6049 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
6050 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6055 PURE module subroutine setCFC_RXLD_VXLD_CK4(cor, subset, cov, subsetv)
6056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6057 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_CK4
6060 type(lowDia_type) ,
intent(in) :: subset
6061 type(lowDia_type) ,
intent(in) :: subsetv
6062 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
6063 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6068 PURE module subroutine setCFC_RXLD_VXLD_CK3(cor, subset, cov, subsetv)
6069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6070 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_CK3
6073 type(lowDia_type) ,
intent(in) :: subset
6074 type(lowDia_type) ,
intent(in) :: subsetv
6075 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
6076 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6081 PURE module subroutine setCFC_RXLD_VXLD_CK2(cor, subset, cov, subsetv)
6082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6083 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_CK2
6086 type(lowDia_type) ,
intent(in) :: subset
6087 type(lowDia_type) ,
intent(in) :: subsetv
6088 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
6089 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6094 PURE module subroutine setCFC_RXLD_VXLD_CK1(cor, subset, cov, subsetv)
6095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6096 !DEC$ ATTRIBUTES DLLEXPORT :: setCFC_RXLD_VXLD_CK1
6099 type(lowDia_type) ,
intent(in) :: subset
6100 type(lowDia_type) ,
intent(in) :: subsetv
6101 complex(TKG) ,
intent(in) ,
contiguous :: cov(:,:)
6102 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6123 PURE module subroutine setPrsOrgWNO_XY_CK5(cor, x, y)
6124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6125 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_CK5
6128 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6129 complex(TKG) ,
intent(out) :: cor
6134 PURE module subroutine setPrsOrgWNO_XY_CK4(cor, x, y)
6135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6136 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_CK4
6139 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6140 complex(TKG) ,
intent(out) :: cor
6145 PURE module subroutine setPrsOrgWNO_XY_CK3(cor, x, y)
6146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6147 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_CK3
6150 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6151 complex(TKG) ,
intent(out) :: cor
6156 PURE module subroutine setPrsOrgWNO_XY_CK2(cor, x, y)
6157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6158 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_CK2
6161 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6162 complex(TKG) ,
intent(out) :: cor
6167 PURE module subroutine setPrsOrgWNO_XY_CK1(cor, x, y)
6168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6169 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XY_CK1
6172 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6173 complex(TKG) ,
intent(out) :: cor
6180 PURE module subroutine setPrsAvgWNO_XY_CK5(cor, mean, x, y)
6181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6182 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_CK5
6185 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6186 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6187 complex(TKG) ,
intent(out) :: cor
6192 PURE module subroutine setPrsAvgWNO_XY_CK4(cor, mean, x, y)
6193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6194 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_CK4
6197 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6198 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6199 complex(TKG) ,
intent(out) :: cor
6204 PURE module subroutine setPrsAvgWNO_XY_CK3(cor, mean, x, y)
6205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6206 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_CK3
6209 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6210 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6211 complex(TKG) ,
intent(out) :: cor
6216 PURE module subroutine setPrsAvgWNO_XY_CK2(cor, mean, x, y)
6217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6218 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_CK2
6221 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6222 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6223 complex(TKG) ,
intent(out) :: cor
6228 PURE module subroutine setPrsAvgWNO_XY_CK1(cor, mean, x, y)
6229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6230 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XY_CK1
6233 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6234 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6235 complex(TKG) ,
intent(out) :: cor
6250 PURE module subroutine setPrsOrgWTI_XY_CK5(cor, x, y, weight, weisum)
6251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6252 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_CK5
6255 integer(IK) ,
intent(in) :: weisum
6256 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6257 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6258 complex(TKG) ,
intent(out) :: cor
6263 PURE module subroutine setPrsOrgWTI_XY_CK4(cor, x, y, weight, weisum)
6264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6265 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_CK4
6268 integer(IK) ,
intent(in) :: weisum
6269 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6270 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6271 complex(TKG) ,
intent(out) :: cor
6276 PURE module subroutine setPrsOrgWTI_XY_CK3(cor, x, y, weight, weisum)
6277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6278 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_CK3
6281 integer(IK) ,
intent(in) :: weisum
6282 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6283 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6284 complex(TKG) ,
intent(out) :: cor
6289 PURE module subroutine setPrsOrgWTI_XY_CK2(cor, x, y, weight, weisum)
6290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6291 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_CK2
6294 integer(IK) ,
intent(in) :: weisum
6295 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6296 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6297 complex(TKG) ,
intent(out) :: cor
6302 PURE module subroutine setPrsOrgWTI_XY_CK1(cor, x, y, weight, weisum)
6303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6304 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XY_CK1
6307 integer(IK) ,
intent(in) :: weisum
6308 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6309 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6310 complex(TKG) ,
intent(out) :: cor
6317 PURE module subroutine setPrsAvgWTI_XY_CK5(cor, mean, x, y, weight, weisum)
6318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6319 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_CK5
6322 integer(IK) ,
intent(in) :: weisum
6323 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6324 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6325 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6326 complex(TKG) ,
intent(out) :: cor
6331 PURE module subroutine setPrsAvgWTI_XY_CK4(cor, mean, x, y, weight, weisum)
6332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6333 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_CK4
6336 integer(IK) ,
intent(in) :: weisum
6337 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6338 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6339 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6340 complex(TKG) ,
intent(out) :: cor
6345 PURE module subroutine setPrsAvgWTI_XY_CK3(cor, mean, x, y, weight, weisum)
6346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6347 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_CK3
6350 integer(IK) ,
intent(in) :: weisum
6351 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6352 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6353 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6354 complex(TKG) ,
intent(out) :: cor
6359 PURE module subroutine setPrsAvgWTI_XY_CK2(cor, mean, x, y, weight, weisum)
6360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6361 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_CK2
6364 integer(IK) ,
intent(in) :: weisum
6365 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6366 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6367 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6368 complex(TKG) ,
intent(out) :: cor
6373 PURE module subroutine setPrsAvgWTI_XY_CK1(cor, mean, x, y, weight, weisum)
6374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6375 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XY_CK1
6378 integer(IK) ,
intent(in) :: weisum
6379 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6380 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6381 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6382 complex(TKG) ,
intent(out) :: cor
6397 PURE module subroutine setPrsOrgWTR_XY_CK5(cor, x, y, weight, weisum)
6398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6399 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_CK5
6402 real(TKG) ,
intent(in) :: weisum
6403 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6404 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6405 complex(TKG) ,
intent(out) :: cor
6410 PURE module subroutine setPrsOrgWTR_XY_CK4(cor, x, y, weight, weisum)
6411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6412 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_CK4
6415 real(TKG) ,
intent(in) :: weisum
6416 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6417 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6418 complex(TKG) ,
intent(out) :: cor
6423 PURE module subroutine setPrsOrgWTR_XY_CK3(cor, x, y, weight, weisum)
6424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6425 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_CK3
6428 real(TKG) ,
intent(in) :: weisum
6429 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6430 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6431 complex(TKG) ,
intent(out) :: cor
6436 PURE module subroutine setPrsOrgWTR_XY_CK2(cor, x, y, weight, weisum)
6437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6438 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_CK2
6441 real(TKG) ,
intent(in) :: weisum
6442 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6443 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6444 complex(TKG) ,
intent(out) :: cor
6449 PURE module subroutine setPrsOrgWTR_XY_CK1(cor, x, y, weight, weisum)
6450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6451 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XY_CK1
6454 real(TKG) ,
intent(in) :: weisum
6455 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6456 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6457 complex(TKG) ,
intent(out) :: cor
6464 PURE module subroutine setPrsAvgWTR_XY_CK5(cor, mean, x, y, weight, weisum)
6465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6466 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_CK5
6469 real(TKG) ,
intent(in) :: weisum
6470 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6471 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6472 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6473 complex(TKG) ,
intent(out) :: cor
6478 PURE module subroutine setPrsAvgWTR_XY_CK4(cor, mean, x, y, weight, weisum)
6479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6480 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_CK4
6483 real(TKG) ,
intent(in) :: weisum
6484 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6485 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6486 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6487 complex(TKG) ,
intent(out) :: cor
6492 PURE module subroutine setPrsAvgWTR_XY_CK3(cor, mean, x, y, weight, weisum)
6493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6494 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_CK3
6497 real(TKG) ,
intent(in) :: weisum
6498 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6499 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6500 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6501 complex(TKG) ,
intent(out) :: cor
6506 PURE module subroutine setPrsAvgWTR_XY_CK2(cor, mean, x, y, weight, weisum)
6507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6508 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_CK2
6511 real(TKG) ,
intent(in) :: weisum
6512 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6513 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6514 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6515 complex(TKG) ,
intent(out) :: cor
6520 PURE module subroutine setPrsAvgWTR_XY_CK1(cor, mean, x, y, weight, weisum)
6521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6522 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XY_CK1
6525 real(TKG) ,
intent(in) :: weisum
6526 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6527 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6528 complex(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
6529 complex(TKG) ,
intent(out) :: cor
6546 PURE module subroutine setPrsOrgWNO_UXD_CK5(cor, subset, sample, dim)
6547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6548 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_CK5
6551 integer(IK) ,
intent(in) :: dim
6552 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6553 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6554 type(uppDia_type) ,
intent(in) :: subset
6559 PURE module subroutine setPrsOrgWNO_UXD_CK4(cor, subset, sample, dim)
6560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6561 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_CK4
6564 integer(IK) ,
intent(in) :: dim
6565 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6566 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6567 type(uppDia_type) ,
intent(in) :: subset
6572 PURE module subroutine setPrsOrgWNO_UXD_CK3(cor, subset, sample, dim)
6573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6574 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_CK3
6577 integer(IK) ,
intent(in) :: dim
6578 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6579 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6580 type(uppDia_type) ,
intent(in) :: subset
6585 PURE module subroutine setPrsOrgWNO_UXD_CK2(cor, subset, sample, dim)
6586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6587 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_CK2
6590 integer(IK) ,
intent(in) :: dim
6591 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6592 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6593 type(uppDia_type) ,
intent(in) :: subset
6598 PURE module subroutine setPrsOrgWNO_UXD_CK1(cor, subset, sample, dim)
6599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6600 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_UXD_CK1
6603 integer(IK) ,
intent(in) :: dim
6604 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6605 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6606 type(uppDia_type) ,
intent(in) :: subset
6613 PURE module subroutine setPrsAvgWNO_UXD_CK5(cor, subset, mean, sample, dim)
6614#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6615 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_CK5
6618 integer(IK) ,
intent(in) :: dim
6619 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6620 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6621 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6622 type(uppDia_type) ,
intent(in) :: subset
6627 PURE module subroutine setPrsAvgWNO_UXD_CK4(cor, subset, mean, sample, dim)
6628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6629 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_CK4
6632 integer(IK) ,
intent(in) :: dim
6633 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6634 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6635 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6636 type(uppDia_type) ,
intent(in) :: subset
6641 PURE module subroutine setPrsAvgWNO_UXD_CK3(cor, subset, mean, sample, dim)
6642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6643 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_CK3
6646 integer(IK) ,
intent(in) :: dim
6647 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6648 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6649 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6650 type(uppDia_type) ,
intent(in) :: subset
6655 PURE module subroutine setPrsAvgWNO_UXD_CK2(cor, subset, mean, sample, dim)
6656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6657 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_CK2
6660 integer(IK) ,
intent(in) :: dim
6661 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6662 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6663 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6664 type(uppDia_type) ,
intent(in) :: subset
6669 PURE module subroutine setPrsAvgWNO_UXD_CK1(cor, subset, mean, sample, dim)
6670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6671 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_UXD_CK1
6674 integer(IK) ,
intent(in) :: dim
6675 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6676 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6677 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6678 type(uppDia_type) ,
intent(in) :: subset
6693 PURE module subroutine setPrsOrgWTI_UXD_CK5(cor, subset, sample, dim, weight, weisum)
6694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6695 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_CK5
6698 integer(IK) ,
intent(in) :: dim
6699 integer(IK) ,
intent(in) :: weisum
6700 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6701 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6702 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6703 type(uppDia_type) ,
intent(in) :: subset
6708 PURE module subroutine setPrsOrgWTI_UXD_CK4(cor, subset, sample, dim, weight, weisum)
6709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6710 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_CK4
6713 integer(IK) ,
intent(in) :: dim
6714 integer(IK) ,
intent(in) :: weisum
6715 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6716 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6717 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6718 type(uppDia_type) ,
intent(in) :: subset
6723 PURE module subroutine setPrsOrgWTI_UXD_CK3(cor, subset, sample, dim, weight, weisum)
6724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6725 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_CK3
6728 integer(IK) ,
intent(in) :: dim
6729 integer(IK) ,
intent(in) :: weisum
6730 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6731 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6732 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6733 type(uppDia_type) ,
intent(in) :: subset
6738 PURE module subroutine setPrsOrgWTI_UXD_CK2(cor, subset, sample, dim, weight, weisum)
6739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6740 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_CK2
6743 integer(IK) ,
intent(in) :: dim
6744 integer(IK) ,
intent(in) :: weisum
6745 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6746 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6747 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6748 type(uppDia_type) ,
intent(in) :: subset
6753 PURE module subroutine setPrsOrgWTI_UXD_CK1(cor, subset, sample, dim, weight, weisum)
6754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6755 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_UXD_CK1
6758 integer(IK) ,
intent(in) :: dim
6759 integer(IK) ,
intent(in) :: weisum
6760 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6761 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6762 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6763 type(uppDia_type) ,
intent(in) :: subset
6770 PURE module subroutine setPrsAvgWTI_UXD_CK5(cor, subset, mean, sample, dim, weight, weisum)
6771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6772 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_CK5
6775 integer(IK) ,
intent(in) :: dim
6776 integer(IK) ,
intent(in) :: weisum
6777 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6778 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6779 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6780 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6781 type(uppDia_type) ,
intent(in) :: subset
6786 PURE module subroutine setPrsAvgWTI_UXD_CK4(cor, subset, mean, sample, dim, weight, weisum)
6787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6788 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_CK4
6791 integer(IK) ,
intent(in) :: dim
6792 integer(IK) ,
intent(in) :: weisum
6793 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6794 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6795 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6796 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6797 type(uppDia_type) ,
intent(in) :: subset
6802 PURE module subroutine setPrsAvgWTI_UXD_CK3(cor, subset, mean, sample, dim, weight, weisum)
6803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6804 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_CK3
6807 integer(IK) ,
intent(in) :: dim
6808 integer(IK) ,
intent(in) :: weisum
6809 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6810 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6811 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6812 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6813 type(uppDia_type) ,
intent(in) :: subset
6818 PURE module subroutine setPrsAvgWTI_UXD_CK2(cor, subset, mean, sample, dim, weight, weisum)
6819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6820 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_CK2
6823 integer(IK) ,
intent(in) :: dim
6824 integer(IK) ,
intent(in) :: weisum
6825 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6826 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6827 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6828 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6829 type(uppDia_type) ,
intent(in) :: subset
6834 PURE module subroutine setPrsAvgWTI_UXD_CK1(cor, subset, mean, sample, dim, weight, weisum)
6835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6836 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_UXD_CK1
6839 integer(IK) ,
intent(in) :: dim
6840 integer(IK) ,
intent(in) :: weisum
6841 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
6842 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6843 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6844 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6845 type(uppDia_type) ,
intent(in) :: subset
6860 PURE module subroutine setPrsOrgWTR_UXD_CK5(cor, subset, sample, dim, weight, weisum)
6861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6862 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_CK5
6865 integer(IK) ,
intent(in) :: dim
6866 real(TKG) ,
intent(in) :: weisum
6867 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6868 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6869 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6870 type(uppDia_type) ,
intent(in) :: subset
6875 PURE module subroutine setPrsOrgWTR_UXD_CK4(cor, subset, sample, dim, weight, weisum)
6876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6877 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_CK4
6880 integer(IK) ,
intent(in) :: dim
6881 real(TKG) ,
intent(in) :: weisum
6882 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6883 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6884 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6885 type(uppDia_type) ,
intent(in) :: subset
6890 PURE module subroutine setPrsOrgWTR_UXD_CK3(cor, subset, sample, dim, weight, weisum)
6891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6892 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_CK3
6895 integer(IK) ,
intent(in) :: dim
6896 real(TKG) ,
intent(in) :: weisum
6897 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6898 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6899 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6900 type(uppDia_type) ,
intent(in) :: subset
6905 PURE module subroutine setPrsOrgWTR_UXD_CK2(cor, subset, sample, dim, weight, weisum)
6906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6907 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_CK2
6910 integer(IK) ,
intent(in) :: dim
6911 real(TKG) ,
intent(in) :: weisum
6912 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6913 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6914 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6915 type(uppDia_type) ,
intent(in) :: subset
6920 PURE module subroutine setPrsOrgWTR_UXD_CK1(cor, subset, sample, dim, weight, weisum)
6921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6922 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_UXD_CK1
6925 integer(IK) ,
intent(in) :: dim
6926 real(TKG) ,
intent(in) :: weisum
6927 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6928 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6929 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6930 type(uppDia_type) ,
intent(in) :: subset
6937 PURE module subroutine setPrsAvgWTR_UXD_CK5(cor, subset, mean, sample, dim, weight, weisum)
6938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6939 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_CK5
6942 integer(IK) ,
intent(in) :: dim
6943 real(TKG) ,
intent(in) :: weisum
6944 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6945 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6946 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6947 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6948 type(uppDia_type) ,
intent(in) :: subset
6953 PURE module subroutine setPrsAvgWTR_UXD_CK4(cor, subset, mean, sample, dim, weight, weisum)
6954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6955 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_CK4
6958 integer(IK) ,
intent(in) :: dim
6959 real(TKG) ,
intent(in) :: weisum
6960 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6961 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6962 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6963 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6964 type(uppDia_type) ,
intent(in) :: subset
6969 PURE module subroutine setPrsAvgWTR_UXD_CK3(cor, subset, mean, sample, dim, weight, weisum)
6970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6971 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_CK3
6974 integer(IK) ,
intent(in) :: dim
6975 real(TKG) ,
intent(in) :: weisum
6976 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6977 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6978 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6979 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6980 type(uppDia_type) ,
intent(in) :: subset
6985 PURE module subroutine setPrsAvgWTR_UXD_CK2(cor, subset, mean, sample, dim, weight, weisum)
6986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6987 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_CK2
6990 integer(IK) ,
intent(in) :: dim
6991 real(TKG) ,
intent(in) :: weisum
6992 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
6993 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
6994 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
6995 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
6996 type(uppDia_type) ,
intent(in) :: subset
7001 PURE module subroutine setPrsAvgWTR_UXD_CK1(cor, subset, mean, sample, dim, weight, weisum)
7002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7003 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_UXD_CK1
7006 integer(IK) ,
intent(in) :: dim
7007 real(TKG) ,
intent(in) :: weisum
7008 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7009 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7010 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7011 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7012 type(uppDia_type) ,
intent(in) :: subset
7029 PURE module subroutine setPrsOrgWNO_XLD_CK5(cor, subset, sample, dim)
7030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7031 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_CK5
7034 integer(IK) ,
intent(in) :: dim
7035 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7036 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7037 type(lowDia_type) ,
intent(in) :: subset
7042 PURE module subroutine setPrsOrgWNO_XLD_CK4(cor, subset, sample, dim)
7043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7044 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_CK4
7047 integer(IK) ,
intent(in) :: dim
7048 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7049 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7050 type(lowDia_type) ,
intent(in) :: subset
7055 PURE module subroutine setPrsOrgWNO_XLD_CK3(cor, subset, sample, dim)
7056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7057 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_CK3
7060 integer(IK) ,
intent(in) :: dim
7061 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7062 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7063 type(lowDia_type) ,
intent(in) :: subset
7068 PURE module subroutine setPrsOrgWNO_XLD_CK2(cor, subset, sample, dim)
7069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7070 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_CK2
7073 integer(IK) ,
intent(in) :: dim
7074 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7075 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7076 type(lowDia_type) ,
intent(in) :: subset
7081 PURE module subroutine setPrsOrgWNO_XLD_CK1(cor, subset, sample, dim)
7082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7083 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWNO_XLD_CK1
7086 integer(IK) ,
intent(in) :: dim
7087 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7088 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7089 type(lowDia_type) ,
intent(in) :: subset
7096 PURE module subroutine setPrsAvgWNO_XLD_CK5(cor, subset, mean, sample, dim)
7097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7098 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_CK5
7101 integer(IK) ,
intent(in) :: dim
7102 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7103 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7104 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7105 type(lowDia_type) ,
intent(in) :: subset
7110 PURE module subroutine setPrsAvgWNO_XLD_CK4(cor, subset, mean, sample, dim)
7111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7112 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_CK4
7115 integer(IK) ,
intent(in) :: dim
7116 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7117 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7118 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7119 type(lowDia_type) ,
intent(in) :: subset
7124 PURE module subroutine setPrsAvgWNO_XLD_CK3(cor, subset, mean, sample, dim)
7125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7126 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_CK3
7129 integer(IK) ,
intent(in) :: dim
7130 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7131 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7132 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7133 type(lowDia_type) ,
intent(in) :: subset
7138 PURE module subroutine setPrsAvgWNO_XLD_CK2(cor, subset, mean, sample, dim)
7139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7140 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_CK2
7143 integer(IK) ,
intent(in) :: dim
7144 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7145 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7146 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7147 type(lowDia_type) ,
intent(in) :: subset
7152 PURE module subroutine setPrsAvgWNO_XLD_CK1(cor, subset, mean, sample, dim)
7153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7154 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWNO_XLD_CK1
7157 integer(IK) ,
intent(in) :: dim
7158 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7159 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7160 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7161 type(lowDia_type) ,
intent(in) :: subset
7176 PURE module subroutine setPrsOrgWTI_XLD_CK5(cor, subset, sample, dim, weight, weisum)
7177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7178 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_CK5
7181 integer(IK) ,
intent(in) :: dim
7182 integer(IK) ,
intent(in) :: weisum
7183 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7184 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7185 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7186 type(lowDia_type) ,
intent(in) :: subset
7191 PURE module subroutine setPrsOrgWTI_XLD_CK4(cor, subset, sample, dim, weight, weisum)
7192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7193 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_CK4
7196 integer(IK) ,
intent(in) :: dim
7197 integer(IK) ,
intent(in) :: weisum
7198 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7199 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7200 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7201 type(lowDia_type) ,
intent(in) :: subset
7206 PURE module subroutine setPrsOrgWTI_XLD_CK3(cor, subset, sample, dim, weight, weisum)
7207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7208 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_CK3
7211 integer(IK) ,
intent(in) :: dim
7212 integer(IK) ,
intent(in) :: weisum
7213 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7214 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7215 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7216 type(lowDia_type) ,
intent(in) :: subset
7221 PURE module subroutine setPrsOrgWTI_XLD_CK2(cor, subset, sample, dim, weight, weisum)
7222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7223 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_CK2
7226 integer(IK) ,
intent(in) :: dim
7227 integer(IK) ,
intent(in) :: weisum
7228 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7229 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7230 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7231 type(lowDia_type) ,
intent(in) :: subset
7236 PURE module subroutine setPrsOrgWTI_XLD_CK1(cor, subset, sample, dim, weight, weisum)
7237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7238 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTI_XLD_CK1
7241 integer(IK) ,
intent(in) :: dim
7242 integer(IK) ,
intent(in) :: weisum
7243 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7244 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7245 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7246 type(lowDia_type) ,
intent(in) :: subset
7253 PURE module subroutine setPrsAvgWTI_XLD_CK5(cor, subset, mean, sample, dim, weight, weisum)
7254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7255 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_CK5
7258 integer(IK) ,
intent(in) :: dim
7259 integer(IK) ,
intent(in) :: weisum
7260 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7261 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7262 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7263 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7264 type(lowDia_type) ,
intent(in) :: subset
7269 PURE module subroutine setPrsAvgWTI_XLD_CK4(cor, subset, mean, sample, dim, weight, weisum)
7270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7271 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_CK4
7274 integer(IK) ,
intent(in) :: dim
7275 integer(IK) ,
intent(in) :: weisum
7276 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7277 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7278 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7279 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7280 type(lowDia_type) ,
intent(in) :: subset
7285 PURE module subroutine setPrsAvgWTI_XLD_CK3(cor, subset, mean, sample, dim, weight, weisum)
7286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7287 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_CK3
7290 integer(IK) ,
intent(in) :: dim
7291 integer(IK) ,
intent(in) :: weisum
7292 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7293 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7294 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7295 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7296 type(lowDia_type) ,
intent(in) :: subset
7301 PURE module subroutine setPrsAvgWTI_XLD_CK2(cor, subset, mean, sample, dim, weight, weisum)
7302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7303 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_CK2
7306 integer(IK) ,
intent(in) :: dim
7307 integer(IK) ,
intent(in) :: weisum
7308 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7309 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7310 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7311 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7312 type(lowDia_type) ,
intent(in) :: subset
7317 PURE module subroutine setPrsAvgWTI_XLD_CK1(cor, subset, mean, sample, dim, weight, weisum)
7318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7319 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTI_XLD_CK1
7322 integer(IK) ,
intent(in) :: dim
7323 integer(IK) ,
intent(in) :: weisum
7324 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7325 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7326 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7327 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7328 type(lowDia_type) ,
intent(in) :: subset
7343 PURE module subroutine setPrsOrgWTR_XLD_CK5(cor, subset, sample, dim, weight, weisum)
7344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7345 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_CK5
7348 integer(IK) ,
intent(in) :: dim
7349 real(TKG) ,
intent(in) :: weisum
7350 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7351 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7352 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7353 type(lowDia_type) ,
intent(in) :: subset
7358 PURE module subroutine setPrsOrgWTR_XLD_CK4(cor, subset, sample, dim, weight, weisum)
7359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7360 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_CK4
7363 integer(IK) ,
intent(in) :: dim
7364 real(TKG) ,
intent(in) :: weisum
7365 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7366 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7367 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7368 type(lowDia_type) ,
intent(in) :: subset
7373 PURE module subroutine setPrsOrgWTR_XLD_CK3(cor, subset, sample, dim, weight, weisum)
7374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7375 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_CK3
7378 integer(IK) ,
intent(in) :: dim
7379 real(TKG) ,
intent(in) :: weisum
7380 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7381 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7382 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7383 type(lowDia_type) ,
intent(in) :: subset
7388 PURE module subroutine setPrsOrgWTR_XLD_CK2(cor, subset, sample, dim, weight, weisum)
7389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7390 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_CK2
7393 integer(IK) ,
intent(in) :: dim
7394 real(TKG) ,
intent(in) :: weisum
7395 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7396 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7397 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7398 type(lowDia_type) ,
intent(in) :: subset
7403 PURE module subroutine setPrsOrgWTR_XLD_CK1(cor, subset, sample, dim, weight, weisum)
7404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7405 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsOrgWTR_XLD_CK1
7408 integer(IK) ,
intent(in) :: dim
7409 real(TKG) ,
intent(in) :: weisum
7410 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7411 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7412 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7413 type(lowDia_type) ,
intent(in) :: subset
7420 PURE module subroutine setPrsAvgWTR_XLD_CK5(cor, subset, mean, sample, dim, weight, weisum)
7421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7422 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_CK5
7425 integer(IK) ,
intent(in) :: dim
7426 real(TKG) ,
intent(in) :: weisum
7427 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7428 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7429 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7430 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7431 type(lowDia_type) ,
intent(in) :: subset
7436 PURE module subroutine setPrsAvgWTR_XLD_CK4(cor, subset, mean, sample, dim, weight, weisum)
7437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7438 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_CK4
7441 integer(IK) ,
intent(in) :: dim
7442 real(TKG) ,
intent(in) :: weisum
7443 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7444 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7445 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7446 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7447 type(lowDia_type) ,
intent(in) :: subset
7452 PURE module subroutine setPrsAvgWTR_XLD_CK3(cor, subset, mean, sample, dim, weight, weisum)
7453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7454 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_CK3
7457 integer(IK) ,
intent(in) :: dim
7458 real(TKG) ,
intent(in) :: weisum
7459 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7460 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7461 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7462 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7463 type(lowDia_type) ,
intent(in) :: subset
7468 PURE module subroutine setPrsAvgWTR_XLD_CK2(cor, subset, mean, sample, dim, weight, weisum)
7469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7470 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_CK2
7473 integer(IK) ,
intent(in) :: dim
7474 real(TKG) ,
intent(in) :: weisum
7475 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7476 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7477 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7478 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7479 type(lowDia_type) ,
intent(in) :: subset
7484 PURE module subroutine setPrsAvgWTR_XLD_CK1(cor, subset, mean, sample, dim, weight, weisum)
7485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7486 !DEC$ ATTRIBUTES DLLEXPORT :: setPrsAvgWTR_XLD_CK1
7489 integer(IK) ,
intent(in) :: dim
7490 real(TKG) ,
intent(in) :: weisum
7491 complex(TKG) ,
intent(in) ,
contiguous :: mean(:)
7492 real(TKG) ,
intent(in) ,
contiguous :: weight(:)
7493 complex(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
7494 complex(TKG) ,
intent(inout) ,
contiguous :: cor(:,:)
7495 type(lowDia_type) ,
intent(in) :: subset
7648 PURE module function getRhoWNO_XY_D0_SK5(x, y)
result(rho)
7649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7650 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D0_SK5
7653 character(
*,SKG) ,
intent(in) :: x, y
7659 PURE module function getRhoWNO_XY_D0_SK4(x, y)
result(rho)
7660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7661 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D0_SK4
7664 character(
*,SKG) ,
intent(in) :: x, y
7670 PURE module function getRhoWNO_XY_D0_SK3(x, y)
result(rho)
7671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7672 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D0_SK3
7675 character(
*,SKG) ,
intent(in) :: x, y
7681 PURE module function getRhoWNO_XY_D0_SK2(x, y)
result(rho)
7682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7683 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D0_SK2
7686 character(
*,SKG) ,
intent(in) :: x, y
7692 PURE module function getRhoWNO_XY_D0_SK1(x, y)
result(rho)
7693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7694 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D0_SK1
7697 character(
*,SKG) ,
intent(in) :: x, y
7705 PURE module function getRhoWNO_XY_D1_SK5(x, y)
result(rho)
7706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7707 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_SK5
7710 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7716 PURE module function getRhoWNO_XY_D1_SK4(x, y)
result(rho)
7717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7718 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_SK4
7721 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7727 PURE module function getRhoWNO_XY_D1_SK3(x, y)
result(rho)
7728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7729 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_SK3
7732 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7738 PURE module function getRhoWNO_XY_D1_SK2(x, y)
result(rho)
7739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7740 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_SK2
7743 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7749 PURE module function getRhoWNO_XY_D1_SK1(x, y)
result(rho)
7750#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7751 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_SK1
7754 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7762 PURE module function getRhoWNO_XY_D1_IK5(x, y)
result(rho)
7763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7764 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_IK5
7767 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7773 PURE module function getRhoWNO_XY_D1_IK4(x, y)
result(rho)
7774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7775 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_IK4
7778 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7784 PURE module function getRhoWNO_XY_D1_IK3(x, y)
result(rho)
7785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7786 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_IK3
7789 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7795 PURE module function getRhoWNO_XY_D1_IK2(x, y)
result(rho)
7796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7797 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_IK2
7800 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7806 PURE module function getRhoWNO_XY_D1_IK1(x, y)
result(rho)
7807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7808 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_IK1
7811 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7819 PURE module function getRhoWNO_XY_D1_RK5(x, y)
result(rho)
7820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7821 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_RK5
7824 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7830 PURE module function getRhoWNO_XY_D1_RK4(x, y)
result(rho)
7831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7832 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_RK4
7835 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7841 PURE module function getRhoWNO_XY_D1_RK3(x, y)
result(rho)
7842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7843 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_RK3
7846 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7852 PURE module function getRhoWNO_XY_D1_RK2(x, y)
result(rho)
7853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7854 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_RK2
7857 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7863 PURE module function getRhoWNO_XY_D1_RK1(x, y)
result(rho)
7864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7865 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_RK1
7868 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
7878 PURE module function getRhoWNO_XY_D1_PSSK5(x, y)
result(rho)
7879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7880 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_PSSK5
7883 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
7889 PURE module function getRhoWNO_XY_D1_PSSK4(x, y)
result(rho)
7890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7891 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_PSSK4
7894 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
7900 PURE module function getRhoWNO_XY_D1_PSSK3(x, y)
result(rho)
7901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7902 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_PSSK3
7905 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
7911 PURE module function getRhoWNO_XY_D1_PSSK2(x, y)
result(rho)
7912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7913 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_PSSK2
7916 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
7922 PURE module function getRhoWNO_XY_D1_PSSK1(x, y)
result(rho)
7923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7924 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_PSSK1
7927 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
7937 PURE module function getRhoWNO_XY_D1_BSSK(x, y)
result(rho)
7938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7939 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_XY_D1_BSSK
7942 type(css_type) ,
intent(in) ,
contiguous :: x(:), y(:)
7957 PURE module function getRhoWTI_XY_D0_SK5(x, y, weight)
result(rho)
7958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7959 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D0_SK5
7962 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7963 character(
*,SKG) ,
intent(in) :: x, y
7969 PURE module function getRhoWTI_XY_D0_SK4(x, y, weight)
result(rho)
7970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7971 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D0_SK4
7974 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7975 character(
*,SKG) ,
intent(in) :: x, y
7981 PURE module function getRhoWTI_XY_D0_SK3(x, y, weight)
result(rho)
7982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7983 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D0_SK3
7986 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7987 character(
*,SKG) ,
intent(in) :: x, y
7993 PURE module function getRhoWTI_XY_D0_SK2(x, y, weight)
result(rho)
7994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7995 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D0_SK2
7998 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
7999 character(
*,SKG) ,
intent(in) :: x, y
8005 PURE module function getRhoWTI_XY_D0_SK1(x, y, weight)
result(rho)
8006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8007 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D0_SK1
8010 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8011 character(
*,SKG) ,
intent(in) :: x, y
8019 PURE module function getRhoWTI_XY_D1_SK5(x, y, weight)
result(rho)
8020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8021 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_SK5
8024 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8025 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8031 PURE module function getRhoWTI_XY_D1_SK4(x, y, weight)
result(rho)
8032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8033 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_SK4
8036 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8037 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8043 PURE module function getRhoWTI_XY_D1_SK3(x, y, weight)
result(rho)
8044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8045 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_SK3
8048 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8049 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8055 PURE module function getRhoWTI_XY_D1_SK2(x, y, weight)
result(rho)
8056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8057 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_SK2
8060 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8061 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8067 PURE module function getRhoWTI_XY_D1_SK1(x, y, weight)
result(rho)
8068#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8069 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_SK1
8072 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8073 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8081 PURE module function getRhoWTI_XY_D1_IK5(x, y, weight)
result(rho)
8082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8083 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_IK5
8086 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8087 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8093 PURE module function getRhoWTI_XY_D1_IK4(x, y, weight)
result(rho)
8094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8095 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_IK4
8098 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8099 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8105 PURE module function getRhoWTI_XY_D1_IK3(x, y, weight)
result(rho)
8106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8107 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_IK3
8110 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8111 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8117 PURE module function getRhoWTI_XY_D1_IK2(x, y, weight)
result(rho)
8118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8119 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_IK2
8122 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8123 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8129 PURE module function getRhoWTI_XY_D1_IK1(x, y, weight)
result(rho)
8130#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8131 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_IK1
8134 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8135 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8143 PURE module function getRhoWTI_XY_D1_RK5(x, y, weight)
result(rho)
8144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8145 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_RK5
8148 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8149 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8155 PURE module function getRhoWTI_XY_D1_RK4(x, y, weight)
result(rho)
8156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8157 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_RK4
8160 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8161 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8167 PURE module function getRhoWTI_XY_D1_RK3(x, y, weight)
result(rho)
8168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8169 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_RK3
8172 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8173 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8179 PURE module function getRhoWTI_XY_D1_RK2(x, y, weight)
result(rho)
8180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8181 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_RK2
8184 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8185 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8191 PURE module function getRhoWTI_XY_D1_RK1(x, y, weight)
result(rho)
8192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8193 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_RK1
8196 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8197 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8207 PURE module function getRhoWTI_XY_D1_PSSK5(x, y, weight)
result(rho)
8208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8209 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_PSSK5
8212 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8213 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8219 PURE module function getRhoWTI_XY_D1_PSSK4(x, y, weight)
result(rho)
8220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8221 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_PSSK4
8224 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8225 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8231 PURE module function getRhoWTI_XY_D1_PSSK3(x, y, weight)
result(rho)
8232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8233 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_PSSK3
8236 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8237 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8243 PURE module function getRhoWTI_XY_D1_PSSK2(x, y, weight)
result(rho)
8244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8245 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_PSSK2
8248 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8249 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8255 PURE module function getRhoWTI_XY_D1_PSSK1(x, y, weight)
result(rho)
8256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8257 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_PSSK1
8260 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8261 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8271 PURE module function getRhoWTI_XY_D1_BSSK(x, y, weight)
result(rho)
8272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8273 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_XY_D1_BSSK
8276 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8277 type(css_type) ,
intent(in) ,
contiguous :: x(:), y(:)
8292 PURE module function getRhoWTR_XY_D0_SK5(x, y, weight)
result(rho)
8293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8294 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D0_SK5
8297 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8298 character(
*,SKG) ,
intent(in) :: x, y
8304 PURE module function getRhoWTR_XY_D0_SK4(x, y, weight)
result(rho)
8305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8306 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D0_SK4
8309 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8310 character(
*,SKG) ,
intent(in) :: x, y
8316 PURE module function getRhoWTR_XY_D0_SK3(x, y, weight)
result(rho)
8317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8318 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D0_SK3
8321 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8322 character(
*,SKG) ,
intent(in) :: x, y
8328 PURE module function getRhoWTR_XY_D0_SK2(x, y, weight)
result(rho)
8329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8330 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D0_SK2
8333 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8334 character(
*,SKG) ,
intent(in) :: x, y
8340 PURE module function getRhoWTR_XY_D0_SK1(x, y, weight)
result(rho)
8341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8342 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D0_SK1
8345 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8346 character(
*,SKG) ,
intent(in) :: x, y
8354 PURE module function getRhoWTR_XY_D1_SK5(x, y, weight)
result(rho)
8355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8356 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_SK5
8359 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8360 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8366 PURE module function getRhoWTR_XY_D1_SK4(x, y, weight)
result(rho)
8367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8368 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_SK4
8371 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8372 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8378 PURE module function getRhoWTR_XY_D1_SK3(x, y, weight)
result(rho)
8379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8380 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_SK3
8383 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8384 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8390 PURE module function getRhoWTR_XY_D1_SK2(x, y, weight)
result(rho)
8391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8392 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_SK2
8395 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8396 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8402 PURE module function getRhoWTR_XY_D1_SK1(x, y, weight)
result(rho)
8403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8404 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_SK1
8407 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8408 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8416 PURE module function getRhoWTR_XY_D1_IK5(x, y, weight)
result(rho)
8417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8418 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_IK5
8421 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8422 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8428 PURE module function getRhoWTR_XY_D1_IK4(x, y, weight)
result(rho)
8429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8430 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_IK4
8433 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8434 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8440 PURE module function getRhoWTR_XY_D1_IK3(x, y, weight)
result(rho)
8441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8442 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_IK3
8445 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8446 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8452 PURE module function getRhoWTR_XY_D1_IK2(x, y, weight)
result(rho)
8453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8454 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_IK2
8457 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8458 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8464 PURE module function getRhoWTR_XY_D1_IK1(x, y, weight)
result(rho)
8465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8466 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_IK1
8469 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8470 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8478 PURE module function getRhoWTR_XY_D1_RK5(x, y, weight)
result(rho)
8479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8480 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_RK5
8483 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8484 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8490 PURE module function getRhoWTR_XY_D1_RK4(x, y, weight)
result(rho)
8491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8492 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_RK4
8495 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8496 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8502 PURE module function getRhoWTR_XY_D1_RK3(x, y, weight)
result(rho)
8503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8504 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_RK3
8507 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8508 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8514 PURE module function getRhoWTR_XY_D1_RK2(x, y, weight)
result(rho)
8515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8516 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_RK2
8519 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8520 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8526 PURE module function getRhoWTR_XY_D1_RK1(x, y, weight)
result(rho)
8527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8528 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_RK1
8531 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8532 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
8542 PURE module function getRhoWTR_XY_D1_PSSK5(x, y, weight)
result(rho)
8543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8544 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_PSSK5
8547 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8548 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8554 PURE module function getRhoWTR_XY_D1_PSSK4(x, y, weight)
result(rho)
8555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8556 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_PSSK4
8559 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8560 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8566 PURE module function getRhoWTR_XY_D1_PSSK3(x, y, weight)
result(rho)
8567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8568 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_PSSK3
8571 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8572 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8578 PURE module function getRhoWTR_XY_D1_PSSK2(x, y, weight)
result(rho)
8579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8580 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_PSSK2
8583 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8584 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8590 PURE module function getRhoWTR_XY_D1_PSSK1(x, y, weight)
result(rho)
8591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8592 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_PSSK1
8595 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8596 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
8606 PURE module function getRhoWTR_XY_D1_BSSK(x, y, weight)
result(rho)
8607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8608 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_XY_D1_BSSK
8611 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
8612 type(css_type) ,
intent(in) ,
contiguous :: x(:), y(:)
8629 PURE module function getRhoWNO_ULD_SK5(sample, dim)
result(rho)
8630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8631 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_SK5
8634 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8635 integer(IK) ,
intent(in) :: dim
8636 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8641 PURE module function getRhoWNO_ULD_SK4(sample, dim)
result(rho)
8642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8643 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_SK4
8646 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8647 integer(IK) ,
intent(in) :: dim
8648 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8653 PURE module function getRhoWNO_ULD_SK3(sample, dim)
result(rho)
8654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8655 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_SK3
8658 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8659 integer(IK) ,
intent(in) :: dim
8660 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8665 PURE module function getRhoWNO_ULD_SK2(sample, dim)
result(rho)
8666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8667 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_SK2
8670 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8671 integer(IK) ,
intent(in) :: dim
8672 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8677 PURE module function getRhoWNO_ULD_SK1(sample, dim)
result(rho)
8678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8679 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_SK1
8682 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8683 integer(IK) ,
intent(in) :: dim
8684 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8691 PURE module function getRhoWNO_ULD_IK5(sample, dim)
result(rho)
8692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8693 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_IK5
8696 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
8697 integer(IK) ,
intent(in) :: dim
8698 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8703 PURE module function getRhoWNO_ULD_IK4(sample, dim)
result(rho)
8704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8705 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_IK4
8708 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
8709 integer(IK) ,
intent(in) :: dim
8710 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8715 PURE module function getRhoWNO_ULD_IK3(sample, dim)
result(rho)
8716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8717 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_IK3
8720 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
8721 integer(IK) ,
intent(in) :: dim
8722 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8727 PURE module function getRhoWNO_ULD_IK2(sample, dim)
result(rho)
8728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8729 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_IK2
8732 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
8733 integer(IK) ,
intent(in) :: dim
8734 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8739 PURE module function getRhoWNO_ULD_IK1(sample, dim)
result(rho)
8740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8741 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_IK1
8744 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
8745 integer(IK) ,
intent(in) :: dim
8746 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8753 PURE module function getRhoWNO_ULD_RK5(sample, dim)
result(rho)
8754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8755 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_RK5
8758 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
8759 integer(IK) ,
intent(in) :: dim
8760 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8765 PURE module function getRhoWNO_ULD_RK4(sample, dim)
result(rho)
8766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8767 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_RK4
8770 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
8771 integer(IK) ,
intent(in) :: dim
8772 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8777 PURE module function getRhoWNO_ULD_RK3(sample, dim)
result(rho)
8778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8779 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_RK3
8782 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
8783 integer(IK) ,
intent(in) :: dim
8784 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8789 PURE module function getRhoWNO_ULD_RK2(sample, dim)
result(rho)
8790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8791 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_RK2
8794 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
8795 integer(IK) ,
intent(in) :: dim
8796 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8801 PURE module function getRhoWNO_ULD_RK1(sample, dim)
result(rho)
8802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8803 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_RK1
8806 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
8807 integer(IK) ,
intent(in) :: dim
8808 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8817 PURE module function getRhoWNO_ULD_PSSK5(sample, dim)
result(rho)
8818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8819 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_PSSK5
8822 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
8823 integer(IK) ,
intent(in) :: dim
8824 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8829 PURE module function getRhoWNO_ULD_PSSK4(sample, dim)
result(rho)
8830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8831 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_PSSK4
8834 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
8835 integer(IK) ,
intent(in) :: dim
8836 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8841 PURE module function getRhoWNO_ULD_PSSK3(sample, dim)
result(rho)
8842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8843 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_PSSK3
8846 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
8847 integer(IK) ,
intent(in) :: dim
8848 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8853 PURE module function getRhoWNO_ULD_PSSK2(sample, dim)
result(rho)
8854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8855 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_PSSK2
8858 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
8859 integer(IK) ,
intent(in) :: dim
8860 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8865 PURE module function getRhoWNO_ULD_PSSK1(sample, dim)
result(rho)
8866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8867 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_PSSK1
8870 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
8871 integer(IK) ,
intent(in) :: dim
8872 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8881 PURE module function getRhoWNO_ULD_BSSK(sample, dim)
result(rho)
8882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8883 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWNO_ULD_BSSK
8886 type(css_type) ,
intent(in) ,
contiguous :: sample(:,:)
8887 integer(IK) ,
intent(in) :: dim
8888 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8902 PURE module function getRhoWTI_ULD_SK5(sample, dim, weight)
result(rho)
8903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8904 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_SK5
8907 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8908 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8909 integer(IK) ,
intent(in) :: dim
8910 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8915 PURE module function getRhoWTI_ULD_SK4(sample, dim, weight)
result(rho)
8916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8917 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_SK4
8920 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8921 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8922 integer(IK) ,
intent(in) :: dim
8923 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8928 PURE module function getRhoWTI_ULD_SK3(sample, dim, weight)
result(rho)
8929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8930 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_SK3
8933 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8934 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8935 integer(IK) ,
intent(in) :: dim
8936 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8941 PURE module function getRhoWTI_ULD_SK2(sample, dim, weight)
result(rho)
8942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8943 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_SK2
8946 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8947 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8948 integer(IK) ,
intent(in) :: dim
8949 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8954 PURE module function getRhoWTI_ULD_SK1(sample, dim, weight)
result(rho)
8955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8956 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_SK1
8959 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8960 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
8961 integer(IK) ,
intent(in) :: dim
8962 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8969 PURE module function getRhoWTI_ULD_IK5(sample, dim, weight)
result(rho)
8970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8971 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_IK5
8974 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8975 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
8976 integer(IK) ,
intent(in) :: dim
8977 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8982 PURE module function getRhoWTI_ULD_IK4(sample, dim, weight)
result(rho)
8983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8984 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_IK4
8987 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
8988 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
8989 integer(IK) ,
intent(in) :: dim
8990 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
8995 PURE module function getRhoWTI_ULD_IK3(sample, dim, weight)
result(rho)
8996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8997 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_IK3
9000 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9001 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
9002 integer(IK) ,
intent(in) :: dim
9003 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9008 PURE module function getRhoWTI_ULD_IK2(sample, dim, weight)
result(rho)
9009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9010 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_IK2
9013 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9014 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
9015 integer(IK) ,
intent(in) :: dim
9016 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9021 PURE module function getRhoWTI_ULD_IK1(sample, dim, weight)
result(rho)
9022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9023 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_IK1
9026 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9027 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
9028 integer(IK) ,
intent(in) :: dim
9029 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9036 PURE module function getRhoWTI_ULD_RK5(sample, dim, weight)
result(rho)
9037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9038 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_RK5
9041 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9042 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9043 integer(IK) ,
intent(in) :: dim
9044 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9049 PURE module function getRhoWTI_ULD_RK4(sample, dim, weight)
result(rho)
9050#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9051 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_RK4
9054 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9055 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9056 integer(IK) ,
intent(in) :: dim
9057 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9062 PURE module function getRhoWTI_ULD_RK3(sample, dim, weight)
result(rho)
9063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9064 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_RK3
9067 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9068 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9069 integer(IK) ,
intent(in) :: dim
9070 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9075 PURE module function getRhoWTI_ULD_RK2(sample, dim, weight)
result(rho)
9076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9077 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_RK2
9080 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9081 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9082 integer(IK) ,
intent(in) :: dim
9083 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9088 PURE module function getRhoWTI_ULD_RK1(sample, dim, weight)
result(rho)
9089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9090 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_RK1
9093 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9094 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9095 integer(IK) ,
intent(in) :: dim
9096 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9105 PURE module function getRhoWTI_ULD_PSSK5(sample, dim, weight)
result(rho)
9106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9107 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_PSSK5
9110 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9111 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9112 integer(IK) ,
intent(in) :: dim
9113 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9118 PURE module function getRhoWTI_ULD_PSSK4(sample, dim, weight)
result(rho)
9119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9120 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_PSSK4
9123 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9124 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9125 integer(IK) ,
intent(in) :: dim
9126 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9131 PURE module function getRhoWTI_ULD_PSSK3(sample, dim, weight)
result(rho)
9132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9133 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_PSSK3
9136 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9137 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9138 integer(IK) ,
intent(in) :: dim
9139 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9144 PURE module function getRhoWTI_ULD_PSSK2(sample, dim, weight)
result(rho)
9145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9146 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_PSSK2
9149 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9150 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9151 integer(IK) ,
intent(in) :: dim
9152 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9157 PURE module function getRhoWTI_ULD_PSSK1(sample, dim, weight)
result(rho)
9158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9159 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_PSSK1
9162 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9163 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9164 integer(IK) ,
intent(in) :: dim
9165 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9174 PURE module function getRhoWTI_ULD_BSSK(sample, dim, weight)
result(rho)
9175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9176 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTI_ULD_BSSK
9179 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9180 type(css_type) ,
intent(in) ,
contiguous :: sample(:,:)
9181 integer(IK) ,
intent(in) :: dim
9182 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9196 PURE module function getRhoWTR_ULD_SK5(sample, dim, weight)
result(rho)
9197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9198 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_SK5
9201 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9202 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
9203 integer(IK) ,
intent(in) :: dim
9204 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9209 PURE module function getRhoWTR_ULD_SK4(sample, dim, weight)
result(rho)
9210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9211 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_SK4
9214 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9215 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
9216 integer(IK) ,
intent(in) :: dim
9217 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9222 PURE module function getRhoWTR_ULD_SK3(sample, dim, weight)
result(rho)
9223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9224 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_SK3
9227 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9228 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
9229 integer(IK) ,
intent(in) :: dim
9230 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9235 PURE module function getRhoWTR_ULD_SK2(sample, dim, weight)
result(rho)
9236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9237 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_SK2
9240 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9241 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
9242 integer(IK) ,
intent(in) :: dim
9243 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9248 PURE module function getRhoWTR_ULD_SK1(sample, dim, weight)
result(rho)
9249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9250 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_SK1
9253 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9254 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
9255 integer(IK) ,
intent(in) :: dim
9256 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9263 PURE module function getRhoWTR_ULD_IK5(sample, dim, weight)
result(rho)
9264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9265 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_IK5
9268 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9269 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
9270 integer(IK) ,
intent(in) :: dim
9271 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9276 PURE module function getRhoWTR_ULD_IK4(sample, dim, weight)
result(rho)
9277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9278 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_IK4
9281 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9282 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
9283 integer(IK) ,
intent(in) :: dim
9284 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9289 PURE module function getRhoWTR_ULD_IK3(sample, dim, weight)
result(rho)
9290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9291 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_IK3
9294 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9295 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
9296 integer(IK) ,
intent(in) :: dim
9297 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9302 PURE module function getRhoWTR_ULD_IK2(sample, dim, weight)
result(rho)
9303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9304 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_IK2
9307 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9308 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
9309 integer(IK) ,
intent(in) :: dim
9310 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9315 PURE module function getRhoWTR_ULD_IK1(sample, dim, weight)
result(rho)
9316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9317 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_IK1
9320 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9321 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
9322 integer(IK) ,
intent(in) :: dim
9323 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9330 PURE module function getRhoWTR_ULD_RK5(sample, dim, weight)
result(rho)
9331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9332 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_RK5
9335 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9336 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9337 integer(IK) ,
intent(in) :: dim
9338 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9343 PURE module function getRhoWTR_ULD_RK4(sample, dim, weight)
result(rho)
9344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9345 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_RK4
9348 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9349 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9350 integer(IK) ,
intent(in) :: dim
9351 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9356 PURE module function getRhoWTR_ULD_RK3(sample, dim, weight)
result(rho)
9357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9358 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_RK3
9361 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9362 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9363 integer(IK) ,
intent(in) :: dim
9364 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9369 PURE module function getRhoWTR_ULD_RK2(sample, dim, weight)
result(rho)
9370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9371 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_RK2
9374 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9375 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9376 integer(IK) ,
intent(in) :: dim
9377 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9382 PURE module function getRhoWTR_ULD_RK1(sample, dim, weight)
result(rho)
9383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9384 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_RK1
9387 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9388 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
9389 integer(IK) ,
intent(in) :: dim
9390 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9399 PURE module function getRhoWTR_ULD_PSSK5(sample, dim, weight)
result(rho)
9400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9401 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_PSSK5
9404 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9405 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9406 integer(IK) ,
intent(in) :: dim
9407 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9412 PURE module function getRhoWTR_ULD_PSSK4(sample, dim, weight)
result(rho)
9413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9414 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_PSSK4
9417 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9418 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9419 integer(IK) ,
intent(in) :: dim
9420 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9425 PURE module function getRhoWTR_ULD_PSSK3(sample, dim, weight)
result(rho)
9426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9427 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_PSSK3
9430 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9431 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9432 integer(IK) ,
intent(in) :: dim
9433 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9438 PURE module function getRhoWTR_ULD_PSSK2(sample, dim, weight)
result(rho)
9439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9440 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_PSSK2
9443 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9444 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9445 integer(IK) ,
intent(in) :: dim
9446 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9451 PURE module function getRhoWTR_ULD_PSSK1(sample, dim, weight)
result(rho)
9452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9453 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_PSSK1
9456 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9457 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
9458 integer(IK) ,
intent(in) :: dim
9459 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9468 PURE module function getRhoWTR_ULD_BSSK(sample, dim, weight)
result(rho)
9469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9470 !DEC$ ATTRIBUTES DLLEXPORT :: getRhoWTR_ULD_BSSK
9473 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
9474 type(css_type) ,
intent(in) ,
contiguous :: sample(:,:)
9475 integer(IK) ,
intent(in) :: dim
9476 real(TKR) :: rho(
size(sample,
3 - dim, IK),
size(sample,
3 - dim, IK))
9650 PURE module subroutine setRhoWNO_XY_D0_SK5(rho, frankx, franky, x, y)
9651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9652 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D0_SK5
9655 character(
*,SKG) ,
intent(in) :: x, y
9656 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9657 real(TKR) ,
intent(out) :: rho
9662 PURE module subroutine setRhoWNO_XY_D0_SK4(rho, frankx, franky, x, y)
9663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9664 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D0_SK4
9667 character(
*,SKG) ,
intent(in) :: x, y
9668 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9669 real(TKR) ,
intent(out) :: rho
9674 PURE module subroutine setRhoWNO_XY_D0_SK3(rho, frankx, franky, x, y)
9675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9676 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D0_SK3
9679 character(
*,SKG) ,
intent(in) :: x, y
9680 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9681 real(TKR) ,
intent(out) :: rho
9686 PURE module subroutine setRhoWNO_XY_D0_SK2(rho, frankx, franky, x, y)
9687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9688 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D0_SK2
9691 character(
*,SKG) ,
intent(in) :: x, y
9692 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9693 real(TKR) ,
intent(out) :: rho
9698 PURE module subroutine setRhoWNO_XY_D0_SK1(rho, frankx, franky, x, y)
9699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9700 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D0_SK1
9703 character(
*,SKG) ,
intent(in) :: x, y
9704 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9705 real(TKR) ,
intent(out) :: rho
9712 PURE module subroutine setRhoWNO_XY_D1_SK5(rho, frankx, franky, x, y)
9713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9714 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_SK5
9717 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9718 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9719 real(TKR) ,
intent(out) :: rho
9724 PURE module subroutine setRhoWNO_XY_D1_SK4(rho, frankx, franky, x, y)
9725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9726 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_SK4
9729 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9730 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9731 real(TKR) ,
intent(out) :: rho
9736 PURE module subroutine setRhoWNO_XY_D1_SK3(rho, frankx, franky, x, y)
9737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9738 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_SK3
9741 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9742 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9743 real(TKR) ,
intent(out) :: rho
9748 PURE module subroutine setRhoWNO_XY_D1_SK2(rho, frankx, franky, x, y)
9749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9750 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_SK2
9753 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9754 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9755 real(TKR) ,
intent(out) :: rho
9760 PURE module subroutine setRhoWNO_XY_D1_SK1(rho, frankx, franky, x, y)
9761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9762 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_SK1
9765 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9766 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9767 real(TKR) ,
intent(out) :: rho
9774 PURE module subroutine setRhoWNO_XY_D1_IK5(rho, frankx, franky, x, y)
9775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9776 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_IK5
9779 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9780 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9781 real(TKR) ,
intent(out) :: rho
9786 PURE module subroutine setRhoWNO_XY_D1_IK4(rho, frankx, franky, x, y)
9787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9788 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_IK4
9791 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9792 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9793 real(TKR) ,
intent(out) :: rho
9798 PURE module subroutine setRhoWNO_XY_D1_IK3(rho, frankx, franky, x, y)
9799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9800 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_IK3
9803 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9804 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9805 real(TKR) ,
intent(out) :: rho
9810 PURE module subroutine setRhoWNO_XY_D1_IK2(rho, frankx, franky, x, y)
9811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9812 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_IK2
9815 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9816 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9817 real(TKR) ,
intent(out) :: rho
9822 PURE module subroutine setRhoWNO_XY_D1_IK1(rho, frankx, franky, x, y)
9823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9824 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_IK1
9827 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9828 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9829 real(TKR) ,
intent(out) :: rho
9836 PURE module subroutine setRhoWNO_XY_D1_RK5(rho, frankx, franky, x, y)
9837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9838 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_RK5
9841 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9842 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9843 real(TKR) ,
intent(out) :: rho
9848 PURE module subroutine setRhoWNO_XY_D1_RK4(rho, frankx, franky, x, y)
9849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9850 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_RK4
9853 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9854 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9855 real(TKR) ,
intent(out) :: rho
9860 PURE module subroutine setRhoWNO_XY_D1_RK3(rho, frankx, franky, x, y)
9861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9862 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_RK3
9865 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9866 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9867 real(TKR) ,
intent(out) :: rho
9872 PURE module subroutine setRhoWNO_XY_D1_RK2(rho, frankx, franky, x, y)
9873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9874 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_RK2
9877 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9878 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9879 real(TKR) ,
intent(out) :: rho
9884 PURE module subroutine setRhoWNO_XY_D1_RK1(rho, frankx, franky, x, y)
9885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9886 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_RK1
9889 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
9890 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9891 real(TKR) ,
intent(out) :: rho
9900 PURE module subroutine setRhoWNO_XY_D1_PSSK5(rho, frankx, franky, x, y)
9901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9902 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_PSSK5
9905 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
9906 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9907 real(TKR) ,
intent(out) :: rho
9912 PURE module subroutine setRhoWNO_XY_D1_PSSK4(rho, frankx, franky, x, y)
9913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9914 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_PSSK4
9917 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
9918 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9919 real(TKR) ,
intent(out) :: rho
9924 PURE module subroutine setRhoWNO_XY_D1_PSSK3(rho, frankx, franky, x, y)
9925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9926 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_PSSK3
9929 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
9930 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9931 real(TKR) ,
intent(out) :: rho
9936 PURE module subroutine setRhoWNO_XY_D1_PSSK2(rho, frankx, franky, x, y)
9937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9938 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_PSSK2
9941 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
9942 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9943 real(TKR) ,
intent(out) :: rho
9948 PURE module subroutine setRhoWNO_XY_D1_PSSK1(rho, frankx, franky, x, y)
9949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9950 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_PSSK1
9953 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
9954 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9955 real(TKR) ,
intent(out) :: rho
9964 PURE module subroutine setRhoWNO_XY_D1_BSSK(rho, frankx, franky, x, y)
9965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9966 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XY_D1_BSSK
9969 type(css_type) ,
intent(in) ,
contiguous :: x(:), y(:)
9970 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9971 real(TKR) ,
intent(out) :: rho
9985 PURE module subroutine setRhoWTI_XY_D0_SK5(rho, frankx, franky, x, y, weight)
9986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9987 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D0_SK5
9990 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
9991 character(
*,SKG) ,
intent(in) :: x, y
9992 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
9993 real(TKR) ,
intent(out) :: rho
9998 PURE module subroutine setRhoWTI_XY_D0_SK4(rho, frankx, franky, x, y, weight)
9999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10000 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D0_SK4
10003 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10004 character(
*,SKG) ,
intent(in) :: x, y
10005 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10006 real(TKR) ,
intent(out) :: rho
10011 PURE module subroutine setRhoWTI_XY_D0_SK3(rho, frankx, franky, x, y, weight)
10012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10013 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D0_SK3
10016 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10017 character(
*,SKG) ,
intent(in) :: x, y
10018 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10019 real(TKR) ,
intent(out) :: rho
10024 PURE module subroutine setRhoWTI_XY_D0_SK2(rho, frankx, franky, x, y, weight)
10025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10026 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D0_SK2
10029 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10030 character(
*,SKG) ,
intent(in) :: x, y
10031 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10032 real(TKR) ,
intent(out) :: rho
10037 PURE module subroutine setRhoWTI_XY_D0_SK1(rho, frankx, franky, x, y, weight)
10038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10039 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D0_SK1
10042 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10043 character(
*,SKG) ,
intent(in) :: x, y
10044 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10045 real(TKR) ,
intent(out) :: rho
10052 PURE module subroutine setRhoWTI_XY_D1_SK5(rho, frankx, franky, x, y, weight)
10053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10054 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_SK5
10057 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10058 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10059 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10060 real(TKR) ,
intent(out) :: rho
10065 PURE module subroutine setRhoWTI_XY_D1_SK4(rho, frankx, franky, x, y, weight)
10066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10067 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_SK4
10070 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10071 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10072 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10073 real(TKR) ,
intent(out) :: rho
10078 PURE module subroutine setRhoWTI_XY_D1_SK3(rho, frankx, franky, x, y, weight)
10079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10080 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_SK3
10083 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10084 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10085 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10086 real(TKR) ,
intent(out) :: rho
10091 PURE module subroutine setRhoWTI_XY_D1_SK2(rho, frankx, franky, x, y, weight)
10092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10093 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_SK2
10096 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10097 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10098 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10099 real(TKR) ,
intent(out) :: rho
10104 PURE module subroutine setRhoWTI_XY_D1_SK1(rho, frankx, franky, x, y, weight)
10105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10106 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_SK1
10109 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10110 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10111 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10112 real(TKR) ,
intent(out) :: rho
10119 PURE module subroutine setRhoWTI_XY_D1_IK5(rho, frankx, franky, x, y, weight)
10120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10121 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_IK5
10124 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10125 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10126 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10127 real(TKR) ,
intent(out) :: rho
10132 PURE module subroutine setRhoWTI_XY_D1_IK4(rho, frankx, franky, x, y, weight)
10133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10134 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_IK4
10137 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10138 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10139 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10140 real(TKR) ,
intent(out) :: rho
10145 PURE module subroutine setRhoWTI_XY_D1_IK3(rho, frankx, franky, x, y, weight)
10146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10147 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_IK3
10150 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10151 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10152 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10153 real(TKR) ,
intent(out) :: rho
10158 PURE module subroutine setRhoWTI_XY_D1_IK2(rho, frankx, franky, x, y, weight)
10159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10160 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_IK2
10163 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10164 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10165 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10166 real(TKR) ,
intent(out) :: rho
10171 PURE module subroutine setRhoWTI_XY_D1_IK1(rho, frankx, franky, x, y, weight)
10172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10173 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_IK1
10176 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10177 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10178 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10179 real(TKR) ,
intent(out) :: rho
10186 PURE module subroutine setRhoWTI_XY_D1_RK5(rho, frankx, franky, x, y, weight)
10187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10188 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_RK5
10191 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10192 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10193 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10194 real(TKR) ,
intent(out) :: rho
10199 PURE module subroutine setRhoWTI_XY_D1_RK4(rho, frankx, franky, x, y, weight)
10200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10201 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_RK4
10204 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10205 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10206 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10207 real(TKR) ,
intent(out) :: rho
10212 PURE module subroutine setRhoWTI_XY_D1_RK3(rho, frankx, franky, x, y, weight)
10213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10214 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_RK3
10217 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10218 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10219 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10220 real(TKR) ,
intent(out) :: rho
10225 PURE module subroutine setRhoWTI_XY_D1_RK2(rho, frankx, franky, x, y, weight)
10226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10227 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_RK2
10230 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10231 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10232 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10233 real(TKR) ,
intent(out) :: rho
10238 PURE module subroutine setRhoWTI_XY_D1_RK1(rho, frankx, franky, x, y, weight)
10239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10240 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_RK1
10243 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10244 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10245 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10246 real(TKR) ,
intent(out) :: rho
10255 PURE module subroutine setRhoWTI_XY_D1_PSSK5(rho, frankx, franky, x, y, weight)
10256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10257 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_PSSK5
10260 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10261 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10262 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10263 real(TKR) ,
intent(out) :: rho
10268 PURE module subroutine setRhoWTI_XY_D1_PSSK4(rho, frankx, franky, x, y, weight)
10269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10270 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_PSSK4
10273 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10274 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10275 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10276 real(TKR) ,
intent(out) :: rho
10281 PURE module subroutine setRhoWTI_XY_D1_PSSK3(rho, frankx, franky, x, y, weight)
10282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10283 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_PSSK3
10286 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10287 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10288 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10289 real(TKR) ,
intent(out) :: rho
10294 PURE module subroutine setRhoWTI_XY_D1_PSSK2(rho, frankx, franky, x, y, weight)
10295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10296 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_PSSK2
10299 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10300 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10301 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10302 real(TKR) ,
intent(out) :: rho
10307 PURE module subroutine setRhoWTI_XY_D1_PSSK1(rho, frankx, franky, x, y, weight)
10308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10309 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_PSSK1
10312 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10313 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10314 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10315 real(TKR) ,
intent(out) :: rho
10324 PURE module subroutine setRhoWTI_XY_D1_BSSK(rho, frankx, franky, x, y, weight)
10325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10326 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XY_D1_BSSK
10329 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
10330 type(css_type) ,
intent(in) ,
contiguous :: x(:), y(:)
10331 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10332 real(TKR) ,
intent(out) :: rho
10346 PURE module subroutine setRhoWTR_XY_D0_SK5(rho, frankx, franky, x, y, weight)
10347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10348 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D0_SK5
10351 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10352 character(
*,SKG) ,
intent(in) :: x, y
10353 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10354 real(TKR) ,
intent(out) :: rho
10359 PURE module subroutine setRhoWTR_XY_D0_SK4(rho, frankx, franky, x, y, weight)
10360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10361 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D0_SK4
10364 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10365 character(
*,SKG) ,
intent(in) :: x, y
10366 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10367 real(TKR) ,
intent(out) :: rho
10372 PURE module subroutine setRhoWTR_XY_D0_SK3(rho, frankx, franky, x, y, weight)
10373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10374 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D0_SK3
10377 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10378 character(
*,SKG) ,
intent(in) :: x, y
10379 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10380 real(TKR) ,
intent(out) :: rho
10385 PURE module subroutine setRhoWTR_XY_D0_SK2(rho, frankx, franky, x, y, weight)
10386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10387 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D0_SK2
10390 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10391 character(
*,SKG) ,
intent(in) :: x, y
10392 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10393 real(TKR) ,
intent(out) :: rho
10398 PURE module subroutine setRhoWTR_XY_D0_SK1(rho, frankx, franky, x, y, weight)
10399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10400 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D0_SK1
10403 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10404 character(
*,SKG) ,
intent(in) :: x, y
10405 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10406 real(TKR) ,
intent(out) :: rho
10413 PURE module subroutine setRhoWTR_XY_D1_SK5(rho, frankx, franky, x, y, weight)
10414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10415 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_SK5
10418 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10419 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10420 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10421 real(TKR) ,
intent(out) :: rho
10426 PURE module subroutine setRhoWTR_XY_D1_SK4(rho, frankx, franky, x, y, weight)
10427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10428 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_SK4
10431 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10432 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10433 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10434 real(TKR) ,
intent(out) :: rho
10439 PURE module subroutine setRhoWTR_XY_D1_SK3(rho, frankx, franky, x, y, weight)
10440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10441 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_SK3
10444 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10445 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10446 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10447 real(TKR) ,
intent(out) :: rho
10452 PURE module subroutine setRhoWTR_XY_D1_SK2(rho, frankx, franky, x, y, weight)
10453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10454 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_SK2
10457 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10458 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10459 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10460 real(TKR) ,
intent(out) :: rho
10465 PURE module subroutine setRhoWTR_XY_D1_SK1(rho, frankx, franky, x, y, weight)
10466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10467 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_SK1
10470 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10471 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10472 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10473 real(TKR) ,
intent(out) :: rho
10480 PURE module subroutine setRhoWTR_XY_D1_IK5(rho, frankx, franky, x, y, weight)
10481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10482 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_IK5
10485 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10486 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10487 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10488 real(TKR) ,
intent(out) :: rho
10493 PURE module subroutine setRhoWTR_XY_D1_IK4(rho, frankx, franky, x, y, weight)
10494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10495 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_IK4
10498 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10499 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10500 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10501 real(TKR) ,
intent(out) :: rho
10506 PURE module subroutine setRhoWTR_XY_D1_IK3(rho, frankx, franky, x, y, weight)
10507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10508 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_IK3
10511 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10512 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10513 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10514 real(TKR) ,
intent(out) :: rho
10519 PURE module subroutine setRhoWTR_XY_D1_IK2(rho, frankx, franky, x, y, weight)
10520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10521 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_IK2
10524 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10525 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10526 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10527 real(TKR) ,
intent(out) :: rho
10532 PURE module subroutine setRhoWTR_XY_D1_IK1(rho, frankx, franky, x, y, weight)
10533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10534 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_IK1
10537 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10538 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10539 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10540 real(TKR) ,
intent(out) :: rho
10547 PURE module subroutine setRhoWTR_XY_D1_RK5(rho, frankx, franky, x, y, weight)
10548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10549 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_RK5
10552 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10553 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10554 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10555 real(TKR) ,
intent(out) :: rho
10560 PURE module subroutine setRhoWTR_XY_D1_RK4(rho, frankx, franky, x, y, weight)
10561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10562 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_RK4
10565 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10566 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10567 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10568 real(TKR) ,
intent(out) :: rho
10573 PURE module subroutine setRhoWTR_XY_D1_RK3(rho, frankx, franky, x, y, weight)
10574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10575 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_RK3
10578 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10579 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10580 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10581 real(TKR) ,
intent(out) :: rho
10586 PURE module subroutine setRhoWTR_XY_D1_RK2(rho, frankx, franky, x, y, weight)
10587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10588 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_RK2
10591 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10592 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10593 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10594 real(TKR) ,
intent(out) :: rho
10599 PURE module subroutine setRhoWTR_XY_D1_RK1(rho, frankx, franky, x, y, weight)
10600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10601 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_RK1
10604 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10605 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
10606 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10607 real(TKR) ,
intent(out) :: rho
10616 PURE module subroutine setRhoWTR_XY_D1_PSSK5(rho, frankx, franky, x, y, weight)
10617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10618 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_PSSK5
10621 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10622 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10623 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10624 real(TKR) ,
intent(out) :: rho
10629 PURE module subroutine setRhoWTR_XY_D1_PSSK4(rho, frankx, franky, x, y, weight)
10630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10631 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_PSSK4
10634 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10635 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10636 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10637 real(TKR) ,
intent(out) :: rho
10642 PURE module subroutine setRhoWTR_XY_D1_PSSK3(rho, frankx, franky, x, y, weight)
10643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10644 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_PSSK3
10647 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10648 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10649 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10650 real(TKR) ,
intent(out) :: rho
10655 PURE module subroutine setRhoWTR_XY_D1_PSSK2(rho, frankx, franky, x, y, weight)
10656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10657 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_PSSK2
10660 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10661 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10662 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10663 real(TKR) ,
intent(out) :: rho
10668 PURE module subroutine setRhoWTR_XY_D1_PSSK1(rho, frankx, franky, x, y, weight)
10669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10670 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_PSSK1
10673 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10674 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
10675 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10676 real(TKR) ,
intent(out) :: rho
10685 PURE module subroutine setRhoWTR_XY_D1_BSSK(rho, frankx, franky, x, y, weight)
10686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10687 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XY_D1_BSSK
10690 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
10691 type(css_type) ,
intent(in) ,
contiguous :: x(:), y(:)
10692 real(TKR) ,
intent(out) ,
contiguous :: frankx(:), franky(:)
10693 real(TKR) ,
intent(out) :: rho
10709 PURE module subroutine setRhoWNO_UXD_SK5(rho, subset, frank, sample, dim)
10710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10711 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_SK5
10714 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
10715 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10716 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10717 integer(IK) ,
intent(in) :: dim
10718 type(uppDia_type) ,
intent(in) :: subset
10723 PURE module subroutine setRhoWNO_UXD_SK4(rho, subset, frank, sample, dim)
10724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10725 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_SK4
10728 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
10729 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10730 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10731 integer(IK) ,
intent(in) :: dim
10732 type(uppDia_type) ,
intent(in) :: subset
10737 PURE module subroutine setRhoWNO_UXD_SK3(rho, subset, frank, sample, dim)
10738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10739 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_SK3
10742 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
10743 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10744 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10745 integer(IK) ,
intent(in) :: dim
10746 type(uppDia_type) ,
intent(in) :: subset
10751 PURE module subroutine setRhoWNO_UXD_SK2(rho, subset, frank, sample, dim)
10752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10753 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_SK2
10756 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
10757 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10758 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10759 integer(IK) ,
intent(in) :: dim
10760 type(uppDia_type) ,
intent(in) :: subset
10765 PURE module subroutine setRhoWNO_UXD_SK1(rho, subset, frank, sample, dim)
10766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10767 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_SK1
10770 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
10771 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10772 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10773 integer(IK) ,
intent(in) :: dim
10774 type(uppDia_type) ,
intent(in) :: subset
10781 PURE module subroutine setRhoWNO_UXD_IK5(rho, subset, frank, sample, dim)
10782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10783 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_IK5
10786 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
10787 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10788 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10789 integer(IK) ,
intent(in) :: dim
10790 type(uppDia_type) ,
intent(in) :: subset
10795 PURE module subroutine setRhoWNO_UXD_IK4(rho, subset, frank, sample, dim)
10796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10797 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_IK4
10800 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
10801 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10802 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10803 integer(IK) ,
intent(in) :: dim
10804 type(uppDia_type) ,
intent(in) :: subset
10809 PURE module subroutine setRhoWNO_UXD_IK3(rho, subset, frank, sample, dim)
10810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10811 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_IK3
10814 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
10815 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10816 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10817 integer(IK) ,
intent(in) :: dim
10818 type(uppDia_type) ,
intent(in) :: subset
10823 PURE module subroutine setRhoWNO_UXD_IK2(rho, subset, frank, sample, dim)
10824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10825 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_IK2
10828 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
10829 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10830 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10831 integer(IK) ,
intent(in) :: dim
10832 type(uppDia_type) ,
intent(in) :: subset
10837 PURE module subroutine setRhoWNO_UXD_IK1(rho, subset, frank, sample, dim)
10838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10839 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_IK1
10842 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
10843 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10844 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10845 integer(IK) ,
intent(in) :: dim
10846 type(uppDia_type) ,
intent(in) :: subset
10853 PURE module subroutine setRhoWNO_UXD_RK5(rho, subset, frank, sample, dim)
10854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10855 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_RK5
10858 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
10859 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10860 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10861 integer(IK) ,
intent(in) :: dim
10862 type(uppDia_type) ,
intent(in) :: subset
10867 PURE module subroutine setRhoWNO_UXD_RK4(rho, subset, frank, sample, dim)
10868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10869 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_RK4
10872 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
10873 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10874 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10875 integer(IK) ,
intent(in) :: dim
10876 type(uppDia_type) ,
intent(in) :: subset
10881 PURE module subroutine setRhoWNO_UXD_RK3(rho, subset, frank, sample, dim)
10882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10883 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_RK3
10886 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
10887 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10888 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10889 integer(IK) ,
intent(in) :: dim
10890 type(uppDia_type) ,
intent(in) :: subset
10895 PURE module subroutine setRhoWNO_UXD_RK2(rho, subset, frank, sample, dim)
10896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10897 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_RK2
10900 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
10901 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10902 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10903 integer(IK) ,
intent(in) :: dim
10904 type(uppDia_type) ,
intent(in) :: subset
10909 PURE module subroutine setRhoWNO_UXD_RK1(rho, subset, frank, sample, dim)
10910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10911 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_RK1
10914 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
10915 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10916 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10917 integer(IK) ,
intent(in) :: dim
10918 type(uppDia_type) ,
intent(in) :: subset
10927 PURE module subroutine setRhoWNO_UXD_PSSK5(rho, subset, frank, sample, dim)
10928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10929 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_PSSK5
10932 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
10933 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10934 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10935 integer(IK) ,
intent(in) :: dim
10936 type(uppDia_type) ,
intent(in) :: subset
10941 PURE module subroutine setRhoWNO_UXD_PSSK4(rho, subset, frank, sample, dim)
10942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10943 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_PSSK4
10946 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
10947 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10948 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10949 integer(IK) ,
intent(in) :: dim
10950 type(uppDia_type) ,
intent(in) :: subset
10955 PURE module subroutine setRhoWNO_UXD_PSSK3(rho, subset, frank, sample, dim)
10956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10957 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_PSSK3
10960 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
10961 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10962 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10963 integer(IK) ,
intent(in) :: dim
10964 type(uppDia_type) ,
intent(in) :: subset
10969 PURE module subroutine setRhoWNO_UXD_PSSK2(rho, subset, frank, sample, dim)
10970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10971 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_PSSK2
10974 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
10975 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10976 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10977 integer(IK) ,
intent(in) :: dim
10978 type(uppDia_type) ,
intent(in) :: subset
10983 PURE module subroutine setRhoWNO_UXD_PSSK1(rho, subset, frank, sample, dim)
10984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10985 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_PSSK1
10988 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
10989 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
10990 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
10991 integer(IK) ,
intent(in) :: dim
10992 type(uppDia_type) ,
intent(in) :: subset
11001 PURE module subroutine setRhoWNO_UXD_BSSK(rho, subset, frank, sample, dim)
11002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11003 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_UXD_BSSK
11006 type(css_type) ,
intent(in) ,
contiguous :: sample(:,:)
11007 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11008 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11009 integer(IK) ,
intent(in) :: dim
11010 type(uppDia_type) ,
intent(in) :: subset
11024 PURE module subroutine setRhoWTI_UXD_SK5(rho, subset, frank, sample, dim, weight)
11025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11026 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_SK5
11029 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11030 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11031 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11032 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11033 integer(IK) ,
intent(in) :: dim
11034 type(uppDia_type) ,
intent(in) :: subset
11039 PURE module subroutine setRhoWTI_UXD_SK4(rho, subset, frank, sample, dim, weight)
11040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11041 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_SK4
11044 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11045 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11046 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11047 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11048 integer(IK) ,
intent(in) :: dim
11049 type(uppDia_type) ,
intent(in) :: subset
11054 PURE module subroutine setRhoWTI_UXD_SK3(rho, subset, frank, sample, dim, weight)
11055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11056 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_SK3
11059 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11060 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11061 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11062 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11063 integer(IK) ,
intent(in) :: dim
11064 type(uppDia_type) ,
intent(in) :: subset
11069 PURE module subroutine setRhoWTI_UXD_SK2(rho, subset, frank, sample, dim, weight)
11070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11071 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_SK2
11074 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11075 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11076 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11077 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11078 integer(IK) ,
intent(in) :: dim
11079 type(uppDia_type) ,
intent(in) :: subset
11084 PURE module subroutine setRhoWTI_UXD_SK1(rho, subset, frank, sample, dim, weight)
11085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11086 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_SK1
11089 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11090 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11091 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11092 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11093 integer(IK) ,
intent(in) :: dim
11094 type(uppDia_type) ,
intent(in) :: subset
11101 PURE module subroutine setRhoWTI_UXD_IK5(rho, subset, frank, sample, dim, weight)
11102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11103 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_IK5
11106 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11107 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11108 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11109 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11110 integer(IK) ,
intent(in) :: dim
11111 type(uppDia_type) ,
intent(in) :: subset
11116 PURE module subroutine setRhoWTI_UXD_IK4(rho, subset, frank, sample, dim, weight)
11117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11118 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_IK4
11121 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11122 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11123 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11124 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11125 integer(IK) ,
intent(in) :: dim
11126 type(uppDia_type) ,
intent(in) :: subset
11131 PURE module subroutine setRhoWTI_UXD_IK3(rho, subset, frank, sample, dim, weight)
11132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11133 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_IK3
11136 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11137 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11138 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11139 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11140 integer(IK) ,
intent(in) :: dim
11141 type(uppDia_type) ,
intent(in) :: subset
11146 PURE module subroutine setRhoWTI_UXD_IK2(rho, subset, frank, sample, dim, weight)
11147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11148 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_IK2
11151 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11152 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11153 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11154 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11155 integer(IK) ,
intent(in) :: dim
11156 type(uppDia_type) ,
intent(in) :: subset
11161 PURE module subroutine setRhoWTI_UXD_IK1(rho, subset, frank, sample, dim, weight)
11162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11163 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_IK1
11166 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11167 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11168 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11169 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11170 integer(IK) ,
intent(in) :: dim
11171 type(uppDia_type) ,
intent(in) :: subset
11178 PURE module subroutine setRhoWTI_UXD_RK5(rho, subset, frank, sample, dim, weight)
11179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11180 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_RK5
11183 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11184 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11185 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11186 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11187 integer(IK) ,
intent(in) :: dim
11188 type(uppDia_type) ,
intent(in) :: subset
11193 PURE module subroutine setRhoWTI_UXD_RK4(rho, subset, frank, sample, dim, weight)
11194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11195 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_RK4
11198 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11199 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11200 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11201 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11202 integer(IK) ,
intent(in) :: dim
11203 type(uppDia_type) ,
intent(in) :: subset
11208 PURE module subroutine setRhoWTI_UXD_RK3(rho, subset, frank, sample, dim, weight)
11209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11210 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_RK3
11213 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11214 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11215 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11216 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11217 integer(IK) ,
intent(in) :: dim
11218 type(uppDia_type) ,
intent(in) :: subset
11223 PURE module subroutine setRhoWTI_UXD_RK2(rho, subset, frank, sample, dim, weight)
11224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11225 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_RK2
11228 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11229 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11230 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11231 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11232 integer(IK) ,
intent(in) :: dim
11233 type(uppDia_type) ,
intent(in) :: subset
11238 PURE module subroutine setRhoWTI_UXD_RK1(rho, subset, frank, sample, dim, weight)
11239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11240 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_RK1
11243 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11244 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11245 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11246 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11247 integer(IK) ,
intent(in) :: dim
11248 type(uppDia_type) ,
intent(in) :: subset
11257 PURE module subroutine setRhoWTI_UXD_PSSK5(rho, subset, frank, sample, dim, weight)
11258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11259 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_PSSK5
11262 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11263 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11264 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11265 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11266 integer(IK) ,
intent(in) :: dim
11267 type(uppDia_type) ,
intent(in) :: subset
11272 PURE module subroutine setRhoWTI_UXD_PSSK4(rho, subset, frank, sample, dim, weight)
11273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11274 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_PSSK4
11277 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11278 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11279 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11280 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11281 integer(IK) ,
intent(in) :: dim
11282 type(uppDia_type) ,
intent(in) :: subset
11287 PURE module subroutine setRhoWTI_UXD_PSSK3(rho, subset, frank, sample, dim, weight)
11288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11289 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_PSSK3
11292 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11293 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11294 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11295 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11296 integer(IK) ,
intent(in) :: dim
11297 type(uppDia_type) ,
intent(in) :: subset
11302 PURE module subroutine setRhoWTI_UXD_PSSK2(rho, subset, frank, sample, dim, weight)
11303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11304 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_PSSK2
11307 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11308 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11309 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11310 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11311 integer(IK) ,
intent(in) :: dim
11312 type(uppDia_type) ,
intent(in) :: subset
11317 PURE module subroutine setRhoWTI_UXD_PSSK1(rho, subset, frank, sample, dim, weight)
11318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11319 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_PSSK1
11322 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11323 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11324 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11325 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11326 integer(IK) ,
intent(in) :: dim
11327 type(uppDia_type) ,
intent(in) :: subset
11336 PURE module subroutine setRhoWTI_UXD_BSSK(rho, subset, frank, sample, dim, weight)
11337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11338 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_UXD_BSSK
11341 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
11342 type(css_type) ,
intent(in) ,
contiguous :: sample(:,:)
11343 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11344 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11345 integer(IK) ,
intent(in) :: dim
11346 type(uppDia_type) ,
intent(in) :: subset
11360 PURE module subroutine setRhoWTR_UXD_SK5(rho, subset, frank, sample, dim, weight)
11361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11362 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_SK5
11365 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11366 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11367 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11368 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11369 integer(IK) ,
intent(in) :: dim
11370 type(uppDia_type) ,
intent(in) :: subset
11375 PURE module subroutine setRhoWTR_UXD_SK4(rho, subset, frank, sample, dim, weight)
11376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11377 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_SK4
11380 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11381 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11382 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11383 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11384 integer(IK) ,
intent(in) :: dim
11385 type(uppDia_type) ,
intent(in) :: subset
11390 PURE module subroutine setRhoWTR_UXD_SK3(rho, subset, frank, sample, dim, weight)
11391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11392 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_SK3
11395 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11396 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11397 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11398 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11399 integer(IK) ,
intent(in) :: dim
11400 type(uppDia_type) ,
intent(in) :: subset
11405 PURE module subroutine setRhoWTR_UXD_SK2(rho, subset, frank, sample, dim, weight)
11406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11407 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_SK2
11410 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11411 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11412 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11413 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11414 integer(IK) ,
intent(in) :: dim
11415 type(uppDia_type) ,
intent(in) :: subset
11420 PURE module subroutine setRhoWTR_UXD_SK1(rho, subset, frank, sample, dim, weight)
11421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11422 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_SK1
11425 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11426 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11427 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11428 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11429 integer(IK) ,
intent(in) :: dim
11430 type(uppDia_type) ,
intent(in) :: subset
11437 PURE module subroutine setRhoWTR_UXD_IK5(rho, subset, frank, sample, dim, weight)
11438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11439 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_IK5
11442 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11443 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11444 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11445 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11446 integer(IK) ,
intent(in) :: dim
11447 type(uppDia_type) ,
intent(in) :: subset
11452 PURE module subroutine setRhoWTR_UXD_IK4(rho, subset, frank, sample, dim, weight)
11453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11454 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_IK4
11457 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11458 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11459 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11460 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11461 integer(IK) ,
intent(in) :: dim
11462 type(uppDia_type) ,
intent(in) :: subset
11467 PURE module subroutine setRhoWTR_UXD_IK3(rho, subset, frank, sample, dim, weight)
11468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11469 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_IK3
11472 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11473 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11474 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11475 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11476 integer(IK) ,
intent(in) :: dim
11477 type(uppDia_type) ,
intent(in) :: subset
11482 PURE module subroutine setRhoWTR_UXD_IK2(rho, subset, frank, sample, dim, weight)
11483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11484 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_IK2
11487 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11488 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11489 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11490 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11491 integer(IK) ,
intent(in) :: dim
11492 type(uppDia_type) ,
intent(in) :: subset
11497 PURE module subroutine setRhoWTR_UXD_IK1(rho, subset, frank, sample, dim, weight)
11498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11499 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_IK1
11502 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11503 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11504 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11505 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11506 integer(IK) ,
intent(in) :: dim
11507 type(uppDia_type) ,
intent(in) :: subset
11514 PURE module subroutine setRhoWTR_UXD_RK5(rho, subset, frank, sample, dim, weight)
11515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11516 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_RK5
11519 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11520 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11521 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11522 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11523 integer(IK) ,
intent(in) :: dim
11524 type(uppDia_type) ,
intent(in) :: subset
11529 PURE module subroutine setRhoWTR_UXD_RK4(rho, subset, frank, sample, dim, weight)
11530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11531 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_RK4
11534 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11535 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11536 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11537 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11538 integer(IK) ,
intent(in) :: dim
11539 type(uppDia_type) ,
intent(in) :: subset
11544 PURE module subroutine setRhoWTR_UXD_RK3(rho, subset, frank, sample, dim, weight)
11545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11546 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_RK3
11549 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11550 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11551 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11552 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11553 integer(IK) ,
intent(in) :: dim
11554 type(uppDia_type) ,
intent(in) :: subset
11559 PURE module subroutine setRhoWTR_UXD_RK2(rho, subset, frank, sample, dim, weight)
11560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11561 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_RK2
11564 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11565 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11566 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11567 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11568 integer(IK) ,
intent(in) :: dim
11569 type(uppDia_type) ,
intent(in) :: subset
11574 PURE module subroutine setRhoWTR_UXD_RK1(rho, subset, frank, sample, dim, weight)
11575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11576 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_RK1
11579 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11580 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11581 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11582 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11583 integer(IK) ,
intent(in) :: dim
11584 type(uppDia_type) ,
intent(in) :: subset
11593 PURE module subroutine setRhoWTR_UXD_PSSK5(rho, subset, frank, sample, dim, weight)
11594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11595 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_PSSK5
11598 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11599 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11600 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11601 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11602 integer(IK) ,
intent(in) :: dim
11603 type(uppDia_type) ,
intent(in) :: subset
11608 PURE module subroutine setRhoWTR_UXD_PSSK4(rho, subset, frank, sample, dim, weight)
11609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11610 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_PSSK4
11613 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11614 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11615 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11616 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11617 integer(IK) ,
intent(in) :: dim
11618 type(uppDia_type) ,
intent(in) :: subset
11623 PURE module subroutine setRhoWTR_UXD_PSSK3(rho, subset, frank, sample, dim, weight)
11624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11625 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_PSSK3
11628 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11629 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11630 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11631 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11632 integer(IK) ,
intent(in) :: dim
11633 type(uppDia_type) ,
intent(in) :: subset
11638 PURE module subroutine setRhoWTR_UXD_PSSK2(rho, subset, frank, sample, dim, weight)
11639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11640 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_PSSK2
11643 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11644 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11645 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11646 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11647 integer(IK) ,
intent(in) :: dim
11648 type(uppDia_type) ,
intent(in) :: subset
11653 PURE module subroutine setRhoWTR_UXD_PSSK1(rho, subset, frank, sample, dim, weight)
11654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11655 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_PSSK1
11658 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11659 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11660 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11661 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11662 integer(IK) ,
intent(in) :: dim
11663 type(uppDia_type) ,
intent(in) :: subset
11672 PURE module subroutine setRhoWTR_UXD_BSSK(rho, subset, frank, sample, dim, weight)
11673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11674 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_UXD_BSSK
11677 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
11678 type(css_type) ,
intent(in) ,
contiguous :: sample(:,:)
11679 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11680 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11681 integer(IK) ,
intent(in) :: dim
11682 type(uppDia_type) ,
intent(in) :: subset
11698 PURE module subroutine setRhoWNO_XLD_SK5(rho, subset, frank, sample, dim)
11699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11700 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_SK5
11703 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11704 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11705 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11706 integer(IK) ,
intent(in) :: dim
11707 type(lowDia_type) ,
intent(in) :: subset
11712 PURE module subroutine setRhoWNO_XLD_SK4(rho, subset, frank, sample, dim)
11713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11714 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_SK4
11717 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11718 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11719 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11720 integer(IK) ,
intent(in) :: dim
11721 type(lowDia_type) ,
intent(in) :: subset
11726 PURE module subroutine setRhoWNO_XLD_SK3(rho, subset, frank, sample, dim)
11727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11728 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_SK3
11731 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11732 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11733 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11734 integer(IK) ,
intent(in) :: dim
11735 type(lowDia_type) ,
intent(in) :: subset
11740 PURE module subroutine setRhoWNO_XLD_SK2(rho, subset, frank, sample, dim)
11741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11742 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_SK2
11745 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11746 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11747 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11748 integer(IK) ,
intent(in) :: dim
11749 type(lowDia_type) ,
intent(in) :: subset
11754 PURE module subroutine setRhoWNO_XLD_SK1(rho, subset, frank, sample, dim)
11755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11756 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_SK1
11759 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
11760 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11761 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11762 integer(IK) ,
intent(in) :: dim
11763 type(lowDia_type) ,
intent(in) :: subset
11770 PURE module subroutine setRhoWNO_XLD_IK5(rho, subset, frank, sample, dim)
11771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11772 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_IK5
11775 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11776 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11777 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11778 integer(IK) ,
intent(in) :: dim
11779 type(lowDia_type) ,
intent(in) :: subset
11784 PURE module subroutine setRhoWNO_XLD_IK4(rho, subset, frank, sample, dim)
11785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11786 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_IK4
11789 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11790 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11791 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11792 integer(IK) ,
intent(in) :: dim
11793 type(lowDia_type) ,
intent(in) :: subset
11798 PURE module subroutine setRhoWNO_XLD_IK3(rho, subset, frank, sample, dim)
11799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11800 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_IK3
11803 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11804 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11805 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11806 integer(IK) ,
intent(in) :: dim
11807 type(lowDia_type) ,
intent(in) :: subset
11812 PURE module subroutine setRhoWNO_XLD_IK2(rho, subset, frank, sample, dim)
11813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11814 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_IK2
11817 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11818 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11819 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11820 integer(IK) ,
intent(in) :: dim
11821 type(lowDia_type) ,
intent(in) :: subset
11826 PURE module subroutine setRhoWNO_XLD_IK1(rho, subset, frank, sample, dim)
11827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11828 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_IK1
11831 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
11832 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11833 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11834 integer(IK) ,
intent(in) :: dim
11835 type(lowDia_type) ,
intent(in) :: subset
11842 PURE module subroutine setRhoWNO_XLD_RK5(rho, subset, frank, sample, dim)
11843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11844 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_RK5
11847 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11848 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11849 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11850 integer(IK) ,
intent(in) :: dim
11851 type(lowDia_type) ,
intent(in) :: subset
11856 PURE module subroutine setRhoWNO_XLD_RK4(rho, subset, frank, sample, dim)
11857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11858 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_RK4
11861 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11862 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11863 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11864 integer(IK) ,
intent(in) :: dim
11865 type(lowDia_type) ,
intent(in) :: subset
11870 PURE module subroutine setRhoWNO_XLD_RK3(rho, subset, frank, sample, dim)
11871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11872 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_RK3
11875 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11876 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11877 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11878 integer(IK) ,
intent(in) :: dim
11879 type(lowDia_type) ,
intent(in) :: subset
11884 PURE module subroutine setRhoWNO_XLD_RK2(rho, subset, frank, sample, dim)
11885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11886 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_RK2
11889 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11890 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11891 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11892 integer(IK) ,
intent(in) :: dim
11893 type(lowDia_type) ,
intent(in) :: subset
11898 PURE module subroutine setRhoWNO_XLD_RK1(rho, subset, frank, sample, dim)
11899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11900 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_RK1
11903 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
11904 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11905 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11906 integer(IK) ,
intent(in) :: dim
11907 type(lowDia_type) ,
intent(in) :: subset
11916 PURE module subroutine setRhoWNO_XLD_PSSK5(rho, subset, frank, sample, dim)
11917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11918 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_PSSK5
11921 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11922 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11923 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11924 integer(IK) ,
intent(in) :: dim
11925 type(lowDia_type) ,
intent(in) :: subset
11930 PURE module subroutine setRhoWNO_XLD_PSSK4(rho, subset, frank, sample, dim)
11931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11932 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_PSSK4
11935 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11936 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11937 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11938 integer(IK) ,
intent(in) :: dim
11939 type(lowDia_type) ,
intent(in) :: subset
11944 PURE module subroutine setRhoWNO_XLD_PSSK3(rho, subset, frank, sample, dim)
11945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11946 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_PSSK3
11949 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11950 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11951 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11952 integer(IK) ,
intent(in) :: dim
11953 type(lowDia_type) ,
intent(in) :: subset
11958 PURE module subroutine setRhoWNO_XLD_PSSK2(rho, subset, frank, sample, dim)
11959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11960 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_PSSK2
11963 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11964 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11965 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11966 integer(IK) ,
intent(in) :: dim
11967 type(lowDia_type) ,
intent(in) :: subset
11972 PURE module subroutine setRhoWNO_XLD_PSSK1(rho, subset, frank, sample, dim)
11973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11974 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_PSSK1
11977 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
11978 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11979 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11980 integer(IK) ,
intent(in) :: dim
11981 type(lowDia_type) ,
intent(in) :: subset
11990 PURE module subroutine setRhoWNO_XLD_BSSK(rho, subset, frank, sample, dim)
11991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11992 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWNO_XLD_BSSK
11995 type(css_type) ,
intent(in) ,
contiguous :: sample(:,:)
11996 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
11997 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
11998 integer(IK) ,
intent(in) :: dim
11999 type(lowDia_type) ,
intent(in) :: subset
12013 PURE module subroutine setRhoWTI_XLD_SK5(rho, subset, frank, sample, dim, weight)
12014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12015 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_SK5
12018 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12019 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12020 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12021 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12022 integer(IK) ,
intent(in) :: dim
12023 type(lowDia_type) ,
intent(in) :: subset
12028 PURE module subroutine setRhoWTI_XLD_SK4(rho, subset, frank, sample, dim, weight)
12029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12030 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_SK4
12033 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12034 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12035 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12036 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12037 integer(IK) ,
intent(in) :: dim
12038 type(lowDia_type) ,
intent(in) :: subset
12043 PURE module subroutine setRhoWTI_XLD_SK3(rho, subset, frank, sample, dim, weight)
12044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12045 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_SK3
12048 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12049 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12050 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12051 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12052 integer(IK) ,
intent(in) :: dim
12053 type(lowDia_type) ,
intent(in) :: subset
12058 PURE module subroutine setRhoWTI_XLD_SK2(rho, subset, frank, sample, dim, weight)
12059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12060 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_SK2
12063 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12064 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12065 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12066 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12067 integer(IK) ,
intent(in) :: dim
12068 type(lowDia_type) ,
intent(in) :: subset
12073 PURE module subroutine setRhoWTI_XLD_SK1(rho, subset, frank, sample, dim, weight)
12074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12075 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_SK1
12078 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12079 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12080 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12081 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12082 integer(IK) ,
intent(in) :: dim
12083 type(lowDia_type) ,
intent(in) :: subset
12090 PURE module subroutine setRhoWTI_XLD_IK5(rho, subset, frank, sample, dim, weight)
12091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12092 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_IK5
12095 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12096 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12097 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12098 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12099 integer(IK) ,
intent(in) :: dim
12100 type(lowDia_type) ,
intent(in) :: subset
12105 PURE module subroutine setRhoWTI_XLD_IK4(rho, subset, frank, sample, dim, weight)
12106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12107 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_IK4
12110 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12111 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12112 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12113 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12114 integer(IK) ,
intent(in) :: dim
12115 type(lowDia_type) ,
intent(in) :: subset
12120 PURE module subroutine setRhoWTI_XLD_IK3(rho, subset, frank, sample, dim, weight)
12121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12122 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_IK3
12125 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12126 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12127 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12128 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12129 integer(IK) ,
intent(in) :: dim
12130 type(lowDia_type) ,
intent(in) :: subset
12135 PURE module subroutine setRhoWTI_XLD_IK2(rho, subset, frank, sample, dim, weight)
12136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12137 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_IK2
12140 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12141 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12142 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12143 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12144 integer(IK) ,
intent(in) :: dim
12145 type(lowDia_type) ,
intent(in) :: subset
12150 PURE module subroutine setRhoWTI_XLD_IK1(rho, subset, frank, sample, dim, weight)
12151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12152 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_IK1
12155 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12156 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12157 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12158 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12159 integer(IK) ,
intent(in) :: dim
12160 type(lowDia_type) ,
intent(in) :: subset
12167 PURE module subroutine setRhoWTI_XLD_RK5(rho, subset, frank, sample, dim, weight)
12168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12169 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_RK5
12172 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12173 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12174 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12175 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12176 integer(IK) ,
intent(in) :: dim
12177 type(lowDia_type) ,
intent(in) :: subset
12182 PURE module subroutine setRhoWTI_XLD_RK4(rho, subset, frank, sample, dim, weight)
12183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12184 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_RK4
12187 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12188 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12189 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12190 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12191 integer(IK) ,
intent(in) :: dim
12192 type(lowDia_type) ,
intent(in) :: subset
12197 PURE module subroutine setRhoWTI_XLD_RK3(rho, subset, frank, sample, dim, weight)
12198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12199 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_RK3
12202 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12203 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12204 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12205 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12206 integer(IK) ,
intent(in) :: dim
12207 type(lowDia_type) ,
intent(in) :: subset
12212 PURE module subroutine setRhoWTI_XLD_RK2(rho, subset, frank, sample, dim, weight)
12213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12214 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_RK2
12217 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12218 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12219 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12220 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12221 integer(IK) ,
intent(in) :: dim
12222 type(lowDia_type) ,
intent(in) :: subset
12227 PURE module subroutine setRhoWTI_XLD_RK1(rho, subset, frank, sample, dim, weight)
12228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12229 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_RK1
12232 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12233 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12234 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12235 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12236 integer(IK) ,
intent(in) :: dim
12237 type(lowDia_type) ,
intent(in) :: subset
12246 PURE module subroutine setRhoWTI_XLD_PSSK5(rho, subset, frank, sample, dim, weight)
12247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12248 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_PSSK5
12251 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12252 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12253 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12254 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12255 integer(IK) ,
intent(in) :: dim
12256 type(lowDia_type) ,
intent(in) :: subset
12261 PURE module subroutine setRhoWTI_XLD_PSSK4(rho, subset, frank, sample, dim, weight)
12262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12263 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_PSSK4
12266 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12267 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12268 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12269 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12270 integer(IK) ,
intent(in) :: dim
12271 type(lowDia_type) ,
intent(in) :: subset
12276 PURE module subroutine setRhoWTI_XLD_PSSK3(rho, subset, frank, sample, dim, weight)
12277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12278 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_PSSK3
12281 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12282 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12283 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12284 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12285 integer(IK) ,
intent(in) :: dim
12286 type(lowDia_type) ,
intent(in) :: subset
12291 PURE module subroutine setRhoWTI_XLD_PSSK2(rho, subset, frank, sample, dim, weight)
12292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12293 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_PSSK2
12296 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12297 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12298 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12299 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12300 integer(IK) ,
intent(in) :: dim
12301 type(lowDia_type) ,
intent(in) :: subset
12306 PURE module subroutine setRhoWTI_XLD_PSSK1(rho, subset, frank, sample, dim, weight)
12307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12308 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_PSSK1
12311 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12312 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12313 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12314 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12315 integer(IK) ,
intent(in) :: dim
12316 type(lowDia_type) ,
intent(in) :: subset
12325 PURE module subroutine setRhoWTI_XLD_BSSK(rho, subset, frank, sample, dim, weight)
12326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12327 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTI_XLD_BSSK
12330 integer(IK) ,
intent(in) ,
contiguous :: weight(:)
12331 type(css_type) ,
intent(in) ,
contiguous :: sample(:,:)
12332 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12333 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12334 integer(IK) ,
intent(in) :: dim
12335 type(lowDia_type) ,
intent(in) :: subset
12349 PURE module subroutine setRhoWTR_XLD_SK5(rho, subset, frank, sample, dim, weight)
12350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12351 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_SK5
12354 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12355 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12356 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12357 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12358 integer(IK) ,
intent(in) :: dim
12359 type(lowDia_type) ,
intent(in) :: subset
12364 PURE module subroutine setRhoWTR_XLD_SK4(rho, subset, frank, sample, dim, weight)
12365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12366 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_SK4
12369 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12370 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12371 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12372 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12373 integer(IK) ,
intent(in) :: dim
12374 type(lowDia_type) ,
intent(in) :: subset
12379 PURE module subroutine setRhoWTR_XLD_SK3(rho, subset, frank, sample, dim, weight)
12380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12381 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_SK3
12384 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12385 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12386 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12387 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12388 integer(IK) ,
intent(in) :: dim
12389 type(lowDia_type) ,
intent(in) :: subset
12394 PURE module subroutine setRhoWTR_XLD_SK2(rho, subset, frank, sample, dim, weight)
12395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12396 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_SK2
12399 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12400 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12401 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12402 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12403 integer(IK) ,
intent(in) :: dim
12404 type(lowDia_type) ,
intent(in) :: subset
12409 PURE module subroutine setRhoWTR_XLD_SK1(rho, subset, frank, sample, dim, weight)
12410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12411 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_SK1
12414 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12415 character(
*,SKG) ,
intent(in) ,
contiguous :: sample(:,:)
12416 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12417 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12418 integer(IK) ,
intent(in) :: dim
12419 type(lowDia_type) ,
intent(in) :: subset
12426 PURE module subroutine setRhoWTR_XLD_IK5(rho, subset, frank, sample, dim, weight)
12427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12428 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_IK5
12431 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12432 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12433 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12434 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12435 integer(IK) ,
intent(in) :: dim
12436 type(lowDia_type) ,
intent(in) :: subset
12441 PURE module subroutine setRhoWTR_XLD_IK4(rho, subset, frank, sample, dim, weight)
12442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12443 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_IK4
12446 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12447 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12448 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12449 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12450 integer(IK) ,
intent(in) :: dim
12451 type(lowDia_type) ,
intent(in) :: subset
12456 PURE module subroutine setRhoWTR_XLD_IK3(rho, subset, frank, sample, dim, weight)
12457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12458 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_IK3
12461 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12462 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12463 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12464 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12465 integer(IK) ,
intent(in) :: dim
12466 type(lowDia_type) ,
intent(in) :: subset
12471 PURE module subroutine setRhoWTR_XLD_IK2(rho, subset, frank, sample, dim, weight)
12472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12473 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_IK2
12476 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12477 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12478 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12479 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12480 integer(IK) ,
intent(in) :: dim
12481 type(lowDia_type) ,
intent(in) :: subset
12486 PURE module subroutine setRhoWTR_XLD_IK1(rho, subset, frank, sample, dim, weight)
12487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12488 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_IK1
12491 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12492 integer(IKG) ,
intent(in) ,
contiguous :: sample(:,:)
12493 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12494 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12495 integer(IK) ,
intent(in) :: dim
12496 type(lowDia_type) ,
intent(in) :: subset
12503 PURE module subroutine setRhoWTR_XLD_RK5(rho, subset, frank, sample, dim, weight)
12504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12505 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_RK5
12508 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12509 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12510 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12511 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12512 integer(IK) ,
intent(in) :: dim
12513 type(lowDia_type) ,
intent(in) :: subset
12518 PURE module subroutine setRhoWTR_XLD_RK4(rho, subset, frank, sample, dim, weight)
12519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12520 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_RK4
12523 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12524 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12525 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12526 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12527 integer(IK) ,
intent(in) :: dim
12528 type(lowDia_type) ,
intent(in) :: subset
12533 PURE module subroutine setRhoWTR_XLD_RK3(rho, subset, frank, sample, dim, weight)
12534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12535 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_RK3
12538 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12539 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12540 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12541 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12542 integer(IK) ,
intent(in) :: dim
12543 type(lowDia_type) ,
intent(in) :: subset
12548 PURE module subroutine setRhoWTR_XLD_RK2(rho, subset, frank, sample, dim, weight)
12549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12550 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_RK2
12553 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12554 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12555 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12556 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12557 integer(IK) ,
intent(in) :: dim
12558 type(lowDia_type) ,
intent(in) :: subset
12563 PURE module subroutine setRhoWTR_XLD_RK1(rho, subset, frank, sample, dim, weight)
12564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12565 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_RK1
12568 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12569 real(TKG) ,
intent(in) ,
contiguous :: sample(:,:)
12570 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12571 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12572 integer(IK) ,
intent(in) :: dim
12573 type(lowDia_type) ,
intent(in) :: subset
12582 PURE module subroutine setRhoWTR_XLD_PSSK5(rho, subset, frank, sample, dim, weight)
12583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12584 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_PSSK5
12587 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12588 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12589 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12590 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12591 integer(IK) ,
intent(in) :: dim
12592 type(lowDia_type) ,
intent(in) :: subset
12597 PURE module subroutine setRhoWTR_XLD_PSSK4(rho, subset, frank, sample, dim, weight)
12598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12599 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_PSSK4
12602 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12603 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12604 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12605 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12606 integer(IK) ,
intent(in) :: dim
12607 type(lowDia_type) ,
intent(in) :: subset
12612 PURE module subroutine setRhoWTR_XLD_PSSK3(rho, subset, frank, sample, dim, weight)
12613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12614 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_PSSK3
12617 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12618 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12619 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12620 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12621 integer(IK) ,
intent(in) :: dim
12622 type(lowDia_type) ,
intent(in) :: subset
12627 PURE module subroutine setRhoWTR_XLD_PSSK2(rho, subset, frank, sample, dim, weight)
12628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12629 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_PSSK2
12632 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12633 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12634 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12635 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12636 integer(IK) ,
intent(in) :: dim
12637 type(lowDia_type) ,
intent(in) :: subset
12642 PURE module subroutine setRhoWTR_XLD_PSSK1(rho, subset, frank, sample, dim, weight)
12643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12644 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_PSSK1
12647 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12648 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: sample(:,:)
12649 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12650 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12651 integer(IK) ,
intent(in) :: dim
12652 type(lowDia_type) ,
intent(in) :: subset
12661 PURE module subroutine setRhoWTR_XLD_BSSK(rho, subset, frank, sample, dim, weight)
12662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12663 !DEC$ ATTRIBUTES DLLEXPORT :: setRhoWTR_XLD_BSSK
12666 real(TKR) ,
intent(in) ,
contiguous :: weight(:)
12667 type(css_type) ,
intent(in) ,
contiguous :: sample(:,:)
12668 real(TKR) ,
intent(out) ,
contiguous :: frank(:,:)
12669 real(TKR) ,
intent(inout) ,
contiguous :: rho(:,:)
12670 integer(IK) ,
intent(in) :: dim
12671 type(lowDia_type) ,
intent(in) :: subset
17896 PURE module subroutine setCordanceSum_D0_SK5(cordance, tiedx, tiedy, x, y)
17897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17898 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D0_SK5
17901 character(
*,SKG) ,
intent(in) :: x, y
17902 integer(IK) ,
intent(out) :: tiedx, tiedy
17903 integer(IK) ,
intent(out) :: cordance
17908 PURE module subroutine setCordanceSum_D0_SK4(cordance, tiedx, tiedy, x, y)
17909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17910 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D0_SK4
17913 character(
*,SKG) ,
intent(in) :: x, y
17914 integer(IK) ,
intent(out) :: tiedx, tiedy
17915 integer(IK) ,
intent(out) :: cordance
17920 PURE module subroutine setCordanceSum_D0_SK3(cordance, tiedx, tiedy, x, y)
17921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17922 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D0_SK3
17925 character(
*,SKG) ,
intent(in) :: x, y
17926 integer(IK) ,
intent(out) :: tiedx, tiedy
17927 integer(IK) ,
intent(out) :: cordance
17932 PURE module subroutine setCordanceSum_D0_SK2(cordance, tiedx, tiedy, x, y)
17933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17934 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D0_SK2
17937 character(
*,SKG) ,
intent(in) :: x, y
17938 integer(IK) ,
intent(out) :: tiedx, tiedy
17939 integer(IK) ,
intent(out) :: cordance
17944 PURE module subroutine setCordanceSum_D0_SK1(cordance, tiedx, tiedy, x, y)
17945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17946 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D0_SK1
17949 character(
*,SKG) ,
intent(in) :: x, y
17950 integer(IK) ,
intent(out) :: tiedx, tiedy
17951 integer(IK) ,
intent(out) :: cordance
17958 PURE module subroutine setCordanceSum_D1_SK5(cordance, tiedx, tiedy, x, y)
17959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17960 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_SK5
17963 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
17964 integer(IK) ,
intent(out) :: tiedx, tiedy
17965 integer(IK) ,
intent(out) :: cordance
17970 PURE module subroutine setCordanceSum_D1_SK4(cordance, tiedx, tiedy, x, y)
17971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17972 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_SK4
17975 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
17976 integer(IK) ,
intent(out) :: tiedx, tiedy
17977 integer(IK) ,
intent(out) :: cordance
17982 PURE module subroutine setCordanceSum_D1_SK3(cordance, tiedx, tiedy, x, y)
17983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17984 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_SK3
17987 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
17988 integer(IK) ,
intent(out) :: tiedx, tiedy
17989 integer(IK) ,
intent(out) :: cordance
17994 PURE module subroutine setCordanceSum_D1_SK2(cordance, tiedx, tiedy, x, y)
17995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17996 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_SK2
17999 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18000 integer(IK) ,
intent(out) :: tiedx, tiedy
18001 integer(IK) ,
intent(out) :: cordance
18006 PURE module subroutine setCordanceSum_D1_SK1(cordance, tiedx, tiedy, x, y)
18007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18008 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_SK1
18011 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18012 integer(IK) ,
intent(out) :: tiedx, tiedy
18013 integer(IK) ,
intent(out) :: cordance
18020 PURE module subroutine setCordanceSum_D1_IK5(cordance, tiedx, tiedy, x, y)
18021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18022 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_IK5
18025 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18026 integer(IK) ,
intent(out) :: tiedx, tiedy
18027 integer(IK) ,
intent(out) :: cordance
18032 PURE module subroutine setCordanceSum_D1_IK4(cordance, tiedx, tiedy, x, y)
18033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18034 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_IK4
18037 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18038 integer(IK) ,
intent(out) :: tiedx, tiedy
18039 integer(IK) ,
intent(out) :: cordance
18044 PURE module subroutine setCordanceSum_D1_IK3(cordance, tiedx, tiedy, x, y)
18045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18046 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_IK3
18049 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18050 integer(IK) ,
intent(out) :: tiedx, tiedy
18051 integer(IK) ,
intent(out) :: cordance
18056 PURE module subroutine setCordanceSum_D1_IK2(cordance, tiedx, tiedy, x, y)
18057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18058 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_IK2
18061 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18062 integer(IK) ,
intent(out) :: tiedx, tiedy
18063 integer(IK) ,
intent(out) :: cordance
18068 PURE module subroutine setCordanceSum_D1_IK1(cordance, tiedx, tiedy, x, y)
18069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18070 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_IK1
18073 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18074 integer(IK) ,
intent(out) :: tiedx, tiedy
18075 integer(IK) ,
intent(out) :: cordance
18082 PURE module subroutine setCordanceSum_D1_RK5(cordance, tiedx, tiedy, x, y)
18083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18084 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_RK5
18087 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18088 integer(IK) ,
intent(out) :: tiedx, tiedy
18089 integer(IK) ,
intent(out) :: cordance
18094 PURE module subroutine setCordanceSum_D1_RK4(cordance, tiedx, tiedy, x, y)
18095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18096 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_RK4
18099 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18100 integer(IK) ,
intent(out) :: tiedx, tiedy
18101 integer(IK) ,
intent(out) :: cordance
18106 PURE module subroutine setCordanceSum_D1_RK3(cordance, tiedx, tiedy, x, y)
18107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18108 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_RK3
18111 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18112 integer(IK) ,
intent(out) :: tiedx, tiedy
18113 integer(IK) ,
intent(out) :: cordance
18118 PURE module subroutine setCordanceSum_D1_RK2(cordance, tiedx, tiedy, x, y)
18119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18120 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_RK2
18123 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18124 integer(IK) ,
intent(out) :: tiedx, tiedy
18125 integer(IK) ,
intent(out) :: cordance
18130 PURE module subroutine setCordanceSum_D1_RK1(cordance, tiedx, tiedy, x, y)
18131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18132 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_RK1
18135 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18136 integer(IK) ,
intent(out) :: tiedx, tiedy
18137 integer(IK) ,
intent(out) :: cordance
18146 PURE module subroutine setCordanceSum_D1_PSSK5(cordance, tiedx, tiedy, x, y)
18147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18148 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_PSSK5
18151 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18152 integer(IK) ,
intent(out) :: tiedx, tiedy
18153 integer(IK) ,
intent(out) :: cordance
18158 PURE module subroutine setCordanceSum_D1_PSSK4(cordance, tiedx, tiedy, x, y)
18159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18160 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_PSSK4
18163 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18164 integer(IK) ,
intent(out) :: tiedx, tiedy
18165 integer(IK) ,
intent(out) :: cordance
18170 PURE module subroutine setCordanceSum_D1_PSSK3(cordance, tiedx, tiedy, x, y)
18171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18172 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_PSSK3
18175 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18176 integer(IK) ,
intent(out) :: tiedx, tiedy
18177 integer(IK) ,
intent(out) :: cordance
18182 PURE module subroutine setCordanceSum_D1_PSSK2(cordance, tiedx, tiedy, x, y)
18183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18184 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_PSSK2
18187 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18188 integer(IK) ,
intent(out) :: tiedx, tiedy
18189 integer(IK) ,
intent(out) :: cordance
18194 PURE module subroutine setCordanceSum_D1_PSSK1(cordance, tiedx, tiedy, x, y)
18195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18196 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_PSSK1
18199 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18200 integer(IK) ,
intent(out) :: tiedx, tiedy
18201 integer(IK) ,
intent(out) :: cordance
18210 PURE module subroutine setCordanceSum_D1_BSSK(cordance, tiedx, tiedy, x, y)
18211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18212 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceSum_D1_BSSK
18215 type(css_type) ,
intent(in) ,
contiguous :: x(:), y(:)
18216 integer(IK) ,
intent(out) :: tiedx, tiedy
18217 integer(IK) ,
intent(out) :: cordance
18229 PURE module subroutine setCordanceAll_D0_SK5(concordance, discordance, tiedx, tiedy, x, y)
18230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18231 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D0_SK5
18234 character(
*,SKG) ,
intent(in) :: x, y
18235 integer(IK) ,
intent(out) :: tiedx, tiedy
18236 integer(IK) ,
intent(out) :: concordance, discordance
18241 PURE module subroutine setCordanceAll_D0_SK4(concordance, discordance, tiedx, tiedy, x, y)
18242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18243 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D0_SK4
18246 character(
*,SKG) ,
intent(in) :: x, y
18247 integer(IK) ,
intent(out) :: tiedx, tiedy
18248 integer(IK) ,
intent(out) :: concordance, discordance
18253 PURE module subroutine setCordanceAll_D0_SK3(concordance, discordance, tiedx, tiedy, x, y)
18254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18255 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D0_SK3
18258 character(
*,SKG) ,
intent(in) :: x, y
18259 integer(IK) ,
intent(out) :: tiedx, tiedy
18260 integer(IK) ,
intent(out) :: concordance, discordance
18265 PURE module subroutine setCordanceAll_D0_SK2(concordance, discordance, tiedx, tiedy, x, y)
18266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18267 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D0_SK2
18270 character(
*,SKG) ,
intent(in) :: x, y
18271 integer(IK) ,
intent(out) :: tiedx, tiedy
18272 integer(IK) ,
intent(out) :: concordance, discordance
18277 PURE module subroutine setCordanceAll_D0_SK1(concordance, discordance, tiedx, tiedy, x, y)
18278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18279 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D0_SK1
18282 character(
*,SKG) ,
intent(in) :: x, y
18283 integer(IK) ,
intent(out) :: tiedx, tiedy
18284 integer(IK) ,
intent(out) :: concordance, discordance
18291 PURE module subroutine setCordanceAll_D1_SK5(concordance, discordance, tiedx, tiedy, x, y)
18292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18293 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_SK5
18296 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18297 integer(IK) ,
intent(out) :: tiedx, tiedy
18298 integer(IK) ,
intent(out) :: concordance, discordance
18303 PURE module subroutine setCordanceAll_D1_SK4(concordance, discordance, tiedx, tiedy, x, y)
18304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18305 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_SK4
18308 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18309 integer(IK) ,
intent(out) :: tiedx, tiedy
18310 integer(IK) ,
intent(out) :: concordance, discordance
18315 PURE module subroutine setCordanceAll_D1_SK3(concordance, discordance, tiedx, tiedy, x, y)
18316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18317 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_SK3
18320 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18321 integer(IK) ,
intent(out) :: tiedx, tiedy
18322 integer(IK) ,
intent(out) :: concordance, discordance
18327 PURE module subroutine setCordanceAll_D1_SK2(concordance, discordance, tiedx, tiedy, x, y)
18328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18329 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_SK2
18332 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18333 integer(IK) ,
intent(out) :: tiedx, tiedy
18334 integer(IK) ,
intent(out) :: concordance, discordance
18339 PURE module subroutine setCordanceAll_D1_SK1(concordance, discordance, tiedx, tiedy, x, y)
18340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18341 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_SK1
18344 character(
*,SKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18345 integer(IK) ,
intent(out) :: tiedx, tiedy
18346 integer(IK) ,
intent(out) :: concordance, discordance
18353 PURE module subroutine setCordanceAll_D1_IK5(concordance, discordance, tiedx, tiedy, x, y)
18354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18355 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_IK5
18358 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18359 integer(IK) ,
intent(out) :: tiedx, tiedy
18360 integer(IK) ,
intent(out) :: concordance, discordance
18365 PURE module subroutine setCordanceAll_D1_IK4(concordance, discordance, tiedx, tiedy, x, y)
18366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18367 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_IK4
18370 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18371 integer(IK) ,
intent(out) :: tiedx, tiedy
18372 integer(IK) ,
intent(out) :: concordance, discordance
18377 PURE module subroutine setCordanceAll_D1_IK3(concordance, discordance, tiedx, tiedy, x, y)
18378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18379 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_IK3
18382 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18383 integer(IK) ,
intent(out) :: tiedx, tiedy
18384 integer(IK) ,
intent(out) :: concordance, discordance
18389 PURE module subroutine setCordanceAll_D1_IK2(concordance, discordance, tiedx, tiedy, x, y)
18390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18391 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_IK2
18394 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18395 integer(IK) ,
intent(out) :: tiedx, tiedy
18396 integer(IK) ,
intent(out) :: concordance, discordance
18401 PURE module subroutine setCordanceAll_D1_IK1(concordance, discordance, tiedx, tiedy, x, y)
18402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18403 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_IK1
18406 integer(IKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18407 integer(IK) ,
intent(out) :: tiedx, tiedy
18408 integer(IK) ,
intent(out) :: concordance, discordance
18415 PURE module subroutine setCordanceAll_D1_RK5(concordance, discordance, tiedx, tiedy, x, y)
18416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18417 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_RK5
18420 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18421 integer(IK) ,
intent(out) :: tiedx, tiedy
18422 integer(IK) ,
intent(out) :: concordance, discordance
18427 PURE module subroutine setCordanceAll_D1_RK4(concordance, discordance, tiedx, tiedy, x, y)
18428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18429 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_RK4
18432 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18433 integer(IK) ,
intent(out) :: tiedx, tiedy
18434 integer(IK) ,
intent(out) :: concordance, discordance
18439 PURE module subroutine setCordanceAll_D1_RK3(concordance, discordance, tiedx, tiedy, x, y)
18440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18441 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_RK3
18444 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18445 integer(IK) ,
intent(out) :: tiedx, tiedy
18446 integer(IK) ,
intent(out) :: concordance, discordance
18451 PURE module subroutine setCordanceAll_D1_RK2(concordance, discordance, tiedx, tiedy, x, y)
18452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18453 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_RK2
18456 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18457 integer(IK) ,
intent(out) :: tiedx, tiedy
18458 integer(IK) ,
intent(out) :: concordance, discordance
18463 PURE module subroutine setCordanceAll_D1_RK1(concordance, discordance, tiedx, tiedy, x, y)
18464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18465 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_RK1
18468 real(TKG) ,
intent(in) ,
contiguous :: x(:), y(:)
18469 integer(IK) ,
intent(out) :: tiedx, tiedy
18470 integer(IK) ,
intent(out) :: concordance, discordance
18479 PURE module subroutine setCordanceAll_D1_PSSK5(concordance, discordance, tiedx, tiedy, x, y)
18480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18481 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_PSSK5
18484 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18485 integer(IK) ,
intent(out) :: tiedx, tiedy
18486 integer(IK) ,
intent(out) :: concordance, discordance
18491 PURE module subroutine setCordanceAll_D1_PSSK4(concordance, discordance, tiedx, tiedy, x, y)
18492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18493 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_PSSK4
18496 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18497 integer(IK) ,
intent(out) :: tiedx, tiedy
18498 integer(IK) ,
intent(out) :: concordance, discordance
18503 PURE module subroutine setCordanceAll_D1_PSSK3(concordance, discordance, tiedx, tiedy, x, y)
18504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18505 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_PSSK3
18508 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18509 integer(IK) ,
intent(out) :: tiedx, tiedy
18510 integer(IK) ,
intent(out) :: concordance, discordance
18515 PURE module subroutine setCordanceAll_D1_PSSK2(concordance, discordance, tiedx, tiedy, x, y)
18516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18517 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_PSSK2
18520 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18521 integer(IK) ,
intent(out) :: tiedx, tiedy
18522 integer(IK) ,
intent(out) :: concordance, discordance
18527 PURE module subroutine setCordanceAll_D1_PSSK1(concordance, discordance, tiedx, tiedy, x, y)
18528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18529 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_PSSK1
18532 type(css_pdt(SKG)) ,
intent(in) ,
contiguous :: x(:), y(:)
18533 integer(IK) ,
intent(out) :: tiedx, tiedy
18534 integer(IK) ,
intent(out) :: concordance, discordance
18543 PURE module subroutine setCordanceAll_D1_BSSK(concordance, discordance, tiedx, tiedy, x, y)
18544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18545 !DEC$ ATTRIBUTES DLLEXPORT :: setCordanceAll_D1_BSSK
18548 type(css_type) ,
intent(in) ,
contiguous :: x(:), y(:)
18549 integer(IK) ,
intent(out) :: tiedx, tiedy
18550 integer(IK) ,
intent(out) :: concordance, discordance
Generate and return the (Pearson) correlation coefficient or matrix of a pair of (weighted) time seri...
Generate and return the Spearman rank correlation matrix of the input (weighted) sample of shape (ndi...
Return the (weighted) correlation matrix corresponding to the input (weighted) covariance matrix or r...
Compute and return the Cordance vector of the input data series x and y.
Return the Spearman rank correlation matrix of the input (weighted) sample of shape (ndim,...
This module contains the derived types for generating allocatable containers of scalar,...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(lowDia_type), parameter lowDia
This is a scalar parameter object of type lowDia_type that is exclusively used to request lower-diago...
type(low_type), parameter low
This is a scalar parameter object of type low_type that is exclusively used to request lower-triangul...
type(upp_type), parameter upp
This is a scalar parameter object of type upp_type that is exclusively used to request upper-triangul...
type(uppDia_type), parameter uppDia
This is a scalar parameter object of type uppDia_type that is exclusively used to request upper-diago...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for computing properties related to the correlation matri...
type(kendall_type), parameter kendall
This is a scalar parameter object of type kendall_type that is exclusively used to signify the kendal...
type(kendallB_type), parameter kendallB
This is a scalar parameter object of type kendallB_type that is exclusively used to signify the kenda...
type(pearson_type), parameter pearson
This is a scalar parameter object of type pearson_type that is exclusively used to signify the pearso...
type(spearman_type), parameter spearman
This is a scalar parameter object of type spearman_type that is exclusively used to signify the spear...
type(kendallA_type), parameter kendallA
This is a scalar parameter object of type kendallA_type that is exclusively used to signify the kenda...
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the css_type type for generating instances of container of scalar of string objects.
This is a concrete derived type whose instances are exclusively used to request lower-diagonal triang...
This is a concrete derived type whose instances are exclusively used to request lower-triangular stor...
This is a concrete derived type whose instances are exclusively used to request upper-diagonal triang...
This is a concrete derived type whose instances are exclusively used to request upper-triangular stor...
This is an abstract derived type for constructing concrete derived types to distinguish various proce...
This is a concrete derived type whose instances are exclusively used to signify the kendallA type of ...
This is a concrete derived type whose instances are exclusively used to signify the kendallB type of ...
This is a concrete derived type whose instances are exclusively used to signify the kendall type of c...
This is a concrete derived type whose instances are exclusively used to signify the pearson type of c...
This is a concrete derived type whose instances are exclusively used to signify the spearman type of ...