Fix the use of ndepth for setting jitter-loop limits.

2020-11-21 11:34:17 -05:00 · 2020-11-21 11:34:17 -05:00 · b2833fd6f0
parent 8e4ed9b3be
commit b2833fd6f0
1 changed files with 4 additions and 4 deletions
--- a/lib/qra/q65/q65_loops.f90
+++ b/lib/qra/q65/q65_loops.f90
@ -30,13 +30,13 @@ subroutine q65_loops(c00,nutc,npts2,nsps,mode,mode64,nsubmode,nFadingModel,   &
  idtmax=3
  ibwmin=1
  ibwmax=2
-  maxdist=15
-  if(ndepth.ge.2) then
+  maxdist=5
+  if(iand(ndepth,3).ge.2) then
     idfmax=5
     idtmax=5
-     maxdist=25
+     maxdist=15
  endif
-  if(ndepth.eq.3) then
+  if(iand(ndepth,3).eq.3) then
     ibwmax=5
  endif
  LL=64*(mode64+2)