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

Fix a flaw in the new test logic.

Browse Source
This commit is contained in:
Joe Taylor 2020-04-25 12:10:32 -04:00
parent f4811845cb
commit 4379ef9627
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/decoder.f90
View File

@ -65,14 +65,16 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
! For testing only: return Rx messages stored in a file as decodes ! For testing only: return Rx messages stored in a file as decodes
inquire(file='rx_messages.txt',exist=ex) inquire(file='rx_messages.txt',exist=ex)
if(ex .and. params%nzhsym.eq.41) then if(ex) then
open(39,file='rx_messages.txt',status='old') if(params%nzhsym.eq.41) then
do i=1,9999 open(39,file='rx_messages.txt',status='old')
read(39,'(a60)',end=5) line do i=1,9999
if(line(1:1).eq.' ' .or. line(1:1).eq.'-') go to 800 read(39,'(a60)',end=5) line
write(*,'(a)') trim(line) if(line(1:1).eq.' ' .or. line(1:1).eq.'-') go to 800
enddo write(*,'(a)') trim(line)
5 close(39) enddo
5 close(39)
endif
go to 800 go to 800
endif endif