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
inquire(file='rx_messages.txt',exist=ex)
if(ex .and. params%nzhsym.eq.41) then
open(39,file='rx_messages.txt',status='old')
do i=1,9999
read(39,'(a60)',end=5) line
if(line(1:1).eq.' ' .or. line(1:1).eq.'-') go to 800
write(*,'(a)') trim(line)
enddo
5 close(39)
if(ex) then
if(params%nzhsym.eq.41) then
open(39,file='rx_messages.txt',status='old')
do i=1,9999
read(39,'(a60)',end=5) line
if(line(1:1).eq.' ' .or. line(1:1).eq.'-') go to 800
write(*,'(a)') trim(line)
enddo
5 close(39)
endif
go to 800
endif