mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-13 15:41:50 -05:00
Q65 sync curves linear up to 10, then logarithmic. AutoClrAvg only for decodes at RxFreq, and never for "lagain" decode attempts.
This commit is contained in:
parent
bb1306a54b
commit
41ce20101f
@ -234,7 +234,9 @@ contains
|
|||||||
nsnr=nint(snr2)
|
nsnr=nint(snr2)
|
||||||
call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, &
|
call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, &
|
||||||
idec,nused,ntrperiod)
|
idec,nused,ntrperiod)
|
||||||
if(iand(ndepth,128).ne.0) call q65_clravg !AutoClrAvg after decode
|
! if(iand(ndepth,128).ne.0) call q65_clravg !AutoClrAvg after decode
|
||||||
|
if(iand(ndepth,128).ne.0 .and. .not.lagain .and. &
|
||||||
|
int(abs(f0dec-nfqso)).le.ntol ) call q65_clravg !AutoClrAvg
|
||||||
call sec0(1,tdecode)
|
call sec0(1,tdecode)
|
||||||
open(22,file=trim(data_dir)//'/q65_decodes.dat',status='unknown', &
|
open(22,file=trim(data_dir)//'/q65_decodes.dat',status='unknown', &
|
||||||
position='append',iostat=ios)
|
position='append',iostat=ios)
|
||||||
@ -316,7 +318,9 @@ contains
|
|||||||
nsnr=nint(snr2)
|
nsnr=nint(snr2)
|
||||||
call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, &
|
call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, &
|
||||||
idec,nused,ntrperiod)
|
idec,nused,ntrperiod)
|
||||||
if(iand(ndepth,128).ne.0) call q65_clravg !AutoClrAvg after decode
|
! if(iand(ndepth,128).ne.0) call q65_clravg !AutoClrAvg after decode
|
||||||
|
if(iand(ndepth,128).ne.0 .and. .not.lagain .and. &
|
||||||
|
int(abs(f0dec-nfqso)).le.ntol ) call q65_clravg !AutoClrAvg
|
||||||
call sec0(1,tdecode)
|
call sec0(1,tdecode)
|
||||||
open(22,file=trim(data_dir)//'/q65_decodes.dat',status='unknown', &
|
open(22,file=trim(data_dir)//'/q65_decodes.dat',status='unknown', &
|
||||||
position='append',iostat=ios)
|
position='append',iostat=ios)
|
||||||
|
@ -583,8 +583,12 @@ subroutine q65_write_red(iz,xdt,ccf2_avg,ccf2)
|
|||||||
write(17,1000) xdt
|
write(17,1000) xdt
|
||||||
do i=max(1,nint(nfa/df)),nint(nfb/df)
|
do i=max(1,nint(nfa/df)),nint(nfb/df)
|
||||||
freq=i*df
|
freq=i*df
|
||||||
write(17,1000) freq,ccf2_avg(i),ccf2(i)
|
y1=ccf2_avg(i)
|
||||||
1000 format(f10.3,2e12.3)
|
if(y1.gt.10.0) y1=10.0 + 2.0*log10(y1/10.0)
|
||||||
|
y2=ccf2(i)
|
||||||
|
if(y2.gt.10.0) y2=10.0 + 2.0*log10(y2/10.0)
|
||||||
|
write(17,1000) freq,y1,y2
|
||||||
|
1000 format(3f10.3)
|
||||||
enddo
|
enddo
|
||||||
flush(17)
|
flush(17)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user