Make packjt77 into a module; move all its routines into file packjt77.f90.

lib/ft8/ft8b_2.f90

@@ -4,6 +4,7 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
 
   use crc
   use timer_module, only: timer
+  use packjt77
   include 'ft8_params.f90'
   parameter(NP2=2812)
   character*37 msg37,msgsent37

lib/ft8/ft8sim2.f90

@@ -4,6 +4,7 @@ program ft8sim2
 ! Output is saved to a *.wav file.
 
   use wavhdr
+  use packjt77
   include 'ft8_params.f90'               !Set various constants
   parameter (NWAVE=NN*NSPS)
   type(hdr) h                            !Header for .wav file

lib/ft8/genft8_174_91.f90

@@ -3,6 +3,7 @@ subroutine genft8_174_91(msg,mygrid,bcontest,i3,n3,msgsent,msgbits,itone)
 ! Encode an FT8 message, producing array itone().
   
   use packjt
+  use packjt77
   include 'ft8_params.f90'
   character msg*37,msgsent*37
   character*6 mygrid