2015-04-22 13:48:03 -04:00
|
|
|
subroutine encode4(message,ncode)
|
|
|
|
|
|
|
|
|
|
use packjt
|
|
|
|
|
parameter (MAXCALLS=7000,MAXRPT=63)
|
|
|
|
|
integer ncode(206)
|
|
|
|
|
character*22 message !Message to be generated
|
|
|
|
|
character*3 cok !' ' or 'OOO'
|
|
|
|
|
integer dgen(13)
|
|
|
|
|
integer*1 data0(13),symbol(216)
|
|
|
|
|
|
|
|
|
|
call chkmsg(message,cok,nspecial,flip)
|
2017-09-01 16:10:35 -04:00
|
|
|
call packmsg(message,dgen,itype,.false.) !Pack 72-bit message into 12 six-bit symbols
|
2015-04-22 13:48:03 -04:00
|
|
|
call entail(dgen,data0)
|
|
|
|
|
call encode232(data0,206,symbol) !Convolutional encoding
|
|
|
|
|
call interleave4(symbol,1) !Apply JT4 interleaving
|
|
|
|
|
do i=1,206
|
|
|
|
|
ncode(i)=symbol(i)
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
end subroutine encode4
|
