mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-10-08 16:27:52 -04:00
28 lines
690 B
Fortran
28 lines
690 B
Fortran
|
subroutine genmet24(mode,mettab)
|
||
|
|
|
||
|
|
! Return appropriate metric table for soft-decision convolutional decoder.
|
||
|
|
|
||
|
|
real bias !bias for integer table
|
||
|
|
integer scale !scale factor for integer table
|
||
|
|
! Metric table (RxSymbol,TxSymbol)
|
||
|
|
integer mettab(0:255,0:1)
|
||
|
|
|
||
|
|
bias=0.5
|
||
|
|
scale=10
|
||
|
|
if(mode.eq.7) then !Non-coherent 2FSK
|
||
|
|
open(19,file='dmet_10_-1_3.dat',status='old')
|
||
|
|
else
|
||
|
|
print*,'Unsupported mode:',mode,' in genmet.'
|
||
|
|
stop 'genmet'
|
||
|
|
endif
|
||
|
|
|
||
|
|
do i=0,255
|
||
|
|
read(19,*) junk,d0,d1
|
||
|
|
mettab(i,0)=nint(scale*(d0-bias))
|
||
|
|
mettab(i,1)=nint(scale*(d1-bias))
|
||
|
|
enddo
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine genmet24
|
||
|
|
|