zero.f

网络带宽测试工具

      Subroutine zero( n, a )
! ----------------------------------------------------------------------
      Use         numerics
      Implicit    None

      Integer  :: n
      Real(l_) :: a(n)
! ----------------------------------------------------------------------
      a = 0.0_l_
! ----------------------------------------------------------------------
      End Subroutine zero