From 0b557adeb1914d5804812f296d38257dbf352780 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 19 May 2021 12:16:47 -0400
Subject: [PATCH] If q3 decode succeeds, return immediately from q65_dec0().

---
 lib/qra/q65/q65.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index d93d17d54..0e3e8ab4f 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -162,6 +162,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave,  &
      call timer('list_dec',0)
      call q65_dec_q3(s1,iz,jz,s3,LL,ipk,jpk,snr2,dat4,idec,decoded)
      call timer('list_dec',1)
+     if(idec.eq.3) go to 900         !Good q3 decode, we're done
   endif
 
   if(iavg.eq.0) then