w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix a problem in msk144spd that caused some flaky behavior.

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