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

Diff of /DarthVader/TrackerLevel2/inc/F77/level1.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.10 by pam-fi, Fri Apr 27 10:39:57 2007 UTC
# Line 4  Line 4 
4  *      *    
5  *     contains LEVEL1 ntuple variables definitions  *     contains LEVEL1 ntuple variables definitions
6  *      *    
 *     to be included in:  
 *     - ../reduction/reduction.f  
 *     - ../analysis/analysis.f  
 *     - !???  
 *      
 *     parameters:  
 *     - nclstrmax  
 *     - nclstrp  
 *      
 *     11/9/2005 modified by david fedele to include general variables  
 *     **/8/2006 modified to store info about CN computation and "showers"  
7  *************************************************************************  *************************************************************************
8    
9        parameter (nclstrmax_view = 50) ! maximum number of clusters per view        parameter (nclstrmax_view = 200) ! maximum number of clusters per view
10        parameter (nclstrmax      = nclstrmax_view * nviews)        parameter (nclstrmax      = nclstrmax_view * nviews)
11        parameter (nclstrp        = 20) ! maximum number of stored strips per cluster        parameter (nclstrp        = 20) ! maximum number of stored strips per cluster
12        parameter (maxlength      = nclstrmax * nclstrp)        parameter (maxlength      = nclstrmax * nclstrp)
13    
 c      integer good1             !flag to mark good or noise events  
14        integer good1(nviews)        integer good1(nviews)
15    
16  c     CLUSTER block:  c     CLUSTER block:
17        integer nclstr1           !cluster number        integer nclstr1           !cluster number
18        integer view(nclstrmax)   !view the cluster belongs to        integer view(nclstrmax)   !view the cluster belongs to    
19        integer ladder(nclstrmax) !ladder the strip carrying the largest signal        integer ladder(nclstrmax) !ladder the strip carrying the largest signal
20                                  ! value belongs to                                  ! value belongs to
21        integer maxs(nclstrmax)   !cluster strip carrying the largest signal value        integer maxs(nclstrmax)   !cluster strip carrying the largest signal value
22        integer mult(nclstrmax)   !cluster multiplicity        integer mult(nclstrmax)   !cluster multiplicity
23        real dedx(nclstrmax)      !cluster multiplicity        real    sgnl(nclstrmax)   !cluster multiplicity
24        integer indstart(nclstrmax) !cluster starting point index in clsignal array        integer indstart(nclstrmax) !cluster starting point index in clsignal array
25        integer indmax(nclstrmax) !cluster maximum point index in clsignal array        integer indmax(nclstrmax) !cluster maximum point index in clsignal array
26        integer totCLlength       !sum of all clusters length (to assign        integer totCLlength       !sum of all clusters length (to assign
27                                  ! dimension to clsignal array)                                  ! dimension to clsignal array)
28        real clsignal(maxlength)  !signal values of all strips belonging to clusters        real clsignal(maxlength)  !sgnal values of all strips belonging to clusters
   
29        real clsigma(maxlength)        real clsigma(maxlength)
30        integer cladc(maxlength)        integer cladc(maxlength)
31        integer clbad(maxlength)        integer clbad(maxlength)
 c      real clped(maxlength)  
32    
33        real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1        real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1
34        real    cnrmsev(nviews,nva1_view) !RMS of CN        real    cnrmsev(nviews,nva1_view) !RMS of CN
35        integer cnnev(nviews,nva1_view)    !n.strips used for CN computation        integer cnnev(nviews,nva1_view)    !n.strips used for CN computation
36        integer fshower(nviews)            !flag to tag views with too many clusters        integer fshower(nviews)            !flag to tag views with too many clusters
37  c                                        !(in this case clusters are not saved)  c                                        !(in this case clusters are not saved)
38        integer whichtrack(nclstrmax)      !flag to relate the cluster to the track it belongs to        integer whichtrack(nclstrmax)      !flag to tag clusters associated to a track
39        common/level1event/good1,nclstr1,view,ladder,maxs        common/level1event/good1,nclstr1,view,ladder,maxs
40       $     ,mult,dedx,indstart       $     ,mult,sgnl,indstart
41       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
42       $     ,cnev,cnnev,cnrmsev,fshower,whichtrack       $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
 c     $     ,cnev,cnnev,fshower,whichtrack  
43                
44        SAVE/level1event/        SAVE/level1event/
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.23