From c9ce452500a2de66b5c5d71eac83277059ebd1db Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 12 Jan 2021 14:42:00 -0500
Subject: [PATCH] Code cleanup.

---
 lib/qra/q65/q65_sync.f90 | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/lib/qra/q65/q65_sync.f90 b/lib/qra/q65/q65_sync.f90
index 96ce49129..968889ddd 100644
--- a/lib/qra/q65/q65_sync.f90
+++ b/lib/qra/q65/q65_sync.f90
@@ -99,23 +99,22 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps,   &
   j0=0.5/dtstep
   if(nsps.ge.7200) j0=1.0/dtstep              !Nominal start-signal index
 
-  if(ncw.lt.1) go to 100
+  irc=-2
+  idec=-1
+  dat4=0
 
-!######################################################################
+  if(ncw.gt.0) then
 ! Try list decoding via "Deep Likelihood".
-  call timer('list_dec',0)
-  call q65_dec_q3(codewords,ncw,isync,sync,df,s1,iz,jz,ia,ibwa,ibwb,      &
-       nstep,nsps,mode_q65,lag1,lag2,i0,j0,ccf,ccf1,ccf2,ia2,s3,LL,snr2,  &
-       dat4,idec,decoded)
-  call timer('list_dec',1)
-  if(idec.lt.0) then
-     irc=-2
-     dat4=0
+     call timer('list_dec',0)
+     call q65_dec_q3(codewords,ncw,isync,sync,df,s1,iz,jz,ia,ibwa,ibwb,      &
+          nstep,nsps,mode_q65,lag1,lag2,i0,j0,ccf,ccf1,ccf2,ia2,s3,LL,snr2,  &
+          dat4,idec,decoded)
+     call timer('list_dec',1)
   endif
 
 !######################################################################
 ! Compute the 2D CCF using sync symbols only
-100 ccf=0.
+  ccf=0.
   call timer('2dccf   ',0)
   do lag=lag1,lag2
      do k=1,85