mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-28 16:16:48 -04:00
Limit the Q65 DT search rnge to +/- 1 s for TR=15, 30 s.
This commit is contained in:
parent
f974751e42
commit
306c0c8633
@ -140,7 +140,6 @@ contains
|
|||||||
!3060 format(a1,i1,1x,13b6.6/3x,13i6)
|
!3060 format(a1,i1,1x,13b6.6/3x,13i6)
|
||||||
! write(72,3060) 'B',ipass,apsymbols,apsymbols
|
! write(72,3060) 'B',ipass,apsymbols,apsymbols
|
||||||
endif
|
endif
|
||||||
|
|
||||||
call timer('q65loops',0)
|
call timer('q65loops',0)
|
||||||
call q65_loops(c00,npts/2,nsps/2,nmode,mode65,nsubmode,nFadingModel, &
|
call q65_loops(c00,npts/2,nsps/2,nmode,mode65,nsubmode,nFadingModel, &
|
||||||
ndepth,jpk0,xdt,f0,width,ipass,apmask,apsymbols,snr2,irc,dat4)
|
ndepth,jpk0,xdt,f0,width,ipass,apmask,apsymbols,snr2,irc,dat4)
|
||||||
|
@ -69,8 +69,6 @@ subroutine q65_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
|
|||||||
ncall=ncall+1
|
ncall=ncall+1
|
||||||
call timer('qra64_de',0)
|
call timer('qra64_de',0)
|
||||||
call q65_intrinsics_ff(s3,nsubmode,b90,nFadingModel,s3prob)
|
call q65_intrinsics_ff(s3,nsubmode,b90,nFadingModel,s3prob)
|
||||||
! APmask=0
|
|
||||||
! APsymbols=0
|
|
||||||
call q65_dec(s3,s3prob,APmask,APsymbols,snr2,dat4,irc)
|
call q65_dec(s3,s3prob,APmask,APsymbols,snr2,dat4,irc)
|
||||||
! irc > 0 ==> number of iterations required to decode
|
! irc > 0 ==> number of iterations required to decode
|
||||||
! -1 = invalid params
|
! -1 = invalid params
|
||||||
|
@ -74,13 +74,15 @@ subroutine sync_q65(iwave,nmax,mode65,nsps,nfqso,ntol,xdt,f0,snr1)
|
|||||||
enddo
|
enddo
|
||||||
|
|
||||||
dtstep=nsps/(NSTEP*12000.0) !Step size in seconds
|
dtstep=nsps/(NSTEP*12000.0) !Step size in seconds
|
||||||
j0=0.5/dtstep
|
|
||||||
if(nsps.ge.6192) j0=1.0/dtstep !Nominal index for start of signal
|
|
||||||
|
|
||||||
ccf=0.
|
|
||||||
ia=min(64,nint(ntol/df))
|
ia=min(64,nint(ntol/df))
|
||||||
lag1=-1.0/dtstep
|
lag1=-1.0/dtstep
|
||||||
lag2=4.0/dtstep + 0.9999
|
lag2=1.0/dtstep + 0.9999
|
||||||
|
j0=0.5/dtstep
|
||||||
|
if(nsps.ge.6192) then
|
||||||
|
j0=1.0/dtstep !Nominal index for start of signal
|
||||||
|
lag2=4.0/dtstep + 0.9999 !Include EME delays
|
||||||
|
endif
|
||||||
|
ccf=0.
|
||||||
|
|
||||||
do lag=lag1,lag2
|
do lag=lag1,lag2
|
||||||
do k=1,85
|
do k=1,85
|
||||||
|
Loading…
Reference in New Issue
Block a user