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

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

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

revision 1.7 by pam-fi, Thu May 24 16:45:48 2007 UTC revision 1.8 by pam-fi, Mon Aug 20 16:07:16 2007 UTC
# Line 171  c--------------------------------------- Line 171  c---------------------------------------
171                
172        if(ncn.lt.NSTRIPMIN) then         !no signal free strips on this VA1...        if(ncn.lt.NSTRIPMIN) then         !no signal free strips on this VA1...
173           if(ncn.eq.0)then           if(ncn.eq.0)then
174              if(debug)print*,' WARNING - cnoise: ',              if(debug.eq.1)print*,' WARNING - cnoise: ',
175       $        'no strips for CN computation on VA1 ',j,       $        'no strips for CN computation on VA1 ',j,
176       $        ', VIEW ',i,'  >>> FAILED '       $        ', VIEW ',i,'  >>> FAILED '
177           else           else
178              if(debug)print*,' WARNING - cnoise: ',              if(debug.eq.1)print*,' WARNING - cnoise: ',
179       $        'less than ',NSTRIPMIN       $        'less than ',NSTRIPMIN
180       $           ,' strips for CN computation on VA1 ',j,       $           ,' strips for CN computation on VA1 ',j,
181       $        ', VIEW ',i,'  >>> FAILED '       $        ', VIEW ',i,'  >>> FAILED '
# Line 190  c--------------------------------------- Line 190  c---------------------------------------
190  c$$$         print*,'Event ',eventn(1)  c$$$         print*,'Event ',eventn(1)
191  c$$$     $        ,': cn(',i,',',j,')= ',cn(i,j),' ncn ',ncn  c$$$     $        ,': cn(',i,',',j,')= ',cn(i,j),' ncn ',ncn
192                    
193           if(debug.and.ABS(cn(i,j)).gt.1000)           if(debug.eq.1.and.ABS(cn(i,j)).gt.1000)
194       $        print*,'Event ',eventn(1)       $        print*,'Event ',eventn(1)
195       $        ,': cn(',i,',',j,')= ',cn(i,j),' ncn ',ncn       $        ,': cn(',i,',',j,')= ',cn(i,j),' ncn ',ncn
196        endif        endif
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23