mirror of https://github.com/saitohirga/WSJT-X.git
Merge branch 'feat-fst280' of bitbucket.org:k1jt/wsjtx into feat-fst280
This commit is contained in:
commit
78685e10c6
|
@ -72,10 +72,10 @@ subroutine get_fst280_bitmetrics(cd,nss,hmod,bitmetrics,badsync)
|
||||||
nsync=is1+is2+is3 !Number of correct hard sync symbols, 0-24
|
nsync=is1+is2+is3 !Number of correct hard sync symbols, 0-24
|
||||||
|
|
||||||
badsync=.false.
|
badsync=.false.
|
||||||
! if(nsync .lt. 8) then
|
if(nsync .lt. 8) then
|
||||||
! badsync=.true.
|
badsync=.true.
|
||||||
! return
|
return
|
||||||
! endif
|
endif
|
||||||
|
|
||||||
bitmetrics=0.0
|
bitmetrics=0.0
|
||||||
do nseq=1,4 !Try coherent sequences of 1, 2, and 4 symbols
|
do nseq=1,4 !Try coherent sequences of 1, 2, and 4 symbols
|
||||||
|
|
|
@ -442,9 +442,10 @@ contains
|
||||||
call pctile(s2(ia:ib),ib-ia+1,30,base)
|
call pctile(s2(ia:ib),ib-ia+1,30,base)
|
||||||
s2=s2/base
|
s2=s2/base
|
||||||
|
|
||||||
thresh=1.25
|
thresh=1.4
|
||||||
|
|
||||||
ncand=0
|
ncand=0
|
||||||
|
candidates=0
|
||||||
if(ia.lt.3) ia=3
|
if(ia.lt.3) ia=3
|
||||||
if(ib.gt.18000-2) ib=18000-2
|
if(ib.gt.18000-2) ib=18000-2
|
||||||
do i=ia,ib
|
do i=ia,ib
|
||||||
|
@ -465,7 +466,8 @@ contains
|
||||||
snr_cand(1:ncand)=candidates(1:ncand,2)
|
snr_cand(1:ncand)=candidates(1:ncand,2)
|
||||||
call indexx(snr_cand,ncand,indx)
|
call indexx(snr_cand,ncand,indx)
|
||||||
nmax=5
|
nmax=5
|
||||||
do i=1,min(ncand,nmax)
|
ncand=min(ncand,nmax)
|
||||||
|
do i=1,ncand
|
||||||
j=indx(ncand+1-i)
|
j=indx(ncand+1-i)
|
||||||
candidates0(i,1:4)=candidates(j,1:4)
|
candidates0(i,1:4)=candidates(j,1:4)
|
||||||
enddo
|
enddo
|
||||||
|
|
Loading…
Reference in New Issue