/[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.4 by pam-fi, Thu Sep 28 14:04:39 2006 UTC revision 1.5 by pam-fi, Thu Oct 26 16:22:37 2006 UTC
# Line 24  c--------------------------------------- Line 24  c---------------------------------------
24        parameter (NSTRIPMIN=10)!(NSTRIPMIN=64)!(NSTRIPMIN=10)!TEMPORANEO        parameter (NSTRIPMIN=10)!(NSTRIPMIN=64)!(NSTRIPMIN=10)!TEMPORANEO
25    
26        real    cn(nviews,nva1_view)      ! common noise values        real    cn(nviews,nva1_view)      ! common noise values
27          real    cnrms(nviews,nva1_view)   ! common noise rms
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)        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
# Line 36  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,cnn,mask_vk_ev,clstr,strange        common/cn/cn,cnrms,cnn,mask_vk_ev,clstr,strange
41    
42  c------------------------------------------------------------------------  c------------------------------------------------------------------------
43  c      c    
# Line 53  c--------------------------------------- Line 54  c---------------------------------------
54    
55  c     parameter (nclstrmax=1000) !maximum number of clusters per event  c     parameter (nclstrmax=1000) !maximum number of clusters per event
56    
57          parameter (nclstrpmin = 5) !minimum number of stored strips
58          parameter (adc_satx = 2960) ! upper (x) saturation limit
59          parameter (adc_saty = 100)  ! lower (y) saturation limit
60    
61        integer ind        integer ind
62        real value(nstrips_view)  !per trovare i cluster        real value(nstrips_view)  !per trovare i cluster
63        real clseedcut(nstrips_view)        real clseedcut(nstrips_view)
64        real clinclcut(nstrips_view)        real clinclcut(nstrips_view)
65        common/searchcluster/value,clseedcut,clinclcut,ind        integer sat(nstrips_view) !saturation mask
66          common/searchcluster/value,clseedcut,clinclcut,sat,ind
67    
68  c     added by Elena (08/2006)  c     added by Elena (08/2006)
69        integer nclstr_view            !number of clusters per view        integer nclstr_view            !number of clusters per view
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23