WSJT-X/lib/qra/q65/q65code.f90

30 lines
672 B
Fortran
Raw Normal View History

2021-05-06 08:28:48 -04:00
program q65code
use q65_encoding
implicit none
character*37 msg37
integer nargs
integer codeword(65),tones(85)
nargs=iargc()
if(nargs .ne. 1) then
print*,'Usage: q65code "msg"'
goto 999
endif
call getarg(1,msg37)
call get_q65_tones(msg37,codeword,tones)
write(*,*) 'Generated message plus CRC (90 bits)'
write(*,'(a8,15i4)') '6 bit : ',codeword(1:15)
write(*,'(a8,15b6.6)') 'binary: ',codeword(1:15)
write(*,*) ' '
write(*,*) 'Codeword with CRC symbols (65 symbols)'
write(*,'(20i3)') codeword
write(*,*) ' '
write(*,*) 'Channel symbols (85 total)'
2021-05-06 08:28:48 -04:00
write(*,'(20i3)') tones
999 end program q65code