mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-05-24 10:22:26 -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
|
snr=10.0*log10(ccfred(i)) - 10.0*log10(2500.0/df3) + 2.0
|
||||||
sync=ccfred(i) - 2.0
|
sync=ccfred(i) - 2.0
|
||||||
if(sync.lt.0.0) sync=0.0
|
if(sync.lt.0.0) sync=0.0
|
||||||
|
print*,f,ccfred(i),sync,snr,msg
|
||||||
nsync=sync
|
nsync=sync
|
||||||
if(nsync.gt.10) nsync=10
|
if(nsync.gt.10) nsync=10
|
||||||
nsnr=nint(snr)
|
nsnr=nint(snr)
|
||||||
|
@ -45,7 +45,7 @@ subroutine sync9(ss,tstep,df3,ntol,nfqso,ccfred,ia,ib,ipkbest)
|
|||||||
enddo
|
enddo
|
||||||
|
|
||||||
call pctile(ccfred(ia),ib-ia+1,50,xmed)
|
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
|
ccfred=ccfred/xmed
|
||||||
|
|
||||||
return
|
return
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
//--------------------------------------------------------------- MainWindow
|
//-------------------------------------------------------------- MainWindow
|
||||||
#include "mainwindow.h"
|
#include "mainwindow.h"
|
||||||
#include "ui_mainwindow.h"
|
#include "ui_mainwindow.h"
|
||||||
#include "devsetup.h"
|
#include "devsetup.h"
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
[Setup]
|
[Setup]
|
||||||
AppName=wsjtx
|
AppName=wsjtx
|
||||||
AppVerName=wsjtx Version 0.2 r2708
|
AppVerName=wsjtx Version 0.2 r2709
|
||||||
AppCopyright=Copyright (C) 2001-2012 by Joe Taylor, K1JT
|
AppCopyright=Copyright (C) 2001-2012 by Joe Taylor, K1JT
|
||||||
DefaultDirName=c:\wsjtx
|
DefaultDirName=c:\wsjtx
|
||||||
DefaultGroupName=wsjtx
|
DefaultGroupName=wsjtx
|
||||||
|
Loading…
x
Reference in New Issue
Block a user