mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-03 00:51:13 -04:00
dd1362b69a
Generic message packing and unpacking routines now understand antipode grid contest messages. These messages are now recognized as standard messages in message response processing and dealt with appropriately when contest mode is selected and applicable (currently FT8 and MSK144 only). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8062 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
21 lines
620 B
Fortran
21 lines
620 B
Fortran
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)
|
|
call packmsg(message,dgen,itype,.false.) !Pack 72-bit message into 12 six-bit symbols
|
|
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
|