genrand64_real3 Function

private function genrand64_real3(me)

Generates a random number on (0,1)-real-interval

Type Bound

mt19937

Arguments

Type IntentOptional Attributes Name
class(mt19937), intent(inout) :: me

Return Value real(kind=r8)


Calls

proc~~genrand64_real3~~CallsGraph proc~genrand64_real3 mt19937%genrand64_real3 proc~genrand64_int64 mt19937%genrand64_int64 proc~genrand64_real3->proc~genrand64_int64 proc~init_genrand64 mt19937%init_genrand64 proc~genrand64_int64->proc~init_genrand64

Source Code

  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