/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/common_reduction.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/common_reduction.f

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

revision 1.5 by pam-fi, Thu Oct 26 16:22:37 2006 UTC revision 1.7 by pam-fi, Wed Oct 22 15:17:35 2008 UTC
# Line 28  c--------------------------------------- Line 28  c---------------------------------------
28        integer cnn(nviews,nva1_view)     ! >0 = number of strips used for cn computation        integer cnn(nviews,nva1_view)     ! >0 = number of strips used for cn computation
29  c                                          0 = failed  (less than NSTRIPMIN strips used) => temporarily masked  c                                          0 = failed  (less than NSTRIPMIN strips used) => temporarily masked
30  c                                         -1 = masked a-priori        c                                         -1 = masked a-priori      
31        integer mask_vk_ev(nviews,nva1_view) ! mask of VA1s, local to the event (set to 0 if CN computation fails)  c      integer mask_vk_ev(nviews,nva1_view) ! mask of VA1s, local to the event (set to 0 if CN computation fails)
32    
33        integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark        integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark
34                                  ! strips with signal and exclude them from                                  ! strips with signal and exclude them from
# Line 37  c                                       Line 37  c                                      
37                                  ! strips with unusually high or low signal and                                  ! strips with unusually high or low signal and
38                                  ! exclude them from common noise computation                                  ! exclude them from common noise computation
39    
40        common/cn/cn,cnrms,cnn,mask_vk_ev,clstr,strange  c      common/cn/cn,cnrms,cnn,mask_vk_ev,clstr,strange
41          common/cn/cn,cnrms,cnn,clstr,strange
42    
43  c------------------------------------------------------------------------  c------------------------------------------------------------------------
44  c      c    
# Line 63  c     parameter (nclstrmax=1000) !maximu Line 64  c     parameter (nclstrmax=1000) !maximu
64        real clseedcut(nstrips_view)        real clseedcut(nstrips_view)
65        real clinclcut(nstrips_view)        real clinclcut(nstrips_view)
66        integer sat(nstrips_view) !saturation mask        integer sat(nstrips_view) !saturation mask
67        common/searchcluster/value,clseedcut,clinclcut,sat,ind        common/calibratedsignal/value
68          save/calibratedsignal/
69          common/searchclustr/clseedcut,clinclcut,sat,ind
70    
71  c     added by Elena (08/2006)  c     added by Elena (08/2006)
72        integer nclstr_view            !number of clusters per view        integer nclstr_view            !number of clusters per view
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23