From da7c135c9a30e6c9e1062006767467a5656f3af9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Sun, 24 Jul 2016 12:32:14 +0000
Subject: [PATCH] Fix another cause of possible bounds errors in sync64;
 comment out the call to sync64, for now.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6944 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/qra64a.f90 | 2 +-
 lib/sync64.f90 | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/qra64a.f90 b/lib/qra64a.f90
index d141e06d6..0892e04ae 100644
--- a/lib/qra64a.f90
+++ b/lib/qra64a.f90
@@ -105,7 +105,7 @@ subroutine qra64a(dd0,nutc,nf1,nf2,nfqso,ntol,mycall_12,hiscall_12,   &
 !  write(*,5001) dtx,nint(f0),0,snr1
 !5001 format(f6.3,2i6,f7.1)
   maxf1=10
-  call sync64(dd0,nf1,nf2,nfqso,ntol,maxf1,dtx,f0,kpk,snr,s3a)
+!  call sync64(dd0,nf1,nf2,nfqso,ntol,maxf1,dtx,f0,kpk,snr,s3a)
 !  write(*,5001) dtx,nint(f0),kpk,snr
 
   mycall=mycall_12(1:6)                     !### May need fixing ###
diff --git a/lib/sync64.f90 b/lib/sync64.f90
index 666bd51c6..6c2c5b974 100644
--- a/lib/sync64.f90
+++ b/lib/sync64.f90
@@ -104,8 +104,8 @@ subroutine sync64(dd,nf1,nf2,nfqso,ntol,maxf1,dtx,f0,kpk,snrdb,s3a)
            endif
         enddo
      enddo
-     ja=jpk-2*jstep
-     jb=jpk+2*jstep
+     ja=max(0,jpk-2*jstep)
+     jb=min(336000-NSPC,jpk+2*jstep)
      jstep=10
 !     ka=kpk
 !     kb=kpk