From 03e67dff4737dfdb92ce8be5afaceb3bb6bc91ac Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 27 Apr 2021 15:17:18 -0400
Subject: [PATCH] Trivial code cleanup in q65.g90.

---
 lib/qra/q65/q65.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index a85c32719..c3ddf682a 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -69,6 +69,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave,  &
   data first/.true./
   save first
 
+  NN=63
   if(nutc+ndepth.eq.-999) stop           !Silence compiler warnings
 
 ! Set some parameters and allocate storage for large arrays
@@ -190,7 +191,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave,  &
 
   smax=maxval(ccf1)
 
-! Estimate frequenct spread
+! Estimate frequency spread
   i1=-9999
   i2=-9999
   do i=-ia,ia