From 47aeb84c052547a95dc99ae23234582ee9697c80 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 15 Feb 2023 17:27:51 -0500
Subject: [PATCH] Try for q3 averages only if 'Enable averaging' is checked.
---
lib/q65_decode.f90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index a0a3afaf6..f3367d481 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -213,7 +213,9 @@ contains
f0dec=f0
go to 100
endif
- if(ncontest.eq.1 .and. lagain) go to 50
+
+ if(ncontest.eq.1 .and. lagain .and. iand(ndepth,16).eq.16) go to 50
+ if(ncontest.eq.1 .and. lagain .and. iand(ndepth,16).eq.0) go to 100
! Prepare for a single-period decode with iaptype = 0, 1, 2, or 4
jpk0=(xdt+1.0)*6000 !Index of nominal start of signal