w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-01 13:42:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

Un-hardwire sync.

Browse Source
This commit is contained in:
Steve Franke 2019-01-25 16:06:45 -06:00
parent 8baf48701e
commit 9fa08d3838
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft4/ft4d.f90
View File

@ -124,11 +124,11 @@ program ft4d
enddo enddo
f0=f0+dfbest f0=f0+dfbest
f0=1443.75 !f0=1443.75
call ft4_downsample(iwave,f0,cb) ! downsample from 320s/Symbol to 20s/Symbol call ft4_downsample(iwave,f0,cb) ! downsample from 320s/Symbol to 20s/Symbol
sum2=sum(abs(cb)**2)/(20.0*76) sum2=sum(abs(cb)**2)/(20.0*76)
if(sum2.gt.0.0) cb=cb/sqrt(sum2) if(sum2.gt.0.0) cb=cb/sqrt(sum2)
ibest=208 !ibest=208
cd=cb(ibest:ibest+76*20-1) cd=cb(ibest:ibest+76*20-1)
do k=1,NN do k=1,NN
i1=(k-1)*20 i1=(k-1)*20