init_u_random Subroutine

  1. korc_rnd_numbers.f90
  2. korc_rnd_numbers
  3. init_u_random

public subroutine init_u_random(seed)

Arguments

Type IntentOptional AttributesName
integer(kind=8), intent(in) :: seed

Calls

proc~~init_u_random~~CallsGraph proc~init_u_random init_u_random proc~rand_int64 rand_int64 proc~init_u_random->proc~rand_int64

Called by

proc~~init_u_random~~CalledByGraph proc~init_u_random init_u_random proc~disk disk proc~disk->proc~init_u_random proc~gaussian_torus gaussian_torus proc~gaussian_torus->proc~init_u_random proc~elliptic_torus elliptic_torus proc~elliptic_torus->proc~init_u_random proc~exponential_elliptic_torus exponential_elliptic_torus proc~exponential_elliptic_torus->proc~init_u_random proc~gaussian_elliptic_torus gaussian_elliptic_torus proc~gaussian_elliptic_torus->proc~init_u_random proc~exponential_torus exponential_torus proc~exponential_torus->proc~init_u_random

Contents

Source Code

init_u_random

Source Code

subroutine init_u_random(seed)
	INTEGER(8), INTENT(IN) :: seed
	INTEGER(8)             :: dummy_int64

	urand_vars%u = seed**urand_vars%v
	call rand_int64()
	urand_vars%v = urand_vars%u
	call rand_int64()
	urand_vars%w = urand_vars%v
	call rand_int64()
end subroutine init_u_random