From 173aab72e79c5a2d0fe3719982d579eab68b79a1 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 12 Dec 2022 15:15:18 -0500
Subject: [PATCH] Cleaning up compiler warnings ...

---
 lib/qra/q65/q65_set_list.f90  |  4 ++--
 q65w/libq65/q65wa.f90         |  2 +-
 q65w/libq65/wideband_sync.f90 | 11 +++++------
 3 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/lib/qra/q65/q65_set_list.f90 b/lib/qra/q65/q65_set_list.f90
index 22d501a5f..0b836bdeb 100644
--- a/lib/qra/q65/q65_set_list.f90
+++ b/lib/qra/q65/q65_set_list.f90
@@ -3,7 +3,7 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
   parameter (MAX_NCW=206)
   character*12 mycall,hiscall
   character*6 hisgrid
-  character*37 msg0,msg,msgsent
+  character*37 msg,msgsent
   logical my_std,his_std
   integer codewords(63,MAX_NCW)
   integer itone(85)
@@ -45,7 +45,7 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
         endif
      endif
 
-10   call genq65(msg,0,msgsent,itone,i3,n3)
+     call genq65(msg,0,msgsent,itone,i3,n3)
      i0=1
      j=0
      do k=1,85
diff --git a/q65w/libq65/q65wa.f90 b/q65w/libq65/q65wa.f90
index 73574efb1..dd3194625 100644
--- a/q65w/libq65/q65wa.f90
+++ b/q65w/libq65/q65wa.f90
@@ -54,7 +54,7 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb,        &
 
   if(nagain.eq.0) then
      call timer('get_cand',0)
-     call get_candidates(ss,savg,xpol,nhsym,mfa,mfb,nts_jt65,nts_q65,cand,ncand)
+     call get_candidates(ss,savg,nhsym,mfa,mfb,nts_jt65,nts_q65,cand,ncand)
      call timer('get_cand',1)
      candec=.false.
   endif
diff --git a/q65w/libq65/wideband_sync.f90 b/q65w/libq65/wideband_sync.f90
index 77fc27258..d98045600 100644
--- a/q65w/libq65/wideband_sync.f90
+++ b/q65w/libq65/wideband_sync.f90
@@ -26,7 +26,7 @@ module wideband_sync
 
   contains
 
-subroutine get_candidates(ss,savg,xpol,jz,nfa,nfb,nts_jt65,nts_q65,cand,ncand)
+subroutine get_candidates(ss,savg,jz,nfa,nfb,nts_jt65,nts_q65,cand,ncand)
 
 ! Search symbol spectra ss() over frequency range nfa to nfb (in kHz) for
 ! JT65 and Q65 sync patterns. The nts_* variables are the submode tone
@@ -37,12 +37,12 @@ subroutine get_candidates(ss,savg,xpol,jz,nfa,nfb,nts_jt65,nts_q65,cand,ncand)
   real ss(322,NFFT),savg(NFFT)
   real pavg(-20:20)
   integer indx(NFFT)
-  logical xpol,skip,ldecoded
+  logical skip,ldecoded
   type(candidate) :: cand(MAX_CANDIDATES)
   type(candidate) :: cand0(MAX_CANDIDATES)
   common/early/nhsym1,nhsym2,ldecoded(32768)
 
-  call wb_sync(ss,savg,xpol,jz,nfa,nfb)          !Output to sync() array
+  call wb_sync(ss,savg,jz,nfa,nfb)          !Output to sync() array
 
   tstep=2048.0/11025.0        !0.185760 s: 0.5*tsym_jt65, 0.3096*tsym_q65
   df3=96000.0/NFFT
@@ -114,7 +114,7 @@ subroutine get_candidates(ss,savg,xpol,jz,nfa,nfb,nts_jt65,nts_q65,cand,ncand)
   return
 end subroutine get_candidates
 
-subroutine wb_sync(ss,savg,xpol,jz,nfa,nfb)
+subroutine wb_sync(ss,savg,jz,nfa,nfb)
 
 ! Compute "orange sync curve" using the Q65 sync pattern
 
@@ -124,8 +124,7 @@ subroutine wb_sync(ss,savg,xpol,jz,nfa,nfb)
   real ss(322,NFFT)
   real savg(NFFT)
   real savg_med
-  real a(3)
-  logical first,xpol
+  logical first
   integer isync(22)
   integer jsync0(63),jsync1(63)
   integer ip(1)