Adjust Q65 jitter-loop ranges according to ndepth.

This commit is contained in:
Joe Taylor 2020-11-20 17:07:11 -05:00
parent 7ff3d598c8
commit d9cb870540
1 changed files with 11 additions and 7 deletions

View File

@ -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