w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 14:42:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove some debug statements.

Browse Source
This commit is contained in:
Steven Franke 2022-10-21 13:50:01 -05:00
parent f4e8ee4f75
commit 1bcad2eda5
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft8/sync8.f90
View File

@ -124,7 +124,6 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,s,candidate, &
candidate0(1,k)=n*df candidate0(1,k)=n*df
candidate0(2,k)=(jpeak(n)-0.5)*tstep candidate0(2,k)=(jpeak(n)-0.5)*tstep
candidate0(3,k)=red(n) candidate0(3,k)=red(n)
!write(*,*) i, k, candidate0(1,k), candidate0(2,k), candidate0(3,k)
endif endif
if(abs(jpeak2(n)-jpeak(n)).eq.0) cycle if(abs(jpeak2(n)-jpeak(n)).eq.0) cycle
if(k.ge.MAXPRECAND) exit if(k.ge.MAXPRECAND) exit
@ -133,11 +132,9 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,s,candidate, &
candidate0(1,k)=n*df candidate0(1,k)=n*df
candidate0(2,k)=(jpeak2(n)-0.5)*tstep candidate0(2,k)=(jpeak2(n)-0.5)*tstep
candidate0(3,k)=red2(n) candidate0(3,k)=red2(n)
!write(*,*) i, k, candidate0(1,k), candidate0(2,k), candidate0(3,k)
endif endif
enddo enddo
ncand=k ncand=k
!write(*,*) 'sync8: before deduping ',ncand
! Save only the best of near-dupe freqs. ! Save only the best of near-dupe freqs.
do i=1,ncand do i=1,ncand
@ -177,6 +174,5 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,s,candidate, &
endif endif
enddo enddo
ncand=k-1 ncand=k-1
!write(*,*) 'sync8: after deduping ',ncand
return return
end subroutine sync8 end subroutine sync8