From 98c25d81d995444e0808b01d2d47ae45ef97c1c1 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 12 Jul 2007 16:09:28 +0000
Subject: [PATCH] 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
---
 map65.py   | 2 +-
 map65a.F90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/map65.py b/map65.py
index 14e33cbc8..84657c2cd 100644
--- a/map65.py
+++ b/map65.py
@@ -1,4 +1,4 @@
-#-------------------------------------------------------------------- MAP65
+#--------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *
diff --git a/map65a.F90 b/map65a.F90
index 523055593..782df9e78 100644
--- a/map65a.F90
+++ b/map65a.F90
@@ -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,  &