initial

2025-05-06 22:04:43 +03:00
commit 784a8f2ec7
29 changed files with 5922 additions and 0 deletions
--- a/timers_bt.for
+++ b/timers_bt.for
@@ -0,0 +1,91 @@
+
+! *** 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
+