w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-30 05:12:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Correct the logic that determines when the Q65 red sync curve is plotted.

Browse Source
This commit is contained in:
Joe Taylor 2023-02-18 08:46:13 -05:00
parent f1dbb8d134
commit 56dfb99a5d
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/qra/q65/q65.f90
View File

@ -125,10 +125,7 @@ subroutine q65_dec0(iavg,iwave,ntrperiod,nfqso,ntol,lclearave, &
lclearave=.false. lclearave=.false.
endif endif
ccf1=0. ccf1=0.
if(iavg.eq.0) then if(iavg.eq.0) ccf2=0.
ccf2=0.
ccf2_avg=0.
endif
dtstep=nsps/(NSTEP*12000.0) !Step size in seconds dtstep=nsps/(NSTEP*12000.0) !Step size in seconds
lag1=-1.0/dtstep lag1=-1.0/dtstep
lag2=1.0/dtstep + 0.9999 lag2=1.0/dtstep + 0.9999
@ -694,16 +691,15 @@ subroutine q65_write_red(iz,xdt,ccf2_avg,ccf2)
call q65_sync_curve(ccf2_avg,1,iz,rms1) call q65_sync_curve(ccf2_avg,1,iz,rms1)
call q65_sync_curve(ccf2,1,iz,rms2) call q65_sync_curve(ccf2,1,iz,rms2)
rewind 17
write(17,1000) xdt,minval(ccf2_avg),maxval(ccf2_avg)
i1=max(1,nint(nfa/df)) i1=max(1,nint(nfa/df))
i2=min(iz,int(nfb/df)) i2=min(iz,int(nfb/df))
y0=minval(ccf2(i1:i2)) y0=minval(ccf2(i1:i2))
y0_avg=minval(ccf2_avg(i1:i2)) y0_avg=minval(ccf2_avg(i1:i2))
g=0.4 g=0.4
g_avg=0. g_avg=0.
if(maxval(ccf2_avg(i1:i2)).ne.y0_avg) g_avg=g if(navg(iseq).ge.2) g_avg=g
rewind 17
write(17,1000) xdt,g_avg*minval(ccf2_avg),g_avg*maxval(ccf2_avg)
do i=i1,i2 do i=i1,i2
freq=i*df freq=i*df
y1=g_avg*(ccf2_avg(i)-y0_avg) y1=g_avg*(ccf2_avg(i)-y0_avg)