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

Minor tweaks to the 9w decoder.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6579 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-04-05 17:55:38 +00:00
parent fab3ddd372
commit fd1c6daf51
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/decode9w.f90
View File

@ -42,7 +42,7 @@ subroutine decode9w(nutc,nfqso,ntol,nsubmode,ss,id2,sync,nsnr,xdt1,f0,decoded)
ccfblue=(ccfblue-base)/rms ccfblue=(ccfblue-base)/rms
enddo enddo
call softsym9w(id2,npts,xdt0,f0,a(4)*df,nsubmode,xdt1,i1softsymbols) call softsym9w(id2,npts,xdt0,f0,a(4)*df,nsubmode,xdt1-1.05,i1softsymbols)
call jt9fano(i1softsymbols,limit,nlim,decoded) call jt9fano(i1softsymbols,limit,nlim,decoded)
return return

2
lib/sync9w.f90
View File

@ -74,6 +74,8 @@ subroutine sync9w(ss,nzhsym,lag1,lag2,ia,ib,ccfred,ccfblue,ipkbest,lagpk,nadd)
lagpk=lag lagpk=lag
endif endif
enddo enddo
if(lagpk.eq.-9) lagpk=-8 !Protect the ends of ccfblue()
if(lagpk.eq.18) lagpk=17
return return
end subroutine sync9w end subroutine sync9w