w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-08 09:32:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Process the q3 candidates in frequency order rather than snr1 order.

Browse Source
This commit is contained in:
Joe Taylor 2023-02-15 17:05:15 -05:00
parent f9d2ca736d
commit da3c63e739
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/qra/q65/q65.f90
View File

@ -493,6 +493,7 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,iavg,ipk,jpk, &
real s1(iz,jz) real s1(iz,jz)
real ccf2(iz) !Orange sync curve real ccf2(iz) !Orange sync curve
real tmp(20,3)
real, allocatable :: xdt2(:) real, allocatable :: xdt2(:)
real, allocatable :: s1avg(:) real, allocatable :: s1avg(:)
integer, allocatable :: indx(:) integer, allocatable :: indx(:)
@ -591,6 +592,13 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,iavg,ipk,jpk, &
if(ncand.ge.maxcand) exit if(ncand.ge.maxcand) exit
enddo enddo
! Resort the candidates back into frequency order
tmp(1:ncand,1:3)=candidates(1:ncand,1:3)
call indexx(tmp(1:ncand,3),ncand,indx)
do i=1,ncand
candidates(i,1:3)=tmp(indx(i),1:3)
enddo
return return
end subroutine q65_ccf_22 end subroutine q65_ccf_22