/[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.1 by mocchiut, Fri May 19 13:15:53 2006 UTC revision 1.4 by pam-fi, Thu Sep 28 14:04:39 2006 UTC
# Line 20  c     Line 20  c    
20  c     common noise computation  c     common noise computation
21  c      c    
22  c------------------------------------------------------------------------  c------------------------------------------------------------------------
23        parameter (scut=3.)        parameter (scut=4.)!(scut=3.)
24          parameter (NSTRIPMIN=10)!(NSTRIPMIN=64)!(NSTRIPMIN=10)!TEMPORANEO
25    
26          real    cn(nviews,nva1_view)      ! common noise values
27          integer cnn(nviews,nva1_view)     ! >0 = number of strips used for cn computation
28    c                                          0 = failed  (less than NSTRIPMIN strips used) => temporarily masked
29    c                                         -1 = masked a-priori
30          integer mask_vk_ev(nviews,nva1_view) ! mask of VA1s, local to the event (set to 0 if CN computation fails)
31    
       real cn(nviews,nva1_view) !common noise value  
32        integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark        integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark
33                                  ! strips with signal and exclude them from                                  ! strips with signal and exclude them from
34                                  ! common noise computation                                  ! common noise computation
# Line 30  c--------------------------------------- Line 36  c---------------------------------------
36                                  ! strips with unusually high or low signal and                                  ! strips with unusually high or low signal and
37                                  ! exclude them from common noise computation                                  ! exclude them from common noise computation
38    
39        common/cn/cn,clstr,strange        common/cn/cn,cnn,mask_vk_ev,clstr,strange
   
   
 c$$$c------------------------------------------------------------------------  
 c$$$c      
 c$$$c     cluster seed cuts  
 c$$$c      
 c$$$c------------------------------------------------------------------------  
 c$$$      parameter (clcutx=7.)     !cluster seed cut (to esclude particles in CN  
 c$$$                                ! computation and to find clusters in data  
 c$$$                                ! reduction)  
 c$$$      parameter (clcuty=7.)  
   
40    
41  c------------------------------------------------------------------------  c------------------------------------------------------------------------
42  c      c    
# Line 51  c     Line 45  c    
45  c------------------------------------------------------------------------  c------------------------------------------------------------------------
46        parameter (cnincut=2.)    !cut to include strips in cluster definition        parameter (cnincut=2.)    !cut to include strips in cluster definition
47                                  ! during common noise computation                                  ! during common noise computation
   
   
 c$$$c------------------------------------------------------------------------  
 c$$$c      
 c$$$c     cluster finding inclusion cut  
 c$$$c      
 c$$$c------------------------------------------------------------------------  
 c$$$      parameter (incutx=4.)     !cut to include strips in cluster definition  
 c$$$                                ! during cluster finding procedure  
 c$$$      parameter (incuty=4.)  
   
 c$$$c------------------------------------------------------------------------  
 c$$$c  
 c$$$c     variables passed from TRACKEREXE.cra  
 c$$$c  
 c$$$c------------------------------------------------------------------------  
 c$$$        
 c$$$      integer trkpaw  
 c$$$      integer procerr  
 c$$$      character*20 data_file  
 c$$$      character*50 data_file_level1  
 c$$$      character*50 data_file_level2  
 c$$$      character*74 data_file_calib  
 c$$$  
 c$$$      common/c2red/trkpaw,procerr,data_file,data_file_level1  
 c$$$     $     ,data_file_level2,data_file_calib  
48  c------------------------------------------------------------------------  c------------------------------------------------------------------------
49  c  c
50  c     some common for reductionflight  c     some common for reductionflight
51  c  c
52  c------------------------------------------------------------------------  c------------------------------------------------------------------------
53    
54    c     parameter (nclstrmax=1000) !maximum number of clusters per event
55    
56        integer ind        integer ind
57        real value(nstrips_view)  !per trovare i cluster        real value(nstrips_view)  !per trovare i cluster
58        real clseedcut(nstrips_view)        real clseedcut(nstrips_view)
59        real clinclcut(nstrips_view)        real clinclcut(nstrips_view)
60        common/searchcluster/value,clseedcut,clinclcut,ind        common/searchcluster/value,clseedcut,clinclcut,ind
61    
62    c     added by Elena (08/2006)
63          integer nclstr_view            !number of clusters per view
64          integer ladder_view(nclstrmax) !ladder the strip carrying the largest signal
65                                         ! value belongs to
66          integer maxs_view(nclstrmax)   !cluster strip carrying the largest signal value
67          integer mult_view(nclstrmax)   !cluster multiplicity
68          integer rmax_view(nclstrmax)
69          integer lmax_view(nclstrmax)
70          common/clustersperview/nclstr_view,ladder_view,maxs_view
71         $     ,mult_view,rmax_view,lmax_view
72    
73        integer nshowers        integer nshowers
74        logical flag_shower        logical flag_shower
75        common/shower/nshowers,flag_shower        common/shower/nshowers,flag_shower
76    
77          integer eventn_old(nviews)
78          integer good_old(nviews)
79          common/eventn/eventn_old,good_old
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23