From 4bbba3a5f3f6b9d9a71cf2f5139060161caa20a2 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Sun, 15 May 2011 14:24:23 +0000
Subject: [PATCH] Cleanup, removing diagnostic prints.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2434 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 map65.py    | 2 +-
 pulsar.f90  | 5 +++--
 symspec.f90 | 2 ++
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/map65.py b/map65.py
index 82c72ba6b..af9e45080 100644
--- a/map65.py
+++ b/map65.py
@@ -1,4 +1,4 @@
-#--------------------------------------------------------------------- MAP65
+#-------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *
diff --git a/pulsar.f90 b/pulsar.f90
index 639102e09..4066afb3e 100644
--- a/pulsar.f90
+++ b/pulsar.f90
@@ -42,6 +42,7 @@ program pulsar
   nb=nblock
   if(nb.lt.0) nb=nb+65536
   lost=nb-nb0-1
+  if(lost.eq.-65536) lost=0
   if(lost.ne.0 .and. nb0.ne.0) print*,'Lost packets:',lost,nb,nb0
 
   write(20) id                               !Write raw data
@@ -62,8 +63,8 @@ program pulsar
      im=mod(nsec/60,60)
      is=mod(nsec,60)
      nw=nw+1
-     write(*,1000) nw,center_freq,ih,im,is,nblock,sqave,rxnoise,id2(1)
-     write(13,1000) nw,center_freq,0.001*msec,nblock,sqave,rxnoise,id2(1)
+     write(*,1000)  nw,center_freq,ih,im,is,nblock,sqave,rxnoise,id2(1)
+     write(13,1000) nw,center_freq,ih,im,is,nblock,sqave,rxnoise,id2(1)
 1000 format(i10,f7.3,i4,2i3.2,i7,f10.0,f8.2,i8)
      write(21) id2
 
diff --git a/symspec.f90 b/symspec.f90
index cb3df7fc7..bba6b8147 100644
--- a/symspec.f90
+++ b/symspec.f90
@@ -84,6 +84,8 @@ subroutine symspec(id,kbuf,kk,kkdone,nutc,newdat)
      enddo
      nz2=nz2+n2
      pctblank=nclip*100.0/nz2
+  else
+     pctblank=0.
   endif
 
   do nn=1,ntot