From 1d0f097895b7d9c28e303a8c182c5cda8e8301bd Mon Sep 17 00:00:00 2001
From: Bill Somerville <g4wjs@classdesign.com>
Date: Mon, 20 Jun 2016 23:01:19 +0000
Subject: [PATCH] Sharpen

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

diff --git a/lib/jt9fano.f90 b/lib/jt9fano.f90
index 068ab9c70..160c2e732 100644
--- a/lib/jt9fano.f90
+++ b/lib/jt9fano.f90
@@ -12,7 +12,7 @@ subroutine jt9fano(i1SoftSymbols,limit,nlim,msg)
   integer*1 i1SoftSymbols(207)
   integer*1 i1DecodedBits(72)
 
-  real*4 xx0(0:255)
+  real*4 xx0(0:262)
 
   logical first
   integer*4 mettab(-128:127,0:1)
@@ -49,7 +49,9 @@ subroutine jt9fano(i1SoftSymbols,limit,nlim,msg)
        -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,  &
        -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,  &
        -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,  &
-       -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966/
+       -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,  &
+        1.43370769e-019,2.64031087e-006,6.25548654e+028,         &
+        2.44565251e+020,4.74227538e+030,10497312.,7.74079654e-039/
   save
 
   if(first) then