WSJT-X/libm65/encode65.f90

subroutine encode65(message,sent)

  use packjt
  character message*22
  integer dgen(12)
  integer sent(63)

  call packmsg(message,dgen,itype)
  call rs_encode(dgen,sent)
  call interleave63(sent,1)
  call graycode(sent,63,1)

  return
end subroutine encode65
First steps in long journey toward QRA64 in MAP65. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7473 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-01-10 11:00:12 -05:00			`subroutine encode65(message,sent)`

Use packjt module instead of separate pack/unpack routines. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7481 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-01-11 16:12:59 -05:00			`use packjt`
First steps in long journey toward QRA64 in MAP65. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7473 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-01-10 11:00:12 -05:00			`character message*22`
			`integer dgen(12)`
			`integer sent(63)`

Use packjt module instead of separate pack/unpack routines. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7481 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-01-11 16:12:59 -05:00			`call packmsg(message,dgen,itype)`
First steps in long journey toward QRA64 in MAP65. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7473 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-01-10 11:00:12 -05:00			`call rs_encode(dgen,sent)`
			`call interleave63(sent,1)`
			`call graycode(sent,63,1)`

			`return`
			`end subroutine encode65`