w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Tweak for consistency.

Browse Source
This commit is contained in:
Steve Franke 2019-07-12 10:41:09 -05:00
parent fb6e2861c0
commit f224790569
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/ft8/subtractft8.f90
View File

@ -20,12 +20,11 @@ subroutine subtractft8(dd,itone,f0,dt)
save first save first
nstart=dt*12000+1 nstart=dt*12000+1
! call genft8refsig(itone,cref,f0)
nsym=79 nsym=79
nsps=1920 nsps=1920
fs=12000.0 fs=12000.0
icmplx=1 icmplx=1
bt=4.0 ! Temporary compromise? bt=2.0
call gen_ft8wave(itone,nsym,nsps,bt,fs,f0,cref,xjunk,icmplx,NFRAME) call gen_ft8wave(itone,nsym,nsps,bt,fs,f0,cref,xjunk,icmplx,NFRAME)
camp=0. camp=0.
do i=1,nframe do i=1,nframe