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

Tweaks to sfox_remove_tone.

Browse Source
This commit is contained in:
Steven Franke 2024-09-24 10:07:40 -05:00
parent 4b37a41dc6
commit 4eceffa9a2
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/superfox/sfox_remove_tone.f90
View File

@ -35,7 +35,7 @@ subroutine sfox_remove_tone(c0,fsync)
df=fsample/NMAX df=fsample/NMAX
fac=1.0/NMAX fac=1.0/NMAX
do it=1,2 do it=1,1 ! Remove 1 tone, if present
cfilt=fac*c0 cfilt=fac*c0
call four2a(cfilt,NMAX,1,-1,1) ! fourier transform of input data call four2a(cfilt,NMAX,1,-1,1) ! fourier transform of input data
iz=NMAX/4 iz=NMAX/4
@ -43,8 +43,8 @@ subroutine sfox_remove_tone(c0,fsync)
s(i)=real(cfilt(i))**2 + aimag(cfilt(i))**2 s(i)=real(cfilt(i))**2 + aimag(cfilt(i))**2
enddo enddo
ia=nint((fsync-100.0)/df) ia=nint((fsync-50.0)/df)
ib=nint((fsync+1500.0+100.0)/df) ib=nint((fsync+1500.0+50.0)/df)
ipk=maxloc(s(ia:ib)) ipk=maxloc(s(ia:ib))
i0=ipk(1) + ia - 1 i0=ipk(1) + ia - 1
@ -69,9 +69,9 @@ subroutine sfox_remove_tone(c0,fsync)
enddo enddo
sigma=sqrt(s2/s0)*df sigma=sqrt(s2/s0)*df
write(*,*) 'frequency, spectral width ',f2,sigma ! write(*,*) 'frequency, spectral width ',f2,sigma
if(sigma .gt. 2.5) exit if(sigma .gt. 2.5) exit
write(*,*) 'remove_tone - frequency: ',f2 ! write(*,*) 'remove_tone - frequency: ',f2
dt=1.0/fsample dt=1.0/fsample
do i=1, NMAX do i=1, NMAX