timer.f

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

      Function timer()                                 Result( time )
! ---------------------------------------------------------------------
      Use numerics
      Include 'mpif.h'
      real(l_) :: time
! ---------------------------------------------------------------------
      time = MPI_Wtime()
! ---------------------------------------------------------------------
      End Function timer