genrand64_real1 Function

private function genrand64_real1(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_real1~~CallsGraph proc~genrand64_real1 mt19937%genrand64_real1 proc~genrand64_int64 mt19937%genrand64_int64 proc~genrand64_real1->proc~genrand64_int64 proc~init_genrand64 mt19937%init_genrand64 proc~genrand64_int64->proc~init_genrand64

Called by

proc~~genrand64_real1~~CalledByGraph proc~genrand64_real1 mt19937%genrand64_real1 proc~urand pikaia_class%urand proc~urand->proc~genrand64_real1 proc~cross pikaia_class%cross proc~cross->proc~urand proc~mutate pikaia_class%mutate proc~mutate->proc~urand proc~pikaia pikaia_class%pikaia proc~pikaia->proc~urand proc~pikaia->proc~cross proc~pikaia->proc~mutate proc~select_parents pikaia_class%select_parents proc~pikaia->proc~select_parents proc~stdrep pikaia_class%stdrep proc~pikaia->proc~stdrep proc~select_parents->proc~urand proc~stdrep->proc~urand proc~solve_with_pikaia pikaia_class%solve_with_pikaia proc~solve_with_pikaia->proc~pikaia program~test_algen test_algen program~test_algen->proc~solve_with_pikaia

Source Code

  real(r8) function genrand64_real1(me)
    !! Generates a random number on [0,1]-real-interval
    implicit none
    class(mt19937),intent(inout) :: me

    genrand64_real1 = real(ishft(me%genrand64_int64(), -11), kind=r8) * pi253_1

  end function genrand64_real1