mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-03-23 12:38:53 -04:00
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:
parent
08c1567516
commit
b7633f3a11
@ -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)
|
||||
|
@ -45,7 +45,7 @@ subroutine sync9(ss,tstep,df3,ntol,nfqso,ccfred,ia,ib,ipkbest)
|
||||
enddo
|
||||
|
||||
call pctile(ccfred(ia),ib-ia+1,50,xmed)
|
||||
if(xmed.le.1.0) xmed=1.0
|
||||
if(xmed.le.0.0) xmed=1.0
|
||||
ccfred=ccfred/xmed
|
||||
|
||||
return
|
||||
|
@ -1,4 +1,4 @@
|
||||
//--------------------------------------------------------------- MainWindow
|
||||
//-------------------------------------------------------------- MainWindow
|
||||
#include "mainwindow.h"
|
||||
#include "ui_mainwindow.h"
|
||||
#include "devsetup.h"
|
||||
|
Loading…
Reference in New Issue
Block a user