From f4cc1eecc6e3692a519db0e3b11318288d4ed4ae Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 9 Dec 2016 16:39:38 +0000
Subject: [PATCH] Use 40% rather than 45% to determine baseline for s3a.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7373 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 442f92d2f..b44262b4e 100644
--- a/lib/qra64a.f90
+++ b/lib/qra64a.f90
@@ -85,7 +85,7 @@ subroutine qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth,   &
      if(mod(itry0,2).eq.0) idt=-idt
      jpk=jpk0 + 750*idt
      call spec64(c0,npts2,mode64,jpk,s3a,LL,NN)
-     call pctile(s3a,LL*NN,45,base)
+     call pctile(s3a,LL*NN,40,base)
      s3a=s3a/base
      where(s3a(1:LL*NN)>s3lim) s3a(1:LL*NN)=s3lim
      do iter=itz,0,-2