174 PURE elemental module function getVolUnitBallIter_RK5(ndim)
result(volUnitBall)
175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
176 !DEC$ ATTRIBUTES DLLEXPORT :: getVolUnitBallIter_RK5
179 real(RKG) ,
intent(in) :: ndim
180 real(RKG) :: volUnitBall
185 PURE elemental module function getVolUnitBallIter_RK4(ndim)
result(volUnitBall)
186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
187 !DEC$ ATTRIBUTES DLLEXPORT :: getVolUnitBallIter_RK4
190 real(RKG) ,
intent(in) :: ndim
191 real(RKG) :: volUnitBall
196 PURE elemental module function getVolUnitBallIter_RK3(ndim)
result(volUnitBall)
197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
198 !DEC$ ATTRIBUTES DLLEXPORT :: getVolUnitBallIter_RK3
201 real(RKG) ,
intent(in) :: ndim
202 real(RKG) :: volUnitBall
207 PURE elemental module function getVolUnitBallIter_RK2(ndim)
result(volUnitBall)
208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
209 !DEC$ ATTRIBUTES DLLEXPORT :: getVolUnitBallIter_RK2
212 real(RKG) ,
intent(in) :: ndim
213 real(RKG) :: volUnitBall
218 PURE elemental module function getVolUnitBallIter_RK1(ndim)
result(volUnitBall)
219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
220 !DEC$ ATTRIBUTES DLLEXPORT :: getVolUnitBallIter_RK1
223 real(RKG) ,
intent(in) :: ndim
224 real(RKG) :: volUnitBall
296 PURE elemental module subroutine setVolUnitBallIter_RK5(volUnitBall, ndim)
297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
298 !DEC$ ATTRIBUTES DLLEXPORT :: setVolUnitBallIter_RK5
301 real(RKG) ,
intent(out) :: volUnitBall
302 integer(IK) ,
intent(in) :: ndim
307 PURE elemental module subroutine setVolUnitBallIter_RK4(volUnitBall, ndim)
308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
309 !DEC$ ATTRIBUTES DLLEXPORT :: setVolUnitBallIter_RK4
312 real(RKG) ,
intent(out) :: volUnitBall
313 integer(IK) ,
intent(in) :: ndim
318 PURE elemental module subroutine setVolUnitBallIter_RK3(volUnitBall, ndim)
319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
320 !DEC$ ATTRIBUTES DLLEXPORT :: setVolUnitBallIter_RK3
323 real(RKG) ,
intent(out) :: volUnitBall
324 integer(IK) ,
intent(in) :: ndim
329 PURE elemental module subroutine setVolUnitBallIter_RK2(volUnitBall, ndim)
330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
331 !DEC$ ATTRIBUTES DLLEXPORT :: setVolUnitBallIter_RK2
334 real(RKG) ,
intent(out) :: volUnitBall
335 integer(IK) ,
intent(in) :: ndim
340 PURE elemental module subroutine setVolUnitBallIter_RK1(volUnitBall, ndim)
341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
342 !DEC$ ATTRIBUTES DLLEXPORT :: setVolUnitBallIter_RK1
345 real(RKG) ,
intent(out) :: volUnitBall
346 integer(IK) ,
intent(in) :: ndim
415 PURE elemental module function getLogVolUnitBallGamm_RK5(ndim)
result(logVolUnitBall)
416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
417 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolUnitBallGamm_RK5
420 real(RKG) ,
intent(in) :: ndim
421 real(RKG) :: logVolUnitBall
426 PURE elemental module function getLogVolUnitBallGamm_RK4(ndim)
result(logVolUnitBall)
427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
428 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolUnitBallGamm_RK4
431 real(RKG) ,
intent(in) :: ndim
432 real(RKG) :: logVolUnitBall
437 PURE elemental module function getLogVolUnitBallGamm_RK3(ndim)
result(logVolUnitBall)
438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
439 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolUnitBallGamm_RK3
442 real(RKG) ,
intent(in) :: ndim
443 real(RKG) :: logVolUnitBall
448 PURE elemental module function getLogVolUnitBallGamm_RK2(ndim)
result(logVolUnitBall)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolUnitBallGamm_RK2
453 real(RKG) ,
intent(in) :: ndim
454 real(RKG) :: logVolUnitBall
459 PURE elemental module function getLogVolUnitBallGamm_RK1(ndim)
result(logVolUnitBall)
460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
461 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolUnitBallGamm_RK1
464 real(RKG) ,
intent(in) :: ndim
465 real(RKG) :: logVolUnitBall
563 PURE elemental module subroutine setLogVolUnitBallGamm_RK5(logVolUnitBall, ndim)
564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
565 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallGamm_RK5
568 real(RKG) ,
intent(out) :: logVolUnitBall
569 real(RKG) ,
intent(in) :: ndim
574 PURE elemental module subroutine setLogVolUnitBallGamm_RK4(logVolUnitBall, ndim)
575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
576 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallGamm_RK4
579 real(RKG) ,
intent(out) :: logVolUnitBall
580 real(RKG) ,
intent(in) :: ndim
585 PURE elemental module subroutine setLogVolUnitBallGamm_RK3(logVolUnitBall, ndim)
586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
587 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallGamm_RK3
590 real(RKG) ,
intent(out) :: logVolUnitBall
591 real(RKG) ,
intent(in) :: ndim
596 PURE elemental module subroutine setLogVolUnitBallGamm_RK2(logVolUnitBall, ndim)
597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
598 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallGamm_RK2
601 real(RKG) ,
intent(out) :: logVolUnitBall
602 real(RKG) ,
intent(in) :: ndim
607 PURE elemental module subroutine setLogVolUnitBallGamm_RK1(logVolUnitBall, ndim)
608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
609 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallGamm_RK1
612 real(RKG) ,
intent(out) :: logVolUnitBall
613 real(RKG) ,
intent(in) :: ndim
620 PURE elemental module subroutine setLogVolUnitBallIter_RK5(logVolUnitBall, ndim)
621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
622 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallIter_RK5
625 real(RKG) ,
intent(out) :: logVolUnitBall
626 integer(IK) ,
intent(in) :: ndim
631 PURE elemental module subroutine setLogVolUnitBallIter_RK4(logVolUnitBall, ndim)
632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
633 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallIter_RK4
636 real(RKG) ,
intent(out) :: logVolUnitBall
637 integer(IK) ,
intent(in) :: ndim
642 PURE elemental module subroutine setLogVolUnitBallIter_RK3(logVolUnitBall, ndim)
643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
644 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallIter_RK3
647 real(RKG) ,
intent(out) :: logVolUnitBall
648 integer(IK) ,
intent(in) :: ndim
653 PURE elemental module subroutine setLogVolUnitBallIter_RK2(logVolUnitBall, ndim)
654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
655 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallIter_RK2
658 real(RKG) ,
intent(out) :: logVolUnitBall
659 integer(IK) ,
intent(in) :: ndim
664 PURE elemental module subroutine setLogVolUnitBallIter_RK1(logVolUnitBall, ndim)
665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
666 !DEC$ ATTRIBUTES DLLEXPORT :: setLogVolUnitBallIter_RK1
669 real(RKG) ,
intent(out) :: logVolUnitBall
670 integer(IK) ,
intent(in) :: ndim
751 PURE module function getLogVolEll_RK5(gramian)
result(logVolEll)
752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolEll_RK5
756 real(RKG) ,
intent(in) ,
contiguous :: gramian(:,:)
757 real(RKG) :: logVolEll
762 PURE module function getLogVolEll_RK4(gramian)
result(logVolEll)
763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
764 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolEll_RK4
767 real(RKG) ,
intent(in) ,
contiguous :: gramian(:,:)
768 real(RKG) :: logVolEll
773 PURE module function getLogVolEll_RK3(gramian)
result(logVolEll)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolEll_RK3
778 real(RKG) ,
intent(in) ,
contiguous :: gramian(:,:)
779 real(RKG) :: logVolEll
784 PURE module function getLogVolEll_RK2(gramian)
result(logVolEll)
785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
786 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolEll_RK2
789 real(RKG) ,
intent(in) ,
contiguous :: gramian(:,:)
790 real(RKG) :: logVolEll
795 PURE module function getLogVolEll_RK1(gramian)
result(logVolEll)
796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
797 !DEC$ ATTRIBUTES DLLEXPORT :: getLogVolEll_RK1
800 real(RKG) ,
intent(in) ,
contiguous :: gramian(:,:)
801 real(RKG) :: logVolEll
898 PURE module function isMemberSphOrg_RK5(radius, point)
result(isMember)
899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
900 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphOrg_RK5
903 real(RKG) ,
intent(in) ,
contiguous :: point(:)
904 real(RKG) ,
intent(in) :: radius
905 logical(LK) :: isMember
910 PURE module function isMemberSphOrg_RK4(radius, point)
result(isMember)
911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
912 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphOrg_RK4
915 real(RKG) ,
intent(in) ,
contiguous :: point(:)
916 real(RKG) ,
intent(in) :: radius
917 logical(LK) :: isMember
922 PURE module function isMemberSphOrg_RK3(radius, point)
result(isMember)
923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
924 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphOrg_RK3
927 real(RKG) ,
intent(in) ,
contiguous :: point(:)
928 real(RKG) ,
intent(in) :: radius
929 logical(LK) :: isMember
934 PURE module function isMemberSphOrg_RK2(radius, point)
result(isMember)
935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
936 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphOrg_RK2
939 real(RKG) ,
intent(in) ,
contiguous :: point(:)
940 real(RKG) ,
intent(in) :: radius
941 logical(LK) :: isMember
946 PURE module function isMemberSphOrg_RK1(radius, point)
result(isMember)
947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
948 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphOrg_RK1
951 real(RKG) ,
intent(in) ,
contiguous :: point(:)
952 real(RKG) ,
intent(in) :: radius
953 logical(LK) :: isMember
960 PURE module function isMemberSphCen_RK5(radius, center, point)
result(isMember)
961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
962 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphCen_RK5
965 real(RKG) ,
intent(in) ,
contiguous :: point(:)
966 real(RKG) ,
intent(in) ,
contiguous :: center(:)
967 real(RKG) ,
intent(in) :: radius
968 logical(LK) :: isMember
973 PURE module function isMemberSphCen_RK4(radius, center, point)
result(isMember)
974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
975 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphCen_RK4
978 real(RKG) ,
intent(in) ,
contiguous :: point(:)
979 real(RKG) ,
intent(in) ,
contiguous :: center(:)
980 real(RKG) ,
intent(in) :: radius
981 logical(LK) :: isMember
986 PURE module function isMemberSphCen_RK3(radius, center, point)
result(isMember)
987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
988 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphCen_RK3
991 real(RKG) ,
intent(in) ,
contiguous :: point(:)
992 real(RKG) ,
intent(in) ,
contiguous :: center(:)
993 real(RKG) ,
intent(in) :: radius
994 logical(LK) :: isMember
999 PURE module function isMemberSphCen_RK2(radius, center, point)
result(isMember)
1000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1001 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphCen_RK2
1004 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1005 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1006 real(RKG) ,
intent(in) :: radius
1007 logical(LK) :: isMember
1012 PURE module function isMemberSphCen_RK1(radius, center, point)
result(isMember)
1013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1014 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberSphCen_RK1
1017 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1018 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1019 real(RKG) ,
intent(in) :: radius
1020 logical(LK) :: isMember
1033 PURE module function isMemberEllOrg_RK5(invGram, point)
result(isMember)
1034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1035 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllOrg_RK5
1038 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1039 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1040 logical(LK) :: isMember
1045 PURE module function isMemberEllOrg_RK4(invGram, point)
result(isMember)
1046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1047 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllOrg_RK4
1050 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1051 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1052 logical(LK) :: isMember
1057 PURE module function isMemberEllOrg_RK3(invGram, point)
result(isMember)
1058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1059 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllOrg_RK3
1062 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1063 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1064 logical(LK) :: isMember
1069 PURE module function isMemberEllOrg_RK2(invGram, point)
result(isMember)
1070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1071 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllOrg_RK2
1074 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1075 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1076 logical(LK) :: isMember
1081 PURE module function isMemberEllOrg_RK1(invGram, point)
result(isMember)
1082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1083 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllOrg_RK1
1086 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1087 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1088 logical(LK) :: isMember
1095 PURE module function isMemberEllCen_RK5(invGram, center, point)
result(isMember)
1096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1097 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllCen_RK5
1100 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1101 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1102 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1103 logical(LK) :: isMember
1108 PURE module function isMemberEllCen_RK4(invGram, center, point)
result(isMember)
1109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1110 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllCen_RK4
1113 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1114 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1115 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1116 logical(LK) :: isMember
1121 PURE module function isMemberEllCen_RK3(invGram, center, point)
result(isMember)
1122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1123 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllCen_RK3
1126 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1127 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1128 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1129 logical(LK) :: isMember
1134 PURE module function isMemberEllCen_RK2(invGram, center, point)
result(isMember)
1135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1136 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllCen_RK2
1139 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1140 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1141 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1142 logical(LK) :: isMember
1147 PURE module function isMemberEllCen_RK1(invGram, center, point)
result(isMember)
1148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1149 !DEC$ ATTRIBUTES DLLEXPORT :: isMemberEllCen_RK1
1152 real(RKG) ,
intent(in) ,
contiguous :: point(:)
1153 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1154 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1155 logical(LK) :: isMember
1245 PURE module function getCountMemberSphOrg_RK5(radius, point)
result(countMemberEll)
1246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1247 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphOrg_RK5
1250 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1251 real(RKG) ,
intent(in) :: radius
1252 integer(IK) :: countMemberEll
1257 PURE module function getCountMemberSphOrg_RK4(radius, point)
result(countMemberEll)
1258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1259 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphOrg_RK4
1262 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1263 real(RKG) ,
intent(in) :: radius
1264 integer(IK) :: countMemberEll
1269 PURE module function getCountMemberSphOrg_RK3(radius, point)
result(countMemberEll)
1270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1271 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphOrg_RK3
1274 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1275 real(RKG) ,
intent(in) :: radius
1276 integer(IK) :: countMemberEll
1281 PURE module function getCountMemberSphOrg_RK2(radius, point)
result(countMemberEll)
1282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1283 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphOrg_RK2
1286 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1287 real(RKG) ,
intent(in) :: radius
1288 integer(IK) :: countMemberEll
1293 PURE module function getCountMemberSphOrg_RK1(radius, point)
result(countMemberEll)
1294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1295 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphOrg_RK1
1298 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1299 real(RKG) ,
intent(in) :: radius
1300 integer(IK) :: countMemberEll
1307 PURE module function getCountMemberSphCen_RK5(radius, center, point)
result(countMemberEll)
1308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1309 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphCen_RK5
1312 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1313 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1314 real(RKG) ,
intent(in) :: radius
1315 integer(IK) :: countMemberEll
1320 PURE module function getCountMemberSphCen_RK4(radius, center, point)
result(countMemberEll)
1321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1322 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphCen_RK4
1325 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1326 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1327 real(RKG) ,
intent(in) :: radius
1328 integer(IK) :: countMemberEll
1333 PURE module function getCountMemberSphCen_RK3(radius, center, point)
result(countMemberEll)
1334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1335 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphCen_RK3
1338 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1339 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1340 real(RKG) ,
intent(in) :: radius
1341 integer(IK) :: countMemberEll
1346 PURE module function getCountMemberSphCen_RK2(radius, center, point)
result(countMemberEll)
1347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1348 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphCen_RK2
1351 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1352 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1353 real(RKG) ,
intent(in) :: radius
1354 integer(IK) :: countMemberEll
1359 PURE module function getCountMemberSphCen_RK1(radius, center, point)
result(countMemberEll)
1360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1361 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberSphCen_RK1
1364 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1365 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1366 real(RKG) ,
intent(in) :: radius
1367 integer(IK) :: countMemberEll
1380 PURE module function getCountMemberEllOrg_RK5(invGram, point)
result(countMemberEll)
1381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1382 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllOrg_RK5
1385 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1386 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1387 integer(IK) :: countMemberEll
1392 PURE module function getCountMemberEllOrg_RK4(invGram, point)
result(countMemberEll)
1393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1394 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllOrg_RK4
1397 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1398 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1399 integer(IK) :: countMemberEll
1404 PURE module function getCountMemberEllOrg_RK3(invGram, point)
result(countMemberEll)
1405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1406 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllOrg_RK3
1409 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1410 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1411 integer(IK) :: countMemberEll
1416 PURE module function getCountMemberEllOrg_RK2(invGram, point)
result(countMemberEll)
1417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1418 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllOrg_RK2
1421 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1422 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1423 integer(IK) :: countMemberEll
1428 PURE module function getCountMemberEllOrg_RK1(invGram, point)
result(countMemberEll)
1429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1430 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllOrg_RK1
1433 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1434 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1435 integer(IK) :: countMemberEll
1442 PURE module function getCountMemberEllCen_RK5(invGram, center, point)
result(countMemberEll)
1443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1444 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllCen_RK5
1447 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1448 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1449 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1450 integer(IK) :: countMemberEll
1455 PURE module function getCountMemberEllCen_RK4(invGram, center, point)
result(countMemberEll)
1456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1457 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllCen_RK4
1460 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1461 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1462 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1463 integer(IK) :: countMemberEll
1468 PURE module function getCountMemberEllCen_RK3(invGram, center, point)
result(countMemberEll)
1469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1470 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllCen_RK3
1473 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1474 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1475 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1476 integer(IK) :: countMemberEll
1481 PURE module function getCountMemberEllCen_RK2(invGram, center, point)
result(countMemberEll)
1482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1483 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllCen_RK2
1486 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1487 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1488 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1489 integer(IK) :: countMemberEll
1494 PURE module function getCountMemberEllCen_RK1(invGram, center, point)
result(countMemberEll)
1495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1496 !DEC$ ATTRIBUTES DLLEXPORT :: getCountMemberEllCen_RK1
1499 real(RKG) ,
intent(in) ,
contiguous :: point(:,:)
1500 real(RKG) ,
intent(in) ,
contiguous :: center(:)
1501 real(RKG) ,
intent(in) ,
contiguous :: invGram(:,:)
1502 integer(IK) :: countMemberEll
Generate and return the number of points that are members (i.e., inside) of the specified -dimensiona...
Generate and return the natural logarithm of the volume of an -dimensional ellipsoid.
Generate and return the natural logarithm of the volume of an -dimensional ball of unit-radius.
Generate and return the natural logarithm of the volume of an -dimensional ball of unit-radius.
Generate and return .true. if and only if the input point is a member (i.e., inside) of the specified...
Return the natural logarithm of the volume of an -dimensional ball of unit-radius.
Return the volume of an -dimensional ball of unit-radius.
This module contains classes and procedures for setting up and computing the properties of the hyper-...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...