Oops! Fix def'n of contingent xmed in sync9.f90.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2710 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2012-10-31 19:21:46 +00:00
parent 08c1567516
commit b7633f3a11
4 changed files with 4 additions and 3 deletions
+1
View File
@@ -76,6 +76,7 @@ subroutine decoder(ntrSeconds,ndepth,nRxLog,c0)
snr=10.0*log10(ccfred(i)) - 10.0*log10(2500.0/df3) + 2.0
sync=ccfred(i) - 2.0
if(sync.lt.0.0) sync=0.0
print*,f,ccfred(i),sync,snr,msg
nsync=sync
if(nsync.gt.10) nsync=10
nsnr=nint(snr)