From 9643e8a75332111c2c0e7a6d84109fcbb83c7875 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 27 Oct 2020 15:51:32 -0400
Subject: [PATCH] Code cleanup.

---
 lib/qra/q65/q65_loops.f90 | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/qra/q65/q65_loops.f90 b/lib/qra/q65/q65_loops.f90
index ea116fd9a..b2498e982 100644
--- a/lib/qra/q65/q65_loops.f90
+++ b/lib/qra/q65/q65_loops.f90
@@ -71,9 +71,12 @@ subroutine q65_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel,   &
               APmask=0
               APsymbols=0
               call q65_dec(s3,APmask,APsymbols,nsubmode,b90,nFadingModel,s3prob,snr2,dat4,irc)
+              ! irc > 0 ==> number of iterations required to decode
+              !  -1 = invalid params
+              !  -2 = decode failed
+              !  -3 = CRC mismatch
               call timer('qra64_de',1)
-              if(irc.eq.0) go to 200
-!              if(irc.gt.0) call badmsg(irc,dat4,nc1,nc2,ng2)
+              if(irc.ge.0) go to 200
               iirc=max(0,min(irc,11))
               if(irc.gt.0 .and. nap(iirc).lt.napmin) then
                  dat4x=dat4