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

More Q65 cleanup. Single-digit at end of line.

Browse Source
This commit is contained in:
Joe Taylor
2020-11-30 14:13:37 -05:00
parent 5c947178ce
commit adc4c3d78a
3 changed files with 60 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/decoder.f90
+2 -2
View File
@@ -794,12 +794,12 @@ contains
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,i3.3)
1001 format(i6.6,i4,f5.1,i5,' + ',1x,a37,1x,i1)
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,i3.3)
1003 format(i4.4,i4,f5.1,i5,' + ',1x,a37,1x,i1)
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')