diff --git a/lib/decoder.f90 b/lib/decoder.f90 index e1346b4c4..7cff716c5 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -73,7 +73,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample) call my_ft8%decode(ft8_decoded,id2,params%nfqso, & newdat,params%nutc,params%nfa, & params%nfb,logical(params%nagain), & - params%ndepth,params%nsubmode) + params%ndepth,params%nsubmode, & + params%mycall,params%hiscall,params%hisgrid) call timer('decft8 ',1) go to 800 endif diff --git a/lib/fsk4hf/sync8.f90 b/lib/fsk4hf/sync8.f90 index 1ce786a86..1fcd368e3 100644 --- a/lib/fsk4hf/sync8.f90 +++ b/lib/fsk4hf/sync8.f90 @@ -84,7 +84,7 @@ subroutine sync8(dd,nfa,nfb,nfqso,s,candidate,ncand) candidate0=0. k=0 - syncmin=1.5 + syncmin=2.0 do i=1,100 n=ia + indx(iz+1-i) - 1 if(red(n).lt.syncmin) exit diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90 index a167af6a9..72380dc39 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -23,7 +23,7 @@ module ft8_decode contains subroutine decode(this,callback,iwave,nfqso,newdat,nutc,nfa, & - nfb,nagain,ndepth,nsubmode) + nfb,nagain,ndepth,nsubmode,mycall,hiscall,hisgrid) !use wavhdr use timer_module, only: timer include 'fsk4hf/ft8_params.f90' @@ -35,6 +35,8 @@ contains real candidate(3,100) real dd(15*12000) logical, intent(in) :: newdat, nagain + character*12 mycall, hiscall + character*6 hisgrid integer*2 iwave(15*12000) character datetime*13,message*22 save s,dd