From d44e580148ef5f90a8b4f6eab24be289beaee01f Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Thu, 22 Jun 2017 13:54:21 +0000
Subject: [PATCH] More development tool tweaks.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7734 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/msk144sd.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/msk144sd.f90 b/lib/msk144sd.f90
index c08330d7e..267fff545 100644
--- a/lib/msk144sd.f90
+++ b/lib/msk144sd.f90
@@ -42,8 +42,8 @@ program msk144sd
   
   data iavpatterns/ &
        1,1,1,1,0,0,0,0, &
+       0,1,1,1,1,0,0,0, &
        0,0,1,1,1,1,0,0, &
-       1,1,1,1,1,0,0,0, &
        1,1,1,1,1,1,0,0/
   data xmc/2.0,4.5,2.5,3.0/
 
@@ -118,7 +118,7 @@ program msk144sd
        iavmask=iavpatterns(1:8,iavg)
        navg=sum(iavmask)
        deltaf=4.0/real(navg)  ! search increment for frequency sync
-       npeaks=3
+       npeaks=4
        ntol=200
        fc=1500.0
        call msk144sync(cdat(1:6*NSPM),6,ntol,deltaf,iavmask,npeaks,fc,           &
@@ -187,6 +187,7 @@ subroutine msksddc(id2,npts,fc,cdat)
   cx(1:npts)=id2
   call four2a(cx,NFFT1,1,-1,1)
   cx=cshift(cx,ishift)
+  cx(1)=0.5*cx(1)
   cx(2*i46p875+1:)=cmplx(0.0,0.0)
   call four2a(cx,NFFT2,1,1,1)
   cdat(1:npts/32)=cx(0:npts/32-1)/NFFT1