w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-25 04:53:17 -04:00
Code Issues Packages Projects Releases Wiki Activity

Correct a flaw in decoder(); do some code cleanup.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3127 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2013-04-03 20:42:12 +00:00
parent dc49b627c2
commit aaf43ad071
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/decoder.f90
+2 -1
View File
@@ -66,6 +66,7 @@ subroutine decoder(ss,c0)
kstep=nsps/2
tstep=kstep/12000.0
idf=ntol/df3 + 0.999
do nqd=1,0,-1
if(nqd.eq.1) then
@@ -81,7 +82,7 @@ subroutine decoder(ss,c0)
call timer('sync9 ',1)
ccfok=.false.
ccfok(max(ipk-1,1):min(ipk+1,NSMAX))=.true.
ccfok(max(ipk-idf,1):min(ipk+idf,NSMAX))=.true.
if(nqd.eq.1) then
ia1=ia
ib1=ib