/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/reductionflight.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/reductionflight.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by pam-fi, Fri Aug 31 14:56:52 2007 UTC revision 1.24 by pam-fi, Tue Nov 27 15:28:58 2007 UTC
# Line 503  c--------------------------------------- Line 503  c---------------------------------------
503  c-------------------------------------------------------------------------------  c-------------------------------------------------------------------------------
504  c     adjust the cluster in order to have at least ANOTHER strip around the seed  c     adjust the cluster in order to have at least ANOTHER strip around the seed
505  c-------------------------------------------------------------------------------  c-------------------------------------------------------------------------------
506  c$$$               if(iseed-1.eq.lmax.and.lmax.ne.first)then                 if(iseed-1.eq.lmax.and.lmax.ne.first)then
507  c$$$                  lmax = lmax-1                    lmax = lmax-1
508  c$$$                  if( (rmax-lmax+1).gt.nclstrp )rmax=rmax-1                    if( (rmax-lmax+1).gt.nclstrp )rmax=rmax-1
509  c$$$               endif                 endif
510  c$$$               if(iseed+1.eq.rmax.and.rmax.ne.last )then                 if(iseed+1.eq.rmax.and.rmax.ne.last )then
511  c$$$                  rmax = rmax+1                    rmax = rmax+1
512  c$$$                  if( (rmax-lmax+1).gt.nclstrp )lmax=lmax+1                    if( (rmax-lmax+1).gt.nclstrp )lmax=lmax+1
513  c$$$               endif                 endif
514  c---------------------------------------------------  c---------------------------------------------------
515  c     now we have 5 stored-strips around the maximum  c     now we have 5 stored-strips around the maximum
516  c---------------------------------------------------  c---------------------------------------------------
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.23