w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'release-2.1.0' of bitbucket.org:k1jt/wsjtx into release-2.1.0

Browse Source
This commit is contained in:
Joe Taylor 2019-06-12 11:34:41 -04:00
commit 7e1eaf3f31
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft4/get_ft4_bitmetrics.f90
View File

@ -1,4 +1,4 @@
subroutine get_ft4_bitmetrics(cd,smax,bitmetrics,badsync) subroutine get_ft4_bitmetrics(cd,bitmetrics,badsync)
include 'ft4_params.f90' include 'ft4_params.f90'
parameter (NSS=NSPS/NDOWN,NDMAX=NMAX/NDOWN) parameter (NSS=NSPS/NDOWN,NDMAX=NMAX/NDOWN)
@ -58,7 +58,7 @@ subroutine get_ft4_bitmetrics(cd,smax,bitmetrics,badsync)
if(icos4d(k-1).eq.(ip(1)-1)) is4=is4+1 if(icos4d(k-1).eq.(ip(1)-1)) is4=is4+1
enddo enddo
nsync=is1+is2+is3+is4 !Number of correct hard sync symbols, 0-16 nsync=is1+is2+is3+is4 !Number of correct hard sync symbols, 0-16
if(smax .lt. 0.7 .or. nsync .lt. 8) then if(nsync .lt. 8) then
badsync=.true. badsync=.true.
return return
endif endif

3
lib/ft4_decode.f90
View File

@ -269,6 +269,7 @@ contains
enddo enddo
call timer('sync4d ',1) call timer('sync4d ',1)
enddo enddo
if(smax.lt.0.7) cycle
f0=f0+real(idfbest) f0=f0+real(idfbest)
if( f0.le.10.0 .or. f0.ge.4990.0 ) cycle if( f0.le.10.0 .or. f0.ge.4990.0 ) cycle
call timer('ft4down ',0) call timer('ft4down ',0)
@ -286,7 +287,7 @@ contains
endif endif
call timer('bitmet ',0) call timer('bitmet ',0)
call get_ft4_bitmetrics(cd,smax,bitmetrics,badsync) call get_ft4_bitmetrics(cd,bitmetrics,badsync)
call timer('bitmet ',1) call timer('bitmet ',1)
if(badsync) cycle if(badsync) cycle