spbt/timers_bt.for

! *** generated by SAPFOR with version 2412 and build date: Apr 29 2025 22:44:14
! *** Enabled options ***:
! *** maximum shadow width is 50 percent
! *** generated by SAPFOR

!---------------------------------------------------------------------
!---------------------------------------------------------------------
      subroutine timer_clear_bt (n)

!---------------------------------------------------------------------
!---------------------------------------------------------------------
      implicit none
      integer ::  n
      double precision ::  start(64),elapsed(64)
      common /tt/start,elapsed
      elapsed(n) = 0.0
      return 
      end


!---------------------------------------------------------------------
!---------------------------------------------------------------------
      subroutine timer_start_bt (n)

!---------------------------------------------------------------------
!---------------------------------------------------------------------
      implicit none
      external elapsed_time_bt
      double precision ::  elapsed_time_bt
      integer ::  n
      double precision ::  start(64),elapsed(64)
      common /tt/start,elapsed
      start(n) = elapsed_time_bt ()
      return 
      end


!---------------------------------------------------------------------
!---------------------------------------------------------------------
      subroutine timer_stop_bt (n)

!---------------------------------------------------------------------
!---------------------------------------------------------------------
      implicit none
      external elapsed_time_bt
      double precision ::  elapsed_time_bt
      integer ::  n
      double precision ::  start(64),elapsed(64)
      common /tt/start,elapsed
      double precision ::  t,now
      now = elapsed_time_bt ()
      t = now - start(n)
      elapsed(n) = elapsed(n) + t
      return 
      end


!---------------------------------------------------------------------
!---------------------------------------------------------------------
      double precision  function timer_read_bt (n) 

!---------------------------------------------------------------------
!---------------------------------------------------------------------
      implicit none
      integer ::  n
      double precision ::  start(64),elapsed(64)
      common /tt/start,elapsed
      timer_read_bt = elapsed(n)
      return 
      end


!---------------------------------------------------------------------
!---------------------------------------------------------------------
      double precision  function elapsed_time () 

!---------------------------------------------------------------------
!---------------------------------------------------------------------
      implicit none
      double precision ::  t,dvtime
      integer ::  dvm_debug

!      dvm_debug = 0 - standard mode, dvm_debug > 0 - debugging mode
      parameter (dvm_debug = 0)
      data t/0.d0/
      t = dvtime ()
      elapsed_time = t
      return 
      end