--- DarthVader/TrackerLevel2/src/F77/cncomp.f 2006/10/26 16:22:37 1.6 +++ DarthVader/TrackerLevel2/src/F77/cncomp.f 2007/08/20 16:07:16 1.8 @@ -171,11 +171,11 @@ if(ncn.lt.NSTRIPMIN) then !no signal free strips on this VA1... if(ncn.eq.0)then - if(debug)print*,' WARNING - cnoise: ', + if(debug.eq.1)print*,' WARNING - cnoise: ', $ 'no strips for CN computation on VA1 ',j, $ ', VIEW ',i,' >>> FAILED ' else - if(debug)print*,' WARNING - cnoise: ', + if(debug.eq.1)print*,' WARNING - cnoise: ', $ 'less than ',NSTRIPMIN $ ,' strips for CN computation on VA1 ',j, $ ', VIEW ',i,' >>> FAILED ' @@ -187,7 +187,10 @@ cnrms(i,j)= SQRT( cnrms(i,j)/DBLE(ncn) - cn(i,j)**2 ) cnn(i,j) = ncn gulp=0 - if(debug.and.ABS(cn(i,j)).gt.1000) +c$$$ print*,'Event ',eventn(1) +c$$$ $ ,': cn(',i,',',j,')= ',cn(i,j),' ncn ',ncn + + if(debug.eq.1.and.ABS(cn(i,j)).gt.1000) $ print*,'Event ',eventn(1) $ ,': cn(',i,',',j,')= ',cn(i,j),' ncn ',ncn endif