mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-26 15:16:35 -04:00
Correct for the fact that ss and savg start at bin 1 = zero freq.
This commit is contained in:
parent
25584f09e5
commit
d010929fab
@ -43,9 +43,9 @@ subroutine wb_sync(ss,savg)
|
|||||||
ccf=0.
|
ccf=0.
|
||||||
do j=1,22
|
do j=1,22
|
||||||
k=isync(j) + lag
|
k=isync(j) + lag
|
||||||
ccf=ccf + ss(ipol,k,i)
|
ccf=ccf + ss(ipol,k,i+1)
|
||||||
enddo
|
enddo
|
||||||
ccf=ccf - savg(ipol,i)*22.0/322.0
|
ccf=ccf - savg(ipol,i+1)*22.0/322.0
|
||||||
if(ccf.gt.ccfmax) then
|
if(ccf.gt.ccfmax) then
|
||||||
ipolbest=ipol
|
ipolbest=ipol
|
||||||
lagbest=lag
|
lagbest=lag
|
||||||
@ -60,8 +60,9 @@ subroutine wb_sync(ss,savg)
|
|||||||
sync_dat(i,2)=ccfmax
|
sync_dat(i,2)=ccfmax
|
||||||
sync_dat(i,3)=xdt
|
sync_dat(i,3)=xdt
|
||||||
sync_dat(i,4)=ipolbest
|
sync_dat(i,4)=ipolbest
|
||||||
! write(14,3010) i,sync_dat(i,1:3),nint(sync_dat(i,4)),0.001*i*df,nkhz_center
|
! f0=0.001*i*df
|
||||||
!3010 format(i6,3f10.3,i5,f10.3,i5)
|
! write(70,3010) f0,sync_dat(i,2:3),nint(sync_dat(i,4)),0.001*i*df,nkhz_center
|
||||||
|
!3010 format(3f10.3,i5,f10.3,i5)
|
||||||
|
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user