set_seed_from_single_integer Subroutine

  1. ran.fpp
  2. ran
  3. set_seed_from_single_integer

public subroutine set_seed_from_single_integer(initial_seed)

Sets the seed for the random number generator provided by the standard based on a single integer. We use create_seed_from_single_integer to ensure we have enough values in the series rather than just duplicating this number.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: initial_seed

Contents

Source Code

set_seed_from_single_integer

Source Code

  subroutine set_seed_from_single_integer(initial_seed)
# if RANDOM == _RANMT_
    use mt19937, only: sgrnd
# endif
    implicit none
    integer, intent(in) :: initial_seed
# if RANDOM == _RANMT_
    call sgrnd(initial_seed)
# else
    call random_seed(put = create_seed_from_single_integer(initial_seed))
# endif
  end subroutine set_seed_from_single_integer