mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-01 01:26:39 -04:00
Fix a bug in ldpcsim144 so that nerrhisto.dat is calculated and printed.
This commit is contained in:
parent
7ac0afc60b
commit
9b63fe6ac7
@ -14,7 +14,7 @@ integer*1 i1hash(4)
|
|||||||
integer*1 msgbits(80)
|
integer*1 msgbits(80)
|
||||||
integer*4 i4Msg6BitWords(13)
|
integer*4 i4Msg6BitWords(13)
|
||||||
integer ihash
|
integer ihash
|
||||||
integer nerrtot(128),nerrdec(128)
|
integer nerrtot(0:128),nerrdec(0:128)
|
||||||
real*8, allocatable :: lratio(:), rxdata(:), rxavgd(:)
|
real*8, allocatable :: lratio(:), rxdata(:), rxavgd(:)
|
||||||
real, allocatable :: yy(:), llr(:)
|
real, allocatable :: yy(:), llr(:)
|
||||||
equivalence(ihash,i1hash)
|
equivalence(ihash,i1hash)
|
||||||
@ -42,7 +42,7 @@ read(arg,*) s
|
|||||||
|
|
||||||
! don't count hash bits as data bits
|
! don't count hash bits as data bits
|
||||||
N=128
|
N=128
|
||||||
K=72
|
K=80
|
||||||
rate=real(K)/real(N)
|
rate=real(K)/real(N)
|
||||||
|
|
||||||
write(*,*) "rate: ",rate
|
write(*,*) "rate: ",rate
|
||||||
@ -167,7 +167,7 @@ do idb = -6, 14
|
|||||||
enddo
|
enddo
|
||||||
|
|
||||||
open(unit=23,file='nerrhisto.dat',status='unknown')
|
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)
|
write(23,'(i4,2x,i10,i10,f10.2)') i,nerrdec(i),nerrtot(i),real(nerrdec(i))/real(nerrtot(i)+1e-10)
|
||||||
enddo
|
enddo
|
||||||
close(23)
|
close(23)
|
||||||
|
Loading…
Reference in New Issue
Block a user