From 3b74de89f2a2b212e2b87e392be62be36550e445 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Wed, 9 Aug 2017 15:52:52 +0000 Subject: [PATCH] Bring a simulation tool up to date. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8017 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/ldpcsim174.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/fsk4hf/ldpcsim174.f90 b/lib/fsk4hf/ldpcsim174.f90 index 39a60ae11..71ae75f7a 100644 --- a/lib/fsk4hf/ldpcsim174.f90 +++ b/lib/fsk4hf/ldpcsim174.f90 @@ -189,7 +189,7 @@ do idb = 20,-10,-1 ! max_iterations is max number of belief propagation iterations call bpdecode174(llr, apmask, max_iterations, decoded, cw, nharderrors) - if( norder .ge. 0 .and. nharderrors .lt. 0 ) call osd174(llr, norder, decoded, cw, nharderrors) + if( norder .ge. 0 .and. nharderrors .lt. 0 ) call osd174(llr, apmask, norder, decoded, cw, nharderrors, dmin) ! If the decoder finds a valid codeword, nharderrors will be .ge. 0. if( nharderrors .ge. 0 ) then call extractmessage174(decoded,msgreceived,ncrcflag,recent_calls,nrecent) @@ -217,7 +217,7 @@ do idb = 20,-10,-1 endif endif enddo - baud=12000/2048 + baud=12000/1920 snr2500=db+10.0*log10((baud/2500.0)) pberr=real(nberr)/(real(ntrials*N)) write(*,"(f4.1,4x,f5.1,1x,i8,1x,i8,1x,i8,8x,f5.2,8x,e10.3)") db,snr2500,ngood,nue,nbadcrc,ss,pberr