w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-28 20:32:28 -04: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

4
lib/decoder.f90
View File

@ -65,7 +65,8 @@ 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
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
@ -73,6 +74,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
write(*,'(a)') trim(line)
enddo
5 close(39)
endif
go to 800
endif