From 05d720201ac7893762d325890120458e2a0cd115 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 10 Feb 2024 09:29:57 -0500
Subject: [PATCH] Test smoothing of symbol spectra ...

---
 lib/superfox/hard_symbols.f90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/superfox/hard_symbols.f90 b/lib/superfox/hard_symbols.f90
index 730bb7c5e..3cd8b9672 100644
--- a/lib/superfox/hard_symbols.f90
+++ b/lib/superfox/hard_symbols.f90
@@ -21,6 +21,12 @@ subroutine hard_symbols(crcvd,f,t,jdat)
      do i=0,NSPS-1
         s(i)=real(c(i))**2 + aimag(c(i))**2
      enddo
+
+! Could we measure fspread, perhaps in the sync routine, and use that to
+! decide whether to smooth spectra here?
+!     call smo121(s,NSPS)                !Helps for LD, HM propagation...
+!     call smo121(s,NSPS)
+
      ipk=maxloc(s)
      ipk(1)=ipk(1)-j0
      if(ipk(1).ge.64) then
@@ -29,7 +35,6 @@ subroutine hard_symbols(crcvd,f,t,jdat)
         jdat(n)=ipk(1)+256-64
      endif
   enddo
-!  jdat(NN-1:nn)=0
 
   return
 end subroutine hard_symbols