w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-23 18:02:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

Move '?' quality warning to message(22:22).

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7945 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-07-25 19:06:05 +00:00
parent b6ec435152
commit dc5305573d
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

@ -402,16 +402,18 @@ contains
character(len=22), intent(in) :: decoded character(len=22), intent(in) :: decoded
integer, intent(in) :: nap integer, intent(in) :: nap
real, intent(in) :: qual real, intent(in) :: qual
character*3 annot character*2 annot
character*22 decoded0
annot=' '
decoded0=decoded
annot=' '
if(nap.ne.0) then if(nap.ne.0) then
if(qual.ge.0.17) write(annot,'(a1,i1,a1)') 'a',nap,' ' write(annot,'(a1,i1)') 'a',nap
if(qual.lt.0.17) write(annot,'(a1,i1,a1)') 'a',nap,'?' if(qual.lt.0.17) decoded0(22:22)='?'
endif endif
write(*,1000) params%nutc,snr,dt,nint(freq),decoded,annot write(*,1000) params%nutc,snr,dt,nint(freq),decoded0,annot
1000 format(i6.6,i4,f5.1,i5,' ~ ',1x,a22,3x,a3) 1000 format(i6.6,i4,f5.1,i5,' ~ ',1x,a22,1x,a2)
write(13,1002) params%nutc,nint(sync),snr,dt,freq,0,decoded write(13,1002) params%nutc,nint(sync),snr,dt,freq,0,decoded0
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a22,' FT8') 1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a22,' FT8')
call flush(6) call flush(6)
call flush(13) call flush(13)