mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-19 10:32:02 -05:00
27 lines
873 B
Fortran
27 lines
873 B
Fortran
|
subroutine genjtms3(msg,msgsent,iwave,nwave)
|
||
|
|
|
||
|
|
character*22 msg,msgsent
|
||
|
|
integer*1 chansym(258)
|
||
|
|
integer*2 iwave(30*48000)
|
||
|
|
integer dgen(13)
|
||
|
|
integer*1 data0(13)
|
||
|
|
integer*1 datsym(215)
|
||
|
|
integer indx0(9) !Indices of duplicated data symbols
|
||
|
|
data indx0 /16,38,60,82,104,126,148,170,192/
|
||
|
|
|
||
|
|
call packmsg(msg,dgen) !Pack message into 12 six-bit symbols
|
||
|
|
call entail(dgen,data0) !Move from 6-bit to 8-bit symbols, add tail
|
||
|
|
ndat=(72+31)*2
|
||
|
|
call encode232(data0,ndat,datsym) !Convolutional encoding
|
||
|
|
|
||
|
|
do i=1,9 !Duplicate 9 symbols at end of datsym
|
||
|
|
datsym(206+i)=datsym(indx0(i))
|
||
|
|
enddo
|
||
|
|
|
||
|
|
call scr258(isync,datsym,1,chansym) !Insert sync and data into chansym(258)
|
||
|
|
call genjtms3a(chansym,258,iwave,nwave)
|
||
|
|
msgsent=msg
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine genjtms3
|