Generates a random number on (0,1)-real-interval
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(mt19937), | intent(inout) | :: | me |
real(r8) function genrand64_real3(me)
!! Generates a random number on (0,1)-real-interval
implicit none
class(mt19937),intent(inout) :: me
genrand64_real3 = real(ishft(me%genrand64_int64(), -12), kind=r8)
genrand64_real3 = (genrand64_real3 + 0.5_r8) * pi252
end function genrand64_real3