get_rnd_seed Subroutine

public subroutine get_rnd_seed(seed)

Returns the current value of the generator seed. This is not currently supported by the Mersenne generator so in this case we return 0.

Arguments

Type IntentOptional Attributes Name
integer, intent(out), dimension(:) :: seed

Contents

Source Code

get_rnd_seed

Source Code

  subroutine get_rnd_seed(seed)
    implicit none
    integer, dimension(:), intent(out) :: seed
# if RANDOM == _RANMT_
    !NOTE: If MT is generator, more coding needs to be done to
    !      extract seed, so this should be run using only randomize
    seed=0
# else
    call random_seed(get=seed)
# endif
  end subroutine get_rnd_seed