mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-01 01:26:39 -04:00
Code cleanup.
This commit is contained in:
parent
60a053aa94
commit
c9ce452500
@ -99,23 +99,22 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
|
|||||||
j0=0.5/dtstep
|
j0=0.5/dtstep
|
||||||
if(nsps.ge.7200) j0=1.0/dtstep !Nominal start-signal index
|
if(nsps.ge.7200) j0=1.0/dtstep !Nominal start-signal index
|
||||||
|
|
||||||
if(ncw.lt.1) go to 100
|
irc=-2
|
||||||
|
idec=-1
|
||||||
|
dat4=0
|
||||||
|
|
||||||
!######################################################################
|
if(ncw.gt.0) then
|
||||||
! Try list decoding via "Deep Likelihood".
|
! Try list decoding via "Deep Likelihood".
|
||||||
call timer('list_dec',0)
|
call timer('list_dec',0)
|
||||||
call q65_dec_q3(codewords,ncw,isync,sync,df,s1,iz,jz,ia,ibwa,ibwb, &
|
call q65_dec_q3(codewords,ncw,isync,sync,df,s1,iz,jz,ia,ibwa,ibwb, &
|
||||||
nstep,nsps,mode_q65,lag1,lag2,i0,j0,ccf,ccf1,ccf2,ia2,s3,LL,snr2, &
|
nstep,nsps,mode_q65,lag1,lag2,i0,j0,ccf,ccf1,ccf2,ia2,s3,LL,snr2, &
|
||||||
dat4,idec,decoded)
|
dat4,idec,decoded)
|
||||||
call timer('list_dec',1)
|
call timer('list_dec',1)
|
||||||
if(idec.lt.0) then
|
|
||||||
irc=-2
|
|
||||||
dat4=0
|
|
||||||
endif
|
endif
|
||||||
|
|
||||||
!######################################################################
|
!######################################################################
|
||||||
! Compute the 2D CCF using sync symbols only
|
! Compute the 2D CCF using sync symbols only
|
||||||
100 ccf=0.
|
ccf=0.
|
||||||
call timer('2dccf ',0)
|
call timer('2dccf ',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