164 impure module function isHeadDD()
result(rand)
165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
166 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadDD
173 impure module function isHeadDS(size)
result(rand)
174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
175 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadDS
177 integer(IK) ,
intent(in) :: size
178 logical(LK) :: rand(size)
184 impure elemental module function isHeadPD_RK5(p)
result(rand)
185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
186 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPD_RK5
189 real(RKG) ,
intent(in) :: p
195 impure elemental module function isHeadPD_RK4(p)
result(rand)
196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
197 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPD_RK4
200 real(RKG) ,
intent(in) :: p
206 impure elemental module function isHeadPD_RK3(p)
result(rand)
207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
208 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPD_RK3
211 real(RKG) ,
intent(in) :: p
217 impure elemental module function isHeadPD_RK2(p)
result(rand)
218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
219 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPD_RK2
222 real(RKG) ,
intent(in) :: p
228 impure elemental module function isHeadPD_RK1(p)
result(rand)
229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
230 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPD_RK1
233 real(RKG) ,
intent(in) :: p
241 impure module function isHeadPS_RK5(p, size)
result(rand)
242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
243 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPS_RK5
246 real(RKG) ,
intent(in) :: p
247 integer(IK) ,
intent(in) :: size
248 logical(LK) :: rand(size)
253 impure module function isHeadPS_RK4(p, size)
result(rand)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPS_RK4
258 real(RKG) ,
intent(in) :: p
259 integer(IK) ,
intent(in) :: size
260 logical(LK) :: rand(size)
265 impure module function isHeadPS_RK3(p, size)
result(rand)
266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
267 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPS_RK3
270 real(RKG) ,
intent(in) :: p
271 integer(IK) ,
intent(in) :: size
272 logical(LK) :: rand(size)
277 impure module function isHeadPS_RK2(p, size)
result(rand)
278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
279 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPS_RK2
282 real(RKG) ,
intent(in) :: p
283 integer(IK) ,
intent(in) :: size
284 logical(LK) :: rand(size)
289 impure module function isHeadPS_RK1(p, size)
result(rand)
290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
291 !DEC$ ATTRIBUTES DLLEXPORT :: isHeadPS_RK1
294 real(RKG) ,
intent(in) :: p
295 integer(IK) ,
intent(in) :: size
296 logical(LK) :: rand(size)
362 impure elemental module function getBernRandPD_RK5(p)
result(rand)
363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
364 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPD_RK5
367 real(RKG) ,
intent(in) :: p
373 impure elemental module function getBernRandPD_RK4(p)
result(rand)
374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
375 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPD_RK4
378 real(RKG) ,
intent(in) :: p
384 impure elemental module function getBernRandPD_RK3(p)
result(rand)
385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
386 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPD_RK3
389 real(RKG) ,
intent(in) :: p
395 impure elemental module function getBernRandPD_RK2(p)
result(rand)
396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
397 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPD_RK2
400 real(RKG) ,
intent(in) :: p
406 impure elemental module function getBernRandPD_RK1(p)
result(rand)
407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
408 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPD_RK1
411 real(RKG) ,
intent(in) :: p
419 impure module function getBernRandPS_RK5(p, size)
result(rand)
420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
421 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPS_RK5
424 real(RKG) ,
intent(in) :: p
425 integer(IK) ,
intent(in) :: size
426 integer(IK) :: rand(size)
431 impure module function getBernRandPS_RK4(p, size)
result(rand)
432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
433 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPS_RK4
436 real(RKG) ,
intent(in) :: p
437 integer(IK) ,
intent(in) :: size
438 integer(IK) :: rand(size)
443 impure module function getBernRandPS_RK3(p, size)
result(rand)
444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
445 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPS_RK3
448 real(RKG) ,
intent(in) :: p
449 integer(IK) ,
intent(in) :: size
450 integer(IK) :: rand(size)
455 impure module function getBernRandPS_RK2(p, size)
result(rand)
456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
457 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPS_RK2
460 real(RKG) ,
intent(in) :: p
461 integer(IK) ,
intent(in) :: size
462 integer(IK) :: rand(size)
467 impure module function getBernRandPS_RK1(p, size)
result(rand)
468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
469 !DEC$ ATTRIBUTES DLLEXPORT :: getBernRandPS_RK1
472 real(RKG) ,
intent(in) :: p
473 integer(IK) ,
intent(in) :: size
474 integer(IK) :: rand(size)
562#if IK5_ENABLED && RK5_ENABLED
563 PURE elemental module subroutine setBernRandRUP_IK5_RK5(rand, urand, p)
564#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
565 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK5_RK5
568 integer(IKG),
intent(out) :: rand
569 real(RKG) ,
intent(in) :: urand, p
573#if IK5_ENABLED && RK4_ENABLED
574 PURE elemental module subroutine setBernRandRUP_IK5_RK4(rand, urand, p)
575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
576 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK5_RK4
579 integer(IKG),
intent(out) :: rand
580 real(RKG) ,
intent(in) :: urand, p
584#if IK5_ENABLED && RK3_ENABLED
585 PURE elemental module subroutine setBernRandRUP_IK5_RK3(rand, urand, p)
586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
587 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK5_RK3
590 integer(IKG),
intent(out) :: rand
591 real(RKG) ,
intent(in) :: urand, p
595#if IK5_ENABLED && RK2_ENABLED
596 PURE elemental module subroutine setBernRandRUP_IK5_RK2(rand, urand, p)
597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
598 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK5_RK2
601 integer(IKG),
intent(out) :: rand
602 real(RKG) ,
intent(in) :: urand, p
606#if IK5_ENABLED && RK1_ENABLED
607 PURE elemental module subroutine setBernRandRUP_IK5_RK1(rand, urand, p)
608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
609 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK5_RK1
612 integer(IKG),
intent(out) :: rand
613 real(RKG) ,
intent(in) :: urand, p
619#if IK4_ENABLED && RK5_ENABLED
620 PURE elemental module subroutine setBernRandRUP_IK4_RK5(rand, urand, p)
621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
622 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK4_RK5
625 integer(IKG),
intent(out) :: rand
626 real(RKG) ,
intent(in) :: urand, p
630#if IK4_ENABLED && RK4_ENABLED
631 PURE elemental module subroutine setBernRandRUP_IK4_RK4(rand, urand, p)
632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
633 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK4_RK4
636 integer(IKG),
intent(out) :: rand
637 real(RKG) ,
intent(in) :: urand, p
641#if IK4_ENABLED && RK3_ENABLED
642 PURE elemental module subroutine setBernRandRUP_IK4_RK3(rand, urand, p)
643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
644 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK4_RK3
647 integer(IKG),
intent(out) :: rand
648 real(RKG) ,
intent(in) :: urand, p
652#if IK4_ENABLED && RK2_ENABLED
653 PURE elemental module subroutine setBernRandRUP_IK4_RK2(rand, urand, p)
654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
655 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK4_RK2
658 integer(IKG),
intent(out) :: rand
659 real(RKG) ,
intent(in) :: urand, p
663#if IK4_ENABLED && RK1_ENABLED
664 PURE elemental module subroutine setBernRandRUP_IK4_RK1(rand, urand, p)
665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
666 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK4_RK1
669 integer(IKG),
intent(out) :: rand
670 real(RKG) ,
intent(in) :: urand, p
676#if IK3_ENABLED && RK5_ENABLED
677 PURE elemental module subroutine setBernRandRUP_IK3_RK5(rand, urand, p)
678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
679 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK3_RK5
682 integer(IKG),
intent(out) :: rand
683 real(RKG) ,
intent(in) :: urand, p
687#if IK3_ENABLED && RK4_ENABLED
688 PURE elemental module subroutine setBernRandRUP_IK3_RK4(rand, urand, p)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK3_RK4
693 integer(IKG),
intent(out) :: rand
694 real(RKG) ,
intent(in) :: urand, p
698#if IK3_ENABLED && RK3_ENABLED
699 PURE elemental module subroutine setBernRandRUP_IK3_RK3(rand, urand, p)
700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
701 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK3_RK3
704 integer(IKG),
intent(out) :: rand
705 real(RKG) ,
intent(in) :: urand, p
709#if IK3_ENABLED && RK2_ENABLED
710 PURE elemental module subroutine setBernRandRUP_IK3_RK2(rand, urand, p)
711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
712 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK3_RK2
715 integer(IKG),
intent(out) :: rand
716 real(RKG) ,
intent(in) :: urand, p
720#if IK3_ENABLED && RK1_ENABLED
721 PURE elemental module subroutine setBernRandRUP_IK3_RK1(rand, urand, p)
722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
723 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK3_RK1
726 integer(IKG),
intent(out) :: rand
727 real(RKG) ,
intent(in) :: urand, p
733#if IK2_ENABLED && RK5_ENABLED
734 PURE elemental module subroutine setBernRandRUP_IK2_RK5(rand, urand, p)
735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
736 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK2_RK5
739 integer(IKG),
intent(out) :: rand
740 real(RKG) ,
intent(in) :: urand, p
744#if IK2_ENABLED && RK4_ENABLED
745 PURE elemental module subroutine setBernRandRUP_IK2_RK4(rand, urand, p)
746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
747 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK2_RK4
750 integer(IKG),
intent(out) :: rand
751 real(RKG) ,
intent(in) :: urand, p
755#if IK2_ENABLED && RK3_ENABLED
756 PURE elemental module subroutine setBernRandRUP_IK2_RK3(rand, urand, p)
757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
758 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK2_RK3
761 integer(IKG),
intent(out) :: rand
762 real(RKG) ,
intent(in) :: urand, p
766#if IK2_ENABLED && RK2_ENABLED
767 PURE elemental module subroutine setBernRandRUP_IK2_RK2(rand, urand, p)
768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
769 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK2_RK2
772 integer(IKG),
intent(out) :: rand
773 real(RKG) ,
intent(in) :: urand, p
777#if IK2_ENABLED && RK1_ENABLED
778 PURE elemental module subroutine setBernRandRUP_IK2_RK1(rand, urand, p)
779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
780 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK2_RK1
783 integer(IKG),
intent(out) :: rand
784 real(RKG) ,
intent(in) :: urand, p
790#if IK1_ENABLED && RK5_ENABLED
791 PURE elemental module subroutine setBernRandRUP_IK1_RK5(rand, urand, p)
792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
793 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK1_RK5
796 integer(IKG),
intent(out) :: rand
797 real(RKG) ,
intent(in) :: urand, p
801#if IK1_ENABLED && RK4_ENABLED
802 PURE elemental module subroutine setBernRandRUP_IK1_RK4(rand, urand, p)
803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
804 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK1_RK4
807 integer(IKG),
intent(out) :: rand
808 real(RKG) ,
intent(in) :: urand, p
812#if IK1_ENABLED && RK3_ENABLED
813 PURE elemental module subroutine setBernRandRUP_IK1_RK3(rand, urand, p)
814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
815 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK1_RK3
818 integer(IKG),
intent(out) :: rand
819 real(RKG) ,
intent(in) :: urand, p
823#if IK1_ENABLED && RK2_ENABLED
824 PURE elemental module subroutine setBernRandRUP_IK1_RK2(rand, urand, p)
825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
826 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK1_RK2
829 integer(IKG),
intent(out) :: rand
830 real(RKG) ,
intent(in) :: urand, p
834#if IK1_ENABLED && RK1_ENABLED
835 PURE elemental module subroutine setBernRandRUP_IK1_RK1(rand, urand, p)
836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
837 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_IK1_RK1
840 integer(IKG),
intent(out) :: rand
841 real(RKG) ,
intent(in) :: urand, p
853#if LK5_ENABLED && RK5_ENABLED
854 PURE elemental module subroutine setBernRandRUP_LK5_RK5(rand, urand, p)
855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
856 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK5_RK5
859 logical(LKG),
intent(out) :: rand
860 real(RKG) ,
intent(in) :: urand, p
864#if LK5_ENABLED && RK4_ENABLED
865 PURE elemental module subroutine setBernRandRUP_LK5_RK4(rand, urand, p)
866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
867 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK5_RK4
870 logical(LKG),
intent(out) :: rand
871 real(RKG) ,
intent(in) :: urand, p
875#if LK5_ENABLED && RK3_ENABLED
876 PURE elemental module subroutine setBernRandRUP_LK5_RK3(rand, urand, p)
877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
878 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK5_RK3
881 logical(LKG),
intent(out) :: rand
882 real(RKG) ,
intent(in) :: urand, p
886#if LK5_ENABLED && RK2_ENABLED
887 PURE elemental module subroutine setBernRandRUP_LK5_RK2(rand, urand, p)
888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
889 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK5_RK2
892 logical(LKG),
intent(out) :: rand
893 real(RKG) ,
intent(in) :: urand, p
897#if LK5_ENABLED && RK1_ENABLED
898 PURE elemental module subroutine setBernRandRUP_LK5_RK1(rand, urand, p)
899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
900 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK5_RK1
903 logical(LKG),
intent(out) :: rand
904 real(RKG) ,
intent(in) :: urand, p
910#if LK4_ENABLED && RK5_ENABLED
911 PURE elemental module subroutine setBernRandRUP_LK4_RK5(rand, urand, p)
912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
913 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK4_RK5
916 logical(LKG),
intent(out) :: rand
917 real(RKG) ,
intent(in) :: urand, p
921#if LK4_ENABLED && RK4_ENABLED
922 PURE elemental module subroutine setBernRandRUP_LK4_RK4(rand, urand, p)
923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
924 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK4_RK4
927 logical(LKG),
intent(out) :: rand
928 real(RKG) ,
intent(in) :: urand, p
932#if LK4_ENABLED && RK3_ENABLED
933 PURE elemental module subroutine setBernRandRUP_LK4_RK3(rand, urand, p)
934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
935 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK4_RK3
938 logical(LKG),
intent(out) :: rand
939 real(RKG) ,
intent(in) :: urand, p
943#if LK4_ENABLED && RK2_ENABLED
944 PURE elemental module subroutine setBernRandRUP_LK4_RK2(rand, urand, p)
945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
946 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK4_RK2
949 logical(LKG),
intent(out) :: rand
950 real(RKG) ,
intent(in) :: urand, p
954#if LK4_ENABLED && RK1_ENABLED
955 PURE elemental module subroutine setBernRandRUP_LK4_RK1(rand, urand, p)
956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
957 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK4_RK1
960 logical(LKG),
intent(out) :: rand
961 real(RKG) ,
intent(in) :: urand, p
967#if LK3_ENABLED && RK5_ENABLED
968 PURE elemental module subroutine setBernRandRUP_LK3_RK5(rand, urand, p)
969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
970 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK3_RK5
973 logical(LKG),
intent(out) :: rand
974 real(RKG) ,
intent(in) :: urand, p
978#if LK3_ENABLED && RK4_ENABLED
979 PURE elemental module subroutine setBernRandRUP_LK3_RK4(rand, urand, p)
980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
981 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK3_RK4
984 logical(LKG),
intent(out) :: rand
985 real(RKG) ,
intent(in) :: urand, p
989#if LK3_ENABLED && RK3_ENABLED
990 PURE elemental module subroutine setBernRandRUP_LK3_RK3(rand, urand, p)
991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
992 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK3_RK3
995 logical(LKG),
intent(out) :: rand
996 real(RKG) ,
intent(in) :: urand, p
1000#if LK3_ENABLED && RK2_ENABLED
1001 PURE elemental module subroutine setBernRandRUP_LK3_RK2(rand, urand, p)
1002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1003 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK3_RK2
1006 logical(LKG),
intent(out) :: rand
1007 real(RKG) ,
intent(in) :: urand, p
1011#if LK3_ENABLED && RK1_ENABLED
1012 PURE elemental module subroutine setBernRandRUP_LK3_RK1(rand, urand, p)
1013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1014 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK3_RK1
1017 logical(LKG),
intent(out) :: rand
1018 real(RKG) ,
intent(in) :: urand, p
1024#if LK2_ENABLED && RK5_ENABLED
1025 PURE elemental module subroutine setBernRandRUP_LK2_RK5(rand, urand, p)
1026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1027 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK2_RK5
1030 logical(LKG),
intent(out) :: rand
1031 real(RKG) ,
intent(in) :: urand, p
1035#if LK2_ENABLED && RK4_ENABLED
1036 PURE elemental module subroutine setBernRandRUP_LK2_RK4(rand, urand, p)
1037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1038 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK2_RK4
1041 logical(LKG),
intent(out) :: rand
1042 real(RKG) ,
intent(in) :: urand, p
1046#if LK2_ENABLED && RK3_ENABLED
1047 PURE elemental module subroutine setBernRandRUP_LK2_RK3(rand, urand, p)
1048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1049 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK2_RK3
1052 logical(LKG),
intent(out) :: rand
1053 real(RKG) ,
intent(in) :: urand, p
1057#if LK2_ENABLED && RK2_ENABLED
1058 PURE elemental module subroutine setBernRandRUP_LK2_RK2(rand, urand, p)
1059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1060 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK2_RK2
1063 logical(LKG),
intent(out) :: rand
1064 real(RKG) ,
intent(in) :: urand, p
1068#if LK2_ENABLED && RK1_ENABLED
1069 PURE elemental module subroutine setBernRandRUP_LK2_RK1(rand, urand, p)
1070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1071 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK2_RK1
1074 logical(LKG),
intent(out) :: rand
1075 real(RKG) ,
intent(in) :: urand, p
1081#if LK1_ENABLED && RK5_ENABLED
1082 PURE elemental module subroutine setBernRandRUP_LK1_RK5(rand, urand, p)
1083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1084 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK1_RK5
1087 logical(LKG),
intent(out) :: rand
1088 real(RKG) ,
intent(in) :: urand, p
1092#if LK1_ENABLED && RK4_ENABLED
1093 PURE elemental module subroutine setBernRandRUP_LK1_RK4(rand, urand, p)
1094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1095 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK1_RK4
1098 logical(LKG),
intent(out) :: rand
1099 real(RKG) ,
intent(in) :: urand, p
1103#if LK1_ENABLED && RK3_ENABLED
1104 PURE elemental module subroutine setBernRandRUP_LK1_RK3(rand, urand, p)
1105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1106 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK1_RK3
1109 logical(LKG),
intent(out) :: rand
1110 real(RKG) ,
intent(in) :: urand, p
1114#if LK1_ENABLED && RK2_ENABLED
1115 PURE elemental module subroutine setBernRandRUP_LK1_RK2(rand, urand, p)
1116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1117 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK1_RK2
1120 logical(LKG),
intent(out) :: rand
1121 real(RKG) ,
intent(in) :: urand, p
1125#if LK1_ENABLED && RK1_ENABLED
1126 PURE elemental module subroutine setBernRandRUP_LK1_RK1(rand, urand, p)
1127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1128 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_LK1_RK1
1131 logical(LKG),
intent(out) :: rand
1132 real(RKG) ,
intent(in) :: urand, p
1145 PURE elemental module subroutine setBernRandRUP_RK5_RK5(rand, urand, p)
1146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1147 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_RK5_RK5
1150 real(RKG) ,
intent(out) :: rand
1151 real(RKG) ,
intent(in) :: urand, p
1156 PURE elemental module subroutine setBernRandRUP_RK4_RK4(rand, urand, p)
1157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1158 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_RK4_RK4
1161 real(RKG) ,
intent(out) :: rand
1162 real(RKG) ,
intent(in) :: urand, p
1167 PURE elemental module subroutine setBernRandRUP_RK3_RK3(rand, urand, p)
1168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1169 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_RK3_RK3
1172 real(RKG) ,
intent(out) :: rand
1173 real(RKG) ,
intent(in) :: urand, p
1178 PURE elemental module subroutine setBernRandRUP_RK2_RK2(rand, urand, p)
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_RK2_RK2
1183 real(RKG) ,
intent(out) :: rand
1184 real(RKG) ,
intent(in) :: urand, p
1189 PURE elemental module subroutine setBernRandRUP_RK1_RK1(rand, urand, p)
1190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1191 !DEC$ ATTRIBUTES DLLEXPORT :: setBernRandRUP_RK1_RK1
1194 real(RKG) ,
intent(out) :: rand
1195 real(RKG) ,
intent(in) :: urand, p
1211end module pm_distBern
Generate and return a scalar or array of rank 1 of length size or the same rank and size as p of Bern...
Generate and return a scalar (or a vector of length size or an array of the same shape as the input p...
Return a scalar or array of arbitrary rank of Bernoulli-distributed random values (0 or 1),...
This module contains classes and procedures for generating Bernoulli-distributed random numbers.
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...
This is the derived type for signifying distributions that are of type Bernoulli as defined in the de...