From 443aee5355b20ed7371af6950e451531df03b95a Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 25 Sep 2020 13:31:43 -0400
Subject: [PATCH] Restore AGC action in sync_qra65().

---
 lib/sync_qra65.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/sync_qra65.f90 b/lib/sync_qra65.f90
index 8d3bc1013..09681262b 100644
--- a/lib/sync_qra65.f90
+++ b/lib/sync_qra65.f90
@@ -54,10 +54,10 @@ subroutine sync_qra65(iwave,nmax,mode65,nsps,nfqso,ntol,xdt,f0,snr1)
   s1max=20.0
 
 ! Apply AGC
-!  do j=1,jz
-!     smax=maxval(s1(i0-64:i0+192,j))
-!     if(smax.gt.s1max) s1(i0-64:i0+192,j)=s1(i0-64:i0+192,j)*s1max/smax
-!  enddo
+  do j=1,jz
+     smax=maxval(s1(i0-64:i0+192,j))
+     if(smax.gt.s1max) s1(i0-64:i0+192,j)=s1(i0-64:i0+192,j)*s1max/smax
+  enddo
 
 !  do i=1,iz
 !     write(60,3060) i,i*df,sum(s1(i,1:jz))