From 950b87d893221e4557aee7ada754efcbb5fcfea4 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 29 May 2008 17:50:20 +0000
Subject: [PATCH] Fixed a bug -- probably very minor -- in filbig

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@818 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 filbig.f | 3 ++-
 map65.py | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/filbig.f b/filbig.f
index f91bf5f7c..7a176417e 100644
--- a/filbig.f
+++ b/filbig.f
@@ -70,6 +70,7 @@ C  If we just have a new f0, continue with the existing ca and cb.
             ca(i)=cmplx(float(int(id(1,i))),float(int(id(2,i))))
             cb(i)=cmplx(float(int(id(3,i))),float(int(id(4,i))))
          enddo
+
          if(nmax.lt.NFFT1) then
             do i=nmax+1,NFFT1
                ca(i)=0.
@@ -93,7 +94,7 @@ C      i0 is the bin number in ca and cb closest to f0.
       enddo
       do i=nh+1,NFFT2
          j=i0+i-1-NFFT2
-         if(j.lt.1) j=j+NFFT2
+         if(j.lt.1) j=j+NFFT1
          c4a(i)=rfilt(i)*ca(j)
          c4b(i)=rfilt(i)*cb(j)
       enddo
diff --git a/map65.py b/map65.py
index 156968722..7f4fb508f 100644
--- a/map65.py
+++ b/map65.py
@@ -1,4 +1,4 @@
-#-------------------------------------------------------------------- MAP65
+#--------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *