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

FT8: Avoid a crash when a wav file is processed multiple times.

Browse Source
This commit is contained in:
Steven Franke 2022-10-23 16:48:21 -05:00
parent 1bcad2eda5
commit 1bcbca4634
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/sync8.f90
View File

@ -88,7 +88,7 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,s,candidate, &
red=0. red=0.
red2=0. red2=0.
mlag=20 mlag=20
mlag2=62 mlag2=JZ
do i=ia,ib do i=ia,ib
ii=maxloc(sync2d(i,-mlag:mlag)) - 1 - mlag ii=maxloc(sync2d(i,-mlag:mlag)) - 1 - mlag
jpeak(i)=ii(1) jpeak(i)=ii(1)

4
lib/ft8_decode.f90
View File

@ -80,7 +80,9 @@ contains
dt0=0. dt0=0.
f0=0. f0=0.
endif endif
if(nutc.ne.nutc0) then !Added 41==nzhsym to force a reset if the same wav file is processed twice or more in a row,
!in which case nutc.eq.nutc0 and ndec(jseq,1) doesn't get reset
if(nzhsym==41 .or. (nutc.ne.nutc0)) then
! New UTC. Move previously saved 'a7' data from k=1 to k=0 ! New UTC. Move previously saved 'a7' data from k=1 to k=0
iz=ndec(jseq,1) iz=ndec(jseq,1)
dt0(1:iz,jseq,0) = dt0(1:iz,jseq,1) dt0(1:iz,jseq,0) = dt0(1:iz,jseq,1)