w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-21 03:28:59 -04:00
Code Issues Packages Projects Releases Wiki Activity

Ignore the (rare?) failed attempts to write to decoded.txt because it's open for reading.

Browse Source
This commit is contained in:
Joe Taylor 2022-08-30 12:58:53 -04:00
parent f38f5c0933
commit 62e5acd82b
1 changed files with 7 additions and 5 deletions

12
lib/decoder.f90
View File

@ -687,12 +687,14 @@ contains
write(*,1001) params%nutc,snr,dt,nint(freq),decoded0,annot
1001 format(i6.6,i4,f5.1,i5,' + ',1x,a37,1x,a2)
if(ios13.eq.0) write(13,1002) params%nutc,nint(sync),snr,dt, &
freq,0,decoded0
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' FT4')
if(ios13.eq.0) then
write(13,1002,err=10) params%nutc,nint(sync),snr,dt,freq,0,decoded0
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' FT4')
flush(13)
endif
call flush(6)
if(ios13.eq.0) call flush(13)
10 call flush(6)
select type(this)
type is (counting_ft4_decoder)