diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 7b81c99c2..91f4add36 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -245,11 +245,11 @@ contains if(ft.ge.80) then 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 else - csync=':*' write(*,1009) params%nutc,snr,dt,freq,csync,decoded,nft 1009 format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,i2) endif diff --git a/lib/qra02.f90 b/lib/qra02.f90 index f255c8117..9e59e1133 100644 --- a/lib/qra02.f90 +++ b/lib/qra02.f90 @@ -29,7 +29,7 @@ subroutine qra02(dd,nf1,nf2,nfqso,ntol,mycall_12,sync,nsnr,dtx,nfreq, & ! rewind 76 decoded=' ' - nft=100 + nft=99 nsnr=-30 nsps=6912 istep=nsps/2