From 8d0186bd2a9b52a64acf1b1ae065d8a02a58cfcb Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 17 Dec 2022 08:28:48 -0500
Subject: [PATCH] Minimal solution to activate double-click decodes in narrow
 frequency range.

---
 q65w/libq65/q65c.f90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/q65w/libq65/q65c.f90 b/q65w/libq65/q65c.f90
index f2b9d89ab..9a127757b 100644
--- a/q65w/libq65/q65c.f90
+++ b/q65w/libq65/q65c.f90
@@ -37,6 +37,12 @@ subroutine q65c(itimer)
 
   datetime(18:20)=':00'
   npatience=1
+
+  if(newdat.eq.0 .and. nagain.eq.1) then
+     nfa=nint(mousefqso+0.001*mousedf) - 1  !Minimal solution for
+     nfb=nint(mousefqso+0.001*mousedf) + 1  !double-click decodes
+  endif
+
   call timer('decode0 ',0)
   call decode0(dd,ss,savg)
   call timer('decode0 ',1)