w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix a problem in msk144spd that caused some flaky behavior. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7458 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-01-06 18:28:26 +00:00
parent cc091769fb
commit ab8c93dca9
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/msk144spd.f90
View File

@ -61,7 +61,6 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret,navg,ct, &
first=.false.
endif
! fill the detmet, detferr arrays
nstep=(n-NSPM)/216 ! 72ms/4=18ms steps
detmet=0
@ -69,12 +68,12 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret,navg,ct, &
detfer=-999.99
nfhi=2*(fc+500)
nflo=2*(fc-500)
ihlo=(nfhi-2*ntol)/df+1
ihhi=(nfhi+2*ntol)/df+1
illo=(nflo-2*ntol)/df+1
ilhi=(nflo+2*ntol)/df+1
i2000=nflo/df+1
i4000=nfhi/df+1
ihlo=nint((nfhi-2*ntol)/df) + 1
ihhi=nint((nfhi+2*ntol)/df) + 1
illo=nint((nflo-2*ntol)/df) + 1
ilhi=nint((nflo+2*ntol)/df) + 1
i2000=nint(nflo/df) + 1
i4000=nint(nfhi/df) + 1
do istp=1,nstep
ns=1+216*(istp-1)
ne=ns+NSPM-1
@ -182,8 +181,7 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret,navg,ct, &
if( is.eq.3) ic0=min(NSPM,ic0+1)
ct=cshift(c,ic0-1)
call msk144decodeframe(ct,softbits,msgreceived,ndecodesuccess, &
recent_calls,nrecent)
recent_calls,nrecent)
if( ndecodesuccess .gt. 0 ) then
tret=(nstart(icand)+NSPM/2)/fs
fret=fest