Fixed potential out-of-bounds at qphi(0).

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@502 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-07-12 16:09:28 +00:00
parent ec2efca061
commit 601cb8da4c
2 changed files with 2 additions and 2 deletions

View File

@ -1,4 +1,4 @@
#-------------------------------------------------------------------- MAP65
#--------------------------------------------------------------------- MAP65
# $Date$ $Revision$
#
from Tkinter import *

View File

@ -250,7 +250,7 @@ subroutine map65a(newdat)
write(11,1010) nkHz,ndf,npol,nutc,dt,nsync2,decoded,nkv,nqual
1010 format(i3,i5,i4,i5.4,f5.1,i4,2x,a22,i5,i4,i4)
else
qphi(iloop)=sig(k,10)
if(iloop.ge.1) qphi(iloop)=sig(k,10)
write(11,1010) nkHz,ndf,npol,nutc,dt,nsync2,decoded,nkv, &
nqual,30*iloop
write(27,1011) 30*iloop,nkHz,ndf,npol,nutc, &