Merge branch 'integrate-77bit' of https://bitbucket.org/k1jt/wsjtx into integrate-77bit

lib/ft8/ft8apset.f90

@@ -1,7 +1,7 @@
 subroutine ft8apset(mycall12,mygrid6,hiscall12,hisgrid6,bcontest,apsym)
   parameter(NAPM=4,KK=87)
   character*12 mycall12,hiscall12
-  character*22 msg,msgsent
+  character*37 msg,msgsent
   character*6 mycall,hiscall
   character*6 mygrid6,hisgrid6
   character*4 hisgrid

lib/ft8/ft8b_1.f90

@@ -6,7 +6,7 @@ subroutine ft8b_1(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
   use timer_module, only: timer
   include 'ft8_params.f90'
   parameter(NP2=2812)
-  character*37 msg37
+  character*37 msg37,msgsent37
   character message*22,msgsent*22
   character*12 mycall12,hiscall12
   character*6 mycall6,mygrid6,hiscall6,c1,c2
@@ -384,7 +384,9 @@ subroutine ft8b_1(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
         i3=0  !TEMPORARY  
         n3=0 
         isync=1   
-        call genft8(message,mygrid6,bcontest,i3,n3,isync,msgsent,msgbits,itone)
+        msg37='                                     '
+        msg37(1:22)=message
+        call genft8(msg37,mygrid6,bcontest,i3,n3,isync,msgsent37,msgbits,itone)
         if(lsubtract) call subtractft8(dd0,itone,f1,xdt2)
         xsig=0.0
         xnoi=0.0

lib/ft8/genft8.f90

@@ -1,4 +1,4 @@
-subroutine genft8(msg,mygrid,bcontest,i3,n3,isync,msgsent,msgbits,itone)
+subroutine genft8(msg37,mygrid,bcontest,i3,n3,isync,msgsent37,msgbits,itone)
 
 ! Encode an FT8 message, producing array itone().
   
@@ -6,6 +6,7 @@ subroutine genft8(msg,mygrid,bcontest,i3,n3,isync,msgsent,msgbits,itone)
   use packjt
   include 'ft8_params.f90'
   character*22 msg,msgsent
+  character*37 msg37,msgsent37
   character*6 mygrid
   character*87 cbits
   logical bcontest,checksumok
@@ -18,9 +19,12 @@ subroutine genft8(msg,mygrid,bcontest,i3,n3,isync,msgsent,msgbits,itone)
   data icos7/2,5,6,0,4,1,3/                   !Costas 7x7 tone pattern
 
   if(isync.eq.2 ) goto 900
-
+  
+  msg=msg37(1:22)
   call packmsg(msg,i4Msg6BitWords,istdtype,bcontest) !Pack into 12 6-bit bytes
   call unpackmsg(i4Msg6BitWords,msgsent,bcontest,mygrid) !Unpack to get msgsent
+  msgsent37(1:22)=msgsent
+  msgsent37(23:37)='               '
 
   write(cbits,1000) i4Msg6BitWords,32*i3
 1000 format(12b6.6,b8.8)
@@ -52,7 +56,7 @@ subroutine genft8(msg,mygrid,bcontest,i3,n3,isync,msgsent,msgbits,itone)
 
 900 continue
 
-  call genft8_174_91(msg,mygrid,bcontest,i3,n3,msgsent,msgbits77,itone)
+  call genft8_174_91(msg37,mygrid,bcontest,i3,n3,msgsent37,msgbits77,itone)
 
   return
 end subroutine genft8