Skip to content

Commit 92a1949

Browse files
committed
Update for dp-stdlib
1 parent 7758a1d commit 92a1949

File tree

2 files changed

+14
-1
lines changed

2 files changed

+14
-1
lines changed

src/stdlib_random.fypp

+13
Original file line numberDiff line numberDiff line change
@@ -23,6 +23,9 @@ module stdlib_random
2323
#:for k1, t1 in INT_KINDS_TYPES
2424
module procedure dist_rand_${t1[0]}$${k1}$
2525
#:endfor
26+
#:if "int64" not in INT_KINDS
27+
module procedure dist_rand_iint64
28+
#:endif
2629
end interface dist_rand
2730

2831
interface random_seed
@@ -58,6 +61,15 @@ module stdlib_random
5861
end function dist_rand_${t1[0]}$${k1}$
5962

6063
#: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
6173

6274
function xoshiro256ss( ) result (res)
6375
! Generate random 64-bit integers
@@ -120,6 +132,7 @@ module stdlib_random
120132
! 0xbf58476d1ce4e5b9, 0x94d049bb133111eb
121133

122134
res = optval(s, si)
135+
123136
si = res + int01
124137
res = ieor(res, shiftr(res, 30)) * int02
125138
res = ieor(res, shiftr(res, 27)) * int03

src/stdlib_stats_distribution_uniform.fypp

+1-1
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ module stdlib_stats_distribution_uniform
2626
!! ([Specification](../page/specs/stdlib_stats_distribution_uniform.html#
2727
!! rvs_uniform-uniform-distribution-random-variates))
2828

29-
module procedure rvs_unif_0_rsp ! 0 dummy variable
29+
module procedure rvs_unif_0_r${REAL_KINDS[0]}$ ! 0 dummy variable
3030

3131
#:for k1, t1 in ALL_KINDS_TYPES
3232
module procedure rvs_unif_1_${t1[0]}$${k1}$ ! 1 dummy variable

0 commit comments

Comments
 (0)