w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-30 05:12:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'feat-ft2' of bitbucket.org:k1jt/wsjtx into feat-ft2

Browse Source
This commit is contained in:
Joe Taylor 2019-01-31 11:38:55 -05:00
commit 0dd4577143
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft4/sync4d.f90
View File

@ -35,9 +35,9 @@ subroutine sync4d(cd0,i0,ctwk,itwk,sync)
sync=0 sync=0
i1=i0 !four Costas arrays i1=i0 !four Costas arrays
i2=i0+33*NSS-1 i2=i0+33*NSS
i3=i0+66*NSS-1 i3=i0+66*NSS
i4=i0+99*NSS-1 i4=i0+99*NSS
csync2=csync csync2=csync
if(itwk.eq.1) csync2=ctwk*csync2 !Tweak the frequency if(itwk.eq.1) csync2=ctwk*csync2 !Tweak the frequency
if(i1.ge.0 .and. i1+4*NSS-1.le.NP-1) z1=sum(cd0(i1:i1+4*NSS-1)*conjg(csync2)) if(i1.ge.0 .and. i1+4*NSS-1.le.NP-1) z1=sum(cd0(i1:i1+4*NSS-1)*conjg(csync2))