time_elapsed.f90

来自「Smoothe d Particle Hydrodynamics Source 」· F90 代码 · 共 15 行

   subroutine time_elapsed(s)

!===============================================================================
!   The standard Fortran 90 routine RTC is used to calculate the elapsed CPU
!===============================================================================

    use dfport
    implicit none

    integer, parameter :: output = 6
    real(8) :: s

   s = rtc()

   end subroutine time_elapsed