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

Further improvements for decoding drifting JT65 signals.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8601 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2018-04-02 18:57:08 +00:00
parent e7e1b3c3cc
commit d0db3f74d6
1 changed files with 25 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
lib/afc65b.f90
View File

@ -6,23 +6,34 @@ subroutine afc65b(cx,npts,fsample,nflip,mode65,a,ccfbest,dtbest)
real a(5),deltaa(5) real a(5),deltaa(5)
a=0. a=0.
i2=8*mode65
i1=-i2
j2=8*mode65
j1=-j2
ccfmax=0. ccfmax=0.
istep=mode65 istep=2*mode65
do i=-30,30,istep do iter=1,2
a(1)=i do i=i1,i2,istep
do j=-30,30,istep a(1)=i
a(2)=j do j=j1,j2,istep
chisq=fchisq65(cx,npts,fsample,nflip,a,ccf,dtmax) a(2)=j
if(ccf.gt.ccfmax) then chisq=fchisq65(cx,npts,fsample,nflip,a,ccf,dtmax)
a1=a(1) if(ccf.gt.ccfmax) then
a2=a(2) a1=a(1)
ccfmax=ccf a2=a(2)
endif ccfmax=ccf
! write(81,3081) i,j,ccf,dtmax endif
!3081 format(2i5,2f10.3) ! write(81,3081) istep,i1,i2,j1,j2,i,j,ccf,ccfmax,dtmax,a1,a2
!3081 format(7i4,5f8.2)
enddo
enddo enddo
i1=a1-istep
i2=a1+istep
j1=a2-istep
j2=a2+istep
istep=1
enddo enddo
! a(1)=0. ! a(1)=0.
! a(2)=0. ! a(2)=0.
a(1)=a1 a(1)=a1