w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add several instructive comments.

Browse Source
This commit is contained in:
Joe Taylor 2021-06-16 15:03:22 -04:00
parent fbd5028711
commit ceea631d5e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
map65/libm65/wideband_sync.f90
View File

@ -166,7 +166,7 @@ subroutine wb_sync(ss,savg,jz,nfa,nfb)
do lag=0,LAGMAX do lag=0,LAGMAX
ccf=0. ccf=0.
do j=1,22 do j=1,22 !Test for Q65 sync
k=isync(j) + lag k=isync(j) + lag
ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1) + ss(ipol,k+2,i+1) ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1) + ss(ipol,k+2,i+1)
enddo enddo
@ -179,7 +179,7 @@ subroutine wb_sync(ss,savg,jz,nfa,nfb)
endif endif
ccf=0. ccf=0.
do j=1,63 do j=1,63 !Test for JT65 sync, std msg
k=jsync0(j) + lag k=jsync0(j) + lag
ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1) ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1)
enddo enddo
@ -192,7 +192,7 @@ subroutine wb_sync(ss,savg,jz,nfa,nfb)
endif endif
ccf=0. ccf=0.
do j=1,63 do j=1,63 !Test for JT65 sync, OOO msg
k=jsync1(j) + lag k=jsync1(j) + lag
ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1) ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1)
enddo enddo