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

Remove DC component of symbol powers before computing FFT.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2559 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2012-09-05 18:02:50 +00:00
parent 73be1b0fcd
commit 29599830eb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libm65/ccf65.f90
View File

@ -60,6 +60,8 @@ subroutine ccf65(ss,nhsym,nfast,ssmax,sync1,ipol1,jpz,dt1,flipk, &
! s(i)=ss(ip,i)+ss(ip,i+1) ! s(i)=ss(ip,i)+ss(ip,i+1)
s(i)=min(ssmax,ss(ip,i)+ss(ip,i+1)) s(i)=min(ssmax,ss(ip,i)+ss(ip,i+1))
enddo enddo
call pctile(s,tmp1,nhsym-1,50,base)
s(1:nhsym-1)=s(1:nhsym-1)-base
s(nhsym:NFFT)=0. s(nhsym:NFFT)=0.
call four2a(s,NFFT,1,-1,0) !Real-to-complex FFT call four2a(s,NFFT,1,-1,0) !Real-to-complex FFT
do i=0,NH do i=0,NH
@ -68,7 +70,7 @@ subroutine ccf65(ss,nhsym,nfast,ssmax,sync1,ipol1,jpz,dt1,flipk, &
enddo enddo
call four2a(cs,NFFT,1,1,-1) !Complex-to-real inv-FFT call four2a(cs,NFFT,1,1,-1) !Complex-to-real inv-FFT
call four2a(cs2,NFFT,1,1,-1) !Complex-to-real inv-FFT call four2a(cs2,NFFT,1,1,-1) !Complex-to-real inv-FFT
do lag=-27,27 !Check for best JT65 sync do lag=-27,27 !Check for best JT65 sync
ccf(lag,ip)=s(lag+28) ccf(lag,ip)=s(lag+28)
if(abs(ccf(lag,ip)).gt.ccfbest) then if(abs(ccf(lag,ip)).gt.ccfbest) then