148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
149 !DIR$ ATTRIBUTES DLLEXPORT ::
euclid
216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
217 !DIR$ ATTRIBUTES DLLEXPORT ::
euclidu
284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
285 !DIR$ ATTRIBUTES DLLEXPORT ::
euclidv
352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
353 !DIR$ ATTRIBUTES DLLEXPORT ::
euclidsq
489 pure elemental module function getDisEuclidXYZ_RK5(x, y, z)
result(distance)
490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
491 !DEC$ ATTRIBUTES DLLEXPORT :: getDisEuclidXYZ_RK5
494 real(RKG) ,
intent(in) :: x, y, z
495 real(RKG) :: distance
500 pure elemental module function getDisEuclidXYZ_RK4(x, y, z)
result(distance)
501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
502 !DEC$ ATTRIBUTES DLLEXPORT :: getDisEuclidXYZ_RK4
505 real(RKG) ,
intent(in) :: x, y, z
506 real(RKG) :: distance
511 PURE elemental module function getDisEuclidXYZ_RK3(x, y, z)
result(distance)
512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
513 !DEC$ ATTRIBUTES DLLEXPORT :: getDisEuclidXYZ_RK3
516 real(RKG) ,
intent(in) :: x, y, z
517 real(RKG) :: distance
522 PURE elemental module function getDisEuclidXYZ_RK2(x, y, z)
result(distance)
523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
524 !DEC$ ATTRIBUTES DLLEXPORT :: getDisEuclidXYZ_RK2
527 real(RKG) ,
intent(in) :: x, y, z
528 real(RKG) :: distance
533 PURE elemental module function getDisEuclidXYZ_RK1(x, y, z)
result(distance)
534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
535 !DEC$ ATTRIBUTES DLLEXPORT :: getDisEuclidXYZ_RK1
538 real(RKG) ,
intent(in) :: x, y, z
539 real(RKG) :: distance
558 PURE module function getDE_D1_XX_RK5(point, method)
result(distance)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_XX_RK5
563 real(RKG) ,
intent(in) ,
contiguous :: point(:)
564 real(RKG) :: distance
565 class(
*) ,
intent(in) ,
optional :: method
570 PURE module function getDE_D1_XX_RK4(point, method)
result(distance)
571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
572 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_XX_RK4
575 real(RKG) ,
intent(in) ,
contiguous :: point(:)
576 real(RKG) :: distance
577 class(
*) ,
intent(in) ,
optional :: method
582 PURE module function getDE_D1_XX_RK3(point, method)
result(distance)
583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
584 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_XX_RK3
587 real(RKG) ,
intent(in) ,
contiguous :: point(:)
588 real(RKG) :: distance
589 class(
*) ,
intent(in) ,
optional :: method
594 PURE module function getDE_D1_XX_RK2(point, method)
result(distance)
595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
596 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_XX_RK2
599 real(RKG) ,
intent(in) ,
contiguous :: point(:)
600 real(RKG) :: distance
601 class(
*) ,
intent(in) ,
optional :: method
606 PURE module function getDE_D1_XX_RK1(point, method)
result(distance)
607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
608 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_XX_RK1
611 real(RKG) ,
intent(in) ,
contiguous :: point(:)
612 real(RKG) :: distance
613 class(
*) ,
intent(in) ,
optional :: method
620 PURE module function getDE_D2_XX_RK5(point, method)
result(distance)
621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
622 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_XX_RK5
625 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
626 real(RKG) :: distance(
size(point,
2, IK))
627 class(
*) ,
intent(in) ,
optional :: method
632 PURE module function getDE_D2_XX_RK4(point, method)
result(distance)
633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
634 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_XX_RK4
637 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
638 real(RKG) :: distance(
size(point,
2, IK))
639 class(
*) ,
intent(in) ,
optional :: method
644 PURE module function getDE_D2_XX_RK3(point, method)
result(distance)
645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
646 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_XX_RK3
649 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
650 real(RKG) :: distance(
size(point,
2, IK))
651 class(
*) ,
intent(in) ,
optional :: method
656 PURE module function getDE_D2_XX_RK2(point, method)
result(distance)
657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
658 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_XX_RK2
661 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
662 real(RKG) :: distance(
size(point,
2, IK))
663 class(
*) ,
intent(in) ,
optional :: method
668 PURE module function getDE_D2_XX_RK1(point, method)
result(distance)
669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
670 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_XX_RK1
673 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
674 real(RKG) :: distance(
size(point,
2, IK))
675 class(
*) ,
intent(in) ,
optional :: method
688 PURE module function getDE_D1_D1_RK5(point, ref, method)
result(distance)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D1_RK5
693 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
694 real(RKG) ,
intent(in) ,
contiguous :: point(:)
695 real(RKG) :: distance
696 class(
*) ,
intent(in) ,
optional :: method
701 PURE module function getDE_D1_D1_RK4(point, ref, method)
result(distance)
702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
703 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D1_RK4
706 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
707 real(RKG) ,
intent(in) ,
contiguous :: point(:)
708 real(RKG) :: distance
709 class(
*) ,
intent(in) ,
optional :: method
714 PURE module function getDE_D1_D1_RK3(point, ref, method)
result(distance)
715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
716 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D1_RK3
719 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
720 real(RKG) ,
intent(in) ,
contiguous :: point(:)
721 real(RKG) :: distance
722 class(
*) ,
intent(in) ,
optional :: method
727 PURE module function getDE_D1_D1_RK2(point, ref, method)
result(distance)
728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
729 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D1_RK2
732 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
733 real(RKG) ,
intent(in) ,
contiguous :: point(:)
734 real(RKG) :: distance
735 class(
*) ,
intent(in) ,
optional :: method
740 PURE module function getDE_D1_D1_RK1(point, ref, method)
result(distance)
741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
742 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D1_RK1
745 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
746 real(RKG) ,
intent(in) ,
contiguous :: point(:)
747 real(RKG) :: distance
748 class(
*) ,
intent(in) ,
optional :: method
755 PURE module function getDE_D1_D2_RK5(point, ref, method)
result(distance)
756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
757 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D2_RK5
760 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
761 real(RKG) ,
intent(in) ,
contiguous :: point(:)
762 real(RKG) :: distance(
size(ref,
2, IK))
763 class(
*) ,
intent(in) ,
optional :: method
768 PURE module function getDE_D1_D2_RK4(point, ref, method)
result(distance)
769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
770 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D2_RK4
773 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
774 real(RKG) ,
intent(in) ,
contiguous :: point(:)
775 real(RKG) :: distance(
size(ref,
2, IK))
776 class(
*) ,
intent(in) ,
optional :: method
781 PURE module function getDE_D1_D2_RK3(point, ref, method)
result(distance)
782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
783 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D2_RK3
786 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
787 real(RKG) ,
intent(in) ,
contiguous :: point(:)
788 real(RKG) :: distance(
size(ref,
2, IK))
789 class(
*) ,
intent(in) ,
optional :: method
794 PURE module function getDE_D1_D2_RK2(point, ref, method)
result(distance)
795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
796 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D2_RK2
799 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
800 real(RKG) ,
intent(in) ,
contiguous :: point(:)
801 real(RKG) :: distance(
size(ref,
2, IK))
802 class(
*) ,
intent(in) ,
optional :: method
807 PURE module function getDE_D1_D2_RK1(point, ref, method)
result(distance)
808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
809 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D1_D2_RK1
812 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
813 real(RKG) ,
intent(in) ,
contiguous :: point(:)
814 real(RKG) :: distance(
size(ref,
2, IK))
815 class(
*) ,
intent(in) ,
optional :: method
822 PURE module function getDE_D2_D1_RK5(point, ref, method)
result(distance)
823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
824 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D1_RK5
827 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
828 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
829 real(RKG) :: distance(
size(point,
2, IK))
830 class(
*) ,
intent(in) ,
optional :: method
835 PURE module function getDE_D2_D1_RK4(point, ref, method)
result(distance)
836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
837 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D1_RK4
840 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
841 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
842 real(RKG) :: distance(
size(point,
2, IK))
843 class(
*) ,
intent(in) ,
optional :: method
848 PURE module function getDE_D2_D1_RK3(point, ref, method)
result(distance)
849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
850 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D1_RK3
853 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
854 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
855 real(RKG) :: distance(
size(point,
2, IK))
856 class(
*) ,
intent(in) ,
optional :: method
861 PURE module function getDE_D2_D1_RK2(point, ref, method)
result(distance)
862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
863 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D1_RK2
866 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
867 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
868 real(RKG) :: distance(
size(point,
2, IK))
869 class(
*) ,
intent(in) ,
optional :: method
874 PURE module function getDE_D2_D1_RK1(point, ref, method)
result(distance)
875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
876 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D1_RK1
879 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
880 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
881 real(RKG) :: distance(
size(point,
2, IK))
882 class(
*) ,
intent(in) ,
optional :: method
889 PURE module function getDE_D2_D2_RK5(point, ref, method)
result(distance)
890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
891 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D2_RK5
894 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
895 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
896 real(RKG) :: distance(
size(point,
2, IK),
size(ref,
2, IK))
897 class(
*) ,
intent(in) ,
optional :: method
902 PURE module function getDE_D2_D2_RK4(point, ref, method)
result(distance)
903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
904 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D2_RK4
907 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
908 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
909 real(RKG) :: distance(
size(point,
2, IK),
size(ref,
2, IK))
910 class(
*) ,
intent(in) ,
optional :: method
915 PURE module function getDE_D2_D2_RK3(point, ref, method)
result(distance)
916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
917 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D2_RK3
920 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
921 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
922 real(RKG) :: distance(
size(point,
2, IK),
size(ref,
2, IK))
923 class(
*) ,
intent(in) ,
optional :: method
928 PURE module function getDE_D2_D2_RK2(point, ref, method)
result(distance)
929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
930 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D2_RK2
933 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
934 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
935 real(RKG) :: distance(
size(point,
2, IK),
size(ref,
2, IK))
936 class(
*) ,
intent(in) ,
optional :: method
941 PURE module function getDE_D2_D2_RK1(point, ref, method)
result(distance)
942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
943 !DEC$ ATTRIBUTES DLLEXPORT :: getDE_D2_D2_RK1
946 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
947 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
948 real(RKG) :: distance(
size(point,
2, IK),
size(ref,
2, IK))
949 class(
*) ,
intent(in) ,
optional :: method
1074 PURE module subroutine setDE_MED_D0_D1_XX_RK5(distance, point, method)
1075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1076 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_XX_RK5
1079 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1080 real(RKG) ,
intent(out) :: distance
1081 type(euclid_type) ,
intent(in) :: method
1086 PURE module subroutine setDE_MED_D0_D1_XX_RK4(distance, point, method)
1087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1088 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_XX_RK4
1091 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1092 real(RKG) ,
intent(out) :: distance
1093 type(euclid_type) ,
intent(in) :: method
1098 PURE module subroutine setDE_MED_D0_D1_XX_RK3(distance, point, method)
1099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1100 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_XX_RK3
1103 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1104 real(RKG) ,
intent(out) :: distance
1105 type(euclid_type) ,
intent(in) :: method
1110 PURE module subroutine setDE_MED_D0_D1_XX_RK2(distance, point, method)
1111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1112 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_XX_RK2
1115 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1116 real(RKG) ,
intent(out) :: distance
1117 type(euclid_type) ,
intent(in) :: method
1122 PURE module subroutine setDE_MED_D0_D1_XX_RK1(distance, point, method)
1123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1124 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_XX_RK1
1127 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1128 real(RKG) ,
intent(out) :: distance
1129 type(euclid_type) ,
intent(in) :: method
1136 PURE module subroutine setDE_MED_D1_D2_XX_RK5(distance, point, method)
1137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1138 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_XX_RK5
1141 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1142 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1143 type(euclid_type) ,
intent(in) :: method
1148 PURE module subroutine setDE_MED_D1_D2_XX_RK4(distance, point, method)
1149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1150 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_XX_RK4
1153 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1154 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1155 type(euclid_type) ,
intent(in) :: method
1160 PURE module subroutine setDE_MED_D1_D2_XX_RK3(distance, point, method)
1161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1162 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_XX_RK3
1165 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1166 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1167 type(euclid_type) ,
intent(in) :: method
1172 PURE module subroutine setDE_MED_D1_D2_XX_RK2(distance, point, method)
1173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1174 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_XX_RK2
1177 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1178 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1179 type(euclid_type) ,
intent(in) :: method
1184 PURE module subroutine setDE_MED_D1_D2_XX_RK1(distance, point, method)
1185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1186 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_XX_RK1
1189 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1190 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1191 type(euclid_type) ,
intent(in) :: method
1204 PURE module subroutine setDE_MED_D0_D1_D1_RK5(distance, point, ref, method)
1205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1206 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_D1_RK5
1209 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1210 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1211 real(RKG) ,
intent(out) :: distance
1212 type(euclid_type) ,
intent(in) :: method
1217 PURE module subroutine setDE_MED_D0_D1_D1_RK4(distance, point, ref, method)
1218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1219 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_D1_RK4
1222 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1223 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1224 real(RKG) ,
intent(out) :: distance
1225 type(euclid_type) ,
intent(in) :: method
1230 PURE module subroutine setDE_MED_D0_D1_D1_RK3(distance, point, ref, method)
1231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1232 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_D1_RK3
1235 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1236 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1237 real(RKG) ,
intent(out) :: distance
1238 type(euclid_type) ,
intent(in) :: method
1243 PURE module subroutine setDE_MED_D0_D1_D1_RK2(distance, point, ref, method)
1244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1245 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_D1_RK2
1248 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1249 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1250 real(RKG) ,
intent(out) :: distance
1251 type(euclid_type) ,
intent(in) :: method
1256 PURE module subroutine setDE_MED_D0_D1_D1_RK1(distance, point, ref, method)
1257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1258 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D0_D1_D1_RK1
1261 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1262 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1263 real(RKG) ,
intent(out) :: distance
1264 type(euclid_type) ,
intent(in) :: method
1271 PURE module subroutine setDE_MED_D1_D1_D2_RK5(distance, point, ref, method)
1272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1273 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D1_D2_RK5
1276 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1277 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1278 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1279 type(euclid_type) ,
intent(in) :: method
1284 PURE module subroutine setDE_MED_D1_D1_D2_RK4(distance, point, ref, method)
1285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1286 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D1_D2_RK4
1289 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1290 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1291 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1292 type(euclid_type) ,
intent(in) :: method
1297 PURE module subroutine setDE_MED_D1_D1_D2_RK3(distance, point, ref, method)
1298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1299 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D1_D2_RK3
1302 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1303 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1304 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1305 type(euclid_type) ,
intent(in) :: method
1310 PURE module subroutine setDE_MED_D1_D1_D2_RK2(distance, point, ref, method)
1311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1312 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D1_D2_RK2
1315 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1316 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1317 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1318 type(euclid_type) ,
intent(in) :: method
1323 PURE module subroutine setDE_MED_D1_D1_D2_RK1(distance, point, ref, method)
1324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1325 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D1_D2_RK1
1328 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1329 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1330 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1331 type(euclid_type) ,
intent(in) :: method
1338 PURE module subroutine setDE_MED_D1_D2_D1_RK5(distance, point, ref, method)
1339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1340 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_D1_RK5
1343 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1344 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1345 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1346 type(euclid_type) ,
intent(in) :: method
1351 PURE module subroutine setDE_MED_D1_D2_D1_RK4(distance, point, ref, method)
1352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1353 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_D1_RK4
1356 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1357 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1358 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1359 type(euclid_type) ,
intent(in) :: method
1364 PURE module subroutine setDE_MED_D1_D2_D1_RK3(distance, point, ref, method)
1365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1366 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_D1_RK3
1369 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1370 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1371 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1372 type(euclid_type) ,
intent(in) :: method
1377 PURE module subroutine setDE_MED_D1_D2_D1_RK2(distance, point, ref, method)
1378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1379 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_D1_RK2
1382 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1383 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1384 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1385 type(euclid_type) ,
intent(in) :: method
1390 PURE module subroutine setDE_MED_D1_D2_D1_RK1(distance, point, ref, method)
1391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1392 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D1_D2_D1_RK1
1395 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1396 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1397 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1398 type(euclid_type) ,
intent(in) :: method
1405 PURE module subroutine setDE_MED_D2_D2_D2_RK5(distance, point, ref, method)
1406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1407 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D2_D2_RK5
1410 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1411 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1412 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1413 type(euclid_type) ,
intent(in) :: method
1418 PURE module subroutine setDE_MED_D2_D2_D2_RK4(distance, point, ref, method)
1419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1420 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D2_D2_RK4
1423 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1424 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1425 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1426 type(euclid_type) ,
intent(in) :: method
1431 PURE module subroutine setDE_MED_D2_D2_D2_RK3(distance, point, ref, method)
1432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1433 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D2_D2_RK3
1436 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1437 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1438 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1439 type(euclid_type) ,
intent(in) :: method
1444 PURE module subroutine setDE_MED_D2_D2_D2_RK2(distance, point, ref, method)
1445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1446 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D2_D2_RK2
1449 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1450 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1451 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1452 type(euclid_type) ,
intent(in) :: method
1457 PURE module subroutine setDE_MED_D2_D2_D2_RK1(distance, point, ref, method)
1458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1459 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D2_D2_RK1
1462 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1463 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1464 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1465 type(euclid_type) ,
intent(in) :: method
1476 PURE module subroutine setDE_MED_D2_D1_D1_RK5(distance, point, ref, method)
1477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1478 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D1_D1_RK5
1481 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1482 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1483 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1484 type(euclid_type) ,
intent(in) :: method
1489 PURE module subroutine setDE_MED_D2_D1_D1_RK4(distance, point, ref, method)
1490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1491 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D1_D1_RK4
1494 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1495 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1496 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1497 type(euclid_type) ,
intent(in) :: method
1502 PURE module subroutine setDE_MED_D2_D1_D1_RK3(distance, point, ref, method)
1503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1504 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D1_D1_RK3
1507 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1508 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1509 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1510 type(euclid_type) ,
intent(in) :: method
1515 PURE module subroutine setDE_MED_D2_D1_D1_RK2(distance, point, ref, method)
1516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1517 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D1_D1_RK2
1520 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1521 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1522 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1523 type(euclid_type) ,
intent(in) :: method
1528 PURE module subroutine setDE_MED_D2_D1_D1_RK1(distance, point, ref, method)
1529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1530 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MED_D2_D1_D1_RK1
1533 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1534 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1535 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1536 type(euclid_type) ,
intent(in) :: method
1559 PURE module subroutine setDE_MEU_D0_D1_XX_RK5(distance, point, method)
1560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1561 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_XX_RK5
1564 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1565 real(RKG) ,
intent(out) :: distance
1566 type(euclidu_type) ,
intent(in) :: method
1571 PURE module subroutine setDE_MEU_D0_D1_XX_RK4(distance, point, method)
1572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1573 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_XX_RK4
1576 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1577 real(RKG) ,
intent(out) :: distance
1578 type(euclidu_type) ,
intent(in) :: method
1583 PURE module subroutine setDE_MEU_D0_D1_XX_RK3(distance, point, method)
1584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1585 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_XX_RK3
1588 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1589 real(RKG) ,
intent(out) :: distance
1590 type(euclidu_type) ,
intent(in) :: method
1595 PURE module subroutine setDE_MEU_D0_D1_XX_RK2(distance, point, method)
1596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1597 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_XX_RK2
1600 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1601 real(RKG) ,
intent(out) :: distance
1602 type(euclidu_type) ,
intent(in) :: method
1607 PURE module subroutine setDE_MEU_D0_D1_XX_RK1(distance, point, method)
1608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1609 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_XX_RK1
1612 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1613 real(RKG) ,
intent(out) :: distance
1614 type(euclidu_type) ,
intent(in) :: method
1621 PURE module subroutine setDE_MEU_D1_D2_XX_RK5(distance, point, method)
1622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1623 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_XX_RK5
1626 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1627 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1628 type(euclidu_type) ,
intent(in) :: method
1633 PURE module subroutine setDE_MEU_D1_D2_XX_RK4(distance, point, method)
1634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1635 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_XX_RK4
1638 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1639 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1640 type(euclidu_type) ,
intent(in) :: method
1645 PURE module subroutine setDE_MEU_D1_D2_XX_RK3(distance, point, method)
1646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1647 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_XX_RK3
1650 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1651 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1652 type(euclidu_type) ,
intent(in) :: method
1657 PURE module subroutine setDE_MEU_D1_D2_XX_RK2(distance, point, method)
1658#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1659 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_XX_RK2
1662 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1663 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1664 type(euclidu_type) ,
intent(in) :: method
1669 PURE module subroutine setDE_MEU_D1_D2_XX_RK1(distance, point, method)
1670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1671 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_XX_RK1
1674 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1675 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1676 type(euclidu_type) ,
intent(in) :: method
1689 PURE module subroutine setDE_MEU_D0_D1_D1_RK5(distance, point, ref, method)
1690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1691 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_D1_RK5
1694 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1695 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1696 real(RKG) ,
intent(out) :: distance
1697 type(euclidu_type) ,
intent(in) :: method
1702 PURE module subroutine setDE_MEU_D0_D1_D1_RK4(distance, point, ref, method)
1703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1704 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_D1_RK4
1707 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1708 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1709 real(RKG) ,
intent(out) :: distance
1710 type(euclidu_type) ,
intent(in) :: method
1715 PURE module subroutine setDE_MEU_D0_D1_D1_RK3(distance, point, ref, method)
1716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1717 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_D1_RK3
1720 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1721 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1722 real(RKG) ,
intent(out) :: distance
1723 type(euclidu_type) ,
intent(in) :: method
1728 PURE module subroutine setDE_MEU_D0_D1_D1_RK2(distance, point, ref, method)
1729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1730 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_D1_RK2
1733 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1734 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1735 real(RKG) ,
intent(out) :: distance
1736 type(euclidu_type) ,
intent(in) :: method
1741 PURE module subroutine setDE_MEU_D0_D1_D1_RK1(distance, point, ref, method)
1742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1743 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D0_D1_D1_RK1
1746 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1747 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1748 real(RKG) ,
intent(out) :: distance
1749 type(euclidu_type) ,
intent(in) :: method
1756 PURE module subroutine setDE_MEU_D1_D1_D2_RK5(distance, point, ref, method)
1757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1758 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D1_D2_RK5
1761 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1762 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1763 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1764 type(euclidu_type) ,
intent(in) :: method
1769 PURE module subroutine setDE_MEU_D1_D1_D2_RK4(distance, point, ref, method)
1770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1771 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D1_D2_RK4
1774 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1775 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1776 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1777 type(euclidu_type) ,
intent(in) :: method
1782 PURE module subroutine setDE_MEU_D1_D1_D2_RK3(distance, point, ref, method)
1783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1784 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D1_D2_RK3
1787 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1788 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1789 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1790 type(euclidu_type) ,
intent(in) :: method
1795 PURE module subroutine setDE_MEU_D1_D1_D2_RK2(distance, point, ref, method)
1796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1797 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D1_D2_RK2
1800 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1801 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1802 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1803 type(euclidu_type) ,
intent(in) :: method
1808 PURE module subroutine setDE_MEU_D1_D1_D2_RK1(distance, point, ref, method)
1809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1810 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D1_D2_RK1
1813 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1814 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1815 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1816 type(euclidu_type) ,
intent(in) :: method
1823 PURE module subroutine setDE_MEU_D1_D2_D1_RK5(distance, point, ref, method)
1824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1825 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_D1_RK5
1828 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1829 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1830 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1831 type(euclidu_type) ,
intent(in) :: method
1836 PURE module subroutine setDE_MEU_D1_D2_D1_RK4(distance, point, ref, method)
1837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1838 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_D1_RK4
1841 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1842 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1843 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1844 type(euclidu_type) ,
intent(in) :: method
1849 PURE module subroutine setDE_MEU_D1_D2_D1_RK3(distance, point, ref, method)
1850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1851 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_D1_RK3
1854 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1855 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1856 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1857 type(euclidu_type) ,
intent(in) :: method
1862 PURE module subroutine setDE_MEU_D1_D2_D1_RK2(distance, point, ref, method)
1863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1864 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_D1_RK2
1867 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1868 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1869 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1870 type(euclidu_type) ,
intent(in) :: method
1875 PURE module subroutine setDE_MEU_D1_D2_D1_RK1(distance, point, ref, method)
1876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1877 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D1_D2_D1_RK1
1880 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1881 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1882 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
1883 type(euclidu_type) ,
intent(in) :: method
1890 PURE module subroutine setDE_MEU_D2_D2_D2_RK5(distance, point, ref, method)
1891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1892 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D2_D2_RK5
1895 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1896 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1897 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1898 type(euclidu_type) ,
intent(in) :: method
1903 PURE module subroutine setDE_MEU_D2_D2_D2_RK4(distance, point, ref, method)
1904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1905 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D2_D2_RK4
1908 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1909 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1910 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1911 type(euclidu_type) ,
intent(in) :: method
1916 PURE module subroutine setDE_MEU_D2_D2_D2_RK3(distance, point, ref, method)
1917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1918 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D2_D2_RK3
1921 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1922 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1923 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1924 type(euclidu_type) ,
intent(in) :: method
1929 PURE module subroutine setDE_MEU_D2_D2_D2_RK2(distance, point, ref, method)
1930#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1931 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D2_D2_RK2
1934 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1935 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1936 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1937 type(euclidu_type) ,
intent(in) :: method
1942 PURE module subroutine setDE_MEU_D2_D2_D2_RK1(distance, point, ref, method)
1943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1944 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D2_D2_RK1
1947 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
1948 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1949 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1950 type(euclidu_type) ,
intent(in) :: method
1961 PURE module subroutine setDE_MEU_D2_D1_D1_RK5(distance, point, ref, method)
1962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1963 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D1_D1_RK5
1966 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1967 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1968 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1969 type(euclidu_type) ,
intent(in) :: method
1974 PURE module subroutine setDE_MEU_D2_D1_D1_RK4(distance, point, ref, method)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D1_D1_RK4
1979 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1980 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1981 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1982 type(euclidu_type) ,
intent(in) :: method
1987 PURE module subroutine setDE_MEU_D2_D1_D1_RK3(distance, point, ref, method)
1988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1989 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D1_D1_RK3
1992 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
1993 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1994 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
1995 type(euclidu_type) ,
intent(in) :: method
2000 PURE module subroutine setDE_MEU_D2_D1_D1_RK2(distance, point, ref, method)
2001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2002 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D1_D1_RK2
2005 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2006 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2007 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2008 type(euclidu_type) ,
intent(in) :: method
2013 PURE module subroutine setDE_MEU_D2_D1_D1_RK1(distance, point, ref, method)
2014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2015 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEU_D2_D1_D1_RK1
2018 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2019 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2020 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2021 type(euclidu_type) ,
intent(in) :: method
2044 PURE module subroutine setDE_MEV_D0_D1_XX_RK5(distance, point, method)
2045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2046 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_XX_RK5
2049 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2050 real(RKG) ,
intent(out) :: distance
2051 type(euclidv_type) ,
intent(in) :: method
2056 PURE module subroutine setDE_MEV_D0_D1_XX_RK4(distance, point, method)
2057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2058 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_XX_RK4
2061 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2062 real(RKG) ,
intent(out) :: distance
2063 type(euclidv_type) ,
intent(in) :: method
2068 PURE module subroutine setDE_MEV_D0_D1_XX_RK3(distance, point, method)
2069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2070 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_XX_RK3
2073 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2074 real(RKG) ,
intent(out) :: distance
2075 type(euclidv_type) ,
intent(in) :: method
2080 PURE module subroutine setDE_MEV_D0_D1_XX_RK2(distance, point, method)
2081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2082 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_XX_RK2
2085 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2086 real(RKG) ,
intent(out) :: distance
2087 type(euclidv_type) ,
intent(in) :: method
2092 PURE module subroutine setDE_MEV_D0_D1_XX_RK1(distance, point, method)
2093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2094 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_XX_RK1
2097 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2098 real(RKG) ,
intent(out) :: distance
2099 type(euclidv_type) ,
intent(in) :: method
2106 PURE module subroutine setDE_MEV_D1_D2_XX_RK5(distance, point, method)
2107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2108 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_XX_RK5
2111 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2112 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2113 type(euclidv_type) ,
intent(in) :: method
2118 PURE module subroutine setDE_MEV_D1_D2_XX_RK4(distance, point, method)
2119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2120 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_XX_RK4
2123 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2124 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2125 type(euclidv_type) ,
intent(in) :: method
2130 PURE module subroutine setDE_MEV_D1_D2_XX_RK3(distance, point, method)
2131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2132 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_XX_RK3
2135 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2136 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2137 type(euclidv_type) ,
intent(in) :: method
2142 PURE module subroutine setDE_MEV_D1_D2_XX_RK2(distance, point, method)
2143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2144 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_XX_RK2
2147 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2148 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2149 type(euclidv_type) ,
intent(in) :: method
2154 PURE module subroutine setDE_MEV_D1_D2_XX_RK1(distance, point, method)
2155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2156 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_XX_RK1
2159 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2160 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2161 type(euclidv_type) ,
intent(in) :: method
2174 PURE module subroutine setDE_MEV_D0_D1_D1_RK5(distance, point, ref, method)
2175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2176 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_D1_RK5
2179 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2180 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2181 real(RKG) ,
intent(out) :: distance
2182 type(euclidv_type) ,
intent(in) :: method
2187 PURE module subroutine setDE_MEV_D0_D1_D1_RK4(distance, point, ref, method)
2188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2189 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_D1_RK4
2192 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2193 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2194 real(RKG) ,
intent(out) :: distance
2195 type(euclidv_type) ,
intent(in) :: method
2200 PURE module subroutine setDE_MEV_D0_D1_D1_RK3(distance, point, ref, method)
2201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2202 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_D1_RK3
2205 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2206 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2207 real(RKG) ,
intent(out) :: distance
2208 type(euclidv_type) ,
intent(in) :: method
2213 PURE module subroutine setDE_MEV_D0_D1_D1_RK2(distance, point, ref, method)
2214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2215 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_D1_RK2
2218 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2219 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2220 real(RKG) ,
intent(out) :: distance
2221 type(euclidv_type) ,
intent(in) :: method
2226 PURE module subroutine setDE_MEV_D0_D1_D1_RK1(distance, point, ref, method)
2227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2228 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D0_D1_D1_RK1
2231 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2232 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2233 real(RKG) ,
intent(out) :: distance
2234 type(euclidv_type) ,
intent(in) :: method
2241 PURE module subroutine setDE_MEV_D1_D1_D2_RK5(distance, point, ref, method)
2242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2243 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D1_D2_RK5
2246 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2247 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2248 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2249 type(euclidv_type) ,
intent(in) :: method
2254 PURE module subroutine setDE_MEV_D1_D1_D2_RK4(distance, point, ref, method)
2255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2256 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D1_D2_RK4
2259 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2260 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2261 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2262 type(euclidv_type) ,
intent(in) :: method
2267 PURE module subroutine setDE_MEV_D1_D1_D2_RK3(distance, point, ref, method)
2268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2269 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D1_D2_RK3
2272 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2273 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2274 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2275 type(euclidv_type) ,
intent(in) :: method
2280 PURE module subroutine setDE_MEV_D1_D1_D2_RK2(distance, point, ref, method)
2281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2282 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D1_D2_RK2
2285 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2286 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2287 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2288 type(euclidv_type) ,
intent(in) :: method
2293 PURE module subroutine setDE_MEV_D1_D1_D2_RK1(distance, point, ref, method)
2294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2295 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D1_D2_RK1
2298 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2299 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2300 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2301 type(euclidv_type) ,
intent(in) :: method
2308 PURE module subroutine setDE_MEV_D1_D2_D1_RK5(distance, point, ref, method)
2309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2310 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_D1_RK5
2313 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2314 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2315 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2316 type(euclidv_type) ,
intent(in) :: method
2321 PURE module subroutine setDE_MEV_D1_D2_D1_RK4(distance, point, ref, method)
2322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2323 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_D1_RK4
2326 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2327 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2328 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2329 type(euclidv_type) ,
intent(in) :: method
2334 PURE module subroutine setDE_MEV_D1_D2_D1_RK3(distance, point, ref, method)
2335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2336 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_D1_RK3
2339 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2340 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2341 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2342 type(euclidv_type) ,
intent(in) :: method
2347 PURE module subroutine setDE_MEV_D1_D2_D1_RK2(distance, point, ref, method)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_D1_RK2
2352 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2353 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2354 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2355 type(euclidv_type) ,
intent(in) :: method
2360 PURE module subroutine setDE_MEV_D1_D2_D1_RK1(distance, point, ref, method)
2361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2362 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D1_D2_D1_RK1
2365 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2366 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2367 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2368 type(euclidv_type) ,
intent(in) :: method
2375 PURE module subroutine setDE_MEV_D2_D2_D2_RK5(distance, point, ref, method)
2376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2377 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D2_D2_RK5
2380 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2381 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2382 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2383 type(euclidv_type) ,
intent(in) :: method
2388 PURE module subroutine setDE_MEV_D2_D2_D2_RK4(distance, point, ref, method)
2389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2390 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D2_D2_RK4
2393 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2394 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2395 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2396 type(euclidv_type) ,
intent(in) :: method
2401 PURE module subroutine setDE_MEV_D2_D2_D2_RK3(distance, point, ref, method)
2402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2403 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D2_D2_RK3
2406 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2407 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2408 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2409 type(euclidv_type) ,
intent(in) :: method
2414 PURE module subroutine setDE_MEV_D2_D2_D2_RK2(distance, point, ref, method)
2415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2416 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D2_D2_RK2
2419 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2420 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2421 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2422 type(euclidv_type) ,
intent(in) :: method
2427 PURE module subroutine setDE_MEV_D2_D2_D2_RK1(distance, point, ref, method)
2428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2429 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D2_D2_RK1
2432 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2433 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2434 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2435 type(euclidv_type) ,
intent(in) :: method
2446 PURE module subroutine setDE_MEV_D2_D1_D1_RK5(distance, point, ref, method)
2447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2448 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D1_D1_RK5
2451 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2452 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2453 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2454 type(euclidv_type) ,
intent(in) :: method
2459 PURE module subroutine setDE_MEV_D2_D1_D1_RK4(distance, point, ref, method)
2460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2461 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D1_D1_RK4
2464 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2465 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2466 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2467 type(euclidv_type) ,
intent(in) :: method
2472 PURE module subroutine setDE_MEV_D2_D1_D1_RK3(distance, point, ref, method)
2473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2474 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D1_D1_RK3
2477 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2478 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2479 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2480 type(euclidv_type) ,
intent(in) :: method
2485 PURE module subroutine setDE_MEV_D2_D1_D1_RK2(distance, point, ref, method)
2486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2487 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D1_D1_RK2
2490 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2491 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2492 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2493 type(euclidv_type) ,
intent(in) :: method
2498 PURE module subroutine setDE_MEV_D2_D1_D1_RK1(distance, point, ref, method)
2499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2500 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEV_D2_D1_D1_RK1
2503 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2504 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2505 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2506 type(euclidv_type) ,
intent(in) :: method
2529 PURE module subroutine setDE_MEQ_D0_D1_XX_RK5(distance, point, method)
2530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2531 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_XX_RK5
2534 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2535 real(RKG) ,
intent(out) :: distance
2536 type(euclidsq_type) ,
intent(in) :: method
2541 PURE module subroutine setDE_MEQ_D0_D1_XX_RK4(distance, point, method)
2542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2543 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_XX_RK4
2546 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2547 real(RKG) ,
intent(out) :: distance
2548 type(euclidsq_type) ,
intent(in) :: method
2553 PURE module subroutine setDE_MEQ_D0_D1_XX_RK3(distance, point, method)
2554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2555 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_XX_RK3
2558 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2559 real(RKG) ,
intent(out) :: distance
2560 type(euclidsq_type) ,
intent(in) :: method
2565 PURE module subroutine setDE_MEQ_D0_D1_XX_RK2(distance, point, method)
2566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2567 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_XX_RK2
2570 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2571 real(RKG) ,
intent(out) :: distance
2572 type(euclidsq_type) ,
intent(in) :: method
2577 PURE module subroutine setDE_MEQ_D0_D1_XX_RK1(distance, point, method)
2578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2579 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_XX_RK1
2582 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2583 real(RKG) ,
intent(out) :: distance
2584 type(euclidsq_type) ,
intent(in) :: method
2591 PURE module subroutine setDE_MEQ_D1_D2_XX_RK5(distance, point, method)
2592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2593 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_XX_RK5
2596 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2597 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2598 type(euclidsq_type) ,
intent(in) :: method
2603 PURE module subroutine setDE_MEQ_D1_D2_XX_RK4(distance, point, method)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_XX_RK4
2608 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2609 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2610 type(euclidsq_type) ,
intent(in) :: method
2615 PURE module subroutine setDE_MEQ_D1_D2_XX_RK3(distance, point, method)
2616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2617 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_XX_RK3
2620 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2621 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2622 type(euclidsq_type) ,
intent(in) :: method
2627 PURE module subroutine setDE_MEQ_D1_D2_XX_RK2(distance, point, method)
2628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2629 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_XX_RK2
2632 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2633 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2634 type(euclidsq_type) ,
intent(in) :: method
2639 PURE module subroutine setDE_MEQ_D1_D2_XX_RK1(distance, point, method)
2640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2641 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_XX_RK1
2644 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2645 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2646 type(euclidsq_type) ,
intent(in) :: method
2659 PURE module subroutine setDE_MEQ_D0_D1_D1_RK5(distance, point, ref, method)
2660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2661 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_D1_RK5
2664 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2665 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2666 real(RKG) ,
intent(out) :: distance
2667 type(euclidsq_type) ,
intent(in) :: method
2672 PURE module subroutine setDE_MEQ_D0_D1_D1_RK4(distance, point, ref, method)
2673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2674 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_D1_RK4
2677 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2678 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2679 real(RKG) ,
intent(out) :: distance
2680 type(euclidsq_type) ,
intent(in) :: method
2685 PURE module subroutine setDE_MEQ_D0_D1_D1_RK3(distance, point, ref, method)
2686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2687 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_D1_RK3
2690 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2691 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2692 real(RKG) ,
intent(out) :: distance
2693 type(euclidsq_type) ,
intent(in) :: method
2698 PURE module subroutine setDE_MEQ_D0_D1_D1_RK2(distance, point, ref, method)
2699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2700 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_D1_RK2
2703 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2704 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2705 real(RKG) ,
intent(out) :: distance
2706 type(euclidsq_type) ,
intent(in) :: method
2711 PURE module subroutine setDE_MEQ_D0_D1_D1_RK1(distance, point, ref, method)
2712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2713 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D0_D1_D1_RK1
2716 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2717 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2718 real(RKG) ,
intent(out) :: distance
2719 type(euclidsq_type) ,
intent(in) :: method
2726 PURE module subroutine setDE_MEQ_D1_D1_D2_RK5(distance, point, ref, method)
2727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2728 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D1_D2_RK5
2731 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2732 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2733 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2734 type(euclidsq_type) ,
intent(in) :: method
2739 PURE module subroutine setDE_MEQ_D1_D1_D2_RK4(distance, point, ref, method)
2740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2741 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D1_D2_RK4
2744 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2745 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2746 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2747 type(euclidsq_type) ,
intent(in) :: method
2752 PURE module subroutine setDE_MEQ_D1_D1_D2_RK3(distance, point, ref, method)
2753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2754 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D1_D2_RK3
2757 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2758 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2759 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2760 type(euclidsq_type) ,
intent(in) :: method
2765 PURE module subroutine setDE_MEQ_D1_D1_D2_RK2(distance, point, ref, method)
2766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2767 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D1_D2_RK2
2770 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2771 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2772 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2773 type(euclidsq_type) ,
intent(in) :: method
2778 PURE module subroutine setDE_MEQ_D1_D1_D2_RK1(distance, point, ref, method)
2779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2780 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D1_D2_RK1
2783 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2784 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2785 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2786 type(euclidsq_type) ,
intent(in) :: method
2793 PURE module subroutine setDE_MEQ_D1_D2_D1_RK5(distance, point, ref, method)
2794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2795 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_D1_RK5
2798 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2799 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2800 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2801 type(euclidsq_type) ,
intent(in) :: method
2806 PURE module subroutine setDE_MEQ_D1_D2_D1_RK4(distance, point, ref, method)
2807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2808 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_D1_RK4
2811 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2812 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2813 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2814 type(euclidsq_type) ,
intent(in) :: method
2819 PURE module subroutine setDE_MEQ_D1_D2_D1_RK3(distance, point, ref, method)
2820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2821 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_D1_RK3
2824 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2825 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2826 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2827 type(euclidsq_type) ,
intent(in) :: method
2832 PURE module subroutine setDE_MEQ_D1_D2_D1_RK2(distance, point, ref, method)
2833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2834 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_D1_RK2
2837 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2838 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2839 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2840 type(euclidsq_type) ,
intent(in) :: method
2845 PURE module subroutine setDE_MEQ_D1_D2_D1_RK1(distance, point, ref, method)
2846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2847 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D1_D2_D1_RK1
2850 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2851 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2852 real(RKG) ,
intent(out) ,
contiguous :: distance(:)
2853 type(euclidsq_type) ,
intent(in) :: method
2860 PURE module subroutine setDE_MEQ_D2_D2_D2_RK5(distance, point, ref, method)
2861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2862 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D2_D2_RK5
2865 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2866 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2867 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2868 type(euclidsq_type) ,
intent(in) :: method
2873 PURE module subroutine setDE_MEQ_D2_D2_D2_RK4(distance, point, ref, method)
2874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2875 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D2_D2_RK4
2878 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2879 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2880 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2881 type(euclidsq_type) ,
intent(in) :: method
2886 PURE module subroutine setDE_MEQ_D2_D2_D2_RK3(distance, point, ref, method)
2887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2888 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D2_D2_RK3
2891 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2892 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2893 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2894 type(euclidsq_type) ,
intent(in) :: method
2899 PURE module subroutine setDE_MEQ_D2_D2_D2_RK2(distance, point, ref, method)
2900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2901 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D2_D2_RK2
2904 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2905 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2906 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2907 type(euclidsq_type) ,
intent(in) :: method
2912 PURE module subroutine setDE_MEQ_D2_D2_D2_RK1(distance, point, ref, method)
2913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2914 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D2_D2_RK1
2917 real(RKG) ,
intent(in) ,
contiguous :: ref(:,:)
2918 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
2919 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2920 type(euclidsq_type) ,
intent(in) :: method
2931 PURE module subroutine setDE_MEQ_D2_D1_D1_RK5(distance, point, ref, method)
2932#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2933 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D1_D1_RK5
2936 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2937 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2938 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2939 type(euclidsq_type) ,
intent(in) :: method
2944 PURE module subroutine setDE_MEQ_D2_D1_D1_RK4(distance, point, ref, method)
2945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2946 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D1_D1_RK4
2949 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2950 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2951 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2952 type(euclidsq_type) ,
intent(in) :: method
2957 PURE module subroutine setDE_MEQ_D2_D1_D1_RK3(distance, point, ref, method)
2958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2959 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D1_D1_RK3
2962 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2963 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2964 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2965 type(euclidsq_type) ,
intent(in) :: method
2970 PURE module subroutine setDE_MEQ_D2_D1_D1_RK2(distance, point, ref, method)
2971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2972 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D1_D1_RK2
2975 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2976 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2977 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2978 type(euclidsq_type) ,
intent(in) :: method
2983 PURE module subroutine setDE_MEQ_D2_D1_D1_RK1(distance, point, ref, method)
2984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2985 !DEC$ ATTRIBUTES DLLEXPORT :: setDE_MEQ_D2_D1_D1_RK1
2988 real(RKG) ,
intent(in) ,
contiguous :: ref(:)
2989 real(RKG) ,
intent(in) ,
contiguous :: point(:)
2990 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
2991 type(euclidsq_type) ,
intent(in) :: method
3119 PURE module function getDME_RDP_FUL_RK5(point, method)
result(distance)
3120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3121 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_FUL_RK5
3124 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3125 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3126 class(
*) ,
intent(in) ,
optional :: method
3131 PURE module function getDME_RDP_FUL_RK4(point, method)
result(distance)
3132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3133 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_FUL_RK4
3136 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3137 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3138 class(
*) ,
intent(in) ,
optional :: method
3143 PURE module function getDME_RDP_FUL_RK3(point, method)
result(distance)
3144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3145 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_FUL_RK3
3148 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3149 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3150 class(
*) ,
intent(in) ,
optional :: method
3155 PURE module function getDME_RDP_FUL_RK2(point, method)
result(distance)
3156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3157 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_FUL_RK2
3160 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3161 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3162 class(
*) ,
intent(in) ,
optional :: method
3167 PURE module function getDME_RDP_FUL_RK1(point, method)
result(distance)
3168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3169 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_FUL_RK1
3172 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3173 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3174 class(
*) ,
intent(in) ,
optional :: method
3181 PURE module function getDME_RDP_ULD_RK5(pack, subset, point, method)
result(distance)
3182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3183 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULD_RK5
3186 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3187 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3188 class(
*) ,
intent(in) ,
optional :: method
3189 type(uppLowDia_type),
intent(in) :: subset
3190 type(rdpack_type) ,
intent(in) :: pack
3195 PURE module function getDME_RDP_ULD_RK4(pack, subset, point, method)
result(distance)
3196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3197 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULD_RK4
3200 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3201 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3202 class(
*) ,
intent(in) ,
optional :: method
3203 type(uppLowDia_type),
intent(in) :: subset
3204 type(rdpack_type) ,
intent(in) :: pack
3209 PURE module function getDME_RDP_ULD_RK3(pack, subset, point, method)
result(distance)
3210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3211 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULD_RK3
3214 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3215 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3216 class(
*) ,
intent(in) ,
optional :: method
3217 type(uppLowDia_type),
intent(in) :: subset
3218 type(rdpack_type) ,
intent(in) :: pack
3223 PURE module function getDME_RDP_ULD_RK2(pack, subset, point, method)
result(distance)
3224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3225 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULD_RK2
3228 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3229 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3230 class(
*) ,
intent(in) ,
optional :: method
3231 type(uppLowDia_type),
intent(in) :: subset
3232 type(rdpack_type) ,
intent(in) :: pack
3237 PURE module function getDME_RDP_ULD_RK1(pack, subset, point, method)
result(distance)
3238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3239 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULD_RK1
3242 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3243 real(RKG) :: distance(
size(point,
2, IK),
size(point,
2, IK))
3244 class(
*) ,
intent(in) ,
optional :: method
3245 type(uppLowDia_type),
intent(in) :: subset
3246 type(rdpack_type) ,
intent(in) :: pack
3253 PURE module function getDME_RDP_ULX_RK5(pack, subset, point, method)
result(distance)
3254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3255 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULX_RK5
3258 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3259 real(RKG) :: distance(
size(point,
2, IK)
- 1,
size(point,
2, IK))
3260 class(
*) ,
intent(in) ,
optional :: method
3261 type(uppLow_type) ,
intent(in) :: subset
3262 type(rdpack_type) ,
intent(in) :: pack
3267 PURE module function getDME_RDP_ULX_RK4(pack, subset, point, method)
result(distance)
3268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3269 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULX_RK4
3272 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3273 real(RKG) :: distance(
size(point,
2, IK)
- 1,
size(point,
2, IK))
3274 class(
*) ,
intent(in) ,
optional :: method
3275 type(uppLow_type) ,
intent(in) :: subset
3276 type(rdpack_type) ,
intent(in) :: pack
3281 PURE module function getDME_RDP_ULX_RK3(pack, subset, point, method)
result(distance)
3282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3283 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULX_RK3
3286 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3287 real(RKG) :: distance(
size(point,
2, IK)
- 1,
size(point,
2, IK))
3288 class(
*) ,
intent(in) ,
optional :: method
3289 type(uppLow_type) ,
intent(in) :: subset
3290 type(rdpack_type) ,
intent(in) :: pack
3295 PURE module function getDME_RDP_ULX_RK2(pack, subset, point, method)
result(distance)
3296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3297 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULX_RK2
3300 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3301 real(RKG) :: distance(
size(point,
2, IK)
- 1,
size(point,
2, IK))
3302 class(
*) ,
intent(in) ,
optional :: method
3303 type(uppLow_type) ,
intent(in) :: subset
3304 type(rdpack_type) ,
intent(in) :: pack
3309 PURE module function getDME_RDP_ULX_RK1(pack, subset, point, method)
result(distance)
3310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3311 !DEC$ ATTRIBUTES DLLEXPORT :: getDME_RDP_ULX_RK1
3314 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3315 real(RKG) :: distance(
size(point,
2, IK)
- 1,
size(point,
2, IK))
3316 class(
*) ,
intent(in) ,
optional :: method
3317 type(uppLow_type) ,
intent(in) :: subset
3318 type(rdpack_type) ,
intent(in) :: pack
3458 PURE module subroutine setDME_MED_RDP_ULD_RK5(distance, pack, subset, point, method)
3459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3460 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULD_RK5
3463 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3464 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3465 type(euclid_type) ,
intent(in) :: method
3466 type(uppLowDia_type),
intent(in) :: subset
3467 type(rdpack_type) ,
intent(in) :: pack
3472 PURE module subroutine setDME_MED_RDP_ULD_RK4(distance, pack, subset, point, method)
3473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3474 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULD_RK4
3477 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3478 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3479 type(euclid_type) ,
intent(in) :: method
3480 type(uppLowDia_type),
intent(in) :: subset
3481 type(rdpack_type) ,
intent(in) :: pack
3486 PURE module subroutine setDME_MED_RDP_ULD_RK3(distance, pack, subset, point, method)
3487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3488 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULD_RK3
3491 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3492 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3493 type(euclid_type) ,
intent(in) :: method
3494 type(uppLowDia_type),
intent(in) :: subset
3495 type(rdpack_type) ,
intent(in) :: pack
3500 PURE module subroutine setDME_MED_RDP_ULD_RK2(distance, pack, subset, point, method)
3501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3502 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULD_RK2
3505 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3506 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3507 type(euclid_type) ,
intent(in) :: method
3508 type(uppLowDia_type),
intent(in) :: subset
3509 type(rdpack_type) ,
intent(in) :: pack
3514 PURE module subroutine setDME_MED_RDP_ULD_RK1(distance, pack, subset, point, method)
3515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3516 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULD_RK1
3519 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3520 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3521 type(euclid_type) ,
intent(in) :: method
3522 type(uppLowDia_type),
intent(in) :: subset
3523 type(rdpack_type) ,
intent(in) :: pack
3530 PURE module subroutine setDME_MED_RDP_ULX_RK5(distance, pack, subset, point, method)
3531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3532 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULX_RK5
3535 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3536 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3537 type(euclid_type) ,
intent(in) :: method
3538 type(uppLow_type) ,
intent(in) :: subset
3539 type(rdpack_type) ,
intent(in) :: pack
3544 PURE module subroutine setDME_MED_RDP_ULX_RK4(distance, pack, subset, point, method)
3545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3546 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULX_RK4
3549 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3550 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3551 type(euclid_type) ,
intent(in) :: method
3552 type(uppLow_type) ,
intent(in) :: subset
3553 type(rdpack_type) ,
intent(in) :: pack
3558 PURE module subroutine setDME_MED_RDP_ULX_RK3(distance, pack, subset, point, method)
3559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3560 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULX_RK3
3563 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3564 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3565 type(euclid_type) ,
intent(in) :: method
3566 type(uppLow_type) ,
intent(in) :: subset
3567 type(rdpack_type) ,
intent(in) :: pack
3572 PURE module subroutine setDME_MED_RDP_ULX_RK2(distance, pack, subset, point, method)
3573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3574 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULX_RK2
3577 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3578 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3579 type(euclid_type) ,
intent(in) :: method
3580 type(uppLow_type) ,
intent(in) :: subset
3581 type(rdpack_type) ,
intent(in) :: pack
3586 PURE module subroutine setDME_MED_RDP_ULX_RK1(distance, pack, subset, point, method)
3587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3588 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MED_RDP_ULX_RK1
3591 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3592 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3593 type(euclid_type) ,
intent(in) :: method
3594 type(uppLow_type) ,
intent(in) :: subset
3595 type(rdpack_type) ,
intent(in) :: pack
3618 PURE module subroutine setDME_MEU_RDP_ULD_RK5(distance, pack, subset, point, method)
3619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3620 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULD_RK5
3623 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3624 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3625 type(euclidu_type) ,
intent(in) :: method
3626 type(uppLowDia_type),
intent(in) :: subset
3627 type(rdpack_type) ,
intent(in) :: pack
3632 PURE module subroutine setDME_MEU_RDP_ULD_RK4(distance, pack, subset, point, method)
3633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3634 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULD_RK4
3637 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3638 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3639 type(euclidu_type) ,
intent(in) :: method
3640 type(uppLowDia_type),
intent(in) :: subset
3641 type(rdpack_type) ,
intent(in) :: pack
3646 PURE module subroutine setDME_MEU_RDP_ULD_RK3(distance, pack, subset, point, method)
3647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3648 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULD_RK3
3651 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3652 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3653 type(euclidu_type) ,
intent(in) :: method
3654 type(uppLowDia_type),
intent(in) :: subset
3655 type(rdpack_type) ,
intent(in) :: pack
3660 PURE module subroutine setDME_MEU_RDP_ULD_RK2(distance, pack, subset, point, method)
3661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3662 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULD_RK2
3665 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3666 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3667 type(euclidu_type) ,
intent(in) :: method
3668 type(uppLowDia_type),
intent(in) :: subset
3669 type(rdpack_type) ,
intent(in) :: pack
3674 PURE module subroutine setDME_MEU_RDP_ULD_RK1(distance, pack, subset, point, method)
3675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3676 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULD_RK1
3679 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3680 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3681 type(euclidu_type) ,
intent(in) :: method
3682 type(uppLowDia_type),
intent(in) :: subset
3683 type(rdpack_type) ,
intent(in) :: pack
3690 PURE module subroutine setDME_MEU_RDP_ULX_RK5(distance, pack, subset, point, method)
3691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3692 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULX_RK5
3695 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3696 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3697 type(euclidu_type) ,
intent(in) :: method
3698 type(uppLow_type) ,
intent(in) :: subset
3699 type(rdpack_type) ,
intent(in) :: pack
3704 PURE module subroutine setDME_MEU_RDP_ULX_RK4(distance, pack, subset, point, method)
3705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3706 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULX_RK4
3709 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3710 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3711 type(euclidu_type) ,
intent(in) :: method
3712 type(uppLow_type) ,
intent(in) :: subset
3713 type(rdpack_type) ,
intent(in) :: pack
3718 PURE module subroutine setDME_MEU_RDP_ULX_RK3(distance, pack, subset, point, method)
3719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3720 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULX_RK3
3723 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3724 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3725 type(euclidu_type) ,
intent(in) :: method
3726 type(uppLow_type) ,
intent(in) :: subset
3727 type(rdpack_type) ,
intent(in) :: pack
3732 PURE module subroutine setDME_MEU_RDP_ULX_RK2(distance, pack, subset, point, method)
3733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3734 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULX_RK2
3737 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3738 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3739 type(euclidu_type) ,
intent(in) :: method
3740 type(uppLow_type) ,
intent(in) :: subset
3741 type(rdpack_type) ,
intent(in) :: pack
3746 PURE module subroutine setDME_MEU_RDP_ULX_RK1(distance, pack, subset, point, method)
3747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3748 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEU_RDP_ULX_RK1
3751 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3752 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3753 type(euclidu_type) ,
intent(in) :: method
3754 type(uppLow_type) ,
intent(in) :: subset
3755 type(rdpack_type) ,
intent(in) :: pack
3778 PURE module subroutine setDME_MEQ_RDP_ULD_RK5(distance, pack, subset, point, method)
3779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3780 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULD_RK5
3783 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3784 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3785 type(euclidsq_type) ,
intent(in) :: method
3786 type(uppLowDia_type),
intent(in) :: subset
3787 type(rdpack_type) ,
intent(in) :: pack
3792 PURE module subroutine setDME_MEQ_RDP_ULD_RK4(distance, pack, subset, point, method)
3793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3794 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULD_RK4
3797 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3798 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3799 type(euclidsq_type) ,
intent(in) :: method
3800 type(uppLowDia_type),
intent(in) :: subset
3801 type(rdpack_type) ,
intent(in) :: pack
3806 PURE module subroutine setDME_MEQ_RDP_ULD_RK3(distance, pack, subset, point, method)
3807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3808 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULD_RK3
3811 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3812 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3813 type(euclidsq_type) ,
intent(in) :: method
3814 type(uppLowDia_type),
intent(in) :: subset
3815 type(rdpack_type) ,
intent(in) :: pack
3820 PURE module subroutine setDME_MEQ_RDP_ULD_RK2(distance, pack, subset, point, method)
3821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3822 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULD_RK2
3825 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3826 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3827 type(euclidsq_type) ,
intent(in) :: method
3828 type(uppLowDia_type),
intent(in) :: subset
3829 type(rdpack_type) ,
intent(in) :: pack
3834 PURE module subroutine setDME_MEQ_RDP_ULD_RK1(distance, pack, subset, point, method)
3835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3836 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULD_RK1
3839 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3840 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3841 type(euclidsq_type) ,
intent(in) :: method
3842 type(uppLowDia_type),
intent(in) :: subset
3843 type(rdpack_type) ,
intent(in) :: pack
3850 PURE module subroutine setDME_MEQ_RDP_ULX_RK5(distance, pack, subset, point, method)
3851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3852 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULX_RK5
3855 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3856 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3857 type(euclidsq_type) ,
intent(in) :: method
3858 type(uppLow_type) ,
intent(in) :: subset
3859 type(rdpack_type) ,
intent(in) :: pack
3864 PURE module subroutine setDME_MEQ_RDP_ULX_RK4(distance, pack, subset, point, method)
3865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3866 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULX_RK4
3869 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3870 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3871 type(euclidsq_type) ,
intent(in) :: method
3872 type(uppLow_type) ,
intent(in) :: subset
3873 type(rdpack_type) ,
intent(in) :: pack
3878 PURE module subroutine setDME_MEQ_RDP_ULX_RK3(distance, pack, subset, point, method)
3879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3880 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULX_RK3
3883 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3884 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3885 type(euclidsq_type) ,
intent(in) :: method
3886 type(uppLow_type) ,
intent(in) :: subset
3887 type(rdpack_type) ,
intent(in) :: pack
3892 PURE module subroutine setDME_MEQ_RDP_ULX_RK2(distance, pack, subset, point, method)
3893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3894 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULX_RK2
3897 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3898 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3899 type(euclidsq_type) ,
intent(in) :: method
3900 type(uppLow_type) ,
intent(in) :: subset
3901 type(rdpack_type) ,
intent(in) :: pack
3906 PURE module subroutine setDME_MEQ_RDP_ULX_RK1(distance, pack, subset, point, method)
3907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3908 !DEC$ ATTRIBUTES DLLEXPORT :: setDME_MEQ_RDP_ULX_RK1
3911 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
3912 real(RKG) ,
intent(out) ,
contiguous :: distance(:,:)
3913 type(euclidsq_type) ,
intent(in) :: method
3914 type(uppLow_type) ,
intent(in) :: subset
3915 type(rdpack_type) ,
intent(in) :: pack
Generate and return the (squared) Euclidean distance of a (set of) point(s) in ndim-dimensions from a...
Return the full or a subset of the Euclidean (squared) distance matrix of the input set of npnt point...
Generate and return the (squared) Euclidean distance of a (set of) point(s) in ndim-dimensions from a...
Return the full or a subset of the Euclidean (squared) distance matrix of the input set of npnt point...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
character(*, SK), parameter MODULE_NAME
type(nothing_type), parameter nothing
This is a scalar parameter object of type nothing_type that is exclusively used to request no action ...
This module contains procedures and generic interfaces for computing the Euclidean norm of a single p...
type(euclidu_type), parameter euclidu
This is a scalar parameter object of type euclidu_typethat is exclusively used to request unsafe meth...
type(euclid_type), parameter euclid
This is a scalar parameter object of type euclid_type that is exclusively used to request safe method...
type(euclidv_type), parameter euclidv
This is a scalar parameter object of type euclidv_typethat is exclusively used to request computing E...
type(euclidsq_type), parameter euclidsq
This is a scalar parameter object of type euclidsq_typethat is exclusively used to request computing ...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
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(rdpack_type), parameter rdpack
This is an object instance of class rdpack_type that is exclusively used to signify Rectangular Spars...
type(lfpack_type), parameter lfpack
This is an object instance of class lfpack_type that is exclusively used to signify Linear Full conti...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(uppLowDia_type), parameter uppLowDia
This is a scalar parameter object of type uppLowDia_type that is exclusively used to request full dia...
type(uppLow_type), parameter uppLow
This is a scalar parameter object of type uppLow_type that is exclusively used to request upper-lower...
This is a concrete derived type whose instances are exclusively used to request no action on a given ...
This is a concrete derived type whose instances are exclusively used to request safe method of comput...
This is a concrete derived type whose instances are exclusively used to request computing Euclidean s...
This is a concrete derived type whose instances are exclusively used to request unsafe method of comp...
This is a concrete derived type whose instances are exclusively used to request computing Euclidean v...
This is a concrete derived type whose instances are exclusively used to signify Linear Full contiguou...
This is a concrete derived type whose instances are exclusively used to signify Rectangular Sparse (o...
This is a concrete derived type whose instances are exclusively used to request full diagonal and upp...
This is a concrete derived type whose instances are exclusively used to request upper-lower triangula...