w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-12-23 19:25:37 -05:00
Code Issues Packages Projects Releases Wiki Activity

fixed an array overrun

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6737 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-06-06 02:48:06 +00:00
parent 51428985b3
commit b84a07349c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/syncmsk144.f90
View File

@ -163,12 +163,15 @@ subroutine syncmsk144(cdat,npts,msgreceived,fest)
! we want ic to be the index of the first sample of the message
ic=ipeaks(ipk)
if( ic .le. 864 ) ic=ic+864
if( ic .gt. 2*864 ) ic=ic-864
! now do fine adjustment of sync index
! bb is used to place the sampling index at the center of the eye
do i=1,6
io=i-3
ul=min(ic+io+6+864,npts)
bb(i) = sum( ( cdat(ic+io:ul-6:6) * conjg( cdat(ic+io+6:ul:6) ) )*2 )
ill=max(1,ic+io)
iul=min(ic+io+6+864,npts)
bb(i) = sum( ( cdat(ic+io:iul-6:6) * conjg( cdat(ic+io+6:iul:6) ) )*2 )
enddo
iloc=maxloc(abs(bb))
ibb=iloc(1)