mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-01 16:13:57 -04:00
45a4bcf894
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6402 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
46 lines
1.2 KiB
Fortran
46 lines
1.2 KiB
Fortran
subroutine genmsk_short(msg,msgsent,itone,itype)
|
|
|
|
use hashing
|
|
character*22 msg0,msg,msgsent
|
|
character*3 crpt,rpt(0:7)
|
|
integer itone(37)
|
|
integer b11(11)
|
|
integer golay_15_3(0:7)
|
|
data b11/1,1,1,0,0,0,1,0,0,1,0/ !Barker 11 code
|
|
data rpt /'26 ','27 ','28 ','R26','R27','R28','RRR','73 '/
|
|
data golay_15_3/00000,07025,11704,14025,19164,20909,26468,31765/
|
|
|
|
itype=-1
|
|
msgsent='*** bad message ***'
|
|
itone=0
|
|
i1=index(msg,'>')
|
|
if(i1.lt.9) go to 900
|
|
crpt=msg(i1+2:i1+5)
|
|
do i=0,7
|
|
if(crpt.eq.rpt(i)) go to 10
|
|
enddo
|
|
go to 900
|
|
|
|
10 itone(1:11)=b11
|
|
irpt=i
|
|
ncodeword=golay_15_3(irpt) !Save the 15-bit codeword for report
|
|
do i=26,12,-1 !Insert codeword into itone array
|
|
itone(i)=iand(ncodeword,1)
|
|
ncodeword=ncodeword/2
|
|
enddo
|
|
call hash(msg(2:i1-1),i1-2,ihash)
|
|
ihash=iand(ihash,1023) !10-bit hash for the two callsigns
|
|
n=ihash
|
|
do i=36,27,-1
|
|
itone(i)=iand(n,1)
|
|
n=n/2
|
|
enddo
|
|
n=count(itone(1:36).eq.0)
|
|
itone(37)=1
|
|
if(iand(n,1).eq.1) itone(37)=0
|
|
msgsent=msg
|
|
itype=7
|
|
|
|
900 return
|
|
end subroutine genmsk_short
|