From b8ea4c1c2ccca6418cca30922312b73b95979ba2 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 30 Jan 2021 15:23:30 -0500
Subject: [PATCH] Zero the red curve in we're not trying for q3 decodes.

---
 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 7db539e7b..0162d66d3 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -180,6 +180,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave,  &
   enddo
   width=df*(i2-i1)
 
+  if(ncw.eq.0) ccf1=0.
   call q65_write_red(ia2,nfqso,xdt,ccf1,ccf2)
 
   if(iavg.eq.2) then