Bring the "stand-alone" part of JT9 up to date.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2780 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2012-11-28 12:47:42 +00:00
parent 807f673290
commit 2e19f512ae
2 changed files with 7 additions and 8 deletions

View File

@ -130,20 +130,19 @@ program jt9
f=(i-1)*df3 f=(i-1)*df3
if((i.eq.ipk .or. ccfred(i).ge.3.0) .and. f.gt.fgood+10.0*df8) then if((i.eq.ipk .or. ccfred(i).ge.3.0) .and. f.gt.fgood+10.0*df8) then
call timer('test9 ',0) call timer('decode9a',0)
fpk=1000.0 + df3*(i-1) fpk=1000.0 + df3*(i-1)
c1(1:npts8)=conjg(c0(1:npts8)) c1(1:npts8)=conjg(c0(1:npts8))
call test9(c1,npts8,nsps8,fpk,syncpk,snrdb,xdt,freq,drift, & call decode9a(c1,npts8,nsps8,fpk,syncpk,snrdb,xdt,freq, &
i1SoftSymbols) drift,i1SoftSymbols)
call timer('test9 ',1) call timer('decode9a',1)
call timer('decode9 ',0) call timer('decode9 ',0)
call decode9(i1SoftSymbols,limit,nlim,msg) call decode9(i1SoftSymbols,limit,nlim,msg)
call timer('decode9 ',1) call timer('decode9 ',1)
sync=(syncpk-1.0)/2.0 sync=(syncpk-1.0)/2.0
if(sync.lt.0.0) sync=0.0 if(sync.lt.0.0 .or. snrdb.lt.dblim-2.0) sync=0.0
nsync=sync nsync=sync
if(nsync.gt.10) nsync=10 if(nsync.gt.10) nsync=10
nsnr=nint(snrdb) nsnr=nint(snrdb)

View File

@ -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"