From 7ae25b98f898540cff15de60ec9b6b8962d0fc50 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 18 May 2021 19:10:50 -0400
Subject: [PATCH] Don't try for a JT65 decode after calling decode1a with
 sync1=2.000.

---
 map65/libm65/map65a.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/map65/libm65/map65a.f90 b/map65/libm65/map65a.f90
index 3876486d0..ccaf53234 100644
--- a/map65/libm65/map65a.f90
+++ b/map65/libm65/map65a.f90
@@ -248,7 +248,8 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
                       a,dt,pol,nkv,nhist,nsum,nsave,qual,decoded)
                  call timer('decode1a',1)
 
-                 if(mode65.ne.0) then
+! The case sycc1=2.0 is just to make sure decode1a is called and bigfft done.
+                 if(mode65.ne.0 .and. sync1.ne.2.000000) then
                     if(km.lt.MAXMSG) km=km+1
                     sig(km,1)=nfile
                     sig(km,2)=nutc