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