Don't use "appendage" ~ or ! on decoded lines. Protect against bad read in genft8_174_91.

This commit is contained in:
Joe Taylor
2018-09-02 18:55:13 -04:00
parent ed791f26dd
commit ca2c1a2b8b
2 changed files with 8 additions and 6 deletions
+4 -2
View File
@@ -16,8 +16,10 @@ subroutine genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)
call pack77(msg,i3,n3,c77)
call unpack77(c77,msgsent)
read(c77,'(77i1)') msgbits
call encode174_91(msgbits,codeword) !Encode the test message
read(c77,'(77i1)',err=1) msgbits
go to 2
1 write(81,*) msg,c77 ; flush(81)
2 call encode174_91(msgbits,codeword) !Encode the test message
! Message structure: S7 D29 S7 D29 S7
itone(1:7)=icos7