fltimod.f

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

      Module floptime
! ---------------------------------------------------------------------
! --- floptime components keep track of flopcounts and execution times
!     for the program to be benchmarked.
! ---------------------------------------------------------------------
      Use           numerics
      Implicit      None

      Integer(8) :: flops
! ---------------------------------------------------------------------
      Contains

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

      Real(l_) :: walltime, cclock
! ----------------------------------------------------------------------

      walltime = cclock()

! ----------------------------------------------------------------------
      End Function wclock
! ----------------------------------------------------------------------
      End module floptime