zero.f

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

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

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