diff --git a/CMakeLists.txt b/CMakeLists.txt
index d2ed2459b..6f524a6f5 100644
--- 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
diff --git a/lib/sec0.f90 b/lib/sec0.f90
new file mode 100644
index 000000000..1ced602ed
--- /dev/null
+++ 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