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

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