From 5bacc2d763e9013a20554931e60e61ebbf863a92 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 22 Dec 2023 15:50:17 -0500
Subject: [PATCH] Click-to-decode should return ieediately after one success.

---
 qmap/libqmap/chkstat.f90 | 1 -
 qmap/libqmap/qmapa.f90   | 1 +
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/qmap/libqmap/chkstat.f90 b/qmap/libqmap/chkstat.f90
index 6d5680338..0bb7051e5 100644
--- a/qmap/libqmap/chkstat.f90
+++ b/qmap/libqmap/chkstat.f90
@@ -18,7 +18,6 @@ subroutine chkstat(dd,ihsym,bSkip)
   n2=count(power(31:60).lt.15.0)
   if(ihsym.le.200 .and. n1.gt.15) bSkip=.true.
   if(ihsym.gt.200 .and. n2.gt.15) bSkip=.true.
-!  print*,'A',ihsym,n1,n2,bSkip
 
   return
 end subroutine chkstat
diff --git a/qmap/libqmap/qmapa.f90 b/qmap/libqmap/qmapa.f90
index 3d063d133..288b87570 100644
--- a/qmap/libqmap/qmapa.f90
+++ b/qmap/libqmap/qmapa.f90
@@ -79,6 +79,7 @@ subroutine qmapa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,         &
 ! Don't start another decode attempt if it's too late...
      if(nhsym.eq.330 .and. tsec.gt.6.0) exit
      if(tsec.gt.16.0) exit
+     if(bClickDecode .and. idec.ge.0) exit
   enddo  ! icand
 
   return