get_uniform_pos Subroutine

public subroutine get_uniform_pos(x)

Uses

  • proc~~get_uniform_pos~~UsesGraph proc~get_uniform_pos get_uniform_pos module~mod_global_parameters mod_global_parameters proc~get_uniform_pos->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Arguments

Type IntentOptional Attributes Name
double precision, intent(out) :: x(3)

Calls

proc~~get_uniform_pos~~CallsGraph proc~get_uniform_pos get_uniform_pos proc~unif_01_vec rng_t%unif_01_vec proc~get_uniform_pos->proc~unif_01_vec proc~unif_01 rng_t%unif_01 proc~unif_01_vec->proc~unif_01 proc~next rng_t%next proc~unif_01->proc~next proc~rotl rotl proc~next->proc~rotl

Source Code

  subroutine get_uniform_pos(x)
    use mod_global_parameters
    double precision, intent(out) :: x(3)

    call rng%unif_01_vec(x)

    x(1) = xprobmin1 + x(1) * (xprobmax1 - xprobmin1)
    x(2) = xprobmin2 + x(2) * (xprobmax2 - xprobmin2)
    x(3) = xprobmin3 + x(3) * (xprobmax3 - xprobmin3)
    x(ndim+1:) = 0.0d0
  end subroutine get_uniform_pos