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

another realignment of red sync curve and convention for f0.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-27 10:35:04 -05:00
parent c8ace441f9
commit 5c805dfb39
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/q65_sync.f90
View File

@ -148,7 +148,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps,nfqso,ntol,
j=j0 + NSTEP*(k-1) + 1 + lag j=j0 + NSTEP*(k-1) + 1 + lag
if(j.ge.1 .and. j.le.jz) then if(j.ge.1 .and. j.le.jz) then
do i=-ia2,ia2 do i=-ia2,ia2
ii=i0+mode_q65*(itone(k)+1)+i ii=i0+mode_q65*itone(k)+i
if(ii.ge.iia .and. ii.le.iz) ccf(i,lag)=ccf(i,lag) + s1(ii,j) if(ii.ge.iia .and. ii.le.iz) ccf(i,lag)=ccf(i,lag) + s1(ii,j)
enddo enddo
endif endif
@ -159,8 +159,8 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps,nfqso,ntol,
ccf_best=ccfmax ccf_best=ccfmax
ijpk=maxloc(ccf(-ia:ia,:)) ijpk=maxloc(ccf(-ia:ia,:))
ipk=ijpk(1)-ia-1 ipk=ijpk(1)-ia-1
jpk=ijpk(2)-53-1 jpk=ijpk(2)-53-1
f0=nfqso + ipk*df f0=nfqso + (ipk-mode_q65)*df
xdt=jpk*dtstep xdt=jpk*dtstep
imsg_best=imsg imsg_best=imsg
ccf1=ccf(:,jpk) ccf1=ccf(:,jpk)
@ -284,7 +284,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps,nfqso,ntol,
if(i2.eq.-9999 .and. ccf1(-i).ge.0.5*smax) i2=-i if(i2.eq.-9999 .and. ccf1(-i).ge.0.5*smax) i2=-i
enddo enddo
do i=-ia2,ia2 do i=-ia2,ia2
freq=nfqso + i*df freq=nfqso + (i-mode_q65)*df
write(17,1100) freq,ccf1(i),xdt write(17,1100) freq,ccf1(i),xdt
1100 format(3f10.3) 1100 format(3f10.3)
enddo enddo