From 5541d0f79283d0f320e6af103b3d681657d02c15 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 17 May 2021 10:43:21 -0400
Subject: [PATCH] Correct an obsolete use of nqd=2.  Avoid irrelevant code of
 "No JT65" was selected.

---
 map65/libm65/decode1a.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/map65/libm65/decode1a.f90 b/map65/libm65/decode1a.f90
index 648a5e803..4219c0043 100644
--- a/map65/libm65/decode1a.f90
+++ b/map65/libm65/decode1a.f90
@@ -28,7 +28,7 @@ subroutine decode1a(dd,newdat,f0,nflip,mode65,nfsample,xpol,            &
   call filbig(dd,NMAX,f0,newdat,nfsample,xpol,cx,cy,n5)
 ! NB: cx, cy have sample rate 96000*77125/5376000 = 1378.125 Hz
   call timer('filbig  ',1)
-  if(nqd.eq.2) goto 900
+  if(mode65.eq.0) goto 900
   sqa=0.
   sqb=0.
   do i=1,n5