From 26d1996eb847a4282560b7a17f50a6aba4123d43 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 18 Dec 2019 10:42:08 -0500 Subject: [PATCH] Tweaks to ft4code. --- lib/ft4/ft4code.f90 | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/lib/ft4/ft4code.f90 b/lib/ft4/ft4code.f90 index 30bc4763c..a7b2ccdd2 100644 --- a/lib/ft4/ft4code.f90 +++ b/lib/ft4/ft4code.f90 @@ -81,15 +81,17 @@ program ft4code if(nmsg.eq.1) then write(*,1030) ieor(msgbits,rvec) -1030 format(/'Source-encoded message before XOR(), 77 bits: ',/77i1) - write(*,1031) msgbits -1031 format(/'Source-encoded message after XOR(), 77 bits: ',/77i1) - write(*,1032) codeword(78:91) -1032 format(/'14-bit CRC: ',/14i1) - write(*,1033) codeword(92:174) -1033 format(/'83 Parity bits: ',/83i1) - write(*,1034) 0,itone,0 -1034 format(/'Channel symbols (105 tones):'/ & +1030 format(/'Source-encoded message before scrambling, 77 bits: ',/77i1) + write(*,1032) rvec +1032 format(/'Scrambling vector, 77 bits: ',/77i1) + write(*,1034) msgbits +1034 format(/'Source-encoded message after scrambling, 77 bits:'/77i1) + write(*,1036) codeword(78:91) +1036 format(/'14-bit CRC: ',/14i1) + write(*,1038) codeword(92:174) +1038 format(/'83 Parity bits: ',/83i1) + write(*,1040) 0,itone,0 +1040 format(/'Channel symbols (105 tones):'/ & 'R Sync',13x,'Data',13x, & ' Sync',13x,'Data',13x, & ' Sync',13x,'Data',13x,' Sync R'/ &