mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-04 08:21:17 -05:00
Add several instructive comments.
This commit is contained in:
parent
fbd5028711
commit
ceea631d5e
@ -166,7 +166,7 @@ subroutine wb_sync(ss,savg,jz,nfa,nfb)
|
||||
do lag=0,LAGMAX
|
||||
|
||||
ccf=0.
|
||||
do j=1,22
|
||||
do j=1,22 !Test for Q65 sync
|
||||
k=isync(j) + lag
|
||||
ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1) + ss(ipol,k+2,i+1)
|
||||
enddo
|
||||
@ -179,7 +179,7 @@ subroutine wb_sync(ss,savg,jz,nfa,nfb)
|
||||
endif
|
||||
|
||||
ccf=0.
|
||||
do j=1,63
|
||||
do j=1,63 !Test for JT65 sync, std msg
|
||||
k=jsync0(j) + lag
|
||||
ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1)
|
||||
enddo
|
||||
@ -192,7 +192,7 @@ subroutine wb_sync(ss,savg,jz,nfa,nfb)
|
||||
endif
|
||||
|
||||
ccf=0.
|
||||
do j=1,63
|
||||
do j=1,63 !Test for JT65 sync, OOO msg
|
||||
k=jsync1(j) + lag
|
||||
ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1)
|
||||
enddo
|
||||
|
Loading…
Reference in New Issue
Block a user