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

Add 'q' to the Q65 end-of-line flags; label right text window for "Average decodes".

Browse Source
This commit is contained in:
Joe Taylor
2020-12-30 10:42:27 -05:00
parent d81c01d23d
commit 412422db17
3 changed files with 41 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/decoder.f90
+11 -5
View File
@@ -464,7 +464,7 @@ contains
integer, intent(in) :: nsum
integer, intent(in) :: minsync
integer i,nap,nft
integer i,nap
logical is_deep,is_average
character decoded*22,csync*2,cflags*3
@@ -774,15 +774,21 @@ contains
character(len=37), intent(in) :: decoded
integer, intent(in) :: idec
integer, intent(in) :: ntrperiod
character*3 cflags
write(cflags,1000) idec
1000 format('q',i2)
if(cflags(2:2).eq.' ') cflags(2:3)=cflags(3:3)//' '
if(cflags(2:2).eq.'-') cflags=' '
if(ntrperiod.lt.60) then
write(*,1001) nutc,nsnr,dt,nint(freq),decoded,idec
1001 format(i6.6,i4,f5.1,i5,' : ',1x,a37,1x,i2)
write(*,1001) nutc,nsnr,dt,nint(freq),decoded,cflags
1001 format(i6.6,i4,f5.1,i5,' : ',1x,a37,1x,a3)
write(13,1002) nutc,nint(sync),nsnr,dt,freq,0,decoded
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' Q65')
else
write(*,1003) nutc,nsnr,dt,nint(freq),decoded,idec
1003 format(i4.4,i4,f5.1,i5,' : ',1x,a37,1x,i2)
write(*,1003) nutc,nsnr,dt,nint(freq),decoded,cflags
1003 format(i4.4,i4,f5.1,i5,' : ',1x,a37,1x,a3)
write(13,1004) nutc,nint(sync),nsnr,dt,freq,0,decoded
1004 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a37,' Q65')