mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-24 11:40:31 -05:00
Fix a format.
This commit is contained in:
parent
adc4c3d78a
commit
7cb87e315b
@ -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,i1)
|
||||
1001 format(i6.6,i4,f5.1,i5,' + ',1x,a37,1x,i2)
|
||||
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,i1)
|
||||
1003 format(i4.4,i4,f5.1,i5,' + ',1x,a37,1x,i2)
|
||||
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')
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user