uniform Function

private function uniform(xl, xu)

Uniform random number on the interval [xl,xu].

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: xl

lower bound
real(kind=wp), intent(in) :: xu

upper bound

Return Value real(kind=wp)


Calls

proc~~uniform~~CallsGraph proc~uniform uniform proc~uniform_random_number uniform_random_number proc~uniform->proc~uniform_random_number

Called by

proc~~uniform~~CalledByGraph proc~uniform uniform proc~bipareto bipareto proc~bipareto->proc~uniform proc~perturb_variable simulated_annealing_type%perturb_variable proc~perturb_variable->proc~uniform proc~perturb_variable->proc~bipareto proc~truncated_normal truncated_normal proc~perturb_variable->proc~truncated_normal proc~truncated_normal->proc~uniform proc~perturb_and_evaluate simulated_annealing_type%perturb_and_evaluate proc~perturb_and_evaluate->proc~perturb_variable proc~sa simulated_annealing_type%sa proc~sa->proc~perturb_and_evaluate proc~solve_simulated_annealing solve_simulated_annealing proc~solve_simulated_annealing->proc~sa

Source Code

   function uniform(xl,xu)

      real(wp),intent(in) :: xl !! lower bound
      real(wp),intent(in) :: xu !! upper bound
      real(wp) :: uniform

      uniform = xl + (xu-xl)*uniform_random_number()

   end function uniform