correct.f

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

      Subroutine correct( nmult, linc, hash )
! -------------------------------------------------------------------
! --- 'correct' does the same address calculation as done in the
!     code to be timed. The time spent here is subtracted from the
!     time spent in the actual code of interest.
! -------------------------------------------------------------------
      Use       sizes
      Implicit  None

      Integer   :: nmult
      Integer*8 :: hash, linc

      Integer*8 :: i, l
! -------------------------------------------------------------------      
!$omp parallel do
      Do i = 1, nmult
         l = Abs( Mod( i*linc, hash ) )
      End Do
! -------------------------------------------------------------------
      End Subroutine correct