ranint.f

来自「网络带宽测试工具」· F 代码 · 共 24 行

      Subroutine ranint( low, hi, n, ranint_array )
! ---------------------------------------------------------------------
! --- Routine 'ranint' generates an random array of 'n' integers with 
!     values in the range [low, hi]. When [low, hi] = [1,n], 
!     'ranint_array' is not neccesarily a permutation, i.e., 
!      ranint_array(i) might be equal to ranint_array(j) for some i, j.
! ---------------------------------------------------------------------
      Implicit                              None
      Integer, Intent(in)                :: low, hi, n
      Integer, Dimension(n), Intent(out) :: ranint_array

      Real, Dimension(n)                 :: dummy
      Integer, Dimension(n)              :: seed
      Integer                            :: i
! ---------------------------------------------------------------------
      Do i = 1, n
         seed(i) = 229*n + i
      End Do
      Call random_seed( Put = seed(1:n) )
      Call random_number( dummy )
      ranint_array = Int( ( hi - low + 1)*dummy + low )
! ---------------------------------------------------------------------
      End Subroutine ranint