argx.f

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

      Subroutine argx( a, b, n, x )
! ----------------------------------------------------------------------
! --- n random numbers in interval (a,b) are stored in array x
!     in ascending order.
! ----------------------------------------------------------------------
      Use                numerics
      Implicit           None

      Integer         :: n
      Real(l_)        :: a, b, x(n)

      Real(l_)        :: del, dran1, xl
      Integer         :: i

      Integer         :: ix
      Common /ran1iy/    ix
      External           dran1
! ----------------------------------------------------------------------
      del = ( b - a )/Real( n, l_ )
      xl  = a
      Do i = 1, n
         x(i) = a + del*dran1( ix )
      End Do
! ----------------------------------------------------------------------
      End Subroutine argx