Zero the red curve in we're not trying for q3 decodes.

This commit is contained in:
Joe Taylor 2021-01-30 15:23:30 -05:00
parent 9e822d1806
commit b8ea4c1c2c
1 changed files with 1 additions and 0 deletions

View File

@ -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