From b252abb4623ae1461503182131054d4ff94b1bb9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 15 Feb 2023 11:57:35 -0500
Subject: [PATCH] Keep plotting gains for orange and red Q65 sync curves
constant.
---
lib/qra/q65/q65.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index 6d180edbc..65f72a821 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -691,9 +691,9 @@ subroutine q65_write_red(iz,xdt,ccf2_avg,ccf2)
i2=min(iz,int(nfb/df))
y0=minval(ccf2(i1:i2))
y0_avg=minval(ccf2_avg(i1:i2))
- g=1.0/(maxval(ccf2(i1:i2))-y0)
+ g=0.4
g_avg=0.
- if(maxval(ccf2_avg(i1:i2)).ne.y0_avg) g_avg=1.0/(maxval(ccf2_avg(i1:i2))-y0_avg)
+ if(maxval(ccf2_avg(i1:i2)).ne.y0_avg) g_avg=g
do i=i1,i2
freq=i*df