w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-31 22:02:49 -04:00
Code Issues Packages Projects Releases Wiki Activity

Sharpen

Browse Source 
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
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/jt9fano.f90
View File

@ -12,7 +12,7 @@ subroutine jt9fano(i1SoftSymbols,limit,nlim,msg)
integer*1 i1SoftSymbols(207) integer*1 i1SoftSymbols(207)
integer*1 i1DecodedBits(72) integer*1 i1DecodedBits(72)
real*4 xx0(0:255) real*4 xx0(0:262)
logical first logical first
integer*4 mettab(-128:127,0:1) 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, & -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 save
if(first) then if(first) then