--- DarthVader/TrackerLevel2/src/F77/cncomp.f	2006/09/29 08:13:04	1.5
+++ DarthVader/TrackerLevel2/src/F77/cncomp.f	2007/08/20 16:07:16	1.8
@@ -51,17 +51,16 @@
       
       do k=1,nstrips_va1
          nstr = nstr + strange(i,j,k) !uses only
-         if(mod(i,2).eq.1) then !odd strip ---> Y view
+         if(mod(i,2).eq.1) then ! ---> Y view
             signal(k) = - (DBLE(adc(i,j,k)) - pedestal(i,j,k)) !negative signal
-         else                   !even strip ---> X view
+         else                   ! ---> X view
             signal(k) =    DBLE(adc(i,j,k)) - pedestal(i,j,k) !positive signal
          endif
          smean = smean + signal(k)*strange(i,j,k)
          ssigma = ssigma + (signal(k)**2)*strange(i,j,k)
       enddo
       
-      smean=smean/nstr          !strips value distribution mean
-      
+      smean=smean/nstr          !strips value distribution mean      
       ssigma=SQRT((ssigma/nstr)-smean**2) !strips value distribution sigma
       
       cut=scut*ssigma           !exclusion cut
@@ -157,22 +156,26 @@
       
       ncn=0                     !number of strips in cn computation
       cn(i,j)=0                 !initializes cn variable
+      cnrms(i,j)=0              !initializes cn rms
       cnn(i,j)=0                !initialize cn flag 
 
       do k=1,nstrips_va1        !loops on strips
 *        tags strange, bad or signal-affected strips
          iok = strange(i,j,k)*bad(i,j,k)*clstr(i,j,k) 
          cn(i,j) = cn(i,j) + (DBLE(adc(i,j,k)) - pedestal(i,j,k))*iok 
+         cnrms(i,j) = cnrms(i,j) 
+     $        + (DBLE(adc(i,j,k)) - pedestal(i,j,k))
+     $        *(DBLE(adc(i,j,k)) - pedestal(i,j,k))*iok 
          ncn = ncn + iok            !counts number of strips in cn computation
       enddo
       
       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 '
@@ -181,9 +184,13 @@
          cnn(i,j) = 0
       else
          cn(i,j)=cn(i,j)/DBLE(ncn) !<<<< computes common noise
+         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