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

Fix a bug in ldpcsim144 so that nerrhisto.dat is calculated and printed.

Browse Source
This commit is contained in:
Steve Franke 2018-06-12 16:00:06 -05:00
parent 7ac0afc60b
commit 9b63fe6ac7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ldpcsim144.f90
View File

@ -14,7 +14,7 @@ integer*1 i1hash(4)
integer*1 msgbits(80)
integer*4 i4Msg6BitWords(13)
integer ihash
integer nerrtot(128),nerrdec(128)
integer nerrtot(0:128),nerrdec(0:128)
real*8, allocatable :: lratio(:), rxdata(:), rxavgd(:)
real, allocatable :: yy(:), llr(:)
equivalence(ihash,i1hash)
@ -42,7 +42,7 @@ read(arg,*) s
! don't count hash bits as data bits
N=128
K=72
K=80
rate=real(K)/real(N)
write(*,*) "rate: ",rate
@ -167,7 +167,7 @@ do idb = -6, 14
enddo
open(unit=23,file='nerrhisto.dat',status='unknown')
do i=1,128
do i=0,128
write(23,'(i4,2x,i10,i10,f10.2)') i,nerrdec(i),nerrtot(i),real(nerrdec(i))/real(nerrtot(i)+1e-10)
enddo
close(23)