w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 13:30:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add a call to osd300.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7679 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-05-14 14:37:22 +00:00
parent 88e440f30e
commit db102c42e5
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/fsk4hf/wspr5d.f90
View File

@ -188,6 +188,7 @@ program wspr5d
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)
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