git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6784 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2016-06-20 23:01:19 +00:00
parent 2c20423fc6
commit 1d0f097895

View File

@ -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