w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

Temporarily commented out timf2 in wspr_downsample.f90.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5635 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2015-06-28 01:35:33 +00:00
parent 87c0c7b540
commit 2bd580d970
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/wspr_downsample.f90
View File

@ -60,14 +60,15 @@ subroutine wspr_downsample(id2,k)
fac=2.0/NFFT1
nblks=(k-k1)/kstep1
gain=1.0
nb=0
do nblk=1,nblks
do i=1,NFFT1
x0(i)=gain*id2(k1+i)
enddo
call timf2(x0,k,NFFT1,nwindow,nb,peaklimit,x1, &
slimit,lstrong,px,nzap)
! call timf2(x0,k,NFFT1,nwindow,nb,peaklimit,x1, &
! slimit,lstrong,px,nzap)
! Mix at nbfo Hz, lowpass at +/-750 Hz, and downsample to 1500 Hz complex.
call mixlpf(x1,nbfo,c0(k8+1))
call mixlpf(x0,nbfo,c0(k8+1))
k1=k1+kstep1
k8=k8+kstep1/8
enddo