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

Minor code cleanup in subtractft9.f90.

Browse Source
This commit is contained in:
Joe Taylor 2020-02-26 13:14:49 -05:00
parent 65fda32a05
commit 00210d1141
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/ft8/subtractft8.f90
View File

@ -37,15 +37,13 @@ subroutine subtractft8(dd0,itone,f0,dt,ldt)
first=.false. first=.false.
endif endif
! Generate complex reference waveform ! Generate complex reference waveform cref
call gen_ft8wave(itone,79,1920,2.0,12000.0,f0,cref,xjunk,1,NFRAME) call gen_ft8wave(itone,79,1920,2.0,12000.0,f0,cref,xjunk,1,NFRAME)
if(ldt) then !Are we refining DT ? if(ldt) then !Are we refining DT ?
sqa=sqf(-300) sqa=sqf(-300)
sqb=sqf(300) sqb=sqf(300)
endif
sq0=sqf(0) !Do the subtraction with idt=0 sq0=sqf(0) !Do the subtraction with idt=0
if(ldt) then
call peakup(sqa,sq0,sqb,dx) call peakup(sqa,sq0,sqb,dx)
if(abs(dx).gt.1.0) return !No acceptable minimum: do not subtract if(abs(dx).gt.1.0) return !No acceptable minimum: do not subtract
i1=nint(300.0*dx) !First approximation of best idt i1=nint(300.0*dx) !First approximation of best idt
@ -56,9 +54,10 @@ subroutine subtractft8(dd0,itone,f0,dt,ldt)
if(abs(dx).gt.1.0) return !No acceptable minimum: do not subtract if(abs(dx).gt.1.0) return !No acceptable minimum: do not subtract
i2=nint(60.0*dx) + i1 !Best estimate of idt i2=nint(60.0*dx) + i1 !Best estimate of idt
sq0=sqf(i2) !Do the subtraction with idt=i2 sq0=sqf(i2) !Do the subtraction with idt=i2
else
sq0=sqf(0) !Do the subtraction with idt=0
endif endif
dd0=dd !Return dd0 with this signal subtracted dd0=dd !Return dd0 with this signal subtracted
return return
contains contains