--- DarthVader/TrackerLevel2/src/F77/analysissubroutines.f	2008/12/23 11:28:36	1.38
+++ DarthVader/TrackerLevel2/src/F77/analysissubroutines.f	2009/01/26 14:01:41	1.39
@@ -4105,7 +4105,7 @@
                alfayz2_av_nt(iyz)=alfayz2_av(iyz)
                nnn=nnn+ptcloud_yz(iyz)
             enddo
-            do ipt=1,nnn
+            do ipt=1,min(ndblt_max_nt,nnn)
                db_cloud_nt(ipt)=db_cloud(ipt)
              enddo
          endif
@@ -4118,7 +4118,7 @@
                alfaxz3_av_nt(ixz)=alfaxz3_av(ixz)
                nnn=nnn+ptcloud_xz(ixz)               
             enddo
-            do ipt=1,nnn
+            do ipt=1,min(ntrpt_max_nt,nnn)
               tr_cloud_nt(ipt)=tr_cloud(ipt)
              enddo
          endif