From 95bb84bb17c5dd310348d94f30ecbe3d57d0cde6 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 15 Jun 2007 14:17:57 +0000
Subject: [PATCH] Fixed end-of-line garbage in bandmap2.txt.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@390 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 display.F90 | 2 ++
 map65a.f90  | 1 +
 2 files changed, 3 insertions(+)

diff --git a/display.F90 b/display.F90
index 5d2da7a35..ad12cb550 100644
--- a/display.F90
+++ b/display.F90
@@ -133,6 +133,7 @@ subroutine display
   freqcall(nc)='          '
   nc=nc+1
   freqcall(nc)='          '
+  freqcall(nc+1)='          '
   iz=(nc+2)/3
   do i=1,iz
      bm2=freqcall(i)//'  '//freqcall(i+iz)//'  '//freqcall(i+2*iz)
@@ -140,6 +141,7 @@ subroutine display
 1040 format(a36)
   enddo
   call flushqqq(20)
+	print*,3*iz,nc
 
   return
 end subroutine display
diff --git a/map65a.f90 b/map65a.f90
index b1c022fc9..f41f088d7 100644
--- a/map65a.f90
+++ b/map65a.f90
@@ -84,6 +84,7 @@ subroutine map65a
      npol=45*(ipol-1)
      write(11,1010) nkHz,ndf,npol,nutc,nsync2,dt,nw,decoded,nkv,nqual
 1010 format(i3,i5,i4,i5.4,i4,f5.1,i3,2x,a22,2i3)
+     call flushqqq(11)
      ndecdone=1
   endif
   if(newdat2.eq.0) go to 999