mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-19 10:32:02 -05:00
3fae9c607c
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2966 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
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
|
|
|