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

Remove some obsolete, commented-out code. No real cghanges!

Browse Source
This commit is contained in:
Joe Taylor 2020-09-11 18:39:24 -04:00
parent 6ca77f0245
commit 8e69f84bdd
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/sync66.f90
View File

@ -66,9 +66,6 @@ subroutine sync66(iwave,nmax,mode66,nsps,nfqso,ntol,xdt,f0,snr1)
sync_sig=0. sync_sig=0.
ia=min(64,nint(ntol/df)) ia=min(64,nint(ntol/df))
dt4=nsps/(NSTEP*12000.0) !duration of 1/4 symbol dt4=nsps/(NSTEP*12000.0) !duration of 1/4 symbol
! lag2=nint(0.5/dt4)
! if(nsps.ge.7680) lag2=nint(1.0/dt4)
! lag1=-lag2
jadd=11 jadd=11
if(nsps.ge.3600) jadd=7 if(nsps.ge.3600) jadd=7
@ -78,7 +75,6 @@ subroutine sync66(iwave,nmax,mode66,nsps,nfqso,ntol,xdt,f0,snr1)
do i=-ia,ia do i=-ia,ia
x=s1(i0+2*mode66+i,:)-s1(i0+i,:) !Do the 2FSK demodulation x=s1(i0+2*mode66+i,:)-s1(i0+i,:) !Do the 2FSK demodulation
! do lag=lag1,lag2
do lag=-15,15 do lag=-15,15
do k=1,22 do k=1,22
n=4*NSTEP*(k-1) + 1 n=4*NSTEP*(k-1) + 1
@ -103,16 +99,6 @@ subroutine sync66(iwave,nmax,mode66,nsps,nfqso,ntol,xdt,f0,snr1)
xdt=jdt*tsym/4.0 xdt=jdt*tsym/4.0
snr1=maxval(sync_sig)/22.0 snr1=maxval(sync_sig)/22.0
! do i=-64,64
! write(62,3062) nfqso+i*df,sync_sig(i,jj)
!3062 format(2f12.3)
! enddo
! do j=-15,15
! write(63,3063) j,j*dt4,sync_sig(ii,j)
!3063 format(i5,2f12.3)
! enddo
return return
end subroutine sync66 end subroutine sync66