urand Function

private function urand(me) result(r)

Return the next pseudo-random deviate from a sequence which is uniformly distributed in the interval [0,1]

Type Bound

pikaia_class

Arguments

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

Return Value real(kind=wp)


Calls

proc~~urand~~CallsGraph proc~urand pikaia_module::pikaia_class%urand genrand64_real1 genrand64_real1 proc~urand->genrand64_real1

Called by

proc~~urand~~CalledByGraph proc~urand pikaia_module::pikaia_class%urand proc~cross pikaia_module::pikaia_class%cross proc~cross->proc~urand proc~mutate pikaia_module::pikaia_class%mutate proc~mutate->proc~urand proc~pikaia pikaia_module::pikaia_class%pikaia proc~pikaia->proc~urand proc~pikaia->proc~cross proc~pikaia->proc~mutate proc~select_parents pikaia_module::pikaia_class%select_parents proc~pikaia->proc~select_parents proc~stdrep pikaia_module::pikaia_class%stdrep proc~pikaia->proc~stdrep proc~select_parents->proc~urand proc~stdrep->proc~urand proc~solve_with_pikaia pikaia_module::pikaia_class%solve_with_pikaia proc~solve_with_pikaia->proc~pikaia

Source Code

    function urand(me) result(r)

    implicit none

    class(pikaia_class),intent(inout) :: me

    real(wp) :: r

    r = me%rand%genrand64_real1()

    end function urand