WSJT-X/lib/genmet24.f90
Joe Taylor 3fae9c607c Starting to implement the JT4 modes.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2966 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2013-01-22 19:19:00 +00:00

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