From 64108e85ea9bb7b74c86777516ba52dda2529390 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 8 Sep 2022 12:57:37 -0400
Subject: [PATCH] Minor cleanup of symspec.f90.

---
 lib/symspec.f90 | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lib/symspec.f90 b/lib/symspec.f90
index 38189a3c2..020acb40a 100644
--- a/lib/symspec.f90
+++ b/lib/symspec.f90
@@ -55,6 +55,7 @@ subroutine symspec(shared_data,k,TRperiod,nsps,ingain,bLowSidelobes,    &
   endif
 
   if(k.lt.k0) then                             !Start a new data block
+     k0=0
      ja=0
      ssum=0.
      ihsym=0
@@ -64,10 +65,6 @@ subroutine symspec(shared_data,k,TRperiod,nsps,ingain,bLowSidelobes,    &
   sq=0.
   pxmax=0.;
 
-!  dwell_time=0.0001
-!  if(k.gt.k0 .and. npct.gt.0) call blanker(shared_data%id2(k0+1:k),  &
-!       k-k0,dwell_time,npct)
-
   do i=k0+1,k
      x1=shared_data%id2(i)
      if (abs(x1).gt.pxmax) pxmax = abs(x1);