File tree 2 files changed +14
-1
lines changed
2 files changed +14
-1
lines changed Original file line number Diff line number Diff line change @@ -23,6 +23,9 @@ module stdlib_random
23
23
#:for k1, t1 in INT_KINDS_TYPES
24
24
module procedure dist_rand_${t1[0]}$${k1}$
25
25
#:endfor
26
+ #:if "int64" not in INT_KINDS
27
+ module procedure dist_rand_iint64
28
+ #:endif
26
29
end interface dist_rand
27
30
28
31
interface random_seed
@@ -58,6 +61,15 @@ module stdlib_random
58
61
end function dist_rand_${t1[0]}$${k1}$
59
62
60
63
#:endfor
64
+
65
+ #:if "int64" not in INT_KINDS
66
+ function dist_rand_iint64(n) result(res)
67
+ integer(int64), intent(in) :: n
68
+ integer(int64) :: res
69
+
70
+ res = shiftr(xoshiro256ss( ), 0)
71
+ end function dist_rand_iint64
72
+ #:endif
61
73
62
74
function xoshiro256ss( ) result (res)
63
75
! Generate random 64-bit integers
@@ -120,6 +132,7 @@ module stdlib_random
120
132
! 0xbf58476d1ce4e5b9, 0x94d049bb133111eb
121
133
122
134
res = optval(s, si)
135
+
123
136
si = res + int01
124
137
res = ieor(res, shiftr(res, 30)) * int02
125
138
res = ieor(res, shiftr(res, 27)) * int03
Original file line number Diff line number Diff line change @@ -26,7 +26,7 @@ module stdlib_stats_distribution_uniform
26
26
!! ([Specification](../page/specs/stdlib_stats_distribution_uniform.html#
27
27
!! rvs_uniform-uniform-distribution-random-variates))
28
28
29
- module procedure rvs_unif_0_rsp ! 0 dummy variable
29
+ module procedure rvs_unif_0_r${REAL_KINDS[0]}$ ! 0 dummy variable
30
30
31
31
#:for k1, t1 in ALL_KINDS_TYPES
32
32
module procedure rvs_unif_1_${t1[0]}$${k1}$ ! 1 dummy variable
You can’t perform that action at this time.
0 commit comments