ranfil.f

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

      Subroutine ranfil( a, n, me, nprocs, x1, x2 )
! ----------------------------------------------------------------------
      Use           numerics
      Implicit      None

      Integer    :: n, nprocs, me
      Integer(8) :: x1, x2
      Real(l_)   :: a(n)

      Integer    :: i      
      Real(l_)   :: dran2
! ----------------------------------------------------------------------
      Do i = nprocs+me+1, n, nprocs
         a(i) = dran2( x1, x2 )
      End Do
! ----------------------------------------------------------------------
      End Subroutine ranfil