Module packjt77.f90 includes the 77bit utility programs called by pak77 and unpack77. Modify genft8_174_91.f90 to generate type 2 messages.

CMakeLists.txt

@@ -350,6 +350,7 @@ set (wsjt_FSRCS
   lib/jt9_decode.f90
   lib/options.f90
   lib/packjt.f90
+  lib/77bit/packjt77.f90
   lib/readwav.f90
   lib/timer_C_wrapper.f90
   lib/timer_impl.f90

lib/77bit/packjt77.f90

@@ -0,0 +1,18 @@
+include 'hash10.f90'
+include 'hash12.f90'
+include 'hash22.f90'
+include 'ihashcall.f90'
+include 'pack77.f90'
+include 'unpack77.f90'
+include 'pack28.f90'
+include 'unpack28.f90'
+include 'split77.f90'
+include 'pack77_01.f90'
+include 'pack77_02.f90'
+include 'pack77_03.f90'
+include 'pack77_1.f90'
+include 'pack77_3.f90'
+include 'pack77_4.f90'
+include 'packtext77.f90'
+include 'unpacktext77.f90'
+

lib/ft8/genft8_174_91.f90

@@ -4,11 +4,10 @@ subroutine genft8_174_91(msg,mygrid,bcontest,i3,n3,msgsent,msgbits,itone)
   
   use packjt
   include 'ft8_params.f90'
-  character*22 msg,msgsent
+  character msg*37,msgsent*37
   character*6 mygrid
-  character*91 cbits
+  character*77 c77
   logical bcontest
-  integer*4 i4Msg6BitWords(12)                !72-bit message as 6-bit words
   integer*1 msgbits(77),codeword(174)
   integer itone(79)
   integer icos7(0:6)
@@ -16,11 +15,10 @@ subroutine genft8_174_91(msg,mygrid,bcontest,i3,n3,msgsent,msgbits,itone)
   data icos7/3,1,4,0,6,5,2/                   !Costas 7x7 tone pattern
   data graymap/0,1,3,2,7,6,4,5/
 
-  call packmsg(msg,i4Msg6BitWords,itype,bcontest) !Pack into 12 6-bit bytes
-  call unpackmsg(i4Msg6BitWords,msgsent,bcontest,mygrid) !Unpack to get msgsent
+  call pack77(msg,i3,n3,c77)
+  call unpack77(c77,msgsent) 
 
-  write(cbits,'(11b6.6,b5.5,b3.3,b3.3)') i4Msg6BitWords,i3,n3
-  read(cbits,'(77i1)') msgbits 
+  read(c77,'(77i1)') msgbits 
   call encode174_91(msgbits,codeword)      !Encode the test message
 
 ! Message structure: S7 D29 S7 D29 S7