From ab8c93dca9b7eb736782f5cd01a80c8155f7be8c Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 6 Jan 2017 18:28:26 +0000
Subject: [PATCH] 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
---
 lib/msk144spd.f90 | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/lib/msk144spd.f90 b/lib/msk144spd.f90
index 8594d362b..7429fc8be 100644
--- a/lib/msk144spd.f90
+++ b/lib/msk144spd.f90
@@ -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