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

Correct the logic for negative-frequency index into new ca array.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4609 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2014-11-19 20:17:15 +00:00
parent 875dd0724b
commit 11487c69fa
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/filbig.f90
View File

@ -90,7 +90,7 @@ subroutine filbig(dd,npts,f0,newdat,c4a,n4,sq0)
nh=nfft2/2 nh=nfft2/2
do i=1,nh !Copy data into c4a and apply do i=1,nh !Copy data into c4a and apply
j=i0+i-1 !the filter function j=i0+i-1 !the filter function
if(j.ge.1 .and. j.le.nfft1) then if(j.ge.1 .and. j.le.nfft1/2+1) then
c4a(i)=rfilt(i)*ca(j) c4a(i)=rfilt(i)*ca(j)
else else
c4a(i)=0. c4a(i)=0.
@ -98,8 +98,12 @@ subroutine filbig(dd,npts,f0,newdat,c4a,n4,sq0)
enddo enddo
do i=nh+1,nfft2 do i=nh+1,nfft2
j=i0+i-1-nfft2 j=i0+i-1-nfft2
if(j.lt.1) j=j+nfft1 !nfft1 was nfft2 ! if(j.lt.1) j=j+nfft1 !nfft1 was nfft2
c4a(i)=rfilt(i)*ca(j) if(j.ge.1) then
c4a(i)=rfilt(i)*ca(j)
else
c4a(i)=rfilt(i)*conjg(ca(2-j))
endif
enddo enddo
nadd=nfft2/NZ2 nadd=nfft2/NZ2