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

Protect against a bounds error when no input data.

Browse Source
This commit is contained in:
Joe Taylor 2021-07-18 08:39:34 -04:00
parent b25ef318a4
commit 3d04c767ca
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -425,9 +425,13 @@ subroutine q65_ccf_85(s1,iz,jz,nfqso,ia,ia2,ipk,jpk,f0,xdt,imsg_best, &
endif
best(imsg)=ccfmax
enddo ! imsg
deallocate(ccf)
best(imsg_best)=0.
better=ccf_best/maxval(best)
better=0.
if(imsg_best.gt.0) then
best(imsg_best)=0.
better=ccf_best/maxval(best)
endif
return
end subroutine q65_ccf_85