From 057967a7610eb9f271e367b80c756bd16b2b0439 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 30 Dec 2020 08:44:56 -0500
Subject: [PATCH] For Q65 nsg averaging, wrap nsave when it reaches MAXAVE.

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

diff --git a/lib/qra/q65/q65_avg.f90 b/lib/qra/q65/q65_avg.f90
index 7ff7724be..9d605fb72 100644
--- a/lib/qra/q65/q65_avg.f90
+++ b/lib/qra/q65/q65_avg.f90
@@ -51,6 +51,7 @@ subroutine q65_avg(nutc,ntrperiod,LL,ntol,lclearave,baud,nsubmode,   &
 
 ! Save data for message averaging
   nsave=nsave+1
+  nsave=mod(nsave-1,MAXAVE)+1
   n=nutc
   if(ntrperiod.ge.60) n=100*n
   write(cutc,'(i6.6)') n