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

Remove calls to timer() around the "flatten" loop in filbig.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5017 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-03-06 19:44:46 +00:00
parent 7bedd1af89
commit 276b726b2d
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/filbig.f90
View File

@ -78,7 +78,6 @@ subroutine filbig(dd,npts,f0,newdat,c4a,n4,sq0)
call fftwf_execute_dft_r2c(plan1,rca,ca)
call timer('FFTbig ',1)
call timer('flatten ',0)
ib=0
do j=1,NSZ
ia=ib+1
@ -86,7 +85,6 @@ subroutine filbig(dd,npts,f0,newdat,c4a,n4,sq0)
fac=sqrt(min(30.0,1.0/ref(j)))
ca(ia:ib)=fac*conjg(ca(ia:ib))
enddo
call timer('flatten ',1)
newdat=0
endif