timer.f

网络带宽测试工具

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