From af04310f9369ca0eac27d65e7b5874f26714cd33 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 16 Jan 2023 18:51:57 -0500
Subject: [PATCH] Remove some diagnostic write statements.  Still needs
 cleanup!

---
 q65w/getfile.cpp      |  2 +-
 q65w/libq65/q65c.f90  | 13 ++++---------
 q65w/libq65/q65wa.f90 |  4 ++--
 q65w/mainwindow.cpp   |  2 +-
 4 files changed, 8 insertions(+), 13 deletions(-)

diff --git a/q65w/getfile.cpp b/q65w/getfile.cpp
index df6a637a7..f06d7c03d 100644
--- a/q65w/getfile.cpp
+++ b/q65w/getfile.cpp
@@ -26,7 +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;
+//    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 8a6f550e5..dc2ba2c4a 100644
--- a/q65w/libq65/q65c.f90
+++ b/q65w/libq65/q65c.f90
@@ -37,16 +37,11 @@ subroutine q65c(itimer)
 
   datetime(18:20)=':00'
   npatience=1
+  newdat=1                          !Always on ??
 
-  if(nagain.eq.1) then
-!     nfa=127
-!     nfb=128
-     newdat=1
-!     nagain=0
-  endif
-  write(*,3001) 'aa',newdat,nagain,nfa,nfb,ntol,fselected
-3001 format(a2,5i6,f10.3)
-  write(*,3001) 'bb',newdat,nagain,nfa,nfb,ntol,fselected
+!  write(*,3001) 'aa',newdat,nagain,nfa,nfb,ntol,fselected
+!3001 format(a2,5i6,f10.3)
+!  write(*,3001) 'bb',newdat,nagain,nfa,nfb,ntol,fselected
 
   call timer('decode0 ',0)
   call decode0(dd,ss,savg)
diff --git a/q65w/libq65/q65wa.f90 b/q65w/libq65/q65wa.f90
index 6c5d3e406..34e335c67 100644
--- a/q65w/libq65/q65wa.f90
+++ b/q65w/libq65/q65wa.f90
@@ -56,10 +56,10 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,         &
   do icand=1,ncand                        !Attempt to decode each candidate
      f0=cand(icand)%f
 !     if(f0-mfa.lt.0.0 .or. f0-mfb.gt.0.0) cycle
-     print*,'cc',nagain,ntol,fselected,f0+nkhz_center-48.0
+!     print*,'cc',nagain,ntol,fselected,f0+nkhz_center-48.0
      if(nagain.eq.1 .and. abs(f0+nkhz_center-48.0 - fselected).gt.0.001*ntol) cycle
      nagain2=0
-     print*,'dd',nagain,ntol,fselected,f0+nkhz_center-48.0
+!     print*,'dd',nagain,ntol,fselected,f0+nkhz_center-48.0
      freq=cand(icand)%f+nkhz_center-48.0-1.27046
      ikhz=nint(freq)
      idec=-1
diff --git a/q65w/mainwindow.cpp b/q65w/mainwindow.cpp
index 70ced7083..2718ee986 100644
--- a/q65w/mainwindow.cpp
+++ b/q65w/mainwindow.cpp
@@ -885,7 +885,7 @@ void MainWindow::decode()                                       //decode()
 
   datcom_.nfa=nfa;
   datcom_.nfb=nfb;
-  qDebug() << "bbb" << datcom_.fcenter << datcom_.nfa << datcom_.nfb << datcom_.fselected;
+//  qDebug() << "bbb" << datcom_.fcenter << datcom_.nfa << datcom_.nfb << datcom_.fselected;
   datcom_.nfcal=m_fCal;
   datcom_.nfshift=nfshift;
   datcom_.mcall3=0;