207 PURE elemental module function getGeomLogPMF_RK5(stepSuccess, probSuccess)
result(logPMF)
208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
209 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomLogPMF_RK5
212 integer(IK) ,
intent(in) :: stepSuccess
213 real(RKG) ,
intent(in) :: probSuccess
219 PURE elemental module function getGeomLogPMF_RK4(stepSuccess, probSuccess)
result(logPMF)
220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
221 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomLogPMF_RK4
224 integer(IK) ,
intent(in) :: stepSuccess
225 real(RKG) ,
intent(in) :: probSuccess
231 PURE elemental module function getGeomLogPMF_RK3(stepSuccess, probSuccess)
result(logPMF)
232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
233 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomLogPMF_RK3
236 integer(IK) ,
intent(in) :: stepSuccess
237 real(RKG) ,
intent(in) :: probSuccess
243 PURE elemental module function getGeomLogPMF_RK2(stepSuccess, probSuccess)
result(logPMF)
244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
245 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomLogPMF_RK2
248 integer(IK) ,
intent(in) :: stepSuccess
249 real(RKG) ,
intent(in) :: probSuccess
255 PURE elemental module function getGeomLogPMF_RK1(stepSuccess, probSuccess)
result(logPMF)
256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
257 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomLogPMF_RK1
260 integer(IK) ,
intent(in) :: stepSuccess
261 real(RKG) ,
intent(in) :: probSuccess
341 PURE elemental module subroutine setGeomLogPMFDef_RK5(logPMF, stepSuccess, logProbSuccess)
342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
343 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFDef_RK5
346 real(RKG) ,
intent(in) :: logProbSuccess
347 real(RKG) ,
intent(out) :: logPMF
348 integer(IK) ,
intent(in) :: stepSuccess
353 PURE elemental module subroutine setGeomLogPMFDef_RK4(logPMF, stepSuccess, logProbSuccess)
354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
355 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFDef_RK4
358 real(RKG) ,
intent(in) :: logProbSuccess
359 real(RKG) ,
intent(out) :: logPMF
360 integer(IK) ,
intent(in) :: stepSuccess
365 PURE elemental module subroutine setGeomLogPMFDef_RK3(logPMF, stepSuccess, logProbSuccess)
366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
367 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFDef_RK3
370 real(RKG) ,
intent(in) :: logProbSuccess
371 real(RKG) ,
intent(out) :: logPMF
372 integer(IK) ,
intent(in) :: stepSuccess
377 PURE elemental module subroutine setGeomLogPMFDef_RK2(logPMF, stepSuccess, logProbSuccess)
378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
379 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFDef_RK2
382 real(RKG) ,
intent(in) :: logProbSuccess
383 real(RKG) ,
intent(out) :: logPMF
384 integer(IK) ,
intent(in) :: stepSuccess
389 PURE elemental module subroutine setGeomLogPMFDef_RK1(logPMF, stepSuccess, logProbSuccess)
390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
391 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFDef_RK1
394 real(RKG) ,
intent(in) :: logProbSuccess
395 real(RKG) ,
intent(out) :: logPMF
396 integer(IK) ,
intent(in) :: stepSuccess
403 PURE elemental module subroutine setGeomLogPMFLog_RK5(logPMF, stepSuccess, logProbSuccess, logProbFailure)
404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
405 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFLog_RK5
408 real(RKG) ,
intent(in) :: logProbSuccess, logProbFailure
409 real(RKG) ,
intent(out) :: logPMF
410 integer(IK) ,
intent(in) :: stepSuccess
415 PURE elemental module subroutine setGeomLogPMFLog_RK4(logPMF, stepSuccess, logProbSuccess, logProbFailure)
416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
417 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFLog_RK4
420 real(RKG) ,
intent(in) :: logProbSuccess, logProbFailure
421 real(RKG) ,
intent(out) :: logPMF
422 integer(IK) ,
intent(in) :: stepSuccess
427 PURE elemental module subroutine setGeomLogPMFLog_RK3(logPMF, stepSuccess, logProbSuccess, logProbFailure)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFLog_RK3
432 real(RKG) ,
intent(in) :: logProbSuccess, logProbFailure
433 real(RKG) ,
intent(out) :: logPMF
434 integer(IK) ,
intent(in) :: stepSuccess
439 PURE elemental module subroutine setGeomLogPMFLog_RK2(logPMF, stepSuccess, logProbSuccess, logProbFailure)
440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
441 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFLog_RK2
444 real(RKG) ,
intent(in) :: logProbSuccess, logProbFailure
445 real(RKG) ,
intent(out) :: logPMF
446 integer(IK) ,
intent(in) :: stepSuccess
451 PURE elemental module subroutine setGeomLogPMFLog_RK1(logPMF, stepSuccess, logProbSuccess, logProbFailure)
452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
453 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomLogPMFLog_RK1
456 real(RKG) ,
intent(in) :: logProbSuccess, logProbFailure
457 real(RKG) ,
intent(out) :: logPMF
458 integer(IK) ,
intent(in) :: stepSuccess
530 PURE elemental module function getGeomCDF_RK5(stepSuccess, probSuccess)
result(cdf)
531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
532 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCDF_RK5
535 integer(IK) ,
intent(in) :: stepSuccess
536 real(RKG) ,
intent(in) :: probSuccess
542 PURE elemental module function getGeomCDF_RK4(stepSuccess, probSuccess)
result(cdf)
543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
544 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCDF_RK4
547 integer(IK) ,
intent(in) :: stepSuccess
548 real(RKG) ,
intent(in) :: probSuccess
554 PURE elemental module function getGeomCDF_RK3(stepSuccess, probSuccess)
result(cdf)
555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
556 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCDF_RK3
559 integer(IK) ,
intent(in) :: stepSuccess
560 real(RKG) ,
intent(in) :: probSuccess
566 PURE elemental module function getGeomCDF_RK2(stepSuccess, probSuccess)
result(cdf)
567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
568 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCDF_RK2
571 integer(IK) ,
intent(in) :: stepSuccess
572 real(RKG) ,
intent(in) :: probSuccess
578 PURE elemental module function getGeomCDF_RK1(stepSuccess, probSuccess)
result(cdf)
579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
580 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomCDF_RK1
583 integer(IK) ,
intent(in) :: stepSuccess
584 real(RKG) ,
intent(in) :: probSuccess
654 PURE elemental module subroutine setGeomCDF_RK5(cdf, stepSuccess, probSuccess)
655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
656 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCDF_RK5
659 real(RKG) ,
intent(out) :: cdf
660 real(RKG) ,
intent(in) :: probSuccess
661 integer(IK) ,
intent(in) :: stepSuccess
666 PURE elemental module subroutine setGeomCDF_RK4(cdf, stepSuccess, probSuccess)
667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
668 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCDF_RK4
671 real(RKG) ,
intent(out) :: cdf
672 real(RKG) ,
intent(in) :: probSuccess
673 integer(IK) ,
intent(in) :: stepSuccess
678 PURE elemental module subroutine setGeomCDF_RK3(cdf, stepSuccess, probSuccess)
679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
680 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCDF_RK3
683 real(RKG) ,
intent(out) :: cdf
684 real(RKG) ,
intent(in) :: probSuccess
685 integer(IK) ,
intent(in) :: stepSuccess
690 PURE elemental module subroutine setGeomCDF_RK2(cdf, stepSuccess, probSuccess)
691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
692 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCDF_RK2
695 real(RKG) ,
intent(out) :: cdf
696 real(RKG) ,
intent(in) :: probSuccess
697 integer(IK) ,
intent(in) :: stepSuccess
702 PURE elemental module subroutine setGeomCDF_RK1(cdf, stepSuccess, probSuccess)
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomCDF_RK1
707 real(RKG) ,
intent(out) :: cdf
708 real(RKG) ,
intent(in) :: probSuccess
709 integer(IK) ,
intent(in) :: stepSuccess
777 impure elemental module function getGeomRand_RK5(probSuccess)
result(rand)
778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
779 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomRand_RK5
783 real(RKG) ,
intent(in) :: probSuccess
788 impure elemental module function getGeomRand_RK4(probSuccess)
result(rand)
789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
790 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomRand_RK4
794 real(RKG) ,
intent(in) :: probSuccess
799 impure elemental module function getGeomRand_RK3(probSuccess)
result(rand)
800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
801 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomRand_RK3
805 real(RKG) ,
intent(in) :: probSuccess
810 impure elemental module function getGeomRand_RK2(probSuccess)
result(rand)
811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
812 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomRand_RK2
816 real(RKG) ,
intent(in) :: probSuccess
821 impure elemental module function getGeomRand_RK1(probSuccess)
result(rand)
822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
823 !DEC$ ATTRIBUTES DLLEXPORT :: getGeomRand_RK1
827 real(RKG) ,
intent(in) :: probSuccess
913 impure elemental module subroutine setGeomRandRNGD_D0_RK5(rand, logProbFailure)
914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
915 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D0_RK5
918 integer(IK) ,
intent(out) :: rand
919 real(RKG) ,
intent(in) :: logProbFailure
924 impure elemental module subroutine setGeomRandRNGD_D0_RK4(rand, logProbFailure)
925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
926 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D0_RK4
929 integer(IK) ,
intent(out) :: rand
930 real(RKG) ,
intent(in) :: logProbFailure
935 impure elemental module subroutine setGeomRandRNGD_D0_RK3(rand, logProbFailure)
936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
937 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D0_RK3
940 integer(IK) ,
intent(out) :: rand
941 real(RKG) ,
intent(in) :: logProbFailure
946 impure elemental module subroutine setGeomRandRNGD_D0_RK2(rand, logProbFailure)
947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
948 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D0_RK2
951 integer(IK) ,
intent(out) :: rand
952 real(RKG) ,
intent(in) :: logProbFailure
957 impure elemental module subroutine setGeomRandRNGD_D0_RK1(rand, logProbFailure)
958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
959 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D0_RK1
962 integer(IK) ,
intent(out) :: rand
963 real(RKG) ,
intent(in) :: logProbFailure
970 impure elemental module subroutine setGeomRandRNGF_D0_RK5(rng, rand, logProbFailure)
971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
972 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D0_RK5
975 type(rngf_type) ,
intent(in) :: rng
976 integer(IK) ,
intent(out) :: rand
977 real(RKG) ,
intent(in) :: logProbFailure
982 impure elemental module subroutine setGeomRandRNGF_D0_RK4(rng, rand, logProbFailure)
983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
984 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D0_RK4
987 type(rngf_type) ,
intent(in) :: rng
988 integer(IK) ,
intent(out) :: rand
989 real(RKG) ,
intent(in) :: logProbFailure
994 impure elemental module subroutine setGeomRandRNGF_D0_RK3(rng, rand, logProbFailure)
995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
996 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D0_RK3
999 type(rngf_type) ,
intent(in) :: rng
1000 integer(IK) ,
intent(out) :: rand
1001 real(RKG) ,
intent(in) :: logProbFailure
1006 impure elemental module subroutine setGeomRandRNGF_D0_RK2(rng, rand, logProbFailure)
1007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1008 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D0_RK2
1011 type(rngf_type) ,
intent(in) :: rng
1012 integer(IK) ,
intent(out) :: rand
1013 real(RKG) ,
intent(in) :: logProbFailure
1018 impure elemental module subroutine setGeomRandRNGF_D0_RK1(rng, rand, logProbFailure)
1019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1020 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D0_RK1
1023 type(rngf_type) ,
intent(in) :: rng
1024 integer(IK) ,
intent(out) :: rand
1025 real(RKG) ,
intent(in) :: logProbFailure
1032 PURE elemental module subroutine setGeomRandRNGX_D0_RK5(rng, rand, logProbFailure)
1033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1034 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D0_RK5
1037 type(xoshiro256ssw_type),
intent(inout) :: rng
1038 integer(IK) ,
intent(out) :: rand
1039 real(RKG) ,
intent(in) :: logProbFailure
1044 PURE elemental module subroutine setGeomRandRNGX_D0_RK4(rng, rand, logProbFailure)
1045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1046 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D0_RK4
1049 type(xoshiro256ssw_type),
intent(inout) :: rng
1050 integer(IK) ,
intent(out) :: rand
1051 real(RKG) ,
intent(in) :: logProbFailure
1056 PURE elemental module subroutine setGeomRandRNGX_D0_RK3(rng, rand, logProbFailure)
1057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1058 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D0_RK3
1061 type(xoshiro256ssw_type),
intent(inout) :: rng
1062 integer(IK) ,
intent(out) :: rand
1063 real(RKG) ,
intent(in) :: logProbFailure
1068 PURE elemental module subroutine setGeomRandRNGX_D0_RK2(rng, rand, logProbFailure)
1069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1070 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D0_RK2
1073 type(xoshiro256ssw_type),
intent(inout) :: rng
1074 integer(IK) ,
intent(out) :: rand
1075 real(RKG) ,
intent(in) :: logProbFailure
1080 PURE elemental module subroutine setGeomRandRNGX_D0_RK1(rng, rand, logProbFailure)
1081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1082 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D0_RK1
1085 type(xoshiro256ssw_type),
intent(inout) :: rng
1086 integer(IK) ,
intent(out) :: rand
1087 real(RKG) ,
intent(in) :: logProbFailure
1100 module subroutine setGeomRandRNGD_D1_RK5(rand, logProbFailure)
1101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1102 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D1_RK5
1105 integer(IK) ,
intent(out) :: rand(:)
1106 real(RKG) ,
intent(in) :: logProbFailure
1111 module subroutine setGeomRandRNGD_D1_RK4(rand, logProbFailure)
1112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1113 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D1_RK4
1116 integer(IK) ,
intent(out) :: rand(:)
1117 real(RKG) ,
intent(in) :: logProbFailure
1122 module subroutine setGeomRandRNGD_D1_RK3(rand, logProbFailure)
1123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1124 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D1_RK3
1127 integer(IK) ,
intent(out) :: rand(:)
1128 real(RKG) ,
intent(in) :: logProbFailure
1133 module subroutine setGeomRandRNGD_D1_RK2(rand, logProbFailure)
1134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1135 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D1_RK2
1138 integer(IK) ,
intent(out) :: rand(:)
1139 real(RKG) ,
intent(in) :: logProbFailure
1144 module subroutine setGeomRandRNGD_D1_RK1(rand, logProbFailure)
1145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1146 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGD_D1_RK1
1149 integer(IK) ,
intent(out) :: rand(:)
1150 real(RKG) ,
intent(in) :: logProbFailure
1157 module subroutine setGeomRandRNGF_D1_RK5(rng, rand, logProbFailure)
1158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1159 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D1_RK5
1162 type(rngf_type) ,
intent(in) :: rng
1163 integer(IK) ,
intent(out) :: rand(:)
1164 real(RKG) ,
intent(in) :: logProbFailure
1169 module subroutine setGeomRandRNGF_D1_RK4(rng, rand, logProbFailure)
1170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1171 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D1_RK4
1174 type(rngf_type) ,
intent(in) :: rng
1175 integer(IK) ,
intent(out) :: rand(:)
1176 real(RKG) ,
intent(in) :: logProbFailure
1181 module subroutine setGeomRandRNGF_D1_RK3(rng, rand, logProbFailure)
1182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1183 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D1_RK3
1186 type(rngf_type) ,
intent(in) :: rng
1187 integer(IK) ,
intent(out) :: rand(:)
1188 real(RKG) ,
intent(in) :: logProbFailure
1193 module subroutine setGeomRandRNGF_D1_RK2(rng, rand, logProbFailure)
1194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1195 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D1_RK2
1198 type(rngf_type) ,
intent(in) :: rng
1199 integer(IK) ,
intent(out) :: rand(:)
1200 real(RKG) ,
intent(in) :: logProbFailure
1205 module subroutine setGeomRandRNGF_D1_RK1(rng, rand, logProbFailure)
1206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1207 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGF_D1_RK1
1210 type(rngf_type) ,
intent(in) :: rng
1211 integer(IK) ,
intent(out) :: rand(:)
1212 real(RKG) ,
intent(in) :: logProbFailure
1219 PURE module subroutine setGeomRandRNGX_D1_RK5(rng, rand, logProbFailure)
1220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1221 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D1_RK5
1224 type(xoshiro256ssw_type),
intent(inout) :: rng
1225 integer(IK) ,
intent(out) :: rand(:)
1226 real(RKG) ,
intent(in) :: logProbFailure
1231 PURE module subroutine setGeomRandRNGX_D1_RK4(rng, rand, logProbFailure)
1232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1233 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D1_RK4
1236 type(xoshiro256ssw_type),
intent(inout) :: rng
1237 integer(IK) ,
intent(out) :: rand(:)
1238 real(RKG) ,
intent(in) :: logProbFailure
1243 PURE module subroutine setGeomRandRNGX_D1_RK3(rng, rand, logProbFailure)
1244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1245 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D1_RK3
1248 type(xoshiro256ssw_type),
intent(inout) :: rng
1249 integer(IK) ,
intent(out) :: rand(:)
1250 real(RKG) ,
intent(in) :: logProbFailure
1255 PURE module subroutine setGeomRandRNGX_D1_RK2(rng, rand, logProbFailure)
1256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1257 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D1_RK2
1260 type(xoshiro256ssw_type),
intent(inout) :: rng
1261 integer(IK) ,
intent(out) :: rand(:)
1262 real(RKG) ,
intent(in) :: logProbFailure
1267 PURE module subroutine setGeomRandRNGX_D1_RK1(rng, rand, logProbFailure)
1268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1269 !DEC$ ATTRIBUTES DLLEXPORT :: setGeomRandRNGX_D1_RK1
1272 type(xoshiro256ssw_type),
intent(inout) :: rng
1273 integer(IK) ,
intent(out) :: rand(:)
1274 real(RKG) ,
intent(in) :: logProbFailure
1288end module pm_distGeom
Generate and return the Cumulative Distribution Function (CDF) of the Geometric distribution for an i...
Generate and return the natural logarithm of the Probability Mass Function (PMF) of the Geometric dis...
Generate and return a scalar (or array of arbitrary rank of) random value(s) from the Geometric distr...
Return the Cumulative Distribution Function (CDF) of the Geometric distribution.
Return the natural logarithm of the Probability Mass Function (PMF) of the Geometric distribution for...
Return a scalar (or array of arbitrary rank of) random value(s) from the Geometric distribution.
This module contains classes and procedures for computing various statistical quantities related to t...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for computing various statistical quantities related to t...
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 is the derived type for signifying distributions that are of type Geometric as defined in the de...
This is a concrete derived type whose instances can be used to define/request the default uniform ran...
This is the derived type for declaring and generating objects of type xoshiro256ssw_type containing a...