From b64520591f729437be66081188348f9347d30c68 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 22 Jan 2021 15:16:21 -0500
Subject: [PATCH] Don't smooth at all if nsmo = 1: i.e., set it to nsmo=0.

---
 lib/qra/q65/q65.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index eb0e6bd16..bca660c43 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -256,6 +256,7 @@ subroutine q65_symspec(iwave,nmax,iz,jz,s1)
         s1(i,j)=real(c0(i))**2 + aimag(c0(i))**2
      enddo
 ! For large Doppler spreads, should we smooth the spectra here?
+     if(nsmo.le.1) nsmo=0
      do i=1,nsmo
         call smo121(s1(1:iz,j),iz)
      enddo