Replace mistakenly deleted file.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6402 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/genmsk_short.f90

@@ -0,0 +1,45 @@
+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