ddummy.f

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

      Subroutine ddummy( a, i )
! ----------------------------------------------------------------------
! --- Subroutine that is only called to ftrustrate overoptimisation
!     in loops doing identical operations.
! ----------------------------------------------------------------------
      Use                   numerics
      Implicit              None

      Real(l_) :: a(*)
      Integer  :: i

      Real(l_) :: ai
! ----------------------------------------------------------------------
      ai = a(i)
! ----------------------------------------------------------------------
      End Subroutine ddummy