diff --git a/lib/qra/q65/q65_loops.f90 b/lib/qra/q65/q65_loops.f90 index 8ca0b322c..1e1576556 100644 --- 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)