Add a simple execution timer for small blocks of code.

2020-07-22 10:43:33 -04:00 · 2020-07-22 10:43:33 -04:00 · 372651ae55
parent 52643b01e2
commit 372651ae55
2 changed files with 22 additions and 0 deletions
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@ -548,6 +548,7 @@ set (wsjt_FSRCS
  lib/qra64a.f90
  lib/refspectrum.f90
  lib/savec2.f90
+  lib/sec0.f90
  lib/sec_midn.f90
  lib/setup65.f90
  lib/sh65.f90
--- a/lib/sec0.f90
+++ b/lib/sec0.f90
@ -0,0 +1,21 @@
+subroutine sec0(n,t)
+
+  ! Simple execution timer.
+  ! call sec0(0,t)
+  ! ... statements to be timed ...
+  ! call sec0(1,t)
+  ! print*,'Execution time:',t
+
+  integer*8 count0,count1,clkfreq
+  save count0
+
+  call system_clock(count1,clkfreq)
+  if(n.eq.0) then
+     count0=count1
+     return
+  else
+     t=float(count1-count0)/float(clkfreq)
+  endif
+
+  return
+end subroutine sec0