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

Update a development tool.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8582 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2018-03-22 14:00:27 +00:00
parent 4a7de89ab4
commit 29c60f5f42
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/fsk4hf/wspr_fsk8d.f90
View File

@ -167,7 +167,8 @@ program wspr_fsk8d
max_iterations=40 max_iterations=40
ifer=0 ifer=0
call bpdecode300(llr,apmask,max_iterations,decoded,niterations,cw) call bpdecode300(llr,apmask,max_iterations,decoded,niterations,cw)
if(niterations.lt.0) call osd300(llr,4,decoded,niterations,cw) if(niterations.lt.0) call osd300(llr,apmask,5,decoded,cw,nhardmin,dmin)
if(nhardmin.ge.0) niterations=nhardmin
nbadcrc=0 nbadcrc=0
if(niterations.ge.0) call chkcrc10(decoded,nbadcrc) if(niterations.ge.0) call chkcrc10(decoded,nbadcrc)
if(niterations.lt.0 .or. nbadcrc.ne.0) ifer=1 if(niterations.lt.0 .or. nbadcrc.ne.0) ifer=1