get_rnd_seed_length Function

  1. ran.fpp
  2. ran
  3. get_rnd_seed_length

public function get_rnd_seed_length() result(l)

Gets the length of the integer vector for the random number generator seed. This is always 1 for the Mersenne case but otherwise depends on the compiler version.

Arguments

None

Return Value integer


Contents

Source Code

get_rnd_seed_length

Source Code

  function get_rnd_seed_length () result (l)
    implicit none
    integer :: l
# if RANDOM == _RANMT_
    l=1
# else
    call random_seed(size=l)
# endif
  end function get_rnd_seed_length