mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-06-25 14:45:14 -04:00
Minor tweaks to QRA sync handling.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6844 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
e23017d9e3
commit
bb1e8f6692
@ -245,11 +245,11 @@ contains
|
|||||||
|
|
||||||
if(ft.ge.80) then
|
if(ft.ge.80) then
|
||||||
nft=ft-100
|
nft=ft-100
|
||||||
if(snr.eq.-30 .and. decoded.eq.' ') then
|
csync=': '
|
||||||
csync=': '
|
if(snr.gt.-30) csync=':*'
|
||||||
|
if(nft.lt.0) then
|
||||||
write(*,1009) params%nutc,snr,dt,freq,csync,decoded
|
write(*,1009) params%nutc,snr,dt,freq,csync,decoded
|
||||||
else
|
else
|
||||||
csync=':*'
|
|
||||||
write(*,1009) params%nutc,snr,dt,freq,csync,decoded,nft
|
write(*,1009) params%nutc,snr,dt,freq,csync,decoded,nft
|
||||||
1009 format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,i2)
|
1009 format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,i2)
|
||||||
endif
|
endif
|
||||||
|
@ -29,7 +29,7 @@ subroutine qra02(dd,nf1,nf2,nfqso,ntol,mycall_12,sync,nsnr,dtx,nfreq, &
|
|||||||
! rewind 76
|
! rewind 76
|
||||||
|
|
||||||
decoded=' '
|
decoded=' '
|
||||||
nft=100
|
nft=99
|
||||||
nsnr=-30
|
nsnr=-30
|
||||||
nsps=6912
|
nsps=6912
|
||||||
istep=nsps/2
|
istep=nsps/2
|
||||||
|
Loading…
x
Reference in New Issue
Block a user