Better correction for very weak false decodes in ft8b.f90. Revert an incorrect change in jt9.f90.

This commit is contained in:
Joe Taylor 2020-05-04 10:55:53 -04:00
parent 8c4af5dba7
commit d3f8793578
2 changed files with 9 additions and 7 deletions

View File

@ -175,7 +175,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
enddo
! hard sync sum - max is 21
nsync=is1+is2+is3
if(nsync .le. 7) then ! bail out
if(nsync .le. 6) then ! bail out
nbadcrc=1
return
endif
@ -452,8 +452,11 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
if(.not.nagain) then
xsnr=xsnr2
endif
if(nsync.le.7 .and. xsnr.lt.-24.0) then !bail out, likely false decode
nbadcrc=1
return
endif
if(xsnr .lt. -24.0) xsnr=-24.0
return
enddo
return

View File

@ -316,10 +316,9 @@ program jt9
id2a(nearly*3456+1:)=0
call multimode_decoder(shared_data%ss,id2a, &
shared_data%params,nfsample)
nearly=50
id2a(nearly*3456+1:50*3456)=shared_data%id2(nearly*3456+1:50*3456)
id2a(50*3456+1:)=0
shared_data%params%nzhsym=nearly
shared_data%params%nzhsym=50
call multimode_decoder(shared_data%ss,id2a, &
shared_data%params,nfsample)
cycle