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

Fix a bounds violation.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7759 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-07-01 13:45:16 +00:00
parent c61d328300
commit c4f056dca8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/fsk4hf/ft8b.f90
View File

@ -116,7 +116,8 @@ subroutine ft8b(dd0,s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
j=0 j=0
do k=1,NN do k=1,NN
i1=ibest+(k-1)*32 i1=ibest+(k-1)*32
csymb=cd0(i1:i1+31) csymb=cmplx(0.0,0.0)
if( i1.gt.1 .and. i1+31 .lt. NP2 ) csymb=cd0(i1:i1+31)
call four2a(csymb,32,1,-1,1) call four2a(csymb,32,1,-1,1)
s2(0:7,k)=abs(csymb(1:8)) s2(0:7,k)=abs(csymb(1:8))
enddo enddo
@ -185,6 +186,7 @@ subroutine ft8b(dd0,s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
xsnr=xsig/xnoi-1.0 xsnr=xsig/xnoi-1.0
if( xsnr .lt. 0.0 ) xsnr=0.005 if( xsnr .lt. 0.0 ) xsnr=0.005
xsnr=10.0*log10(xsnr)-26.3 xsnr=10.0*log10(xsnr)-26.3
if( xsnr .lt. -24.0 ) xsnr=-24.0
endif endif
900 continue 900 continue
return return