From d9cb87054057d3fcc7b6761134c5bf7b5a177aa6 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 20 Nov 2020 17:07:11 -0500
Subject: [PATCH] Adjust Q65 jitter-loop ranges according to ndepth.

---
 lib/qra/q65/q65_loops.f90 | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/lib/qra/q65/q65_loops.f90 b/lib/qra/q65/q65_loops.f90
index a3d62e765..8ca0b322c 100644
--- a/lib/qra/q65/q65_loops.f90
+++ b/lib/qra/q65/q65_loops.f90
@@ -25,16 +25,20 @@ subroutine q65_loops(c00,nutc,npts2,nsps,mode,mode64,nsubmode,nFadingModel,   &
   allocate(c0(0:npts2-1))
   irc=-99
   s3lim=20.
-!  ibwmax=11
-!  if(mode64.le.4) ibwmax=9
-!  ibwmin=ibwmax
-!  idtmax=3
-!  call qra_params(ndepth,maxaptype,idfmax,idtmax,ibwmin,ibwmax,maxdist)
-  idfmax=5
-  idtmax=5
+
+  idfmax=3
+  idtmax=3
   ibwmin=1
   ibwmax=2
   maxdist=15
+  if(ndepth.ge.2) then
+     idfmax=5
+     idtmax=5
+     maxdist=25
+  endif
+  if(ndepth.eq.3) then
+     ibwmax=5
+  endif
   LL=64*(mode64+2)
   NN=63
   napmin=99