/[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.7 by pam-fi, Wed Oct 22 15:17:35 2008 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)  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 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  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 53  c--------------------------------------- Line 55  c---------------------------------------
55    
56  c     parameter (nclstrmax=1000) !maximum number of clusters per event  c     parameter (nclstrmax=1000) !maximum number of clusters per event
57    
58          parameter (nclstrpmin = 5) !minimum number of stored strips
59          parameter (adc_satx = 2960) ! upper (x) saturation limit
60          parameter (adc_saty = 100)  ! lower (y) saturation limit
61    
62        integer ind        integer ind
63        real value(nstrips_view)  !per trovare i cluster        real value(nstrips_view)  !per trovare i cluster
64        real clseedcut(nstrips_view)        real clseedcut(nstrips_view)
65        real clinclcut(nstrips_view)        real clinclcut(nstrips_view)
66        common/searchcluster/value,clseedcut,clinclcut,ind        integer sat(nstrips_view) !saturation mask
67          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.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23