/[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.8 by pam-fi, Thu Jan 11 10:20:57 2007 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 = 200) ! maximum number of clusters per view        parameter (nclstrmax_view = 200) ! maximum number of clusters per view
# Line 22  Line 11 
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:
# Line 32  c     CLUSTER block: Line 20  c     CLUSTER block:
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)  !sgnal 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
# Line 51  c      real clped(maxlength) Line 37  c      real clped(maxlength)
37  c                                        !(in this case clusters are not saved)  c                                        !(in this case clusters are not saved)
38        integer whichtrack(nclstrmax)      !flag to tag clusters associated to a track        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.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.23