w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Correct a format.

Browse Source
This commit is contained in:
Joe Taylor 2021-10-29 15:31:22 -04:00
parent f13e318204
commit c30b91cb69
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8_decode.f90
View File

@ -243,7 +243,7 @@ contains
xdt,xsnr,msg37,snr7,snr7b) xdt,xsnr,msg37,snr7,snr7b)
ddt=xdt-dt0(i,jseq,0) ddt=xdt-dt0(i,jseq,0)
write(41,3041) nutc,snr7,snr7b,xdt,ddt,nint(f0(i,jseq,0)),trim(msg37) write(41,3041) nutc,snr7,snr7b,xdt,ddt,nint(f0(i,jseq,0)),trim(msg37)
3041 format(i6.6,3f7.2,2f6.2,i5,2x,a) 3041 format(i6.6,4f7.2,i5,2x,a)
if(snr7.lt.6.0 .or. snr7b.lt.1.8) cycle if(snr7.lt.6.0 .or. snr7b.lt.1.8) cycle
write(42,3041) nutc,snr7,snr7b,xdt,ddt,nint(f0(i,jseq,0)),trim(msg37) write(42,3041) nutc,snr7,snr7b,xdt,ddt,nint(f0(i,jseq,0)),trim(msg37)
flush(41) flush(41)