w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-21 11:31:51 -05:00
Code Issues Packages Projects Releases Wiki Activity

Tweaks to ft4code.

Browse Source
This commit is contained in:
Joe Taylor 2019-12-18 10:42:08 -05:00
parent 3397bf49b4
commit 26d1996eb8
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lib/ft4/ft4code.f90
View File

@ -81,15 +81,17 @@ program ft4code
if(nmsg.eq.1) then if(nmsg.eq.1) then
write(*,1030) ieor(msgbits,rvec) write(*,1030) ieor(msgbits,rvec)
1030 format(/'Source-encoded message before XOR(), 77 bits: ',/77i1) 1030 format(/'Source-encoded message before scrambling, 77 bits: ',/77i1)
write(*,1031) msgbits write(*,1032) rvec
1031 format(/'Source-encoded message after XOR(), 77 bits: ',/77i1) 1032 format(/'Scrambling vector, 77 bits: ',/77i1)
write(*,1032) codeword(78:91) write(*,1034) msgbits
1032 format(/'14-bit CRC: ',/14i1) 1034 format(/'Source-encoded message after scrambling, 77 bits:'/77i1)
write(*,1033) codeword(92:174) write(*,1036) codeword(78:91)
1033 format(/'83 Parity bits: ',/83i1) 1036 format(/'14-bit CRC: ',/14i1)
write(*,1034) 0,itone,0 write(*,1038) codeword(92:174)
1034 format(/'Channel symbols (105 tones):'/ & 1038 format(/'83 Parity bits: ',/83i1)
write(*,1040) 0,itone,0
1040 format(/'Channel symbols (105 tones):'/ &
'R Sync',13x,'Data',13x, & 'R Sync',13x,'Data',13x, &
' Sync',13x,'Data',13x, & ' Sync',13x,'Data',13x, &
' Sync',13x,'Data',13x,' Sync R'/ & ' Sync',13x,'Data',13x,' Sync R'/ &