400 PURE elemental module function getUnifCDF_LU_IK5(x, lower, upper)
result(cdf)
401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
402 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_IK5
405 integer(IKG),
intent(in) :: x
406 integer(IKG),
intent(in) :: lower, upper
412 PURE elemental module function getUnifCDF_LU_IK4(x, lower, upper)
result(cdf)
413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
414 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_IK4
417 integer(IKG),
intent(in) :: x
418 integer(IKG),
intent(in) :: lower, upper
424 PURE elemental module function getUnifCDF_LU_IK3(x, lower, upper)
result(cdf)
425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
426 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_IK3
429 integer(IKG),
intent(in) :: x
430 integer(IKG),
intent(in) :: lower, upper
436 PURE elemental module function getUnifCDF_LU_IK2(x, lower, upper)
result(cdf)
437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
438 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_IK2
441 integer(IKG),
intent(in) :: x
442 integer(IKG),
intent(in) :: lower, upper
448 PURE elemental module function getUnifCDF_LU_IK1(x, lower, upper)
result(cdf)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_IK1
453 integer(IKG),
intent(in) :: x
454 integer(IKG),
intent(in) :: lower, upper
462 PURE elemental module function getUnifCDF_LU_CK5(x, lower, upper)
result(cdf)
463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
464 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_CK5
467 complex(CKG),
intent(in) :: x
468 complex(CKG),
intent(in) :: lower, upper
474 PURE elemental module function getUnifCDF_LU_CK4(x, lower, upper)
result(cdf)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_CK4
479 complex(CKG),
intent(in) :: x
480 complex(CKG),
intent(in) :: lower, upper
486 PURE elemental module function getUnifCDF_LU_CK3(x, lower, upper)
result(cdf)
487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
488 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_CK3
491 complex(CKG),
intent(in) :: x
492 complex(CKG),
intent(in) :: lower, upper
498 PURE elemental module function getUnifCDF_LU_CK2(x, lower, upper)
result(cdf)
499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
500 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_CK2
503 complex(CKG),
intent(in) :: x
504 complex(CKG),
intent(in) :: lower, upper
510 PURE elemental module function getUnifCDF_LU_CK1(x, lower, upper)
result(cdf)
511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
512 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_CK1
515 complex(CKG),
intent(in) :: x
516 complex(CKG),
intent(in) :: lower, upper
524 PURE elemental module function getUnifCDF_LU_RK5(x, lower, upper)
result(cdf)
525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
526 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_RK5
529 real(RKG) ,
intent(in) :: x
530 real(RKG) ,
intent(in) :: lower, upper
536 PURE elemental module function getUnifCDF_LU_RK4(x, lower, upper)
result(cdf)
537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
538 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_RK4
541 real(RKG) ,
intent(in) :: x
542 real(RKG) ,
intent(in) :: lower, upper
548 PURE elemental module function getUnifCDF_LU_RK3(x, lower, upper)
result(cdf)
549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
550 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_RK3
553 real(RKG) ,
intent(in) :: x
554 real(RKG) ,
intent(in) :: lower, upper
560 PURE elemental module function getUnifCDF_LU_RK2(x, lower, upper)
result(cdf)
561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
562 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_RK2
565 real(RKG) ,
intent(in) :: x
566 real(RKG) ,
intent(in) :: lower, upper
572 PURE elemental module function getUnifCDF_LU_RK1(x, lower, upper)
result(cdf)
573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
574 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_LU_RK1
577 real(RKG) ,
intent(in) :: x
578 real(RKG) ,
intent(in) :: lower, upper
594 PURE elemental module function getUnifCDF_DD_IK5(x)
result(cdf)
595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
596 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_IK5
599 integer(IKG),
intent(in) :: x
605 PURE elemental module function getUnifCDF_DD_IK4(x)
result(cdf)
606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
607 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_IK4
610 integer(IKG),
intent(in) :: x
616 PURE elemental module function getUnifCDF_DD_IK3(x)
result(cdf)
617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
618 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_IK3
621 integer(IKG),
intent(in) :: x
627 PURE elemental module function getUnifCDF_DD_IK2(x)
result(cdf)
628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
629 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_IK2
632 integer(IKG),
intent(in) :: x
638 PURE elemental module function getUnifCDF_DD_IK1(x)
result(cdf)
639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
640 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_IK1
643 integer(IKG),
intent(in) :: x
651 PURE elemental module function getUnifCDF_DD_CK5(x)
result(cdf)
652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
653 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_CK5
656 complex(CKG),
intent(in) :: x
662 PURE elemental module function getUnifCDF_DD_CK4(x)
result(cdf)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_CK4
667 complex(CKG),
intent(in) :: x
673 PURE elemental module function getUnifCDF_DD_CK3(x)
result(cdf)
674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
675 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_CK3
678 complex(CKG),
intent(in) :: x
684 PURE elemental module function getUnifCDF_DD_CK2(x)
result(cdf)
685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
686 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_CK2
689 complex(CKG),
intent(in) :: x
695 PURE elemental module function getUnifCDF_DD_CK1(x)
result(cdf)
696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
697 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_CK1
700 complex(CKG),
intent(in) :: x
708 PURE elemental module function getUnifCDF_DD_RK5(x)
result(cdf)
709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
710 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_RK5
713 real(RKG) ,
intent(in) :: x
719 PURE elemental module function getUnifCDF_DD_RK4(x)
result(cdf)
720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
721 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_RK4
724 real(RKG) ,
intent(in) :: x
730 PURE elemental module function getUnifCDF_DD_RK3(x)
result(cdf)
731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
732 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_RK3
735 real(RKG) ,
intent(in) :: x
741 PURE elemental module function getUnifCDF_DD_RK2(x)
result(cdf)
742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
743 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_RK2
746 real(RKG) ,
intent(in) :: x
752 PURE elemental module function getUnifCDF_DD_RK1(x)
result(cdf)
753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
754 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifCDF_DD_RK1
757 real(RKG) ,
intent(in) :: x
843#if RK5_ENABLED && IK5_ENABLED
844 PURE module subroutine setUnifCDF_DD_D0_RK5_IK5(cdf, x)
845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
846 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK5_IK5
849 real(RKG) ,
intent(out) :: cdf
850 integer(IKG),
intent(in) :: x
854#if RK4_ENABLED && IK5_ENABLED
855 PURE module subroutine setUnifCDF_DD_D0_RK4_IK5(cdf, x)
856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
857 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK4_IK5
860 real(RKG) ,
intent(out) :: cdf
861 integer(IKG),
intent(in) :: x
865#if RK3_ENABLED && IK5_ENABLED
866 PURE module subroutine setUnifCDF_DD_D0_RK3_IK5(cdf, x)
867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
868 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK3_IK5
871 real(RKG) ,
intent(out) :: cdf
872 integer(IKG),
intent(in) :: x
876#if RK2_ENABLED && IK5_ENABLED
877 PURE module subroutine setUnifCDF_DD_D0_RK2_IK5(cdf, x)
878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
879 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK2_IK5
882 real(RKG) ,
intent(out) :: cdf
883 integer(IKG),
intent(in) :: x
887#if RK1_ENABLED && IK5_ENABLED
888 PURE module subroutine setUnifCDF_DD_D0_RK1_IK5(cdf, x)
889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
890 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK1_IK5
893 real(RKG) ,
intent(out) :: cdf
894 integer(IKG),
intent(in) :: x
900#if RK5_ENABLED && IK4_ENABLED
901 PURE module subroutine setUnifCDF_DD_D0_RK5_IK4(cdf, x)
902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
903 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK5_IK4
906 real(RKG) ,
intent(out) :: cdf
907 integer(IKG),
intent(in) :: x
911#if RK4_ENABLED && IK4_ENABLED
912 PURE module subroutine setUnifCDF_DD_D0_RK4_IK4(cdf, x)
913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
914 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK4_IK4
917 real(RKG) ,
intent(out) :: cdf
918 integer(IKG),
intent(in) :: x
922#if RK3_ENABLED && IK4_ENABLED
923 PURE module subroutine setUnifCDF_DD_D0_RK3_IK4(cdf, x)
924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
925 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK3_IK4
928 real(RKG) ,
intent(out) :: cdf
929 integer(IKG),
intent(in) :: x
933#if RK2_ENABLED && IK4_ENABLED
934 PURE module subroutine setUnifCDF_DD_D0_RK2_IK4(cdf, x)
935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
936 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK2_IK4
939 real(RKG) ,
intent(out) :: cdf
940 integer(IKG),
intent(in) :: x
944#if RK1_ENABLED && IK4_ENABLED
945 PURE module subroutine setUnifCDF_DD_D0_RK1_IK4(cdf, x)
946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
947 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK1_IK4
950 real(RKG) ,
intent(out) :: cdf
951 integer(IKG),
intent(in) :: x
957#if RK5_ENABLED && IK3_ENABLED
958 PURE module subroutine setUnifCDF_DD_D0_RK5_IK3(cdf, x)
959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
960 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK5_IK3
963 real(RKG) ,
intent(out) :: cdf
964 integer(IKG),
intent(in) :: x
968#if RK4_ENABLED && IK3_ENABLED
969 PURE module subroutine setUnifCDF_DD_D0_RK4_IK3(cdf, x)
970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
971 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK4_IK3
974 real(RKG) ,
intent(out) :: cdf
975 integer(IKG),
intent(in) :: x
979#if RK3_ENABLED && IK3_ENABLED
980 PURE module subroutine setUnifCDF_DD_D0_RK3_IK3(cdf, x)
981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
982 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK3_IK3
985 real(RKG) ,
intent(out) :: cdf
986 integer(IKG),
intent(in) :: x
990#if RK2_ENABLED && IK3_ENABLED
991 PURE module subroutine setUnifCDF_DD_D0_RK2_IK3(cdf, x)
992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
993 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK2_IK3
996 real(RKG) ,
intent(out) :: cdf
997 integer(IKG),
intent(in) :: x
1001#if RK1_ENABLED && IK3_ENABLED
1002 PURE module subroutine setUnifCDF_DD_D0_RK1_IK3(cdf, x)
1003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1004 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK1_IK3
1007 real(RKG) ,
intent(out) :: cdf
1008 integer(IKG),
intent(in) :: x
1014#if RK5_ENABLED && IK2_ENABLED
1015 PURE module subroutine setUnifCDF_DD_D0_RK5_IK2(cdf, x)
1016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1017 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK5_IK2
1020 real(RKG) ,
intent(out) :: cdf
1021 integer(IKG),
intent(in) :: x
1025#if RK4_ENABLED && IK2_ENABLED
1026 PURE module subroutine setUnifCDF_DD_D0_RK4_IK2(cdf, x)
1027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1028 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK4_IK2
1031 real(RKG) ,
intent(out) :: cdf
1032 integer(IKG),
intent(in) :: x
1036#if RK3_ENABLED && IK2_ENABLED
1037 PURE module subroutine setUnifCDF_DD_D0_RK3_IK2(cdf, x)
1038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1039 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK3_IK2
1042 real(RKG) ,
intent(out) :: cdf
1043 integer(IKG),
intent(in) :: x
1047#if RK2_ENABLED && IK2_ENABLED
1048 PURE module subroutine setUnifCDF_DD_D0_RK2_IK2(cdf, x)
1049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1050 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK2_IK2
1053 real(RKG) ,
intent(out) :: cdf
1054 integer(IKG),
intent(in) :: x
1058#if RK1_ENABLED && IK2_ENABLED
1059 PURE module subroutine setUnifCDF_DD_D0_RK1_IK2(cdf, x)
1060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1061 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK1_IK2
1064 real(RKG) ,
intent(out) :: cdf
1065 integer(IKG),
intent(in) :: x
1071#if RK5_ENABLED && IK1_ENABLED
1072 PURE module subroutine setUnifCDF_DD_D0_RK5_IK1(cdf, x)
1073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1074 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK5_IK1
1077 real(RKG) ,
intent(out) :: cdf
1078 integer(IKG),
intent(in) :: x
1082#if RK4_ENABLED && IK1_ENABLED
1083 PURE module subroutine setUnifCDF_DD_D0_RK4_IK1(cdf, x)
1084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1085 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK4_IK1
1088 real(RKG) ,
intent(out) :: cdf
1089 integer(IKG),
intent(in) :: x
1093#if RK3_ENABLED && IK1_ENABLED
1094 PURE module subroutine setUnifCDF_DD_D0_RK3_IK1(cdf, x)
1095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1096 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK3_IK1
1099 real(RKG) ,
intent(out) :: cdf
1100 integer(IKG),
intent(in) :: x
1104#if RK2_ENABLED && IK1_ENABLED
1105 PURE module subroutine setUnifCDF_DD_D0_RK2_IK1(cdf, x)
1106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1107 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK2_IK1
1110 real(RKG) ,
intent(out) :: cdf
1111 integer(IKG),
intent(in) :: x
1115#if RK1_ENABLED && IK1_ENABLED
1116 PURE module subroutine setUnifCDF_DD_D0_RK1_IK1(cdf, x)
1117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1118 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK1_IK1
1121 real(RKG) ,
intent(out) :: cdf
1122 integer(IKG),
intent(in) :: x
1135 PURE module subroutine setUnifCDF_DD_D0_CK5(cdf, x)
1136#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1137 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_CK5
1140 complex(CKG),
intent(out) :: cdf
1141 complex(CKG),
intent(in) :: x
1146 PURE module subroutine setUnifCDF_DD_D0_CK4(cdf, x)
1147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1148 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_CK4
1151 complex(CKG),
intent(out) :: cdf
1152 complex(CKG),
intent(in) :: x
1157 PURE module subroutine setUnifCDF_DD_D0_CK3(cdf, x)
1158#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1159 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_CK3
1162 complex(CKG),
intent(out) :: cdf
1163 complex(CKG),
intent(in) :: x
1168 PURE module subroutine setUnifCDF_DD_D0_CK2(cdf, x)
1169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1170 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_CK2
1173 complex(CKG),
intent(out) :: cdf
1174 complex(CKG),
intent(in) :: x
1179 PURE module subroutine setUnifCDF_DD_D0_CK1(cdf, x)
1180#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1181 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_CK1
1184 complex(CKG),
intent(out) :: cdf
1185 complex(CKG),
intent(in) :: x
1198 PURE module subroutine setUnifCDF_DD_D0_RK5(cdf, x)
1199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1200 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK5
1203 real(RKG) ,
intent(out) :: cdf
1204 real(RKG) ,
intent(in) :: x
1209 PURE module subroutine setUnifCDF_DD_D0_RK4(cdf, x)
1210#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1211 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK4
1214 real(RKG) ,
intent(out) :: cdf
1215 real(RKG) ,
intent(in) :: x
1220 PURE module subroutine setUnifCDF_DD_D0_RK3(cdf, x)
1221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1222 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK3
1225 real(RKG) ,
intent(out) :: cdf
1226 real(RKG) ,
intent(in) :: x
1231 PURE module subroutine setUnifCDF_DD_D0_RK2(cdf, x)
1232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1233 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK2
1236 real(RKG) ,
intent(out) :: cdf
1237 real(RKG) ,
intent(in) :: x
1242 PURE module subroutine setUnifCDF_DD_D0_RK1(cdf, x)
1243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1244 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D0_RK1
1247 real(RKG) ,
intent(out) :: cdf
1248 real(RKG) ,
intent(in) :: x
1264#if RK5_ENABLED && IK5_ENABLED
1265 PURE module subroutine setUnifCDF_DD_D1_RK5_IK5(cdf, X)
1266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1267 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK5_IK5
1270 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1271 integer(IKG),
intent(in) ,
contiguous :: X(:)
1275#if RK4_ENABLED && IK5_ENABLED
1276 PURE module subroutine setUnifCDF_DD_D1_RK4_IK5(cdf, X)
1277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1278 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK4_IK5
1281 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1282 integer(IKG),
intent(in) ,
contiguous :: X(:)
1286#if RK3_ENABLED && IK5_ENABLED
1287 PURE module subroutine setUnifCDF_DD_D1_RK3_IK5(cdf, X)
1288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1289 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK3_IK5
1292 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1293 integer(IKG),
intent(in) ,
contiguous :: X(:)
1297#if RK2_ENABLED && IK5_ENABLED
1298 PURE module subroutine setUnifCDF_DD_D1_RK2_IK5(cdf, X)
1299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1300 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK2_IK5
1303 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1304 integer(IKG),
intent(in) ,
contiguous :: X(:)
1308#if RK1_ENABLED && IK5_ENABLED
1309 PURE module subroutine setUnifCDF_DD_D1_RK1_IK5(cdf, X)
1310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1311 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK1_IK5
1314 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1315 integer(IKG),
intent(in) ,
contiguous :: X(:)
1321#if RK5_ENABLED && IK4_ENABLED
1322 PURE module subroutine setUnifCDF_DD_D1_RK5_IK4(cdf, X)
1323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1324 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK5_IK4
1327 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1328 integer(IKG),
intent(in) ,
contiguous :: X(:)
1332#if RK4_ENABLED && IK4_ENABLED
1333 PURE module subroutine setUnifCDF_DD_D1_RK4_IK4(cdf, X)
1334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1335 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK4_IK4
1338 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1339 integer(IKG),
intent(in) ,
contiguous :: X(:)
1343#if RK3_ENABLED && IK4_ENABLED
1344 PURE module subroutine setUnifCDF_DD_D1_RK3_IK4(cdf, X)
1345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1346 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK3_IK4
1349 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1350 integer(IKG),
intent(in) ,
contiguous :: X(:)
1354#if RK2_ENABLED && IK4_ENABLED
1355 PURE module subroutine setUnifCDF_DD_D1_RK2_IK4(cdf, X)
1356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1357 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK2_IK4
1360 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1361 integer(IKG),
intent(in) ,
contiguous :: X(:)
1365#if RK1_ENABLED && IK4_ENABLED
1366 PURE module subroutine setUnifCDF_DD_D1_RK1_IK4(cdf, X)
1367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1368 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK1_IK4
1371 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1372 integer(IKG),
intent(in) ,
contiguous :: X(:)
1378#if RK5_ENABLED && IK3_ENABLED
1379 PURE module subroutine setUnifCDF_DD_D1_RK5_IK3(cdf, X)
1380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1381 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK5_IK3
1384 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1385 integer(IKG),
intent(in) ,
contiguous :: X(:)
1389#if RK4_ENABLED && IK3_ENABLED
1390 PURE module subroutine setUnifCDF_DD_D1_RK4_IK3(cdf, X)
1391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1392 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK4_IK3
1395 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1396 integer(IKG),
intent(in) ,
contiguous :: X(:)
1400#if RK3_ENABLED && IK3_ENABLED
1401 PURE module subroutine setUnifCDF_DD_D1_RK3_IK3(cdf, X)
1402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1403 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK3_IK3
1406 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1407 integer(IKG),
intent(in) ,
contiguous :: X(:)
1411#if RK2_ENABLED && IK3_ENABLED
1412 PURE module subroutine setUnifCDF_DD_D1_RK2_IK3(cdf, X)
1413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1414 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK2_IK3
1417 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1418 integer(IKG),
intent(in) ,
contiguous :: X(:)
1422#if RK1_ENABLED && IK3_ENABLED
1423 PURE module subroutine setUnifCDF_DD_D1_RK1_IK3(cdf, X)
1424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1425 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK1_IK3
1428 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1429 integer(IKG),
intent(in) ,
contiguous :: X(:)
1435#if RK5_ENABLED && IK2_ENABLED
1436 PURE module subroutine setUnifCDF_DD_D1_RK5_IK2(cdf, X)
1437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1438 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK5_IK2
1441 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1442 integer(IKG),
intent(in) ,
contiguous :: X(:)
1446#if RK4_ENABLED && IK2_ENABLED
1447 PURE module subroutine setUnifCDF_DD_D1_RK4_IK2(cdf, X)
1448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1449 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK4_IK2
1452 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1453 integer(IKG),
intent(in) ,
contiguous :: X(:)
1457#if RK3_ENABLED && IK2_ENABLED
1458 PURE module subroutine setUnifCDF_DD_D1_RK3_IK2(cdf, X)
1459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1460 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK3_IK2
1463 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1464 integer(IKG),
intent(in) ,
contiguous :: X(:)
1468#if RK2_ENABLED && IK2_ENABLED
1469 PURE module subroutine setUnifCDF_DD_D1_RK2_IK2(cdf, X)
1470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1471 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK2_IK2
1474 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1475 integer(IKG),
intent(in) ,
contiguous :: X(:)
1479#if RK1_ENABLED && IK2_ENABLED
1480 PURE module subroutine setUnifCDF_DD_D1_RK1_IK2(cdf, X)
1481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1482 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK1_IK2
1485 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1486 integer(IKG),
intent(in) ,
contiguous :: X(:)
1492#if RK5_ENABLED && IK1_ENABLED
1493 PURE module subroutine setUnifCDF_DD_D1_RK5_IK1(cdf, X)
1494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1495 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK5_IK1
1498 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1499 integer(IKG),
intent(in) ,
contiguous :: X(:)
1503#if RK4_ENABLED && IK1_ENABLED
1504 PURE module subroutine setUnifCDF_DD_D1_RK4_IK1(cdf, X)
1505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1506 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK4_IK1
1509 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1510 integer(IKG),
intent(in) ,
contiguous :: X(:)
1514#if RK3_ENABLED && IK1_ENABLED
1515 PURE module subroutine setUnifCDF_DD_D1_RK3_IK1(cdf, X)
1516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1517 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK3_IK1
1520 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1521 integer(IKG),
intent(in) ,
contiguous :: X(:)
1525#if RK2_ENABLED && IK1_ENABLED
1526 PURE module subroutine setUnifCDF_DD_D1_RK2_IK1(cdf, X)
1527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1528 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK2_IK1
1531 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1532 integer(IKG),
intent(in) ,
contiguous :: X(:)
1536#if RK1_ENABLED && IK1_ENABLED
1537 PURE module subroutine setUnifCDF_DD_D1_RK1_IK1(cdf, X)
1538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1539 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK1_IK1
1542 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1543 integer(IKG),
intent(in) ,
contiguous :: X(:)
1556 PURE module subroutine setUnifCDF_DD_D1_CK5(cdf, X)
1557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1558 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_CK5
1561 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
1562 complex(CKG),
intent(in) ,
contiguous :: X(:)
1567 PURE module subroutine setUnifCDF_DD_D1_CK4(cdf, X)
1568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1569 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_CK4
1572 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
1573 complex(CKG),
intent(in) ,
contiguous :: X(:)
1578 PURE module subroutine setUnifCDF_DD_D1_CK3(cdf, X)
1579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1580 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_CK3
1583 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
1584 complex(CKG),
intent(in) ,
contiguous :: X(:)
1589 PURE module subroutine setUnifCDF_DD_D1_CK2(cdf, X)
1590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1591 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_CK2
1594 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
1595 complex(CKG),
intent(in) ,
contiguous :: X(:)
1600 PURE module subroutine setUnifCDF_DD_D1_CK1(cdf, X)
1601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1602 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_CK1
1605 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
1606 complex(CKG),
intent(in) ,
contiguous :: X(:)
1619 PURE module subroutine setUnifCDF_DD_D1_RK5(cdf, X)
1620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1621 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK5
1624 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1625 real(RKG) ,
intent(in) ,
contiguous :: X(:)
1630 PURE module subroutine setUnifCDF_DD_D1_RK4(cdf, X)
1631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1632 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK4
1635 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1636 real(RKG) ,
intent(in) ,
contiguous :: X(:)
1641 PURE module subroutine setUnifCDF_DD_D1_RK3(cdf, X)
1642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1643 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK3
1646 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1647 real(RKG) ,
intent(in) ,
contiguous :: X(:)
1652 PURE module subroutine setUnifCDF_DD_D1_RK2(cdf, X)
1653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1654 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK2
1657 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1658 real(RKG) ,
intent(in) ,
contiguous :: X(:)
1663 PURE module subroutine setUnifCDF_DD_D1_RK1(cdf, X)
1664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1665 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_DD_D1_RK1
1668 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
1669 real(RKG) ,
intent(in) ,
contiguous :: X(:)
1691#if RK5_ENABLED && IK5_ENABLED
1692 PURE module subroutine setUnifCDF_LU_D0_RK5_IK5(cdf, x, lower, upper)
1693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1694 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK5_IK5
1697 real(RKG) ,
intent(out) :: cdf
1698 integer(IKG),
intent(in) :: x
1699 integer(IKG),
intent(in) :: lower, upper
1703#if RK4_ENABLED && IK5_ENABLED
1704 PURE module subroutine setUnifCDF_LU_D0_RK4_IK5(cdf, x, lower, upper)
1705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1706 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK4_IK5
1709 real(RKG) ,
intent(out) :: cdf
1710 integer(IKG),
intent(in) :: x
1711 integer(IKG),
intent(in) :: lower, upper
1715#if RK3_ENABLED && IK5_ENABLED
1716 PURE module subroutine setUnifCDF_LU_D0_RK3_IK5(cdf, x, lower, upper)
1717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1718 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK3_IK5
1721 real(RKG) ,
intent(out) :: cdf
1722 integer(IKG),
intent(in) :: x
1723 integer(IKG),
intent(in) :: lower, upper
1727#if RK2_ENABLED && IK5_ENABLED
1728 PURE module subroutine setUnifCDF_LU_D0_RK2_IK5(cdf, x, lower, upper)
1729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1730 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK2_IK5
1733 real(RKG) ,
intent(out) :: cdf
1734 integer(IKG),
intent(in) :: x
1735 integer(IKG),
intent(in) :: lower, upper
1739#if RK1_ENABLED && IK5_ENABLED
1740 PURE module subroutine setUnifCDF_LU_D0_RK1_IK5(cdf, x, lower, upper)
1741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1742 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK1_IK5
1745 real(RKG) ,
intent(out) :: cdf
1746 integer(IKG),
intent(in) :: x
1747 integer(IKG),
intent(in) :: lower, upper
1753#if RK5_ENABLED && IK4_ENABLED
1754 PURE module subroutine setUnifCDF_LU_D0_RK5_IK4(cdf, x, lower, upper)
1755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1756 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK5_IK4
1759 real(RKG) ,
intent(out) :: cdf
1760 integer(IKG),
intent(in) :: x
1761 integer(IKG),
intent(in) :: lower, upper
1765#if RK4_ENABLED && IK4_ENABLED
1766 PURE module subroutine setUnifCDF_LU_D0_RK4_IK4(cdf, x, lower, upper)
1767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1768 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK4_IK4
1771 real(RKG) ,
intent(out) :: cdf
1772 integer(IKG),
intent(in) :: x
1773 integer(IKG),
intent(in) :: lower, upper
1777#if RK3_ENABLED && IK4_ENABLED
1778 PURE module subroutine setUnifCDF_LU_D0_RK3_IK4(cdf, x, lower, upper)
1779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1780 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK3_IK4
1783 real(RKG) ,
intent(out) :: cdf
1784 integer(IKG),
intent(in) :: x
1785 integer(IKG),
intent(in) :: lower, upper
1789#if RK2_ENABLED && IK4_ENABLED
1790 PURE module subroutine setUnifCDF_LU_D0_RK2_IK4(cdf, x, lower, upper)
1791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1792 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK2_IK4
1795 real(RKG) ,
intent(out) :: cdf
1796 integer(IKG),
intent(in) :: x
1797 integer(IKG),
intent(in) :: lower, upper
1801#if RK1_ENABLED && IK4_ENABLED
1802 PURE module subroutine setUnifCDF_LU_D0_RK1_IK4(cdf, x, lower, upper)
1803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1804 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK1_IK4
1807 real(RKG) ,
intent(out) :: cdf
1808 integer(IKG),
intent(in) :: x
1809 integer(IKG),
intent(in) :: lower, upper
1815#if RK5_ENABLED && IK3_ENABLED
1816 PURE module subroutine setUnifCDF_LU_D0_RK5_IK3(cdf, x, lower, upper)
1817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1818 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK5_IK3
1821 real(RKG) ,
intent(out) :: cdf
1822 integer(IKG),
intent(in) :: x
1823 integer(IKG),
intent(in) :: lower, upper
1827#if RK4_ENABLED && IK3_ENABLED
1828 PURE module subroutine setUnifCDF_LU_D0_RK4_IK3(cdf, x, lower, upper)
1829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1830 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK4_IK3
1833 real(RKG) ,
intent(out) :: cdf
1834 integer(IKG),
intent(in) :: x
1835 integer(IKG),
intent(in) :: lower, upper
1839#if RK3_ENABLED && IK3_ENABLED
1840 PURE module subroutine setUnifCDF_LU_D0_RK3_IK3(cdf, x, lower, upper)
1841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1842 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK3_IK3
1845 real(RKG) ,
intent(out) :: cdf
1846 integer(IKG),
intent(in) :: x
1847 integer(IKG),
intent(in) :: lower, upper
1851#if RK2_ENABLED && IK3_ENABLED
1852 PURE module subroutine setUnifCDF_LU_D0_RK2_IK3(cdf, x, lower, upper)
1853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1854 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK2_IK3
1857 real(RKG) ,
intent(out) :: cdf
1858 integer(IKG),
intent(in) :: x
1859 integer(IKG),
intent(in) :: lower, upper
1863#if RK1_ENABLED && IK3_ENABLED
1864 PURE module subroutine setUnifCDF_LU_D0_RK1_IK3(cdf, x, lower, upper)
1865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1866 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK1_IK3
1869 real(RKG) ,
intent(out) :: cdf
1870 integer(IKG),
intent(in) :: x
1871 integer(IKG),
intent(in) :: lower, upper
1877#if RK5_ENABLED && IK2_ENABLED
1878 PURE module subroutine setUnifCDF_LU_D0_RK5_IK2(cdf, x, lower, upper)
1879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1880 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK5_IK2
1883 real(RKG) ,
intent(out) :: cdf
1884 integer(IKG),
intent(in) :: x
1885 integer(IKG),
intent(in) :: lower, upper
1889#if RK4_ENABLED && IK2_ENABLED
1890 PURE module subroutine setUnifCDF_LU_D0_RK4_IK2(cdf, x, lower, upper)
1891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1892 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK4_IK2
1895 real(RKG) ,
intent(out) :: cdf
1896 integer(IKG),
intent(in) :: x
1897 integer(IKG),
intent(in) :: lower, upper
1901#if RK3_ENABLED && IK2_ENABLED
1902 PURE module subroutine setUnifCDF_LU_D0_RK3_IK2(cdf, x, lower, upper)
1903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1904 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK3_IK2
1907 real(RKG) ,
intent(out) :: cdf
1908 integer(IKG),
intent(in) :: x
1909 integer(IKG),
intent(in) :: lower, upper
1913#if RK2_ENABLED && IK2_ENABLED
1914 PURE module subroutine setUnifCDF_LU_D0_RK2_IK2(cdf, x, lower, upper)
1915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1916 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK2_IK2
1919 real(RKG) ,
intent(out) :: cdf
1920 integer(IKG),
intent(in) :: x
1921 integer(IKG),
intent(in) :: lower, upper
1925#if RK1_ENABLED && IK2_ENABLED
1926 PURE module subroutine setUnifCDF_LU_D0_RK1_IK2(cdf, x, lower, upper)
1927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1928 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK1_IK2
1931 real(RKG) ,
intent(out) :: cdf
1932 integer(IKG),
intent(in) :: x
1933 integer(IKG),
intent(in) :: lower, upper
1939#if RK5_ENABLED && IK1_ENABLED
1940 PURE module subroutine setUnifCDF_LU_D0_RK5_IK1(cdf, x, lower, upper)
1941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1942 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK5_IK1
1945 real(RKG) ,
intent(out) :: cdf
1946 integer(IKG),
intent(in) :: x
1947 integer(IKG),
intent(in) :: lower, upper
1951#if RK4_ENABLED && IK1_ENABLED
1952 PURE module subroutine setUnifCDF_LU_D0_RK4_IK1(cdf, x, lower, upper)
1953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1954 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK4_IK1
1957 real(RKG) ,
intent(out) :: cdf
1958 integer(IKG),
intent(in) :: x
1959 integer(IKG),
intent(in) :: lower, upper
1963#if RK3_ENABLED && IK1_ENABLED
1964 PURE module subroutine setUnifCDF_LU_D0_RK3_IK1(cdf, x, lower, upper)
1965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1966 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK3_IK1
1969 real(RKG) ,
intent(out) :: cdf
1970 integer(IKG),
intent(in) :: x
1971 integer(IKG),
intent(in) :: lower, upper
1975#if RK2_ENABLED && IK1_ENABLED
1976 PURE module subroutine setUnifCDF_LU_D0_RK2_IK1(cdf, x, lower, upper)
1977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1978 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK2_IK1
1981 real(RKG) ,
intent(out) :: cdf
1982 integer(IKG),
intent(in) :: x
1983 integer(IKG),
intent(in) :: lower, upper
1987#if RK1_ENABLED && IK1_ENABLED
1988 PURE module subroutine setUnifCDF_LU_D0_RK1_IK1(cdf, x, lower, upper)
1989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1990 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK1_IK1
1993 real(RKG) ,
intent(out) :: cdf
1994 integer(IKG),
intent(in) :: x
1995 integer(IKG),
intent(in) :: lower, upper
2008 PURE module subroutine setUnifCDF_LU_D0_CK5(cdf, x, lower, upper)
2009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2010 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_CK5
2013 complex(CKG),
intent(out) :: cdf
2014 complex(CKG),
intent(in) :: x
2015 complex(CKG),
intent(in) :: lower, upper
2020 PURE module subroutine setUnifCDF_LU_D0_CK4(cdf, x, lower, upper)
2021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2022 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_CK4
2025 complex(CKG),
intent(out) :: cdf
2026 complex(CKG),
intent(in) :: x
2027 complex(CKG),
intent(in) :: lower, upper
2032 PURE module subroutine setUnifCDF_LU_D0_CK3(cdf, x, lower, upper)
2033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2034 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_CK3
2037 complex(CKG),
intent(out) :: cdf
2038 complex(CKG),
intent(in) :: x
2039 complex(CKG),
intent(in) :: lower, upper
2044 PURE module subroutine setUnifCDF_LU_D0_CK2(cdf, x, lower, upper)
2045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2046 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_CK2
2049 complex(CKG),
intent(out) :: cdf
2050 complex(CKG),
intent(in) :: x
2051 complex(CKG),
intent(in) :: lower, upper
2056 PURE module subroutine setUnifCDF_LU_D0_CK1(cdf, x, lower, upper)
2057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2058 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_CK1
2061 complex(CKG),
intent(out) :: cdf
2062 complex(CKG),
intent(in) :: x
2063 complex(CKG),
intent(in) :: lower, upper
2076 PURE module subroutine setUnifCDF_LU_D0_RK5(cdf, x, lower, upper)
2077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2078 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK5
2081 real(RKG) ,
intent(out) :: cdf
2082 real(RKG) ,
intent(in) :: x
2083 real(RKG) ,
intent(in) :: lower, upper
2088 PURE module subroutine setUnifCDF_LU_D0_RK4(cdf, x, lower, upper)
2089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2090 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK4
2093 real(RKG) ,
intent(out) :: cdf
2094 real(RKG) ,
intent(in) :: x
2095 real(RKG) ,
intent(in) :: lower, upper
2100 PURE module subroutine setUnifCDF_LU_D0_RK3(cdf, x, lower, upper)
2101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2102 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK3
2105 real(RKG) ,
intent(out) :: cdf
2106 real(RKG) ,
intent(in) :: x
2107 real(RKG) ,
intent(in) :: lower, upper
2112 PURE module subroutine setUnifCDF_LU_D0_RK2(cdf, x, lower, upper)
2113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2114 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK2
2117 real(RKG) ,
intent(out) :: cdf
2118 real(RKG) ,
intent(in) :: x
2119 real(RKG) ,
intent(in) :: lower, upper
2124 PURE module subroutine setUnifCDF_LU_D0_RK1(cdf, x, lower, upper)
2125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2126 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D0_RK1
2129 real(RKG) ,
intent(out) :: cdf
2130 real(RKG) ,
intent(in) :: x
2131 real(RKG) ,
intent(in) :: lower, upper
2147#if RK5_ENABLED && IK5_ENABLED
2148 PURE module subroutine setUnifCDF_LU_D1_RK5_IK5(cdf, X, lower, upper)
2149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2150 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK5_IK5
2153 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2154 integer(IKG),
intent(in) ,
contiguous :: X(:)
2155 integer(IKG),
intent(in) :: lower, upper
2159#if RK4_ENABLED && IK5_ENABLED
2160 PURE module subroutine setUnifCDF_LU_D1_RK4_IK5(cdf, X, lower, upper)
2161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2162 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK4_IK5
2165 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2166 integer(IKG),
intent(in) ,
contiguous :: X(:)
2167 integer(IKG),
intent(in) :: lower, upper
2171#if RK3_ENABLED && IK5_ENABLED
2172 PURE module subroutine setUnifCDF_LU_D1_RK3_IK5(cdf, X, lower, upper)
2173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2174 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK3_IK5
2177 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2178 integer(IKG),
intent(in) ,
contiguous :: X(:)
2179 integer(IKG),
intent(in) :: lower, upper
2183#if RK2_ENABLED && IK5_ENABLED
2184 PURE module subroutine setUnifCDF_LU_D1_RK2_IK5(cdf, X, lower, upper)
2185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2186 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK2_IK5
2189 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2190 integer(IKG),
intent(in) ,
contiguous :: X(:)
2191 integer(IKG),
intent(in) :: lower, upper
2195#if RK1_ENABLED && IK5_ENABLED
2196 PURE module subroutine setUnifCDF_LU_D1_RK1_IK5(cdf, X, lower, upper)
2197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2198 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK1_IK5
2201 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2202 integer(IKG),
intent(in) ,
contiguous :: X(:)
2203 integer(IKG),
intent(in) :: lower, upper
2209#if RK5_ENABLED && IK4_ENABLED
2210 PURE module subroutine setUnifCDF_LU_D1_RK5_IK4(cdf, X, lower, upper)
2211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2212 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK5_IK4
2215 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2216 integer(IKG),
intent(in) ,
contiguous :: X(:)
2217 integer(IKG),
intent(in) :: lower, upper
2221#if RK4_ENABLED && IK4_ENABLED
2222 PURE module subroutine setUnifCDF_LU_D1_RK4_IK4(cdf, X, lower, upper)
2223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2224 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK4_IK4
2227 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2228 integer(IKG),
intent(in) ,
contiguous :: X(:)
2229 integer(IKG),
intent(in) :: lower, upper
2233#if RK3_ENABLED && IK4_ENABLED
2234 PURE module subroutine setUnifCDF_LU_D1_RK3_IK4(cdf, X, lower, upper)
2235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2236 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK3_IK4
2239 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2240 integer(IKG),
intent(in) ,
contiguous :: X(:)
2241 integer(IKG),
intent(in) :: lower, upper
2245#if RK2_ENABLED && IK4_ENABLED
2246 PURE module subroutine setUnifCDF_LU_D1_RK2_IK4(cdf, X, lower, upper)
2247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2248 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK2_IK4
2251 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2252 integer(IKG),
intent(in) ,
contiguous :: X(:)
2253 integer(IKG),
intent(in) :: lower, upper
2257#if RK1_ENABLED && IK4_ENABLED
2258 PURE module subroutine setUnifCDF_LU_D1_RK1_IK4(cdf, X, lower, upper)
2259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2260 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK1_IK4
2263 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2264 integer(IKG),
intent(in) ,
contiguous :: X(:)
2265 integer(IKG),
intent(in) :: lower, upper
2271#if RK5_ENABLED && IK3_ENABLED
2272 PURE module subroutine setUnifCDF_LU_D1_RK5_IK3(cdf, X, lower, upper)
2273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2274 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK5_IK3
2277 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2278 integer(IKG),
intent(in) ,
contiguous :: X(:)
2279 integer(IKG),
intent(in) :: lower, upper
2283#if RK4_ENABLED && IK3_ENABLED
2284 PURE module subroutine setUnifCDF_LU_D1_RK4_IK3(cdf, X, lower, upper)
2285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2286 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK4_IK3
2289 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2290 integer(IKG),
intent(in) ,
contiguous :: X(:)
2291 integer(IKG),
intent(in) :: lower, upper
2295#if RK3_ENABLED && IK3_ENABLED
2296 PURE module subroutine setUnifCDF_LU_D1_RK3_IK3(cdf, X, lower, upper)
2297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2298 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK3_IK3
2301 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2302 integer(IKG),
intent(in) ,
contiguous :: X(:)
2303 integer(IKG),
intent(in) :: lower, upper
2307#if RK2_ENABLED && IK3_ENABLED
2308 PURE module subroutine setUnifCDF_LU_D1_RK2_IK3(cdf, X, lower, upper)
2309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2310 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK2_IK3
2313 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2314 integer(IKG),
intent(in) ,
contiguous :: X(:)
2315 integer(IKG),
intent(in) :: lower, upper
2319#if RK1_ENABLED && IK3_ENABLED
2320 PURE module subroutine setUnifCDF_LU_D1_RK1_IK3(cdf, X, lower, upper)
2321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2322 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK1_IK3
2325 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2326 integer(IKG),
intent(in) ,
contiguous :: X(:)
2327 integer(IKG),
intent(in) :: lower, upper
2333#if RK5_ENABLED && IK2_ENABLED
2334 PURE module subroutine setUnifCDF_LU_D1_RK5_IK2(cdf, X, lower, upper)
2335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2336 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK5_IK2
2339 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2340 integer(IKG),
intent(in) ,
contiguous :: X(:)
2341 integer(IKG),
intent(in) :: lower, upper
2345#if RK4_ENABLED && IK2_ENABLED
2346 PURE module subroutine setUnifCDF_LU_D1_RK4_IK2(cdf, X, lower, upper)
2347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2348 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK4_IK2
2351 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2352 integer(IKG),
intent(in) ,
contiguous :: X(:)
2353 integer(IKG),
intent(in) :: lower, upper
2357#if RK3_ENABLED && IK2_ENABLED
2358 PURE module subroutine setUnifCDF_LU_D1_RK3_IK2(cdf, X, lower, upper)
2359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2360 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK3_IK2
2363 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2364 integer(IKG),
intent(in) ,
contiguous :: X(:)
2365 integer(IKG),
intent(in) :: lower, upper
2369#if RK2_ENABLED && IK2_ENABLED
2370 PURE module subroutine setUnifCDF_LU_D1_RK2_IK2(cdf, X, lower, upper)
2371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2372 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK2_IK2
2375 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2376 integer(IKG),
intent(in) ,
contiguous :: X(:)
2377 integer(IKG),
intent(in) :: lower, upper
2381#if RK1_ENABLED && IK2_ENABLED
2382 PURE module subroutine setUnifCDF_LU_D1_RK1_IK2(cdf, X, lower, upper)
2383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2384 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK1_IK2
2387 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2388 integer(IKG),
intent(in) ,
contiguous :: X(:)
2389 integer(IKG),
intent(in) :: lower, upper
2395#if RK5_ENABLED && IK1_ENABLED
2396 PURE module subroutine setUnifCDF_LU_D1_RK5_IK1(cdf, X, lower, upper)
2397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2398 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK5_IK1
2401 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2402 integer(IKG),
intent(in) ,
contiguous :: X(:)
2403 integer(IKG),
intent(in) :: lower, upper
2407#if RK4_ENABLED && IK1_ENABLED
2408 PURE module subroutine setUnifCDF_LU_D1_RK4_IK1(cdf, X, lower, upper)
2409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2410 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK4_IK1
2413 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2414 integer(IKG),
intent(in) ,
contiguous :: X(:)
2415 integer(IKG),
intent(in) :: lower, upper
2419#if RK3_ENABLED && IK1_ENABLED
2420 PURE module subroutine setUnifCDF_LU_D1_RK3_IK1(cdf, X, lower, upper)
2421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2422 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK3_IK1
2425 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2426 integer(IKG),
intent(in) ,
contiguous :: X(:)
2427 integer(IKG),
intent(in) :: lower, upper
2431#if RK2_ENABLED && IK1_ENABLED
2432 PURE module subroutine setUnifCDF_LU_D1_RK2_IK1(cdf, X, lower, upper)
2433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2434 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK2_IK1
2437 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2438 integer(IKG),
intent(in) ,
contiguous :: X(:)
2439 integer(IKG),
intent(in) :: lower, upper
2443#if RK1_ENABLED && IK1_ENABLED
2444 PURE module subroutine setUnifCDF_LU_D1_RK1_IK1(cdf, X, lower, upper)
2445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2446 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK1_IK1
2449 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2450 integer(IKG),
intent(in) ,
contiguous :: X(:)
2451 integer(IKG),
intent(in) :: lower, upper
2464 PURE module subroutine setUnifCDF_LU_D1_CK5(cdf, X, lower, upper)
2465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2466 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_CK5
2469 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
2470 complex(CKG),
intent(in) ,
contiguous :: X(:)
2471 complex(CKG),
intent(in) :: lower, upper
2476 PURE module subroutine setUnifCDF_LU_D1_CK4(cdf, X, lower, upper)
2477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2478 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_CK4
2481 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
2482 complex(CKG),
intent(in) ,
contiguous :: X(:)
2483 complex(CKG),
intent(in) :: lower, upper
2488 PURE module subroutine setUnifCDF_LU_D1_CK3(cdf, X, lower, upper)
2489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2490 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_CK3
2493 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
2494 complex(CKG),
intent(in) ,
contiguous :: X(:)
2495 complex(CKG),
intent(in) :: lower, upper
2500 PURE module subroutine setUnifCDF_LU_D1_CK2(cdf, X, lower, upper)
2501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2502 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_CK2
2505 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
2506 complex(CKG),
intent(in) ,
contiguous :: X(:)
2507 complex(CKG),
intent(in) :: lower, upper
2512 PURE module subroutine setUnifCDF_LU_D1_CK1(cdf, X, lower, upper)
2513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2514 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_CK1
2517 complex(CKG),
intent(out) ,
contiguous :: cdf(:)
2518 complex(CKG),
intent(in) ,
contiguous :: X(:)
2519 complex(CKG),
intent(in) :: lower, upper
2532 PURE module subroutine setUnifCDF_LU_D1_RK5(cdf, X, lower, upper)
2533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2534 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK5
2537 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2538 real(RKG) ,
intent(in) ,
contiguous :: X(:)
2539 real(RKG) ,
intent(in) :: lower, upper
2544 PURE module subroutine setUnifCDF_LU_D1_RK4(cdf, X, lower, upper)
2545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2546 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK4
2549 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2550 real(RKG) ,
intent(in) ,
contiguous :: X(:)
2551 real(RKG) ,
intent(in) :: lower, upper
2556 PURE module subroutine setUnifCDF_LU_D1_RK3(cdf, X, lower, upper)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK3
2561 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2562 real(RKG) ,
intent(in) ,
contiguous :: X(:)
2563 real(RKG) ,
intent(in) :: lower, upper
2568 PURE module subroutine setUnifCDF_LU_D1_RK2(cdf, X, lower, upper)
2569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2570 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK2
2573 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2574 real(RKG) ,
intent(in) ,
contiguous :: X(:)
2575 real(RKG) ,
intent(in) :: lower, upper
2580 PURE module subroutine setUnifCDF_LU_D1_RK1(cdf, X, lower, upper)
2581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2582 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifCDF_LU_D1_RK1
2585 real(RKG) ,
intent(out) ,
contiguous :: cdf(:)
2586 real(RKG) ,
intent(in) ,
contiguous :: X(:)
2587 real(RKG) ,
intent(in) :: lower, upper
2676 ,
-3051731464161248980_IK64 &
2677 ,
-6244198995065845334_IK64 &
2678 ,
+4155657270789760540_IK64 ]
2679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2716 ,
-4251311993797857357_IK64 &
2717 ,
+8606660816089834049_IK64 &
2718 ,
+4111957640723818037_IK64 ]
2887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2888 !DIR$ ATTRIBUTES DLLEXPORT ::
rngf
2930 module function rngf_typer(seed, imageID)
result(self)
2931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2934 integer(IK) ,
intent(in),
optional :: seed, imageID
2935 type(rngf_type) :: self
2989 ,
-2790978430781836137_IK64 &
2990 ,
-4872796757339724681_IK64 &
2991 ,
-6638731986642513151_IK64 ]
2994 integer(IK64) :: stream
3245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3249 integer(IKG) ,
intent(in),
optional :: seed, jump(:)
3250 integer(IK) ,
intent(in),
optional :: imageID
3251 type(xoshiro256ssw_type) :: rng
3366 integer(IK) :: pos
= 0_IK
3456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3460 integer(IKG) ,
intent(in),
optional :: seed, jump(:)
3461 integer(IK) ,
intent(in),
optional :: imageID
3462 type(xoshiro256ssg_type) :: rng
3596 integer(IK64) :: stream
3599 integer(IK64) :: state
= 324108011427370141_IK64
3683 impure elemental module function splitmix64_typer(seed, imageID)
result(rng)
3684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3688 integer(IKG) ,
intent(in),
optional :: seed
3689 integer(IK) ,
intent(in),
optional :: imageID
3690 type(splitmix64_type) :: rng
3697 interface setStateNext
3701 pure module subroutine setStateNextSM64(rng)
3702#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3703 !DEC$ ATTRIBUTES DLLEXPORT :: setStateNextSM64
3706 type(splitmix64_type) ,
intent(inout) :: rng
3709 pure module subroutine setStateNextX256SSG(rng)
3710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3711 !DEC$ ATTRIBUTES DLLEXPORT :: setStateNextX256SSG
3714 type(xoshiro256ssg_type),
intent(inout) :: rng
3717 pure module subroutine setStateNextX256SSW(rng)
3718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3719 !DEC$ ATTRIBUTES DLLEXPORT :: setStateNextX256SSW
3722 type(xoshiro256ssw_type) ,
intent(inout) :: rng
3733 interface setStateJump
3738 PURE module subroutine setStateJumpX256SSGDJ(rng)
3739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3740 !DEC$ ATTRIBUTES DLLEXPORT :: setStateJumpX256SSGDJ
3743 type(xoshiro256ssg_type),
intent(inout) :: rng
3747 PURE module subroutine setStateJumpX256SSGAJ(rng, jump)
3748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3749 !DEC$ ATTRIBUTES DLLEXPORT :: setStateJumpX256SSGAJ
3752 type(xoshiro256ssg_type),
intent(inout) :: rng
3753 integer(IK64) ,
intent(in) :: jump(:)
3759 PURE module subroutine setStateJumpX256SSWDJ(rng)
3760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3761 !DEC$ ATTRIBUTES DLLEXPORT :: setStateJumpX256SSWDJ
3764 type(xoshiro256ssw_type),
intent(inout) :: rng
3768 PURE module subroutine setStateJumpX256SSWAJ(rng, jump)
3769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3770 !DEC$ ATTRIBUTES DLLEXPORT :: setStateJumpX256SSWAJ
3773 type(xoshiro256ssw_type),
intent(inout) :: rng
3774 integer(IK64) ,
intent(in) :: jump(:)
3834 impure module function getUnifRandStateSizeDef()
result(unifRandStateSize)
3835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3836 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandStateSizeDef
3839 integer(IK) :: unifRandStateSize
3903 impure module function getUnifRandStateDef(seed, imageID)
result(unifRandState)
3904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3905 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandStateDef
3908 integer(IK) ,
intent(in) ,
optional :: seed, imageID
3909 integer(IK) ,
allocatable :: unifRandState(:)
3994 impure module subroutine setUnifRandStateDef(seed, imageID)
3995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3996 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandStateDef
3999 integer(IK) ,
intent(in) ,
optional :: seed, imageID
4158 impure module function getUnifRandRNGDDD_D0_LK()
result(rand)
4159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4160 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDDD_D0_LK
4163 logical(LKG) :: rand
4175 impure elemental module function getUnifRandRNGDLU_D0_SK5(lb, ub)
result(rand)
4176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4177 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_SK5
4180 character(
*,SKG) ,
intent(in) :: lb, ub
4181 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
4186 impure elemental module function getUnifRandRNGDLU_D0_SK4(lb, ub)
result(rand)
4187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4188 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_SK4
4191 character(
*,SKG) ,
intent(in) :: lb, ub
4192 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
4197 impure elemental module function getUnifRandRNGDLU_D0_SK3(lb, ub)
result(rand)
4198#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4199 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_SK3
4202 character(
*,SKG) ,
intent(in) :: lb, ub
4203 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
4208 impure elemental module function getUnifRandRNGDLU_D0_SK2(lb, ub)
result(rand)
4209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4210 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_SK2
4213 character(
*,SKG) ,
intent(in) :: lb, ub
4214 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
4219 impure elemental module function getUnifRandRNGDLU_D0_SK1(lb, ub)
result(rand)
4220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4221 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_SK1
4224 character(
*,SKG) ,
intent(in) :: lb, ub
4225 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
4232 impure elemental module function getUnifRandRNGDLU_D0_IK5(lb, ub)
result(rand)
4233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4234 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_IK5
4237 integer(IKG) ,
intent(in) :: lb, ub
4238 integer(IKG) :: rand
4243 impure elemental module function getUnifRandRNGDLU_D0_IK4(lb, ub)
result(rand)
4244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4245 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_IK4
4248 integer(IKG) ,
intent(in) :: lb, ub
4249 integer(IKG) :: rand
4254 impure elemental module function getUnifRandRNGDLU_D0_IK3(lb, ub)
result(rand)
4255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4256 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_IK3
4259 integer(IKG) ,
intent(in) :: lb, ub
4260 integer(IKG) :: rand
4265 impure elemental module function getUnifRandRNGDLU_D0_IK2(lb, ub)
result(rand)
4266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4267 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_IK2
4270 integer(IKG) ,
intent(in) :: lb, ub
4271 integer(IKG) :: rand
4276 impure elemental module function getUnifRandRNGDLU_D0_IK1(lb, ub)
result(rand)
4277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4278 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_IK1
4281 integer(IKG) ,
intent(in) :: lb, ub
4282 integer(IKG) :: rand
4289 impure elemental module function getUnifRandRNGDLU_D0_LK5(lb, ub)
result(rand)
4290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4291 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_LK5
4294 logical(LKG) ,
intent(in) :: lb, ub
4295 logical(LKG) :: rand
4300 impure elemental module function getUnifRandRNGDLU_D0_LK4(lb, ub)
result(rand)
4301#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4302 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_LK4
4305 logical(LKG) ,
intent(in) :: lb, ub
4306 logical(LKG) :: rand
4311 impure elemental module function getUnifRandRNGDLU_D0_LK3(lb, ub)
result(rand)
4312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4313 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_LK3
4316 logical(LKG) ,
intent(in) :: lb, ub
4317 logical(LKG) :: rand
4322 impure elemental module function getUnifRandRNGDLU_D0_LK2(lb, ub)
result(rand)
4323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4324 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_LK2
4327 logical(LKG) ,
intent(in) :: lb, ub
4328 logical(LKG) :: rand
4333 impure elemental module function getUnifRandRNGDLU_D0_LK1(lb, ub)
result(rand)
4334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4335 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_LK1
4338 logical(LKG) ,
intent(in) :: lb, ub
4339 logical(LKG) :: rand
4346 impure elemental module function getUnifRandRNGDLU_D0_CK5(lb, ub)
result(rand)
4347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4348 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_CK5
4351 complex(CKG) ,
intent(in) :: lb, ub
4352 complex(CKG) :: rand
4357 impure elemental module function getUnifRandRNGDLU_D0_CK4(lb, ub)
result(rand)
4358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4359 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_CK4
4362 complex(CKG) ,
intent(in) :: lb, ub
4363 complex(CKG) :: rand
4368 impure elemental module function getUnifRandRNGDLU_D0_CK3(lb, ub)
result(rand)
4369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4370 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_CK3
4373 complex(CKG) ,
intent(in) :: lb, ub
4374 complex(CKG) :: rand
4379 impure elemental module function getUnifRandRNGDLU_D0_CK2(lb, ub)
result(rand)
4380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4381 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_CK2
4384 complex(CKG) ,
intent(in) :: lb, ub
4385 complex(CKG) :: rand
4390 impure elemental module function getUnifRandRNGDLU_D0_CK1(lb, ub)
result(rand)
4391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4392 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_CK1
4395 complex(CKG) ,
intent(in) :: lb, ub
4396 complex(CKG) :: rand
4403 impure elemental module function getUnifRandRNGDLU_D0_RK5(lb, ub)
result(rand)
4404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4405 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_RK5
4408 real(RKG) ,
intent(in) :: lb, ub
4414 impure elemental module function getUnifRandRNGDLU_D0_RK4(lb, ub)
result(rand)
4415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4416 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_RK4
4419 real(RKG) ,
intent(in) :: lb, ub
4425 impure elemental module function getUnifRandRNGDLU_D0_RK3(lb, ub)
result(rand)
4426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4427 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_RK3
4430 real(RKG) ,
intent(in) :: lb, ub
4436 impure elemental module function getUnifRandRNGDLU_D0_RK2(lb, ub)
result(rand)
4437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4438 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_RK2
4441 real(RKG) ,
intent(in) :: lb, ub
4447 impure elemental module function getUnifRandRNGDLU_D0_RK1(lb, ub)
result(rand)
4448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4449 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D0_RK1
4452 real(RKG) ,
intent(in) :: lb, ub
4466 impure module function getUnifRandRNGDLU_D1_SK5(lb, ub, s1)
result(rand)
4467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4468 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_SK5
4471 character(
*,SKG) ,
intent(in) :: lb, ub
4472 integer(IK) ,
intent(in) :: s1
4473 character(
len(lb,IK),SKG) :: rand(s1)
4478 impure module function getUnifRandRNGDLU_D1_SK4(lb, ub, s1)
result(rand)
4479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4480 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_SK4
4483 character(
*,SKG) ,
intent(in) :: lb, ub
4484 integer(IK) ,
intent(in) :: s1
4485 character(
len(lb,IK),SKG) :: rand(s1)
4490 impure module function getUnifRandRNGDLU_D1_SK3(lb, ub, s1)
result(rand)
4491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4492 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_SK3
4495 character(
*,SKG) ,
intent(in) :: lb, ub
4496 integer(IK) ,
intent(in) :: s1
4497 character(
len(lb,IK),SKG) :: rand(s1)
4502 impure module function getUnifRandRNGDLU_D1_SK2(lb, ub, s1)
result(rand)
4503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4504 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_SK2
4507 character(
*,SKG) ,
intent(in) :: lb, ub
4508 integer(IK) ,
intent(in) :: s1
4509 character(
len(lb,IK),SKG) :: rand(s1)
4514 impure module function getUnifRandRNGDLU_D1_SK1(lb, ub, s1)
result(rand)
4515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4516 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_SK1
4519 character(
*,SKG) ,
intent(in) :: lb, ub
4520 integer(IK) ,
intent(in) :: s1
4521 character(
len(lb,IK),SKG) :: rand(s1)
4528 impure module function getUnifRandRNGDLU_D1_IK5(lb, ub, s1)
result(rand)
4529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4530 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_IK5
4533 integer(IKG) ,
intent(in) :: lb, ub
4534 integer(IK) ,
intent(in) :: s1
4535 integer(IKG) :: rand(s1)
4540 impure module function getUnifRandRNGDLU_D1_IK4(lb, ub, s1)
result(rand)
4541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4542 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_IK4
4545 integer(IKG) ,
intent(in) :: lb, ub
4546 integer(IK) ,
intent(in) :: s1
4547 integer(IKG) :: rand(s1)
4552 impure module function getUnifRandRNGDLU_D1_IK3(lb, ub, s1)
result(rand)
4553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4554 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_IK3
4557 integer(IKG) ,
intent(in) :: lb, ub
4558 integer(IK) ,
intent(in) :: s1
4559 integer(IKG) :: rand(s1)
4564 impure module function getUnifRandRNGDLU_D1_IK2(lb, ub, s1)
result(rand)
4565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4566 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_IK2
4569 integer(IKG) ,
intent(in) :: lb, ub
4570 integer(IK) ,
intent(in) :: s1
4571 integer(IKG) :: rand(s1)
4576 impure module function getUnifRandRNGDLU_D1_IK1(lb, ub, s1)
result(rand)
4577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4578 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_IK1
4581 integer(IKG) ,
intent(in) :: lb, ub
4582 integer(IK) ,
intent(in) :: s1
4583 integer(IKG) :: rand(s1)
4590 impure module function getUnifRandRNGDLU_D1_LK5(lb, ub, s1)
result(rand)
4591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4592 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_LK5
4595 logical(LKG) ,
intent(in) :: lb, ub
4596 integer(IK) ,
intent(in) :: s1
4597 logical(LKG) :: rand(s1)
4602 impure module function getUnifRandRNGDLU_D1_LK4(lb, ub, s1)
result(rand)
4603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4604 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_LK4
4607 logical(LKG) ,
intent(in) :: lb, ub
4608 integer(IK) ,
intent(in) :: s1
4609 logical(LKG) :: rand(s1)
4614 impure module function getUnifRandRNGDLU_D1_LK3(lb, ub, s1)
result(rand)
4615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4616 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_LK3
4619 logical(LKG) ,
intent(in) :: lb, ub
4620 integer(IK) ,
intent(in) :: s1
4621 logical(LKG) :: rand(s1)
4626 impure module function getUnifRandRNGDLU_D1_LK2(lb, ub, s1)
result(rand)
4627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4628 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_LK2
4631 logical(LKG) ,
intent(in) :: lb, ub
4632 integer(IK) ,
intent(in) :: s1
4633 logical(LKG) :: rand(s1)
4638 impure module function getUnifRandRNGDLU_D1_LK1(lb, ub, s1)
result(rand)
4639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4640 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_LK1
4643 logical(LKG) ,
intent(in) :: lb, ub
4644 integer(IK) ,
intent(in) :: s1
4645 logical(LKG) :: rand(s1)
4652 impure module function getUnifRandRNGDLU_D1_CK5(lb, ub, s1)
result(rand)
4653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4654 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_CK5
4657 complex(CKG) ,
intent(in) :: lb, ub
4658 integer(IK) ,
intent(in) :: s1
4659 complex(CKG) :: rand(s1)
4664 impure module function getUnifRandRNGDLU_D1_CK4(lb, ub, s1)
result(rand)
4665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4666 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_CK4
4669 complex(CKG) ,
intent(in) :: lb, ub
4670 integer(IK) ,
intent(in) :: s1
4671 complex(CKG) :: rand(s1)
4676 impure module function getUnifRandRNGDLU_D1_CK3(lb, ub, s1)
result(rand)
4677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4678 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_CK3
4681 complex(CKG) ,
intent(in) :: lb, ub
4682 integer(IK) ,
intent(in) :: s1
4683 complex(CKG) :: rand(s1)
4688 impure module function getUnifRandRNGDLU_D1_CK2(lb, ub, s1)
result(rand)
4689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4690 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_CK2
4693 complex(CKG) ,
intent(in) :: lb, ub
4694 integer(IK) ,
intent(in) :: s1
4695 complex(CKG) :: rand(s1)
4700 impure module function getUnifRandRNGDLU_D1_CK1(lb, ub, s1)
result(rand)
4701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4702 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_CK1
4705 complex(CKG) ,
intent(in) :: lb, ub
4706 integer(IK) ,
intent(in) :: s1
4707 complex(CKG) :: rand(s1)
4714 impure module function getUnifRandRNGDLU_D1_RK5(lb, ub, s1)
result(rand)
4715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4716 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_RK5
4719 real(RKG) ,
intent(in) :: lb, ub
4720 integer(IK) ,
intent(in) :: s1
4721 real(RKG) :: rand(s1)
4727 impure module function getUnifRandRNGDLU_D1_RK4(lb, ub, s1)
result(rand)
4728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4729 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_RK4
4732 real(RKG) ,
intent(in) :: lb, ub
4733 integer(IK) ,
intent(in) :: s1
4734 real(RKG) :: rand(s1)
4740 impure module function getUnifRandRNGDLU_D1_RK3(lb, ub, s1)
result(rand)
4741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4742 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_RK3
4745 real(RKG) ,
intent(in) :: lb, ub
4746 integer(IK) ,
intent(in) :: s1
4747 real(RKG) :: rand(s1)
4753 impure module function getUnifRandRNGDLU_D1_RK2(lb, ub, s1)
result(rand)
4754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4755 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_RK2
4758 real(RKG) ,
intent(in) :: lb, ub
4759 integer(IK) ,
intent(in) :: s1
4760 real(RKG) :: rand(s1)
4765 impure module function getUnifRandRNGDLU_D1_RK1(lb, ub, s1)
result(rand)
4766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4767 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D1_RK1
4770 real(RKG) ,
intent(in) :: lb, ub
4771 integer(IK) ,
intent(in) :: s1
4772 real(RKG) :: rand(s1)
4785 impure module function getUnifRandRNGDLU_D2_SK5(lb, ub, s1, s2)
result(rand)
4786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4787 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_SK5
4790 character(
*,SKG) ,
intent(in) :: lb, ub
4791 integer(IK) ,
intent(in) :: s1, s2
4792 character(
len(lb,IK),SKG) :: rand(s1, s2)
4797 impure module function getUnifRandRNGDLU_D2_SK4(lb, ub, s1, s2)
result(rand)
4798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4799 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_SK4
4802 character(
*,SKG) ,
intent(in) :: lb, ub
4803 integer(IK) ,
intent(in) :: s1, s2
4804 character(
len(lb,IK),SKG) :: rand(s1, s2)
4809 impure module function getUnifRandRNGDLU_D2_SK3(lb, ub, s1, s2)
result(rand)
4810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4811 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_SK3
4814 character(
*,SKG) ,
intent(in) :: lb, ub
4815 integer(IK) ,
intent(in) :: s1, s2
4816 character(
len(lb,IK),SKG) :: rand(s1, s2)
4821 impure module function getUnifRandRNGDLU_D2_SK2(lb, ub, s1, s2)
result(rand)
4822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4823 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_SK2
4826 character(
*,SKG) ,
intent(in) :: lb, ub
4827 integer(IK) ,
intent(in) :: s1, s2
4828 character(
len(lb,IK),SKG) :: rand(s1, s2)
4833 impure module function getUnifRandRNGDLU_D2_SK1(lb, ub, s1, s2)
result(rand)
4834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4835 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_SK1
4838 character(
*,SKG) ,
intent(in) :: lb, ub
4839 integer(IK) ,
intent(in) :: s1, s2
4840 character(
len(lb,IK),SKG) :: rand(s1, s2)
4847 impure module function getUnifRandRNGDLU_D2_IK5(lb, ub, s1, s2)
result(rand)
4848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4849 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_IK5
4852 integer(IKG) ,
intent(in) :: lb, ub
4853 integer(IK) ,
intent(in) :: s1, s2
4854 integer(IKG) :: rand(s1, s2)
4859 impure module function getUnifRandRNGDLU_D2_IK4(lb, ub, s1, s2)
result(rand)
4860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4861 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_IK4
4864 integer(IKG) ,
intent(in) :: lb, ub
4865 integer(IK) ,
intent(in) :: s1, s2
4866 integer(IKG) :: rand(s1, s2)
4871 impure module function getUnifRandRNGDLU_D2_IK3(lb, ub, s1, s2)
result(rand)
4872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4873 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_IK3
4876 integer(IKG) ,
intent(in) :: lb, ub
4877 integer(IK) ,
intent(in) :: s1, s2
4878 integer(IKG) :: rand(s1, s2)
4883 impure module function getUnifRandRNGDLU_D2_IK2(lb, ub, s1, s2)
result(rand)
4884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4885 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_IK2
4888 integer(IKG) ,
intent(in) :: lb, ub
4889 integer(IK) ,
intent(in) :: s1, s2
4890 integer(IKG) :: rand(s1, s2)
4895 impure module function getUnifRandRNGDLU_D2_IK1(lb, ub, s1, s2)
result(rand)
4896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4897 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_IK1
4900 integer(IKG) ,
intent(in) :: lb, ub
4901 integer(IK) ,
intent(in) :: s1, s2
4902 integer(IKG) :: rand(s1, s2)
4909 impure module function getUnifRandRNGDLU_D2_LK5(lb, ub, s1, s2)
result(rand)
4910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4911 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_LK5
4914 logical(LKG) ,
intent(in) :: lb, ub
4915 integer(IK) ,
intent(in) :: s1, s2
4916 logical(LKG) :: rand(s1, s2)
4921 impure module function getUnifRandRNGDLU_D2_LK4(lb, ub, s1, s2)
result(rand)
4922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4923 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_LK4
4926 logical(LKG) ,
intent(in) :: lb, ub
4927 integer(IK) ,
intent(in) :: s1, s2
4928 logical(LKG) :: rand(s1, s2)
4933 impure module function getUnifRandRNGDLU_D2_LK3(lb, ub, s1, s2)
result(rand)
4934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4935 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_LK3
4938 logical(LKG) ,
intent(in) :: lb, ub
4939 integer(IK) ,
intent(in) :: s1, s2
4940 logical(LKG) :: rand(s1, s2)
4945 impure module function getUnifRandRNGDLU_D2_LK2(lb, ub, s1, s2)
result(rand)
4946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4947 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_LK2
4950 logical(LKG) ,
intent(in) :: lb, ub
4951 integer(IK) ,
intent(in) :: s1, s2
4952 logical(LKG) :: rand(s1, s2)
4957 impure module function getUnifRandRNGDLU_D2_LK1(lb, ub, s1, s2)
result(rand)
4958#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4959 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_LK1
4962 logical(LKG) ,
intent(in) :: lb, ub
4963 integer(IK) ,
intent(in) :: s1, s2
4964 logical(LKG) :: rand(s1, s2)
4971 impure module function getUnifRandRNGDLU_D2_CK5(lb, ub, s1, s2)
result(rand)
4972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4973 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_CK5
4976 complex(CKG) ,
intent(in) :: lb, ub
4977 integer(IK) ,
intent(in) :: s1, s2
4978 complex(CKG) :: rand(s1, s2)
4983 impure module function getUnifRandRNGDLU_D2_CK4(lb, ub, s1, s2)
result(rand)
4984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4985 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_CK4
4988 complex(CKG) ,
intent(in) :: lb, ub
4989 integer(IK) ,
intent(in) :: s1, s2
4990 complex(CKG) :: rand(s1, s2)
4995 impure module function getUnifRandRNGDLU_D2_CK3(lb, ub, s1, s2)
result(rand)
4996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4997 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_CK3
5000 complex(CKG) ,
intent(in) :: lb, ub
5001 integer(IK) ,
intent(in) :: s1, s2
5002 complex(CKG) :: rand(s1, s2)
5007 impure module function getUnifRandRNGDLU_D2_CK2(lb, ub, s1, s2)
result(rand)
5008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5009 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_CK2
5012 complex(CKG) ,
intent(in) :: lb, ub
5013 integer(IK) ,
intent(in) :: s1, s2
5014 complex(CKG) :: rand(s1, s2)
5019 impure module function getUnifRandRNGDLU_D2_CK1(lb, ub, s1, s2)
result(rand)
5020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5021 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_CK1
5024 complex(CKG) ,
intent(in) :: lb, ub
5025 integer(IK) ,
intent(in) :: s1, s2
5026 complex(CKG) :: rand(s1, s2)
5033 impure module function getUnifRandRNGDLU_D2_RK5(lb, ub, s1, s2)
result(rand)
5034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5035 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_RK5
5038 real(RKG) ,
intent(in) :: lb, ub
5039 integer(IK) ,
intent(in) :: s1, s2
5040 real(RKG) :: rand(s1, s2)
5046 impure module function getUnifRandRNGDLU_D2_RK4(lb, ub, s1, s2)
result(rand)
5047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5048 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_RK4
5051 real(RKG) ,
intent(in) :: lb, ub
5052 integer(IK) ,
intent(in) :: s1, s2
5053 real(RKG) :: rand(s1, s2)
5059 impure module function getUnifRandRNGDLU_D2_RK3(lb, ub, s1, s2)
result(rand)
5060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5061 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_RK3
5064 real(RKG) ,
intent(in) :: lb, ub
5065 integer(IK) ,
intent(in) :: s1, s2
5066 real(RKG) :: rand(s1, s2)
5072 impure module function getUnifRandRNGDLU_D2_RK2(lb, ub, s1, s2)
result(rand)
5073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5074 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_RK2
5077 real(RKG) ,
intent(in) :: lb, ub
5078 integer(IK) ,
intent(in) :: s1, s2
5079 real(RKG) :: rand(s1, s2)
5084 impure module function getUnifRandRNGDLU_D2_RK1(lb, ub, s1, s2)
result(rand)
5085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5086 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D2_RK1
5089 real(RKG) ,
intent(in) :: lb, ub
5090 integer(IK) ,
intent(in) :: s1, s2
5091 real(RKG) :: rand(s1, s2)
5104 impure module function getUnifRandRNGDLU_D3_SK5(lb, ub, s1, s2, s3)
result(rand)
5105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5106 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_SK5
5109 character(
*,SKG) ,
intent(in) :: lb, ub
5110 integer(IK) ,
intent(in) :: s1, s2, s3
5111 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
5116 impure module function getUnifRandRNGDLU_D3_SK4(lb, ub, s1, s2, s3)
result(rand)
5117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5118 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_SK4
5121 character(
*,SKG) ,
intent(in) :: lb, ub
5122 integer(IK) ,
intent(in) :: s1, s2, s3
5123 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
5128 impure module function getUnifRandRNGDLU_D3_SK3(lb, ub, s1, s2, s3)
result(rand)
5129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5130 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_SK3
5133 character(
*,SKG) ,
intent(in) :: lb, ub
5134 integer(IK) ,
intent(in) :: s1, s2, s3
5135 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
5140 impure module function getUnifRandRNGDLU_D3_SK2(lb, ub, s1, s2, s3)
result(rand)
5141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5142 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_SK2
5145 character(
*,SKG) ,
intent(in) :: lb, ub
5146 integer(IK) ,
intent(in) :: s1, s2, s3
5147 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
5152 impure module function getUnifRandRNGDLU_D3_SK1(lb, ub, s1, s2, s3)
result(rand)
5153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5154 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_SK1
5157 character(
*,SKG) ,
intent(in) :: lb, ub
5158 integer(IK) ,
intent(in) :: s1, s2, s3
5159 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
5166 impure module function getUnifRandRNGDLU_D3_IK5(lb, ub, s1, s2, s3)
result(rand)
5167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5168 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_IK5
5171 integer(IKG) ,
intent(in) :: lb, ub
5172 integer(IK) ,
intent(in) :: s1, s2, s3
5173 integer(IKG) :: rand(s1, s2, s3)
5178 impure module function getUnifRandRNGDLU_D3_IK4(lb, ub, s1, s2, s3)
result(rand)
5179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5180 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_IK4
5183 integer(IKG) ,
intent(in) :: lb, ub
5184 integer(IK) ,
intent(in) :: s1, s2, s3
5185 integer(IKG) :: rand(s1, s2, s3)
5190 impure module function getUnifRandRNGDLU_D3_IK3(lb, ub, s1, s2, s3)
result(rand)
5191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5192 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_IK3
5195 integer(IKG) ,
intent(in) :: lb, ub
5196 integer(IK) ,
intent(in) :: s1, s2, s3
5197 integer(IKG) :: rand(s1, s2, s3)
5202 impure module function getUnifRandRNGDLU_D3_IK2(lb, ub, s1, s2, s3)
result(rand)
5203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5204 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_IK2
5207 integer(IKG) ,
intent(in) :: lb, ub
5208 integer(IK) ,
intent(in) :: s1, s2, s3
5209 integer(IKG) :: rand(s1, s2, s3)
5214 impure module function getUnifRandRNGDLU_D3_IK1(lb, ub, s1, s2, s3)
result(rand)
5215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5216 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_IK1
5219 integer(IKG) ,
intent(in) :: lb, ub
5220 integer(IK) ,
intent(in) :: s1, s2, s3
5221 integer(IKG) :: rand(s1, s2, s3)
5228 impure module function getUnifRandRNGDLU_D3_LK5(lb, ub, s1, s2, s3)
result(rand)
5229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5230 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_LK5
5233 logical(LKG) ,
intent(in) :: lb, ub
5234 integer(IK) ,
intent(in) :: s1, s2, s3
5235 logical(LKG) :: rand(s1, s2, s3)
5240 impure module function getUnifRandRNGDLU_D3_LK4(lb, ub, s1, s2, s3)
result(rand)
5241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5242 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_LK4
5245 logical(LKG) ,
intent(in) :: lb, ub
5246 integer(IK) ,
intent(in) :: s1, s2, s3
5247 logical(LKG) :: rand(s1, s2, s3)
5252 impure module function getUnifRandRNGDLU_D3_LK3(lb, ub, s1, s2, s3)
result(rand)
5253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5254 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_LK3
5257 logical(LKG) ,
intent(in) :: lb, ub
5258 integer(IK) ,
intent(in) :: s1, s2, s3
5259 logical(LKG) :: rand(s1, s2, s3)
5264 impure module function getUnifRandRNGDLU_D3_LK2(lb, ub, s1, s2, s3)
result(rand)
5265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5266 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_LK2
5269 logical(LKG) ,
intent(in) :: lb, ub
5270 integer(IK) ,
intent(in) :: s1, s2, s3
5271 logical(LKG) :: rand(s1, s2, s3)
5276 impure module function getUnifRandRNGDLU_D3_LK1(lb, ub, s1, s2, s3)
result(rand)
5277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5278 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_LK1
5281 logical(LKG) ,
intent(in) :: lb, ub
5282 integer(IK) ,
intent(in) :: s1, s2, s3
5283 logical(LKG) :: rand(s1, s2, s3)
5290 impure module function getUnifRandRNGDLU_D3_CK5(lb, ub, s1, s2, s3)
result(rand)
5291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5292 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_CK5
5295 complex(CKG) ,
intent(in) :: lb, ub
5296 integer(IK) ,
intent(in) :: s1, s2, s3
5297 complex(CKG) :: rand(s1, s2, s3)
5302 impure module function getUnifRandRNGDLU_D3_CK4(lb, ub, s1, s2, s3)
result(rand)
5303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5304 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_CK4
5307 complex(CKG) ,
intent(in) :: lb, ub
5308 integer(IK) ,
intent(in) :: s1, s2, s3
5309 complex(CKG) :: rand(s1, s2, s3)
5314 impure module function getUnifRandRNGDLU_D3_CK3(lb, ub, s1, s2, s3)
result(rand)
5315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5316 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_CK3
5319 complex(CKG) ,
intent(in) :: lb, ub
5320 integer(IK) ,
intent(in) :: s1, s2, s3
5321 complex(CKG) :: rand(s1, s2, s3)
5326 impure module function getUnifRandRNGDLU_D3_CK2(lb, ub, s1, s2, s3)
result(rand)
5327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5328 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_CK2
5331 complex(CKG) ,
intent(in) :: lb, ub
5332 integer(IK) ,
intent(in) :: s1, s2, s3
5333 complex(CKG) :: rand(s1, s2, s3)
5338 impure module function getUnifRandRNGDLU_D3_CK1(lb, ub, s1, s2, s3)
result(rand)
5339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5340 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_CK1
5343 complex(CKG) ,
intent(in) :: lb, ub
5344 integer(IK) ,
intent(in) :: s1, s2, s3
5345 complex(CKG) :: rand(s1, s2, s3)
5352 impure module function getUnifRandRNGDLU_D3_RK5(lb, ub, s1, s2, s3)
result(rand)
5353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5354 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_RK5
5357 real(RKG) ,
intent(in) :: lb, ub
5358 integer(IK) ,
intent(in) :: s1, s2, s3
5359 real(RKG) :: rand(s1, s2, s3)
5365 impure module function getUnifRandRNGDLU_D3_RK4(lb, ub, s1, s2, s3)
result(rand)
5366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5367 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_RK4
5370 real(RKG) ,
intent(in) :: lb, ub
5371 integer(IK) ,
intent(in) :: s1, s2, s3
5372 real(RKG) :: rand(s1, s2, s3)
5378 impure module function getUnifRandRNGDLU_D3_RK3(lb, ub, s1, s2, s3)
result(rand)
5379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5380 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_RK3
5383 real(RKG) ,
intent(in) :: lb, ub
5384 integer(IK) ,
intent(in) :: s1, s2, s3
5385 real(RKG) :: rand(s1, s2, s3)
5391 impure module function getUnifRandRNGDLU_D3_RK2(lb, ub, s1, s2, s3)
result(rand)
5392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5393 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_RK2
5396 real(RKG) ,
intent(in) :: lb, ub
5397 integer(IK) ,
intent(in) :: s1, s2, s3
5398 real(RKG) :: rand(s1, s2, s3)
5403 impure module function getUnifRandRNGDLU_D3_RK1(lb, ub, s1, s2, s3)
result(rand)
5404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5405 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGDLU_D3_RK1
5408 real(RKG) ,
intent(in) :: lb, ub
5409 integer(IK) ,
intent(in) :: s1, s2, s3
5410 real(RKG) :: rand(s1, s2, s3)
5432 impure module function getUnifRandRNGFDD_D0_LK(rng)
result(rand)
5433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5434 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFDD_D0_LK
5437 logical(LKG) :: rand
5438 type(rngf_type) ,
intent(inout) :: rng
5450 impure elemental module function getUnifRandRNGFLU_D0_SK5(rng, lb, ub)
result(rand)
5451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5452 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_SK5
5455 character(
*,SKG) ,
intent(in) :: lb, ub
5456 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
5457 type(rngf_type) ,
intent(inout) :: rng
5462 impure elemental module function getUnifRandRNGFLU_D0_SK4(rng, lb, ub)
result(rand)
5463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5464 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_SK4
5467 character(
*,SKG) ,
intent(in) :: lb, ub
5468 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
5469 type(rngf_type) ,
intent(inout) :: rng
5474 impure elemental module function getUnifRandRNGFLU_D0_SK3(rng, lb, ub)
result(rand)
5475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5476 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_SK3
5479 character(
*,SKG) ,
intent(in) :: lb, ub
5480 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
5481 type(rngf_type) ,
intent(inout) :: rng
5486 impure elemental module function getUnifRandRNGFLU_D0_SK2(rng, lb, ub)
result(rand)
5487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5488 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_SK2
5491 character(
*,SKG) ,
intent(in) :: lb, ub
5492 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
5493 type(rngf_type) ,
intent(inout) :: rng
5498 impure elemental module function getUnifRandRNGFLU_D0_SK1(rng, lb, ub)
result(rand)
5499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5500 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_SK1
5503 character(
*,SKG) ,
intent(in) :: lb, ub
5504 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
5505 type(rngf_type) ,
intent(inout) :: rng
5512 impure elemental module function getUnifRandRNGFLU_D0_IK5(rng, lb, ub)
result(rand)
5513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5514 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_IK5
5517 integer(IKG) ,
intent(in) :: lb, ub
5518 integer(IKG) :: rand
5519 type(rngf_type) ,
intent(inout) :: rng
5524 impure elemental module function getUnifRandRNGFLU_D0_IK4(rng, lb, ub)
result(rand)
5525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5526 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_IK4
5529 integer(IKG) ,
intent(in) :: lb, ub
5530 integer(IKG) :: rand
5531 type(rngf_type) ,
intent(inout) :: rng
5536 impure elemental module function getUnifRandRNGFLU_D0_IK3(rng, lb, ub)
result(rand)
5537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5538 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_IK3
5541 integer(IKG) ,
intent(in) :: lb, ub
5542 integer(IKG) :: rand
5543 type(rngf_type) ,
intent(inout) :: rng
5548 impure elemental module function getUnifRandRNGFLU_D0_IK2(rng, lb, ub)
result(rand)
5549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5550 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_IK2
5553 integer(IKG) ,
intent(in) :: lb, ub
5554 integer(IKG) :: rand
5555 type(rngf_type) ,
intent(inout) :: rng
5560 impure elemental module function getUnifRandRNGFLU_D0_IK1(rng, lb, ub)
result(rand)
5561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5562 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_IK1
5565 integer(IKG) ,
intent(in) :: lb, ub
5566 integer(IKG) :: rand
5567 type(rngf_type) ,
intent(inout) :: rng
5574 impure elemental module function getUnifRandRNGFLU_D0_LK5(rng, lb, ub)
result(rand)
5575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5576 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_LK5
5579 logical(LKG) ,
intent(in) :: lb, ub
5580 logical(LKG) :: rand
5581 type(rngf_type) ,
intent(inout) :: rng
5586 impure elemental module function getUnifRandRNGFLU_D0_LK4(rng, lb, ub)
result(rand)
5587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5588 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_LK4
5591 logical(LKG) ,
intent(in) :: lb, ub
5592 logical(LKG) :: rand
5593 type(rngf_type) ,
intent(inout) :: rng
5598 impure elemental module function getUnifRandRNGFLU_D0_LK3(rng, lb, ub)
result(rand)
5599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5600 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_LK3
5603 logical(LKG) ,
intent(in) :: lb, ub
5604 logical(LKG) :: rand
5605 type(rngf_type) ,
intent(inout) :: rng
5610 impure elemental module function getUnifRandRNGFLU_D0_LK2(rng, lb, ub)
result(rand)
5611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5612 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_LK2
5615 logical(LKG) ,
intent(in) :: lb, ub
5616 logical(LKG) :: rand
5617 type(rngf_type) ,
intent(inout) :: rng
5622 impure elemental module function getUnifRandRNGFLU_D0_LK1(rng, lb, ub)
result(rand)
5623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5624 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_LK1
5627 logical(LKG) ,
intent(in) :: lb, ub
5628 logical(LKG) :: rand
5629 type(rngf_type) ,
intent(inout) :: rng
5636 impure elemental module function getUnifRandRNGFLU_D0_CK5(rng, lb, ub)
result(rand)
5637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5638 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_CK5
5641 complex(CKG) ,
intent(in) :: lb, ub
5642 complex(CKG) :: rand
5643 type(rngf_type) ,
intent(inout) :: rng
5648 impure elemental module function getUnifRandRNGFLU_D0_CK4(rng, lb, ub)
result(rand)
5649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5650 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_CK4
5653 complex(CKG) ,
intent(in) :: lb, ub
5654 complex(CKG) :: rand
5655 type(rngf_type) ,
intent(inout) :: rng
5660 impure elemental module function getUnifRandRNGFLU_D0_CK3(rng, lb, ub)
result(rand)
5661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5662 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_CK3
5665 complex(CKG) ,
intent(in) :: lb, ub
5666 complex(CKG) :: rand
5667 type(rngf_type) ,
intent(inout) :: rng
5672 impure elemental module function getUnifRandRNGFLU_D0_CK2(rng, lb, ub)
result(rand)
5673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5674 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_CK2
5677 complex(CKG) ,
intent(in) :: lb, ub
5678 complex(CKG) :: rand
5679 type(rngf_type) ,
intent(inout) :: rng
5684 impure elemental module function getUnifRandRNGFLU_D0_CK1(rng, lb, ub)
result(rand)
5685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5686 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_CK1
5689 complex(CKG) ,
intent(in) :: lb, ub
5690 complex(CKG) :: rand
5691 type(rngf_type) ,
intent(inout) :: rng
5698 impure elemental module function getUnifRandRNGFLU_D0_RK5(rng, lb, ub)
result(rand)
5699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5700 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_RK5
5703 real(RKG) ,
intent(in) :: lb, ub
5705 type(rngf_type) ,
intent(inout) :: rng
5710 impure elemental module function getUnifRandRNGFLU_D0_RK4(rng, lb, ub)
result(rand)
5711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5712 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_RK4
5715 real(RKG) ,
intent(in) :: lb, ub
5717 type(rngf_type) ,
intent(inout) :: rng
5722 impure elemental module function getUnifRandRNGFLU_D0_RK3(rng, lb, ub)
result(rand)
5723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5724 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_RK3
5727 real(RKG) ,
intent(in) :: lb, ub
5729 type(rngf_type) ,
intent(inout) :: rng
5734 impure elemental module function getUnifRandRNGFLU_D0_RK2(rng, lb, ub)
result(rand)
5735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5736 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_RK2
5739 real(RKG) ,
intent(in) :: lb, ub
5741 type(rngf_type) ,
intent(inout) :: rng
5746 impure elemental module function getUnifRandRNGFLU_D0_RK1(rng, lb, ub)
result(rand)
5747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5748 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D0_RK1
5751 real(RKG) ,
intent(in) :: lb, ub
5753 type(rngf_type) ,
intent(inout) :: rng
5766 impure module function getUnifRandRNGFLU_D1_SK5(rng, lb, ub, s1)
result(rand)
5767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5768 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_SK5
5771 character(
*,SKG) ,
intent(in) :: lb, ub
5772 integer(IK) ,
intent(in) :: s1
5773 character(
len(lb,IK),SKG) :: rand(s1)
5774 type(rngf_type) ,
intent(inout) :: rng
5779 impure module function getUnifRandRNGFLU_D1_SK4(rng, lb, ub, s1)
result(rand)
5780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5781 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_SK4
5784 character(
*,SKG) ,
intent(in) :: lb, ub
5785 integer(IK) ,
intent(in) :: s1
5786 character(
len(lb,IK),SKG) :: rand(s1)
5787 type(rngf_type) ,
intent(inout) :: rng
5792 impure module function getUnifRandRNGFLU_D1_SK3(rng, lb, ub, s1)
result(rand)
5793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5794 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_SK3
5797 character(
*,SKG) ,
intent(in) :: lb, ub
5798 integer(IK) ,
intent(in) :: s1
5799 character(
len(lb,IK),SKG) :: rand(s1)
5800 type(rngf_type) ,
intent(inout) :: rng
5805 impure module function getUnifRandRNGFLU_D1_SK2(rng, lb, ub, s1)
result(rand)
5806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5807 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_SK2
5810 character(
*,SKG) ,
intent(in) :: lb, ub
5811 integer(IK) ,
intent(in) :: s1
5812 character(
len(lb,IK),SKG) :: rand(s1)
5813 type(rngf_type) ,
intent(inout) :: rng
5818 impure module function getUnifRandRNGFLU_D1_SK1(rng, lb, ub, s1)
result(rand)
5819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5820 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_SK1
5823 character(
*,SKG) ,
intent(in) :: lb, ub
5824 integer(IK) ,
intent(in) :: s1
5825 character(
len(lb,IK),SKG) :: rand(s1)
5826 type(rngf_type) ,
intent(inout) :: rng
5833 impure module function getUnifRandRNGFLU_D1_IK5(rng, lb, ub, s1)
result(rand)
5834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5835 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_IK5
5838 integer(IKG) ,
intent(in) :: lb, ub
5839 integer(IK) ,
intent(in) :: s1
5840 integer(IKG) :: rand(s1)
5841 type(rngf_type) ,
intent(inout) :: rng
5846 impure module function getUnifRandRNGFLU_D1_IK4(rng, lb, ub, s1)
result(rand)
5847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5848 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_IK4
5851 integer(IKG) ,
intent(in) :: lb, ub
5852 integer(IK) ,
intent(in) :: s1
5853 integer(IKG) :: rand(s1)
5854 type(rngf_type) ,
intent(inout) :: rng
5859 impure module function getUnifRandRNGFLU_D1_IK3(rng, lb, ub, s1)
result(rand)
5860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5861 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_IK3
5864 integer(IKG) ,
intent(in) :: lb, ub
5865 integer(IK) ,
intent(in) :: s1
5866 integer(IKG) :: rand(s1)
5867 type(rngf_type) ,
intent(inout) :: rng
5872 impure module function getUnifRandRNGFLU_D1_IK2(rng, lb, ub, s1)
result(rand)
5873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5874 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_IK2
5877 integer(IKG) ,
intent(in) :: lb, ub
5878 integer(IK) ,
intent(in) :: s1
5879 integer(IKG) :: rand(s1)
5880 type(rngf_type) ,
intent(inout) :: rng
5885 impure module function getUnifRandRNGFLU_D1_IK1(rng, lb, ub, s1)
result(rand)
5886#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5887 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_IK1
5890 integer(IKG) ,
intent(in) :: lb, ub
5891 integer(IK) ,
intent(in) :: s1
5892 integer(IKG) :: rand(s1)
5893 type(rngf_type) ,
intent(inout) :: rng
5900 impure module function getUnifRandRNGFLU_D1_LK5(rng, lb, ub, s1)
result(rand)
5901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5902 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_LK5
5905 logical(LKG) ,
intent(in) :: lb, ub
5906 integer(IK) ,
intent(in) :: s1
5907 logical(LKG) :: rand(s1)
5908 type(rngf_type) ,
intent(inout) :: rng
5913 impure module function getUnifRandRNGFLU_D1_LK4(rng, lb, ub, s1)
result(rand)
5914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5915 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_LK4
5918 logical(LKG) ,
intent(in) :: lb, ub
5919 integer(IK) ,
intent(in) :: s1
5920 logical(LKG) :: rand(s1)
5921 type(rngf_type) ,
intent(inout) :: rng
5926 impure module function getUnifRandRNGFLU_D1_LK3(rng, lb, ub, s1)
result(rand)
5927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5928 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_LK3
5931 logical(LKG) ,
intent(in) :: lb, ub
5932 integer(IK) ,
intent(in) :: s1
5933 logical(LKG) :: rand(s1)
5934 type(rngf_type) ,
intent(inout) :: rng
5939 impure module function getUnifRandRNGFLU_D1_LK2(rng, lb, ub, s1)
result(rand)
5940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5941 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_LK2
5944 logical(LKG) ,
intent(in) :: lb, ub
5945 integer(IK) ,
intent(in) :: s1
5946 logical(LKG) :: rand(s1)
5947 type(rngf_type) ,
intent(inout) :: rng
5952 impure module function getUnifRandRNGFLU_D1_LK1(rng, lb, ub, s1)
result(rand)
5953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5954 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_LK1
5957 logical(LKG) ,
intent(in) :: lb, ub
5958 integer(IK) ,
intent(in) :: s1
5959 logical(LKG) :: rand(s1)
5960 type(rngf_type) ,
intent(inout) :: rng
5967 impure module function getUnifRandRNGFLU_D1_CK5(rng, lb, ub, s1)
result(rand)
5968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5969 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_CK5
5972 complex(CKG) ,
intent(in) :: lb, ub
5973 integer(IK) ,
intent(in) :: s1
5974 complex(CKG) :: rand(s1)
5975 type(rngf_type) ,
intent(inout) :: rng
5980 impure module function getUnifRandRNGFLU_D1_CK4(rng, lb, ub, s1)
result(rand)
5981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5982 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_CK4
5985 complex(CKG) ,
intent(in) :: lb, ub
5986 integer(IK) ,
intent(in) :: s1
5987 complex(CKG) :: rand(s1)
5988 type(rngf_type) ,
intent(inout) :: rng
5993 impure module function getUnifRandRNGFLU_D1_CK3(rng, lb, ub, s1)
result(rand)
5994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5995 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_CK3
5998 complex(CKG) ,
intent(in) :: lb, ub
5999 integer(IK) ,
intent(in) :: s1
6000 complex(CKG) :: rand(s1)
6001 type(rngf_type) ,
intent(inout) :: rng
6006 impure module function getUnifRandRNGFLU_D1_CK2(rng, lb, ub, s1)
result(rand)
6007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6008 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_CK2
6011 complex(CKG) ,
intent(in) :: lb, ub
6012 integer(IK) ,
intent(in) :: s1
6013 complex(CKG) :: rand(s1)
6014 type(rngf_type) ,
intent(inout) :: rng
6019 impure module function getUnifRandRNGFLU_D1_CK1(rng, lb, ub, s1)
result(rand)
6020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6021 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_CK1
6024 complex(CKG) ,
intent(in) :: lb, ub
6025 integer(IK) ,
intent(in) :: s1
6026 complex(CKG) :: rand(s1)
6027 type(rngf_type) ,
intent(inout) :: rng
6034 impure module function getUnifRandRNGFLU_D1_RK5(rng, lb, ub, s1)
result(rand)
6035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6036 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_RK5
6039 real(RKG) ,
intent(in) :: lb, ub
6040 integer(IK) ,
intent(in) :: s1
6041 real(RKG) :: rand(s1)
6042 type(rngf_type) ,
intent(inout) :: rng
6048 impure module function getUnifRandRNGFLU_D1_RK4(rng, lb, ub, s1)
result(rand)
6049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6050 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_RK4
6053 real(RKG) ,
intent(in) :: lb, ub
6054 integer(IK) ,
intent(in) :: s1
6055 real(RKG) :: rand(s1)
6056 type(rngf_type) ,
intent(inout) :: rng
6062 impure module function getUnifRandRNGFLU_D1_RK3(rng, lb, ub, s1)
result(rand)
6063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6064 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_RK3
6067 real(RKG) ,
intent(in) :: lb, ub
6068 integer(IK) ,
intent(in) :: s1
6069 real(RKG) :: rand(s1)
6070 type(rngf_type) ,
intent(inout) :: rng
6076 impure module function getUnifRandRNGFLU_D1_RK2(rng, lb, ub, s1)
result(rand)
6077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6078 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_RK2
6081 real(RKG) ,
intent(in) :: lb, ub
6082 integer(IK) ,
intent(in) :: s1
6083 real(RKG) :: rand(s1)
6084 type(rngf_type) ,
intent(inout) :: rng
6089 impure module function getUnifRandRNGFLU_D1_RK1(rng, lb, ub, s1)
result(rand)
6090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6091 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D1_RK1
6094 real(RKG) ,
intent(in) :: lb, ub
6095 integer(IK) ,
intent(in) :: s1
6096 real(RKG) :: rand(s1)
6097 type(rngf_type) ,
intent(inout) :: rng
6110 impure module function getUnifRandRNGFLU_D2_SK5(rng, lb, ub, s1, s2)
result(rand)
6111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6112 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_SK5
6115 character(
*,SKG) ,
intent(in) :: lb, ub
6116 integer(IK) ,
intent(in) :: s1, s2
6117 character(
len(lb,IK),SKG) :: rand(s1, s2)
6118 type(rngf_type) ,
intent(inout) :: rng
6123 impure module function getUnifRandRNGFLU_D2_SK4(rng, lb, ub, s1, s2)
result(rand)
6124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6125 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_SK4
6128 character(
*,SKG) ,
intent(in) :: lb, ub
6129 integer(IK) ,
intent(in) :: s1, s2
6130 character(
len(lb,IK),SKG) :: rand(s1, s2)
6131 type(rngf_type) ,
intent(inout) :: rng
6136 impure module function getUnifRandRNGFLU_D2_SK3(rng, lb, ub, s1, s2)
result(rand)
6137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6138 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_SK3
6141 character(
*,SKG) ,
intent(in) :: lb, ub
6142 integer(IK) ,
intent(in) :: s1, s2
6143 character(
len(lb,IK),SKG) :: rand(s1, s2)
6144 type(rngf_type) ,
intent(inout) :: rng
6149 impure module function getUnifRandRNGFLU_D2_SK2(rng, lb, ub, s1, s2)
result(rand)
6150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6151 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_SK2
6154 character(
*,SKG) ,
intent(in) :: lb, ub
6155 integer(IK) ,
intent(in) :: s1, s2
6156 character(
len(lb,IK),SKG) :: rand(s1, s2)
6157 type(rngf_type) ,
intent(inout) :: rng
6162 impure module function getUnifRandRNGFLU_D2_SK1(rng, lb, ub, s1, s2)
result(rand)
6163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6164 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_SK1
6167 character(
*,SKG) ,
intent(in) :: lb, ub
6168 integer(IK) ,
intent(in) :: s1, s2
6169 character(
len(lb,IK),SKG) :: rand(s1, s2)
6170 type(rngf_type) ,
intent(inout) :: rng
6177 impure module function getUnifRandRNGFLU_D2_IK5(rng, lb, ub, s1, s2)
result(rand)
6178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6179 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_IK5
6182 integer(IKG) ,
intent(in) :: lb, ub
6183 integer(IK) ,
intent(in) :: s1, s2
6184 integer(IKG) :: rand(s1, s2)
6185 type(rngf_type) ,
intent(inout) :: rng
6190 impure module function getUnifRandRNGFLU_D2_IK4(rng, lb, ub, s1, s2)
result(rand)
6191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6192 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_IK4
6195 integer(IKG) ,
intent(in) :: lb, ub
6196 integer(IK) ,
intent(in) :: s1, s2
6197 integer(IKG) :: rand(s1, s2)
6198 type(rngf_type) ,
intent(inout) :: rng
6203 impure module function getUnifRandRNGFLU_D2_IK3(rng, lb, ub, s1, s2)
result(rand)
6204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6205 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_IK3
6208 integer(IKG) ,
intent(in) :: lb, ub
6209 integer(IK) ,
intent(in) :: s1, s2
6210 integer(IKG) :: rand(s1, s2)
6211 type(rngf_type) ,
intent(inout) :: rng
6216 impure module function getUnifRandRNGFLU_D2_IK2(rng, lb, ub, s1, s2)
result(rand)
6217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6218 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_IK2
6221 integer(IKG) ,
intent(in) :: lb, ub
6222 integer(IK) ,
intent(in) :: s1, s2
6223 integer(IKG) :: rand(s1, s2)
6224 type(rngf_type) ,
intent(inout) :: rng
6229 impure module function getUnifRandRNGFLU_D2_IK1(rng, lb, ub, s1, s2)
result(rand)
6230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6231 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_IK1
6234 integer(IKG) ,
intent(in) :: lb, ub
6235 integer(IK) ,
intent(in) :: s1, s2
6236 integer(IKG) :: rand(s1, s2)
6237 type(rngf_type) ,
intent(inout) :: rng
6244 impure module function getUnifRandRNGFLU_D2_LK5(rng, lb, ub, s1, s2)
result(rand)
6245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6246 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_LK5
6249 logical(LKG) ,
intent(in) :: lb, ub
6250 integer(IK) ,
intent(in) :: s1, s2
6251 logical(LKG) :: rand(s1, s2)
6252 type(rngf_type) ,
intent(inout) :: rng
6257 impure module function getUnifRandRNGFLU_D2_LK4(rng, lb, ub, s1, s2)
result(rand)
6258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6259 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_LK4
6262 logical(LKG) ,
intent(in) :: lb, ub
6263 integer(IK) ,
intent(in) :: s1, s2
6264 logical(LKG) :: rand(s1, s2)
6265 type(rngf_type) ,
intent(inout) :: rng
6270 impure module function getUnifRandRNGFLU_D2_LK3(rng, lb, ub, s1, s2)
result(rand)
6271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6272 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_LK3
6275 logical(LKG) ,
intent(in) :: lb, ub
6276 integer(IK) ,
intent(in) :: s1, s2
6277 logical(LKG) :: rand(s1, s2)
6278 type(rngf_type) ,
intent(inout) :: rng
6283 impure module function getUnifRandRNGFLU_D2_LK2(rng, lb, ub, s1, s2)
result(rand)
6284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6285 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_LK2
6288 logical(LKG) ,
intent(in) :: lb, ub
6289 integer(IK) ,
intent(in) :: s1, s2
6290 logical(LKG) :: rand(s1, s2)
6291 type(rngf_type) ,
intent(inout) :: rng
6296 impure module function getUnifRandRNGFLU_D2_LK1(rng, lb, ub, s1, s2)
result(rand)
6297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6298 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_LK1
6301 logical(LKG) ,
intent(in) :: lb, ub
6302 integer(IK) ,
intent(in) :: s1, s2
6303 logical(LKG) :: rand(s1, s2)
6304 type(rngf_type) ,
intent(inout) :: rng
6311 impure module function getUnifRandRNGFLU_D2_CK5(rng, lb, ub, s1, s2)
result(rand)
6312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6313 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_CK5
6316 complex(CKG) ,
intent(in) :: lb, ub
6317 integer(IK) ,
intent(in) :: s1, s2
6318 complex(CKG) :: rand(s1, s2)
6319 type(rngf_type) ,
intent(inout) :: rng
6324 impure module function getUnifRandRNGFLU_D2_CK4(rng, lb, ub, s1, s2)
result(rand)
6325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6326 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_CK4
6329 complex(CKG) ,
intent(in) :: lb, ub
6330 integer(IK) ,
intent(in) :: s1, s2
6331 complex(CKG) :: rand(s1, s2)
6332 type(rngf_type) ,
intent(inout) :: rng
6337 impure module function getUnifRandRNGFLU_D2_CK3(rng, lb, ub, s1, s2)
result(rand)
6338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6339 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_CK3
6342 complex(CKG) ,
intent(in) :: lb, ub
6343 integer(IK) ,
intent(in) :: s1, s2
6344 complex(CKG) :: rand(s1, s2)
6345 type(rngf_type) ,
intent(inout) :: rng
6350 impure module function getUnifRandRNGFLU_D2_CK2(rng, lb, ub, s1, s2)
result(rand)
6351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6352 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_CK2
6355 complex(CKG) ,
intent(in) :: lb, ub
6356 integer(IK) ,
intent(in) :: s1, s2
6357 complex(CKG) :: rand(s1, s2)
6358 type(rngf_type) ,
intent(inout) :: rng
6363 impure module function getUnifRandRNGFLU_D2_CK1(rng, lb, ub, s1, s2)
result(rand)
6364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6365 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_CK1
6368 complex(CKG) ,
intent(in) :: lb, ub
6369 integer(IK) ,
intent(in) :: s1, s2
6370 complex(CKG) :: rand(s1, s2)
6371 type(rngf_type) ,
intent(inout) :: rng
6378 impure module function getUnifRandRNGFLU_D2_RK5(rng, lb, ub, s1, s2)
result(rand)
6379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6380 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_RK5
6383 real(RKG) ,
intent(in) :: lb, ub
6384 integer(IK) ,
intent(in) :: s1, s2
6385 real(RKG) :: rand(s1, s2)
6386 type(rngf_type) ,
intent(inout) :: rng
6392 impure module function getUnifRandRNGFLU_D2_RK4(rng, lb, ub, s1, s2)
result(rand)
6393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6394 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_RK4
6397 real(RKG) ,
intent(in) :: lb, ub
6398 integer(IK) ,
intent(in) :: s1, s2
6399 real(RKG) :: rand(s1, s2)
6400 type(rngf_type) ,
intent(inout) :: rng
6406 impure module function getUnifRandRNGFLU_D2_RK3(rng, lb, ub, s1, s2)
result(rand)
6407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6408 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_RK3
6411 real(RKG) ,
intent(in) :: lb, ub
6412 integer(IK) ,
intent(in) :: s1, s2
6413 real(RKG) :: rand(s1, s2)
6414 type(rngf_type) ,
intent(inout) :: rng
6420 impure module function getUnifRandRNGFLU_D2_RK2(rng, lb, ub, s1, s2)
result(rand)
6421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6422 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_RK2
6425 real(RKG) ,
intent(in) :: lb, ub
6426 integer(IK) ,
intent(in) :: s1, s2
6427 real(RKG) :: rand(s1, s2)
6428 type(rngf_type) ,
intent(inout) :: rng
6433 impure module function getUnifRandRNGFLU_D2_RK1(rng, lb, ub, s1, s2)
result(rand)
6434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6435 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D2_RK1
6438 real(RKG) ,
intent(in) :: lb, ub
6439 integer(IK) ,
intent(in) :: s1, s2
6440 real(RKG) :: rand(s1, s2)
6441 type(rngf_type) ,
intent(inout) :: rng
6454 impure module function getUnifRandRNGFLU_D3_SK5(rng, lb, ub, s1, s2, s3)
result(rand)
6455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6456 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_SK5
6459 character(
*,SKG) ,
intent(in) :: lb, ub
6460 integer(IK) ,
intent(in) :: s1, s2, s3
6461 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
6462 type(rngf_type) ,
intent(inout) :: rng
6467 impure module function getUnifRandRNGFLU_D3_SK4(rng, lb, ub, s1, s2, s3)
result(rand)
6468#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6469 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_SK4
6472 character(
*,SKG) ,
intent(in) :: lb, ub
6473 integer(IK) ,
intent(in) :: s1, s2, s3
6474 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
6475 type(rngf_type) ,
intent(inout) :: rng
6480 impure module function getUnifRandRNGFLU_D3_SK3(rng, lb, ub, s1, s2, s3)
result(rand)
6481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6482 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_SK3
6485 character(
*,SKG) ,
intent(in) :: lb, ub
6486 integer(IK) ,
intent(in) :: s1, s2, s3
6487 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
6488 type(rngf_type) ,
intent(inout) :: rng
6493 impure module function getUnifRandRNGFLU_D3_SK2(rng, lb, ub, s1, s2, s3)
result(rand)
6494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6495 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_SK2
6498 character(
*,SKG) ,
intent(in) :: lb, ub
6499 integer(IK) ,
intent(in) :: s1, s2, s3
6500 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
6501 type(rngf_type) ,
intent(inout) :: rng
6506 impure module function getUnifRandRNGFLU_D3_SK1(rng, lb, ub, s1, s2, s3)
result(rand)
6507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6508 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_SK1
6511 character(
*,SKG) ,
intent(in) :: lb, ub
6512 integer(IK) ,
intent(in) :: s1, s2, s3
6513 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
6514 type(rngf_type) ,
intent(inout) :: rng
6521 impure module function getUnifRandRNGFLU_D3_IK5(rng, lb, ub, s1, s2, s3)
result(rand)
6522#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6523 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_IK5
6526 integer(IKG) ,
intent(in) :: lb, ub
6527 integer(IK) ,
intent(in) :: s1, s2, s3
6528 integer(IKG) :: rand(s1, s2, s3)
6529 type(rngf_type) ,
intent(inout) :: rng
6534 impure module function getUnifRandRNGFLU_D3_IK4(rng, lb, ub, s1, s2, s3)
result(rand)
6535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6536 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_IK4
6539 integer(IKG) ,
intent(in) :: lb, ub
6540 integer(IK) ,
intent(in) :: s1, s2, s3
6541 integer(IKG) :: rand(s1, s2, s3)
6542 type(rngf_type) ,
intent(inout) :: rng
6547 impure module function getUnifRandRNGFLU_D3_IK3(rng, lb, ub, s1, s2, s3)
result(rand)
6548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6549 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_IK3
6552 integer(IKG) ,
intent(in) :: lb, ub
6553 integer(IK) ,
intent(in) :: s1, s2, s3
6554 integer(IKG) :: rand(s1, s2, s3)
6555 type(rngf_type) ,
intent(inout) :: rng
6560 impure module function getUnifRandRNGFLU_D3_IK2(rng, lb, ub, s1, s2, s3)
result(rand)
6561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6562 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_IK2
6565 integer(IKG) ,
intent(in) :: lb, ub
6566 integer(IK) ,
intent(in) :: s1, s2, s3
6567 integer(IKG) :: rand(s1, s2, s3)
6568 type(rngf_type) ,
intent(inout) :: rng
6573 impure module function getUnifRandRNGFLU_D3_IK1(rng, lb, ub, s1, s2, s3)
result(rand)
6574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6575 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_IK1
6578 integer(IKG) ,
intent(in) :: lb, ub
6579 integer(IK) ,
intent(in) :: s1, s2, s3
6580 integer(IKG) :: rand(s1, s2, s3)
6581 type(rngf_type) ,
intent(inout) :: rng
6588 impure module function getUnifRandRNGFLU_D3_LK5(rng, lb, ub, s1, s2, s3)
result(rand)
6589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6590 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_LK5
6593 logical(LKG) ,
intent(in) :: lb, ub
6594 integer(IK) ,
intent(in) :: s1, s2, s3
6595 logical(LKG) :: rand(s1, s2, s3)
6596 type(rngf_type) ,
intent(inout) :: rng
6601 impure module function getUnifRandRNGFLU_D3_LK4(rng, lb, ub, s1, s2, s3)
result(rand)
6602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6603 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_LK4
6606 logical(LKG) ,
intent(in) :: lb, ub
6607 integer(IK) ,
intent(in) :: s1, s2, s3
6608 logical(LKG) :: rand(s1, s2, s3)
6609 type(rngf_type) ,
intent(inout) :: rng
6614 impure module function getUnifRandRNGFLU_D3_LK3(rng, lb, ub, s1, s2, s3)
result(rand)
6615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6616 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_LK3
6619 logical(LKG) ,
intent(in) :: lb, ub
6620 integer(IK) ,
intent(in) :: s1, s2, s3
6621 logical(LKG) :: rand(s1, s2, s3)
6622 type(rngf_type) ,
intent(inout) :: rng
6627 impure module function getUnifRandRNGFLU_D3_LK2(rng, lb, ub, s1, s2, s3)
result(rand)
6628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6629 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_LK2
6632 logical(LKG) ,
intent(in) :: lb, ub
6633 integer(IK) ,
intent(in) :: s1, s2, s3
6634 logical(LKG) :: rand(s1, s2, s3)
6635 type(rngf_type) ,
intent(inout) :: rng
6640 impure module function getUnifRandRNGFLU_D3_LK1(rng, lb, ub, s1, s2, s3)
result(rand)
6641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6642 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_LK1
6645 logical(LKG) ,
intent(in) :: lb, ub
6646 integer(IK) ,
intent(in) :: s1, s2, s3
6647 logical(LKG) :: rand(s1, s2, s3)
6648 type(rngf_type) ,
intent(inout) :: rng
6655 impure module function getUnifRandRNGFLU_D3_CK5(rng, lb, ub, s1, s2, s3)
result(rand)
6656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6657 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_CK5
6660 complex(CKG) ,
intent(in) :: lb, ub
6661 integer(IK) ,
intent(in) :: s1, s2, s3
6662 complex(CKG) :: rand(s1, s2, s3)
6663 type(rngf_type) ,
intent(inout) :: rng
6668 impure module function getUnifRandRNGFLU_D3_CK4(rng, lb, ub, s1, s2, s3)
result(rand)
6669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6670 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_CK4
6673 complex(CKG) ,
intent(in) :: lb, ub
6674 integer(IK) ,
intent(in) :: s1, s2, s3
6675 complex(CKG) :: rand(s1, s2, s3)
6676 type(rngf_type) ,
intent(inout) :: rng
6681 impure module function getUnifRandRNGFLU_D3_CK3(rng, lb, ub, s1, s2, s3)
result(rand)
6682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6683 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_CK3
6686 complex(CKG) ,
intent(in) :: lb, ub
6687 integer(IK) ,
intent(in) :: s1, s2, s3
6688 complex(CKG) :: rand(s1, s2, s3)
6689 type(rngf_type) ,
intent(inout) :: rng
6694 impure module function getUnifRandRNGFLU_D3_CK2(rng, lb, ub, s1, s2, s3)
result(rand)
6695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6696 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_CK2
6699 complex(CKG) ,
intent(in) :: lb, ub
6700 integer(IK) ,
intent(in) :: s1, s2, s3
6701 complex(CKG) :: rand(s1, s2, s3)
6702 type(rngf_type) ,
intent(inout) :: rng
6707 impure module function getUnifRandRNGFLU_D3_CK1(rng, lb, ub, s1, s2, s3)
result(rand)
6708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6709 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_CK1
6712 complex(CKG) ,
intent(in) :: lb, ub
6713 integer(IK) ,
intent(in) :: s1, s2, s3
6714 complex(CKG) :: rand(s1, s2, s3)
6715 type(rngf_type) ,
intent(inout) :: rng
6722 impure module function getUnifRandRNGFLU_D3_RK5(rng, lb, ub, s1, s2, s3)
result(rand)
6723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6724 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_RK5
6727 real(RKG) ,
intent(in) :: lb, ub
6728 integer(IK) ,
intent(in) :: s1, s2, s3
6729 real(RKG) :: rand(s1, s2, s3)
6730 type(rngf_type) ,
intent(inout) :: rng
6736 impure module function getUnifRandRNGFLU_D3_RK4(rng, lb, ub, s1, s2, s3)
result(rand)
6737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6738 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_RK4
6741 real(RKG) ,
intent(in) :: lb, ub
6742 integer(IK) ,
intent(in) :: s1, s2, s3
6743 real(RKG) :: rand(s1, s2, s3)
6744 type(rngf_type) ,
intent(inout) :: rng
6750 impure module function getUnifRandRNGFLU_D3_RK3(rng, lb, ub, s1, s2, s3)
result(rand)
6751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6752 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_RK3
6755 real(RKG) ,
intent(in) :: lb, ub
6756 integer(IK) ,
intent(in) :: s1, s2, s3
6757 real(RKG) :: rand(s1, s2, s3)
6758 type(rngf_type) ,
intent(inout) :: rng
6764 impure module function getUnifRandRNGFLU_D3_RK2(rng, lb, ub, s1, s2, s3)
result(rand)
6765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6766 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_RK2
6769 real(RKG) ,
intent(in) :: lb, ub
6770 integer(IK) ,
intent(in) :: s1, s2, s3
6771 real(RKG) :: rand(s1, s2, s3)
6772 type(rngf_type) ,
intent(inout) :: rng
6777 impure module function getUnifRandRNGFLU_D3_RK1(rng, lb, ub, s1, s2, s3)
result(rand)
6778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6779 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGFLU_D3_RK1
6782 real(RKG) ,
intent(in) :: lb, ub
6783 integer(IK) ,
intent(in) :: s1, s2, s3
6784 real(RKG) :: rand(s1, s2, s3)
6785 type(rngf_type) ,
intent(inout) :: rng
6807 impure module function getUnifRandRNGSDD_D0_LK(rng)
result(rand)
6808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6809 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSDD_D0_LK
6812 logical(LKG) :: rand
6813 type(splitmix64_type) ,
intent(inout) :: rng
6825 impure elemental module function getUnifRandRNGSLU_D0_SK5(rng, lb, ub)
result(rand)
6826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6827 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_SK5
6830 character(
*,SKG) ,
intent(in) :: lb, ub
6831 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
6832 type(splitmix64_type) ,
intent(inout) :: rng
6837 impure elemental module function getUnifRandRNGSLU_D0_SK4(rng, lb, ub)
result(rand)
6838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6839 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_SK4
6842 character(
*,SKG) ,
intent(in) :: lb, ub
6843 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
6844 type(splitmix64_type) ,
intent(inout) :: rng
6849 impure elemental module function getUnifRandRNGSLU_D0_SK3(rng, lb, ub)
result(rand)
6850#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6851 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_SK3
6854 character(
*,SKG) ,
intent(in) :: lb, ub
6855 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
6856 type(splitmix64_type) ,
intent(inout) :: rng
6861 impure elemental module function getUnifRandRNGSLU_D0_SK2(rng, lb, ub)
result(rand)
6862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6863 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_SK2
6866 character(
*,SKG) ,
intent(in) :: lb, ub
6867 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
6868 type(splitmix64_type) ,
intent(inout) :: rng
6873 impure elemental module function getUnifRandRNGSLU_D0_SK1(rng, lb, ub)
result(rand)
6874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6875 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_SK1
6878 character(
*,SKG) ,
intent(in) :: lb, ub
6879 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
6880 type(splitmix64_type) ,
intent(inout) :: rng
6887 impure elemental module function getUnifRandRNGSLU_D0_IK5(rng, lb, ub)
result(rand)
6888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6889 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_IK5
6892 integer(IKG) ,
intent(in) :: lb, ub
6893 integer(IKG) :: rand
6894 type(splitmix64_type) ,
intent(inout) :: rng
6899 impure elemental module function getUnifRandRNGSLU_D0_IK4(rng, lb, ub)
result(rand)
6900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6901 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_IK4
6904 integer(IKG) ,
intent(in) :: lb, ub
6905 integer(IKG) :: rand
6906 type(splitmix64_type) ,
intent(inout) :: rng
6911 impure elemental module function getUnifRandRNGSLU_D0_IK3(rng, lb, ub)
result(rand)
6912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6913 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_IK3
6916 integer(IKG) ,
intent(in) :: lb, ub
6917 integer(IKG) :: rand
6918 type(splitmix64_type) ,
intent(inout) :: rng
6923 impure elemental module function getUnifRandRNGSLU_D0_IK2(rng, lb, ub)
result(rand)
6924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6925 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_IK2
6928 integer(IKG) ,
intent(in) :: lb, ub
6929 integer(IKG) :: rand
6930 type(splitmix64_type) ,
intent(inout) :: rng
6935 impure elemental module function getUnifRandRNGSLU_D0_IK1(rng, lb, ub)
result(rand)
6936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6937 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_IK1
6940 integer(IKG) ,
intent(in) :: lb, ub
6941 integer(IKG) :: rand
6942 type(splitmix64_type) ,
intent(inout) :: rng
6949 impure elemental module function getUnifRandRNGSLU_D0_LK5(rng, lb, ub)
result(rand)
6950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6951 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_LK5
6954 logical(LKG) ,
intent(in) :: lb, ub
6955 logical(LKG) :: rand
6956 type(splitmix64_type) ,
intent(inout) :: rng
6961 impure elemental module function getUnifRandRNGSLU_D0_LK4(rng, lb, ub)
result(rand)
6962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6963 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_LK4
6966 logical(LKG) ,
intent(in) :: lb, ub
6967 logical(LKG) :: rand
6968 type(splitmix64_type) ,
intent(inout) :: rng
6973 impure elemental module function getUnifRandRNGSLU_D0_LK3(rng, lb, ub)
result(rand)
6974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6975 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_LK3
6978 logical(LKG) ,
intent(in) :: lb, ub
6979 logical(LKG) :: rand
6980 type(splitmix64_type) ,
intent(inout) :: rng
6985 impure elemental module function getUnifRandRNGSLU_D0_LK2(rng, lb, ub)
result(rand)
6986#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6987 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_LK2
6990 logical(LKG) ,
intent(in) :: lb, ub
6991 logical(LKG) :: rand
6992 type(splitmix64_type) ,
intent(inout) :: rng
6997 impure elemental module function getUnifRandRNGSLU_D0_LK1(rng, lb, ub)
result(rand)
6998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6999 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_LK1
7002 logical(LKG) ,
intent(in) :: lb, ub
7003 logical(LKG) :: rand
7004 type(splitmix64_type) ,
intent(inout) :: rng
7011 impure elemental module function getUnifRandRNGSLU_D0_CK5(rng, lb, ub)
result(rand)
7012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7013 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_CK5
7016 complex(CKG) ,
intent(in) :: lb, ub
7017 complex(CKG) :: rand
7018 type(splitmix64_type) ,
intent(inout) :: rng
7023 impure elemental module function getUnifRandRNGSLU_D0_CK4(rng, lb, ub)
result(rand)
7024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7025 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_CK4
7028 complex(CKG) ,
intent(in) :: lb, ub
7029 complex(CKG) :: rand
7030 type(splitmix64_type) ,
intent(inout) :: rng
7035 impure elemental module function getUnifRandRNGSLU_D0_CK3(rng, lb, ub)
result(rand)
7036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7037 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_CK3
7040 complex(CKG) ,
intent(in) :: lb, ub
7041 complex(CKG) :: rand
7042 type(splitmix64_type) ,
intent(inout) :: rng
7047 impure elemental module function getUnifRandRNGSLU_D0_CK2(rng, lb, ub)
result(rand)
7048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7049 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_CK2
7052 complex(CKG) ,
intent(in) :: lb, ub
7053 complex(CKG) :: rand
7054 type(splitmix64_type) ,
intent(inout) :: rng
7059 impure elemental module function getUnifRandRNGSLU_D0_CK1(rng, lb, ub)
result(rand)
7060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7061 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_CK1
7064 complex(CKG) ,
intent(in) :: lb, ub
7065 complex(CKG) :: rand
7066 type(splitmix64_type) ,
intent(inout) :: rng
7073 impure elemental module function getUnifRandRNGSLU_D0_RK5(rng, lb, ub)
result(rand)
7074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7075 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_RK5
7078 real(RKG) ,
intent(in) :: lb, ub
7080 type(splitmix64_type) ,
intent(inout) :: rng
7085 impure elemental module function getUnifRandRNGSLU_D0_RK4(rng, lb, ub)
result(rand)
7086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7087 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_RK4
7090 real(RKG) ,
intent(in) :: lb, ub
7092 type(splitmix64_type) ,
intent(inout) :: rng
7097 impure elemental module function getUnifRandRNGSLU_D0_RK3(rng, lb, ub)
result(rand)
7098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7099 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_RK3
7102 real(RKG) ,
intent(in) :: lb, ub
7104 type(splitmix64_type) ,
intent(inout) :: rng
7109 impure elemental module function getUnifRandRNGSLU_D0_RK2(rng, lb, ub)
result(rand)
7110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7111 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_RK2
7114 real(RKG) ,
intent(in) :: lb, ub
7116 type(splitmix64_type) ,
intent(inout) :: rng
7121 impure elemental module function getUnifRandRNGSLU_D0_RK1(rng, lb, ub)
result(rand)
7122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7123 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D0_RK1
7126 real(RKG) ,
intent(in) :: lb, ub
7128 type(splitmix64_type) ,
intent(inout) :: rng
7141 impure module function getUnifRandRNGSLU_D1_SK5(rng, lb, ub, s1)
result(rand)
7142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7143 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_SK5
7146 character(
*,SKG) ,
intent(in) :: lb, ub
7147 integer(IK) ,
intent(in) :: s1
7148 character(
len(lb,IK),SKG) :: rand(s1)
7149 type(splitmix64_type) ,
intent(inout) :: rng
7154 impure module function getUnifRandRNGSLU_D1_SK4(rng, lb, ub, s1)
result(rand)
7155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7156 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_SK4
7159 character(
*,SKG) ,
intent(in) :: lb, ub
7160 integer(IK) ,
intent(in) :: s1
7161 character(
len(lb,IK),SKG) :: rand(s1)
7162 type(splitmix64_type) ,
intent(inout) :: rng
7167 impure module function getUnifRandRNGSLU_D1_SK3(rng, lb, ub, s1)
result(rand)
7168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7169 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_SK3
7172 character(
*,SKG) ,
intent(in) :: lb, ub
7173 integer(IK) ,
intent(in) :: s1
7174 character(
len(lb,IK),SKG) :: rand(s1)
7175 type(splitmix64_type) ,
intent(inout) :: rng
7180 impure module function getUnifRandRNGSLU_D1_SK2(rng, lb, ub, s1)
result(rand)
7181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7182 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_SK2
7185 character(
*,SKG) ,
intent(in) :: lb, ub
7186 integer(IK) ,
intent(in) :: s1
7187 character(
len(lb,IK),SKG) :: rand(s1)
7188 type(splitmix64_type) ,
intent(inout) :: rng
7193 impure module function getUnifRandRNGSLU_D1_SK1(rng, lb, ub, s1)
result(rand)
7194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7195 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_SK1
7198 character(
*,SKG) ,
intent(in) :: lb, ub
7199 integer(IK) ,
intent(in) :: s1
7200 character(
len(lb,IK),SKG) :: rand(s1)
7201 type(splitmix64_type) ,
intent(inout) :: rng
7208 impure module function getUnifRandRNGSLU_D1_IK5(rng, lb, ub, s1)
result(rand)
7209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7210 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_IK5
7213 integer(IKG) ,
intent(in) :: lb, ub
7214 integer(IK) ,
intent(in) :: s1
7215 integer(IKG) :: rand(s1)
7216 type(splitmix64_type) ,
intent(inout) :: rng
7221 impure module function getUnifRandRNGSLU_D1_IK4(rng, lb, ub, s1)
result(rand)
7222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7223 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_IK4
7226 integer(IKG) ,
intent(in) :: lb, ub
7227 integer(IK) ,
intent(in) :: s1
7228 integer(IKG) :: rand(s1)
7229 type(splitmix64_type) ,
intent(inout) :: rng
7234 impure module function getUnifRandRNGSLU_D1_IK3(rng, lb, ub, s1)
result(rand)
7235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7236 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_IK3
7239 integer(IKG) ,
intent(in) :: lb, ub
7240 integer(IK) ,
intent(in) :: s1
7241 integer(IKG) :: rand(s1)
7242 type(splitmix64_type) ,
intent(inout) :: rng
7247 impure module function getUnifRandRNGSLU_D1_IK2(rng, lb, ub, s1)
result(rand)
7248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7249 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_IK2
7252 integer(IKG) ,
intent(in) :: lb, ub
7253 integer(IK) ,
intent(in) :: s1
7254 integer(IKG) :: rand(s1)
7255 type(splitmix64_type) ,
intent(inout) :: rng
7260 impure module function getUnifRandRNGSLU_D1_IK1(rng, lb, ub, s1)
result(rand)
7261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7262 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_IK1
7265 integer(IKG) ,
intent(in) :: lb, ub
7266 integer(IK) ,
intent(in) :: s1
7267 integer(IKG) :: rand(s1)
7268 type(splitmix64_type) ,
intent(inout) :: rng
7275 impure module function getUnifRandRNGSLU_D1_LK5(rng, lb, ub, s1)
result(rand)
7276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7277 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_LK5
7280 logical(LKG) ,
intent(in) :: lb, ub
7281 integer(IK) ,
intent(in) :: s1
7282 logical(LKG) :: rand(s1)
7283 type(splitmix64_type) ,
intent(inout) :: rng
7288 impure module function getUnifRandRNGSLU_D1_LK4(rng, lb, ub, s1)
result(rand)
7289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7290 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_LK4
7293 logical(LKG) ,
intent(in) :: lb, ub
7294 integer(IK) ,
intent(in) :: s1
7295 logical(LKG) :: rand(s1)
7296 type(splitmix64_type) ,
intent(inout) :: rng
7301 impure module function getUnifRandRNGSLU_D1_LK3(rng, lb, ub, s1)
result(rand)
7302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7303 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_LK3
7306 logical(LKG) ,
intent(in) :: lb, ub
7307 integer(IK) ,
intent(in) :: s1
7308 logical(LKG) :: rand(s1)
7309 type(splitmix64_type) ,
intent(inout) :: rng
7314 impure module function getUnifRandRNGSLU_D1_LK2(rng, lb, ub, s1)
result(rand)
7315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7316 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_LK2
7319 logical(LKG) ,
intent(in) :: lb, ub
7320 integer(IK) ,
intent(in) :: s1
7321 logical(LKG) :: rand(s1)
7322 type(splitmix64_type) ,
intent(inout) :: rng
7327 impure module function getUnifRandRNGSLU_D1_LK1(rng, lb, ub, s1)
result(rand)
7328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7329 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_LK1
7332 logical(LKG) ,
intent(in) :: lb, ub
7333 integer(IK) ,
intent(in) :: s1
7334 logical(LKG) :: rand(s1)
7335 type(splitmix64_type) ,
intent(inout) :: rng
7342 impure module function getUnifRandRNGSLU_D1_CK5(rng, lb, ub, s1)
result(rand)
7343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7344 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_CK5
7347 complex(CKG) ,
intent(in) :: lb, ub
7348 integer(IK) ,
intent(in) :: s1
7349 complex(CKG) :: rand(s1)
7350 type(splitmix64_type) ,
intent(inout) :: rng
7355 impure module function getUnifRandRNGSLU_D1_CK4(rng, lb, ub, s1)
result(rand)
7356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7357 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_CK4
7360 complex(CKG) ,
intent(in) :: lb, ub
7361 integer(IK) ,
intent(in) :: s1
7362 complex(CKG) :: rand(s1)
7363 type(splitmix64_type) ,
intent(inout) :: rng
7368 impure module function getUnifRandRNGSLU_D1_CK3(rng, lb, ub, s1)
result(rand)
7369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7370 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_CK3
7373 complex(CKG) ,
intent(in) :: lb, ub
7374 integer(IK) ,
intent(in) :: s1
7375 complex(CKG) :: rand(s1)
7376 type(splitmix64_type) ,
intent(inout) :: rng
7381 impure module function getUnifRandRNGSLU_D1_CK2(rng, lb, ub, s1)
result(rand)
7382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7383 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_CK2
7386 complex(CKG) ,
intent(in) :: lb, ub
7387 integer(IK) ,
intent(in) :: s1
7388 complex(CKG) :: rand(s1)
7389 type(splitmix64_type) ,
intent(inout) :: rng
7394 impure module function getUnifRandRNGSLU_D1_CK1(rng, lb, ub, s1)
result(rand)
7395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7396 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_CK1
7399 complex(CKG) ,
intent(in) :: lb, ub
7400 integer(IK) ,
intent(in) :: s1
7401 complex(CKG) :: rand(s1)
7402 type(splitmix64_type) ,
intent(inout) :: rng
7409 impure module function getUnifRandRNGSLU_D1_RK5(rng, lb, ub, s1)
result(rand)
7410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7411 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_RK5
7414 real(RKG) ,
intent(in) :: lb, ub
7415 integer(IK) ,
intent(in) :: s1
7416 real(RKG) :: rand(s1)
7417 type(splitmix64_type) ,
intent(inout) :: rng
7423 impure module function getUnifRandRNGSLU_D1_RK4(rng, lb, ub, s1)
result(rand)
7424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7425 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_RK4
7428 real(RKG) ,
intent(in) :: lb, ub
7429 integer(IK) ,
intent(in) :: s1
7430 real(RKG) :: rand(s1)
7431 type(splitmix64_type) ,
intent(inout) :: rng
7437 impure module function getUnifRandRNGSLU_D1_RK3(rng, lb, ub, s1)
result(rand)
7438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7439 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_RK3
7442 real(RKG) ,
intent(in) :: lb, ub
7443 integer(IK) ,
intent(in) :: s1
7444 real(RKG) :: rand(s1)
7445 type(splitmix64_type) ,
intent(inout) :: rng
7451 impure module function getUnifRandRNGSLU_D1_RK2(rng, lb, ub, s1)
result(rand)
7452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7453 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_RK2
7456 real(RKG) ,
intent(in) :: lb, ub
7457 integer(IK) ,
intent(in) :: s1
7458 real(RKG) :: rand(s1)
7459 type(splitmix64_type) ,
intent(inout) :: rng
7464 impure module function getUnifRandRNGSLU_D1_RK1(rng, lb, ub, s1)
result(rand)
7465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7466 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D1_RK1
7469 real(RKG) ,
intent(in) :: lb, ub
7470 integer(IK) ,
intent(in) :: s1
7471 real(RKG) :: rand(s1)
7472 type(splitmix64_type) ,
intent(inout) :: rng
7485 impure module function getUnifRandRNGSLU_D2_SK5(rng, lb, ub, s1, s2)
result(rand)
7486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7487 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_SK5
7490 character(
*,SKG) ,
intent(in) :: lb, ub
7491 integer(IK) ,
intent(in) :: s1, s2
7492 character(
len(lb,IK),SKG) :: rand(s1, s2)
7493 type(splitmix64_type) ,
intent(inout) :: rng
7498 impure module function getUnifRandRNGSLU_D2_SK4(rng, lb, ub, s1, s2)
result(rand)
7499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7500 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_SK4
7503 character(
*,SKG) ,
intent(in) :: lb, ub
7504 integer(IK) ,
intent(in) :: s1, s2
7505 character(
len(lb,IK),SKG) :: rand(s1, s2)
7506 type(splitmix64_type) ,
intent(inout) :: rng
7511 impure module function getUnifRandRNGSLU_D2_SK3(rng, lb, ub, s1, s2)
result(rand)
7512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7513 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_SK3
7516 character(
*,SKG) ,
intent(in) :: lb, ub
7517 integer(IK) ,
intent(in) :: s1, s2
7518 character(
len(lb,IK),SKG) :: rand(s1, s2)
7519 type(splitmix64_type) ,
intent(inout) :: rng
7524 impure module function getUnifRandRNGSLU_D2_SK2(rng, lb, ub, s1, s2)
result(rand)
7525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7526 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_SK2
7529 character(
*,SKG) ,
intent(in) :: lb, ub
7530 integer(IK) ,
intent(in) :: s1, s2
7531 character(
len(lb,IK),SKG) :: rand(s1, s2)
7532 type(splitmix64_type) ,
intent(inout) :: rng
7537 impure module function getUnifRandRNGSLU_D2_SK1(rng, lb, ub, s1, s2)
result(rand)
7538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7539 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_SK1
7542 character(
*,SKG) ,
intent(in) :: lb, ub
7543 integer(IK) ,
intent(in) :: s1, s2
7544 character(
len(lb,IK),SKG) :: rand(s1, s2)
7545 type(splitmix64_type) ,
intent(inout) :: rng
7552 impure module function getUnifRandRNGSLU_D2_IK5(rng, lb, ub, s1, s2)
result(rand)
7553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7554 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_IK5
7557 integer(IKG) ,
intent(in) :: lb, ub
7558 integer(IK) ,
intent(in) :: s1, s2
7559 integer(IKG) :: rand(s1, s2)
7560 type(splitmix64_type) ,
intent(inout) :: rng
7565 impure module function getUnifRandRNGSLU_D2_IK4(rng, lb, ub, s1, s2)
result(rand)
7566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7567 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_IK4
7570 integer(IKG) ,
intent(in) :: lb, ub
7571 integer(IK) ,
intent(in) :: s1, s2
7572 integer(IKG) :: rand(s1, s2)
7573 type(splitmix64_type) ,
intent(inout) :: rng
7578 impure module function getUnifRandRNGSLU_D2_IK3(rng, lb, ub, s1, s2)
result(rand)
7579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7580 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_IK3
7583 integer(IKG) ,
intent(in) :: lb, ub
7584 integer(IK) ,
intent(in) :: s1, s2
7585 integer(IKG) :: rand(s1, s2)
7586 type(splitmix64_type) ,
intent(inout) :: rng
7591 impure module function getUnifRandRNGSLU_D2_IK2(rng, lb, ub, s1, s2)
result(rand)
7592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7593 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_IK2
7596 integer(IKG) ,
intent(in) :: lb, ub
7597 integer(IK) ,
intent(in) :: s1, s2
7598 integer(IKG) :: rand(s1, s2)
7599 type(splitmix64_type) ,
intent(inout) :: rng
7604 impure module function getUnifRandRNGSLU_D2_IK1(rng, lb, ub, s1, s2)
result(rand)
7605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7606 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_IK1
7609 integer(IKG) ,
intent(in) :: lb, ub
7610 integer(IK) ,
intent(in) :: s1, s2
7611 integer(IKG) :: rand(s1, s2)
7612 type(splitmix64_type) ,
intent(inout) :: rng
7619 impure module function getUnifRandRNGSLU_D2_LK5(rng, lb, ub, s1, s2)
result(rand)
7620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7621 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_LK5
7624 logical(LKG) ,
intent(in) :: lb, ub
7625 integer(IK) ,
intent(in) :: s1, s2
7626 logical(LKG) :: rand(s1, s2)
7627 type(splitmix64_type) ,
intent(inout) :: rng
7632 impure module function getUnifRandRNGSLU_D2_LK4(rng, lb, ub, s1, s2)
result(rand)
7633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7634 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_LK4
7637 logical(LKG) ,
intent(in) :: lb, ub
7638 integer(IK) ,
intent(in) :: s1, s2
7639 logical(LKG) :: rand(s1, s2)
7640 type(splitmix64_type) ,
intent(inout) :: rng
7645 impure module function getUnifRandRNGSLU_D2_LK3(rng, lb, ub, s1, s2)
result(rand)
7646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7647 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_LK3
7650 logical(LKG) ,
intent(in) :: lb, ub
7651 integer(IK) ,
intent(in) :: s1, s2
7652 logical(LKG) :: rand(s1, s2)
7653 type(splitmix64_type) ,
intent(inout) :: rng
7658 impure module function getUnifRandRNGSLU_D2_LK2(rng, lb, ub, s1, s2)
result(rand)
7659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7660 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_LK2
7663 logical(LKG) ,
intent(in) :: lb, ub
7664 integer(IK) ,
intent(in) :: s1, s2
7665 logical(LKG) :: rand(s1, s2)
7666 type(splitmix64_type) ,
intent(inout) :: rng
7671 impure module function getUnifRandRNGSLU_D2_LK1(rng, lb, ub, s1, s2)
result(rand)
7672#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7673 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_LK1
7676 logical(LKG) ,
intent(in) :: lb, ub
7677 integer(IK) ,
intent(in) :: s1, s2
7678 logical(LKG) :: rand(s1, s2)
7679 type(splitmix64_type) ,
intent(inout) :: rng
7686 impure module function getUnifRandRNGSLU_D2_CK5(rng, lb, ub, s1, s2)
result(rand)
7687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7688 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_CK5
7691 complex(CKG) ,
intent(in) :: lb, ub
7692 integer(IK) ,
intent(in) :: s1, s2
7693 complex(CKG) :: rand(s1, s2)
7694 type(splitmix64_type) ,
intent(inout) :: rng
7699 impure module function getUnifRandRNGSLU_D2_CK4(rng, lb, ub, s1, s2)
result(rand)
7700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7701 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_CK4
7704 complex(CKG) ,
intent(in) :: lb, ub
7705 integer(IK) ,
intent(in) :: s1, s2
7706 complex(CKG) :: rand(s1, s2)
7707 type(splitmix64_type) ,
intent(inout) :: rng
7712 impure module function getUnifRandRNGSLU_D2_CK3(rng, lb, ub, s1, s2)
result(rand)
7713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7714 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_CK3
7717 complex(CKG) ,
intent(in) :: lb, ub
7718 integer(IK) ,
intent(in) :: s1, s2
7719 complex(CKG) :: rand(s1, s2)
7720 type(splitmix64_type) ,
intent(inout) :: rng
7725 impure module function getUnifRandRNGSLU_D2_CK2(rng, lb, ub, s1, s2)
result(rand)
7726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7727 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_CK2
7730 complex(CKG) ,
intent(in) :: lb, ub
7731 integer(IK) ,
intent(in) :: s1, s2
7732 complex(CKG) :: rand(s1, s2)
7733 type(splitmix64_type) ,
intent(inout) :: rng
7738 impure module function getUnifRandRNGSLU_D2_CK1(rng, lb, ub, s1, s2)
result(rand)
7739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7740 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_CK1
7743 complex(CKG) ,
intent(in) :: lb, ub
7744 integer(IK) ,
intent(in) :: s1, s2
7745 complex(CKG) :: rand(s1, s2)
7746 type(splitmix64_type) ,
intent(inout) :: rng
7753 impure module function getUnifRandRNGSLU_D2_RK5(rng, lb, ub, s1, s2)
result(rand)
7754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7755 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_RK5
7758 real(RKG) ,
intent(in) :: lb, ub
7759 integer(IK) ,
intent(in) :: s1, s2
7760 real(RKG) :: rand(s1, s2)
7761 type(splitmix64_type) ,
intent(inout) :: rng
7767 impure module function getUnifRandRNGSLU_D2_RK4(rng, lb, ub, s1, s2)
result(rand)
7768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7769 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_RK4
7772 real(RKG) ,
intent(in) :: lb, ub
7773 integer(IK) ,
intent(in) :: s1, s2
7774 real(RKG) :: rand(s1, s2)
7775 type(splitmix64_type) ,
intent(inout) :: rng
7781 impure module function getUnifRandRNGSLU_D2_RK3(rng, lb, ub, s1, s2)
result(rand)
7782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7783 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_RK3
7786 real(RKG) ,
intent(in) :: lb, ub
7787 integer(IK) ,
intent(in) :: s1, s2
7788 real(RKG) :: rand(s1, s2)
7789 type(splitmix64_type) ,
intent(inout) :: rng
7795 impure module function getUnifRandRNGSLU_D2_RK2(rng, lb, ub, s1, s2)
result(rand)
7796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7797 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_RK2
7800 real(RKG) ,
intent(in) :: lb, ub
7801 integer(IK) ,
intent(in) :: s1, s2
7802 real(RKG) :: rand(s1, s2)
7803 type(splitmix64_type) ,
intent(inout) :: rng
7808 impure module function getUnifRandRNGSLU_D2_RK1(rng, lb, ub, s1, s2)
result(rand)
7809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7810 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D2_RK1
7813 real(RKG) ,
intent(in) :: lb, ub
7814 integer(IK) ,
intent(in) :: s1, s2
7815 real(RKG) :: rand(s1, s2)
7816 type(splitmix64_type) ,
intent(inout) :: rng
7829 impure module function getUnifRandRNGSLU_D3_SK5(rng, lb, ub, s1, s2, s3)
result(rand)
7830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7831 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_SK5
7834 character(
*,SKG) ,
intent(in) :: lb, ub
7835 integer(IK) ,
intent(in) :: s1, s2, s3
7836 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
7837 type(splitmix64_type) ,
intent(inout) :: rng
7842 impure module function getUnifRandRNGSLU_D3_SK4(rng, lb, ub, s1, s2, s3)
result(rand)
7843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7844 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_SK4
7847 character(
*,SKG) ,
intent(in) :: lb, ub
7848 integer(IK) ,
intent(in) :: s1, s2, s3
7849 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
7850 type(splitmix64_type) ,
intent(inout) :: rng
7855 impure module function getUnifRandRNGSLU_D3_SK3(rng, lb, ub, s1, s2, s3)
result(rand)
7856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7857 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_SK3
7860 character(
*,SKG) ,
intent(in) :: lb, ub
7861 integer(IK) ,
intent(in) :: s1, s2, s3
7862 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
7863 type(splitmix64_type) ,
intent(inout) :: rng
7868 impure module function getUnifRandRNGSLU_D3_SK2(rng, lb, ub, s1, s2, s3)
result(rand)
7869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7870 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_SK2
7873 character(
*,SKG) ,
intent(in) :: lb, ub
7874 integer(IK) ,
intent(in) :: s1, s2, s3
7875 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
7876 type(splitmix64_type) ,
intent(inout) :: rng
7881 impure module function getUnifRandRNGSLU_D3_SK1(rng, lb, ub, s1, s2, s3)
result(rand)
7882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7883 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_SK1
7886 character(
*,SKG) ,
intent(in) :: lb, ub
7887 integer(IK) ,
intent(in) :: s1, s2, s3
7888 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
7889 type(splitmix64_type) ,
intent(inout) :: rng
7896 impure module function getUnifRandRNGSLU_D3_IK5(rng, lb, ub, s1, s2, s3)
result(rand)
7897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7898 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_IK5
7901 integer(IKG) ,
intent(in) :: lb, ub
7902 integer(IK) ,
intent(in) :: s1, s2, s3
7903 integer(IKG) :: rand(s1, s2, s3)
7904 type(splitmix64_type) ,
intent(inout) :: rng
7909 impure module function getUnifRandRNGSLU_D3_IK4(rng, lb, ub, s1, s2, s3)
result(rand)
7910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7911 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_IK4
7914 integer(IKG) ,
intent(in) :: lb, ub
7915 integer(IK) ,
intent(in) :: s1, s2, s3
7916 integer(IKG) :: rand(s1, s2, s3)
7917 type(splitmix64_type) ,
intent(inout) :: rng
7922 impure module function getUnifRandRNGSLU_D3_IK3(rng, lb, ub, s1, s2, s3)
result(rand)
7923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7924 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_IK3
7927 integer(IKG) ,
intent(in) :: lb, ub
7928 integer(IK) ,
intent(in) :: s1, s2, s3
7929 integer(IKG) :: rand(s1, s2, s3)
7930 type(splitmix64_type) ,
intent(inout) :: rng
7935 impure module function getUnifRandRNGSLU_D3_IK2(rng, lb, ub, s1, s2, s3)
result(rand)
7936#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7937 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_IK2
7940 integer(IKG) ,
intent(in) :: lb, ub
7941 integer(IK) ,
intent(in) :: s1, s2, s3
7942 integer(IKG) :: rand(s1, s2, s3)
7943 type(splitmix64_type) ,
intent(inout) :: rng
7948 impure module function getUnifRandRNGSLU_D3_IK1(rng, lb, ub, s1, s2, s3)
result(rand)
7949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7950 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_IK1
7953 integer(IKG) ,
intent(in) :: lb, ub
7954 integer(IK) ,
intent(in) :: s1, s2, s3
7955 integer(IKG) :: rand(s1, s2, s3)
7956 type(splitmix64_type) ,
intent(inout) :: rng
7963 impure module function getUnifRandRNGSLU_D3_LK5(rng, lb, ub, s1, s2, s3)
result(rand)
7964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7965 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_LK5
7968 logical(LKG) ,
intent(in) :: lb, ub
7969 integer(IK) ,
intent(in) :: s1, s2, s3
7970 logical(LKG) :: rand(s1, s2, s3)
7971 type(splitmix64_type) ,
intent(inout) :: rng
7976 impure module function getUnifRandRNGSLU_D3_LK4(rng, lb, ub, s1, s2, s3)
result(rand)
7977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7978 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_LK4
7981 logical(LKG) ,
intent(in) :: lb, ub
7982 integer(IK) ,
intent(in) :: s1, s2, s3
7983 logical(LKG) :: rand(s1, s2, s3)
7984 type(splitmix64_type) ,
intent(inout) :: rng
7989 impure module function getUnifRandRNGSLU_D3_LK3(rng, lb, ub, s1, s2, s3)
result(rand)
7990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7991 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_LK3
7994 logical(LKG) ,
intent(in) :: lb, ub
7995 integer(IK) ,
intent(in) :: s1, s2, s3
7996 logical(LKG) :: rand(s1, s2, s3)
7997 type(splitmix64_type) ,
intent(inout) :: rng
8002 impure module function getUnifRandRNGSLU_D3_LK2(rng, lb, ub, s1, s2, s3)
result(rand)
8003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8004 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_LK2
8007 logical(LKG) ,
intent(in) :: lb, ub
8008 integer(IK) ,
intent(in) :: s1, s2, s3
8009 logical(LKG) :: rand(s1, s2, s3)
8010 type(splitmix64_type) ,
intent(inout) :: rng
8015 impure module function getUnifRandRNGSLU_D3_LK1(rng, lb, ub, s1, s2, s3)
result(rand)
8016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8017 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_LK1
8020 logical(LKG) ,
intent(in) :: lb, ub
8021 integer(IK) ,
intent(in) :: s1, s2, s3
8022 logical(LKG) :: rand(s1, s2, s3)
8023 type(splitmix64_type) ,
intent(inout) :: rng
8030 impure module function getUnifRandRNGSLU_D3_CK5(rng, lb, ub, s1, s2, s3)
result(rand)
8031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8032 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_CK5
8035 complex(CKG) ,
intent(in) :: lb, ub
8036 integer(IK) ,
intent(in) :: s1, s2, s3
8037 complex(CKG) :: rand(s1, s2, s3)
8038 type(splitmix64_type) ,
intent(inout) :: rng
8043 impure module function getUnifRandRNGSLU_D3_CK4(rng, lb, ub, s1, s2, s3)
result(rand)
8044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8045 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_CK4
8048 complex(CKG) ,
intent(in) :: lb, ub
8049 integer(IK) ,
intent(in) :: s1, s2, s3
8050 complex(CKG) :: rand(s1, s2, s3)
8051 type(splitmix64_type) ,
intent(inout) :: rng
8056 impure module function getUnifRandRNGSLU_D3_CK3(rng, lb, ub, s1, s2, s3)
result(rand)
8057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8058 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_CK3
8061 complex(CKG) ,
intent(in) :: lb, ub
8062 integer(IK) ,
intent(in) :: s1, s2, s3
8063 complex(CKG) :: rand(s1, s2, s3)
8064 type(splitmix64_type) ,
intent(inout) :: rng
8069 impure module function getUnifRandRNGSLU_D3_CK2(rng, lb, ub, s1, s2, s3)
result(rand)
8070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8071 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_CK2
8074 complex(CKG) ,
intent(in) :: lb, ub
8075 integer(IK) ,
intent(in) :: s1, s2, s3
8076 complex(CKG) :: rand(s1, s2, s3)
8077 type(splitmix64_type) ,
intent(inout) :: rng
8082 impure module function getUnifRandRNGSLU_D3_CK1(rng, lb, ub, s1, s2, s3)
result(rand)
8083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8084 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_CK1
8087 complex(CKG) ,
intent(in) :: lb, ub
8088 integer(IK) ,
intent(in) :: s1, s2, s3
8089 complex(CKG) :: rand(s1, s2, s3)
8090 type(splitmix64_type) ,
intent(inout) :: rng
8097 impure module function getUnifRandRNGSLU_D3_RK5(rng, lb, ub, s1, s2, s3)
result(rand)
8098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8099 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_RK5
8102 real(RKG) ,
intent(in) :: lb, ub
8103 integer(IK) ,
intent(in) :: s1, s2, s3
8104 real(RKG) :: rand(s1, s2, s3)
8105 type(splitmix64_type) ,
intent(inout) :: rng
8111 impure module function getUnifRandRNGSLU_D3_RK4(rng, lb, ub, s1, s2, s3)
result(rand)
8112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8113 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_RK4
8116 real(RKG) ,
intent(in) :: lb, ub
8117 integer(IK) ,
intent(in) :: s1, s2, s3
8118 real(RKG) :: rand(s1, s2, s3)
8119 type(splitmix64_type) ,
intent(inout) :: rng
8125 impure module function getUnifRandRNGSLU_D3_RK3(rng, lb, ub, s1, s2, s3)
result(rand)
8126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8127 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_RK3
8130 real(RKG) ,
intent(in) :: lb, ub
8131 integer(IK) ,
intent(in) :: s1, s2, s3
8132 real(RKG) :: rand(s1, s2, s3)
8133 type(splitmix64_type) ,
intent(inout) :: rng
8139 impure module function getUnifRandRNGSLU_D3_RK2(rng, lb, ub, s1, s2, s3)
result(rand)
8140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8141 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_RK2
8144 real(RKG) ,
intent(in) :: lb, ub
8145 integer(IK) ,
intent(in) :: s1, s2, s3
8146 real(RKG) :: rand(s1, s2, s3)
8147 type(splitmix64_type) ,
intent(inout) :: rng
8152 impure module function getUnifRandRNGSLU_D3_RK1(rng, lb, ub, s1, s2, s3)
result(rand)
8153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8154 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGSLU_D3_RK1
8157 real(RKG) ,
intent(in) :: lb, ub
8158 integer(IK) ,
intent(in) :: s1, s2, s3
8159 real(RKG) :: rand(s1, s2, s3)
8160 type(splitmix64_type) ,
intent(inout) :: rng
8182 impure module function getUnifRandRNGXDD_D0_LK(rng)
result(rand)
8183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8184 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXDD_D0_LK
8187 logical(LKG) :: rand
8188 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8200 impure elemental module function getUnifRandRNGXLU_D0_SK5(rng, lb, ub)
result(rand)
8201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8202 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_SK5
8205 character(
*,SKG) ,
intent(in) :: lb, ub
8206 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
8207 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8212 impure elemental module function getUnifRandRNGXLU_D0_SK4(rng, lb, ub)
result(rand)
8213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8214 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_SK4
8217 character(
*,SKG) ,
intent(in) :: lb, ub
8218 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
8219 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8224 impure elemental module function getUnifRandRNGXLU_D0_SK3(rng, lb, ub)
result(rand)
8225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8226 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_SK3
8229 character(
*,SKG) ,
intent(in) :: lb, ub
8230 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
8231 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8236 impure elemental module function getUnifRandRNGXLU_D0_SK2(rng, lb, ub)
result(rand)
8237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8238 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_SK2
8241 character(
*,SKG) ,
intent(in) :: lb, ub
8242 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
8243 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8248 impure elemental module function getUnifRandRNGXLU_D0_SK1(rng, lb, ub)
result(rand)
8249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8250 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_SK1
8253 character(
*,SKG) ,
intent(in) :: lb, ub
8254 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
8255 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8262 impure elemental module function getUnifRandRNGXLU_D0_IK5(rng, lb, ub)
result(rand)
8263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8264 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_IK5
8267 integer(IKG) ,
intent(in) :: lb, ub
8268 integer(IKG) :: rand
8269 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8274 impure elemental module function getUnifRandRNGXLU_D0_IK4(rng, lb, ub)
result(rand)
8275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8276 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_IK4
8279 integer(IKG) ,
intent(in) :: lb, ub
8280 integer(IKG) :: rand
8281 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8286 impure elemental module function getUnifRandRNGXLU_D0_IK3(rng, lb, ub)
result(rand)
8287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8288 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_IK3
8291 integer(IKG) ,
intent(in) :: lb, ub
8292 integer(IKG) :: rand
8293 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8298 impure elemental module function getUnifRandRNGXLU_D0_IK2(rng, lb, ub)
result(rand)
8299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8300 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_IK2
8303 integer(IKG) ,
intent(in) :: lb, ub
8304 integer(IKG) :: rand
8305 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8310 impure elemental module function getUnifRandRNGXLU_D0_IK1(rng, lb, ub)
result(rand)
8311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8312 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_IK1
8315 integer(IKG) ,
intent(in) :: lb, ub
8316 integer(IKG) :: rand
8317 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8324 impure elemental module function getUnifRandRNGXLU_D0_LK5(rng, lb, ub)
result(rand)
8325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8326 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_LK5
8329 logical(LKG) ,
intent(in) :: lb, ub
8330 logical(LKG) :: rand
8331 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8336 impure elemental module function getUnifRandRNGXLU_D0_LK4(rng, lb, ub)
result(rand)
8337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8338 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_LK4
8341 logical(LKG) ,
intent(in) :: lb, ub
8342 logical(LKG) :: rand
8343 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8348 impure elemental module function getUnifRandRNGXLU_D0_LK3(rng, lb, ub)
result(rand)
8349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8350 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_LK3
8353 logical(LKG) ,
intent(in) :: lb, ub
8354 logical(LKG) :: rand
8355 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8360 impure elemental module function getUnifRandRNGXLU_D0_LK2(rng, lb, ub)
result(rand)
8361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8362 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_LK2
8365 logical(LKG) ,
intent(in) :: lb, ub
8366 logical(LKG) :: rand
8367 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8372 impure elemental module function getUnifRandRNGXLU_D0_LK1(rng, lb, ub)
result(rand)
8373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8374 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_LK1
8377 logical(LKG) ,
intent(in) :: lb, ub
8378 logical(LKG) :: rand
8379 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8386 impure elemental module function getUnifRandRNGXLU_D0_CK5(rng, lb, ub)
result(rand)
8387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8388 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_CK5
8391 complex(CKG) ,
intent(in) :: lb, ub
8392 complex(CKG) :: rand
8393 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8398 impure elemental module function getUnifRandRNGXLU_D0_CK4(rng, lb, ub)
result(rand)
8399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8400 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_CK4
8403 complex(CKG) ,
intent(in) :: lb, ub
8404 complex(CKG) :: rand
8405 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8410 impure elemental module function getUnifRandRNGXLU_D0_CK3(rng, lb, ub)
result(rand)
8411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8412 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_CK3
8415 complex(CKG) ,
intent(in) :: lb, ub
8416 complex(CKG) :: rand
8417 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8422 impure elemental module function getUnifRandRNGXLU_D0_CK2(rng, lb, ub)
result(rand)
8423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8424 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_CK2
8427 complex(CKG) ,
intent(in) :: lb, ub
8428 complex(CKG) :: rand
8429 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8434 impure elemental module function getUnifRandRNGXLU_D0_CK1(rng, lb, ub)
result(rand)
8435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8436 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_CK1
8439 complex(CKG) ,
intent(in) :: lb, ub
8440 complex(CKG) :: rand
8441 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8448 impure elemental module function getUnifRandRNGXLU_D0_RK5(rng, lb, ub)
result(rand)
8449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8450 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_RK5
8453 real(RKG) ,
intent(in) :: lb, ub
8455 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8460 impure elemental module function getUnifRandRNGXLU_D0_RK4(rng, lb, ub)
result(rand)
8461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8462 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_RK4
8465 real(RKG) ,
intent(in) :: lb, ub
8467 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8472 impure elemental module function getUnifRandRNGXLU_D0_RK3(rng, lb, ub)
result(rand)
8473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8474 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_RK3
8477 real(RKG) ,
intent(in) :: lb, ub
8479 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8484 impure elemental module function getUnifRandRNGXLU_D0_RK2(rng, lb, ub)
result(rand)
8485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8486 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_RK2
8489 real(RKG) ,
intent(in) :: lb, ub
8491 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8496 impure elemental module function getUnifRandRNGXLU_D0_RK1(rng, lb, ub)
result(rand)
8497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8498 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D0_RK1
8501 real(RKG) ,
intent(in) :: lb, ub
8503 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8516 impure module function getUnifRandRNGXLU_D1_SK5(rng, lb, ub, s1)
result(rand)
8517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8518 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_SK5
8521 character(
*,SKG) ,
intent(in) :: lb, ub
8522 integer(IK) ,
intent(in) :: s1
8523 character(
len(lb,IK),SKG) :: rand(s1)
8524 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8529 impure module function getUnifRandRNGXLU_D1_SK4(rng, lb, ub, s1)
result(rand)
8530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8531 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_SK4
8534 character(
*,SKG) ,
intent(in) :: lb, ub
8535 integer(IK) ,
intent(in) :: s1
8536 character(
len(lb,IK),SKG) :: rand(s1)
8537 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8542 impure module function getUnifRandRNGXLU_D1_SK3(rng, lb, ub, s1)
result(rand)
8543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8544 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_SK3
8547 character(
*,SKG) ,
intent(in) :: lb, ub
8548 integer(IK) ,
intent(in) :: s1
8549 character(
len(lb,IK),SKG) :: rand(s1)
8550 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8555 impure module function getUnifRandRNGXLU_D1_SK2(rng, lb, ub, s1)
result(rand)
8556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8557 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_SK2
8560 character(
*,SKG) ,
intent(in) :: lb, ub
8561 integer(IK) ,
intent(in) :: s1
8562 character(
len(lb,IK),SKG) :: rand(s1)
8563 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8568 impure module function getUnifRandRNGXLU_D1_SK1(rng, lb, ub, s1)
result(rand)
8569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8570 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_SK1
8573 character(
*,SKG) ,
intent(in) :: lb, ub
8574 integer(IK) ,
intent(in) :: s1
8575 character(
len(lb,IK),SKG) :: rand(s1)
8576 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8583 impure module function getUnifRandRNGXLU_D1_IK5(rng, lb, ub, s1)
result(rand)
8584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8585 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_IK5
8588 integer(IKG) ,
intent(in) :: lb, ub
8589 integer(IK) ,
intent(in) :: s1
8590 integer(IKG) :: rand(s1)
8591 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8596 impure module function getUnifRandRNGXLU_D1_IK4(rng, lb, ub, s1)
result(rand)
8597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8598 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_IK4
8601 integer(IKG) ,
intent(in) :: lb, ub
8602 integer(IK) ,
intent(in) :: s1
8603 integer(IKG) :: rand(s1)
8604 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8609 impure module function getUnifRandRNGXLU_D1_IK3(rng, lb, ub, s1)
result(rand)
8610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8611 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_IK3
8614 integer(IKG) ,
intent(in) :: lb, ub
8615 integer(IK) ,
intent(in) :: s1
8616 integer(IKG) :: rand(s1)
8617 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8622 impure module function getUnifRandRNGXLU_D1_IK2(rng, lb, ub, s1)
result(rand)
8623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8624 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_IK2
8627 integer(IKG) ,
intent(in) :: lb, ub
8628 integer(IK) ,
intent(in) :: s1
8629 integer(IKG) :: rand(s1)
8630 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8635 impure module function getUnifRandRNGXLU_D1_IK1(rng, lb, ub, s1)
result(rand)
8636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8637 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_IK1
8640 integer(IKG) ,
intent(in) :: lb, ub
8641 integer(IK) ,
intent(in) :: s1
8642 integer(IKG) :: rand(s1)
8643 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8650 impure module function getUnifRandRNGXLU_D1_LK5(rng, lb, ub, s1)
result(rand)
8651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8652 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_LK5
8655 logical(LKG) ,
intent(in) :: lb, ub
8656 integer(IK) ,
intent(in) :: s1
8657 logical(LKG) :: rand(s1)
8658 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8663 impure module function getUnifRandRNGXLU_D1_LK4(rng, lb, ub, s1)
result(rand)
8664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8665 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_LK4
8668 logical(LKG) ,
intent(in) :: lb, ub
8669 integer(IK) ,
intent(in) :: s1
8670 logical(LKG) :: rand(s1)
8671 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8676 impure module function getUnifRandRNGXLU_D1_LK3(rng, lb, ub, s1)
result(rand)
8677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8678 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_LK3
8681 logical(LKG) ,
intent(in) :: lb, ub
8682 integer(IK) ,
intent(in) :: s1
8683 logical(LKG) :: rand(s1)
8684 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8689 impure module function getUnifRandRNGXLU_D1_LK2(rng, lb, ub, s1)
result(rand)
8690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8691 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_LK2
8694 logical(LKG) ,
intent(in) :: lb, ub
8695 integer(IK) ,
intent(in) :: s1
8696 logical(LKG) :: rand(s1)
8697 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8702 impure module function getUnifRandRNGXLU_D1_LK1(rng, lb, ub, s1)
result(rand)
8703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8704 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_LK1
8707 logical(LKG) ,
intent(in) :: lb, ub
8708 integer(IK) ,
intent(in) :: s1
8709 logical(LKG) :: rand(s1)
8710 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8717 impure module function getUnifRandRNGXLU_D1_CK5(rng, lb, ub, s1)
result(rand)
8718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8719 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_CK5
8722 complex(CKG) ,
intent(in) :: lb, ub
8723 integer(IK) ,
intent(in) :: s1
8724 complex(CKG) :: rand(s1)
8725 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8730 impure module function getUnifRandRNGXLU_D1_CK4(rng, lb, ub, s1)
result(rand)
8731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8732 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_CK4
8735 complex(CKG) ,
intent(in) :: lb, ub
8736 integer(IK) ,
intent(in) :: s1
8737 complex(CKG) :: rand(s1)
8738 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8743 impure module function getUnifRandRNGXLU_D1_CK3(rng, lb, ub, s1)
result(rand)
8744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8745 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_CK3
8748 complex(CKG) ,
intent(in) :: lb, ub
8749 integer(IK) ,
intent(in) :: s1
8750 complex(CKG) :: rand(s1)
8751 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8756 impure module function getUnifRandRNGXLU_D1_CK2(rng, lb, ub, s1)
result(rand)
8757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8758 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_CK2
8761 complex(CKG) ,
intent(in) :: lb, ub
8762 integer(IK) ,
intent(in) :: s1
8763 complex(CKG) :: rand(s1)
8764 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8769 impure module function getUnifRandRNGXLU_D1_CK1(rng, lb, ub, s1)
result(rand)
8770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8771 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_CK1
8774 complex(CKG) ,
intent(in) :: lb, ub
8775 integer(IK) ,
intent(in) :: s1
8776 complex(CKG) :: rand(s1)
8777 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8784 impure module function getUnifRandRNGXLU_D1_RK5(rng, lb, ub, s1)
result(rand)
8785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8786 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_RK5
8789 real(RKG) ,
intent(in) :: lb, ub
8790 integer(IK) ,
intent(in) :: s1
8791 real(RKG) :: rand(s1)
8792 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8798 impure module function getUnifRandRNGXLU_D1_RK4(rng, lb, ub, s1)
result(rand)
8799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8800 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_RK4
8803 real(RKG) ,
intent(in) :: lb, ub
8804 integer(IK) ,
intent(in) :: s1
8805 real(RKG) :: rand(s1)
8806 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8812 impure module function getUnifRandRNGXLU_D1_RK3(rng, lb, ub, s1)
result(rand)
8813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8814 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_RK3
8817 real(RKG) ,
intent(in) :: lb, ub
8818 integer(IK) ,
intent(in) :: s1
8819 real(RKG) :: rand(s1)
8820 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8826 impure module function getUnifRandRNGXLU_D1_RK2(rng, lb, ub, s1)
result(rand)
8827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8828 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_RK2
8831 real(RKG) ,
intent(in) :: lb, ub
8832 integer(IK) ,
intent(in) :: s1
8833 real(RKG) :: rand(s1)
8834 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8839 impure module function getUnifRandRNGXLU_D1_RK1(rng, lb, ub, s1)
result(rand)
8840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8841 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D1_RK1
8844 real(RKG) ,
intent(in) :: lb, ub
8845 integer(IK) ,
intent(in) :: s1
8846 real(RKG) :: rand(s1)
8847 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8860 impure module function getUnifRandRNGXLU_D2_SK5(rng, lb, ub, s1, s2)
result(rand)
8861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8862 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_SK5
8865 character(
*,SKG) ,
intent(in) :: lb, ub
8866 integer(IK) ,
intent(in) :: s1, s2
8867 character(
len(lb,IK),SKG) :: rand(s1, s2)
8868 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8873 impure module function getUnifRandRNGXLU_D2_SK4(rng, lb, ub, s1, s2)
result(rand)
8874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8875 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_SK4
8878 character(
*,SKG) ,
intent(in) :: lb, ub
8879 integer(IK) ,
intent(in) :: s1, s2
8880 character(
len(lb,IK),SKG) :: rand(s1, s2)
8881 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8886 impure module function getUnifRandRNGXLU_D2_SK3(rng, lb, ub, s1, s2)
result(rand)
8887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8888 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_SK3
8891 character(
*,SKG) ,
intent(in) :: lb, ub
8892 integer(IK) ,
intent(in) :: s1, s2
8893 character(
len(lb,IK),SKG) :: rand(s1, s2)
8894 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8899 impure module function getUnifRandRNGXLU_D2_SK2(rng, lb, ub, s1, s2)
result(rand)
8900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8901 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_SK2
8904 character(
*,SKG) ,
intent(in) :: lb, ub
8905 integer(IK) ,
intent(in) :: s1, s2
8906 character(
len(lb,IK),SKG) :: rand(s1, s2)
8907 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8912 impure module function getUnifRandRNGXLU_D2_SK1(rng, lb, ub, s1, s2)
result(rand)
8913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8914 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_SK1
8917 character(
*,SKG) ,
intent(in) :: lb, ub
8918 integer(IK) ,
intent(in) :: s1, s2
8919 character(
len(lb,IK),SKG) :: rand(s1, s2)
8920 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8927 impure module function getUnifRandRNGXLU_D2_IK5(rng, lb, ub, s1, s2)
result(rand)
8928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8929 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_IK5
8932 integer(IKG) ,
intent(in) :: lb, ub
8933 integer(IK) ,
intent(in) :: s1, s2
8934 integer(IKG) :: rand(s1, s2)
8935 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8940 impure module function getUnifRandRNGXLU_D2_IK4(rng, lb, ub, s1, s2)
result(rand)
8941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8942 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_IK4
8945 integer(IKG) ,
intent(in) :: lb, ub
8946 integer(IK) ,
intent(in) :: s1, s2
8947 integer(IKG) :: rand(s1, s2)
8948 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8953 impure module function getUnifRandRNGXLU_D2_IK3(rng, lb, ub, s1, s2)
result(rand)
8954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8955 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_IK3
8958 integer(IKG) ,
intent(in) :: lb, ub
8959 integer(IK) ,
intent(in) :: s1, s2
8960 integer(IKG) :: rand(s1, s2)
8961 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8966 impure module function getUnifRandRNGXLU_D2_IK2(rng, lb, ub, s1, s2)
result(rand)
8967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8968 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_IK2
8971 integer(IKG) ,
intent(in) :: lb, ub
8972 integer(IK) ,
intent(in) :: s1, s2
8973 integer(IKG) :: rand(s1, s2)
8974 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8979 impure module function getUnifRandRNGXLU_D2_IK1(rng, lb, ub, s1, s2)
result(rand)
8980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8981 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_IK1
8984 integer(IKG) ,
intent(in) :: lb, ub
8985 integer(IK) ,
intent(in) :: s1, s2
8986 integer(IKG) :: rand(s1, s2)
8987 type(xoshiro256ssw_type) ,
intent(inout) :: rng
8994 impure module function getUnifRandRNGXLU_D2_LK5(rng, lb, ub, s1, s2)
result(rand)
8995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8996 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_LK5
8999 logical(LKG) ,
intent(in) :: lb, ub
9000 integer(IK) ,
intent(in) :: s1, s2
9001 logical(LKG) :: rand(s1, s2)
9002 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9007 impure module function getUnifRandRNGXLU_D2_LK4(rng, lb, ub, s1, s2)
result(rand)
9008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9009 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_LK4
9012 logical(LKG) ,
intent(in) :: lb, ub
9013 integer(IK) ,
intent(in) :: s1, s2
9014 logical(LKG) :: rand(s1, s2)
9015 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9020 impure module function getUnifRandRNGXLU_D2_LK3(rng, lb, ub, s1, s2)
result(rand)
9021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9022 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_LK3
9025 logical(LKG) ,
intent(in) :: lb, ub
9026 integer(IK) ,
intent(in) :: s1, s2
9027 logical(LKG) :: rand(s1, s2)
9028 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9033 impure module function getUnifRandRNGXLU_D2_LK2(rng, lb, ub, s1, s2)
result(rand)
9034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9035 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_LK2
9038 logical(LKG) ,
intent(in) :: lb, ub
9039 integer(IK) ,
intent(in) :: s1, s2
9040 logical(LKG) :: rand(s1, s2)
9041 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9046 impure module function getUnifRandRNGXLU_D2_LK1(rng, lb, ub, s1, s2)
result(rand)
9047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9048 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_LK1
9051 logical(LKG) ,
intent(in) :: lb, ub
9052 integer(IK) ,
intent(in) :: s1, s2
9053 logical(LKG) :: rand(s1, s2)
9054 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9061 impure module function getUnifRandRNGXLU_D2_CK5(rng, lb, ub, s1, s2)
result(rand)
9062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9063 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_CK5
9066 complex(CKG) ,
intent(in) :: lb, ub
9067 integer(IK) ,
intent(in) :: s1, s2
9068 complex(CKG) :: rand(s1, s2)
9069 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9074 impure module function getUnifRandRNGXLU_D2_CK4(rng, lb, ub, s1, s2)
result(rand)
9075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9076 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_CK4
9079 complex(CKG) ,
intent(in) :: lb, ub
9080 integer(IK) ,
intent(in) :: s1, s2
9081 complex(CKG) :: rand(s1, s2)
9082 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9087 impure module function getUnifRandRNGXLU_D2_CK3(rng, lb, ub, s1, s2)
result(rand)
9088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9089 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_CK3
9092 complex(CKG) ,
intent(in) :: lb, ub
9093 integer(IK) ,
intent(in) :: s1, s2
9094 complex(CKG) :: rand(s1, s2)
9095 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9100 impure module function getUnifRandRNGXLU_D2_CK2(rng, lb, ub, s1, s2)
result(rand)
9101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9102 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_CK2
9105 complex(CKG) ,
intent(in) :: lb, ub
9106 integer(IK) ,
intent(in) :: s1, s2
9107 complex(CKG) :: rand(s1, s2)
9108 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9113 impure module function getUnifRandRNGXLU_D2_CK1(rng, lb, ub, s1, s2)
result(rand)
9114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9115 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_CK1
9118 complex(CKG) ,
intent(in) :: lb, ub
9119 integer(IK) ,
intent(in) :: s1, s2
9120 complex(CKG) :: rand(s1, s2)
9121 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9128 impure module function getUnifRandRNGXLU_D2_RK5(rng, lb, ub, s1, s2)
result(rand)
9129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9130 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_RK5
9133 real(RKG) ,
intent(in) :: lb, ub
9134 integer(IK) ,
intent(in) :: s1, s2
9135 real(RKG) :: rand(s1, s2)
9136 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9142 impure module function getUnifRandRNGXLU_D2_RK4(rng, lb, ub, s1, s2)
result(rand)
9143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9144 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_RK4
9147 real(RKG) ,
intent(in) :: lb, ub
9148 integer(IK) ,
intent(in) :: s1, s2
9149 real(RKG) :: rand(s1, s2)
9150 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9156 impure module function getUnifRandRNGXLU_D2_RK3(rng, lb, ub, s1, s2)
result(rand)
9157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9158 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_RK3
9161 real(RKG) ,
intent(in) :: lb, ub
9162 integer(IK) ,
intent(in) :: s1, s2
9163 real(RKG) :: rand(s1, s2)
9164 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9170 impure module function getUnifRandRNGXLU_D2_RK2(rng, lb, ub, s1, s2)
result(rand)
9171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9172 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_RK2
9175 real(RKG) ,
intent(in) :: lb, ub
9176 integer(IK) ,
intent(in) :: s1, s2
9177 real(RKG) :: rand(s1, s2)
9178 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9183 impure module function getUnifRandRNGXLU_D2_RK1(rng, lb, ub, s1, s2)
result(rand)
9184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9185 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D2_RK1
9188 real(RKG) ,
intent(in) :: lb, ub
9189 integer(IK) ,
intent(in) :: s1, s2
9190 real(RKG) :: rand(s1, s2)
9191 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9204 impure module function getUnifRandRNGXLU_D3_SK5(rng, lb, ub, s1, s2, s3)
result(rand)
9205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9206 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_SK5
9209 character(
*,SKG) ,
intent(in) :: lb, ub
9210 integer(IK) ,
intent(in) :: s1, s2, s3
9211 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
9212 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9217 impure module function getUnifRandRNGXLU_D3_SK4(rng, lb, ub, s1, s2, s3)
result(rand)
9218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9219 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_SK4
9222 character(
*,SKG) ,
intent(in) :: lb, ub
9223 integer(IK) ,
intent(in) :: s1, s2, s3
9224 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
9225 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9230 impure module function getUnifRandRNGXLU_D3_SK3(rng, lb, ub, s1, s2, s3)
result(rand)
9231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9232 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_SK3
9235 character(
*,SKG) ,
intent(in) :: lb, ub
9236 integer(IK) ,
intent(in) :: s1, s2, s3
9237 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
9238 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9243 impure module function getUnifRandRNGXLU_D3_SK2(rng, lb, ub, s1, s2, s3)
result(rand)
9244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9245 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_SK2
9248 character(
*,SKG) ,
intent(in) :: lb, ub
9249 integer(IK) ,
intent(in) :: s1, s2, s3
9250 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
9251 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9256 impure module function getUnifRandRNGXLU_D3_SK1(rng, lb, ub, s1, s2, s3)
result(rand)
9257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9258 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_SK1
9261 character(
*,SKG) ,
intent(in) :: lb, ub
9262 integer(IK) ,
intent(in) :: s1, s2, s3
9263 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
9264 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9271 impure module function getUnifRandRNGXLU_D3_IK5(rng, lb, ub, s1, s2, s3)
result(rand)
9272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9273 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_IK5
9276 integer(IKG) ,
intent(in) :: lb, ub
9277 integer(IK) ,
intent(in) :: s1, s2, s3
9278 integer(IKG) :: rand(s1, s2, s3)
9279 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9284 impure module function getUnifRandRNGXLU_D3_IK4(rng, lb, ub, s1, s2, s3)
result(rand)
9285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9286 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_IK4
9289 integer(IKG) ,
intent(in) :: lb, ub
9290 integer(IK) ,
intent(in) :: s1, s2, s3
9291 integer(IKG) :: rand(s1, s2, s3)
9292 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9297 impure module function getUnifRandRNGXLU_D3_IK3(rng, lb, ub, s1, s2, s3)
result(rand)
9298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9299 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_IK3
9302 integer(IKG) ,
intent(in) :: lb, ub
9303 integer(IK) ,
intent(in) :: s1, s2, s3
9304 integer(IKG) :: rand(s1, s2, s3)
9305 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9310 impure module function getUnifRandRNGXLU_D3_IK2(rng, lb, ub, s1, s2, s3)
result(rand)
9311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9312 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_IK2
9315 integer(IKG) ,
intent(in) :: lb, ub
9316 integer(IK) ,
intent(in) :: s1, s2, s3
9317 integer(IKG) :: rand(s1, s2, s3)
9318 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9323 impure module function getUnifRandRNGXLU_D3_IK1(rng, lb, ub, s1, s2, s3)
result(rand)
9324#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9325 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_IK1
9328 integer(IKG) ,
intent(in) :: lb, ub
9329 integer(IK) ,
intent(in) :: s1, s2, s3
9330 integer(IKG) :: rand(s1, s2, s3)
9331 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9338 impure module function getUnifRandRNGXLU_D3_LK5(rng, lb, ub, s1, s2, s3)
result(rand)
9339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9340 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_LK5
9343 logical(LKG) ,
intent(in) :: lb, ub
9344 integer(IK) ,
intent(in) :: s1, s2, s3
9345 logical(LKG) :: rand(s1, s2, s3)
9346 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9351 impure module function getUnifRandRNGXLU_D3_LK4(rng, lb, ub, s1, s2, s3)
result(rand)
9352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9353 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_LK4
9356 logical(LKG) ,
intent(in) :: lb, ub
9357 integer(IK) ,
intent(in) :: s1, s2, s3
9358 logical(LKG) :: rand(s1, s2, s3)
9359 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9364 impure module function getUnifRandRNGXLU_D3_LK3(rng, lb, ub, s1, s2, s3)
result(rand)
9365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9366 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_LK3
9369 logical(LKG) ,
intent(in) :: lb, ub
9370 integer(IK) ,
intent(in) :: s1, s2, s3
9371 logical(LKG) :: rand(s1, s2, s3)
9372 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9377 impure module function getUnifRandRNGXLU_D3_LK2(rng, lb, ub, s1, s2, s3)
result(rand)
9378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9379 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_LK2
9382 logical(LKG) ,
intent(in) :: lb, ub
9383 integer(IK) ,
intent(in) :: s1, s2, s3
9384 logical(LKG) :: rand(s1, s2, s3)
9385 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9390 impure module function getUnifRandRNGXLU_D3_LK1(rng, lb, ub, s1, s2, s3)
result(rand)
9391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9392 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_LK1
9395 logical(LKG) ,
intent(in) :: lb, ub
9396 integer(IK) ,
intent(in) :: s1, s2, s3
9397 logical(LKG) :: rand(s1, s2, s3)
9398 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9405 impure module function getUnifRandRNGXLU_D3_CK5(rng, lb, ub, s1, s2, s3)
result(rand)
9406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9407 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_CK5
9410 complex(CKG) ,
intent(in) :: lb, ub
9411 integer(IK) ,
intent(in) :: s1, s2, s3
9412 complex(CKG) :: rand(s1, s2, s3)
9413 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9418 impure module function getUnifRandRNGXLU_D3_CK4(rng, lb, ub, s1, s2, s3)
result(rand)
9419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9420 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_CK4
9423 complex(CKG) ,
intent(in) :: lb, ub
9424 integer(IK) ,
intent(in) :: s1, s2, s3
9425 complex(CKG) :: rand(s1, s2, s3)
9426 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9431 impure module function getUnifRandRNGXLU_D3_CK3(rng, lb, ub, s1, s2, s3)
result(rand)
9432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9433 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_CK3
9436 complex(CKG) ,
intent(in) :: lb, ub
9437 integer(IK) ,
intent(in) :: s1, s2, s3
9438 complex(CKG) :: rand(s1, s2, s3)
9439 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9444 impure module function getUnifRandRNGXLU_D3_CK2(rng, lb, ub, s1, s2, s3)
result(rand)
9445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9446 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_CK2
9449 complex(CKG) ,
intent(in) :: lb, ub
9450 integer(IK) ,
intent(in) :: s1, s2, s3
9451 complex(CKG) :: rand(s1, s2, s3)
9452 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9457 impure module function getUnifRandRNGXLU_D3_CK1(rng, lb, ub, s1, s2, s3)
result(rand)
9458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9459 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_CK1
9462 complex(CKG) ,
intent(in) :: lb, ub
9463 integer(IK) ,
intent(in) :: s1, s2, s3
9464 complex(CKG) :: rand(s1, s2, s3)
9465 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9472 impure module function getUnifRandRNGXLU_D3_RK5(rng, lb, ub, s1, s2, s3)
result(rand)
9473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9474 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_RK5
9477 real(RKG) ,
intent(in) :: lb, ub
9478 integer(IK) ,
intent(in) :: s1, s2, s3
9479 real(RKG) :: rand(s1, s2, s3)
9480 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9486 impure module function getUnifRandRNGXLU_D3_RK4(rng, lb, ub, s1, s2, s3)
result(rand)
9487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9488 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_RK4
9491 real(RKG) ,
intent(in) :: lb, ub
9492 integer(IK) ,
intent(in) :: s1, s2, s3
9493 real(RKG) :: rand(s1, s2, s3)
9494 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9500 impure module function getUnifRandRNGXLU_D3_RK3(rng, lb, ub, s1, s2, s3)
result(rand)
9501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9502 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_RK3
9505 real(RKG) ,
intent(in) :: lb, ub
9506 integer(IK) ,
intent(in) :: s1, s2, s3
9507 real(RKG) :: rand(s1, s2, s3)
9508 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9514 impure module function getUnifRandRNGXLU_D3_RK2(rng, lb, ub, s1, s2, s3)
result(rand)
9515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9516 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_RK2
9519 real(RKG) ,
intent(in) :: lb, ub
9520 integer(IK) ,
intent(in) :: s1, s2, s3
9521 real(RKG) :: rand(s1, s2, s3)
9522 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9527 impure module function getUnifRandRNGXLU_D3_RK1(rng, lb, ub, s1, s2, s3)
result(rand)
9528#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9529 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGXLU_D3_RK1
9532 real(RKG) ,
intent(in) :: lb, ub
9533 integer(IK) ,
intent(in) :: s1, s2, s3
9534 real(RKG) :: rand(s1, s2, s3)
9535 type(xoshiro256ssw_type) ,
intent(inout) :: rng
9557 impure module function getUnifRandRNGGDD_D0_LK(rng)
result(rand)
9558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9559 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGDD_D0_LK
9562 logical(LKG) :: rand
9563 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9575 impure elemental module function getUnifRandRNGGLU_D0_SK5(rng, lb, ub)
result(rand)
9576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9577 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_SK5
9580 character(
*,SKG) ,
intent(in) :: lb, ub
9581 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
9582 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9587 impure elemental module function getUnifRandRNGGLU_D0_SK4(rng, lb, ub)
result(rand)
9588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9589 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_SK4
9592 character(
*,SKG) ,
intent(in) :: lb, ub
9593 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
9594 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9599 impure elemental module function getUnifRandRNGGLU_D0_SK3(rng, lb, ub)
result(rand)
9600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9601 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_SK3
9604 character(
*,SKG) ,
intent(in) :: lb, ub
9605 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
9606 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9611 impure elemental module function getUnifRandRNGGLU_D0_SK2(rng, lb, ub)
result(rand)
9612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9613 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_SK2
9616 character(
*,SKG) ,
intent(in) :: lb, ub
9617 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
9618 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9623 impure elemental module function getUnifRandRNGGLU_D0_SK1(rng, lb, ub)
result(rand)
9624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9625 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_SK1
9628 character(
*,SKG) ,
intent(in) :: lb, ub
9629 character(
max(
len(lb,IK),
len(ub,IK)),SKG) :: rand
9630 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9637 impure elemental module function getUnifRandRNGGLU_D0_IK5(rng, lb, ub)
result(rand)
9638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9639 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_IK5
9642 integer(IKG) ,
intent(in) :: lb, ub
9643 integer(IKG) :: rand
9644 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9649 impure elemental module function getUnifRandRNGGLU_D0_IK4(rng, lb, ub)
result(rand)
9650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9651 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_IK4
9654 integer(IKG) ,
intent(in) :: lb, ub
9655 integer(IKG) :: rand
9656 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9661 impure elemental module function getUnifRandRNGGLU_D0_IK3(rng, lb, ub)
result(rand)
9662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9663 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_IK3
9666 integer(IKG) ,
intent(in) :: lb, ub
9667 integer(IKG) :: rand
9668 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9673 impure elemental module function getUnifRandRNGGLU_D0_IK2(rng, lb, ub)
result(rand)
9674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9675 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_IK2
9678 integer(IKG) ,
intent(in) :: lb, ub
9679 integer(IKG) :: rand
9680 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9685 impure elemental module function getUnifRandRNGGLU_D0_IK1(rng, lb, ub)
result(rand)
9686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9687 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_IK1
9690 integer(IKG) ,
intent(in) :: lb, ub
9691 integer(IKG) :: rand
9692 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9699 impure elemental module function getUnifRandRNGGLU_D0_LK5(rng, lb, ub)
result(rand)
9700#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9701 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_LK5
9704 logical(LKG) ,
intent(in) :: lb, ub
9705 logical(LKG) :: rand
9706 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9711 impure elemental module function getUnifRandRNGGLU_D0_LK4(rng, lb, ub)
result(rand)
9712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9713 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_LK4
9716 logical(LKG) ,
intent(in) :: lb, ub
9717 logical(LKG) :: rand
9718 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9723 impure elemental module function getUnifRandRNGGLU_D0_LK3(rng, lb, ub)
result(rand)
9724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9725 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_LK3
9728 logical(LKG) ,
intent(in) :: lb, ub
9729 logical(LKG) :: rand
9730 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9735 impure elemental module function getUnifRandRNGGLU_D0_LK2(rng, lb, ub)
result(rand)
9736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9737 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_LK2
9740 logical(LKG) ,
intent(in) :: lb, ub
9741 logical(LKG) :: rand
9742 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9747 impure elemental module function getUnifRandRNGGLU_D0_LK1(rng, lb, ub)
result(rand)
9748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9749 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_LK1
9752 logical(LKG) ,
intent(in) :: lb, ub
9753 logical(LKG) :: rand
9754 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9761 impure elemental module function getUnifRandRNGGLU_D0_CK5(rng, lb, ub)
result(rand)
9762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9763 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_CK5
9766 complex(CKG) ,
intent(in) :: lb, ub
9767 complex(CKG) :: rand
9768 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9773 impure elemental module function getUnifRandRNGGLU_D0_CK4(rng, lb, ub)
result(rand)
9774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9775 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_CK4
9778 complex(CKG) ,
intent(in) :: lb, ub
9779 complex(CKG) :: rand
9780 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9785 impure elemental module function getUnifRandRNGGLU_D0_CK3(rng, lb, ub)
result(rand)
9786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9787 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_CK3
9790 complex(CKG) ,
intent(in) :: lb, ub
9791 complex(CKG) :: rand
9792 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9797 impure elemental module function getUnifRandRNGGLU_D0_CK2(rng, lb, ub)
result(rand)
9798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9799 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_CK2
9802 complex(CKG) ,
intent(in) :: lb, ub
9803 complex(CKG) :: rand
9804 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9809 impure elemental module function getUnifRandRNGGLU_D0_CK1(rng, lb, ub)
result(rand)
9810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9811 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_CK1
9814 complex(CKG) ,
intent(in) :: lb, ub
9815 complex(CKG) :: rand
9816 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9823 impure elemental module function getUnifRandRNGGLU_D0_RK5(rng, lb, ub)
result(rand)
9824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9825 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_RK5
9828 real(RKG) ,
intent(in) :: lb, ub
9830 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9835 impure elemental module function getUnifRandRNGGLU_D0_RK4(rng, lb, ub)
result(rand)
9836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9837 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_RK4
9840 real(RKG) ,
intent(in) :: lb, ub
9842 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9847 impure elemental module function getUnifRandRNGGLU_D0_RK3(rng, lb, ub)
result(rand)
9848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9849 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_RK3
9852 real(RKG) ,
intent(in) :: lb, ub
9854 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9859 impure elemental module function getUnifRandRNGGLU_D0_RK2(rng, lb, ub)
result(rand)
9860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9861 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_RK2
9864 real(RKG) ,
intent(in) :: lb, ub
9866 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9871 impure elemental module function getUnifRandRNGGLU_D0_RK1(rng, lb, ub)
result(rand)
9872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9873 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D0_RK1
9876 real(RKG) ,
intent(in) :: lb, ub
9878 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9891 impure module function getUnifRandRNGGLU_D1_SK5(rng, lb, ub, s1)
result(rand)
9892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9893 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_SK5
9896 character(
*,SKG) ,
intent(in) :: lb, ub
9897 integer(IK) ,
intent(in) :: s1
9898 character(
len(lb,IK),SKG) :: rand(s1)
9899 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9904 impure module function getUnifRandRNGGLU_D1_SK4(rng, lb, ub, s1)
result(rand)
9905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9906 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_SK4
9909 character(
*,SKG) ,
intent(in) :: lb, ub
9910 integer(IK) ,
intent(in) :: s1
9911 character(
len(lb,IK),SKG) :: rand(s1)
9912 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9917 impure module function getUnifRandRNGGLU_D1_SK3(rng, lb, ub, s1)
result(rand)
9918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9919 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_SK3
9922 character(
*,SKG) ,
intent(in) :: lb, ub
9923 integer(IK) ,
intent(in) :: s1
9924 character(
len(lb,IK),SKG) :: rand(s1)
9925 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9930 impure module function getUnifRandRNGGLU_D1_SK2(rng, lb, ub, s1)
result(rand)
9931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9932 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_SK2
9935 character(
*,SKG) ,
intent(in) :: lb, ub
9936 integer(IK) ,
intent(in) :: s1
9937 character(
len(lb,IK),SKG) :: rand(s1)
9938 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9943 impure module function getUnifRandRNGGLU_D1_SK1(rng, lb, ub, s1)
result(rand)
9944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9945 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_SK1
9948 character(
*,SKG) ,
intent(in) :: lb, ub
9949 integer(IK) ,
intent(in) :: s1
9950 character(
len(lb,IK),SKG) :: rand(s1)
9951 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9958 impure module function getUnifRandRNGGLU_D1_IK5(rng, lb, ub, s1)
result(rand)
9959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9960 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_IK5
9963 integer(IKG) ,
intent(in) :: lb, ub
9964 integer(IK) ,
intent(in) :: s1
9965 integer(IKG) :: rand(s1)
9966 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9971 impure module function getUnifRandRNGGLU_D1_IK4(rng, lb, ub, s1)
result(rand)
9972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9973 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_IK4
9976 integer(IKG) ,
intent(in) :: lb, ub
9977 integer(IK) ,
intent(in) :: s1
9978 integer(IKG) :: rand(s1)
9979 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9984 impure module function getUnifRandRNGGLU_D1_IK3(rng, lb, ub, s1)
result(rand)
9985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9986 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_IK3
9989 integer(IKG) ,
intent(in) :: lb, ub
9990 integer(IK) ,
intent(in) :: s1
9991 integer(IKG) :: rand(s1)
9992 type(xoshiro256ssg_type) ,
intent(inout) :: rng
9997 impure module function getUnifRandRNGGLU_D1_IK2(rng, lb, ub, s1)
result(rand)
9998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9999 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_IK2
10002 integer(IKG) ,
intent(in) :: lb, ub
10003 integer(IK) ,
intent(in) :: s1
10004 integer(IKG) :: rand(s1)
10005 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10010 impure module function getUnifRandRNGGLU_D1_IK1(rng, lb, ub, s1)
result(rand)
10011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10012 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_IK1
10015 integer(IKG) ,
intent(in) :: lb, ub
10016 integer(IK) ,
intent(in) :: s1
10017 integer(IKG) :: rand(s1)
10018 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10025 impure module function getUnifRandRNGGLU_D1_LK5(rng, lb, ub, s1)
result(rand)
10026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10027 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_LK5
10030 logical(LKG) ,
intent(in) :: lb, ub
10031 integer(IK) ,
intent(in) :: s1
10032 logical(LKG) :: rand(s1)
10033 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10038 impure module function getUnifRandRNGGLU_D1_LK4(rng, lb, ub, s1)
result(rand)
10039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10040 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_LK4
10043 logical(LKG) ,
intent(in) :: lb, ub
10044 integer(IK) ,
intent(in) :: s1
10045 logical(LKG) :: rand(s1)
10046 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10051 impure module function getUnifRandRNGGLU_D1_LK3(rng, lb, ub, s1)
result(rand)
10052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10053 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_LK3
10056 logical(LKG) ,
intent(in) :: lb, ub
10057 integer(IK) ,
intent(in) :: s1
10058 logical(LKG) :: rand(s1)
10059 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10064 impure module function getUnifRandRNGGLU_D1_LK2(rng, lb, ub, s1)
result(rand)
10065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10066 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_LK2
10069 logical(LKG) ,
intent(in) :: lb, ub
10070 integer(IK) ,
intent(in) :: s1
10071 logical(LKG) :: rand(s1)
10072 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10077 impure module function getUnifRandRNGGLU_D1_LK1(rng, lb, ub, s1)
result(rand)
10078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10079 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_LK1
10082 logical(LKG) ,
intent(in) :: lb, ub
10083 integer(IK) ,
intent(in) :: s1
10084 logical(LKG) :: rand(s1)
10085 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10092 impure module function getUnifRandRNGGLU_D1_CK5(rng, lb, ub, s1)
result(rand)
10093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10094 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_CK5
10097 complex(CKG) ,
intent(in) :: lb, ub
10098 integer(IK) ,
intent(in) :: s1
10099 complex(CKG) :: rand(s1)
10100 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10105 impure module function getUnifRandRNGGLU_D1_CK4(rng, lb, ub, s1)
result(rand)
10106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10107 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_CK4
10110 complex(CKG) ,
intent(in) :: lb, ub
10111 integer(IK) ,
intent(in) :: s1
10112 complex(CKG) :: rand(s1)
10113 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10118 impure module function getUnifRandRNGGLU_D1_CK3(rng, lb, ub, s1)
result(rand)
10119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10120 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_CK3
10123 complex(CKG) ,
intent(in) :: lb, ub
10124 integer(IK) ,
intent(in) :: s1
10125 complex(CKG) :: rand(s1)
10126 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10131 impure module function getUnifRandRNGGLU_D1_CK2(rng, lb, ub, s1)
result(rand)
10132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10133 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_CK2
10136 complex(CKG) ,
intent(in) :: lb, ub
10137 integer(IK) ,
intent(in) :: s1
10138 complex(CKG) :: rand(s1)
10139 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10144 impure module function getUnifRandRNGGLU_D1_CK1(rng, lb, ub, s1)
result(rand)
10145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10146 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_CK1
10149 complex(CKG) ,
intent(in) :: lb, ub
10150 integer(IK) ,
intent(in) :: s1
10151 complex(CKG) :: rand(s1)
10152 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10159 impure module function getUnifRandRNGGLU_D1_RK5(rng, lb, ub, s1)
result(rand)
10160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10161 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_RK5
10164 real(RKG) ,
intent(in) :: lb, ub
10165 integer(IK) ,
intent(in) :: s1
10166 real(RKG) :: rand(s1)
10167 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10173 impure module function getUnifRandRNGGLU_D1_RK4(rng, lb, ub, s1)
result(rand)
10174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10175 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_RK4
10178 real(RKG) ,
intent(in) :: lb, ub
10179 integer(IK) ,
intent(in) :: s1
10180 real(RKG) :: rand(s1)
10181 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10187 impure module function getUnifRandRNGGLU_D1_RK3(rng, lb, ub, s1)
result(rand)
10188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10189 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_RK3
10192 real(RKG) ,
intent(in) :: lb, ub
10193 integer(IK) ,
intent(in) :: s1
10194 real(RKG) :: rand(s1)
10195 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10201 impure module function getUnifRandRNGGLU_D1_RK2(rng, lb, ub, s1)
result(rand)
10202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10203 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_RK2
10206 real(RKG) ,
intent(in) :: lb, ub
10207 integer(IK) ,
intent(in) :: s1
10208 real(RKG) :: rand(s1)
10209 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10214 impure module function getUnifRandRNGGLU_D1_RK1(rng, lb, ub, s1)
result(rand)
10215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10216 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D1_RK1
10219 real(RKG) ,
intent(in) :: lb, ub
10220 integer(IK) ,
intent(in) :: s1
10221 real(RKG) :: rand(s1)
10222 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10235 impure module function getUnifRandRNGGLU_D2_SK5(rng, lb, ub, s1, s2)
result(rand)
10236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10237 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_SK5
10240 character(
*,SKG) ,
intent(in) :: lb, ub
10241 integer(IK) ,
intent(in) :: s1, s2
10242 character(
len(lb,IK),SKG) :: rand(s1, s2)
10243 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10248 impure module function getUnifRandRNGGLU_D2_SK4(rng, lb, ub, s1, s2)
result(rand)
10249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10250 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_SK4
10253 character(
*,SKG) ,
intent(in) :: lb, ub
10254 integer(IK) ,
intent(in) :: s1, s2
10255 character(
len(lb,IK),SKG) :: rand(s1, s2)
10256 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10261 impure module function getUnifRandRNGGLU_D2_SK3(rng, lb, ub, s1, s2)
result(rand)
10262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10263 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_SK3
10266 character(
*,SKG) ,
intent(in) :: lb, ub
10267 integer(IK) ,
intent(in) :: s1, s2
10268 character(
len(lb,IK),SKG) :: rand(s1, s2)
10269 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10274 impure module function getUnifRandRNGGLU_D2_SK2(rng, lb, ub, s1, s2)
result(rand)
10275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10276 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_SK2
10279 character(
*,SKG) ,
intent(in) :: lb, ub
10280 integer(IK) ,
intent(in) :: s1, s2
10281 character(
len(lb,IK),SKG) :: rand(s1, s2)
10282 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10287 impure module function getUnifRandRNGGLU_D2_SK1(rng, lb, ub, s1, s2)
result(rand)
10288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10289 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_SK1
10292 character(
*,SKG) ,
intent(in) :: lb, ub
10293 integer(IK) ,
intent(in) :: s1, s2
10294 character(
len(lb,IK),SKG) :: rand(s1, s2)
10295 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10302 impure module function getUnifRandRNGGLU_D2_IK5(rng, lb, ub, s1, s2)
result(rand)
10303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10304 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_IK5
10307 integer(IKG) ,
intent(in) :: lb, ub
10308 integer(IK) ,
intent(in) :: s1, s2
10309 integer(IKG) :: rand(s1, s2)
10310 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10315 impure module function getUnifRandRNGGLU_D2_IK4(rng, lb, ub, s1, s2)
result(rand)
10316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10317 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_IK4
10320 integer(IKG) ,
intent(in) :: lb, ub
10321 integer(IK) ,
intent(in) :: s1, s2
10322 integer(IKG) :: rand(s1, s2)
10323 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10328 impure module function getUnifRandRNGGLU_D2_IK3(rng, lb, ub, s1, s2)
result(rand)
10329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10330 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_IK3
10333 integer(IKG) ,
intent(in) :: lb, ub
10334 integer(IK) ,
intent(in) :: s1, s2
10335 integer(IKG) :: rand(s1, s2)
10336 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10341 impure module function getUnifRandRNGGLU_D2_IK2(rng, lb, ub, s1, s2)
result(rand)
10342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10343 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_IK2
10346 integer(IKG) ,
intent(in) :: lb, ub
10347 integer(IK) ,
intent(in) :: s1, s2
10348 integer(IKG) :: rand(s1, s2)
10349 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10354 impure module function getUnifRandRNGGLU_D2_IK1(rng, lb, ub, s1, s2)
result(rand)
10355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10356 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_IK1
10359 integer(IKG) ,
intent(in) :: lb, ub
10360 integer(IK) ,
intent(in) :: s1, s2
10361 integer(IKG) :: rand(s1, s2)
10362 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10369 impure module function getUnifRandRNGGLU_D2_LK5(rng, lb, ub, s1, s2)
result(rand)
10370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10371 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_LK5
10374 logical(LKG) ,
intent(in) :: lb, ub
10375 integer(IK) ,
intent(in) :: s1, s2
10376 logical(LKG) :: rand(s1, s2)
10377 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10382 impure module function getUnifRandRNGGLU_D2_LK4(rng, lb, ub, s1, s2)
result(rand)
10383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10384 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_LK4
10387 logical(LKG) ,
intent(in) :: lb, ub
10388 integer(IK) ,
intent(in) :: s1, s2
10389 logical(LKG) :: rand(s1, s2)
10390 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10395 impure module function getUnifRandRNGGLU_D2_LK3(rng, lb, ub, s1, s2)
result(rand)
10396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10397 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_LK3
10400 logical(LKG) ,
intent(in) :: lb, ub
10401 integer(IK) ,
intent(in) :: s1, s2
10402 logical(LKG) :: rand(s1, s2)
10403 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10408 impure module function getUnifRandRNGGLU_D2_LK2(rng, lb, ub, s1, s2)
result(rand)
10409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10410 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_LK2
10413 logical(LKG) ,
intent(in) :: lb, ub
10414 integer(IK) ,
intent(in) :: s1, s2
10415 logical(LKG) :: rand(s1, s2)
10416 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10421 impure module function getUnifRandRNGGLU_D2_LK1(rng, lb, ub, s1, s2)
result(rand)
10422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10423 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_LK1
10426 logical(LKG) ,
intent(in) :: lb, ub
10427 integer(IK) ,
intent(in) :: s1, s2
10428 logical(LKG) :: rand(s1, s2)
10429 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10436 impure module function getUnifRandRNGGLU_D2_CK5(rng, lb, ub, s1, s2)
result(rand)
10437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10438 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_CK5
10441 complex(CKG) ,
intent(in) :: lb, ub
10442 integer(IK) ,
intent(in) :: s1, s2
10443 complex(CKG) :: rand(s1, s2)
10444 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10449 impure module function getUnifRandRNGGLU_D2_CK4(rng, lb, ub, s1, s2)
result(rand)
10450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10451 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_CK4
10454 complex(CKG) ,
intent(in) :: lb, ub
10455 integer(IK) ,
intent(in) :: s1, s2
10456 complex(CKG) :: rand(s1, s2)
10457 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10462 impure module function getUnifRandRNGGLU_D2_CK3(rng, lb, ub, s1, s2)
result(rand)
10463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10464 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_CK3
10467 complex(CKG) ,
intent(in) :: lb, ub
10468 integer(IK) ,
intent(in) :: s1, s2
10469 complex(CKG) :: rand(s1, s2)
10470 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10475 impure module function getUnifRandRNGGLU_D2_CK2(rng, lb, ub, s1, s2)
result(rand)
10476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10477 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_CK2
10480 complex(CKG) ,
intent(in) :: lb, ub
10481 integer(IK) ,
intent(in) :: s1, s2
10482 complex(CKG) :: rand(s1, s2)
10483 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10488 impure module function getUnifRandRNGGLU_D2_CK1(rng, lb, ub, s1, s2)
result(rand)
10489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10490 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_CK1
10493 complex(CKG) ,
intent(in) :: lb, ub
10494 integer(IK) ,
intent(in) :: s1, s2
10495 complex(CKG) :: rand(s1, s2)
10496 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10503 impure module function getUnifRandRNGGLU_D2_RK5(rng, lb, ub, s1, s2)
result(rand)
10504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10505 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_RK5
10508 real(RKG) ,
intent(in) :: lb, ub
10509 integer(IK) ,
intent(in) :: s1, s2
10510 real(RKG) :: rand(s1, s2)
10511 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10517 impure module function getUnifRandRNGGLU_D2_RK4(rng, lb, ub, s1, s2)
result(rand)
10518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10519 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_RK4
10522 real(RKG) ,
intent(in) :: lb, ub
10523 integer(IK) ,
intent(in) :: s1, s2
10524 real(RKG) :: rand(s1, s2)
10525 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10531 impure module function getUnifRandRNGGLU_D2_RK3(rng, lb, ub, s1, s2)
result(rand)
10532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10533 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_RK3
10536 real(RKG) ,
intent(in) :: lb, ub
10537 integer(IK) ,
intent(in) :: s1, s2
10538 real(RKG) :: rand(s1, s2)
10539 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10545 impure module function getUnifRandRNGGLU_D2_RK2(rng, lb, ub, s1, s2)
result(rand)
10546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10547 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_RK2
10550 real(RKG) ,
intent(in) :: lb, ub
10551 integer(IK) ,
intent(in) :: s1, s2
10552 real(RKG) :: rand(s1, s2)
10553 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10558 impure module function getUnifRandRNGGLU_D2_RK1(rng, lb, ub, s1, s2)
result(rand)
10559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10560 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D2_RK1
10563 real(RKG) ,
intent(in) :: lb, ub
10564 integer(IK) ,
intent(in) :: s1, s2
10565 real(RKG) :: rand(s1, s2)
10566 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10579 impure module function getUnifRandRNGGLU_D3_SK5(rng, lb, ub, s1, s2, s3)
result(rand)
10580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10581 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_SK5
10584 character(
*,SKG) ,
intent(in) :: lb, ub
10585 integer(IK) ,
intent(in) :: s1, s2, s3
10586 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
10587 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10592 impure module function getUnifRandRNGGLU_D3_SK4(rng, lb, ub, s1, s2, s3)
result(rand)
10593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10594 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_SK4
10597 character(
*,SKG) ,
intent(in) :: lb, ub
10598 integer(IK) ,
intent(in) :: s1, s2, s3
10599 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
10600 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10605 impure module function getUnifRandRNGGLU_D3_SK3(rng, lb, ub, s1, s2, s3)
result(rand)
10606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10607 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_SK3
10610 character(
*,SKG) ,
intent(in) :: lb, ub
10611 integer(IK) ,
intent(in) :: s1, s2, s3
10612 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
10613 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10618 impure module function getUnifRandRNGGLU_D3_SK2(rng, lb, ub, s1, s2, s3)
result(rand)
10619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10620 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_SK2
10623 character(
*,SKG) ,
intent(in) :: lb, ub
10624 integer(IK) ,
intent(in) :: s1, s2, s3
10625 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
10626 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10631 impure module function getUnifRandRNGGLU_D3_SK1(rng, lb, ub, s1, s2, s3)
result(rand)
10632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10633 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_SK1
10636 character(
*,SKG) ,
intent(in) :: lb, ub
10637 integer(IK) ,
intent(in) :: s1, s2, s3
10638 character(
len(lb,IK),SKG) :: rand(s1, s2, s3)
10639 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10646 impure module function getUnifRandRNGGLU_D3_IK5(rng, lb, ub, s1, s2, s3)
result(rand)
10647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10648 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_IK5
10651 integer(IKG) ,
intent(in) :: lb, ub
10652 integer(IK) ,
intent(in) :: s1, s2, s3
10653 integer(IKG) :: rand(s1, s2, s3)
10654 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10659 impure module function getUnifRandRNGGLU_D3_IK4(rng, lb, ub, s1, s2, s3)
result(rand)
10660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10661 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_IK4
10664 integer(IKG) ,
intent(in) :: lb, ub
10665 integer(IK) ,
intent(in) :: s1, s2, s3
10666 integer(IKG) :: rand(s1, s2, s3)
10667 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10672 impure module function getUnifRandRNGGLU_D3_IK3(rng, lb, ub, s1, s2, s3)
result(rand)
10673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10674 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_IK3
10677 integer(IKG) ,
intent(in) :: lb, ub
10678 integer(IK) ,
intent(in) :: s1, s2, s3
10679 integer(IKG) :: rand(s1, s2, s3)
10680 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10685 impure module function getUnifRandRNGGLU_D3_IK2(rng, lb, ub, s1, s2, s3)
result(rand)
10686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10687 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_IK2
10690 integer(IKG) ,
intent(in) :: lb, ub
10691 integer(IK) ,
intent(in) :: s1, s2, s3
10692 integer(IKG) :: rand(s1, s2, s3)
10693 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10698 impure module function getUnifRandRNGGLU_D3_IK1(rng, lb, ub, s1, s2, s3)
result(rand)
10699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10700 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_IK1
10703 integer(IKG) ,
intent(in) :: lb, ub
10704 integer(IK) ,
intent(in) :: s1, s2, s3
10705 integer(IKG) :: rand(s1, s2, s3)
10706 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10713 impure module function getUnifRandRNGGLU_D3_LK5(rng, lb, ub, s1, s2, s3)
result(rand)
10714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10715 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_LK5
10718 logical(LKG) ,
intent(in) :: lb, ub
10719 integer(IK) ,
intent(in) :: s1, s2, s3
10720 logical(LKG) :: rand(s1, s2, s3)
10721 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10726 impure module function getUnifRandRNGGLU_D3_LK4(rng, lb, ub, s1, s2, s3)
result(rand)
10727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10728 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_LK4
10731 logical(LKG) ,
intent(in) :: lb, ub
10732 integer(IK) ,
intent(in) :: s1, s2, s3
10733 logical(LKG) :: rand(s1, s2, s3)
10734 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10739 impure module function getUnifRandRNGGLU_D3_LK3(rng, lb, ub, s1, s2, s3)
result(rand)
10740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10741 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_LK3
10744 logical(LKG) ,
intent(in) :: lb, ub
10745 integer(IK) ,
intent(in) :: s1, s2, s3
10746 logical(LKG) :: rand(s1, s2, s3)
10747 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10752 impure module function getUnifRandRNGGLU_D3_LK2(rng, lb, ub, s1, s2, s3)
result(rand)
10753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10754 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_LK2
10757 logical(LKG) ,
intent(in) :: lb, ub
10758 integer(IK) ,
intent(in) :: s1, s2, s3
10759 logical(LKG) :: rand(s1, s2, s3)
10760 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10765 impure module function getUnifRandRNGGLU_D3_LK1(rng, lb, ub, s1, s2, s3)
result(rand)
10766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10767 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_LK1
10770 logical(LKG) ,
intent(in) :: lb, ub
10771 integer(IK) ,
intent(in) :: s1, s2, s3
10772 logical(LKG) :: rand(s1, s2, s3)
10773 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10780 impure module function getUnifRandRNGGLU_D3_CK5(rng, lb, ub, s1, s2, s3)
result(rand)
10781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10782 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_CK5
10785 complex(CKG) ,
intent(in) :: lb, ub
10786 integer(IK) ,
intent(in) :: s1, s2, s3
10787 complex(CKG) :: rand(s1, s2, s3)
10788 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10793 impure module function getUnifRandRNGGLU_D3_CK4(rng, lb, ub, s1, s2, s3)
result(rand)
10794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10795 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_CK4
10798 complex(CKG) ,
intent(in) :: lb, ub
10799 integer(IK) ,
intent(in) :: s1, s2, s3
10800 complex(CKG) :: rand(s1, s2, s3)
10801 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10806 impure module function getUnifRandRNGGLU_D3_CK3(rng, lb, ub, s1, s2, s3)
result(rand)
10807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10808 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_CK3
10811 complex(CKG) ,
intent(in) :: lb, ub
10812 integer(IK) ,
intent(in) :: s1, s2, s3
10813 complex(CKG) :: rand(s1, s2, s3)
10814 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10819 impure module function getUnifRandRNGGLU_D3_CK2(rng, lb, ub, s1, s2, s3)
result(rand)
10820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10821 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_CK2
10824 complex(CKG) ,
intent(in) :: lb, ub
10825 integer(IK) ,
intent(in) :: s1, s2, s3
10826 complex(CKG) :: rand(s1, s2, s3)
10827 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10832 impure module function getUnifRandRNGGLU_D3_CK1(rng, lb, ub, s1, s2, s3)
result(rand)
10833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10834 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_CK1
10837 complex(CKG) ,
intent(in) :: lb, ub
10838 integer(IK) ,
intent(in) :: s1, s2, s3
10839 complex(CKG) :: rand(s1, s2, s3)
10840 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10847 impure module function getUnifRandRNGGLU_D3_RK5(rng, lb, ub, s1, s2, s3)
result(rand)
10848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10849 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_RK5
10852 real(RKG) ,
intent(in) :: lb, ub
10853 integer(IK) ,
intent(in) :: s1, s2, s3
10854 real(RKG) :: rand(s1, s2, s3)
10855 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10861 impure module function getUnifRandRNGGLU_D3_RK4(rng, lb, ub, s1, s2, s3)
result(rand)
10862#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10863 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_RK4
10866 real(RKG) ,
intent(in) :: lb, ub
10867 integer(IK) ,
intent(in) :: s1, s2, s3
10868 real(RKG) :: rand(s1, s2, s3)
10869 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10875 impure module function getUnifRandRNGGLU_D3_RK3(rng, lb, ub, s1, s2, s3)
result(rand)
10876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10877 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_RK3
10880 real(RKG) ,
intent(in) :: lb, ub
10881 integer(IK) ,
intent(in) :: s1, s2, s3
10882 real(RKG) :: rand(s1, s2, s3)
10883 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10889 impure module function getUnifRandRNGGLU_D3_RK2(rng, lb, ub, s1, s2, s3)
result(rand)
10890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10891 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_RK2
10894 real(RKG) ,
intent(in) :: lb, ub
10895 integer(IK) ,
intent(in) :: s1, s2, s3
10896 real(RKG) :: rand(s1, s2, s3)
10897 type(xoshiro256ssg_type) ,
intent(inout) :: rng
10902 impure module function getUnifRandRNGGLU_D3_RK1(rng, lb, ub, s1, s2, s3)
result(rand)
10903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10904 !DEC$ ATTRIBUTES DLLEXPORT :: getUnifRandRNGGLU_D3_RK1
10907 real(RKG) ,
intent(in) :: lb, ub
10908 integer(IK) ,
intent(in) :: s1, s2, s3
10909 real(RKG) :: rand(s1, s2, s3)
10910 type(xoshiro256ssg_type) ,
intent(inout) :: rng
11070 impure elemental module subroutine setUnifRandRNGDDD_D0_SK5(rand)
11071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11072 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_SK5
11075 character(
*,SKG) ,
intent(out) :: rand
11080 impure elemental module subroutine setUnifRandRNGDDD_D0_SK4(rand)
11081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11082 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_SK4
11085 character(
*,SKG) ,
intent(out) :: rand
11090 impure elemental module subroutine setUnifRandRNGDDD_D0_SK3(rand)
11091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11092 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_SK3
11095 character(
*,SKG) ,
intent(out) :: rand
11100 impure elemental module subroutine setUnifRandRNGDDD_D0_SK2(rand)
11101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11102 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_SK2
11105 character(
*,SKG) ,
intent(out) :: rand
11110 impure elemental module subroutine setUnifRandRNGDDD_D0_SK1(rand)
11111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11112 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_SK1
11115 character(
*,SKG) ,
intent(out) :: rand
11122 impure elemental module subroutine setUnifRandRNGDDD_D0_IK5(rand)
11123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11124 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_IK5
11127 integer(IKG) ,
intent(out) :: rand
11132 impure elemental module subroutine setUnifRandRNGDDD_D0_IK4(rand)
11133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11134 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_IK4
11137 integer(IKG) ,
intent(out) :: rand
11142 impure elemental module subroutine setUnifRandRNGDDD_D0_IK3(rand)
11143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11144 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_IK3
11147 integer(IKG) ,
intent(out) :: rand
11152 impure elemental module subroutine setUnifRandRNGDDD_D0_IK2(rand)
11153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11154 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_IK2
11157 integer(IKG) ,
intent(out) :: rand
11162 impure elemental module subroutine setUnifRandRNGDDD_D0_IK1(rand)
11163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11164 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_IK1
11167 integer(IKG) ,
intent(out) :: rand
11174 impure elemental module subroutine setUnifRandRNGDDD_D0_LK5(rand)
11175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11176 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_LK5
11179 logical(LKG) ,
intent(out) :: rand
11184 impure elemental module subroutine setUnifRandRNGDDD_D0_LK4(rand)
11185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11186 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_LK4
11189 logical(LKG) ,
intent(out) :: rand
11194 impure elemental module subroutine setUnifRandRNGDDD_D0_LK3(rand)
11195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11196 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_LK3
11199 logical(LKG) ,
intent(out) :: rand
11204 impure elemental module subroutine setUnifRandRNGDDD_D0_LK2(rand)
11205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11206 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_LK2
11209 logical(LKG) ,
intent(out) :: rand
11214 impure elemental module subroutine setUnifRandRNGDDD_D0_LK1(rand)
11215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11216 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_LK1
11219 logical(LKG) ,
intent(out) :: rand
11226 impure elemental module subroutine setUnifRandRNGDDD_D0_CK5(rand)
11227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11228 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_CK5
11231 complex(CKG) ,
intent(out) :: rand
11236 impure elemental module subroutine setUnifRandRNGDDD_D0_CK4(rand)
11237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11238 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_CK4
11241 complex(CKG) ,
intent(out) :: rand
11246 impure elemental module subroutine setUnifRandRNGDDD_D0_CK3(rand)
11247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11248 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_CK3
11251 complex(CKG) ,
intent(out) :: rand
11256 impure elemental module subroutine setUnifRandRNGDDD_D0_CK2(rand)
11257#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11258 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_CK2
11261 complex(CKG) ,
intent(out) :: rand
11266 impure elemental module subroutine setUnifRandRNGDDD_D0_CK1(rand)
11267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11268 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_CK1
11271 complex(CKG) ,
intent(out) :: rand
11278 impure elemental module subroutine setUnifRandRNGDDD_D0_RK5(rand)
11279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11280 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_RK5
11283 real(RKG) ,
intent(out) :: rand
11288 impure elemental module subroutine setUnifRandRNGDDD_D0_RK4(rand)
11289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11290 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_RK4
11293 real(RKG) ,
intent(out) :: rand
11298 impure elemental module subroutine setUnifRandRNGDDD_D0_RK3(rand)
11299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11300 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_RK3
11303 real(RKG) ,
intent(out) :: rand
11308 impure elemental module subroutine setUnifRandRNGDDD_D0_RK2(rand)
11309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11310 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_RK2
11313 real(RKG) ,
intent(out) :: rand
11318 impure elemental module subroutine setUnifRandRNGDDD_D0_RK1(rand)
11319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11320 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDDD_D0_RK1
11323 real(RKG) ,
intent(out) :: rand
11336 impure elemental module subroutine setUnifRandRNGDLU_D0_SK5(rand, lb, ub)
11337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11338 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_SK5
11341 character(
*,SKG) ,
intent(out) :: rand
11342 character(
*,SKG) ,
intent(in) :: lb, ub
11347 impure elemental module subroutine setUnifRandRNGDLU_D0_SK4(rand, lb, ub)
11348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11349 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_SK4
11352 character(
*,SKG) ,
intent(out) :: rand
11353 character(
*,SKG) ,
intent(in) :: lb, ub
11358 impure elemental module subroutine setUnifRandRNGDLU_D0_SK3(rand, lb, ub)
11359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11360 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_SK3
11363 character(
*,SKG) ,
intent(out) :: rand
11364 character(
*,SKG) ,
intent(in) :: lb, ub
11369 impure elemental module subroutine setUnifRandRNGDLU_D0_SK2(rand, lb, ub)
11370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11371 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_SK2
11374 character(
*,SKG) ,
intent(out) :: rand
11375 character(
*,SKG) ,
intent(in) :: lb, ub
11380 impure elemental module subroutine setUnifRandRNGDLU_D0_SK1(rand, lb, ub)
11381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11382 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_SK1
11385 character(
*,SKG) ,
intent(out) :: rand
11386 character(
*,SKG) ,
intent(in) :: lb, ub
11393 impure elemental module subroutine setUnifRandRNGDLU_D0_IK5(rand, lb, ub)
11394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11395 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_IK5
11398 integer(IKG) ,
intent(out) :: rand
11399 integer(IKG) ,
intent(in) :: lb, ub
11404 impure elemental module subroutine setUnifRandRNGDLU_D0_IK4(rand, lb, ub)
11405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11406 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_IK4
11409 integer(IKG) ,
intent(out) :: rand
11410 integer(IKG) ,
intent(in) :: lb, ub
11415 impure elemental module subroutine setUnifRandRNGDLU_D0_IK3(rand, lb, ub)
11416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11417 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_IK3
11420 integer(IKG) ,
intent(out) :: rand
11421 integer(IKG) ,
intent(in) :: lb, ub
11426 impure elemental module subroutine setUnifRandRNGDLU_D0_IK2(rand, lb, ub)
11427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11428 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_IK2
11431 integer(IKG) ,
intent(out) :: rand
11432 integer(IKG) ,
intent(in) :: lb, ub
11437 impure elemental module subroutine setUnifRandRNGDLU_D0_IK1(rand, lb, ub)
11438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11439 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_IK1
11442 integer(IKG) ,
intent(out) :: rand
11443 integer(IKG) ,
intent(in) :: lb, ub
11450 impure elemental module subroutine setUnifRandRNGDLU_D0_LK5(rand, lb, ub)
11451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11452 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_LK5
11455 logical(LKG) ,
intent(out) :: rand
11456 logical(LKG) ,
intent(in) :: lb, ub
11461 impure elemental module subroutine setUnifRandRNGDLU_D0_LK4(rand, lb, ub)
11462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11463 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_LK4
11466 logical(LKG) ,
intent(out) :: rand
11467 logical(LKG) ,
intent(in) :: lb, ub
11472 impure elemental module subroutine setUnifRandRNGDLU_D0_LK3(rand, lb, ub)
11473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11474 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_LK3
11477 logical(LKG) ,
intent(out) :: rand
11478 logical(LKG) ,
intent(in) :: lb, ub
11483 impure elemental module subroutine setUnifRandRNGDLU_D0_LK2(rand, lb, ub)
11484#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11485 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_LK2
11488 logical(LKG) ,
intent(out) :: rand
11489 logical(LKG) ,
intent(in) :: lb, ub
11494 impure elemental module subroutine setUnifRandRNGDLU_D0_LK1(rand, lb, ub)
11495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11496 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_LK1
11499 logical(LKG) ,
intent(out) :: rand
11500 logical(LKG) ,
intent(in) :: lb, ub
11507 impure elemental module subroutine setUnifRandRNGDLU_D0_CK5(rand, lb, ub)
11508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11509 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_CK5
11512 complex(CKG) ,
intent(out) :: rand
11513 complex(CKG) ,
intent(in) :: lb, ub
11518 impure elemental module subroutine setUnifRandRNGDLU_D0_CK4(rand, lb, ub)
11519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11520 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_CK4
11523 complex(CKG) ,
intent(out) :: rand
11524 complex(CKG) ,
intent(in) :: lb, ub
11529 impure elemental module subroutine setUnifRandRNGDLU_D0_CK3(rand, lb, ub)
11530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11531 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_CK3
11534 complex(CKG) ,
intent(out) :: rand
11535 complex(CKG) ,
intent(in) :: lb, ub
11540 impure elemental module subroutine setUnifRandRNGDLU_D0_CK2(rand, lb, ub)
11541#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11542 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_CK2
11545 complex(CKG) ,
intent(out) :: rand
11546 complex(CKG) ,
intent(in) :: lb, ub
11551 impure elemental module subroutine setUnifRandRNGDLU_D0_CK1(rand, lb, ub)
11552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11553 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_CK1
11556 complex(CKG) ,
intent(out) :: rand
11557 complex(CKG) ,
intent(in) :: lb, ub
11564 impure elemental module subroutine setUnifRandRNGDLU_D0_RK5(rand, lb, ub)
11565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11566 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_RK5
11569 real(RKG) ,
intent(out) :: rand
11570 real(RKG) ,
intent(in) :: lb, ub
11575 impure elemental module subroutine setUnifRandRNGDLU_D0_RK4(rand, lb, ub)
11576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11577 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_RK4
11580 real(RKG) ,
intent(out) :: rand
11581 real(RKG) ,
intent(in) :: lb, ub
11586 impure elemental module subroutine setUnifRandRNGDLU_D0_RK3(rand, lb, ub)
11587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11588 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_RK3
11591 real(RKG) ,
intent(out) :: rand
11592 real(RKG) ,
intent(in) :: lb, ub
11597 impure elemental module subroutine setUnifRandRNGDLU_D0_RK2(rand, lb, ub)
11598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11599 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_RK2
11602 real(RKG) ,
intent(out) :: rand
11603 real(RKG) ,
intent(in) :: lb, ub
11608 impure elemental module subroutine setUnifRandRNGDLU_D0_RK1(rand, lb, ub)
11609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11610 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGDLU_D0_RK1
11613 real(RKG) ,
intent(out) :: rand
11614 real(RKG) ,
intent(in) :: lb, ub
11637 impure elemental module subroutine setUnifRandRNGFDD_D0_SK5(rng, rand)
11638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11639 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_SK5
11642 character(
*,SKG) ,
intent(out) :: rand
11643 type(rngf_type) ,
intent(in) :: rng
11648 impure elemental module subroutine setUnifRandRNGFDD_D0_SK4(rng, rand)
11649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11650 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_SK4
11653 character(
*,SKG) ,
intent(out) :: rand
11654 type(rngf_type) ,
intent(in) :: rng
11659 impure elemental module subroutine setUnifRandRNGFDD_D0_SK3(rng, rand)
11660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11661 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_SK3
11664 character(
*,SKG) ,
intent(out) :: rand
11665 type(rngf_type) ,
intent(in) :: rng
11670 impure elemental module subroutine setUnifRandRNGFDD_D0_SK2(rng, rand)
11671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11672 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_SK2
11675 character(
*,SKG) ,
intent(out) :: rand
11676 type(rngf_type) ,
intent(in) :: rng
11681 impure elemental module subroutine setUnifRandRNGFDD_D0_SK1(rng, rand)
11682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11683 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_SK1
11686 character(
*,SKG) ,
intent(out) :: rand
11687 type(rngf_type) ,
intent(in) :: rng
11694 impure elemental module subroutine setUnifRandRNGFDD_D0_IK5(rng, rand)
11695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11696 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_IK5
11699 integer(IKG) ,
intent(out) :: rand
11700 type(rngf_type) ,
intent(in) :: rng
11705 impure elemental module subroutine setUnifRandRNGFDD_D0_IK4(rng, rand)
11706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11707 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_IK4
11710 integer(IKG) ,
intent(out) :: rand
11711 type(rngf_type) ,
intent(in) :: rng
11716 impure elemental module subroutine setUnifRandRNGFDD_D0_IK3(rng, rand)
11717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11718 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_IK3
11721 integer(IKG) ,
intent(out) :: rand
11722 type(rngf_type) ,
intent(in) :: rng
11727 impure elemental module subroutine setUnifRandRNGFDD_D0_IK2(rng, rand)
11728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11729 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_IK2
11732 integer(IKG) ,
intent(out) :: rand
11733 type(rngf_type) ,
intent(in) :: rng
11738 impure elemental module subroutine setUnifRandRNGFDD_D0_IK1(rng, rand)
11739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11740 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_IK1
11743 integer(IKG) ,
intent(out) :: rand
11744 type(rngf_type) ,
intent(in) :: rng
11751 impure elemental module subroutine setUnifRandRNGFDD_D0_LK5(rng, rand)
11752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11753 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_LK5
11756 logical(LKG) ,
intent(out) :: rand
11757 type(rngf_type) ,
intent(in) :: rng
11762 impure elemental module subroutine setUnifRandRNGFDD_D0_LK4(rng, rand)
11763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11764 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_LK4
11767 logical(LKG) ,
intent(out) :: rand
11768 type(rngf_type) ,
intent(in) :: rng
11773 impure elemental module subroutine setUnifRandRNGFDD_D0_LK3(rng, rand)
11774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11775 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_LK3
11778 logical(LKG) ,
intent(out) :: rand
11779 type(rngf_type) ,
intent(in) :: rng
11784 impure elemental module subroutine setUnifRandRNGFDD_D0_LK2(rng, rand)
11785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11786 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_LK2
11789 logical(LKG) ,
intent(out) :: rand
11790 type(rngf_type) ,
intent(in) :: rng
11795 impure elemental module subroutine setUnifRandRNGFDD_D0_LK1(rng, rand)
11796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11797 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_LK1
11800 logical(LKG) ,
intent(out) :: rand
11801 type(rngf_type) ,
intent(in) :: rng
11808 impure elemental module subroutine setUnifRandRNGFDD_D0_CK5(rng, rand)
11809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11810 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_CK5
11813 complex(CKG) ,
intent(out) :: rand
11814 type(rngf_type) ,
intent(in) :: rng
11819 impure elemental module subroutine setUnifRandRNGFDD_D0_CK4(rng, rand)
11820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11821 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_CK4
11824 complex(CKG) ,
intent(out) :: rand
11825 type(rngf_type) ,
intent(in) :: rng
11830 impure elemental module subroutine setUnifRandRNGFDD_D0_CK3(rng, rand)
11831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11832 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_CK3
11835 complex(CKG) ,
intent(out) :: rand
11836 type(rngf_type) ,
intent(in) :: rng
11841 impure elemental module subroutine setUnifRandRNGFDD_D0_CK2(rng, rand)
11842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11843 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_CK2
11846 complex(CKG) ,
intent(out) :: rand
11847 type(rngf_type) ,
intent(in) :: rng
11852 impure elemental module subroutine setUnifRandRNGFDD_D0_CK1(rng, rand)
11853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11854 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_CK1
11857 complex(CKG) ,
intent(out) :: rand
11858 type(rngf_type) ,
intent(in) :: rng
11865 impure elemental module subroutine setUnifRandRNGFDD_D0_RK5(rng, rand)
11866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11867 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_RK5
11870 real(RKG) ,
intent(out) :: rand
11871 type(rngf_type) ,
intent(in) :: rng
11876 impure elemental module subroutine setUnifRandRNGFDD_D0_RK4(rng, rand)
11877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11878 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_RK4
11881 real(RKG) ,
intent(out) :: rand
11882 type(rngf_type) ,
intent(in) :: rng
11887 impure elemental module subroutine setUnifRandRNGFDD_D0_RK3(rng, rand)
11888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11889 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_RK3
11892 real(RKG) ,
intent(out) :: rand
11893 type(rngf_type) ,
intent(in) :: rng
11898 impure elemental module subroutine setUnifRandRNGFDD_D0_RK2(rng, rand)
11899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11900 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_RK2
11903 real(RKG) ,
intent(out) :: rand
11904 type(rngf_type) ,
intent(in) :: rng
11909 impure elemental module subroutine setUnifRandRNGFDD_D0_RK1(rng, rand)
11910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11911 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFDD_D0_RK1
11914 real(RKG) ,
intent(out) :: rand
11915 type(rngf_type) ,
intent(in) :: rng
11928 impure elemental module subroutine setUnifRandRNGFLU_D0_SK5(rng, rand, lb, ub)
11929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11930 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_SK5
11933 character(
*,SKG) ,
intent(out) :: rand
11934 character(
*,SKG) ,
intent(in) :: lb, ub
11935 type(rngf_type) ,
intent(in) :: rng
11940 impure elemental module subroutine setUnifRandRNGFLU_D0_SK4(rng, rand, lb, ub)
11941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11942 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_SK4
11945 character(
*,SKG) ,
intent(out) :: rand
11946 character(
*,SKG) ,
intent(in) :: lb, ub
11947 type(rngf_type) ,
intent(in) :: rng
11952 impure elemental module subroutine setUnifRandRNGFLU_D0_SK3(rng, rand, lb, ub)
11953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11954 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_SK3
11957 character(
*,SKG) ,
intent(out) :: rand
11958 character(
*,SKG) ,
intent(in) :: lb, ub
11959 type(rngf_type) ,
intent(in) :: rng
11964 impure elemental module subroutine setUnifRandRNGFLU_D0_SK2(rng, rand, lb, ub)
11965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11966 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_SK2
11969 character(
*,SKG) ,
intent(out) :: rand
11970 character(
*,SKG) ,
intent(in) :: lb, ub
11971 type(rngf_type) ,
intent(in) :: rng
11976 impure elemental module subroutine setUnifRandRNGFLU_D0_SK1(rng, rand, lb, ub)
11977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11978 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_SK1
11981 character(
*,SKG) ,
intent(out) :: rand
11982 character(
*,SKG) ,
intent(in) :: lb, ub
11983 type(rngf_type) ,
intent(in) :: rng
11990 impure elemental module subroutine setUnifRandRNGFLU_D0_IK5(rng, rand, lb, ub)
11991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11992 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_IK5
11995 integer(IKG) ,
intent(out) :: rand
11996 integer(IKG) ,
intent(in) :: lb, ub
11997 type(rngf_type) ,
intent(in) :: rng
12002 impure elemental module subroutine setUnifRandRNGFLU_D0_IK4(rng, rand, lb, ub)
12003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12004 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_IK4
12007 integer(IKG) ,
intent(out) :: rand
12008 integer(IKG) ,
intent(in) :: lb, ub
12009 type(rngf_type) ,
intent(in) :: rng
12014 impure elemental module subroutine setUnifRandRNGFLU_D0_IK3(rng, rand, lb, ub)
12015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12016 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_IK3
12019 integer(IKG) ,
intent(out) :: rand
12020 integer(IKG) ,
intent(in) :: lb, ub
12021 type(rngf_type) ,
intent(in) :: rng
12026 impure elemental module subroutine setUnifRandRNGFLU_D0_IK2(rng, rand, lb, ub)
12027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12028 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_IK2
12031 integer(IKG) ,
intent(out) :: rand
12032 integer(IKG) ,
intent(in) :: lb, ub
12033 type(rngf_type) ,
intent(in) :: rng
12038 impure elemental module subroutine setUnifRandRNGFLU_D0_IK1(rng, rand, lb, ub)
12039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12040 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_IK1
12043 integer(IKG) ,
intent(out) :: rand
12044 integer(IKG) ,
intent(in) :: lb, ub
12045 type(rngf_type) ,
intent(in) :: rng
12052 impure elemental module subroutine setUnifRandRNGFLU_D0_LK5(rng, rand, lb, ub)
12053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12054 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_LK5
12057 logical(LKG) ,
intent(out) :: rand
12058 logical(LKG) ,
intent(in) :: lb, ub
12059 type(rngf_type) ,
intent(in) :: rng
12064 impure elemental module subroutine setUnifRandRNGFLU_D0_LK4(rng, rand, lb, ub)
12065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12066 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_LK4
12069 logical(LKG) ,
intent(out) :: rand
12070 logical(LKG) ,
intent(in) :: lb, ub
12071 type(rngf_type) ,
intent(in) :: rng
12076 impure elemental module subroutine setUnifRandRNGFLU_D0_LK3(rng, rand, lb, ub)
12077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12078 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_LK3
12081 logical(LKG) ,
intent(out) :: rand
12082 logical(LKG) ,
intent(in) :: lb, ub
12083 type(rngf_type) ,
intent(in) :: rng
12088 impure elemental module subroutine setUnifRandRNGFLU_D0_LK2(rng, rand, lb, ub)
12089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12090 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_LK2
12093 logical(LKG) ,
intent(out) :: rand
12094 logical(LKG) ,
intent(in) :: lb, ub
12095 type(rngf_type) ,
intent(in) :: rng
12100 impure elemental module subroutine setUnifRandRNGFLU_D0_LK1(rng, rand, lb, ub)
12101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12102 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_LK1
12105 logical(LKG) ,
intent(out) :: rand
12106 logical(LKG) ,
intent(in) :: lb, ub
12107 type(rngf_type) ,
intent(in) :: rng
12114 impure elemental module subroutine setUnifRandRNGFLU_D0_CK5(rng, rand, lb, ub)
12115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12116 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_CK5
12119 complex(CKG) ,
intent(out) :: rand
12120 complex(CKG) ,
intent(in) :: lb, ub
12121 type(rngf_type) ,
intent(in) :: rng
12126 impure elemental module subroutine setUnifRandRNGFLU_D0_CK4(rng, rand, lb, ub)
12127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12128 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_CK4
12131 complex(CKG) ,
intent(out) :: rand
12132 complex(CKG) ,
intent(in) :: lb, ub
12133 type(rngf_type) ,
intent(in) :: rng
12138 impure elemental module subroutine setUnifRandRNGFLU_D0_CK3(rng, rand, lb, ub)
12139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12140 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_CK3
12143 complex(CKG) ,
intent(out) :: rand
12144 complex(CKG) ,
intent(in) :: lb, ub
12145 type(rngf_type) ,
intent(in) :: rng
12150 impure elemental module subroutine setUnifRandRNGFLU_D0_CK2(rng, rand, lb, ub)
12151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12152 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_CK2
12155 complex(CKG) ,
intent(out) :: rand
12156 complex(CKG) ,
intent(in) :: lb, ub
12157 type(rngf_type) ,
intent(in) :: rng
12162 impure elemental module subroutine setUnifRandRNGFLU_D0_CK1(rng, rand, lb, ub)
12163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12164 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_CK1
12167 complex(CKG) ,
intent(out) :: rand
12168 complex(CKG) ,
intent(in) :: lb, ub
12169 type(rngf_type) ,
intent(in) :: rng
12176 impure elemental module subroutine setUnifRandRNGFLU_D0_RK5(rng, rand, lb, ub)
12177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12178 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_RK5
12181 real(RKG) ,
intent(out) :: rand
12182 real(RKG) ,
intent(in) :: lb, ub
12183 type(rngf_type) ,
intent(in) :: rng
12188 impure elemental module subroutine setUnifRandRNGFLU_D0_RK4(rng, rand, lb, ub)
12189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12190 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_RK4
12193 real(RKG) ,
intent(out) :: rand
12194 real(RKG) ,
intent(in) :: lb, ub
12195 type(rngf_type) ,
intent(in) :: rng
12200 impure elemental module subroutine setUnifRandRNGFLU_D0_RK3(rng, rand, lb, ub)
12201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12202 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_RK3
12205 real(RKG) ,
intent(out) :: rand
12206 real(RKG) ,
intent(in) :: lb, ub
12207 type(rngf_type) ,
intent(in) :: rng
12212 impure elemental module subroutine setUnifRandRNGFLU_D0_RK2(rng, rand, lb, ub)
12213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12214 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_RK2
12217 real(RKG) ,
intent(out) :: rand
12218 real(RKG) ,
intent(in) :: lb, ub
12219 type(rngf_type) ,
intent(in) :: rng
12224 impure elemental module subroutine setUnifRandRNGFLU_D0_RK1(rng, rand, lb, ub)
12225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12226 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGFLU_D0_RK1
12229 real(RKG) ,
intent(out) :: rand
12230 real(RKG) ,
intent(in) :: lb, ub
12231 type(rngf_type) ,
intent(in) :: rng
12254 PURE elemental module subroutine setUnifRandRNGSDD_D0_SK5(rng, rand)
12255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12256 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_SK5
12259 character(
*,SKG) ,
intent(out) :: rand
12260 type(splitmix64_type) ,
intent(inout) :: rng
12265 PURE elemental module subroutine setUnifRandRNGSDD_D0_SK4(rng, rand)
12266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12267 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_SK4
12270 character(
*,SKG) ,
intent(out) :: rand
12271 type(splitmix64_type) ,
intent(inout) :: rng
12276 PURE elemental module subroutine setUnifRandRNGSDD_D0_SK3(rng, rand)
12277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12278 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_SK3
12281 character(
*,SKG) ,
intent(out) :: rand
12282 type(splitmix64_type) ,
intent(inout) :: rng
12287 PURE elemental module subroutine setUnifRandRNGSDD_D0_SK2(rng, rand)
12288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12289 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_SK2
12292 character(
*,SKG) ,
intent(out) :: rand
12293 type(splitmix64_type) ,
intent(inout) :: rng
12298 PURE elemental module subroutine setUnifRandRNGSDD_D0_SK1(rng, rand)
12299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12300 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_SK1
12303 character(
*,SKG) ,
intent(out) :: rand
12304 type(splitmix64_type) ,
intent(inout) :: rng
12311 PURE elemental module subroutine setUnifRandRNGSDD_D0_IK5(rng, rand)
12312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12313 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_IK5
12316 integer(IKG) ,
intent(out) :: rand
12317 type(splitmix64_type) ,
intent(inout) :: rng
12322 PURE elemental module subroutine setUnifRandRNGSDD_D0_IK4(rng, rand)
12323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12324 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_IK4
12327 integer(IKG) ,
intent(out) :: rand
12328 type(splitmix64_type) ,
intent(inout) :: rng
12333 PURE elemental module subroutine setUnifRandRNGSDD_D0_IK3(rng, rand)
12334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12335 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_IK3
12338 integer(IKG) ,
intent(out) :: rand
12339 type(splitmix64_type) ,
intent(inout) :: rng
12344 PURE elemental module subroutine setUnifRandRNGSDD_D0_IK2(rng, rand)
12345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12346 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_IK2
12349 integer(IKG) ,
intent(out) :: rand
12350 type(splitmix64_type) ,
intent(inout) :: rng
12355 PURE elemental module subroutine setUnifRandRNGSDD_D0_IK1(rng, rand)
12356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12357 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_IK1
12360 integer(IKG) ,
intent(out) :: rand
12361 type(splitmix64_type) ,
intent(inout) :: rng
12368 PURE elemental module subroutine setUnifRandRNGSDD_D0_LK5(rng, rand)
12369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12370 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_LK5
12373 logical(LKG) ,
intent(out) :: rand
12374 type(splitmix64_type) ,
intent(inout) :: rng
12379 PURE elemental module subroutine setUnifRandRNGSDD_D0_LK4(rng, rand)
12380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12381 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_LK4
12384 logical(LKG) ,
intent(out) :: rand
12385 type(splitmix64_type) ,
intent(inout) :: rng
12390 PURE elemental module subroutine setUnifRandRNGSDD_D0_LK3(rng, rand)
12391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12392 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_LK3
12395 logical(LKG) ,
intent(out) :: rand
12396 type(splitmix64_type) ,
intent(inout) :: rng
12401 PURE elemental module subroutine setUnifRandRNGSDD_D0_LK2(rng, rand)
12402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12403 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_LK2
12406 logical(LKG) ,
intent(out) :: rand
12407 type(splitmix64_type) ,
intent(inout) :: rng
12412 PURE elemental module subroutine setUnifRandRNGSDD_D0_LK1(rng, rand)
12413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12414 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_LK1
12417 logical(LKG) ,
intent(out) :: rand
12418 type(splitmix64_type) ,
intent(inout) :: rng
12425 PURE elemental module subroutine setUnifRandRNGSDD_D0_CK5(rng, rand)
12426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12427 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_CK5
12430 complex(CKG) ,
intent(out) :: rand
12431 type(splitmix64_type) ,
intent(inout) :: rng
12436 PURE elemental module subroutine setUnifRandRNGSDD_D0_CK4(rng, rand)
12437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12438 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_CK4
12441 complex(CKG) ,
intent(out) :: rand
12442 type(splitmix64_type) ,
intent(inout) :: rng
12447 PURE elemental module subroutine setUnifRandRNGSDD_D0_CK3(rng, rand)
12448#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12449 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_CK3
12452 complex(CKG) ,
intent(out) :: rand
12453 type(splitmix64_type) ,
intent(inout) :: rng
12458 PURE elemental module subroutine setUnifRandRNGSDD_D0_CK2(rng, rand)
12459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12460 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_CK2
12463 complex(CKG) ,
intent(out) :: rand
12464 type(splitmix64_type) ,
intent(inout) :: rng
12469 PURE elemental module subroutine setUnifRandRNGSDD_D0_CK1(rng, rand)
12470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12471 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_CK1
12474 complex(CKG) ,
intent(out) :: rand
12475 type(splitmix64_type) ,
intent(inout) :: rng
12482 PURE elemental module subroutine setUnifRandRNGSDD_D0_RK5(rng, rand)
12483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12484 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_RK5
12487 real(RKG) ,
intent(out) :: rand
12488 type(splitmix64_type) ,
intent(inout) :: rng
12493 PURE elemental module subroutine setUnifRandRNGSDD_D0_RK4(rng, rand)
12494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12495 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_RK4
12498 real(RKG) ,
intent(out) :: rand
12499 type(splitmix64_type) ,
intent(inout) :: rng
12504 PURE elemental module subroutine setUnifRandRNGSDD_D0_RK3(rng, rand)
12505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12506 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_RK3
12509 real(RKG) ,
intent(out) :: rand
12510 type(splitmix64_type) ,
intent(inout) :: rng
12515 PURE elemental module subroutine setUnifRandRNGSDD_D0_RK2(rng, rand)
12516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12517 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_RK2
12520 real(RKG) ,
intent(out) :: rand
12521 type(splitmix64_type) ,
intent(inout) :: rng
12526 PURE elemental module subroutine setUnifRandRNGSDD_D0_RK1(rng, rand)
12527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12528 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D0_RK1
12531 real(RKG) ,
intent(out) :: rand
12532 type(splitmix64_type) ,
intent(inout) :: rng
12545 PURE elemental module subroutine setUnifRandRNGSLU_D0_SK5(rng, rand, lb, ub)
12546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12547 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_SK5
12550 character(
*,SKG) ,
intent(out) :: rand
12551 character(
*,SKG) ,
intent(in) :: lb, ub
12552 type(splitmix64_type) ,
intent(inout) :: rng
12557 PURE elemental module subroutine setUnifRandRNGSLU_D0_SK4(rng, rand, lb, ub)
12558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12559 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_SK4
12562 character(
*,SKG) ,
intent(out) :: rand
12563 character(
*,SKG) ,
intent(in) :: lb, ub
12564 type(splitmix64_type) ,
intent(inout) :: rng
12569 PURE elemental module subroutine setUnifRandRNGSLU_D0_SK3(rng, rand, lb, ub)
12570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12571 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_SK3
12574 character(
*,SKG) ,
intent(out) :: rand
12575 character(
*,SKG) ,
intent(in) :: lb, ub
12576 type(splitmix64_type) ,
intent(inout) :: rng
12581 PURE elemental module subroutine setUnifRandRNGSLU_D0_SK2(rng, rand, lb, ub)
12582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12583 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_SK2
12586 character(
*,SKG) ,
intent(out) :: rand
12587 character(
*,SKG) ,
intent(in) :: lb, ub
12588 type(splitmix64_type) ,
intent(inout) :: rng
12593 PURE elemental module subroutine setUnifRandRNGSLU_D0_SK1(rng, rand, lb, ub)
12594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12595 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_SK1
12598 character(
*,SKG) ,
intent(out) :: rand
12599 character(
*,SKG) ,
intent(in) :: lb, ub
12600 type(splitmix64_type) ,
intent(inout) :: rng
12607 PURE elemental module subroutine setUnifRandRNGSLU_D0_IK5(rng, rand, lb, ub)
12608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12609 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_IK5
12612 integer(IKG) ,
intent(out) :: rand
12613 integer(IKG) ,
intent(in) :: lb, ub
12614 type(splitmix64_type) ,
intent(inout) :: rng
12619 PURE elemental module subroutine setUnifRandRNGSLU_D0_IK4(rng, rand, lb, ub)
12620#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12621 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_IK4
12624 integer(IKG) ,
intent(out) :: rand
12625 integer(IKG) ,
intent(in) :: lb, ub
12626 type(splitmix64_type) ,
intent(inout) :: rng
12631 PURE elemental module subroutine setUnifRandRNGSLU_D0_IK3(rng, rand, lb, ub)
12632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12633 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_IK3
12636 integer(IKG) ,
intent(out) :: rand
12637 integer(IKG) ,
intent(in) :: lb, ub
12638 type(splitmix64_type) ,
intent(inout) :: rng
12643 PURE elemental module subroutine setUnifRandRNGSLU_D0_IK2(rng, rand, lb, ub)
12644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12645 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_IK2
12648 integer(IKG) ,
intent(out) :: rand
12649 integer(IKG) ,
intent(in) :: lb, ub
12650 type(splitmix64_type) ,
intent(inout) :: rng
12655 PURE elemental module subroutine setUnifRandRNGSLU_D0_IK1(rng, rand, lb, ub)
12656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12657 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_IK1
12660 integer(IKG) ,
intent(out) :: rand
12661 integer(IKG) ,
intent(in) :: lb, ub
12662 type(splitmix64_type) ,
intent(inout) :: rng
12669 PURE elemental module subroutine setUnifRandRNGSLU_D0_LK5(rng, rand, lb, ub)
12670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12671 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_LK5
12674 logical(LKG) ,
intent(out) :: rand
12675 logical(LKG) ,
intent(in) :: lb, ub
12676 type(splitmix64_type) ,
intent(inout) :: rng
12681 PURE elemental module subroutine setUnifRandRNGSLU_D0_LK4(rng, rand, lb, ub)
12682#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12683 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_LK4
12686 logical(LKG) ,
intent(out) :: rand
12687 logical(LKG) ,
intent(in) :: lb, ub
12688 type(splitmix64_type) ,
intent(inout) :: rng
12693 PURE elemental module subroutine setUnifRandRNGSLU_D0_LK3(rng, rand, lb, ub)
12694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12695 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_LK3
12698 logical(LKG) ,
intent(out) :: rand
12699 logical(LKG) ,
intent(in) :: lb, ub
12700 type(splitmix64_type) ,
intent(inout) :: rng
12705 PURE elemental module subroutine setUnifRandRNGSLU_D0_LK2(rng, rand, lb, ub)
12706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12707 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_LK2
12710 logical(LKG) ,
intent(out) :: rand
12711 logical(LKG) ,
intent(in) :: lb, ub
12712 type(splitmix64_type) ,
intent(inout) :: rng
12717 PURE elemental module subroutine setUnifRandRNGSLU_D0_LK1(rng, rand, lb, ub)
12718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12719 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_LK1
12722 logical(LKG) ,
intent(out) :: rand
12723 logical(LKG) ,
intent(in) :: lb, ub
12724 type(splitmix64_type) ,
intent(inout) :: rng
12731 PURE elemental module subroutine setUnifRandRNGSLU_D0_CK5(rng, rand, lb, ub)
12732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12733 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_CK5
12736 complex(CKG) ,
intent(out) :: rand
12737 complex(CKG) ,
intent(in) :: lb, ub
12738 type(splitmix64_type) ,
intent(inout) :: rng
12743 PURE elemental module subroutine setUnifRandRNGSLU_D0_CK4(rng, rand, lb, ub)
12744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12745 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_CK4
12748 complex(CKG) ,
intent(out) :: rand
12749 complex(CKG) ,
intent(in) :: lb, ub
12750 type(splitmix64_type) ,
intent(inout) :: rng
12755 PURE elemental module subroutine setUnifRandRNGSLU_D0_CK3(rng, rand, lb, ub)
12756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12757 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_CK3
12760 complex(CKG) ,
intent(out) :: rand
12761 complex(CKG) ,
intent(in) :: lb, ub
12762 type(splitmix64_type) ,
intent(inout) :: rng
12767 PURE elemental module subroutine setUnifRandRNGSLU_D0_CK2(rng, rand, lb, ub)
12768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12769 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_CK2
12772 complex(CKG) ,
intent(out) :: rand
12773 complex(CKG) ,
intent(in) :: lb, ub
12774 type(splitmix64_type) ,
intent(inout) :: rng
12779 PURE elemental module subroutine setUnifRandRNGSLU_D0_CK1(rng, rand, lb, ub)
12780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12781 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_CK1
12784 complex(CKG) ,
intent(out) :: rand
12785 complex(CKG) ,
intent(in) :: lb, ub
12786 type(splitmix64_type) ,
intent(inout) :: rng
12793 PURE elemental module subroutine setUnifRandRNGSLU_D0_RK5(rng, rand, lb, ub)
12794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12795 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_RK5
12798 real(RKG) ,
intent(out) :: rand
12799 real(RKG) ,
intent(in) :: lb, ub
12800 type(splitmix64_type) ,
intent(inout) :: rng
12805 PURE elemental module subroutine setUnifRandRNGSLU_D0_RK4(rng, rand, lb, ub)
12806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12807 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_RK4
12810 real(RKG) ,
intent(out) :: rand
12811 real(RKG) ,
intent(in) :: lb, ub
12812 type(splitmix64_type) ,
intent(inout) :: rng
12817 PURE elemental module subroutine setUnifRandRNGSLU_D0_RK3(rng, rand, lb, ub)
12818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12819 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_RK3
12822 real(RKG) ,
intent(out) :: rand
12823 real(RKG) ,
intent(in) :: lb, ub
12824 type(splitmix64_type) ,
intent(inout) :: rng
12829 PURE elemental module subroutine setUnifRandRNGSLU_D0_RK2(rng, rand, lb, ub)
12830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12831 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_RK2
12834 real(RKG) ,
intent(out) :: rand
12835 real(RKG) ,
intent(in) :: lb, ub
12836 type(splitmix64_type) ,
intent(inout) :: rng
12841 PURE elemental module subroutine setUnifRandRNGSLU_D0_RK1(rng, rand, lb, ub)
12842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12843 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D0_RK1
12846 real(RKG) ,
intent(out) :: rand
12847 real(RKG) ,
intent(in) :: lb, ub
12848 type(splitmix64_type) ,
intent(inout) :: rng
12865 PURE module subroutine setUnifRandRNGSDD_D1_SK5(rng, rand)
12866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12867 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_SK5
12870 character(
*,SKG) ,
intent(out) :: rand(:)
12871 type(splitmix64_type) ,
intent(inout) :: rng
12876 PURE module subroutine setUnifRandRNGSDD_D1_SK4(rng, rand)
12877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12878 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_SK4
12881 character(
*,SKG) ,
intent(out) :: rand(:)
12882 type(splitmix64_type) ,
intent(inout) :: rng
12887 PURE module subroutine setUnifRandRNGSDD_D1_SK3(rng, rand)
12888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12889 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_SK3
12892 character(
*,SKG) ,
intent(out) :: rand(:)
12893 type(splitmix64_type) ,
intent(inout) :: rng
12898 PURE module subroutine setUnifRandRNGSDD_D1_SK2(rng, rand)
12899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12900 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_SK2
12903 character(
*,SKG) ,
intent(out) :: rand(:)
12904 type(splitmix64_type) ,
intent(inout) :: rng
12909 PURE module subroutine setUnifRandRNGSDD_D1_SK1(rng, rand)
12910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12911 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_SK1
12914 character(
*,SKG) ,
intent(out) :: rand(:)
12915 type(splitmix64_type) ,
intent(inout) :: rng
12922 PURE module subroutine setUnifRandRNGSDD_D1_IK5(rng, rand)
12923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12924 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_IK5
12927 integer(IKG) ,
intent(out) :: rand(:)
12928 type(splitmix64_type) ,
intent(inout) :: rng
12933 PURE module subroutine setUnifRandRNGSDD_D1_IK4(rng, rand)
12934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12935 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_IK4
12938 integer(IKG) ,
intent(out) :: rand(:)
12939 type(splitmix64_type) ,
intent(inout) :: rng
12944 PURE module subroutine setUnifRandRNGSDD_D1_IK3(rng, rand)
12945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12946 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_IK3
12949 integer(IKG) ,
intent(out) :: rand(:)
12950 type(splitmix64_type) ,
intent(inout) :: rng
12955 PURE module subroutine setUnifRandRNGSDD_D1_IK2(rng, rand)
12956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12957 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_IK2
12960 integer(IKG) ,
intent(out) :: rand(:)
12961 type(splitmix64_type) ,
intent(inout) :: rng
12966 PURE module subroutine setUnifRandRNGSDD_D1_IK1(rng, rand)
12967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12968 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_IK1
12971 integer(IKG) ,
intent(out) :: rand(:)
12972 type(splitmix64_type) ,
intent(inout) :: rng
12979 PURE module subroutine setUnifRandRNGSDD_D1_LK5(rng, rand)
12980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12981 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_LK5
12984 logical(LKG) ,
intent(out) :: rand(:)
12985 type(splitmix64_type) ,
intent(inout) :: rng
12990 PURE module subroutine setUnifRandRNGSDD_D1_LK4(rng, rand)
12991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12992 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_LK4
12995 logical(LKG) ,
intent(out) :: rand(:)
12996 type(splitmix64_type) ,
intent(inout) :: rng
13001 PURE module subroutine setUnifRandRNGSDD_D1_LK3(rng, rand)
13002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13003 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_LK3
13006 logical(LKG) ,
intent(out) :: rand(:)
13007 type(splitmix64_type) ,
intent(inout) :: rng
13012 PURE module subroutine setUnifRandRNGSDD_D1_LK2(rng, rand)
13013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13014 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_LK2
13017 logical(LKG) ,
intent(out) :: rand(:)
13018 type(splitmix64_type) ,
intent(inout) :: rng
13023 PURE module subroutine setUnifRandRNGSDD_D1_LK1(rng, rand)
13024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13025 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_LK1
13028 logical(LKG) ,
intent(out) :: rand(:)
13029 type(splitmix64_type) ,
intent(inout) :: rng
13036 PURE module subroutine setUnifRandRNGSDD_D1_CK5(rng, rand)
13037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13038 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_CK5
13041 complex(CKG) ,
intent(out) :: rand(:)
13042 type(splitmix64_type) ,
intent(inout) :: rng
13047 PURE module subroutine setUnifRandRNGSDD_D1_CK4(rng, rand)
13048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13049 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_CK4
13052 complex(CKG) ,
intent(out) :: rand(:)
13053 type(splitmix64_type) ,
intent(inout) :: rng
13058 PURE module subroutine setUnifRandRNGSDD_D1_CK3(rng, rand)
13059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13060 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_CK3
13063 complex(CKG) ,
intent(out) :: rand(:)
13064 type(splitmix64_type) ,
intent(inout) :: rng
13069 PURE module subroutine setUnifRandRNGSDD_D1_CK2(rng, rand)
13070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13071 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_CK2
13074 complex(CKG) ,
intent(out) :: rand(:)
13075 type(splitmix64_type) ,
intent(inout) :: rng
13080 PURE module subroutine setUnifRandRNGSDD_D1_CK1(rng, rand)
13081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13082 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_CK1
13085 complex(CKG) ,
intent(out) :: rand(:)
13086 type(splitmix64_type) ,
intent(inout) :: rng
13093 PURE module subroutine setUnifRandRNGSDD_D1_RK5(rng, rand)
13094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13095 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_RK5
13098 real(RKG) ,
intent(out) :: rand(:)
13099 type(splitmix64_type) ,
intent(inout) :: rng
13104 PURE module subroutine setUnifRandRNGSDD_D1_RK4(rng, rand)
13105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13106 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_RK4
13109 real(RKG) ,
intent(out) :: rand(:)
13110 type(splitmix64_type) ,
intent(inout) :: rng
13115 PURE module subroutine setUnifRandRNGSDD_D1_RK3(rng, rand)
13116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13117 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_RK3
13120 real(RKG) ,
intent(out) :: rand(:)
13121 type(splitmix64_type) ,
intent(inout) :: rng
13126 PURE module subroutine setUnifRandRNGSDD_D1_RK2(rng, rand)
13127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13128 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_RK2
13131 real(RKG) ,
intent(out) :: rand(:)
13132 type(splitmix64_type) ,
intent(inout) :: rng
13137 PURE module subroutine setUnifRandRNGSDD_D1_RK1(rng, rand)
13138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13139 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D1_RK1
13142 real(RKG) ,
intent(out) :: rand(:)
13143 type(splitmix64_type) ,
intent(inout) :: rng
13156 PURE module subroutine setUnifRandRNGSLU_D1_SK5(rng, rand, lb, ub)
13157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13158 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_SK5
13161 character(
*,SKG) ,
intent(out) :: rand(:)
13162 character(
*,SKG) ,
intent(in) :: lb, ub
13163 type(splitmix64_type) ,
intent(inout) :: rng
13168 PURE module subroutine setUnifRandRNGSLU_D1_SK4(rng, rand, lb, ub)
13169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13170 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_SK4
13173 character(
*,SKG) ,
intent(out) :: rand(:)
13174 character(
*,SKG) ,
intent(in) :: lb, ub
13175 type(splitmix64_type) ,
intent(inout) :: rng
13180 PURE module subroutine setUnifRandRNGSLU_D1_SK3(rng, rand, lb, ub)
13181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13182 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_SK3
13185 character(
*,SKG) ,
intent(out) :: rand(:)
13186 character(
*,SKG) ,
intent(in) :: lb, ub
13187 type(splitmix64_type) ,
intent(inout) :: rng
13192 PURE module subroutine setUnifRandRNGSLU_D1_SK2(rng, rand, lb, ub)
13193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13194 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_SK2
13197 character(
*,SKG) ,
intent(out) :: rand(:)
13198 character(
*,SKG) ,
intent(in) :: lb, ub
13199 type(splitmix64_type) ,
intent(inout) :: rng
13204 PURE module subroutine setUnifRandRNGSLU_D1_SK1(rng, rand, lb, ub)
13205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13206 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_SK1
13209 character(
*,SKG) ,
intent(out) :: rand(:)
13210 character(
*,SKG) ,
intent(in) :: lb, ub
13211 type(splitmix64_type) ,
intent(inout) :: rng
13218 PURE module subroutine setUnifRandRNGSLU_D1_IK5(rng, rand, lb, ub)
13219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13220 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_IK5
13223 integer(IKG) ,
intent(out) :: rand(:)
13224 integer(IKG) ,
intent(in) :: lb, ub
13225 type(splitmix64_type) ,
intent(inout) :: rng
13230 PURE module subroutine setUnifRandRNGSLU_D1_IK4(rng, rand, lb, ub)
13231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13232 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_IK4
13235 integer(IKG) ,
intent(out) :: rand(:)
13236 integer(IKG) ,
intent(in) :: lb, ub
13237 type(splitmix64_type) ,
intent(inout) :: rng
13242 PURE module subroutine setUnifRandRNGSLU_D1_IK3(rng, rand, lb, ub)
13243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13244 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_IK3
13247 integer(IKG) ,
intent(out) :: rand(:)
13248 integer(IKG) ,
intent(in) :: lb, ub
13249 type(splitmix64_type) ,
intent(inout) :: rng
13254 PURE module subroutine setUnifRandRNGSLU_D1_IK2(rng, rand, lb, ub)
13255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13256 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_IK2
13259 integer(IKG) ,
intent(out) :: rand(:)
13260 integer(IKG) ,
intent(in) :: lb, ub
13261 type(splitmix64_type) ,
intent(inout) :: rng
13266 PURE module subroutine setUnifRandRNGSLU_D1_IK1(rng, rand, lb, ub)
13267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13268 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_IK1
13271 integer(IKG) ,
intent(out) :: rand(:)
13272 integer(IKG) ,
intent(in) :: lb, ub
13273 type(splitmix64_type) ,
intent(inout) :: rng
13280 PURE module subroutine setUnifRandRNGSLU_D1_LK5(rng, rand, lb, ub)
13281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13282 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_LK5
13285 logical(LKG) ,
intent(out) :: rand(:)
13286 logical(LKG) ,
intent(in) :: lb, ub
13287 type(splitmix64_type) ,
intent(inout) :: rng
13292 PURE module subroutine setUnifRandRNGSLU_D1_LK4(rng, rand, lb, ub)
13293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13294 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_LK4
13297 logical(LKG) ,
intent(out) :: rand(:)
13298 logical(LKG) ,
intent(in) :: lb, ub
13299 type(splitmix64_type) ,
intent(inout) :: rng
13304 PURE module subroutine setUnifRandRNGSLU_D1_LK3(rng, rand, lb, ub)
13305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13306 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_LK3
13309 logical(LKG) ,
intent(out) :: rand(:)
13310 logical(LKG) ,
intent(in) :: lb, ub
13311 type(splitmix64_type) ,
intent(inout) :: rng
13316 PURE module subroutine setUnifRandRNGSLU_D1_LK2(rng, rand, lb, ub)
13317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13318 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_LK2
13321 logical(LKG) ,
intent(out) :: rand(:)
13322 logical(LKG) ,
intent(in) :: lb, ub
13323 type(splitmix64_type) ,
intent(inout) :: rng
13328 PURE module subroutine setUnifRandRNGSLU_D1_LK1(rng, rand, lb, ub)
13329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13330 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_LK1
13333 logical(LKG) ,
intent(out) :: rand(:)
13334 logical(LKG) ,
intent(in) :: lb, ub
13335 type(splitmix64_type) ,
intent(inout) :: rng
13342 PURE module subroutine setUnifRandRNGSLU_D1_CK5(rng, rand, lb, ub)
13343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13344 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_CK5
13347 complex(CKG) ,
intent(out) :: rand(:)
13348 complex(CKG) ,
intent(in) :: lb, ub
13349 type(splitmix64_type) ,
intent(inout) :: rng
13354 PURE module subroutine setUnifRandRNGSLU_D1_CK4(rng, rand, lb, ub)
13355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13356 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_CK4
13359 complex(CKG) ,
intent(out) :: rand(:)
13360 complex(CKG) ,
intent(in) :: lb, ub
13361 type(splitmix64_type) ,
intent(inout) :: rng
13366 PURE module subroutine setUnifRandRNGSLU_D1_CK3(rng, rand, lb, ub)
13367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13368 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_CK3
13371 complex(CKG) ,
intent(out) :: rand(:)
13372 complex(CKG) ,
intent(in) :: lb, ub
13373 type(splitmix64_type) ,
intent(inout) :: rng
13378 PURE module subroutine setUnifRandRNGSLU_D1_CK2(rng, rand, lb, ub)
13379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13380 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_CK2
13383 complex(CKG) ,
intent(out) :: rand(:)
13384 complex(CKG) ,
intent(in) :: lb, ub
13385 type(splitmix64_type) ,
intent(inout) :: rng
13390 PURE module subroutine setUnifRandRNGSLU_D1_CK1(rng, rand, lb, ub)
13391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13392 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_CK1
13395 complex(CKG) ,
intent(out) :: rand(:)
13396 complex(CKG) ,
intent(in) :: lb, ub
13397 type(splitmix64_type) ,
intent(inout) :: rng
13404 PURE module subroutine setUnifRandRNGSLU_D1_RK5(rng, rand, lb, ub)
13405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13406 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_RK5
13409 real(RKG) ,
intent(out) :: rand(:)
13410 real(RKG) ,
intent(in) :: lb, ub
13411 type(splitmix64_type) ,
intent(inout) :: rng
13416 PURE module subroutine setUnifRandRNGSLU_D1_RK4(rng, rand, lb, ub)
13417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13418 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_RK4
13421 real(RKG) ,
intent(out) :: rand(:)
13422 real(RKG) ,
intent(in) :: lb, ub
13423 type(splitmix64_type) ,
intent(inout) :: rng
13428 PURE module subroutine setUnifRandRNGSLU_D1_RK3(rng, rand, lb, ub)
13429#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13430 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_RK3
13433 real(RKG) ,
intent(out) :: rand(:)
13434 real(RKG) ,
intent(in) :: lb, ub
13435 type(splitmix64_type) ,
intent(inout) :: rng
13440 PURE module subroutine setUnifRandRNGSLU_D1_RK2(rng, rand, lb, ub)
13441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13442 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_RK2
13445 real(RKG) ,
intent(out) :: rand(:)
13446 real(RKG) ,
intent(in) :: lb, ub
13447 type(splitmix64_type) ,
intent(inout) :: rng
13452 PURE module subroutine setUnifRandRNGSLU_D1_RK1(rng, rand, lb, ub)
13453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13454 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D1_RK1
13457 real(RKG) ,
intent(out) :: rand(:)
13458 real(RKG) ,
intent(in) :: lb, ub
13459 type(splitmix64_type) ,
intent(inout) :: rng
13476 PURE module subroutine setUnifRandRNGSDD_D2_SK5(rng, rand)
13477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13478 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_SK5
13481 character(
*,SKG) ,
intent(out) :: rand(:,:)
13482 type(splitmix64_type) ,
intent(inout) :: rng
13487 PURE module subroutine setUnifRandRNGSDD_D2_SK4(rng, rand)
13488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13489 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_SK4
13492 character(
*,SKG) ,
intent(out) :: rand(:,:)
13493 type(splitmix64_type) ,
intent(inout) :: rng
13498 PURE module subroutine setUnifRandRNGSDD_D2_SK3(rng, rand)
13499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13500 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_SK3
13503 character(
*,SKG) ,
intent(out) :: rand(:,:)
13504 type(splitmix64_type) ,
intent(inout) :: rng
13509 PURE module subroutine setUnifRandRNGSDD_D2_SK2(rng, rand)
13510#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13511 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_SK2
13514 character(
*,SKG) ,
intent(out) :: rand(:,:)
13515 type(splitmix64_type) ,
intent(inout) :: rng
13520 PURE module subroutine setUnifRandRNGSDD_D2_SK1(rng, rand)
13521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13522 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_SK1
13525 character(
*,SKG) ,
intent(out) :: rand(:,:)
13526 type(splitmix64_type) ,
intent(inout) :: rng
13533 PURE module subroutine setUnifRandRNGSDD_D2_IK5(rng, rand)
13534#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13535 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_IK5
13538 integer(IKG) ,
intent(out) :: rand(:,:)
13539 type(splitmix64_type) ,
intent(inout) :: rng
13544 PURE module subroutine setUnifRandRNGSDD_D2_IK4(rng, rand)
13545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13546 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_IK4
13549 integer(IKG) ,
intent(out) :: rand(:,:)
13550 type(splitmix64_type) ,
intent(inout) :: rng
13555 PURE module subroutine setUnifRandRNGSDD_D2_IK3(rng, rand)
13556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13557 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_IK3
13560 integer(IKG) ,
intent(out) :: rand(:,:)
13561 type(splitmix64_type) ,
intent(inout) :: rng
13566 PURE module subroutine setUnifRandRNGSDD_D2_IK2(rng, rand)
13567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13568 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_IK2
13571 integer(IKG) ,
intent(out) :: rand(:,:)
13572 type(splitmix64_type) ,
intent(inout) :: rng
13577 PURE module subroutine setUnifRandRNGSDD_D2_IK1(rng, rand)
13578#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13579 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_IK1
13582 integer(IKG) ,
intent(out) :: rand(:,:)
13583 type(splitmix64_type) ,
intent(inout) :: rng
13590 PURE module subroutine setUnifRandRNGSDD_D2_LK5(rng, rand)
13591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13592 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_LK5
13595 logical(LKG) ,
intent(out) :: rand(:,:)
13596 type(splitmix64_type) ,
intent(inout) :: rng
13601 PURE module subroutine setUnifRandRNGSDD_D2_LK4(rng, rand)
13602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13603 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_LK4
13606 logical(LKG) ,
intent(out) :: rand(:,:)
13607 type(splitmix64_type) ,
intent(inout) :: rng
13612 PURE module subroutine setUnifRandRNGSDD_D2_LK3(rng, rand)
13613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13614 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_LK3
13617 logical(LKG) ,
intent(out) :: rand(:,:)
13618 type(splitmix64_type) ,
intent(inout) :: rng
13623 PURE module subroutine setUnifRandRNGSDD_D2_LK2(rng, rand)
13624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13625 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_LK2
13628 logical(LKG) ,
intent(out) :: rand(:,:)
13629 type(splitmix64_type) ,
intent(inout) :: rng
13634 PURE module subroutine setUnifRandRNGSDD_D2_LK1(rng, rand)
13635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13636 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_LK1
13639 logical(LKG) ,
intent(out) :: rand(:,:)
13640 type(splitmix64_type) ,
intent(inout) :: rng
13647 PURE module subroutine setUnifRandRNGSDD_D2_CK5(rng, rand)
13648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13649 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_CK5
13652 complex(CKG) ,
intent(out) :: rand(:,:)
13653 type(splitmix64_type) ,
intent(inout) :: rng
13658 PURE module subroutine setUnifRandRNGSDD_D2_CK4(rng, rand)
13659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13660 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_CK4
13663 complex(CKG) ,
intent(out) :: rand(:,:)
13664 type(splitmix64_type) ,
intent(inout) :: rng
13669 PURE module subroutine setUnifRandRNGSDD_D2_CK3(rng, rand)
13670#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13671 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_CK3
13674 complex(CKG) ,
intent(out) :: rand(:,:)
13675 type(splitmix64_type) ,
intent(inout) :: rng
13680 PURE module subroutine setUnifRandRNGSDD_D2_CK2(rng, rand)
13681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13682 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_CK2
13685 complex(CKG) ,
intent(out) :: rand(:,:)
13686 type(splitmix64_type) ,
intent(inout) :: rng
13691 PURE module subroutine setUnifRandRNGSDD_D2_CK1(rng, rand)
13692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13693 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_CK1
13696 complex(CKG) ,
intent(out) :: rand(:,:)
13697 type(splitmix64_type) ,
intent(inout) :: rng
13704 PURE module subroutine setUnifRandRNGSDD_D2_RK5(rng, rand)
13705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13706 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_RK5
13709 real(RKG) ,
intent(out) :: rand(:,:)
13710 type(splitmix64_type) ,
intent(inout) :: rng
13715 PURE module subroutine setUnifRandRNGSDD_D2_RK4(rng, rand)
13716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13717 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_RK4
13720 real(RKG) ,
intent(out) :: rand(:,:)
13721 type(splitmix64_type) ,
intent(inout) :: rng
13726 PURE module subroutine setUnifRandRNGSDD_D2_RK3(rng, rand)
13727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13728 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_RK3
13731 real(RKG) ,
intent(out) :: rand(:,:)
13732 type(splitmix64_type) ,
intent(inout) :: rng
13737 PURE module subroutine setUnifRandRNGSDD_D2_RK2(rng, rand)
13738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13739 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_RK2
13742 real(RKG) ,
intent(out) :: rand(:,:)
13743 type(splitmix64_type) ,
intent(inout) :: rng
13748 PURE module subroutine setUnifRandRNGSDD_D2_RK1(rng, rand)
13749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13750 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D2_RK1
13753 real(RKG) ,
intent(out) :: rand(:,:)
13754 type(splitmix64_type) ,
intent(inout) :: rng
13767 PURE module subroutine setUnifRandRNGSLU_D2_SK5(rng, rand, lb, ub)
13768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13769 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_SK5
13772 character(
*,SKG) ,
intent(out) :: rand(:,:)
13773 character(
*,SKG) ,
intent(in) :: lb, ub
13774 type(splitmix64_type) ,
intent(inout) :: rng
13779 PURE module subroutine setUnifRandRNGSLU_D2_SK4(rng, rand, lb, ub)
13780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13781 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_SK4
13784 character(
*,SKG) ,
intent(out) :: rand(:,:)
13785 character(
*,SKG) ,
intent(in) :: lb, ub
13786 type(splitmix64_type) ,
intent(inout) :: rng
13791 PURE module subroutine setUnifRandRNGSLU_D2_SK3(rng, rand, lb, ub)
13792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13793 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_SK3
13796 character(
*,SKG) ,
intent(out) :: rand(:,:)
13797 character(
*,SKG) ,
intent(in) :: lb, ub
13798 type(splitmix64_type) ,
intent(inout) :: rng
13803 PURE module subroutine setUnifRandRNGSLU_D2_SK2(rng, rand, lb, ub)
13804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13805 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_SK2
13808 character(
*,SKG) ,
intent(out) :: rand(:,:)
13809 character(
*,SKG) ,
intent(in) :: lb, ub
13810 type(splitmix64_type) ,
intent(inout) :: rng
13815 PURE module subroutine setUnifRandRNGSLU_D2_SK1(rng, rand, lb, ub)
13816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13817 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_SK1
13820 character(
*,SKG) ,
intent(out) :: rand(:,:)
13821 character(
*,SKG) ,
intent(in) :: lb, ub
13822 type(splitmix64_type) ,
intent(inout) :: rng
13829 PURE module subroutine setUnifRandRNGSLU_D2_IK5(rng, rand, lb, ub)
13830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13831 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_IK5
13834 integer(IKG) ,
intent(out) :: rand(:,:)
13835 integer(IKG) ,
intent(in) :: lb, ub
13836 type(splitmix64_type) ,
intent(inout) :: rng
13841 PURE module subroutine setUnifRandRNGSLU_D2_IK4(rng, rand, lb, ub)
13842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13843 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_IK4
13846 integer(IKG) ,
intent(out) :: rand(:,:)
13847 integer(IKG) ,
intent(in) :: lb, ub
13848 type(splitmix64_type) ,
intent(inout) :: rng
13853 PURE module subroutine setUnifRandRNGSLU_D2_IK3(rng, rand, lb, ub)
13854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13855 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_IK3
13858 integer(IKG) ,
intent(out) :: rand(:,:)
13859 integer(IKG) ,
intent(in) :: lb, ub
13860 type(splitmix64_type) ,
intent(inout) :: rng
13865 PURE module subroutine setUnifRandRNGSLU_D2_IK2(rng, rand, lb, ub)
13866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13867 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_IK2
13870 integer(IKG) ,
intent(out) :: rand(:,:)
13871 integer(IKG) ,
intent(in) :: lb, ub
13872 type(splitmix64_type) ,
intent(inout) :: rng
13877 PURE module subroutine setUnifRandRNGSLU_D2_IK1(rng, rand, lb, ub)
13878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13879 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_IK1
13882 integer(IKG) ,
intent(out) :: rand(:,:)
13883 integer(IKG) ,
intent(in) :: lb, ub
13884 type(splitmix64_type) ,
intent(inout) :: rng
13891 PURE module subroutine setUnifRandRNGSLU_D2_LK5(rng, rand, lb, ub)
13892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13893 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_LK5
13896 logical(LKG) ,
intent(out) :: rand(:,:)
13897 logical(LKG) ,
intent(in) :: lb, ub
13898 type(splitmix64_type) ,
intent(inout) :: rng
13903 PURE module subroutine setUnifRandRNGSLU_D2_LK4(rng, rand, lb, ub)
13904#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13905 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_LK4
13908 logical(LKG) ,
intent(out) :: rand(:,:)
13909 logical(LKG) ,
intent(in) :: lb, ub
13910 type(splitmix64_type) ,
intent(inout) :: rng
13915 PURE module subroutine setUnifRandRNGSLU_D2_LK3(rng, rand, lb, ub)
13916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13917 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_LK3
13920 logical(LKG) ,
intent(out) :: rand(:,:)
13921 logical(LKG) ,
intent(in) :: lb, ub
13922 type(splitmix64_type) ,
intent(inout) :: rng
13927 PURE module subroutine setUnifRandRNGSLU_D2_LK2(rng, rand, lb, ub)
13928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13929 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_LK2
13932 logical(LKG) ,
intent(out) :: rand(:,:)
13933 logical(LKG) ,
intent(in) :: lb, ub
13934 type(splitmix64_type) ,
intent(inout) :: rng
13939 PURE module subroutine setUnifRandRNGSLU_D2_LK1(rng, rand, lb, ub)
13940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13941 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_LK1
13944 logical(LKG) ,
intent(out) :: rand(:,:)
13945 logical(LKG) ,
intent(in) :: lb, ub
13946 type(splitmix64_type) ,
intent(inout) :: rng
13953 PURE module subroutine setUnifRandRNGSLU_D2_CK5(rng, rand, lb, ub)
13954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13955 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_CK5
13958 complex(CKG) ,
intent(out) :: rand(:,:)
13959 complex(CKG) ,
intent(in) :: lb, ub
13960 type(splitmix64_type) ,
intent(inout) :: rng
13965 PURE module subroutine setUnifRandRNGSLU_D2_CK4(rng, rand, lb, ub)
13966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13967 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_CK4
13970 complex(CKG) ,
intent(out) :: rand(:,:)
13971 complex(CKG) ,
intent(in) :: lb, ub
13972 type(splitmix64_type) ,
intent(inout) :: rng
13977 PURE module subroutine setUnifRandRNGSLU_D2_CK3(rng, rand, lb, ub)
13978#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13979 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_CK3
13982 complex(CKG) ,
intent(out) :: rand(:,:)
13983 complex(CKG) ,
intent(in) :: lb, ub
13984 type(splitmix64_type) ,
intent(inout) :: rng
13989 PURE module subroutine setUnifRandRNGSLU_D2_CK2(rng, rand, lb, ub)
13990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13991 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_CK2
13994 complex(CKG) ,
intent(out) :: rand(:,:)
13995 complex(CKG) ,
intent(in) :: lb, ub
13996 type(splitmix64_type) ,
intent(inout) :: rng
14001 PURE module subroutine setUnifRandRNGSLU_D2_CK1(rng, rand, lb, ub)
14002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14003 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_CK1
14006 complex(CKG) ,
intent(out) :: rand(:,:)
14007 complex(CKG) ,
intent(in) :: lb, ub
14008 type(splitmix64_type) ,
intent(inout) :: rng
14015 PURE module subroutine setUnifRandRNGSLU_D2_RK5(rng, rand, lb, ub)
14016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14017 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_RK5
14020 real(RKG) ,
intent(out) :: rand(:,:)
14021 real(RKG) ,
intent(in) :: lb, ub
14022 type(splitmix64_type) ,
intent(inout) :: rng
14027 PURE module subroutine setUnifRandRNGSLU_D2_RK4(rng, rand, lb, ub)
14028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14029 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_RK4
14032 real(RKG) ,
intent(out) :: rand(:,:)
14033 real(RKG) ,
intent(in) :: lb, ub
14034 type(splitmix64_type) ,
intent(inout) :: rng
14039 PURE module subroutine setUnifRandRNGSLU_D2_RK3(rng, rand, lb, ub)
14040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14041 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_RK3
14044 real(RKG) ,
intent(out) :: rand(:,:)
14045 real(RKG) ,
intent(in) :: lb, ub
14046 type(splitmix64_type) ,
intent(inout) :: rng
14051 PURE module subroutine setUnifRandRNGSLU_D2_RK2(rng, rand, lb, ub)
14052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14053 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_RK2
14056 real(RKG) ,
intent(out) :: rand(:,:)
14057 real(RKG) ,
intent(in) :: lb, ub
14058 type(splitmix64_type) ,
intent(inout) :: rng
14063 PURE module subroutine setUnifRandRNGSLU_D2_RK1(rng, rand, lb, ub)
14064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14065 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D2_RK1
14068 real(RKG) ,
intent(out) :: rand(:,:)
14069 real(RKG) ,
intent(in) :: lb, ub
14070 type(splitmix64_type) ,
intent(inout) :: rng
14087 PURE module subroutine setUnifRandRNGSDD_D3_SK5(rng, rand)
14088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14089 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_SK5
14092 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14093 type(splitmix64_type) ,
intent(inout) :: rng
14098 PURE module subroutine setUnifRandRNGSDD_D3_SK4(rng, rand)
14099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14100 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_SK4
14103 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14104 type(splitmix64_type) ,
intent(inout) :: rng
14109 PURE module subroutine setUnifRandRNGSDD_D3_SK3(rng, rand)
14110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14111 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_SK3
14114 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14115 type(splitmix64_type) ,
intent(inout) :: rng
14120 PURE module subroutine setUnifRandRNGSDD_D3_SK2(rng, rand)
14121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14122 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_SK2
14125 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14126 type(splitmix64_type) ,
intent(inout) :: rng
14131 PURE module subroutine setUnifRandRNGSDD_D3_SK1(rng, rand)
14132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14133 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_SK1
14136 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14137 type(splitmix64_type) ,
intent(inout) :: rng
14144 PURE module subroutine setUnifRandRNGSDD_D3_IK5(rng, rand)
14145#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14146 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_IK5
14149 integer(IKG) ,
intent(out) :: rand(:,:,:)
14150 type(splitmix64_type) ,
intent(inout) :: rng
14155 PURE module subroutine setUnifRandRNGSDD_D3_IK4(rng, rand)
14156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14157 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_IK4
14160 integer(IKG) ,
intent(out) :: rand(:,:,:)
14161 type(splitmix64_type) ,
intent(inout) :: rng
14166 PURE module subroutine setUnifRandRNGSDD_D3_IK3(rng, rand)
14167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14168 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_IK3
14171 integer(IKG) ,
intent(out) :: rand(:,:,:)
14172 type(splitmix64_type) ,
intent(inout) :: rng
14177 PURE module subroutine setUnifRandRNGSDD_D3_IK2(rng, rand)
14178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14179 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_IK2
14182 integer(IKG) ,
intent(out) :: rand(:,:,:)
14183 type(splitmix64_type) ,
intent(inout) :: rng
14188 PURE module subroutine setUnifRandRNGSDD_D3_IK1(rng, rand)
14189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14190 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_IK1
14193 integer(IKG) ,
intent(out) :: rand(:,:,:)
14194 type(splitmix64_type) ,
intent(inout) :: rng
14201 PURE module subroutine setUnifRandRNGSDD_D3_LK5(rng, rand)
14202#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14203 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_LK5
14206 logical(LKG) ,
intent(out) :: rand(:,:,:)
14207 type(splitmix64_type) ,
intent(inout) :: rng
14212 PURE module subroutine setUnifRandRNGSDD_D3_LK4(rng, rand)
14213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14214 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_LK4
14217 logical(LKG) ,
intent(out) :: rand(:,:,:)
14218 type(splitmix64_type) ,
intent(inout) :: rng
14223 PURE module subroutine setUnifRandRNGSDD_D3_LK3(rng, rand)
14224#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14225 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_LK3
14228 logical(LKG) ,
intent(out) :: rand(:,:,:)
14229 type(splitmix64_type) ,
intent(inout) :: rng
14234 PURE module subroutine setUnifRandRNGSDD_D3_LK2(rng, rand)
14235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14236 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_LK2
14239 logical(LKG) ,
intent(out) :: rand(:,:,:)
14240 type(splitmix64_type) ,
intent(inout) :: rng
14245 PURE module subroutine setUnifRandRNGSDD_D3_LK1(rng, rand)
14246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14247 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_LK1
14250 logical(LKG) ,
intent(out) :: rand(:,:,:)
14251 type(splitmix64_type) ,
intent(inout) :: rng
14258 PURE module subroutine setUnifRandRNGSDD_D3_CK5(rng, rand)
14259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14260 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_CK5
14263 complex(CKG) ,
intent(out) :: rand(:,:,:)
14264 type(splitmix64_type) ,
intent(inout) :: rng
14269 PURE module subroutine setUnifRandRNGSDD_D3_CK4(rng, rand)
14270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14271 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_CK4
14274 complex(CKG) ,
intent(out) :: rand(:,:,:)
14275 type(splitmix64_type) ,
intent(inout) :: rng
14280 PURE module subroutine setUnifRandRNGSDD_D3_CK3(rng, rand)
14281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14282 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_CK3
14285 complex(CKG) ,
intent(out) :: rand(:,:,:)
14286 type(splitmix64_type) ,
intent(inout) :: rng
14291 PURE module subroutine setUnifRandRNGSDD_D3_CK2(rng, rand)
14292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14293 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_CK2
14296 complex(CKG) ,
intent(out) :: rand(:,:,:)
14297 type(splitmix64_type) ,
intent(inout) :: rng
14302 PURE module subroutine setUnifRandRNGSDD_D3_CK1(rng, rand)
14303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14304 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_CK1
14307 complex(CKG) ,
intent(out) :: rand(:,:,:)
14308 type(splitmix64_type) ,
intent(inout) :: rng
14315 PURE module subroutine setUnifRandRNGSDD_D3_RK5(rng, rand)
14316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14317 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_RK5
14320 real(RKG) ,
intent(out) :: rand(:,:,:)
14321 type(splitmix64_type) ,
intent(inout) :: rng
14326 PURE module subroutine setUnifRandRNGSDD_D3_RK4(rng, rand)
14327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14328 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_RK4
14331 real(RKG) ,
intent(out) :: rand(:,:,:)
14332 type(splitmix64_type) ,
intent(inout) :: rng
14337 PURE module subroutine setUnifRandRNGSDD_D3_RK3(rng, rand)
14338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14339 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_RK3
14342 real(RKG) ,
intent(out) :: rand(:,:,:)
14343 type(splitmix64_type) ,
intent(inout) :: rng
14348 PURE module subroutine setUnifRandRNGSDD_D3_RK2(rng, rand)
14349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14350 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_RK2
14353 real(RKG) ,
intent(out) :: rand(:,:,:)
14354 type(splitmix64_type) ,
intent(inout) :: rng
14359 PURE module subroutine setUnifRandRNGSDD_D3_RK1(rng, rand)
14360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14361 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSDD_D3_RK1
14364 real(RKG) ,
intent(out) :: rand(:,:,:)
14365 type(splitmix64_type) ,
intent(inout) :: rng
14378 PURE module subroutine setUnifRandRNGSLU_D3_SK5(rng, rand, lb, ub)
14379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14380 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_SK5
14383 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14384 character(
*,SKG) ,
intent(in) :: lb, ub
14385 type(splitmix64_type) ,
intent(inout) :: rng
14390 PURE module subroutine setUnifRandRNGSLU_D3_SK4(rng, rand, lb, ub)
14391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14392 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_SK4
14395 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14396 character(
*,SKG) ,
intent(in) :: lb, ub
14397 type(splitmix64_type) ,
intent(inout) :: rng
14402 PURE module subroutine setUnifRandRNGSLU_D3_SK3(rng, rand, lb, ub)
14403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14404 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_SK3
14407 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14408 character(
*,SKG) ,
intent(in) :: lb, ub
14409 type(splitmix64_type) ,
intent(inout) :: rng
14414 PURE module subroutine setUnifRandRNGSLU_D3_SK2(rng, rand, lb, ub)
14415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14416 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_SK2
14419 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14420 character(
*,SKG) ,
intent(in) :: lb, ub
14421 type(splitmix64_type) ,
intent(inout) :: rng
14426 PURE module subroutine setUnifRandRNGSLU_D3_SK1(rng, rand, lb, ub)
14427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14428 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_SK1
14431 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
14432 character(
*,SKG) ,
intent(in) :: lb, ub
14433 type(splitmix64_type) ,
intent(inout) :: rng
14440 PURE module subroutine setUnifRandRNGSLU_D3_IK5(rng, rand, lb, ub)
14441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14442 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_IK5
14445 integer(IKG) ,
intent(out) :: rand(:,:,:)
14446 integer(IKG) ,
intent(in) :: lb, ub
14447 type(splitmix64_type) ,
intent(inout) :: rng
14452 PURE module subroutine setUnifRandRNGSLU_D3_IK4(rng, rand, lb, ub)
14453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14454 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_IK4
14457 integer(IKG) ,
intent(out) :: rand(:,:,:)
14458 integer(IKG) ,
intent(in) :: lb, ub
14459 type(splitmix64_type) ,
intent(inout) :: rng
14464 PURE module subroutine setUnifRandRNGSLU_D3_IK3(rng, rand, lb, ub)
14465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14466 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_IK3
14469 integer(IKG) ,
intent(out) :: rand(:,:,:)
14470 integer(IKG) ,
intent(in) :: lb, ub
14471 type(splitmix64_type) ,
intent(inout) :: rng
14476 PURE module subroutine setUnifRandRNGSLU_D3_IK2(rng, rand, lb, ub)
14477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14478 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_IK2
14481 integer(IKG) ,
intent(out) :: rand(:,:,:)
14482 integer(IKG) ,
intent(in) :: lb, ub
14483 type(splitmix64_type) ,
intent(inout) :: rng
14488 PURE module subroutine setUnifRandRNGSLU_D3_IK1(rng, rand, lb, ub)
14489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14490 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_IK1
14493 integer(IKG) ,
intent(out) :: rand(:,:,:)
14494 integer(IKG) ,
intent(in) :: lb, ub
14495 type(splitmix64_type) ,
intent(inout) :: rng
14502 PURE module subroutine setUnifRandRNGSLU_D3_LK5(rng, rand, lb, ub)
14503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14504 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_LK5
14507 logical(LKG) ,
intent(out) :: rand(:,:,:)
14508 logical(LKG) ,
intent(in) :: lb, ub
14509 type(splitmix64_type) ,
intent(inout) :: rng
14514 PURE module subroutine setUnifRandRNGSLU_D3_LK4(rng, rand, lb, ub)
14515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14516 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_LK4
14519 logical(LKG) ,
intent(out) :: rand(:,:,:)
14520 logical(LKG) ,
intent(in) :: lb, ub
14521 type(splitmix64_type) ,
intent(inout) :: rng
14526 PURE module subroutine setUnifRandRNGSLU_D3_LK3(rng, rand, lb, ub)
14527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14528 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_LK3
14531 logical(LKG) ,
intent(out) :: rand(:,:,:)
14532 logical(LKG) ,
intent(in) :: lb, ub
14533 type(splitmix64_type) ,
intent(inout) :: rng
14538 PURE module subroutine setUnifRandRNGSLU_D3_LK2(rng, rand, lb, ub)
14539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14540 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_LK2
14543 logical(LKG) ,
intent(out) :: rand(:,:,:)
14544 logical(LKG) ,
intent(in) :: lb, ub
14545 type(splitmix64_type) ,
intent(inout) :: rng
14550 PURE module subroutine setUnifRandRNGSLU_D3_LK1(rng, rand, lb, ub)
14551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14552 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_LK1
14555 logical(LKG) ,
intent(out) :: rand(:,:,:)
14556 logical(LKG) ,
intent(in) :: lb, ub
14557 type(splitmix64_type) ,
intent(inout) :: rng
14564 PURE module subroutine setUnifRandRNGSLU_D3_CK5(rng, rand, lb, ub)
14565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14566 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_CK5
14569 complex(CKG) ,
intent(out) :: rand(:,:,:)
14570 complex(CKG) ,
intent(in) :: lb, ub
14571 type(splitmix64_type) ,
intent(inout) :: rng
14576 PURE module subroutine setUnifRandRNGSLU_D3_CK4(rng, rand, lb, ub)
14577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14578 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_CK4
14581 complex(CKG) ,
intent(out) :: rand(:,:,:)
14582 complex(CKG) ,
intent(in) :: lb, ub
14583 type(splitmix64_type) ,
intent(inout) :: rng
14588 PURE module subroutine setUnifRandRNGSLU_D3_CK3(rng, rand, lb, ub)
14589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14590 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_CK3
14593 complex(CKG) ,
intent(out) :: rand(:,:,:)
14594 complex(CKG) ,
intent(in) :: lb, ub
14595 type(splitmix64_type) ,
intent(inout) :: rng
14600 PURE module subroutine setUnifRandRNGSLU_D3_CK2(rng, rand, lb, ub)
14601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14602 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_CK2
14605 complex(CKG) ,
intent(out) :: rand(:,:,:)
14606 complex(CKG) ,
intent(in) :: lb, ub
14607 type(splitmix64_type) ,
intent(inout) :: rng
14612 PURE module subroutine setUnifRandRNGSLU_D3_CK1(rng, rand, lb, ub)
14613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14614 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_CK1
14617 complex(CKG) ,
intent(out) :: rand(:,:,:)
14618 complex(CKG) ,
intent(in) :: lb, ub
14619 type(splitmix64_type) ,
intent(inout) :: rng
14626 PURE module subroutine setUnifRandRNGSLU_D3_RK5(rng, rand, lb, ub)
14627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14628 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_RK5
14631 real(RKG) ,
intent(out) :: rand(:,:,:)
14632 real(RKG) ,
intent(in) :: lb, ub
14633 type(splitmix64_type) ,
intent(inout) :: rng
14638 PURE module subroutine setUnifRandRNGSLU_D3_RK4(rng, rand, lb, ub)
14639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14640 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_RK4
14643 real(RKG) ,
intent(out) :: rand(:,:,:)
14644 real(RKG) ,
intent(in) :: lb, ub
14645 type(splitmix64_type) ,
intent(inout) :: rng
14650 PURE module subroutine setUnifRandRNGSLU_D3_RK3(rng, rand, lb, ub)
14651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14652 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_RK3
14655 real(RKG) ,
intent(out) :: rand(:,:,:)
14656 real(RKG) ,
intent(in) :: lb, ub
14657 type(splitmix64_type) ,
intent(inout) :: rng
14662 PURE module subroutine setUnifRandRNGSLU_D3_RK2(rng, rand, lb, ub)
14663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14664 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_RK2
14667 real(RKG) ,
intent(out) :: rand(:,:,:)
14668 real(RKG) ,
intent(in) :: lb, ub
14669 type(splitmix64_type) ,
intent(inout) :: rng
14674 PURE module subroutine setUnifRandRNGSLU_D3_RK1(rng, rand, lb, ub)
14675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14676 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGSLU_D3_RK1
14679 real(RKG) ,
intent(out) :: rand(:,:,:)
14680 real(RKG) ,
intent(in) :: lb, ub
14681 type(splitmix64_type) ,
intent(inout) :: rng
14704 PURE elemental module subroutine setUnifRandRNGGDD_D0_SK5(rng, rand)
14705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14706 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_SK5
14709 character(
*,SKG) ,
intent(out) :: rand
14710 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14715 PURE elemental module subroutine setUnifRandRNGGDD_D0_SK4(rng, rand)
14716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14717 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_SK4
14720 character(
*,SKG) ,
intent(out) :: rand
14721 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14726 PURE elemental module subroutine setUnifRandRNGGDD_D0_SK3(rng, rand)
14727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14728 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_SK3
14731 character(
*,SKG) ,
intent(out) :: rand
14732 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14737 PURE elemental module subroutine setUnifRandRNGGDD_D0_SK2(rng, rand)
14738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14739 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_SK2
14742 character(
*,SKG) ,
intent(out) :: rand
14743 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14748 PURE elemental module subroutine setUnifRandRNGGDD_D0_SK1(rng, rand)
14749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14750 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_SK1
14753 character(
*,SKG) ,
intent(out) :: rand
14754 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14761 PURE elemental module subroutine setUnifRandRNGGDD_D0_IK5(rng, rand)
14762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14763 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_IK5
14766 integer(IKG) ,
intent(out) :: rand
14767 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14772 PURE elemental module subroutine setUnifRandRNGGDD_D0_IK4(rng, rand)
14773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14774 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_IK4
14777 integer(IKG) ,
intent(out) :: rand
14778 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14783 PURE elemental module subroutine setUnifRandRNGGDD_D0_IK3(rng, rand)
14784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14785 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_IK3
14788 integer(IKG) ,
intent(out) :: rand
14789 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14794 PURE elemental module subroutine setUnifRandRNGGDD_D0_IK2(rng, rand)
14795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14796 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_IK2
14799 integer(IKG) ,
intent(out) :: rand
14800 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14805 PURE elemental module subroutine setUnifRandRNGGDD_D0_IK1(rng, rand)
14806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14807 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_IK1
14810 integer(IKG) ,
intent(out) :: rand
14811 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14818 PURE elemental module subroutine setUnifRandRNGGDD_D0_LK5(rng, rand)
14819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14820 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_LK5
14823 logical(LKG) ,
intent(out) :: rand
14824 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14829 PURE elemental module subroutine setUnifRandRNGGDD_D0_LK4(rng, rand)
14830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14831 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_LK4
14834 logical(LKG) ,
intent(out) :: rand
14835 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14840 PURE elemental module subroutine setUnifRandRNGGDD_D0_LK3(rng, rand)
14841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14842 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_LK3
14845 logical(LKG) ,
intent(out) :: rand
14846 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14851 PURE elemental module subroutine setUnifRandRNGGDD_D0_LK2(rng, rand)
14852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14853 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_LK2
14856 logical(LKG) ,
intent(out) :: rand
14857 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14862 PURE elemental module subroutine setUnifRandRNGGDD_D0_LK1(rng, rand)
14863#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14864 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_LK1
14867 logical(LKG) ,
intent(out) :: rand
14868 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14875 PURE elemental module subroutine setUnifRandRNGGDD_D0_CK5(rng, rand)
14876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14877 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_CK5
14880 complex(CKG) ,
intent(out) :: rand
14881 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14886 PURE elemental module subroutine setUnifRandRNGGDD_D0_CK4(rng, rand)
14887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14888 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_CK4
14891 complex(CKG) ,
intent(out) :: rand
14892 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14897 PURE elemental module subroutine setUnifRandRNGGDD_D0_CK3(rng, rand)
14898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14899 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_CK3
14902 complex(CKG) ,
intent(out) :: rand
14903 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14908 PURE elemental module subroutine setUnifRandRNGGDD_D0_CK2(rng, rand)
14909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14910 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_CK2
14913 complex(CKG) ,
intent(out) :: rand
14914 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14919 PURE elemental module subroutine setUnifRandRNGGDD_D0_CK1(rng, rand)
14920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14921 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_CK1
14924 complex(CKG) ,
intent(out) :: rand
14925 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14932 PURE elemental module subroutine setUnifRandRNGGDD_D0_RK5(rng, rand)
14933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14934 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_RK5
14937 real(RKG) ,
intent(out) :: rand
14938 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14943 PURE elemental module subroutine setUnifRandRNGGDD_D0_RK4(rng, rand)
14944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14945 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_RK4
14948 real(RKG) ,
intent(out) :: rand
14949 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14954 PURE elemental module subroutine setUnifRandRNGGDD_D0_RK3(rng, rand)
14955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14956 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_RK3
14959 real(RKG) ,
intent(out) :: rand
14960 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14965 PURE elemental module subroutine setUnifRandRNGGDD_D0_RK2(rng, rand)
14966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14967 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_RK2
14970 real(RKG) ,
intent(out) :: rand
14971 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14976 PURE elemental module subroutine setUnifRandRNGGDD_D0_RK1(rng, rand)
14977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14978 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D0_RK1
14981 real(RKG) ,
intent(out) :: rand
14982 type(xoshiro256ssg_type) ,
intent(inout) :: rng
14995 PURE elemental module subroutine setUnifRandRNGGLU_D0_SK5(rng, rand, lb, ub)
14996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14997 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_SK5
15000 character(
*,SKG) ,
intent(out) :: rand
15001 character(
*,SKG) ,
intent(in) :: lb, ub
15002 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15007 PURE elemental module subroutine setUnifRandRNGGLU_D0_SK4(rng, rand, lb, ub)
15008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15009 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_SK4
15012 character(
*,SKG) ,
intent(out) :: rand
15013 character(
*,SKG) ,
intent(in) :: lb, ub
15014 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15019 PURE elemental module subroutine setUnifRandRNGGLU_D0_SK3(rng, rand, lb, ub)
15020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15021 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_SK3
15024 character(
*,SKG) ,
intent(out) :: rand
15025 character(
*,SKG) ,
intent(in) :: lb, ub
15026 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15031 PURE elemental module subroutine setUnifRandRNGGLU_D0_SK2(rng, rand, lb, ub)
15032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15033 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_SK2
15036 character(
*,SKG) ,
intent(out) :: rand
15037 character(
*,SKG) ,
intent(in) :: lb, ub
15038 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15043 PURE elemental module subroutine setUnifRandRNGGLU_D0_SK1(rng, rand, lb, ub)
15044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15045 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_SK1
15048 character(
*,SKG) ,
intent(out) :: rand
15049 character(
*,SKG) ,
intent(in) :: lb, ub
15050 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15057 PURE elemental module subroutine setUnifRandRNGGLU_D0_IK5(rng, rand, lb, ub)
15058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15059 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_IK5
15062 integer(IKG) ,
intent(out) :: rand
15063 integer(IKG) ,
intent(in) :: lb, ub
15064 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15069 PURE elemental module subroutine setUnifRandRNGGLU_D0_IK4(rng, rand, lb, ub)
15070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15071 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_IK4
15074 integer(IKG) ,
intent(out) :: rand
15075 integer(IKG) ,
intent(in) :: lb, ub
15076 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15081 PURE elemental module subroutine setUnifRandRNGGLU_D0_IK3(rng, rand, lb, ub)
15082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15083 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_IK3
15086 integer(IKG) ,
intent(out) :: rand
15087 integer(IKG) ,
intent(in) :: lb, ub
15088 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15093 PURE elemental module subroutine setUnifRandRNGGLU_D0_IK2(rng, rand, lb, ub)
15094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15095 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_IK2
15098 integer(IKG) ,
intent(out) :: rand
15099 integer(IKG) ,
intent(in) :: lb, ub
15100 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15105 PURE elemental module subroutine setUnifRandRNGGLU_D0_IK1(rng, rand, lb, ub)
15106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15107 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_IK1
15110 integer(IKG) ,
intent(out) :: rand
15111 integer(IKG) ,
intent(in) :: lb, ub
15112 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15119 PURE elemental module subroutine setUnifRandRNGGLU_D0_LK5(rng, rand, lb, ub)
15120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15121 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_LK5
15124 logical(LKG) ,
intent(out) :: rand
15125 logical(LKG) ,
intent(in) :: lb, ub
15126 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15131 PURE elemental module subroutine setUnifRandRNGGLU_D0_LK4(rng, rand, lb, ub)
15132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15133 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_LK4
15136 logical(LKG) ,
intent(out) :: rand
15137 logical(LKG) ,
intent(in) :: lb, ub
15138 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15143 PURE elemental module subroutine setUnifRandRNGGLU_D0_LK3(rng, rand, lb, ub)
15144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15145 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_LK3
15148 logical(LKG) ,
intent(out) :: rand
15149 logical(LKG) ,
intent(in) :: lb, ub
15150 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15155 PURE elemental module subroutine setUnifRandRNGGLU_D0_LK2(rng, rand, lb, ub)
15156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15157 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_LK2
15160 logical(LKG) ,
intent(out) :: rand
15161 logical(LKG) ,
intent(in) :: lb, ub
15162 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15167 PURE elemental module subroutine setUnifRandRNGGLU_D0_LK1(rng, rand, lb, ub)
15168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15169 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_LK1
15172 logical(LKG) ,
intent(out) :: rand
15173 logical(LKG) ,
intent(in) :: lb, ub
15174 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15181 PURE elemental module subroutine setUnifRandRNGGLU_D0_CK5(rng, rand, lb, ub)
15182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15183 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_CK5
15186 complex(CKG) ,
intent(out) :: rand
15187 complex(CKG) ,
intent(in) :: lb, ub
15188 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15193 PURE elemental module subroutine setUnifRandRNGGLU_D0_CK4(rng, rand, lb, ub)
15194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15195 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_CK4
15198 complex(CKG) ,
intent(out) :: rand
15199 complex(CKG) ,
intent(in) :: lb, ub
15200 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15205 PURE elemental module subroutine setUnifRandRNGGLU_D0_CK3(rng, rand, lb, ub)
15206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15207 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_CK3
15210 complex(CKG) ,
intent(out) :: rand
15211 complex(CKG) ,
intent(in) :: lb, ub
15212 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15217 PURE elemental module subroutine setUnifRandRNGGLU_D0_CK2(rng, rand, lb, ub)
15218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15219 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_CK2
15222 complex(CKG) ,
intent(out) :: rand
15223 complex(CKG) ,
intent(in) :: lb, ub
15224 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15229 PURE elemental module subroutine setUnifRandRNGGLU_D0_CK1(rng, rand, lb, ub)
15230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15231 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_CK1
15234 complex(CKG) ,
intent(out) :: rand
15235 complex(CKG) ,
intent(in) :: lb, ub
15236 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15243 PURE elemental module subroutine setUnifRandRNGGLU_D0_RK5(rng, rand, lb, ub)
15244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15245 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_RK5
15248 real(RKG) ,
intent(out) :: rand
15249 real(RKG) ,
intent(in) :: lb, ub
15250 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15255 PURE elemental module subroutine setUnifRandRNGGLU_D0_RK4(rng, rand, lb, ub)
15256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15257 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_RK4
15260 real(RKG) ,
intent(out) :: rand
15261 real(RKG) ,
intent(in) :: lb, ub
15262 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15267 PURE elemental module subroutine setUnifRandRNGGLU_D0_RK3(rng, rand, lb, ub)
15268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15269 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_RK3
15272 real(RKG) ,
intent(out) :: rand
15273 real(RKG) ,
intent(in) :: lb, ub
15274 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15279 PURE elemental module subroutine setUnifRandRNGGLU_D0_RK2(rng, rand, lb, ub)
15280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15281 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_RK2
15284 real(RKG) ,
intent(out) :: rand
15285 real(RKG) ,
intent(in) :: lb, ub
15286 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15291 PURE elemental module subroutine setUnifRandRNGGLU_D0_RK1(rng, rand, lb, ub)
15292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15293 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D0_RK1
15296 real(RKG) ,
intent(out) :: rand
15297 real(RKG) ,
intent(in) :: lb, ub
15298 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15315 PURE module subroutine setUnifRandRNGGDD_D1_SK5(rng, rand)
15316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15317 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_SK5
15320 character(
*,SKG) ,
intent(out) :: rand(:)
15321 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15326 PURE module subroutine setUnifRandRNGGDD_D1_SK4(rng, rand)
15327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15328 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_SK4
15331 character(
*,SKG) ,
intent(out) :: rand(:)
15332 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15337 PURE module subroutine setUnifRandRNGGDD_D1_SK3(rng, rand)
15338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15339 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_SK3
15342 character(
*,SKG) ,
intent(out) :: rand(:)
15343 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15348 PURE module subroutine setUnifRandRNGGDD_D1_SK2(rng, rand)
15349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15350 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_SK2
15353 character(
*,SKG) ,
intent(out) :: rand(:)
15354 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15359 PURE module subroutine setUnifRandRNGGDD_D1_SK1(rng, rand)
15360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15361 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_SK1
15364 character(
*,SKG) ,
intent(out) :: rand(:)
15365 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15372 PURE module subroutine setUnifRandRNGGDD_D1_IK5(rng, rand)
15373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15374 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_IK5
15377 integer(IKG) ,
intent(out) :: rand(:)
15378 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15383 PURE module subroutine setUnifRandRNGGDD_D1_IK4(rng, rand)
15384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15385 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_IK4
15388 integer(IKG) ,
intent(out) :: rand(:)
15389 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15394 PURE module subroutine setUnifRandRNGGDD_D1_IK3(rng, rand)
15395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15396 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_IK3
15399 integer(IKG) ,
intent(out) :: rand(:)
15400 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15405 PURE module subroutine setUnifRandRNGGDD_D1_IK2(rng, rand)
15406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15407 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_IK2
15410 integer(IKG) ,
intent(out) :: rand(:)
15411 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15416 PURE module subroutine setUnifRandRNGGDD_D1_IK1(rng, rand)
15417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15418 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_IK1
15421 integer(IKG) ,
intent(out) :: rand(:)
15422 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15429 PURE module subroutine setUnifRandRNGGDD_D1_LK5(rng, rand)
15430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15431 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_LK5
15434 logical(LKG) ,
intent(out) :: rand(:)
15435 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15440 PURE module subroutine setUnifRandRNGGDD_D1_LK4(rng, rand)
15441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15442 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_LK4
15445 logical(LKG) ,
intent(out) :: rand(:)
15446 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15451 PURE module subroutine setUnifRandRNGGDD_D1_LK3(rng, rand)
15452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15453 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_LK3
15456 logical(LKG) ,
intent(out) :: rand(:)
15457 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15462 PURE module subroutine setUnifRandRNGGDD_D1_LK2(rng, rand)
15463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15464 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_LK2
15467 logical(LKG) ,
intent(out) :: rand(:)
15468 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15473 PURE module subroutine setUnifRandRNGGDD_D1_LK1(rng, rand)
15474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15475 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_LK1
15478 logical(LKG) ,
intent(out) :: rand(:)
15479 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15486 PURE module subroutine setUnifRandRNGGDD_D1_CK5(rng, rand)
15487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15488 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_CK5
15491 complex(CKG) ,
intent(out) :: rand(:)
15492 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15497 PURE module subroutine setUnifRandRNGGDD_D1_CK4(rng, rand)
15498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15499 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_CK4
15502 complex(CKG) ,
intent(out) :: rand(:)
15503 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15508 PURE module subroutine setUnifRandRNGGDD_D1_CK3(rng, rand)
15509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15510 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_CK3
15513 complex(CKG) ,
intent(out) :: rand(:)
15514 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15519 PURE module subroutine setUnifRandRNGGDD_D1_CK2(rng, rand)
15520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15521 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_CK2
15524 complex(CKG) ,
intent(out) :: rand(:)
15525 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15530 PURE module subroutine setUnifRandRNGGDD_D1_CK1(rng, rand)
15531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15532 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_CK1
15535 complex(CKG) ,
intent(out) :: rand(:)
15536 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15543 PURE module subroutine setUnifRandRNGGDD_D1_RK5(rng, rand)
15544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15545 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_RK5
15548 real(RKG) ,
intent(out) :: rand(:)
15549 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15554 PURE module subroutine setUnifRandRNGGDD_D1_RK4(rng, rand)
15555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15556 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_RK4
15559 real(RKG) ,
intent(out) :: rand(:)
15560 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15565 PURE module subroutine setUnifRandRNGGDD_D1_RK3(rng, rand)
15566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15567 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_RK3
15570 real(RKG) ,
intent(out) :: rand(:)
15571 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15576 PURE module subroutine setUnifRandRNGGDD_D1_RK2(rng, rand)
15577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15578 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_RK2
15581 real(RKG) ,
intent(out) :: rand(:)
15582 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15587 PURE module subroutine setUnifRandRNGGDD_D1_RK1(rng, rand)
15588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15589 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D1_RK1
15592 real(RKG) ,
intent(out) :: rand(:)
15593 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15606 PURE module subroutine setUnifRandRNGGLU_D1_SK5(rng, rand, lb, ub)
15607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15608 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_SK5
15611 character(
*,SKG) ,
intent(out) :: rand(:)
15612 character(
*,SKG) ,
intent(in) :: lb, ub
15613 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15618 PURE module subroutine setUnifRandRNGGLU_D1_SK4(rng, rand, lb, ub)
15619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15620 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_SK4
15623 character(
*,SKG) ,
intent(out) :: rand(:)
15624 character(
*,SKG) ,
intent(in) :: lb, ub
15625 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15630 PURE module subroutine setUnifRandRNGGLU_D1_SK3(rng, rand, lb, ub)
15631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15632 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_SK3
15635 character(
*,SKG) ,
intent(out) :: rand(:)
15636 character(
*,SKG) ,
intent(in) :: lb, ub
15637 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15642 PURE module subroutine setUnifRandRNGGLU_D1_SK2(rng, rand, lb, ub)
15643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15644 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_SK2
15647 character(
*,SKG) ,
intent(out) :: rand(:)
15648 character(
*,SKG) ,
intent(in) :: lb, ub
15649 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15654 PURE module subroutine setUnifRandRNGGLU_D1_SK1(rng, rand, lb, ub)
15655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15656 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_SK1
15659 character(
*,SKG) ,
intent(out) :: rand(:)
15660 character(
*,SKG) ,
intent(in) :: lb, ub
15661 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15668 PURE module subroutine setUnifRandRNGGLU_D1_IK5(rng, rand, lb, ub)
15669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15670 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_IK5
15673 integer(IKG) ,
intent(out) :: rand(:)
15674 integer(IKG) ,
intent(in) :: lb, ub
15675 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15680 PURE module subroutine setUnifRandRNGGLU_D1_IK4(rng, rand, lb, ub)
15681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15682 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_IK4
15685 integer(IKG) ,
intent(out) :: rand(:)
15686 integer(IKG) ,
intent(in) :: lb, ub
15687 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15692 PURE module subroutine setUnifRandRNGGLU_D1_IK3(rng, rand, lb, ub)
15693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15694 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_IK3
15697 integer(IKG) ,
intent(out) :: rand(:)
15698 integer(IKG) ,
intent(in) :: lb, ub
15699 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15704 PURE module subroutine setUnifRandRNGGLU_D1_IK2(rng, rand, lb, ub)
15705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15706 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_IK2
15709 integer(IKG) ,
intent(out) :: rand(:)
15710 integer(IKG) ,
intent(in) :: lb, ub
15711 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15716 PURE module subroutine setUnifRandRNGGLU_D1_IK1(rng, rand, lb, ub)
15717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15718 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_IK1
15721 integer(IKG) ,
intent(out) :: rand(:)
15722 integer(IKG) ,
intent(in) :: lb, ub
15723 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15730 PURE module subroutine setUnifRandRNGGLU_D1_LK5(rng, rand, lb, ub)
15731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15732 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_LK5
15735 logical(LKG) ,
intent(out) :: rand(:)
15736 logical(LKG) ,
intent(in) :: lb, ub
15737 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15742 PURE module subroutine setUnifRandRNGGLU_D1_LK4(rng, rand, lb, ub)
15743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15744 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_LK4
15747 logical(LKG) ,
intent(out) :: rand(:)
15748 logical(LKG) ,
intent(in) :: lb, ub
15749 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15754 PURE module subroutine setUnifRandRNGGLU_D1_LK3(rng, rand, lb, ub)
15755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15756 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_LK3
15759 logical(LKG) ,
intent(out) :: rand(:)
15760 logical(LKG) ,
intent(in) :: lb, ub
15761 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15766 PURE module subroutine setUnifRandRNGGLU_D1_LK2(rng, rand, lb, ub)
15767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15768 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_LK2
15771 logical(LKG) ,
intent(out) :: rand(:)
15772 logical(LKG) ,
intent(in) :: lb, ub
15773 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15778 PURE module subroutine setUnifRandRNGGLU_D1_LK1(rng, rand, lb, ub)
15779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15780 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_LK1
15783 logical(LKG) ,
intent(out) :: rand(:)
15784 logical(LKG) ,
intent(in) :: lb, ub
15785 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15792 PURE module subroutine setUnifRandRNGGLU_D1_CK5(rng, rand, lb, ub)
15793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15794 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_CK5
15797 complex(CKG) ,
intent(out) :: rand(:)
15798 complex(CKG) ,
intent(in) :: lb, ub
15799 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15804 PURE module subroutine setUnifRandRNGGLU_D1_CK4(rng, rand, lb, ub)
15805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15806 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_CK4
15809 complex(CKG) ,
intent(out) :: rand(:)
15810 complex(CKG) ,
intent(in) :: lb, ub
15811 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15816 PURE module subroutine setUnifRandRNGGLU_D1_CK3(rng, rand, lb, ub)
15817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15818 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_CK3
15821 complex(CKG) ,
intent(out) :: rand(:)
15822 complex(CKG) ,
intent(in) :: lb, ub
15823 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15828 PURE module subroutine setUnifRandRNGGLU_D1_CK2(rng, rand, lb, ub)
15829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15830 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_CK2
15833 complex(CKG) ,
intent(out) :: rand(:)
15834 complex(CKG) ,
intent(in) :: lb, ub
15835 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15840 PURE module subroutine setUnifRandRNGGLU_D1_CK1(rng, rand, lb, ub)
15841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15842 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_CK1
15845 complex(CKG) ,
intent(out) :: rand(:)
15846 complex(CKG) ,
intent(in) :: lb, ub
15847 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15854 PURE module subroutine setUnifRandRNGGLU_D1_RK5(rng, rand, lb, ub)
15855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15856 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_RK5
15859 real(RKG) ,
intent(out) :: rand(:)
15860 real(RKG) ,
intent(in) :: lb, ub
15861 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15866 PURE module subroutine setUnifRandRNGGLU_D1_RK4(rng, rand, lb, ub)
15867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15868 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_RK4
15871 real(RKG) ,
intent(out) :: rand(:)
15872 real(RKG) ,
intent(in) :: lb, ub
15873 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15878 PURE module subroutine setUnifRandRNGGLU_D1_RK3(rng, rand, lb, ub)
15879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15880 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_RK3
15883 real(RKG) ,
intent(out) :: rand(:)
15884 real(RKG) ,
intent(in) :: lb, ub
15885 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15890 PURE module subroutine setUnifRandRNGGLU_D1_RK2(rng, rand, lb, ub)
15891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15892 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_RK2
15895 real(RKG) ,
intent(out) :: rand(:)
15896 real(RKG) ,
intent(in) :: lb, ub
15897 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15902 PURE module subroutine setUnifRandRNGGLU_D1_RK1(rng, rand, lb, ub)
15903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15904 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D1_RK1
15907 real(RKG) ,
intent(out) :: rand(:)
15908 real(RKG) ,
intent(in) :: lb, ub
15909 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15926 PURE module subroutine setUnifRandRNGGDD_D2_SK5(rng, rand)
15927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15928 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_SK5
15931 character(
*,SKG) ,
intent(out) :: rand(:,:)
15932 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15937 PURE module subroutine setUnifRandRNGGDD_D2_SK4(rng, rand)
15938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15939 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_SK4
15942 character(
*,SKG) ,
intent(out) :: rand(:,:)
15943 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15948 PURE module subroutine setUnifRandRNGGDD_D2_SK3(rng, rand)
15949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15950 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_SK3
15953 character(
*,SKG) ,
intent(out) :: rand(:,:)
15954 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15959 PURE module subroutine setUnifRandRNGGDD_D2_SK2(rng, rand)
15960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15961 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_SK2
15964 character(
*,SKG) ,
intent(out) :: rand(:,:)
15965 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15970 PURE module subroutine setUnifRandRNGGDD_D2_SK1(rng, rand)
15971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15972 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_SK1
15975 character(
*,SKG) ,
intent(out) :: rand(:,:)
15976 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15983 PURE module subroutine setUnifRandRNGGDD_D2_IK5(rng, rand)
15984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15985 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_IK5
15988 integer(IKG) ,
intent(out) :: rand(:,:)
15989 type(xoshiro256ssg_type) ,
intent(inout) :: rng
15994 PURE module subroutine setUnifRandRNGGDD_D2_IK4(rng, rand)
15995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15996 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_IK4
15999 integer(IKG) ,
intent(out) :: rand(:,:)
16000 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16005 PURE module subroutine setUnifRandRNGGDD_D2_IK3(rng, rand)
16006#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16007 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_IK3
16010 integer(IKG) ,
intent(out) :: rand(:,:)
16011 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16016 PURE module subroutine setUnifRandRNGGDD_D2_IK2(rng, rand)
16017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16018 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_IK2
16021 integer(IKG) ,
intent(out) :: rand(:,:)
16022 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16027 PURE module subroutine setUnifRandRNGGDD_D2_IK1(rng, rand)
16028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16029 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_IK1
16032 integer(IKG) ,
intent(out) :: rand(:,:)
16033 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16040 PURE module subroutine setUnifRandRNGGDD_D2_LK5(rng, rand)
16041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16042 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_LK5
16045 logical(LKG) ,
intent(out) :: rand(:,:)
16046 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16051 PURE module subroutine setUnifRandRNGGDD_D2_LK4(rng, rand)
16052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16053 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_LK4
16056 logical(LKG) ,
intent(out) :: rand(:,:)
16057 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16062 PURE module subroutine setUnifRandRNGGDD_D2_LK3(rng, rand)
16063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16064 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_LK3
16067 logical(LKG) ,
intent(out) :: rand(:,:)
16068 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16073 PURE module subroutine setUnifRandRNGGDD_D2_LK2(rng, rand)
16074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16075 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_LK2
16078 logical(LKG) ,
intent(out) :: rand(:,:)
16079 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16084 PURE module subroutine setUnifRandRNGGDD_D2_LK1(rng, rand)
16085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16086 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_LK1
16089 logical(LKG) ,
intent(out) :: rand(:,:)
16090 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16097 PURE module subroutine setUnifRandRNGGDD_D2_CK5(rng, rand)
16098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16099 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_CK5
16102 complex(CKG) ,
intent(out) :: rand(:,:)
16103 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16108 PURE module subroutine setUnifRandRNGGDD_D2_CK4(rng, rand)
16109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16110 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_CK4
16113 complex(CKG) ,
intent(out) :: rand(:,:)
16114 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16119 PURE module subroutine setUnifRandRNGGDD_D2_CK3(rng, rand)
16120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16121 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_CK3
16124 complex(CKG) ,
intent(out) :: rand(:,:)
16125 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16130 PURE module subroutine setUnifRandRNGGDD_D2_CK2(rng, rand)
16131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16132 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_CK2
16135 complex(CKG) ,
intent(out) :: rand(:,:)
16136 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16141 PURE module subroutine setUnifRandRNGGDD_D2_CK1(rng, rand)
16142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16143 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_CK1
16146 complex(CKG) ,
intent(out) :: rand(:,:)
16147 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16154 PURE module subroutine setUnifRandRNGGDD_D2_RK5(rng, rand)
16155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16156 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_RK5
16159 real(RKG) ,
intent(out) :: rand(:,:)
16160 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16165 PURE module subroutine setUnifRandRNGGDD_D2_RK4(rng, rand)
16166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16167 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_RK4
16170 real(RKG) ,
intent(out) :: rand(:,:)
16171 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16176 PURE module subroutine setUnifRandRNGGDD_D2_RK3(rng, rand)
16177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16178 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_RK3
16181 real(RKG) ,
intent(out) :: rand(:,:)
16182 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16187 PURE module subroutine setUnifRandRNGGDD_D2_RK2(rng, rand)
16188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16189 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_RK2
16192 real(RKG) ,
intent(out) :: rand(:,:)
16193 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16198 PURE module subroutine setUnifRandRNGGDD_D2_RK1(rng, rand)
16199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16200 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D2_RK1
16203 real(RKG) ,
intent(out) :: rand(:,:)
16204 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16217 PURE module subroutine setUnifRandRNGGLU_D2_SK5(rng, rand, lb, ub)
16218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16219 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_SK5
16222 character(
*,SKG) ,
intent(out) :: rand(:,:)
16223 character(
*,SKG) ,
intent(in) :: lb, ub
16224 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16229 PURE module subroutine setUnifRandRNGGLU_D2_SK4(rng, rand, lb, ub)
16230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16231 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_SK4
16234 character(
*,SKG) ,
intent(out) :: rand(:,:)
16235 character(
*,SKG) ,
intent(in) :: lb, ub
16236 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16241 PURE module subroutine setUnifRandRNGGLU_D2_SK3(rng, rand, lb, ub)
16242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16243 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_SK3
16246 character(
*,SKG) ,
intent(out) :: rand(:,:)
16247 character(
*,SKG) ,
intent(in) :: lb, ub
16248 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16253 PURE module subroutine setUnifRandRNGGLU_D2_SK2(rng, rand, lb, ub)
16254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16255 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_SK2
16258 character(
*,SKG) ,
intent(out) :: rand(:,:)
16259 character(
*,SKG) ,
intent(in) :: lb, ub
16260 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16265 PURE module subroutine setUnifRandRNGGLU_D2_SK1(rng, rand, lb, ub)
16266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16267 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_SK1
16270 character(
*,SKG) ,
intent(out) :: rand(:,:)
16271 character(
*,SKG) ,
intent(in) :: lb, ub
16272 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16279 PURE module subroutine setUnifRandRNGGLU_D2_IK5(rng, rand, lb, ub)
16280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16281 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_IK5
16284 integer(IKG) ,
intent(out) :: rand(:,:)
16285 integer(IKG) ,
intent(in) :: lb, ub
16286 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16291 PURE module subroutine setUnifRandRNGGLU_D2_IK4(rng, rand, lb, ub)
16292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16293 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_IK4
16296 integer(IKG) ,
intent(out) :: rand(:,:)
16297 integer(IKG) ,
intent(in) :: lb, ub
16298 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16303 PURE module subroutine setUnifRandRNGGLU_D2_IK3(rng, rand, lb, ub)
16304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16305 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_IK3
16308 integer(IKG) ,
intent(out) :: rand(:,:)
16309 integer(IKG) ,
intent(in) :: lb, ub
16310 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16315 PURE module subroutine setUnifRandRNGGLU_D2_IK2(rng, rand, lb, ub)
16316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16317 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_IK2
16320 integer(IKG) ,
intent(out) :: rand(:,:)
16321 integer(IKG) ,
intent(in) :: lb, ub
16322 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16327 PURE module subroutine setUnifRandRNGGLU_D2_IK1(rng, rand, lb, ub)
16328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16329 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_IK1
16332 integer(IKG) ,
intent(out) :: rand(:,:)
16333 integer(IKG) ,
intent(in) :: lb, ub
16334 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16341 PURE module subroutine setUnifRandRNGGLU_D2_LK5(rng, rand, lb, ub)
16342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16343 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_LK5
16346 logical(LKG) ,
intent(out) :: rand(:,:)
16347 logical(LKG) ,
intent(in) :: lb, ub
16348 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16353 PURE module subroutine setUnifRandRNGGLU_D2_LK4(rng, rand, lb, ub)
16354#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16355 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_LK4
16358 logical(LKG) ,
intent(out) :: rand(:,:)
16359 logical(LKG) ,
intent(in) :: lb, ub
16360 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16365 PURE module subroutine setUnifRandRNGGLU_D2_LK3(rng, rand, lb, ub)
16366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16367 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_LK3
16370 logical(LKG) ,
intent(out) :: rand(:,:)
16371 logical(LKG) ,
intent(in) :: lb, ub
16372 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16377 PURE module subroutine setUnifRandRNGGLU_D2_LK2(rng, rand, lb, ub)
16378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16379 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_LK2
16382 logical(LKG) ,
intent(out) :: rand(:,:)
16383 logical(LKG) ,
intent(in) :: lb, ub
16384 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16389 PURE module subroutine setUnifRandRNGGLU_D2_LK1(rng, rand, lb, ub)
16390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16391 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_LK1
16394 logical(LKG) ,
intent(out) :: rand(:,:)
16395 logical(LKG) ,
intent(in) :: lb, ub
16396 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16403 PURE module subroutine setUnifRandRNGGLU_D2_CK5(rng, rand, lb, ub)
16404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16405 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_CK5
16408 complex(CKG) ,
intent(out) :: rand(:,:)
16409 complex(CKG) ,
intent(in) :: lb, ub
16410 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16415 PURE module subroutine setUnifRandRNGGLU_D2_CK4(rng, rand, lb, ub)
16416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16417 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_CK4
16420 complex(CKG) ,
intent(out) :: rand(:,:)
16421 complex(CKG) ,
intent(in) :: lb, ub
16422 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16427 PURE module subroutine setUnifRandRNGGLU_D2_CK3(rng, rand, lb, ub)
16428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16429 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_CK3
16432 complex(CKG) ,
intent(out) :: rand(:,:)
16433 complex(CKG) ,
intent(in) :: lb, ub
16434 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16439 PURE module subroutine setUnifRandRNGGLU_D2_CK2(rng, rand, lb, ub)
16440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16441 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_CK2
16444 complex(CKG) ,
intent(out) :: rand(:,:)
16445 complex(CKG) ,
intent(in) :: lb, ub
16446 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16451 PURE module subroutine setUnifRandRNGGLU_D2_CK1(rng, rand, lb, ub)
16452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16453 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_CK1
16456 complex(CKG) ,
intent(out) :: rand(:,:)
16457 complex(CKG) ,
intent(in) :: lb, ub
16458 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16465 PURE module subroutine setUnifRandRNGGLU_D2_RK5(rng, rand, lb, ub)
16466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16467 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_RK5
16470 real(RKG) ,
intent(out) :: rand(:,:)
16471 real(RKG) ,
intent(in) :: lb, ub
16472 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16477 PURE module subroutine setUnifRandRNGGLU_D2_RK4(rng, rand, lb, ub)
16478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16479 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_RK4
16482 real(RKG) ,
intent(out) :: rand(:,:)
16483 real(RKG) ,
intent(in) :: lb, ub
16484 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16489 PURE module subroutine setUnifRandRNGGLU_D2_RK3(rng, rand, lb, ub)
16490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16491 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_RK3
16494 real(RKG) ,
intent(out) :: rand(:,:)
16495 real(RKG) ,
intent(in) :: lb, ub
16496 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16501 PURE module subroutine setUnifRandRNGGLU_D2_RK2(rng, rand, lb, ub)
16502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16503 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_RK2
16506 real(RKG) ,
intent(out) :: rand(:,:)
16507 real(RKG) ,
intent(in) :: lb, ub
16508 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16513 PURE module subroutine setUnifRandRNGGLU_D2_RK1(rng, rand, lb, ub)
16514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16515 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D2_RK1
16518 real(RKG) ,
intent(out) :: rand(:,:)
16519 real(RKG) ,
intent(in) :: lb, ub
16520 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16537 PURE module subroutine setUnifRandRNGGDD_D3_SK5(rng, rand)
16538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16539 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_SK5
16542 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16543 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16548 PURE module subroutine setUnifRandRNGGDD_D3_SK4(rng, rand)
16549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16550 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_SK4
16553 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16554 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16559 PURE module subroutine setUnifRandRNGGDD_D3_SK3(rng, rand)
16560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16561 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_SK3
16564 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16565 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16570 PURE module subroutine setUnifRandRNGGDD_D3_SK2(rng, rand)
16571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16572 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_SK2
16575 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16576 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16581 PURE module subroutine setUnifRandRNGGDD_D3_SK1(rng, rand)
16582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16583 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_SK1
16586 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16587 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16594 PURE module subroutine setUnifRandRNGGDD_D3_IK5(rng, rand)
16595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16596 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_IK5
16599 integer(IKG) ,
intent(out) :: rand(:,:,:)
16600 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16605 PURE module subroutine setUnifRandRNGGDD_D3_IK4(rng, rand)
16606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16607 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_IK4
16610 integer(IKG) ,
intent(out) :: rand(:,:,:)
16611 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16616 PURE module subroutine setUnifRandRNGGDD_D3_IK3(rng, rand)
16617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16618 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_IK3
16621 integer(IKG) ,
intent(out) :: rand(:,:,:)
16622 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16627 PURE module subroutine setUnifRandRNGGDD_D3_IK2(rng, rand)
16628#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16629 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_IK2
16632 integer(IKG) ,
intent(out) :: rand(:,:,:)
16633 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16638 PURE module subroutine setUnifRandRNGGDD_D3_IK1(rng, rand)
16639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16640 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_IK1
16643 integer(IKG) ,
intent(out) :: rand(:,:,:)
16644 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16651 PURE module subroutine setUnifRandRNGGDD_D3_LK5(rng, rand)
16652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16653 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_LK5
16656 logical(LKG) ,
intent(out) :: rand(:,:,:)
16657 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16662 PURE module subroutine setUnifRandRNGGDD_D3_LK4(rng, rand)
16663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16664 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_LK4
16667 logical(LKG) ,
intent(out) :: rand(:,:,:)
16668 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16673 PURE module subroutine setUnifRandRNGGDD_D3_LK3(rng, rand)
16674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16675 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_LK3
16678 logical(LKG) ,
intent(out) :: rand(:,:,:)
16679 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16684 PURE module subroutine setUnifRandRNGGDD_D3_LK2(rng, rand)
16685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16686 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_LK2
16689 logical(LKG) ,
intent(out) :: rand(:,:,:)
16690 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16695 PURE module subroutine setUnifRandRNGGDD_D3_LK1(rng, rand)
16696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16697 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_LK1
16700 logical(LKG) ,
intent(out) :: rand(:,:,:)
16701 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16708 PURE module subroutine setUnifRandRNGGDD_D3_CK5(rng, rand)
16709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16710 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_CK5
16713 complex(CKG) ,
intent(out) :: rand(:,:,:)
16714 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16719 PURE module subroutine setUnifRandRNGGDD_D3_CK4(rng, rand)
16720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16721 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_CK4
16724 complex(CKG) ,
intent(out) :: rand(:,:,:)
16725 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16730 PURE module subroutine setUnifRandRNGGDD_D3_CK3(rng, rand)
16731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16732 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_CK3
16735 complex(CKG) ,
intent(out) :: rand(:,:,:)
16736 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16741 PURE module subroutine setUnifRandRNGGDD_D3_CK2(rng, rand)
16742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16743 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_CK2
16746 complex(CKG) ,
intent(out) :: rand(:,:,:)
16747 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16752 PURE module subroutine setUnifRandRNGGDD_D3_CK1(rng, rand)
16753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16754 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_CK1
16757 complex(CKG) ,
intent(out) :: rand(:,:,:)
16758 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16765 PURE module subroutine setUnifRandRNGGDD_D3_RK5(rng, rand)
16766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16767 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_RK5
16770 real(RKG) ,
intent(out) :: rand(:,:,:)
16771 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16776 PURE module subroutine setUnifRandRNGGDD_D3_RK4(rng, rand)
16777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16778 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_RK4
16781 real(RKG) ,
intent(out) :: rand(:,:,:)
16782 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16787 PURE module subroutine setUnifRandRNGGDD_D3_RK3(rng, rand)
16788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16789 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_RK3
16792 real(RKG) ,
intent(out) :: rand(:,:,:)
16793 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16798 PURE module subroutine setUnifRandRNGGDD_D3_RK2(rng, rand)
16799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16800 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_RK2
16803 real(RKG) ,
intent(out) :: rand(:,:,:)
16804 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16809 PURE module subroutine setUnifRandRNGGDD_D3_RK1(rng, rand)
16810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16811 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGDD_D3_RK1
16814 real(RKG) ,
intent(out) :: rand(:,:,:)
16815 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16828 PURE module subroutine setUnifRandRNGGLU_D3_SK5(rng, rand, lb, ub)
16829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16830 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_SK5
16833 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16834 character(
*,SKG) ,
intent(in) :: lb, ub
16835 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16840 PURE module subroutine setUnifRandRNGGLU_D3_SK4(rng, rand, lb, ub)
16841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16842 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_SK4
16845 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16846 character(
*,SKG) ,
intent(in) :: lb, ub
16847 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16852 PURE module subroutine setUnifRandRNGGLU_D3_SK3(rng, rand, lb, ub)
16853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16854 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_SK3
16857 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16858 character(
*,SKG) ,
intent(in) :: lb, ub
16859 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16864 PURE module subroutine setUnifRandRNGGLU_D3_SK2(rng, rand, lb, ub)
16865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16866 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_SK2
16869 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16870 character(
*,SKG) ,
intent(in) :: lb, ub
16871 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16876 PURE module subroutine setUnifRandRNGGLU_D3_SK1(rng, rand, lb, ub)
16877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16878 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_SK1
16881 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
16882 character(
*,SKG) ,
intent(in) :: lb, ub
16883 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16890 PURE module subroutine setUnifRandRNGGLU_D3_IK5(rng, rand, lb, ub)
16891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16892 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_IK5
16895 integer(IKG) ,
intent(out) :: rand(:,:,:)
16896 integer(IKG) ,
intent(in) :: lb, ub
16897 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16902 PURE module subroutine setUnifRandRNGGLU_D3_IK4(rng, rand, lb, ub)
16903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16904 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_IK4
16907 integer(IKG) ,
intent(out) :: rand(:,:,:)
16908 integer(IKG) ,
intent(in) :: lb, ub
16909 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16914 PURE module subroutine setUnifRandRNGGLU_D3_IK3(rng, rand, lb, ub)
16915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16916 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_IK3
16919 integer(IKG) ,
intent(out) :: rand(:,:,:)
16920 integer(IKG) ,
intent(in) :: lb, ub
16921 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16926 PURE module subroutine setUnifRandRNGGLU_D3_IK2(rng, rand, lb, ub)
16927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16928 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_IK2
16931 integer(IKG) ,
intent(out) :: rand(:,:,:)
16932 integer(IKG) ,
intent(in) :: lb, ub
16933 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16938 PURE module subroutine setUnifRandRNGGLU_D3_IK1(rng, rand, lb, ub)
16939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16940 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_IK1
16943 integer(IKG) ,
intent(out) :: rand(:,:,:)
16944 integer(IKG) ,
intent(in) :: lb, ub
16945 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16952 PURE module subroutine setUnifRandRNGGLU_D3_LK5(rng, rand, lb, ub)
16953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16954 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_LK5
16957 logical(LKG) ,
intent(out) :: rand(:,:,:)
16958 logical(LKG) ,
intent(in) :: lb, ub
16959 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16964 PURE module subroutine setUnifRandRNGGLU_D3_LK4(rng, rand, lb, ub)
16965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16966 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_LK4
16969 logical(LKG) ,
intent(out) :: rand(:,:,:)
16970 logical(LKG) ,
intent(in) :: lb, ub
16971 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16976 PURE module subroutine setUnifRandRNGGLU_D3_LK3(rng, rand, lb, ub)
16977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16978 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_LK3
16981 logical(LKG) ,
intent(out) :: rand(:,:,:)
16982 logical(LKG) ,
intent(in) :: lb, ub
16983 type(xoshiro256ssg_type) ,
intent(inout) :: rng
16988 PURE module subroutine setUnifRandRNGGLU_D3_LK2(rng, rand, lb, ub)
16989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16990 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_LK2
16993 logical(LKG) ,
intent(out) :: rand(:,:,:)
16994 logical(LKG) ,
intent(in) :: lb, ub
16995 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17000 PURE module subroutine setUnifRandRNGGLU_D3_LK1(rng, rand, lb, ub)
17001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17002 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_LK1
17005 logical(LKG) ,
intent(out) :: rand(:,:,:)
17006 logical(LKG) ,
intent(in) :: lb, ub
17007 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17014 PURE module subroutine setUnifRandRNGGLU_D3_CK5(rng, rand, lb, ub)
17015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17016 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_CK5
17019 complex(CKG) ,
intent(out) :: rand(:,:,:)
17020 complex(CKG) ,
intent(in) :: lb, ub
17021 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17026 PURE module subroutine setUnifRandRNGGLU_D3_CK4(rng, rand, lb, ub)
17027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17028 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_CK4
17031 complex(CKG) ,
intent(out) :: rand(:,:,:)
17032 complex(CKG) ,
intent(in) :: lb, ub
17033 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17038 PURE module subroutine setUnifRandRNGGLU_D3_CK3(rng, rand, lb, ub)
17039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17040 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_CK3
17043 complex(CKG) ,
intent(out) :: rand(:,:,:)
17044 complex(CKG) ,
intent(in) :: lb, ub
17045 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17050 PURE module subroutine setUnifRandRNGGLU_D3_CK2(rng, rand, lb, ub)
17051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17052 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_CK2
17055 complex(CKG) ,
intent(out) :: rand(:,:,:)
17056 complex(CKG) ,
intent(in) :: lb, ub
17057 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17062 PURE module subroutine setUnifRandRNGGLU_D3_CK1(rng, rand, lb, ub)
17063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17064 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_CK1
17067 complex(CKG) ,
intent(out) :: rand(:,:,:)
17068 complex(CKG) ,
intent(in) :: lb, ub
17069 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17076 PURE module subroutine setUnifRandRNGGLU_D3_RK5(rng, rand, lb, ub)
17077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17078 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_RK5
17081 real(RKG) ,
intent(out) :: rand(:,:,:)
17082 real(RKG) ,
intent(in) :: lb, ub
17083 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17088 PURE module subroutine setUnifRandRNGGLU_D3_RK4(rng, rand, lb, ub)
17089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17090 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_RK4
17093 real(RKG) ,
intent(out) :: rand(:,:,:)
17094 real(RKG) ,
intent(in) :: lb, ub
17095 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17100 PURE module subroutine setUnifRandRNGGLU_D3_RK3(rng, rand, lb, ub)
17101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17102 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_RK3
17105 real(RKG) ,
intent(out) :: rand(:,:,:)
17106 real(RKG) ,
intent(in) :: lb, ub
17107 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17112 PURE module subroutine setUnifRandRNGGLU_D3_RK2(rng, rand, lb, ub)
17113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17114 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_RK2
17117 real(RKG) ,
intent(out) :: rand(:,:,:)
17118 real(RKG) ,
intent(in) :: lb, ub
17119 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17124 PURE module subroutine setUnifRandRNGGLU_D3_RK1(rng, rand, lb, ub)
17125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17126 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGGLU_D3_RK1
17129 real(RKG) ,
intent(out) :: rand(:,:,:)
17130 real(RKG) ,
intent(in) :: lb, ub
17131 type(xoshiro256ssg_type) ,
intent(inout) :: rng
17154 PURE elemental module subroutine setUnifRandRNGXDD_D0_SK5(rng, rand)
17155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17156 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_SK5
17159 character(
*,SKG) ,
intent(out) :: rand
17160 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17165 PURE elemental module subroutine setUnifRandRNGXDD_D0_SK4(rng, rand)
17166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17167 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_SK4
17170 character(
*,SKG) ,
intent(out) :: rand
17171 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17176 PURE elemental module subroutine setUnifRandRNGXDD_D0_SK3(rng, rand)
17177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17178 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_SK3
17181 character(
*,SKG) ,
intent(out) :: rand
17182 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17187 PURE elemental module subroutine setUnifRandRNGXDD_D0_SK2(rng, rand)
17188#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17189 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_SK2
17192 character(
*,SKG) ,
intent(out) :: rand
17193 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17198 PURE elemental module subroutine setUnifRandRNGXDD_D0_SK1(rng, rand)
17199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17200 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_SK1
17203 character(
*,SKG) ,
intent(out) :: rand
17204 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17211 PURE elemental module subroutine setUnifRandRNGXDD_D0_IK5(rng, rand)
17212#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17213 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_IK5
17216 integer(IKG) ,
intent(out) :: rand
17217 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17222 PURE elemental module subroutine setUnifRandRNGXDD_D0_IK4(rng, rand)
17223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17224 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_IK4
17227 integer(IKG) ,
intent(out) :: rand
17228 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17233 PURE elemental module subroutine setUnifRandRNGXDD_D0_IK3(rng, rand)
17234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17235 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_IK3
17238 integer(IKG) ,
intent(out) :: rand
17239 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17244 PURE elemental module subroutine setUnifRandRNGXDD_D0_IK2(rng, rand)
17245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17246 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_IK2
17249 integer(IKG) ,
intent(out) :: rand
17250 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17255 PURE elemental module subroutine setUnifRandRNGXDD_D0_IK1(rng, rand)
17256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17257 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_IK1
17260 integer(IKG) ,
intent(out) :: rand
17261 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17268 PURE elemental module subroutine setUnifRandRNGXDD_D0_LK5(rng, rand)
17269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17270 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_LK5
17273 logical(LKG) ,
intent(out) :: rand
17274 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17279 PURE elemental module subroutine setUnifRandRNGXDD_D0_LK4(rng, rand)
17280#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17281 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_LK4
17284 logical(LKG) ,
intent(out) :: rand
17285 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17290 PURE elemental module subroutine setUnifRandRNGXDD_D0_LK3(rng, rand)
17291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17292 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_LK3
17295 logical(LKG) ,
intent(out) :: rand
17296 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17301 PURE elemental module subroutine setUnifRandRNGXDD_D0_LK2(rng, rand)
17302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17303 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_LK2
17306 logical(LKG) ,
intent(out) :: rand
17307 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17312 PURE elemental module subroutine setUnifRandRNGXDD_D0_LK1(rng, rand)
17313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17314 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_LK1
17317 logical(LKG) ,
intent(out) :: rand
17318 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17325 PURE elemental module subroutine setUnifRandRNGXDD_D0_CK5(rng, rand)
17326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17327 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_CK5
17330 complex(CKG) ,
intent(out) :: rand
17331 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17336 PURE elemental module subroutine setUnifRandRNGXDD_D0_CK4(rng, rand)
17337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17338 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_CK4
17341 complex(CKG) ,
intent(out) :: rand
17342 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17347 PURE elemental module subroutine setUnifRandRNGXDD_D0_CK3(rng, rand)
17348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17349 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_CK3
17352 complex(CKG) ,
intent(out) :: rand
17353 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17358 PURE elemental module subroutine setUnifRandRNGXDD_D0_CK2(rng, rand)
17359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17360 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_CK2
17363 complex(CKG) ,
intent(out) :: rand
17364 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17369 PURE elemental module subroutine setUnifRandRNGXDD_D0_CK1(rng, rand)
17370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17371 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_CK1
17374 complex(CKG) ,
intent(out) :: rand
17375 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17382 PURE elemental module subroutine setUnifRandRNGXDD_D0_RK5(rng, rand)
17383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17384 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_RK5
17387 real(RKG) ,
intent(out) :: rand
17388 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17393 PURE elemental module subroutine setUnifRandRNGXDD_D0_RK4(rng, rand)
17394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17395 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_RK4
17398 real(RKG) ,
intent(out) :: rand
17399 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17404 PURE elemental module subroutine setUnifRandRNGXDD_D0_RK3(rng, rand)
17405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17406 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_RK3
17409 real(RKG) ,
intent(out) :: rand
17410 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17415 PURE elemental module subroutine setUnifRandRNGXDD_D0_RK2(rng, rand)
17416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17417 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_RK2
17420 real(RKG) ,
intent(out) :: rand
17421 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17426 PURE elemental module subroutine setUnifRandRNGXDD_D0_RK1(rng, rand)
17427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17428 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D0_RK1
17431 real(RKG) ,
intent(out) :: rand
17432 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17445 PURE elemental module subroutine setUnifRandRNGXLU_D0_SK5(rng, rand, lb, ub)
17446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17447 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_SK5
17450 character(
*,SKG) ,
intent(out) :: rand
17451 character(
*,SKG) ,
intent(in) :: lb, ub
17452 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17457 PURE elemental module subroutine setUnifRandRNGXLU_D0_SK4(rng, rand, lb, ub)
17458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17459 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_SK4
17462 character(
*,SKG) ,
intent(out) :: rand
17463 character(
*,SKG) ,
intent(in) :: lb, ub
17464 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17469 PURE elemental module subroutine setUnifRandRNGXLU_D0_SK3(rng, rand, lb, ub)
17470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17471 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_SK3
17474 character(
*,SKG) ,
intent(out) :: rand
17475 character(
*,SKG) ,
intent(in) :: lb, ub
17476 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17481 PURE elemental module subroutine setUnifRandRNGXLU_D0_SK2(rng, rand, lb, ub)
17482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17483 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_SK2
17486 character(
*,SKG) ,
intent(out) :: rand
17487 character(
*,SKG) ,
intent(in) :: lb, ub
17488 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17493 PURE elemental module subroutine setUnifRandRNGXLU_D0_SK1(rng, rand, lb, ub)
17494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17495 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_SK1
17498 character(
*,SKG) ,
intent(out) :: rand
17499 character(
*,SKG) ,
intent(in) :: lb, ub
17500 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17507 PURE elemental module subroutine setUnifRandRNGXLU_D0_IK5(rng, rand, lb, ub)
17508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17509 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_IK5
17512 integer(IKG) ,
intent(out) :: rand
17513 integer(IKG) ,
intent(in) :: lb, ub
17514 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17519 PURE elemental module subroutine setUnifRandRNGXLU_D0_IK4(rng, rand, lb, ub)
17520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17521 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_IK4
17524 integer(IKG) ,
intent(out) :: rand
17525 integer(IKG) ,
intent(in) :: lb, ub
17526 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17531 PURE elemental module subroutine setUnifRandRNGXLU_D0_IK3(rng, rand, lb, ub)
17532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17533 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_IK3
17536 integer(IKG) ,
intent(out) :: rand
17537 integer(IKG) ,
intent(in) :: lb, ub
17538 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17543 PURE elemental module subroutine setUnifRandRNGXLU_D0_IK2(rng, rand, lb, ub)
17544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17545 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_IK2
17548 integer(IKG) ,
intent(out) :: rand
17549 integer(IKG) ,
intent(in) :: lb, ub
17550 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17555 PURE elemental module subroutine setUnifRandRNGXLU_D0_IK1(rng, rand, lb, ub)
17556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17557 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_IK1
17560 integer(IKG) ,
intent(out) :: rand
17561 integer(IKG) ,
intent(in) :: lb, ub
17562 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17569 PURE elemental module subroutine setUnifRandRNGXLU_D0_LK5(rng, rand, lb, ub)
17570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17571 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_LK5
17574 logical(LKG) ,
intent(out) :: rand
17575 logical(LKG) ,
intent(in) :: lb, ub
17576 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17581 PURE elemental module subroutine setUnifRandRNGXLU_D0_LK4(rng, rand, lb, ub)
17582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17583 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_LK4
17586 logical(LKG) ,
intent(out) :: rand
17587 logical(LKG) ,
intent(in) :: lb, ub
17588 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17593 PURE elemental module subroutine setUnifRandRNGXLU_D0_LK3(rng, rand, lb, ub)
17594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17595 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_LK3
17598 logical(LKG) ,
intent(out) :: rand
17599 logical(LKG) ,
intent(in) :: lb, ub
17600 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17605 PURE elemental module subroutine setUnifRandRNGXLU_D0_LK2(rng, rand, lb, ub)
17606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17607 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_LK2
17610 logical(LKG) ,
intent(out) :: rand
17611 logical(LKG) ,
intent(in) :: lb, ub
17612 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17617 PURE elemental module subroutine setUnifRandRNGXLU_D0_LK1(rng, rand, lb, ub)
17618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17619 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_LK1
17622 logical(LKG) ,
intent(out) :: rand
17623 logical(LKG) ,
intent(in) :: lb, ub
17624 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17631 PURE elemental module subroutine setUnifRandRNGXLU_D0_CK5(rng, rand, lb, ub)
17632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17633 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_CK5
17636 complex(CKG) ,
intent(out) :: rand
17637 complex(CKG) ,
intent(in) :: lb, ub
17638 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17643 PURE elemental module subroutine setUnifRandRNGXLU_D0_CK4(rng, rand, lb, ub)
17644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17645 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_CK4
17648 complex(CKG) ,
intent(out) :: rand
17649 complex(CKG) ,
intent(in) :: lb, ub
17650 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17655 PURE elemental module subroutine setUnifRandRNGXLU_D0_CK3(rng, rand, lb, ub)
17656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17657 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_CK3
17660 complex(CKG) ,
intent(out) :: rand
17661 complex(CKG) ,
intent(in) :: lb, ub
17662 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17667 PURE elemental module subroutine setUnifRandRNGXLU_D0_CK2(rng, rand, lb, ub)
17668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17669 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_CK2
17672 complex(CKG) ,
intent(out) :: rand
17673 complex(CKG) ,
intent(in) :: lb, ub
17674 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17679 PURE elemental module subroutine setUnifRandRNGXLU_D0_CK1(rng, rand, lb, ub)
17680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17681 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_CK1
17684 complex(CKG) ,
intent(out) :: rand
17685 complex(CKG) ,
intent(in) :: lb, ub
17686 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17693 PURE elemental module subroutine setUnifRandRNGXLU_D0_RK5(rng, rand, lb, ub)
17694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17695 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_RK5
17698 real(RKG) ,
intent(out) :: rand
17699 real(RKG) ,
intent(in) :: lb, ub
17700 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17705 PURE elemental module subroutine setUnifRandRNGXLU_D0_RK4(rng, rand, lb, ub)
17706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17707 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_RK4
17710 real(RKG) ,
intent(out) :: rand
17711 real(RKG) ,
intent(in) :: lb, ub
17712 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17717 PURE elemental module subroutine setUnifRandRNGXLU_D0_RK3(rng, rand, lb, ub)
17718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17719 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_RK3
17722 real(RKG) ,
intent(out) :: rand
17723 real(RKG) ,
intent(in) :: lb, ub
17724 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17729 PURE elemental module subroutine setUnifRandRNGXLU_D0_RK2(rng, rand, lb, ub)
17730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17731 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_RK2
17734 real(RKG) ,
intent(out) :: rand
17735 real(RKG) ,
intent(in) :: lb, ub
17736 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17741 PURE elemental module subroutine setUnifRandRNGXLU_D0_RK1(rng, rand, lb, ub)
17742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17743 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D0_RK1
17746 real(RKG) ,
intent(out) :: rand
17747 real(RKG) ,
intent(in) :: lb, ub
17748 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17765 PURE module subroutine setUnifRandRNGXDD_D1_SK5(rng, rand)
17766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17767 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_SK5
17770 character(
*,SKG) ,
intent(out) :: rand(:)
17771 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17776 PURE module subroutine setUnifRandRNGXDD_D1_SK4(rng, rand)
17777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17778 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_SK4
17781 character(
*,SKG) ,
intent(out) :: rand(:)
17782 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17787 PURE module subroutine setUnifRandRNGXDD_D1_SK3(rng, rand)
17788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17789 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_SK3
17792 character(
*,SKG) ,
intent(out) :: rand(:)
17793 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17798 PURE module subroutine setUnifRandRNGXDD_D1_SK2(rng, rand)
17799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17800 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_SK2
17803 character(
*,SKG) ,
intent(out) :: rand(:)
17804 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17809 PURE module subroutine setUnifRandRNGXDD_D1_SK1(rng, rand)
17810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17811 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_SK1
17814 character(
*,SKG) ,
intent(out) :: rand(:)
17815 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17822 PURE module subroutine setUnifRandRNGXDD_D1_IK5(rng, rand)
17823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17824 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_IK5
17827 integer(IKG) ,
intent(out) :: rand(:)
17828 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17833 PURE module subroutine setUnifRandRNGXDD_D1_IK4(rng, rand)
17834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17835 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_IK4
17838 integer(IKG) ,
intent(out) :: rand(:)
17839 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17844 PURE module subroutine setUnifRandRNGXDD_D1_IK3(rng, rand)
17845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17846 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_IK3
17849 integer(IKG) ,
intent(out) :: rand(:)
17850 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17855 PURE module subroutine setUnifRandRNGXDD_D1_IK2(rng, rand)
17856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17857 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_IK2
17860 integer(IKG) ,
intent(out) :: rand(:)
17861 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17866 PURE module subroutine setUnifRandRNGXDD_D1_IK1(rng, rand)
17867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17868 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_IK1
17871 integer(IKG) ,
intent(out) :: rand(:)
17872 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17879 PURE module subroutine setUnifRandRNGXDD_D1_LK5(rng, rand)
17880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17881 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_LK5
17884 logical(LKG) ,
intent(out) :: rand(:)
17885 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17890 PURE module subroutine setUnifRandRNGXDD_D1_LK4(rng, rand)
17891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17892 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_LK4
17895 logical(LKG) ,
intent(out) :: rand(:)
17896 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17901 PURE module subroutine setUnifRandRNGXDD_D1_LK3(rng, rand)
17902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17903 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_LK3
17906 logical(LKG) ,
intent(out) :: rand(:)
17907 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17912 PURE module subroutine setUnifRandRNGXDD_D1_LK2(rng, rand)
17913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17914 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_LK2
17917 logical(LKG) ,
intent(out) :: rand(:)
17918 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17923 PURE module subroutine setUnifRandRNGXDD_D1_LK1(rng, rand)
17924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17925 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_LK1
17928 logical(LKG) ,
intent(out) :: rand(:)
17929 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17936 PURE module subroutine setUnifRandRNGXDD_D1_CK5(rng, rand)
17937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17938 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_CK5
17941 complex(CKG) ,
intent(out) :: rand(:)
17942 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17947 PURE module subroutine setUnifRandRNGXDD_D1_CK4(rng, rand)
17948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17949 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_CK4
17952 complex(CKG) ,
intent(out) :: rand(:)
17953 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17958 PURE module subroutine setUnifRandRNGXDD_D1_CK3(rng, rand)
17959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17960 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_CK3
17963 complex(CKG) ,
intent(out) :: rand(:)
17964 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17969 PURE module subroutine setUnifRandRNGXDD_D1_CK2(rng, rand)
17970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17971 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_CK2
17974 complex(CKG) ,
intent(out) :: rand(:)
17975 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17980 PURE module subroutine setUnifRandRNGXDD_D1_CK1(rng, rand)
17981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17982 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_CK1
17985 complex(CKG) ,
intent(out) :: rand(:)
17986 type(xoshiro256ssw_type) ,
intent(inout) :: rng
17993 PURE module subroutine setUnifRandRNGXDD_D1_RK5(rng, rand)
17994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17995 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_RK5
17998 real(RKG) ,
intent(out) :: rand(:)
17999 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18004 PURE module subroutine setUnifRandRNGXDD_D1_RK4(rng, rand)
18005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18006 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_RK4
18009 real(RKG) ,
intent(out) :: rand(:)
18010 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18015 PURE module subroutine setUnifRandRNGXDD_D1_RK3(rng, rand)
18016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18017 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_RK3
18020 real(RKG) ,
intent(out) :: rand(:)
18021 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18026 PURE module subroutine setUnifRandRNGXDD_D1_RK2(rng, rand)
18027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18028 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_RK2
18031 real(RKG) ,
intent(out) :: rand(:)
18032 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18037 PURE module subroutine setUnifRandRNGXDD_D1_RK1(rng, rand)
18038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18039 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D1_RK1
18042 real(RKG) ,
intent(out) :: rand(:)
18043 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18056 PURE module subroutine setUnifRandRNGXLU_D1_SK5(rng, rand, lb, ub)
18057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18058 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_SK5
18061 character(
*,SKG) ,
intent(out) :: rand(:)
18062 character(
*,SKG) ,
intent(in) :: lb, ub
18063 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18068 PURE module subroutine setUnifRandRNGXLU_D1_SK4(rng, rand, lb, ub)
18069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18070 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_SK4
18073 character(
*,SKG) ,
intent(out) :: rand(:)
18074 character(
*,SKG) ,
intent(in) :: lb, ub
18075 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18080 PURE module subroutine setUnifRandRNGXLU_D1_SK3(rng, rand, lb, ub)
18081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18082 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_SK3
18085 character(
*,SKG) ,
intent(out) :: rand(:)
18086 character(
*,SKG) ,
intent(in) :: lb, ub
18087 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18092 PURE module subroutine setUnifRandRNGXLU_D1_SK2(rng, rand, lb, ub)
18093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18094 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_SK2
18097 character(
*,SKG) ,
intent(out) :: rand(:)
18098 character(
*,SKG) ,
intent(in) :: lb, ub
18099 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18104 PURE module subroutine setUnifRandRNGXLU_D1_SK1(rng, rand, lb, ub)
18105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18106 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_SK1
18109 character(
*,SKG) ,
intent(out) :: rand(:)
18110 character(
*,SKG) ,
intent(in) :: lb, ub
18111 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18118 PURE module subroutine setUnifRandRNGXLU_D1_IK5(rng, rand, lb, ub)
18119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18120 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_IK5
18123 integer(IKG) ,
intent(out) :: rand(:)
18124 integer(IKG) ,
intent(in) :: lb, ub
18125 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18130 PURE module subroutine setUnifRandRNGXLU_D1_IK4(rng, rand, lb, ub)
18131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18132 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_IK4
18135 integer(IKG) ,
intent(out) :: rand(:)
18136 integer(IKG) ,
intent(in) :: lb, ub
18137 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18142 PURE module subroutine setUnifRandRNGXLU_D1_IK3(rng, rand, lb, ub)
18143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18144 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_IK3
18147 integer(IKG) ,
intent(out) :: rand(:)
18148 integer(IKG) ,
intent(in) :: lb, ub
18149 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18154 PURE module subroutine setUnifRandRNGXLU_D1_IK2(rng, rand, lb, ub)
18155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18156 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_IK2
18159 integer(IKG) ,
intent(out) :: rand(:)
18160 integer(IKG) ,
intent(in) :: lb, ub
18161 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18166 PURE module subroutine setUnifRandRNGXLU_D1_IK1(rng, rand, lb, ub)
18167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18168 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_IK1
18171 integer(IKG) ,
intent(out) :: rand(:)
18172 integer(IKG) ,
intent(in) :: lb, ub
18173 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18180 PURE module subroutine setUnifRandRNGXLU_D1_LK5(rng, rand, lb, ub)
18181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18182 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_LK5
18185 logical(LKG) ,
intent(out) :: rand(:)
18186 logical(LKG) ,
intent(in) :: lb, ub
18187 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18192 PURE module subroutine setUnifRandRNGXLU_D1_LK4(rng, rand, lb, ub)
18193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18194 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_LK4
18197 logical(LKG) ,
intent(out) :: rand(:)
18198 logical(LKG) ,
intent(in) :: lb, ub
18199 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18204 PURE module subroutine setUnifRandRNGXLU_D1_LK3(rng, rand, lb, ub)
18205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18206 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_LK3
18209 logical(LKG) ,
intent(out) :: rand(:)
18210 logical(LKG) ,
intent(in) :: lb, ub
18211 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18216 PURE module subroutine setUnifRandRNGXLU_D1_LK2(rng, rand, lb, ub)
18217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18218 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_LK2
18221 logical(LKG) ,
intent(out) :: rand(:)
18222 logical(LKG) ,
intent(in) :: lb, ub
18223 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18228 PURE module subroutine setUnifRandRNGXLU_D1_LK1(rng, rand, lb, ub)
18229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18230 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_LK1
18233 logical(LKG) ,
intent(out) :: rand(:)
18234 logical(LKG) ,
intent(in) :: lb, ub
18235 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18242 PURE module subroutine setUnifRandRNGXLU_D1_CK5(rng, rand, lb, ub)
18243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18244 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_CK5
18247 complex(CKG) ,
intent(out) :: rand(:)
18248 complex(CKG) ,
intent(in) :: lb, ub
18249 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18254 PURE module subroutine setUnifRandRNGXLU_D1_CK4(rng, rand, lb, ub)
18255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18256 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_CK4
18259 complex(CKG) ,
intent(out) :: rand(:)
18260 complex(CKG) ,
intent(in) :: lb, ub
18261 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18266 PURE module subroutine setUnifRandRNGXLU_D1_CK3(rng, rand, lb, ub)
18267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18268 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_CK3
18271 complex(CKG) ,
intent(out) :: rand(:)
18272 complex(CKG) ,
intent(in) :: lb, ub
18273 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18278 PURE module subroutine setUnifRandRNGXLU_D1_CK2(rng, rand, lb, ub)
18279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18280 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_CK2
18283 complex(CKG) ,
intent(out) :: rand(:)
18284 complex(CKG) ,
intent(in) :: lb, ub
18285 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18290 PURE module subroutine setUnifRandRNGXLU_D1_CK1(rng, rand, lb, ub)
18291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18292 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_CK1
18295 complex(CKG) ,
intent(out) :: rand(:)
18296 complex(CKG) ,
intent(in) :: lb, ub
18297 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18304 PURE module subroutine setUnifRandRNGXLU_D1_RK5(rng, rand, lb, ub)
18305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18306 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_RK5
18309 real(RKG) ,
intent(out) :: rand(:)
18310 real(RKG) ,
intent(in) :: lb, ub
18311 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18316 PURE module subroutine setUnifRandRNGXLU_D1_RK4(rng, rand, lb, ub)
18317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18318 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_RK4
18321 real(RKG) ,
intent(out) :: rand(:)
18322 real(RKG) ,
intent(in) :: lb, ub
18323 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18328 PURE module subroutine setUnifRandRNGXLU_D1_RK3(rng, rand, lb, ub)
18329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18330 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_RK3
18333 real(RKG) ,
intent(out) :: rand(:)
18334 real(RKG) ,
intent(in) :: lb, ub
18335 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18340 PURE module subroutine setUnifRandRNGXLU_D1_RK2(rng, rand, lb, ub)
18341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18342 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_RK2
18345 real(RKG) ,
intent(out) :: rand(:)
18346 real(RKG) ,
intent(in) :: lb, ub
18347 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18352 PURE module subroutine setUnifRandRNGXLU_D1_RK1(rng, rand, lb, ub)
18353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18354 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D1_RK1
18357 real(RKG) ,
intent(out) :: rand(:)
18358 real(RKG) ,
intent(in) :: lb, ub
18359 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18376 PURE module subroutine setUnifRandRNGXDD_D2_SK5(rng, rand)
18377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18378 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_SK5
18381 character(
*,SKG) ,
intent(out) :: rand(:,:)
18382 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18387 PURE module subroutine setUnifRandRNGXDD_D2_SK4(rng, rand)
18388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18389 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_SK4
18392 character(
*,SKG) ,
intent(out) :: rand(:,:)
18393 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18398 PURE module subroutine setUnifRandRNGXDD_D2_SK3(rng, rand)
18399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18400 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_SK3
18403 character(
*,SKG) ,
intent(out) :: rand(:,:)
18404 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18409 PURE module subroutine setUnifRandRNGXDD_D2_SK2(rng, rand)
18410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18411 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_SK2
18414 character(
*,SKG) ,
intent(out) :: rand(:,:)
18415 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18420 PURE module subroutine setUnifRandRNGXDD_D2_SK1(rng, rand)
18421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18422 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_SK1
18425 character(
*,SKG) ,
intent(out) :: rand(:,:)
18426 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18433 PURE module subroutine setUnifRandRNGXDD_D2_IK5(rng, rand)
18434#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18435 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_IK5
18438 integer(IKG) ,
intent(out) :: rand(:,:)
18439 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18444 PURE module subroutine setUnifRandRNGXDD_D2_IK4(rng, rand)
18445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18446 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_IK4
18449 integer(IKG) ,
intent(out) :: rand(:,:)
18450 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18455 PURE module subroutine setUnifRandRNGXDD_D2_IK3(rng, rand)
18456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18457 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_IK3
18460 integer(IKG) ,
intent(out) :: rand(:,:)
18461 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18466 PURE module subroutine setUnifRandRNGXDD_D2_IK2(rng, rand)
18467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18468 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_IK2
18471 integer(IKG) ,
intent(out) :: rand(:,:)
18472 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18477 PURE module subroutine setUnifRandRNGXDD_D2_IK1(rng, rand)
18478#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18479 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_IK1
18482 integer(IKG) ,
intent(out) :: rand(:,:)
18483 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18490 PURE module subroutine setUnifRandRNGXDD_D2_LK5(rng, rand)
18491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18492 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_LK5
18495 logical(LKG) ,
intent(out) :: rand(:,:)
18496 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18501 PURE module subroutine setUnifRandRNGXDD_D2_LK4(rng, rand)
18502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18503 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_LK4
18506 logical(LKG) ,
intent(out) :: rand(:,:)
18507 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18512 PURE module subroutine setUnifRandRNGXDD_D2_LK3(rng, rand)
18513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18514 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_LK3
18517 logical(LKG) ,
intent(out) :: rand(:,:)
18518 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18523 PURE module subroutine setUnifRandRNGXDD_D2_LK2(rng, rand)
18524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18525 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_LK2
18528 logical(LKG) ,
intent(out) :: rand(:,:)
18529 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18534 PURE module subroutine setUnifRandRNGXDD_D2_LK1(rng, rand)
18535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18536 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_LK1
18539 logical(LKG) ,
intent(out) :: rand(:,:)
18540 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18547 PURE module subroutine setUnifRandRNGXDD_D2_CK5(rng, rand)
18548#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18549 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_CK5
18552 complex(CKG) ,
intent(out) :: rand(:,:)
18553 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18558 PURE module subroutine setUnifRandRNGXDD_D2_CK4(rng, rand)
18559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18560 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_CK4
18563 complex(CKG) ,
intent(out) :: rand(:,:)
18564 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18569 PURE module subroutine setUnifRandRNGXDD_D2_CK3(rng, rand)
18570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18571 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_CK3
18574 complex(CKG) ,
intent(out) :: rand(:,:)
18575 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18580 PURE module subroutine setUnifRandRNGXDD_D2_CK2(rng, rand)
18581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18582 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_CK2
18585 complex(CKG) ,
intent(out) :: rand(:,:)
18586 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18591 PURE module subroutine setUnifRandRNGXDD_D2_CK1(rng, rand)
18592#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18593 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_CK1
18596 complex(CKG) ,
intent(out) :: rand(:,:)
18597 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18604 PURE module subroutine setUnifRandRNGXDD_D2_RK5(rng, rand)
18605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18606 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_RK5
18609 real(RKG) ,
intent(out) :: rand(:,:)
18610 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18615 PURE module subroutine setUnifRandRNGXDD_D2_RK4(rng, rand)
18616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18617 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_RK4
18620 real(RKG) ,
intent(out) :: rand(:,:)
18621 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18626 PURE module subroutine setUnifRandRNGXDD_D2_RK3(rng, rand)
18627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18628 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_RK3
18631 real(RKG) ,
intent(out) :: rand(:,:)
18632 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18637 PURE module subroutine setUnifRandRNGXDD_D2_RK2(rng, rand)
18638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18639 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_RK2
18642 real(RKG) ,
intent(out) :: rand(:,:)
18643 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18648 PURE module subroutine setUnifRandRNGXDD_D2_RK1(rng, rand)
18649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18650 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D2_RK1
18653 real(RKG) ,
intent(out) :: rand(:,:)
18654 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18667 PURE module subroutine setUnifRandRNGXLU_D2_SK5(rng, rand, lb, ub)
18668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18669 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_SK5
18672 character(
*,SKG) ,
intent(out) :: rand(:,:)
18673 character(
*,SKG) ,
intent(in) :: lb, ub
18674 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18679 PURE module subroutine setUnifRandRNGXLU_D2_SK4(rng, rand, lb, ub)
18680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18681 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_SK4
18684 character(
*,SKG) ,
intent(out) :: rand(:,:)
18685 character(
*,SKG) ,
intent(in) :: lb, ub
18686 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18691 PURE module subroutine setUnifRandRNGXLU_D2_SK3(rng, rand, lb, ub)
18692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18693 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_SK3
18696 character(
*,SKG) ,
intent(out) :: rand(:,:)
18697 character(
*,SKG) ,
intent(in) :: lb, ub
18698 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18703 PURE module subroutine setUnifRandRNGXLU_D2_SK2(rng, rand, lb, ub)
18704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18705 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_SK2
18708 character(
*,SKG) ,
intent(out) :: rand(:,:)
18709 character(
*,SKG) ,
intent(in) :: lb, ub
18710 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18715 PURE module subroutine setUnifRandRNGXLU_D2_SK1(rng, rand, lb, ub)
18716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18717 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_SK1
18720 character(
*,SKG) ,
intent(out) :: rand(:,:)
18721 character(
*,SKG) ,
intent(in) :: lb, ub
18722 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18729 PURE module subroutine setUnifRandRNGXLU_D2_IK5(rng, rand, lb, ub)
18730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18731 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_IK5
18734 integer(IKG) ,
intent(out) :: rand(:,:)
18735 integer(IKG) ,
intent(in) :: lb, ub
18736 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18741 PURE module subroutine setUnifRandRNGXLU_D2_IK4(rng, rand, lb, ub)
18742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18743 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_IK4
18746 integer(IKG) ,
intent(out) :: rand(:,:)
18747 integer(IKG) ,
intent(in) :: lb, ub
18748 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18753 PURE module subroutine setUnifRandRNGXLU_D2_IK3(rng, rand, lb, ub)
18754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18755 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_IK3
18758 integer(IKG) ,
intent(out) :: rand(:,:)
18759 integer(IKG) ,
intent(in) :: lb, ub
18760 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18765 PURE module subroutine setUnifRandRNGXLU_D2_IK2(rng, rand, lb, ub)
18766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18767 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_IK2
18770 integer(IKG) ,
intent(out) :: rand(:,:)
18771 integer(IKG) ,
intent(in) :: lb, ub
18772 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18777 PURE module subroutine setUnifRandRNGXLU_D2_IK1(rng, rand, lb, ub)
18778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18779 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_IK1
18782 integer(IKG) ,
intent(out) :: rand(:,:)
18783 integer(IKG) ,
intent(in) :: lb, ub
18784 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18791 PURE module subroutine setUnifRandRNGXLU_D2_LK5(rng, rand, lb, ub)
18792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18793 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_LK5
18796 logical(LKG) ,
intent(out) :: rand(:,:)
18797 logical(LKG) ,
intent(in) :: lb, ub
18798 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18803 PURE module subroutine setUnifRandRNGXLU_D2_LK4(rng, rand, lb, ub)
18804#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18805 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_LK4
18808 logical(LKG) ,
intent(out) :: rand(:,:)
18809 logical(LKG) ,
intent(in) :: lb, ub
18810 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18815 PURE module subroutine setUnifRandRNGXLU_D2_LK3(rng, rand, lb, ub)
18816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18817 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_LK3
18820 logical(LKG) ,
intent(out) :: rand(:,:)
18821 logical(LKG) ,
intent(in) :: lb, ub
18822 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18827 PURE module subroutine setUnifRandRNGXLU_D2_LK2(rng, rand, lb, ub)
18828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18829 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_LK2
18832 logical(LKG) ,
intent(out) :: rand(:,:)
18833 logical(LKG) ,
intent(in) :: lb, ub
18834 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18839 PURE module subroutine setUnifRandRNGXLU_D2_LK1(rng, rand, lb, ub)
18840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18841 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_LK1
18844 logical(LKG) ,
intent(out) :: rand(:,:)
18845 logical(LKG) ,
intent(in) :: lb, ub
18846 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18853 PURE module subroutine setUnifRandRNGXLU_D2_CK5(rng, rand, lb, ub)
18854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18855 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_CK5
18858 complex(CKG) ,
intent(out) :: rand(:,:)
18859 complex(CKG) ,
intent(in) :: lb, ub
18860 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18865 PURE module subroutine setUnifRandRNGXLU_D2_CK4(rng, rand, lb, ub)
18866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18867 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_CK4
18870 complex(CKG) ,
intent(out) :: rand(:,:)
18871 complex(CKG) ,
intent(in) :: lb, ub
18872 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18877 PURE module subroutine setUnifRandRNGXLU_D2_CK3(rng, rand, lb, ub)
18878#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18879 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_CK3
18882 complex(CKG) ,
intent(out) :: rand(:,:)
18883 complex(CKG) ,
intent(in) :: lb, ub
18884 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18889 PURE module subroutine setUnifRandRNGXLU_D2_CK2(rng, rand, lb, ub)
18890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18891 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_CK2
18894 complex(CKG) ,
intent(out) :: rand(:,:)
18895 complex(CKG) ,
intent(in) :: lb, ub
18896 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18901 PURE module subroutine setUnifRandRNGXLU_D2_CK1(rng, rand, lb, ub)
18902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18903 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_CK1
18906 complex(CKG) ,
intent(out) :: rand(:,:)
18907 complex(CKG) ,
intent(in) :: lb, ub
18908 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18915 PURE module subroutine setUnifRandRNGXLU_D2_RK5(rng, rand, lb, ub)
18916#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18917 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_RK5
18920 real(RKG) ,
intent(out) :: rand(:,:)
18921 real(RKG) ,
intent(in) :: lb, ub
18922 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18927 PURE module subroutine setUnifRandRNGXLU_D2_RK4(rng, rand, lb, ub)
18928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18929 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_RK4
18932 real(RKG) ,
intent(out) :: rand(:,:)
18933 real(RKG) ,
intent(in) :: lb, ub
18934 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18939 PURE module subroutine setUnifRandRNGXLU_D2_RK3(rng, rand, lb, ub)
18940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18941 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_RK3
18944 real(RKG) ,
intent(out) :: rand(:,:)
18945 real(RKG) ,
intent(in) :: lb, ub
18946 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18951 PURE module subroutine setUnifRandRNGXLU_D2_RK2(rng, rand, lb, ub)
18952#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18953 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_RK2
18956 real(RKG) ,
intent(out) :: rand(:,:)
18957 real(RKG) ,
intent(in) :: lb, ub
18958 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18963 PURE module subroutine setUnifRandRNGXLU_D2_RK1(rng, rand, lb, ub)
18964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18965 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D2_RK1
18968 real(RKG) ,
intent(out) :: rand(:,:)
18969 real(RKG) ,
intent(in) :: lb, ub
18970 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18987 PURE module subroutine setUnifRandRNGXDD_D3_SK5(rng, rand)
18988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18989 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_SK5
18992 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
18993 type(xoshiro256ssw_type) ,
intent(inout) :: rng
18998 PURE module subroutine setUnifRandRNGXDD_D3_SK4(rng, rand)
18999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19000 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_SK4
19003 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
19004 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19009 PURE module subroutine setUnifRandRNGXDD_D3_SK3(rng, rand)
19010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19011 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_SK3
19014 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
19015 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19020 PURE module subroutine setUnifRandRNGXDD_D3_SK2(rng, rand)
19021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19022 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_SK2
19025 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
19026 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19031 PURE module subroutine setUnifRandRNGXDD_D3_SK1(rng, rand)
19032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19033 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_SK1
19036 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
19037 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19044 PURE module subroutine setUnifRandRNGXDD_D3_IK5(rng, rand)
19045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19046 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_IK5
19049 integer(IKG) ,
intent(out) :: rand(:,:,:)
19050 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19055 PURE module subroutine setUnifRandRNGXDD_D3_IK4(rng, rand)
19056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19057 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_IK4
19060 integer(IKG) ,
intent(out) :: rand(:,:,:)
19061 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19066 PURE module subroutine setUnifRandRNGXDD_D3_IK3(rng, rand)
19067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19068 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_IK3
19071 integer(IKG) ,
intent(out) :: rand(:,:,:)
19072 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19077 PURE module subroutine setUnifRandRNGXDD_D3_IK2(rng, rand)
19078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19079 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_IK2
19082 integer(IKG) ,
intent(out) :: rand(:,:,:)
19083 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19088 PURE module subroutine setUnifRandRNGXDD_D3_IK1(rng, rand)
19089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19090 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_IK1
19093 integer(IKG) ,
intent(out) :: rand(:,:,:)
19094 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19101 PURE module subroutine setUnifRandRNGXDD_D3_LK5(rng, rand)
19102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19103 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_LK5
19106 logical(LKG) ,
intent(out) :: rand(:,:,:)
19107 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19112 PURE module subroutine setUnifRandRNGXDD_D3_LK4(rng, rand)
19113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19114 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_LK4
19117 logical(LKG) ,
intent(out) :: rand(:,:,:)
19118 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19123 PURE module subroutine setUnifRandRNGXDD_D3_LK3(rng, rand)
19124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19125 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_LK3
19128 logical(LKG) ,
intent(out) :: rand(:,:,:)
19129 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19134 PURE module subroutine setUnifRandRNGXDD_D3_LK2(rng, rand)
19135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19136 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_LK2
19139 logical(LKG) ,
intent(out) :: rand(:,:,:)
19140 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19145 PURE module subroutine setUnifRandRNGXDD_D3_LK1(rng, rand)
19146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19147 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_LK1
19150 logical(LKG) ,
intent(out) :: rand(:,:,:)
19151 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19158 PURE module subroutine setUnifRandRNGXDD_D3_CK5(rng, rand)
19159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19160 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_CK5
19163 complex(CKG) ,
intent(out) :: rand(:,:,:)
19164 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19169 PURE module subroutine setUnifRandRNGXDD_D3_CK4(rng, rand)
19170#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19171 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_CK4
19174 complex(CKG) ,
intent(out) :: rand(:,:,:)
19175 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19180 PURE module subroutine setUnifRandRNGXDD_D3_CK3(rng, rand)
19181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19182 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_CK3
19185 complex(CKG) ,
intent(out) :: rand(:,:,:)
19186 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19191 PURE module subroutine setUnifRandRNGXDD_D3_CK2(rng, rand)
19192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19193 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_CK2
19196 complex(CKG) ,
intent(out) :: rand(:,:,:)
19197 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19202 PURE module subroutine setUnifRandRNGXDD_D3_CK1(rng, rand)
19203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19204 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_CK1
19207 complex(CKG) ,
intent(out) :: rand(:,:,:)
19208 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19215 PURE module subroutine setUnifRandRNGXDD_D3_RK5(rng, rand)
19216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19217 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_RK5
19220 real(RKG) ,
intent(out) :: rand(:,:,:)
19221 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19226 PURE module subroutine setUnifRandRNGXDD_D3_RK4(rng, rand)
19227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19228 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_RK4
19231 real(RKG) ,
intent(out) :: rand(:,:,:)
19232 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19237 PURE module subroutine setUnifRandRNGXDD_D3_RK3(rng, rand)
19238#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19239 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_RK3
19242 real(RKG) ,
intent(out) :: rand(:,:,:)
19243 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19248 PURE module subroutine setUnifRandRNGXDD_D3_RK2(rng, rand)
19249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19250 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_RK2
19253 real(RKG) ,
intent(out) :: rand(:,:,:)
19254 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19259 PURE module subroutine setUnifRandRNGXDD_D3_RK1(rng, rand)
19260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19261 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXDD_D3_RK1
19264 real(RKG) ,
intent(out) :: rand(:,:,:)
19265 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19278 PURE module subroutine setUnifRandRNGXLU_D3_SK5(rng, rand, lb, ub)
19279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19280 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_SK5
19283 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
19284 character(
*,SKG) ,
intent(in) :: lb, ub
19285 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19290 PURE module subroutine setUnifRandRNGXLU_D3_SK4(rng, rand, lb, ub)
19291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19292 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_SK4
19295 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
19296 character(
*,SKG) ,
intent(in) :: lb, ub
19297 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19302 PURE module subroutine setUnifRandRNGXLU_D3_SK3(rng, rand, lb, ub)
19303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19304 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_SK3
19307 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
19308 character(
*,SKG) ,
intent(in) :: lb, ub
19309 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19314 PURE module subroutine setUnifRandRNGXLU_D3_SK2(rng, rand, lb, ub)
19315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19316 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_SK2
19319 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
19320 character(
*,SKG) ,
intent(in) :: lb, ub
19321 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19326 PURE module subroutine setUnifRandRNGXLU_D3_SK1(rng, rand, lb, ub)
19327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19328 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_SK1
19331 character(
*,SKG) ,
intent(out) :: rand(:,:,:)
19332 character(
*,SKG) ,
intent(in) :: lb, ub
19333 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19340 PURE module subroutine setUnifRandRNGXLU_D3_IK5(rng, rand, lb, ub)
19341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19342 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_IK5
19345 integer(IKG) ,
intent(out) :: rand(:,:,:)
19346 integer(IKG) ,
intent(in) :: lb, ub
19347 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19352 PURE module subroutine setUnifRandRNGXLU_D3_IK4(rng, rand, lb, ub)
19353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19354 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_IK4
19357 integer(IKG) ,
intent(out) :: rand(:,:,:)
19358 integer(IKG) ,
intent(in) :: lb, ub
19359 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19364 PURE module subroutine setUnifRandRNGXLU_D3_IK3(rng, rand, lb, ub)
19365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19366 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_IK3
19369 integer(IKG) ,
intent(out) :: rand(:,:,:)
19370 integer(IKG) ,
intent(in) :: lb, ub
19371 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19376 PURE module subroutine setUnifRandRNGXLU_D3_IK2(rng, rand, lb, ub)
19377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19378 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_IK2
19381 integer(IKG) ,
intent(out) :: rand(:,:,:)
19382 integer(IKG) ,
intent(in) :: lb, ub
19383 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19388 PURE module subroutine setUnifRandRNGXLU_D3_IK1(rng, rand, lb, ub)
19389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19390 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_IK1
19393 integer(IKG) ,
intent(out) :: rand(:,:,:)
19394 integer(IKG) ,
intent(in) :: lb, ub
19395 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19402 PURE module subroutine setUnifRandRNGXLU_D3_LK5(rng, rand, lb, ub)
19403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19404 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_LK5
19407 logical(LKG) ,
intent(out) :: rand(:,:,:)
19408 logical(LKG) ,
intent(in) :: lb, ub
19409 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19414 PURE module subroutine setUnifRandRNGXLU_D3_LK4(rng, rand, lb, ub)
19415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19416 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_LK4
19419 logical(LKG) ,
intent(out) :: rand(:,:,:)
19420 logical(LKG) ,
intent(in) :: lb, ub
19421 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19426 PURE module subroutine setUnifRandRNGXLU_D3_LK3(rng, rand, lb, ub)
19427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19428 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_LK3
19431 logical(LKG) ,
intent(out) :: rand(:,:,:)
19432 logical(LKG) ,
intent(in) :: lb, ub
19433 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19438 PURE module subroutine setUnifRandRNGXLU_D3_LK2(rng, rand, lb, ub)
19439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19440 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_LK2
19443 logical(LKG) ,
intent(out) :: rand(:,:,:)
19444 logical(LKG) ,
intent(in) :: lb, ub
19445 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19450 PURE module subroutine setUnifRandRNGXLU_D3_LK1(rng, rand, lb, ub)
19451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19452 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_LK1
19455 logical(LKG) ,
intent(out) :: rand(:,:,:)
19456 logical(LKG) ,
intent(in) :: lb, ub
19457 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19464 PURE module subroutine setUnifRandRNGXLU_D3_CK5(rng, rand, lb, ub)
19465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19466 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_CK5
19469 complex(CKG) ,
intent(out) :: rand(:,:,:)
19470 complex(CKG) ,
intent(in) :: lb, ub
19471 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19476 PURE module subroutine setUnifRandRNGXLU_D3_CK4(rng, rand, lb, ub)
19477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19478 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_CK4
19481 complex(CKG) ,
intent(out) :: rand(:,:,:)
19482 complex(CKG) ,
intent(in) :: lb, ub
19483 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19488 PURE module subroutine setUnifRandRNGXLU_D3_CK3(rng, rand, lb, ub)
19489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19490 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_CK3
19493 complex(CKG) ,
intent(out) :: rand(:,:,:)
19494 complex(CKG) ,
intent(in) :: lb, ub
19495 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19500 PURE module subroutine setUnifRandRNGXLU_D3_CK2(rng, rand, lb, ub)
19501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19502 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_CK2
19505 complex(CKG) ,
intent(out) :: rand(:,:,:)
19506 complex(CKG) ,
intent(in) :: lb, ub
19507 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19512 PURE module subroutine setUnifRandRNGXLU_D3_CK1(rng, rand, lb, ub)
19513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19514 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_CK1
19517 complex(CKG) ,
intent(out) :: rand(:,:,:)
19518 complex(CKG) ,
intent(in) :: lb, ub
19519 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19526 PURE module subroutine setUnifRandRNGXLU_D3_RK5(rng, rand, lb, ub)
19527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19528 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_RK5
19531 real(RKG) ,
intent(out) :: rand(:,:,:)
19532 real(RKG) ,
intent(in) :: lb, ub
19533 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19538 PURE module subroutine setUnifRandRNGXLU_D3_RK4(rng, rand, lb, ub)
19539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19540 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_RK4
19543 real(RKG) ,
intent(out) :: rand(:,:,:)
19544 real(RKG) ,
intent(in) :: lb, ub
19545 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19550 PURE module subroutine setUnifRandRNGXLU_D3_RK3(rng, rand, lb, ub)
19551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19552 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_RK3
19555 real(RKG) ,
intent(out) :: rand(:,:,:)
19556 real(RKG) ,
intent(in) :: lb, ub
19557 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19562 PURE module subroutine setUnifRandRNGXLU_D3_RK2(rng, rand, lb, ub)
19563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19564 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_RK2
19567 real(RKG) ,
intent(out) :: rand(:,:,:)
19568 real(RKG) ,
intent(in) :: lb, ub
19569 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19574 PURE module subroutine setUnifRandRNGXLU_D3_RK1(rng, rand, lb, ub)
19575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
19576 !DEC$ ATTRIBUTES DLLEXPORT :: setUnifRandRNGXLU_D3_RK1
19579 real(RKG) ,
intent(out) :: rand(:,:,:)
19580 real(RKG) ,
intent(in) :: lb, ub
19581 type(xoshiro256ssw_type) ,
intent(inout) :: rng
19595end module pm_distUnif
Generate and return the Cumulative Distribution Function (CDF) of a univariate Standard Uniform distr...
Generate and return the size of the seed vector of the Fortran default random number generator (RNG).
Generate and return an allocatable array of rank 1 containing the state vector of the Fortran default...
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Generate and return a scalar object of type rngf_type.
Return the Cumulative Distribution Function (CDF) of a univariate Standard Uniform distribution or a ...
Set the state of the Fortran default random number generator (RNG) to a random value or to an optiona...
Return a uniform random scalar or contiguous array of arbitrary rank of randomly uniformly distribute...
Generate, initialize, and return a scalar object of type splitmix64_type.
Generate, initialize, and return a scalar object of type xoshiro256ssg_type.
Generate, initialize, and return a scalar object of type xoshiro256ssw_type.
This module contains classes and procedures for computing various statistical quantities related to t...
type(rngf_type) rngf
The scalar constant object of type rngf_type whose presence signified the use of the Fortran intrinsi...
integer(IK64), dimension(xoshiro256ssStateSize), parameter xoshiro256ssJump128
The constant vector of size xoshiro256ssStateSize of type integer of kind IK64 containing the state j...
character(*, SK), parameter MODULE_NAME
integer(IK), parameter xoshiro256ssStateSize
The constant scalar of type integer of default kind IK containing the size of the state vector of Xos...
integer(IK), parameter xoshiro256ssStreamBitSize
The constant scalar of type integer of default kind containing the number of binary digits of the str...
integer(IK64), dimension(xoshiro256ssStateSize), parameter xoshiro256ssJump192
The constant vector of size xoshiro256ssStateSize of type integer of kind IK64 containing the state j...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK64
The integer kind for a 64-bits container.
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 Uniform 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 abstract base derived type for defining various Uniform Random Number Generator (URNG) de...
This is the derived type for declaring and generating objects of type splitmix64_type containing a un...
This is the abstract base derived type for defining variants of Xoshiro256** Uniform Random Number Ge...
This is the derived type for declaring and generating objects of type xoshiro256ssg_type containing a...
This is the derived type for declaring and generating objects of type xoshiro256ssw_type containing a...