mirror of https://github.com/saitohirga/WSJT-X.git
Rename q65_sync to q65_dec0.
This commit is contained in:
parent
0922a6ca6e
commit
bfca40aa1c
|
@ -497,8 +497,8 @@ set (wsjt_FSRCS
|
||||||
lib/polyfit.f90
|
lib/polyfit.f90
|
||||||
lib/prog_args.f90
|
lib/prog_args.f90
|
||||||
lib/ps4.f90
|
lib/ps4.f90
|
||||||
lib/qra/q65/q65_sync.f90
|
|
||||||
lib/qra/q65/q65_ap.f90
|
lib/qra/q65/q65_ap.f90
|
||||||
|
lib/qra/q65/q65_dec0.f90
|
||||||
lib/qra/q65/q65_loops.f90
|
lib/qra/q65/q65_loops.f90
|
||||||
lib/qra/q65/q65_set_list.f90
|
lib/qra/q65/q65_set_list.f90
|
||||||
lib/refspectrum.f90
|
lib/refspectrum.f90
|
||||||
|
|
|
@ -100,11 +100,11 @@ contains
|
||||||
call q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
|
call q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
|
||||||
dgen=0
|
dgen=0
|
||||||
call q65_enc(dgen,codewords) !Initialize the Q65 codec
|
call q65_enc(dgen,codewords) !Initialize the Q65 codec
|
||||||
call timer('sync_q65',0)
|
call timer('q65_dec0',0)
|
||||||
call q65_sync(nutc,iwave,ntrperiod, &
|
call q65_dec0(nutc,iwave,ntrperiod, &
|
||||||
nfqso,ntol,ndepth,lclearave,emedelay,xdt,f0,snr1,width,dat4, &
|
nfqso,ntol,ndepth,lclearave,emedelay,xdt,f0,snr1,width,dat4, &
|
||||||
snr2,idec)
|
snr2,idec)
|
||||||
call timer('sync_q65',1)
|
call timer('q65_dec0',1)
|
||||||
if(idec.ge.0) then
|
if(idec.ge.0) then
|
||||||
xdt1=xdt !We have a list-decode result
|
xdt1=xdt !We have a list-decode result
|
||||||
f1=f0
|
f1=f0
|
||||||
|
|
|
@ -15,7 +15,6 @@ module q65
|
||||||
|
|
||||||
contains
|
contains
|
||||||
|
|
||||||
|
|
||||||
subroutine q65_clravg
|
subroutine q65_clravg
|
||||||
|
|
||||||
s1a=0.
|
s1a=0.
|
||||||
|
@ -139,7 +138,6 @@ subroutine q65_dec_q3(df,s1,iz,jz,ia,lag1,lag2,i0,j0,ccf,ccf1,ccf2, &
|
||||||
if(mode_q65.eq.4) nsubmode=2
|
if(mode_q65.eq.4) nsubmode=2
|
||||||
if(mode_q65.eq.8) nsubmode=3
|
if(mode_q65.eq.8) nsubmode=3
|
||||||
if(mode_q65.eq.16) nsubmode=4
|
if(mode_q65.eq.16) nsubmode=4
|
||||||
nFadingModel=1
|
|
||||||
baud=12000.0/nsps
|
baud=12000.0/nsps
|
||||||
|
|
||||||
do ibw=ibwa,ibwb
|
do ibw=ibwa,ibwb
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
subroutine q65_sync(nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
|
subroutine q65_dec0(nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
|
||||||
emedelay,xdt,f0,snr1,width,dat4,snr2,idec)
|
emedelay,xdt,f0,snr1,width,dat4,snr2,idec)
|
||||||
|
|
||||||
! Detect and align with the Q65 sync vector, returning time and frequency
|
! Detect and align with the Q65 sync vector, returning time and frequency
|
||||||
|
@ -175,4 +175,4 @@ subroutine q65_sync(nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
|
||||||
close(17)
|
close(17)
|
||||||
|
|
||||||
900 return
|
900 return
|
||||||
end subroutine q65_sync
|
end subroutine q65_dec0
|
Loading…
Reference in New Issue