From f4475740c1ed852287f101198e3256c6e6ba9df0 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 16 Jan 2023 14:56:33 -0500
Subject: [PATCH] Temporary debugging statements to help tracing problem with
 nagain=1 decodes.

---
 q65w/getfile.cpp     |  1 +
 q65w/libq65/q65c.f90 | 16 ++++++++++++----
 q65w/mainwindow.cpp  |  1 +
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/q65w/getfile.cpp b/q65w/getfile.cpp
index edbae0337..df6a637a7 100644
--- a/q65w/getfile.cpp
+++ b/q65w/getfile.cpp
@@ -26,6 +26,7 @@ void getfile(QString fname, bool xpol, int dbDgrd)
     n = fread(id,2,npts,fp);
     Q_UNUSED (n);
     int j=0;
+    qDebug() << "aaa" << datcom_.fcenter;
 
     if(dbDgrd<0) {
       for(int i=0; i<npts; i+=2) {
diff --git a/q65w/libq65/q65c.f90 b/q65w/libq65/q65c.f90
index 9a127757b..d37a751a9 100644
--- a/q65w/libq65/q65c.f90
+++ b/q65w/libq65/q65c.f90
@@ -35,13 +35,21 @@ subroutine q65c(itimer)
      return
   endif
 
+!  newdat=1
+!  nagain=0
+  write(*,3001) 'aa',newdat,nagain,nfa,nfb,ntol
+3001 format(a2,5i6)
+
   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
+!  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
+!     newdat=1
+!     nagain=0
+!  endif
+  write(*,3001) 'bb',newdat,nagain,nfa,nfb,ntol
 
   call timer('decode0 ',0)
   call decode0(dd,ss,savg)
diff --git a/q65w/mainwindow.cpp b/q65w/mainwindow.cpp
index 2d1561f4a..39abd4700 100644
--- a/q65w/mainwindow.cpp
+++ b/q65w/mainwindow.cpp
@@ -891,6 +891,7 @@ void MainWindow::decode()                                       //decode()
 
   datcom_.nfa=nfa;
   datcom_.nfb=nfb;
+  qDebug() << "bbb" << datcom_.fcenter << datcom_.nfa << datcom_.nfb;
   datcom_.nfcal=m_fCal;
   datcom_.nfshift=nfshift;
   datcom_.mcall3=0;