map65/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. 2017-01-10 16:00:12 +00:00			`subroutine encode65(message,sent)`

Use packjt module instead of separate pack/unpack routines. 2017-01-11 21:12:59 +00:00			`use packjt`
First steps in long journey toward QRA64 in MAP65. 2017-01-10 16:00:12 +00:00			`character message*22`
			`integer dgen(12)`
			`integer sent(63)`

Use packjt module instead of separate pack/unpack routines. 2017-01-11 21:12:59 +00:00			`call packmsg(message,dgen,itype)`
First steps in long journey toward QRA64 in MAP65. 2017-01-10 16:00:12 +00:00			`call rs_encode(dgen,sent)`
			`call interleave63(sent,1)`
			`call graycode(sent,63,1)`

			`return`
			`end subroutine encode65`