From acb6b703979287b7dd9e74ee9d6ff730df6194c7 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 19 Dec 2016 20:14:31 +0000 Subject: [PATCH] I was too strict on the sync2 and width limits. This is much better for QRA64E! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7407 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/qra64a.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/qra64a.f90 b/lib/qra64a.f90 index 3ad349da9..2070a65c3 100644 --- a/lib/qra64a.f90 +++ b/lib/qra64a.f90 @@ -64,7 +64,7 @@ subroutine qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, & call sync64(c00,nf1,nf2,nfqso,ntol,mode64,dtx,f0,jpk0,sync,sync2,width) call timer('sync64 ',1) nfreq=nint(f0) - if((sync-3.4).lt.float(minsync) .or. sync2.lt.-2.0 .or.width.gt.240.0) go to 900 + if((sync-3.4).lt.float(minsync) .or. sync2.lt.-5.0 .or.width.gt.340.0) go to 900 a=0. a(1)=-f0 npts2=npts/2