w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-27 14:48: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 98885bf899
commit b5c77b40fc
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 fac=2.0/NFFT1
nblks=(k-k1)/kstep1 nblks=(k-k1)/kstep1
gain=1.0 gain=1.0
nb=0
do nblk=1,nblks do nblk=1,nblks
do i=1,NFFT1 do i=1,NFFT1
x0(i)=gain*id2(k1+i) x0(i)=gain*id2(k1+i)
enddo enddo
call timf2(x0,k,NFFT1,nwindow,nb,peaklimit,x1, & ! call timf2(x0,k,NFFT1,nwindow,nb,peaklimit,x1, &
slimit,lstrong,px,nzap) ! slimit,lstrong,px,nzap)
! Mix at nbfo Hz, lowpass at +/-750 Hz, and downsample to 1500 Hz complex. ! 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 k1=k1+kstep1
k8=k8+kstep1/8 k8=k8+kstep1/8
enddo enddo