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

Enable "Decode after EME delay" for FT8. (Let the 1296 MHz EME guys play with FT8.)

Browse Source
This commit is contained in:
Joe Taylor 2020-05-06 11:43:52 -04:00
parent c5d14da4a1
commit 399b0caafe
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/decoder.f90
View File

@ -120,11 +120,16 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
call timer('decft8 ',0) call timer('decft8 ',0)
newdat=params%newdat newdat=params%newdat
if(params%emedelay.ne.0.0) then
id2(1:156000)=id2(24001:180000) ! Drop the first 2 seconds of data
id2(156001:180000)=0
endif
call my_ft8%decode(ft8_decoded,id2,params%nQSOProgress,params%nfqso, & call my_ft8%decode(ft8_decoded,id2,params%nQSOProgress,params%nfqso, &
params%nftx,newdat,params%nutc,params%nfa,params%nfb, & params%nftx,newdat,params%nutc,params%nfa,params%nfb, &
params%nzhsym,params%ndepth,ncontest,logical(params%nagain), & params%nzhsym,params%ndepth,params%emedelay,ncontest, &
logical(params%lft8apon),logical(params%lapcqonly), & logical(params%nagain),logical(params%lft8apon), &
params%napwid,mycall,hiscall,params%ndiskdat) logical(params%lapcqonly),params%napwid,mycall,hiscall, &
params%ndiskdat)
call timer('decft8 ',1) call timer('decft8 ',1)
if(nfox.gt.0) then if(nfox.gt.0) then
n30min=minval(n30fox(1:nfox)) n30min=minval(n30fox(1:nfox))

5
lib/ft8_decode.f90
View File

@ -33,8 +33,8 @@ module ft8_decode
contains contains
subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat, & subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat, &
nutc,nfa,nfb,nzhsym,ndepth,ncontest,nagain,lft8apon,lapcqonly, & nutc,nfa,nfb,nzhsym,ndepth,emedelay,ncontest,nagain,lft8apon, &
napwid,mycall12,hiscall12,ldiskdat) lapcqonly,napwid,mycall12,hiscall12,ldiskdat)
use iso_c_binding, only: c_bool, c_int use iso_c_binding, only: c_bool, c_int
use timer_module, only: timer use timer_module, only: timer
use shmem, only: shmem_lock, shmem_unlock use shmem, only: shmem_lock, shmem_unlock
@ -184,6 +184,7 @@ contains
endif endif
if(.not.ldupe .and. associated(this%callback)) then if(.not.ldupe .and. associated(this%callback)) then
qual=1.0-(nharderrors+dmin)/60.0 ! scale qual to [0.0,1.0] qual=1.0-(nharderrors+dmin)/60.0 ! scale qual to [0.0,1.0]
if(emedelay.ne.0) xdt=xdt+2.0
call this%callback(sync,nsnr,xdt,f1,msg37,iaptype,qual) call this%callback(sync,nsnr,xdt,f1,msg37,iaptype,qual)
endif endif
endif endif