sizemod.f

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

      Module sizes
! -------------------------------------------------------------------
! --- Contains declaration of array 'a'. This is done in a separate
!     module to frustrate overoptimisation in the computing routines
!     to be measured.
! --- 'li' is the largest 4-byte Integer, used to correct the indices
!     of 'a' in address calculations.
! -------------------------------------------------------------------
      Use numerics
      
      Integer, Parameter :: length = 1 050 000
      Real(l_)           :: a(length)
      Integer            :: li = 2147483647 ! Largest 4-byte Integer
! -------------------------------------------------------------------
      End Module sizes