WSJT-X/libm65/encode65.f

14 lines
267 B
FortranFixed
Raw Normal View History

subroutine encode65(message,sent)
character message*22
integer dgen(12)
integer sent(63)
call packmsg(message,dgen)
call rs_encode(dgen,sent)
call interleave63(sent,1)
call graycode(sent,63,1)
return
end