cparrs.f

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

      Subroutine cparrs( sa, ta, b, n )
! ----------------------------------------------------------------------
! --- 'cparrs' copies the source arrays 'sa' into the target
!     arrays 'ta' and initialises 'b' to 0.0.
! ----------------------------------------------------------------------
      Use         numerics
      Implicit    None

      Integer  :: n
      Real(l_) :: sa(n), ta(n), b(n)
! ----------------------------------------------------------------------
      ta = sa
      b  = 0.0_l_
! ----------------------------------------------------------------------
      End Subroutine cparrs