--- DarthVader/TrackerLevel2/src/F77/analysissubroutines.f	2009/11/10 15:50:16	1.42
+++ DarthVader/TrackerLevel2/src/F77/analysissubroutines.f	2009/12/14 10:51:40	1.43
@@ -528,14 +528,6 @@
 
 
 *     --- and store the results --------------------------------
-         ntrk = ntrk + 1                   !counter of found tracks
-         if(.not.FIMAGE
-     $        .and.iimage.eq.0) image(ntrk)= 0
-         if(.not.FIMAGE
-     $        .and.iimage.ne.0)image(ntrk)=ntrk+1 !this is the image of the next
-         if(FIMAGE)     image(ntrk)=ntrk-1 !this is the image of the previous
-         call fill_level2_tracks(ntrk)     !==> good2=.true.
-
          if(ntrk.eq.NTRKMAX)then
             if(verbose.eq.1)
      $           print*,
@@ -545,6 +537,24 @@
 cc            good2=.false.
             goto 880            !fill ntp and go to next event
          endif
+
+         ntrk = ntrk + 1                   !counter of found tracks
+         if(.not.FIMAGE
+     $        .and.iimage.eq.0) image(ntrk)= 0
+         if(.not.FIMAGE
+     $        .and.iimage.ne.0)image(ntrk)=ntrk+1 !this is the image of the next
+         if(FIMAGE)     image(ntrk)=ntrk-1 !this is the image of the previous
+         call fill_level2_tracks(ntrk)     !==> good2=.true.
+
+c$$$         if(ntrk.eq.NTRKMAX)then
+c$$$            if(verbose.eq.1)
+c$$$     $           print*,
+c$$$     $           '** warning ** number of identified '// 
+c$$$     $           'tracks exceeds vector dimension '
+c$$$     $           ,'( ',NTRKMAX,' )'
+c$$$cc            good2=.false.
+c$$$            goto 880            !fill ntp and go to next event
+c$$$         endif
          if(iimage.ne.0)then
             FIMAGE=.true.       !
             goto 1212           !>>> fit image-track