--- DarthVader/TrackerLevel2/src/F77/reductionflight.f 2007/08/31 14:56:52 1.23 +++ DarthVader/TrackerLevel2/src/F77/reductionflight.f 2007/11/27 15:28:58 1.24 @@ -503,14 +503,14 @@ c------------------------------------------------------------------------------- c adjust the cluster in order to have at least ANOTHER strip around the seed c------------------------------------------------------------------------------- -c$$$ if(iseed-1.eq.lmax.and.lmax.ne.first)then -c$$$ lmax = lmax-1 -c$$$ if( (rmax-lmax+1).gt.nclstrp )rmax=rmax-1 -c$$$ endif -c$$$ if(iseed+1.eq.rmax.and.rmax.ne.last )then -c$$$ rmax = rmax+1 -c$$$ if( (rmax-lmax+1).gt.nclstrp )lmax=lmax+1 -c$$$ endif + if(iseed-1.eq.lmax.and.lmax.ne.first)then + lmax = lmax-1 + if( (rmax-lmax+1).gt.nclstrp )rmax=rmax-1 + endif + if(iseed+1.eq.rmax.and.rmax.ne.last )then + rmax = rmax+1 + if( (rmax-lmax+1).gt.nclstrp )lmax=lmax+1 + endif c--------------------------------------------------- c now we have 5 stored-strips around the maximum c---------------------------------------------------