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

Disable sync2 calculation for now.

Browse Source
This commit is contained in:
Steve Franke 2019-02-07 10:16:28 -06:00
parent 60cb4a33aa
commit ecbeda5297
2 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/ft4/ft4_decode.f90
View File

@ -16,6 +16,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,nfqso,iwave,ndecodes,
character*6 hhmmss character*6 hhmmss
complex cd2(0:NMAX/NDOWN-1) !Complex waveform complex cd2(0:NMAX/NDOWN-1) !Complex waveform
complex cds(0:NMAX/NDOWN-1) !Complex waveform
complex cb(0:NMAX/NDOWN-1) complex cb(0:NMAX/NDOWN-1)
complex cd(0:NN*NSS-1) !Complex waveform complex cd(0:NN*NSS-1) !Complex waveform
complex ctwk(4*NSS),ctwk2(4*NSS) complex ctwk(4*NSS),ctwk2(4*NSS)

30
lib/ft4/sync4d.f90
View File

@ -74,20 +74,22 @@ subroutine sync4d(cd0,i0,ctwk,itwk,sync,sync2)
sync = p(z1) + p(z2) + p(z3) + p(z4) sync = p(z1) + p(z2) + p(z3) + p(z4)
sync2=0.0 sync2=0.0
do i=1,4 !do i=1,4
i1=i0+(i-1)*33*NSS ! i1=i0+(i-1)*33*NSS
if(i.eq.1) csync2=ctwk*csynca ! if(i.eq.1) csync2=ctwk*csynca
if(i.eq.2) csync2=ctwk*csyncb ! if(i.eq.2) csync2=ctwk*csyncb
if(i.eq.3) csync2=ctwk*csyncc ! if(i.eq.3) csync2=ctwk*csyncc
if(i.eq.4) csync2=ctwk*csyncd ! if(i.eq.4) csync2=ctwk*csyncd
z1=sum(cd0(i1 :i1+ NSS-1)*conjg(csync2( 1: NSS))) ! z1=sum(cd0(i1 :i1+ NSS-1)*conjg(csync2( 1: NSS)))
z2=sum(cd0(i1+ NSS:i1+2*NSS-1)*conjg(csync2( NSS+1:2*NSS))) ! z2=sum(cd0(i1+ NSS:i1+2*NSS-1)*conjg(csync2( NSS+1:2*NSS)))
z3=sum(cd0(i1+2*NSS:i1+3*NSS-1)*conjg(csync2(2*NSS+1:3*NSS))) ! z3=sum(cd0(i1+2*NSS:i1+3*NSS-1)*conjg(csync2(2*NSS+1:3*NSS)))
z4=sum(cd0(i1+3*NSS:i1+4*NSS-1)*conjg(csync2(3*NSS+1:4*NSS))) ! z4=sum(cd0(i1+3*NSS:i1+4*NSS-1)*conjg(csync2(3*NSS+1:4*NSS)))
sync2=sync2 + abs(z1)**2+abs(z2)**2+abs(z3)**2+abs(z4)**2+& ! sync2=sync2 + abs(z1)**2+abs(z2)**2+abs(z3)**2+abs(z4)**2+&
2*abs(z1*conjg(z2)+z2*conjg(z3)+z3*conjg(z4)) ! 2*abs(z1*conjg(z2)+z2*conjg(z3)+z3*conjg(z4)) + &
enddo ! 2*abs(z1*conjg(z3)+z2*conjg(z4)) + &
sync2=sync2*(fac**2) ! 2*abs(z1*conjg(z4))
!enddo
!sync2=sync2*(fac**2)
return return
end subroutine sync4d end subroutine sync4d