wclock.f

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

      Function wclock()                               Result (walltime)
! ----------------------------------------------------------------------
      Use numerics
      Implicit None

! --- Function 'wclock()' gives wall-clock time in seconds. 
!     The function used here is the system routine 'gettimeofday'
!     through the routine 'cclock'. 

      Real(l_) :: walltime, cclock
!     Integer  :: count, count_rate
! ----------------------------------------------------------------------

      walltime = cclock()

!     Call system_clock ( count, count_rate )
!     walltime = Real( count, l_ )/Real( count_rate, l_ )
! ----------------------------------------------------------------------
      End Function wclock