Fix a potential array bounds issue in osd174.f90.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8040 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-08-28 21:09:44 +00:00
parent fb3f07cd4c
commit 89e3e989ca

View File

@ -200,7 +200,7 @@ if(npre2.eq.1) then
do i1=K,1,-1
do i2=i1-1,1,-1
ntotal=ntotal+1
mi=ieor(g2(K+1:K+ntau,i1),g2(K+1:K+ntau,i2))
mi(1:ntau)=ieor(g2(K+1:K+ntau,i1),g2(K+1:K+ntau,i2))
call boxit(reset,mi(1:ntau),ntau,ntotal,i1,i2)
enddo
enddo