w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-07 08:24:53 -04:00
Code Issues Packages Projects Releases Wiki Activity

Mark JT4 Fano decodes with 'f'.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6680 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2016-05-17 19:33:33 +00:00
parent f5c15f60bf
commit 5a80de6556
2 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/decoder.f90
+12 -4
View File
@@ -159,9 +159,12 @@ contains
character*2 :: cqual
! write(*,3001) 'A',have_sync,is_deep,is_average,int(qual),ave,decoded
!3001 format(a1,3L2,2i4,1x,a22)
if (have_sync) then
write(cqual, '(i2)') int(qual)
if(int(qual).eq.99) cqual=' f'
if (int(qual).gt.0) then
write(cqual, '(i2)') int(qual)
if (ave.gt.0) then
write(*,1000) params%nutc,snr,dt,freq,sync,decoded,cqual, &
char(ichar('A')+ich-1),ave
@@ -171,11 +174,16 @@ contains
end if
else
if (ave.gt.0) then
write(*,1000) params%nutc,snr,dt,freq,sync,decoded,'*', &
if(int(qual).eq.99) cqual=' f'
write(*,1000) params%nutc,snr,dt,freq,sync,decoded,cqual, &
char(ichar('A')+ich-1),ave
else
write(*,1000) params%nutc,snr,dt,freq,sync,decoded,' *', &
char(ichar('A')+ich-1)
if(int(qual).le.0) then
write(*,1000) params%nutc,snr,dt,freq,sync
else
write(*,1000) params%nutc,snr,dt,freq,sync,decoded,cqual, &
char(ichar('A')+ich-1)
endif
endif
end if
else