231 PURE elemental module function getPoisLogPMF_RK5(count, lambda)
result(logPMF)
232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
233 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisLogPMF_RK5
236 integer(IK) ,
intent(in) :: count
237 real(RKG) ,
intent(in) :: lambda
243 PURE elemental module function getPoisLogPMF_RK4(count, lambda)
result(logPMF)
244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
245 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisLogPMF_RK4
248 integer(IK) ,
intent(in) :: count
249 real(RKG) ,
intent(in) :: lambda
255 PURE elemental module function getPoisLogPMF_RK3(count, lambda)
result(logPMF)
256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
257 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisLogPMF_RK3
260 integer(IK) ,
intent(in) :: count
261 real(RKG) ,
intent(in) :: lambda
267 PURE elemental module function getPoisLogPMF_RK2(count, lambda)
result(logPMF)
268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
269 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisLogPMF_RK2
272 integer(IK) ,
intent(in) :: count
273 real(RKG) ,
intent(in) :: lambda
279 PURE elemental module function getPoisLogPMF_RK1(count, lambda)
result(logPMF)
280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
281 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisLogPMF_RK1
284 integer(IK) ,
intent(in) :: count
285 real(RKG) ,
intent(in) :: lambda
363 PURE elemental module subroutine setPoisLogPMFDef_RK5(logPMF, count, lambda)
364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
365 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFDef_RK5
368 real(RKG) ,
intent(in) :: lambda
369 real(RKG) ,
intent(out) :: logPMF
370 integer(IK) ,
intent(in) :: count
375 PURE elemental module subroutine setPoisLogPMFDef_RK4(logPMF, count, lambda)
376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
377 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFDef_RK4
380 real(RKG) ,
intent(in) :: lambda
381 real(RKG) ,
intent(out) :: logPMF
382 integer(IK) ,
intent(in) :: count
387 PURE elemental module subroutine setPoisLogPMFDef_RK3(logPMF, count, lambda)
388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
389 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFDef_RK3
392 real(RKG) ,
intent(in) :: lambda
393 real(RKG) ,
intent(out) :: logPMF
394 integer(IK) ,
intent(in) :: count
399 PURE elemental module subroutine setPoisLogPMFDef_RK2(logPMF, count, lambda)
400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
401 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFDef_RK2
404 real(RKG) ,
intent(in) :: lambda
405 real(RKG) ,
intent(out) :: logPMF
406 integer(IK) ,
intent(in) :: count
411 PURE elemental module subroutine setPoisLogPMFDef_RK1(logPMF, count, lambda)
412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
413 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFDef_RK1
416 real(RKG) ,
intent(in) :: lambda
417 real(RKG) ,
intent(out) :: logPMF
418 integer(IK) ,
intent(in) :: count
425 PURE elemental module subroutine setPoisLogPMFLog_RK5(logPMF, count, lambda, logLambda)
426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
427 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFLog_RK5
430 real(RKG) ,
intent(in) :: lambda, logLambda
431 real(RKG) ,
intent(out) :: logPMF
432 integer(IK) ,
intent(in) :: count
437 PURE elemental module subroutine setPoisLogPMFLog_RK4(logPMF, count, lambda, logLambda)
438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
439 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFLog_RK4
442 real(RKG) ,
intent(in) :: lambda, logLambda
443 real(RKG) ,
intent(out) :: logPMF
444 integer(IK) ,
intent(in) :: count
449 PURE elemental module subroutine setPoisLogPMFLog_RK3(logPMF, count, lambda, logLambda)
450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
451 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFLog_RK3
454 real(RKG) ,
intent(in) :: lambda, logLambda
455 real(RKG) ,
intent(out) :: logPMF
456 integer(IK) ,
intent(in) :: count
461 PURE elemental module subroutine setPoisLogPMFLog_RK2(logPMF, count, lambda, logLambda)
462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
463 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFLog_RK2
466 real(RKG) ,
intent(in) :: lambda, logLambda
467 real(RKG) ,
intent(out) :: logPMF
468 integer(IK) ,
intent(in) :: count
473 PURE elemental module subroutine setPoisLogPMFLog_RK1(logPMF, count, lambda, logLambda)
474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
475 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisLogPMFLog_RK1
478 real(RKG) ,
intent(in) :: lambda, logLambda
479 real(RKG) ,
intent(out) :: logPMF
480 integer(IK) ,
intent(in) :: count
550 PURE elemental module function getPoisCDF_RK5(count, lambda)
result(cdf)
551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
552 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisCDF_RK5
555 integer(IK) ,
intent(in) :: count
556 real(RKG) ,
intent(in) :: lambda
562 PURE elemental module function getPoisCDF_RK4(count, lambda)
result(cdf)
563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
564 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisCDF_RK4
567 integer(IK) ,
intent(in) :: count
568 real(RKG) ,
intent(in) :: lambda
574 PURE elemental module function getPoisCDF_RK3(count, lambda)
result(cdf)
575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
576 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisCDF_RK3
579 integer(IK) ,
intent(in) :: count
580 real(RKG) ,
intent(in) :: lambda
586 PURE elemental module function getPoisCDF_RK2(count, lambda)
result(cdf)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisCDF_RK2
591 integer(IK) ,
intent(in) :: count
592 real(RKG) ,
intent(in) :: lambda
598 PURE elemental module function getPoisCDF_RK1(count, lambda)
result(cdf)
599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
600 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisCDF_RK1
603 integer(IK) ,
intent(in) :: count
604 real(RKG) ,
intent(in) :: lambda
681 PURE elemental module subroutine setPoisCDFLog_RK5(cdf, countP1, lambda, info)
682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
683 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisCDFLog_RK5
686 real(RKG) ,
intent(in) :: countP1, lambda
687 real(RKG) ,
intent(out) :: cdf
688 integer(IK) ,
intent(out) :: info
693 PURE elemental module subroutine setPoisCDFLog_RK4(cdf, countP1, lambda, info)
694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
695 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisCDFLog_RK4
698 real(RKG) ,
intent(in) :: countP1, lambda
699 real(RKG) ,
intent(out) :: cdf
700 integer(IK) ,
intent(out) :: info
705 PURE elemental module subroutine setPoisCDFLog_RK3(cdf, countP1, lambda, info)
706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
707 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisCDFLog_RK3
710 real(RKG) ,
intent(in) :: countP1, lambda
711 real(RKG) ,
intent(out) :: cdf
712 integer(IK) ,
intent(out) :: info
717 PURE elemental module subroutine setPoisCDFLog_RK2(cdf, countP1, lambda, info)
718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
719 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisCDFLog_RK2
722 real(RKG) ,
intent(in) :: countP1, lambda
723 real(RKG) ,
intent(out) :: cdf
724 integer(IK) ,
intent(out) :: info
729 PURE elemental module subroutine setPoisCDFLog_RK1(cdf, countP1, lambda, info)
730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
731 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisCDFLog_RK1
734 real(RKG) ,
intent(in) :: countP1, lambda
735 real(RKG) ,
intent(out) :: cdf
736 integer(IK) ,
intent(out) :: info
826 impure elemental module function getPoisRand_RK5(lambda)
result(rand)
827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
828 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisRand_RK5
832 real(RKG) ,
intent(in) :: lambda
837 impure elemental module function getPoisRand_RK4(lambda)
result(rand)
838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
839 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisRand_RK4
843 real(RKG) ,
intent(in) :: lambda
848 impure elemental module function getPoisRand_RK3(lambda)
result(rand)
849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
850 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisRand_RK3
854 real(RKG) ,
intent(in) :: lambda
859 impure elemental module function getPoisRand_RK2(lambda)
result(rand)
860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
861 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisRand_RK2
865 real(RKG) ,
intent(in) :: lambda
870 impure elemental module function getPoisRand_RK1(lambda)
result(rand)
871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
872 !DEC$ ATTRIBUTES DLLEXPORT :: getPoisRand_RK1
876 real(RKG) ,
intent(in) :: lambda
989 impure elemental module subroutine setPoisRandExpRNGD_D0_RK5(rand, expNegLambda)
990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
991 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D0_RK5
994 integer(IK) ,
intent(out) :: rand
995 real(RKG) ,
intent(in) :: expNegLambda
1000 impure elemental module subroutine setPoisRandExpRNGD_D0_RK4(rand, expNegLambda)
1001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1002 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D0_RK4
1005 integer(IK) ,
intent(out) :: rand
1006 real(RKG) ,
intent(in) :: expNegLambda
1011 impure elemental module subroutine setPoisRandExpRNGD_D0_RK3(rand, expNegLambda)
1012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1013 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D0_RK3
1016 integer(IK) ,
intent(out) :: rand
1017 real(RKG) ,
intent(in) :: expNegLambda
1022 impure elemental module subroutine setPoisRandExpRNGD_D0_RK2(rand, expNegLambda)
1023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1024 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D0_RK2
1027 integer(IK) ,
intent(out) :: rand
1028 real(RKG) ,
intent(in) :: expNegLambda
1033 impure elemental module subroutine setPoisRandExpRNGD_D0_RK1(rand, expNegLambda)
1034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1035 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D0_RK1
1038 integer(IK) ,
intent(out) :: rand
1039 real(RKG) ,
intent(in) :: expNegLambda
1046 impure elemental module subroutine setPoisRandExpRNGF_D0_RK5(rng, rand, expNegLambda)
1047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1048 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D0_RK5
1051 type(rngf_type) ,
intent(in) :: rng
1052 integer(IK) ,
intent(out) :: rand
1053 real(RKG) ,
intent(in) :: expNegLambda
1058 impure elemental module subroutine setPoisRandExpRNGF_D0_RK4(rng, rand, expNegLambda)
1059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1060 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D0_RK4
1063 type(rngf_type) ,
intent(in) :: rng
1064 integer(IK) ,
intent(out) :: rand
1065 real(RKG) ,
intent(in) :: expNegLambda
1070 impure elemental module subroutine setPoisRandExpRNGF_D0_RK3(rng, rand, expNegLambda)
1071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1072 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D0_RK3
1075 type(rngf_type) ,
intent(in) :: rng
1076 integer(IK) ,
intent(out) :: rand
1077 real(RKG) ,
intent(in) :: expNegLambda
1082 impure elemental module subroutine setPoisRandExpRNGF_D0_RK2(rng, rand, expNegLambda)
1083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1084 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D0_RK2
1087 type(rngf_type) ,
intent(in) :: rng
1088 integer(IK) ,
intent(out) :: rand
1089 real(RKG) ,
intent(in) :: expNegLambda
1094 impure elemental module subroutine setPoisRandExpRNGF_D0_RK1(rng, rand, expNegLambda)
1095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1096 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D0_RK1
1099 type(rngf_type) ,
intent(in) :: rng
1100 integer(IK) ,
intent(out) :: rand
1101 real(RKG) ,
intent(in) :: expNegLambda
1108 PURE elemental module subroutine setPoisRandExpRNGX_D0_RK5(rng, rand, expNegLambda)
1109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1110 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D0_RK5
1113 type(xoshiro256ssw_type),
intent(inout) :: rng
1114 integer(IK) ,
intent(out) :: rand
1115 real(RKG) ,
intent(in) :: expNegLambda
1120 PURE elemental module subroutine setPoisRandExpRNGX_D0_RK4(rng, rand, expNegLambda)
1121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1122 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D0_RK4
1125 type(xoshiro256ssw_type),
intent(inout) :: rng
1126 integer(IK) ,
intent(out) :: rand
1127 real(RKG) ,
intent(in) :: expNegLambda
1132 PURE elemental module subroutine setPoisRandExpRNGX_D0_RK3(rng, rand, expNegLambda)
1133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1134 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D0_RK3
1137 type(xoshiro256ssw_type),
intent(inout) :: rng
1138 integer(IK) ,
intent(out) :: rand
1139 real(RKG) ,
intent(in) :: expNegLambda
1144 PURE elemental module subroutine setPoisRandExpRNGX_D0_RK2(rng, rand, expNegLambda)
1145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1146 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D0_RK2
1149 type(xoshiro256ssw_type),
intent(inout) :: rng
1150 integer(IK) ,
intent(out) :: rand
1151 real(RKG) ,
intent(in) :: expNegLambda
1156 PURE elemental module subroutine setPoisRandExpRNGX_D0_RK1(rng, rand, expNegLambda)
1157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1158 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D0_RK1
1161 type(xoshiro256ssw_type),
intent(inout) :: rng
1162 integer(IK) ,
intent(out) :: rand
1163 real(RKG) ,
intent(in) :: expNegLambda
1176 module subroutine setPoisRandExpRNGD_D1_RK5(rand, expNegLambda)
1177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1178 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D1_RK5
1181 integer(IK) ,
intent(out) :: rand(:)
1182 real(RKG) ,
intent(in) :: expNegLambda
1187 module subroutine setPoisRandExpRNGD_D1_RK4(rand, expNegLambda)
1188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1189 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D1_RK4
1192 integer(IK) ,
intent(out) :: rand(:)
1193 real(RKG) ,
intent(in) :: expNegLambda
1198 module subroutine setPoisRandExpRNGD_D1_RK3(rand, expNegLambda)
1199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1200 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D1_RK3
1203 integer(IK) ,
intent(out) :: rand(:)
1204 real(RKG) ,
intent(in) :: expNegLambda
1209 module subroutine setPoisRandExpRNGD_D1_RK2(rand, expNegLambda)
1210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1211 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D1_RK2
1214 integer(IK) ,
intent(out) :: rand(:)
1215 real(RKG) ,
intent(in) :: expNegLambda
1220 module subroutine setPoisRandExpRNGD_D1_RK1(rand, expNegLambda)
1221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1222 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGD_D1_RK1
1225 integer(IK) ,
intent(out) :: rand(:)
1226 real(RKG) ,
intent(in) :: expNegLambda
1233 module subroutine setPoisRandExpRNGF_D1_RK5(rng, rand, expNegLambda)
1234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1235 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D1_RK5
1238 type(rngf_type) ,
intent(in) :: rng
1239 integer(IK) ,
intent(out) :: rand(:)
1240 real(RKG) ,
intent(in) :: expNegLambda
1245 module subroutine setPoisRandExpRNGF_D1_RK4(rng, rand, expNegLambda)
1246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1247 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D1_RK4
1250 type(rngf_type) ,
intent(in) :: rng
1251 integer(IK) ,
intent(out) :: rand(:)
1252 real(RKG) ,
intent(in) :: expNegLambda
1257 module subroutine setPoisRandExpRNGF_D1_RK3(rng, rand, expNegLambda)
1258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1259 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D1_RK3
1262 type(rngf_type) ,
intent(in) :: rng
1263 integer(IK) ,
intent(out) :: rand(:)
1264 real(RKG) ,
intent(in) :: expNegLambda
1269 module subroutine setPoisRandExpRNGF_D1_RK2(rng, rand, expNegLambda)
1270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1271 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D1_RK2
1274 type(rngf_type) ,
intent(in) :: rng
1275 integer(IK) ,
intent(out) :: rand(:)
1276 real(RKG) ,
intent(in) :: expNegLambda
1281 module subroutine setPoisRandExpRNGF_D1_RK1(rng, rand, expNegLambda)
1282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1283 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGF_D1_RK1
1286 type(rngf_type) ,
intent(in) :: rng
1287 integer(IK) ,
intent(out) :: rand(:)
1288 real(RKG) ,
intent(in) :: expNegLambda
1295 PURE module subroutine setPoisRandExpRNGX_D1_RK5(rng, rand, expNegLambda)
1296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1297 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D1_RK5
1300 type(xoshiro256ssw_type),
intent(inout) :: rng
1301 integer(IK) ,
intent(out) :: rand(:)
1302 real(RKG) ,
intent(in) :: expNegLambda
1307 PURE module subroutine setPoisRandExpRNGX_D1_RK4(rng, rand, expNegLambda)
1308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1309 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D1_RK4
1312 type(xoshiro256ssw_type),
intent(inout) :: rng
1313 integer(IK) ,
intent(out) :: rand(:)
1314 real(RKG) ,
intent(in) :: expNegLambda
1319 PURE module subroutine setPoisRandExpRNGX_D1_RK3(rng, rand, expNegLambda)
1320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1321 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D1_RK3
1324 type(xoshiro256ssw_type),
intent(inout) :: rng
1325 integer(IK) ,
intent(out) :: rand(:)
1326 real(RKG) ,
intent(in) :: expNegLambda
1331 PURE module subroutine setPoisRandExpRNGX_D1_RK2(rng, rand, expNegLambda)
1332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1333 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D1_RK2
1336 type(xoshiro256ssw_type),
intent(inout) :: rng
1337 integer(IK) ,
intent(out) :: rand(:)
1338 real(RKG) ,
intent(in) :: expNegLambda
1343 PURE module subroutine setPoisRandExpRNGX_D1_RK1(rng, rand, expNegLambda)
1344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1345 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandExpRNGX_D1_RK1
1348 type(xoshiro256ssw_type),
intent(inout) :: rng
1349 integer(IK) ,
intent(out) :: rand(:)
1350 real(RKG) ,
intent(in) :: expNegLambda
1367 impure elemental module subroutine setPoisRandRejRNGD_D0_RK5(rand, lambda, logLambda, sqrtLambda)
1368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1369 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D0_RK5
1372 integer(IK) ,
intent(out) :: rand
1373 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1378 impure elemental module subroutine setPoisRandRejRNGD_D0_RK4(rand, lambda, logLambda, sqrtLambda)
1379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1380 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D0_RK4
1383 integer(IK) ,
intent(out) :: rand
1384 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1389 impure elemental module subroutine setPoisRandRejRNGD_D0_RK3(rand, lambda, logLambda, sqrtLambda)
1390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1391 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D0_RK3
1394 integer(IK) ,
intent(out) :: rand
1395 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1400 impure elemental module subroutine setPoisRandRejRNGD_D0_RK2(rand, lambda, logLambda, sqrtLambda)
1401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1402 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D0_RK2
1405 integer(IK) ,
intent(out) :: rand
1406 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1411 impure elemental module subroutine setPoisRandRejRNGD_D0_RK1(rand, lambda, logLambda, sqrtLambda)
1412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1413 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D0_RK1
1416 integer(IK) ,
intent(out) :: rand
1417 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1424 impure elemental module subroutine setPoisRandRejRNGF_D0_RK5(rng, rand, lambda, logLambda, sqrtLambda)
1425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1426 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D0_RK5
1429 type(rngf_type) ,
intent(in) :: rng
1430 integer(IK) ,
intent(out) :: rand
1431 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1436 impure elemental module subroutine setPoisRandRejRNGF_D0_RK4(rng, rand, lambda, logLambda, sqrtLambda)
1437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1438 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D0_RK4
1441 type(rngf_type) ,
intent(in) :: rng
1442 integer(IK) ,
intent(out) :: rand
1443 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1448 impure elemental module subroutine setPoisRandRejRNGF_D0_RK3(rng, rand, lambda, logLambda, sqrtLambda)
1449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1450 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D0_RK3
1453 type(rngf_type) ,
intent(in) :: rng
1454 integer(IK) ,
intent(out) :: rand
1455 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1460 impure elemental module subroutine setPoisRandRejRNGF_D0_RK2(rng, rand, lambda, logLambda, sqrtLambda)
1461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1462 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D0_RK2
1465 type(rngf_type) ,
intent(in) :: rng
1466 integer(IK) ,
intent(out) :: rand
1467 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1472 impure elemental module subroutine setPoisRandRejRNGF_D0_RK1(rng, rand, lambda, logLambda, sqrtLambda)
1473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1474 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D0_RK1
1477 type(rngf_type) ,
intent(in) :: rng
1478 integer(IK) ,
intent(out) :: rand
1479 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1486 PURE elemental module subroutine setPoisRandRejRNGX_D0_RK5(rng, rand, lambda, logLambda, sqrtLambda)
1487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1488 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D0_RK5
1491 type(xoshiro256ssw_type),
intent(inout) :: rng
1492 integer(IK) ,
intent(out) :: rand
1493 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1498 PURE elemental module subroutine setPoisRandRejRNGX_D0_RK4(rng, rand, lambda, logLambda, sqrtLambda)
1499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1500 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D0_RK4
1503 type(xoshiro256ssw_type),
intent(inout) :: rng
1504 integer(IK) ,
intent(out) :: rand
1505 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1510 PURE elemental module subroutine setPoisRandRejRNGX_D0_RK3(rng, rand, lambda, logLambda, sqrtLambda)
1511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1512 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D0_RK3
1515 type(xoshiro256ssw_type),
intent(inout) :: rng
1516 integer(IK) ,
intent(out) :: rand
1517 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1522 PURE elemental module subroutine setPoisRandRejRNGX_D0_RK2(rng, rand, lambda, logLambda, sqrtLambda)
1523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1524 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D0_RK2
1527 type(xoshiro256ssw_type),
intent(inout) :: rng
1528 integer(IK) ,
intent(out) :: rand
1529 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1534 PURE elemental module subroutine setPoisRandRejRNGX_D0_RK1(rng, rand, lambda, logLambda, sqrtLambda)
1535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1536 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D0_RK1
1539 type(xoshiro256ssw_type),
intent(inout) :: rng
1540 integer(IK) ,
intent(out) :: rand
1541 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1554 module subroutine setPoisRandRejRNGD_D1_RK5(rand, lambda, logLambda, sqrtLambda)
1555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1556 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D1_RK5
1559 integer(IK) ,
intent(out) :: rand(:)
1560 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1565 module subroutine setPoisRandRejRNGD_D1_RK4(rand, lambda, logLambda, sqrtLambda)
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D1_RK4
1570 integer(IK) ,
intent(out) :: rand(:)
1571 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1576 module subroutine setPoisRandRejRNGD_D1_RK3(rand, lambda, logLambda, sqrtLambda)
1577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1578 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D1_RK3
1581 integer(IK) ,
intent(out) :: rand(:)
1582 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1587 module subroutine setPoisRandRejRNGD_D1_RK2(rand, lambda, logLambda, sqrtLambda)
1588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1589 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D1_RK2
1592 integer(IK) ,
intent(out) :: rand(:)
1593 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1598 module subroutine setPoisRandRejRNGD_D1_RK1(rand, lambda, logLambda, sqrtLambda)
1599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1600 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGD_D1_RK1
1603 integer(IK) ,
intent(out) :: rand(:)
1604 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1611 module subroutine setPoisRandRejRNGF_D1_RK5(rng, rand, lambda, logLambda, sqrtLambda)
1612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1613 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D1_RK5
1616 type(rngf_type) ,
intent(in) :: rng
1617 integer(IK) ,
intent(out) :: rand(:)
1618 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1623 module subroutine setPoisRandRejRNGF_D1_RK4(rng, rand, lambda, logLambda, sqrtLambda)
1624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1625 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D1_RK4
1628 type(rngf_type) ,
intent(in) :: rng
1629 integer(IK) ,
intent(out) :: rand(:)
1630 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1635 module subroutine setPoisRandRejRNGF_D1_RK3(rng, rand, lambda, logLambda, sqrtLambda)
1636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1637 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D1_RK3
1640 type(rngf_type) ,
intent(in) :: rng
1641 integer(IK) ,
intent(out) :: rand(:)
1642 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1647 module subroutine setPoisRandRejRNGF_D1_RK2(rng, rand, lambda, logLambda, sqrtLambda)
1648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1649 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D1_RK2
1652 type(rngf_type) ,
intent(in) :: rng
1653 integer(IK) ,
intent(out) :: rand(:)
1654 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1659 module subroutine setPoisRandRejRNGF_D1_RK1(rng, rand, lambda, logLambda, sqrtLambda)
1660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1661 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGF_D1_RK1
1664 type(rngf_type) ,
intent(in) :: rng
1665 integer(IK) ,
intent(out) :: rand(:)
1666 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1673 PURE module subroutine setPoisRandRejRNGX_D1_RK5(rng, rand, lambda, logLambda, sqrtLambda)
1674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1675 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D1_RK5
1678 type(xoshiro256ssw_type),
intent(inout) :: rng
1679 integer(IK) ,
intent(out) :: rand(:)
1680 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1685 PURE module subroutine setPoisRandRejRNGX_D1_RK4(rng, rand, lambda, logLambda, sqrtLambda)
1686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1687 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D1_RK4
1690 type(xoshiro256ssw_type),
intent(inout) :: rng
1691 integer(IK) ,
intent(out) :: rand(:)
1692 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1697 PURE module subroutine setPoisRandRejRNGX_D1_RK3(rng, rand, lambda, logLambda, sqrtLambda)
1698#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1699 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D1_RK3
1702 type(xoshiro256ssw_type),
intent(inout) :: rng
1703 integer(IK) ,
intent(out) :: rand(:)
1704 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1709 PURE module subroutine setPoisRandRejRNGX_D1_RK2(rng, rand, lambda, logLambda, sqrtLambda)
1710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1711 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D1_RK2
1714 type(xoshiro256ssw_type),
intent(inout) :: rng
1715 integer(IK) ,
intent(out) :: rand(:)
1716 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1721 PURE module subroutine setPoisRandRejRNGX_D1_RK1(rng, rand, lambda, logLambda, sqrtLambda)
1722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1723 !DEC$ ATTRIBUTES DLLEXPORT :: setPoisRandRejRNGX_D1_RK1
1726 type(xoshiro256ssw_type),
intent(inout) :: rng
1727 integer(IK) ,
intent(out) :: rand(:)
1728 real(RKG) ,
intent(in) :: lambda, logLambda, sqrtLambda
1746end module pm_distPois
Generate and return the Cumulative Distribution Function (CDF) of the Poisson distribution for an inp...
Generate and return the natural logarithm of the Probability Mass Function (PMF) of the Poisson distr...
Generate and return a scalar (or array of arbitrary rank of) random value(s) from the Poisson distrib...
Return the Cumulative Distribution Function (CDF) of the Poisson distribution.
Return the natural logarithm of the Probability Mass Function (PMF) of the Poisson distribution for a...
Return a scalar (or array of arbitrary rank of) random value(s) from the Poisson distribution.
This module contains classes and procedures for computing various statistical quantities related to t...
real(RKB), parameter LAMBDA_LIMIT
The constant scalar of type real of kind RKB, representing the value of the parameter of the Poisson ...
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 LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
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 Poisson as defined in the desc...
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...