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~perturb_and_evaluate simulated_annealing_type%perturb_and_evaluate proc~perturb_and_evaluate->proc~uniform proc~sa simulated_annealing_type%sa proc~sa->proc~perturb_and_evaluate

Source Code

    function uniform(xl,xu)

    implicit none

    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